# start
KILLALL
CLOSE ALL
!ADDQST 'car.qsp'

USEHTML=1
SHOWSTAT 0
SHOWOBJS 0
$ONGLOAD='loadg'
$ONGSAVE='saveg'
$ONNEWLOC  = 'LOCA'
$onobjsel = 'onobjsel'
showinput 0
$counter = 'counter'
$USERCOM='ObrabotkaVvoda'
debug=1
DISABLESCROLL = 1
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
FSIZE = 12
$FNAME = 'Tahoma'

!nosave 0
!$backimage = 'content/pic/achtung.jpg'
'<center>http://albedo.fludilka.su/ and DeGross</center>'
*nl
'<hr align="left" color="red" size="3" width="1200">'
'<center><h2>IS_THIS</h2></center>'
'<hr align="left" color="red" size="3" width="1200">'
*nl
'<center>version 1.0.5.</center>'
*nl
!'<center><img src="studiand/car.gif" ></center>'
*nl
*nl
!'<center><img src="pic/start.jpg" ></center>'
*nl
*nl

StoryLine=0
MagikDostup=0
!'<center><img src="qwest/alter/evdima/cock3.gif" ></center>'
'<center><img src="qwest/alter/eto.gif" ></center>'
*nl
*nl
'Life simulator with elements of RPG, strategy, porn. <b>children up to 18 years is strictly forbidden to play it.</b>'
set $name = 'Michael'
set $surname = 'Kuznetsov'
set age = 35
set vidage = 35
set year = 2010
set month = 5
set week = 1
set hour = 7
set day = 25
!body
set rost = 186
set fat = 130
set dick = 0
set energy = 15
set water = 15
set son = 16
!stats
set stren = 160
set speed = 50
set agil = 50
set vital = 160
set intel = 50
set will = 100
set react = 50
set health = vital*10
set willpower = intel*5 + will*5
set manna = (intel*magik) + vital*5 
set BDSMfilm=0
set pornstudio=0
set pfilmSTOP=0

set money = 1500
!act 'begin':gt'begin'
set opPRE = 1
tanga=1
clrbelo=1
act '<center><b>begin</b></center>':
cla
gt'begin'
end




!105 101 106 112


	 if music_on=0:
		 inited = 1
		 music_on=1
		 volume = 100
		 $music_theme = 'sukizaebali'
		 gs 'init_music'
	 end
























--- start ---------------------------------

# gameover
'<center><B><font color=maroon>GAME Completed</font></B></center>'

if over = 1:
gs'stat'
'you died'
end

if over = 2:
'<center><img src="pic/over.jpg" ></center>'
'Are you crazy and started running through the city naked screaming I`m a man. You quickly twisted psihbrigada and you were taken to the loony bin. There you put a straitjacket and put in a room with soft walls. You spent the rest of his days in the happy illusions, about his family, about what you again man. But the illusion is always just an illusion.'
*nl
'Hint for the future.'
'With the fall of sentiment and weakening of the mind must be fought. Do not forget, difficult normal man does not phase shifted from the fact that he became a chick. Means for holding the mood and psyche in an acceptable level of mass, take at least a TV and psychotherapist. To strengthen the will and intellect .'
end

if over = 3:
'You have died of hunger. stupid death, but apparently the consequences of anorexia which you began to suffer.'
end

if over = 4:
'You died from complications during childbirth.'
end

if over=5:
'You tried to jump, but then found themselves in a strange place, around which-then ragged walls, with indecent inscriptions, You could not move a scream, when suddenly the door opened and entered what that fat guy, He undid his pants and turned his back to you arranged over you my ass. Here you`ve got it, witch kept her promise and turned you into a push at the station.
So you spent the rest of his days swallowing shit, until later 50 year_old, not at the station started to repair and you just defeated and removed debris to the dump.'
end

if over=6:
'You suddenly pierced a sharp pain in the abdomen, followed by another and another. "Greetings to you from the boys" heard you and turning his head to see retreating figure, downcast eyes you realize that standing in a puddle of his own blood, vytevayuschey from multiple stab wounds in your belly. The last thing you saw, this land with fast approaching.'
end

if over=7:
'The last thing you saw, was baton, flying to your face. Maid zadila you to death, all attributed to the fact that you fell out of bed and broke his head.'
end
--- gameover ---------------------------------

# begin
'<center><B><font color=maroon>Information on this</font></B></center>'
*nl
'<B>You can provide financial assistance to projects, Yandex money в„–scheta <font color=maroon>41001801163843</font></B>'
*nl
'Simulator woman`s life with a magical combat component, with the ability to lead and righteous lifestyle and dissolute. You decide what will be the style of play, I never forced to do anything, I just give opportunities, and their implementation entirely on your conscience. And do not moan about some illogical or not realistic, is primarily a game.'
*nl
'<B>Tips for the game.</B>'
'The most important thing, keep the mind and mood at a high level, otherwise nuthouse. ways weight, such as a TV, food, in the extreme case the therapist.
Second Council for clothes, some types of clothing have size, He counted on the thighs, excess on 9 means you can not get dressed.
The third council, can be treated again in the clinic or gradually eating.'
!*nl
!'And remember guys bug is a blank screen with no buttons Action, to deal with it . fat, weight gain, loss of clothing not bugs, and game features. They are subject to certain laws.'
*nl
'<B>version History.</B>'
*nl
'version 1.0.5. edited by DeGross'
'1. Added the ability to use drugs at home parents.
2. Correcting errors when meeting in the park.
3. To replace all android \ to /
4. Removed Event loop with classmates Gopnik in the park.
'
*nl
'version 1.0.4. edited by DeGross'
'1. Fixed not stop the music.
2. Correcting errors when meeting in the park, white screen in a hostel and the error in the apartment.
'
*nl
'version 1.0.3. edited by DeGross'
'1. Fixed a large dildo.
2. Fixed code combing Albina.
3. Fixed calculation of high degrees of intoxication.
4. Rewrite of bullying Zvereva.
5. The next fix garage Artem.
6. Correction glasses and laser correction.'
*nl
'version 1.0.2. edited by DeGross'
'1. Fixed a bug with the women`s novels and picture.
2. Added avtoodevanie truseley apartment parents.
3. Correction and Artem Event with garage'
*nl
'version 1.0.1. edited by DeGross'
'1. Fixed bug with Belova.
2. Fixed a bug with watching porn with his brother.
3. Fixed bug with Bow'
*nl
'version 1.0.0. edited by DeGross'
'more 500to the characters from the version 0.9.9.1. Many changes. Some game events can not start or work on the crooked old saved.
Albina made вЂ‹вЂ‹bazovovo not entirely.
Event Artem Chebotarev developed third-party developer, yet done all that he has given.
SIFCO about this masterpiece banter.
'
*nl
'version 0.9.9.1 edited by DeGross'
'1. Fixed a bug with the purchase of subscriptions to the section running.
2. Remade out of her boyfriend `s Event at the disco.
3. Changed his mind homework.
4. Photos anus, sperm at different sites.
5. Effect of painful sexual acts to further the mood. You can tear the vagina or anus.
6. Added masturbation hands home. Basic.'
*nl
'version 0.9.9 edited by DeGross'
'
1. added Vitaminki, dietary food, razor in an apartment parents.
2. Rates of personal growth in the northern region of DC. Increasing dominance of money.
3. Sex with randomly boyfriends town. At a campaign event at the disco with her boyfriend, as many as two pieces. their little, but in those of Event calculated mass of possible states reputation.
4. Added NPC reactions to sperm.
5. Fixed some minor bugs. Too early admission to the university, description when renting an apartment. Duration of cleaning toilets. 
6. Unlock an early start for the alternative games. Now.
7. Imposed restrictions on the apparent age for a photo model. Now look older 19 years did not like.
8. In the description entered prezikov number and birth control pills.
9. Another mother`s help, in which it becomes clear why there is no access to a pharmacy in town.
10. Opportunity to masturbate in toilet Station. Of course with great excitement.
11. Added the ability to combat the use of the program travmatika, pistols and machine. Just remember theoretically game if you live bullet to the people of firearms. The combat system is very oak and mine is the maximum, that can be squeezed out of it.
12. Slightly increased statistics can give birth to a child whose SG. 
13. introduced a variable totminut to count how many minutes have passed since the beginning of the game. With this variable. 
14. Little action with Dima Nosov. Dance at the disco. Meeting after school. 
15. Little the encounter with Ivan Prokhorov and event in the gym shower.
16. Expanding quest with Dima (acquaintance in the supermarket) from JSheppard
17. Little sistemka simulating love or desire. After talking with the object of desire will be for some time held the maximum mood. These two NPCs, Dima Nosov and Ivan Prokhorov.
18. Remade Sonia Ivanko. She starts ordinary devchenkoy and disco you can see her fall.
19. Quest Albina, not finished. May protect against raids gopoty school.
20. You can join the pro team in volleyball. So far. 2 entry options, depending on the reputation.
21. Added by climbing the rope in gym class.
22. School competitions in running.
23. Extend the application of the guys at the disco.
24. You can ask the mother to buy new clothes. If some sort of clown nachiterit yourself money and buy the whole range of ladies he will get a flight out of the game at this location. And do not tell, I did not warn.
25. Little development Katie Meynold.
26. countdown absenteeism, and consequences, including expulsion from school and that, parents kicked out of the house.
27. Bit randomly talk with drinking beer with his sister.
28. A small event with Christina Zvereva, after winning the city running race. There are several options.
29. Added the possibility to buy a handbag, beautician, napkins, comb, bottle of water and buterbrot. All of these things are available at any time via the menu handbags. You can buy in the supermarket, Department of cosmetics and products (water and boutique).
'
*nl
'version 0.9.8 edited by DeGross'
'
1. Increased duration of schooling. Of course it will have to start a new game. While blokanul of the small number of content.
2. No big changes town. Added some actions NPCs. In general. Slightly altered the option to chat with classmates.
3. Cheat menu located under the menu item "magic"
4. changes in body. regulate muscularity.
5. Added shower and locker room in the House of Culture.
6. Added the ability to watch what breasts SG.
7. Introduced the background and features a choice of character. again, we need a new game.
8. Little has changed in the clinic part time town. An opportunity to forge a certificate while working as a cleaner in the clinic.
9. The toilets at the station.
10. Event at the station. 3 pieces. no porn.
11. Fixed a bug with stats sex with ordinary guys at the disco.
'
*nl
'version 0.9.7.1 edited by DeGross'
'
1. Added Vit`ka action in a disco.
2. Added option to drink in the kitchen for parents.
3. Fixed a bug with Artem.
4. Added sex game events Zvezdushkam.
'
*nl
'version 0.9.7 edited by DeGross'
'
1. Expanding `s Event at the disco in town.
- travel can be diluted to loot with a dominant. Tselkov now be much more profitable.
- You can improve the reputation, again with a dominant. Gopota can knock out a tooth, is a constant minus to the exterior. While there is no dentist.
- More options with ordinary guys at the disco. There are options depending on dominance.
- Options send gopotu, if they willed group blowjob. Of course .
- Dominance can be obtained if on Friday to participate in a game of Volley section.
2. Other books in the library. 3 species.
3. Reaction to sperm club.
4. Opportunity to pull up study with one of the nerds. Event attached to the Bothan. While in the base.
5. Relationship with Kate Meynold if the census at the disco. It can apply cosmetics SG.
7. Diverse help mother.
8. The opportunity to mock classmates outcasts.
9. Amended the code in case of overeating. 
10. Now, but also on the relationship.
11. Little developed boyfriend in town. no sex.
12. Remade father stepfather. Added respective dialogues.
13. Development of relations with Vityok Kotov.
14. Professional dance in the dance team. At high enough skill can make money.
'
*nl
'version 0.9.6.1 edited by DeGross'
'
1. Fix bug too early discharge.
2. Added section volleyball.
3. While locked empty sexy dance.
'
*nl
'version 0.9.6 edited by DeGross'
'
1. Bug fixes alternative start
2. Event at the disco. 
3. Work as a cleaner at the station.
4. Event at school. For characters who ruined reputation.
5. Something which changes the gym, introduced a library, changed the station.
6. Made system boyfriends, but then walks through the square nothing.
7. Changed reaction mother and sister.
'
'version 0.9.5.3 edited by Bastard'
'1. Family reaction to semen on the body, to deprive of virginity.'
'2. Event in town, light edits Event at the old town (alternative Start).'
*nl
'version 0.9.5.2 edited by Bastard'
'1. Expanding the list `s Event, available in town.'
'2. Adding a reputation in town (slut/not a whore).'
*nl
'version 0.9.5.1 edited by Bastard'
'1. little sex-event in a cafe in the town with an alternative game.'
'2. Added to the Event Square.'
'3. Part-time in the hospital and in the park.'
*nl
'version 0.9.5 edited by DeGross'
'
1. Correction Event at the park. Thank_U Ramia73
2. Fix bug always busy manager Porno studio.
3. Ivan added a bit of action after work.
'

*nl
'version 0.9.4 edited by DeGross'
'1. The next correction plumber. Put to the missing letter with copy-paste.
2. Micro event with a neighbor in the stairwell and the metro. While no porn.
3. Fixed a bug walk in the park.
4. Increase and change in events on the beach with two men.
5. Changes in events with a fisherman on the beach.
6. The new part, possible after they met on the beach with two men. Yet not a lot `s Event.
7. Fixes incorrect statistics in glorihole club.
8. Alternative acquisition of drugs with breaking and lack of money.
9. New stat Bezstydstvo. While weak binding. All as a test.
10. Development Event in bystroezhke with the possibility of a new job.
11. New work in bystroezhke with Event.

'
*nl
'version 0.9.3 edited by DeGross'
'1. Fixed a bug Plumber.
2. Opportunity to meet with Yuri after the initial failure. (quest while working as a cleaner.)
3. Small changes dating Tanya in the fitness center.
4. Changes in the sex system EfimovRA. Removed the ability to constantly press the button "yet".
5. Corrections in the panel.
'
*nl
'version 0.9.2 edited by DeGross'
'1. Fixed a bug with Ivan Event.
2. Remade payment on the panel in the park.
'
*nl
'version 0.9 edited by DeGross'
'1. Changed event with a plumber.
2. The terms of the attack on the street. Now can attack only 0 prior_to 3hours.
3. Reduced the probability of robbery.
4. Not a big change in the Event bystroezhke.
5. Corrections quest Yuri. (work as a cleaner)
6. New event in bystroezhke. Begins if we abandon harassment manager Ivan. In the event a few scenarios.'
*nl
'version 0.8.8 edited by EfimovRA'
'Added some Event at the apartment.
Added event arrest.'
*nl
'version 0.8.7 edited by EfimovRA'
'Added the ability to marry men with a normal character.
Added the ability to invite guys home when the husband is not at home
Added reaction husband masturbation and dog.
The ability to shoot a piercing and get rid of the animals.
Expanded over the Internet.'
*nl
'version 0.8.6.1 edited by EfimovRA'
'Possibility of sale and any available stitched clothes'
*nl
'version 0.8.6 edited by EfimovRA'
'Continued a little flat Thani.
Do a search of earning through computer (while only two options)
Reworked shop fashionista.
And a few small changes'
*nl
'version 0.8.5 edited by EfimovRA'
'Added some Event at bath hostel.
Reduced speed rubbing calluses in 10 time.
Removed decline skill runs from yeast.'
*nl
'version 0.8.4 edited by EfimovRA'
'changed bath, in toilets added the ability to change the gasket.
Fixed a few minor bugs.'
*nl
'version 0.8 edited by EfimovRA'
'Event at the office.'
*nl
'version 0.79 edited by Etogame'
'Lake in the dacha cooperative'
'House of Culture in the town and Events'
'Vocational school in the town and Events'
'Work as a teacher in vocational school'
'Correction of grammatical errors'
*nl
'version 0.78 edited by EfimovRA'
'Added the ability to invite guys on dates, plus game events on these dates.'
'Make room Masha.'
*nl
'version 0.77 edited by Etogame'
'House in suburban co-op (bought in the center)'
'Event at dacha cooperative'
'access, the roof and the attic event'
'Event on the market'
'Mini event on the trash'
'Correction of the bar in the club (can not endlessly drunk)'
'Photos of the mansion'
*nl
'version 0.76 edited by EfimovRA'
'Added the possibility of visiting some girls, plus game events on these dates'
*nl
'version 0.752 edited by DeGross'
'Random changed in the park.'
'Fixed mending tailor.'
'Event Nastya from Etogame'
*nl
'version 0.75 edited by DeGross'
'new store 130 units clothing'
'Expanded the number of options a bit of sex in the sauna. There_Were 2, became 3.'
'Casino in the northern region.'
'42 Mini Event in a cafe during operation and redesigned interface cafe. 2 Event honestly `ve stole the game with Cain.'
'Added event in the sex shop with Kendra (if you with it already familiar in the dorm.) author EfimovRA'
'Added description in shower, the_bathroom, tv_set, bed, shaving depending on the residence time of a girl.'
'You can buy land and build a house for him. Need a whole abyss of money. At the moment.'
'Northern Highway to the provincial town, stations and trains are attached.'
'redone wash, Now laundry is not mandatory, Only if the laundry is dressed. What would need to wash shampoo.'
'If you go without underwear you can rub your vagina. To counteract the negative effects of this ointment sold in pharmacies.'
'Extended event with Irina at work in a cafe.'
'Event at the site unfinished, so the entrance to the construction site blocked.'
*nl
'version 0.745 edited by DeGross'
'Alteration of the menu Bastard'
*nl
'version 0.742 edited by DeGross'
'Event at the restaurant from etogame'
*nl
'version 0.742 edited by DeGross'
'bug fixes.'
'The influence of the number of boys and the number of times of heavy use of drugs at the age of'
'The effect of age on the appearance'
'Erasing sperm clothing.'
*nl
'version 0.741 edited by DeGross'
'bugfix from EfimovRA.'
'Ability to automatically sleep after dressing clothes.'
'bugfixes, Event in a cafe with piercings, bugfix Kisame, bugfix Blacks. Correction of cigarettes.'
*nl
'version 0.74 edited by DeGross'
'event from EfimovRA'
'Girl in sports hall, in the apartment where you can get a governess(not completely included).
Education and work masseuse massage in the salon with Event. Plus familiarity with the two girls in the same place(so far only acquaintance.to. they are still in the process.)
Option to run away from the abuser.
Couple Event at the cafe with visitors.
Two cameras and the ability to shoot in the park and compromising strip-club, chance to earn some money .
In the center of the mall and shops, and bowling, billiards and a cinema with several event.'
'change from DeGross'
'Introduction dependence of the probability of condom STDs. They also do not 100% protection.'
'Changes in the race.'
'Introduced harder drugs, in which there is no penalty to the exterior of the RFP.'
'Fixed Jora.'
'Piercing parlor in the northern region. Piercing is also made.'
'Education on the weekends on the right for a fee.'
'Introduced cigarettes and smoking.'
*nl
'version 0.735 edited by DeGross'
'Menu from the user Bastard.'
'Changes in the treatment of STDs. Vitaminki quenched thrush and herpes.'
'Perhaps a complete cure of STDs, but a lot of money.'
*nl
'version 0.734 edited by DeGross'
'Correction saves for patients with herpes.'
*nl
'version 0.733 edited by DeGross'
'Bagfiksing.'
*nl
'version 0.732 edited by DeGross'
'Bagfiksing.'
*nl
'version 0.731 edited by DeGross'
'Bagfiksing.'
'Dishwasher and washing machine.'
*nl
'version 0.73 edited by DeGross'
'Corrections from Bastard and monsend.'
'Event dog from ReiQ, familiarity with Rimma and Margarita. Repeating event with Margarita. Watch_Out, in the event there is a certain disposition to which you may miss the opportunity to meet with Rimma.'
'Event with Rimma, 21 option sex.'
'Event of the garbage JSheppard'
'Significantly expanded the list of sexually transmitted diseases. Places where you can plunge a lot, but on the basis of randomness. Many diseases are not curable and require regular treatment. RFP in the open stage appearance gone into minus values.'
'Reduced the prize for winning the competition on the run.'
'Changes in freezing winter.'
'Increased prices in the beauty salon.'
'Room in a hostel with a neighbor Vika, through which you can get into a brothel,
and the occasional porn at work in the store and classes in the gym. from EfimovRA'
*nl
'version 0.723 edited by DeGross'
'Corrections in the clinic.'
'Fixes a job at a strip-club.'
'Corrections absenteeism at work in the shop Keys Pussy.'
'Correction wear clothes from Kis Kiski'
'Correction of learning dance on a pole'
'Corrections are not correct randomness and forgotten exit from monsend'
*nl
'version 0.722 edited by DeGross'
'Corrections in the strip-club.'
*nl
'version 0.721 edited by DeGross'
'bugfix. Blank screen in the VIP room of the club.'
'Small changes freezing.'
*nl
'version 0.72 edited by DeGross'
'Suffered a menu in a common file that there were no problems on systems other than vindovs.'
'Education in the fitness center dancing. Ability to work as a stripper.'
'continuation of the game "sunset Dead"'
'Additional button to select between text and indicate the status menu bar.'
'Development of a lake with event and work in the clinic from EfimovRA'
'Event at the club and strip-club of EfimovRA'
'Make it possible to engage in prostitution in the park without a fight at the beginning of. Made options when talking with the bandits did not have enough money.'
*nl
'version 0.71 edited by DeGross'
'Bagfiksing'
*nl
'version 0.7 edited by DeGross'
'Event with a security guard in the building where you can earn a cleaner. In the same building event with Yuri.'
'Event with vocal teacher in DC.'
'colds.'
'Medicine for cold, vitamins. Vitamins do not provide sick, and drugs inhibit disease. They can not cure. Also useful for skin vitamins.'
'Moisturizing Lip Balm. When using a slightly increased attractiveness, and from the frequent use can grow lips.'
'Ice cream and sweets. Quick bite good uplifting, but giving the body a lot of fat.'
'Winter clothing that gives a bonus to the exterior outside the apartment, Of course in the winter.'
'Event with the doctor`s disease from Happosai'
'Integrated cafГ© in the northern region of Goose'
'file cars, shop kitty pussy and quest integrated file IT.'
'Changes made вЂ‹вЂ‹to the prostitution panel, author of the idea and code Lethzer'
*nl
'version 0.692 edited by DeGross'
'Bagfiksing cork, Called game crashes.'
'Corrections extra endov.'
*nl
'version 0.691 edited by DeGross'
'Bagofiksing dog.'
'Bugfix wrong exit in the bathroom brushing bystroezhki.'
*nl
'<B>version History.</B>'
'version 0.69 edited by DeGross, leol'
'Changes made вЂ‹вЂ‹to Leola
1. Event with a host of sex shops.  To activate you need : subordination >100 , appearance >26 must be purchased dildo and anal plug. (event as an opportunity to expand smart enough)
2. removed in my opinion once the text panel В«further descriptionВ» , pridelal pseudographic indicators (changing font, with them possible bugs, (best fonts Microsoft Sans Serif and Tahoma) in Georgia alas characters is not enough)
3. If you have had sex with Givi Karapetovich ,  even without working in a cafe 
4. If you ever had sex with Ashot cafe , it is likely that you will not just В«chatВ»  in the kitchen.
5. Anal plug can only be inserted after the enema
6. Some characters before sex began to react to the presence in the body of the anal plug.'
'DeGross'
'bug fixes.'
'Event of Maggota in bystroezhke, had to be excluded from the part of the Event due to technical problems.'
'Event Isolde in the apartment.'
'Masturbation on the sofa in front of computer.'
'The reaction to the character mired in semen.'
'Online game in the computer. Made only people, all other races, no spells.(I did not plan anything serious, just running in the combat system with distance and initiative. As well as some new variant of the device boevki. The very full boevka, but I do not bother any monsters (their 12 pcs), no spells.)'
'When you have a computer, The shop you can buy the game "sunset dead". This is quite independent game, with his Boevki, developments .'
*nl
'version 0.681 edited by DeGross'
'Bagofiksing relegation dog'
*nl
'version 0.68 edited by DeGross'
'bug_fixes'
'New event beginning in the park on the rides.'
*nl
'version 0.67'
'Added clothes shop kitty-pussy.(Nothing makes.)'
'bug_fixes'
'Added event bestiality of Grey'
*nl
'version 0.66'
'Added opening event of the Grey'
'Sex with a dog is divided into steps'
'Bug fix Yaroslav'
*nl
'version 0.65 edited by Dr'
'At the request of the workers in the system back button "emergency exit".'
'Fixed a bug with the repair of apartments (earlier it was possible to make repairs without having enough money to care in the negative).'
'Fixed a bug with sex in a toilet in the cafe (when choosing "Opt_Out" it was not possible to go).'
'During the test the bug in the pool (fight with Kisane) he stopped play. If he is found again - write !'
'In the porn studio included 4 new type shooting, bugs please write. Also slightly rebalanced prices, to maintain financial balance.'
'update sleep - now you can not get out of bed to continue sleeping.'
'minor bug fixes.'
*nl
'version 0.64 edited by Floser'
'added Pet'
'Added in the Park Event'
'Added the ability to have sex with a dog'
'Event added to a businessman (you have to be a student, whatever quest you can take in the park)'
*nl
'version 0.63 edited by Dr'
'Many small bug fixes.'
'Adding buttons and Magic Update interface. (At the beginning of the game Magic item is not available)'
'Added additional opportunities at the university at the time of a large number kursoviki.'
'Added the ability to redeem their porn videos and break with porn studio.'
'Added some reasonable restrictions on the parameters and skills.'
'Anus and vagina restore normal size over time.'
*nl
'version 0.62 edited by DeGross'
'<font color=red>In the preservation of other versions may buggy body proportions, should gradually enter the norm.</font>'
'Fixed a bug excess appearance and other claims bugs.'
'Introduced buffer variables strongly braking set and weight loss.'
'Changing the Interface.'
'No big changes coming up in a randomly guys cafe while eating.'
'Completely rewritten all the action with Caucasians from the cafe. Tried to make interactive activities.'
'Written by a new sex program for guys who invite you to their home. Acts only on those with whom you can meet in a cafe.'
*nl
'version 0.61 edited by DeGross'
'bug fixes.'
'Added job market.'
*nl
'version 0.6 edited by DeGross'
'To avoid bugs need to start a new game.'
'Completely rewrote the porn studio. Add description in any porn filmed. Total film 6five pieces, which fall randomness. But always . Interest in you will fall and increase the waiting time between movies.'
'Added tracking boyfriends in statistics'
'Corrected gifts boyfriends.'
'edited running, made randomly acquired skills and made вЂ‹вЂ‹an entrance to the competition, which seem to have been forgotten by Dan.'
'You can assign a date boyfriends.'
'Remade on random knowledge Gopnik your skeletons in the closet. Gopnik now do not care if you just shot in the pictures as a model.'
'Changed reset athleticism. Now the hero is not so fast to lose in shape.'
*nl
'version 0.59 edited by Dan Henderson'
'Added and adapted competitions in running out of students'
*nl
'version 0.582 edited by DeGross'
'Completely remade Gopnik.'
*nl
'version 0.581 edited by DeGross'
'Included and corrected the event of gray in a summer cafe.'
*nl
'version 0.58 edited by DeGross'
'Added shop where you can get a job. Author store Anako I tore out of his shop game SweatGames together with all event. For which many thanks to him.'
*nl
'version 0.57 edited by Dan Henderson'
'Adding machines from Albedo'
'Bug fixes porn studio, after dosnyatiya new film begins only after Peter and the approach to be of another type, correcting the lack of hunger and fatigue during the shooting and the casting of the weekend'
'Fixed a bug with displaying photos in the porn studio'
'Fix bug of time in studio, three o`clock surveys are now under the present'
'Correction of large photos, beyond, changing gallery of persons, addition 2 gifok'
*nl
'version 0.56 edited by DeGross'
'bug fixes.'
'Added the ability to give birth. Baby just lying in her crib and did not have the associated.'
'Added the ability to go beyond the husband. Only for sniveller. Husband will live in your apartment, each month to bring the salary to the house. But we must prepare him, wash, clean apartment, otherwise divorce.'
*nl
'version 0.553 edited by DeGross'
'bug fixes.'
*nl
'version 0.552 edited by DeGross'
'bug fixes.'
*nl
'version 0.551 edited by DeGross'
'Join the library Olegusa.'
'Made notebook'
'Changed in a supermarket sale items.'
'Changed in the apartment description.'
*nl
'version 0.55 edited by DeGross'
'error correction, gave a new version, because artisanal stuffed bugs game to the very top and had a long time to fix.'
*nl
'version 0.54 edited by Tkk'
'Work vibrator'
'Correct operation of tattoos, they can look - that`s just for this 0.54'
'So you can watch the tattoo - go once-the other to a medium in DC.'
'Dima returned continuation of the shame'
*nl
'version 0.53 edited by Tkk'
'Added hostel, Ghosh and Africans.'
''
'Added porn studio, eclipsing whom-Albedo is a brave, Grand merci to the man (Evgen, kaatso). respectively, changed by IT.'
'added vibrator. He picks up every hour using zhelashki.'
'Event in the bathroom of the club.'
'new (well forgotten old) opening event in the park and on the lake.'
'You can retire from work secretary.'
'Gopnik is now not just a foul near the cafe.'
'Curve and oblique reputation system.'
'themselves look, in general, I`m too lazy to write.'
*nl
'version 0.5'
'1) Fixed a bug growth lips.
2) Added to the beauty salon liposuction, reduction of the lips,  solarium
3) added abortion
4) strip-club, randomly or evening with a female striptease, either male. different actions.
5) Taxi uptown.
6) In the sex shops added strapon anal tube.
7) Event randomly on the beach.
8) Event randomly in the supermarket.
9) Did a spell for idiots who can not cope with the weight. Karin you ever make those parameters of the body, what you want, just do not expect that there will be more chest 1a size. want more, Piha silicone.
10) Not a great addition to the system boyfriends.
 - Changed Gift.
- test version of the beginning of cohabitation. (very superficial and one type of character.)
- 3 opening event for the aggressive type of character (cafe, theater, park)
11) Added dating site online game,
site Features
- Familiarity with randomly Man (if there is no boyfriend), the opportunity to choose the type of character.
12) Start opening event lesbian club.Event is not my, will continue as soon as the author continued to lay out.
13) Processing parameter appearance.
- Weakened the influence of Sun.
-Increase the influence of clothes.
- Loose initial requirements boyfriends in appearance.
- Create a more flexible and differentiated requirements boyfriend throw in appearance after the first sex.
14) Increased with the size of the excess 8 prior_to 12 Clothes class pants.
15) Event waitress Irene.
16) Dietetic foods and fat burners.
17) Small changes in the system of orgasms. '
*nl
'version 0.4.1'
'Fixed a bug with the taxi driver.
Fixed a bug walking without panties.
Fixed a lot of bugs in the relationship with her boyfriend.
Event in the park with her boyfriend.
Fixed bugs anal sex.'
*nl
'version 0.4'
'Create your own online and pay for it, the Internet is just a porn site.
Created pool and Event akvafilii
The possibility of clashes in the park at night
drugs, get used to it, I am so against dope, that could not even bring myself to test
Fixed a bug nightclub
Fixed a bug in the bank
Redesigned and enhanced quest in the subway
Added 1 spell
Completely reworked system of relations with her boyfriend, added anal, Pegging, enema.
The opportunity to wear pants or not, There are two places where there may be a reaction to a combination of lack of skirts and panties.
Added part in Bystroeshke.
redone autosave.
The fitness center locker screwed, with shower, wardrobe and mirror.
Completely reworked system sleep'
*nl
'version 0.3'
'Fixed a bug with a meal in the cafe
Fixed a bug combat system
Added various steps in the park.
Added 16 dresses
Added 4 pieces of jeans
Added 18 pieces of sportswear
in_total 70 units clothing (Sales is not just a couple of pieces of clothing.), sell clothes differ in their properties by groups, dresses in one group, in other skirts, at short third, pants in the fourth, in jeans fifth, in sportswear sixth. For example, but between jeans and a skirt there is a difference, Jeans more durable, but they will not be allowed into a nightclub and.t.d.
Added a taxi to the center
Possible bug fixed avalanche gain fat in the fall mood
Added workout in the fitness club
Added part cleaner
Added activities in nightclub, there feyskontrol, (or skirt, or dress, necessarily cosmetics)
Added activities in sex shop, (the possibility of part-time work)
Added home workout
Added a continuation of the plot, learning magic
Small changes in relationships with guys
Added minikvest subway
Added entry to the university and training there until graduation
Added steps to the clinic
Changed description of health, moods, reason with numerical in writing
You can put the money deposited in the bank, (with the defeat in the battle all the cash is lost), added an ATM in a shopping center
Amateur kickboxing fighters with different levels, give a discharge for the series of victories.
Added probability of clashes at work as a prostitute.
Added probability of venereal disease and treatment added
autosave after sleep
With the ability to earn a photo studio model.'
*nl
'version 0.2'
'Pay special attention to the button "emergency exit" this button takes you to the street from absolutely anywhere, its purpose out of a blank screen bug, do not indulge in it just, sobete something, broken preservation and get a steady bug.
introduced prehistory
changed Service
Not a big change in the mechanism of sleep
Fixed several bugs are not significant
Introduced the possibility of dating and relationships, (working in cafes and on the beach.)
Created combat engine, which is still almost nowhere to apply. Only fight with dzhuga in prehistory.
The development of relations with the owner of the cafe.'
*nl
'version 0.1'
*nl
'Changing parameters Player, weight, appearance, age. Age is divided into the passport and the age of the appearance. Age passport is changed accordingly once a year, and appearance can as quickly catch up and overtake the actual age, and hopelessly behind, it depends on many factors.
25 pieces of clothing, excluding swimsuit. Clothing has a width dimension thighs, 8cm or less, but more than that or less, veil and armor disappears when you try to dress. Just wear clothes. 
periods, the possibility of pregnancy. True until the result of one, complications and to the light.
televisions, computer, things around the house. TV set and a computer implemented until at the most primitive level.
Any washing, ironing, dish washer, grooming, makeup.
Smer has, did so. If you do not eat or drink, then flippers your game character toss.
Need to pay for an apartment and pay for the light. Payment apartments fixed, and the light depends on how much you jump on the apartment and the use of electric appliances.
Phone while just for fun, You can only call on the three numbers, and then, speak there is nothing to.
introduced 1 the_work, a waitress in a cafe. The work itself is entirely implemented, elevated through relationships with employees, though still have the development of relations only with Ashot, and then, all very lamppost and surface.
Sexually implemented feedback, your character will not be a puppet orgazmiruet the slightest touch, orgasm influenced by many factors. And sex itself has an effect on mood and mind, according to experience sensations.
no quests. However .'


'Thank_U Ma99oT,AltarIK for bug reports. from Tkk. Well=D'


act '<center><b>start the game</b></center>':
cla
music_on=0
SHOWSTAT 1
SHOWOBJS 1
addobj 'player'
gt'roomPRE'
end

act '<center><b>Alternative start game</b></center>':
cla
SHOWSTAT 1
SHOWOBJS 1
!addobj 'player'
gt'alterStart'
end

act '<center>Quick Start</center>':
music_on=0
gs'begin1'
gt'street'
end

--- begin ---------------------------------

# begin1
SHOWSTAT 1
SHOWOBJS 1
set $name = 'Svetlana'
set $surname = 'Lebedev'
set age = 18
set vidage = 16
set year = 2010
set month = 5
set week = 3
set hour = 13
!body
set rost = 170
set fat = 60
set salo=60
set dick = 0
set energy = 15
set water = 15
set son = 16
!stats
set stren = 10
set strenbuf=10
set speed = 10
set agil = 10
set agilbuf=10
set vital = 10
set vitalbuf=10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
!etogame
set nastjaqw = 0
!etogame
set money = 16500
set vidageday = 300
set housrA = 1
set sarafan[1] = 1
set nude = 0
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair = 3
set mop = 1
set housr = 1
set tanga = 1
clr
gs'stat'
set numdres=1
set odetjeans=1
set numdress=1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70

set cltarelka = 1
set fairy = 10
set eda = 5
set clrbelo = 2
set poroshok = 5
set shampoo=5
set nude = 0
gs'stat'
set opPRE = 0
set daystart = 0
addobj 'character'
addobj 'see'
addobj 'Others'
--- begin1 ---------------------------------

# onobjsel
!!!dynamics!!!
$din_show_tits={
view
VIEW 'picb/t<<tits>>.jpg'
}
!$objbody
$objdescrip={
clr
pl'your name <<$name>> <<$surname>>.'
pl'you <<age>> <<$letgoda>>, on the kind you can not give more <<vidage>> <<$letgoda2>>.'
if birthday>0 and birthmonth>0:pl'Date of your birth <<birthday>>.0<<birthmonth>>.<<birthyear>>g.'
pl'growth <<rost>> cm, weight <<ves>> kg.'
pl'<<$body>>'
pl'<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>></a>, <a href="exec:dynamic $din_show_tits">breast size <<tits>></a>, the difference between the hips and waist <<bedra-talia>> cm'
pl'<<$anus>>'
pl'<<$vnesh>>'
pl'<<$hair>>'
pl'<<$lip>>'
pl'<<$skin>>'
pl'<<$glaza>>'
pl'<<$mop>>'
pl'<<$leghair>>'
pl'<<$lobok>>'
nl
if salo = 0 and musle > 0 and dounspell = 0:pl'<B><font color=red>You start dystrophy.</font></B>'
if salo = 0 and musle = 0 and dounspell = 0:pl'<B><font color=red>You dystrophy.</font></B>'
if curly > 0:pl'Perms enough for another <<curly>> days.'
if zub=1:$zuba=' tooth'
if zub>=2:$zuba='x teeth'
if zub>0:pl'You do not have <<zub>><<$zuba>>.'
!pl'vnesh <<vnesh>>'
!pl'curlykoef <<curlykoef>> maximum 1'
!pl'tits <<tits>> maximum 6'
!pl'lip <<lip>> maximum 4'
!pl'tanKoef <<tanKoef>> maximum 1'
!pl'skin <<skin>> maximum 4'
!pl'mop <<mop>> maximum 4'
!pl'resnic <<resnic>> maximum 2'
!pl'glaraz <<glaraz>> maximum 3'
!pl'bodykoef <<bodykoef>> maximum 8'
!pl'legkoef <<legkoef>> maximum 3'
!pl'lobkoef <<lobkoef>> maximum 3'
!pl'odevnesh <<odevnesh>> maximum 15'
!pl'sweat <<sweat>> maximum 0'
!pl'hapri <<hapri>> maximum 1'
}




$objskills={
clr
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
!if salo > musle*4:set $fat = 'Do you loose fat body'
!if salo <= musle*4 and fat > musle*2:set $fat = 'Your body is soft, but still elastic.'
!if salo <= musle*2 and fat > musle:set $fat = 'You are normal complexion.'
!if salo <= musle and fat >= musle/2:set $fat = 'You slim and trim.'
!if salo < musle/2:set $fat = 'You really are thin, muscles strong stand on the body.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
pl'attractiveness <<vnesh>>'
pl'power <<stren>>'
pl'speed <<speed>>'
pl'agility <<agil>>'
pl'endurance <<vital>>'
pl'intelligence <<intel>>'
pl'willpower <<will>>'
pl'reaction <<react>>'
pl'<<$fat>>'
!pl'Bezstydstvo <<shameless>>'
if SUB > 0:pl'subordination <<SUB>>'
if DOM > 0:pl'dominance <<DOM>>'
!pl'muscles <<$musle>>'
if magik > 0:pl'is_magical <<magik>>'
if Jab > 0:pl'Jeb - <<Jab>>'
if Punch > 0:pl'power punches - <<Punch>>'
if Kik > 0:pl'kicks - <<Kik>>'
if KikDef > 0:pl'Shock protection - <<KikDef>>'
if beg > 0:pl'Skill run - <<beg>>'
if volleyboll>0:pl'Skill volleyball - <<volleyboll>>'
if oficiant > 0:pl'skills waitress - <<oficiant>>'
if vokal>0:pl'vocal skills <<vokal>>'
if dance>0:pl'dance skills - <<dance>>'
if dancePRO>0:pl'Skill professional dance - <<dancePRO>>'
if stripdance>0:pl'Skill dance striptease - <<stripdance>>'
if poledance>0:pl'Skill dance on a pole - <<poledance>>'
if shoot > 0:pl'shooting skills - <<shoot>>'
if kid=1:pl'Do you have a child, <<$polreb[1]>> by name <<$kidname[1]>>. date of birth <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>g. age <<kidage[1]>>'

if SchoolAtestat=0 and StoryLine>0:
if Suspeh>=90:pl'At school you round excellent student.'
if Suspeh>=80 and Suspeh<90:pl'At school you learn mainly on fine, but there are four.'
if Suspeh>=70 and Suspeh<80:pl'In school, among which sometimes there are five.'
if Suspeh>=60 and Suspeh<70:pl'In school, Five very rare in your diary.'
if Suspeh>=50 and Suspeh<60:pl'At school you learn from the troika, sometimes skips and four.'
if Suspeh>=40 and Suspeh<50:pl'At school you learn bad, you find it difficult to correct twos threes.'
if Suspeh<40:pl'At school you learn disgusting, basically go one of two.'
if schoolprogul>1:pl'Absenteeism at school <<schoolprogul>>'
end
}




$objstatistika={
clr
if opPRE = 0:pl'gone <<daystart>> days from the start of the game.'
if BuyHous=2 and ArendHouseSL>0:pl'The apartment is in a residential area on a rented <<ArendHouseSL>> days.'
if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:pl'professional record. victory-lesions-Drawn (knockout wins)'
if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:pl'<<KikWinPro>> - <<KikLossPro>> - <<KikDrawPro>> (<<KikKOPro>>KO)'
if Win > 0 or Loss > 0:pl'Wins in fights <<Win>>, defeats in fights <<Loss>>'
if KisameDead = 1:pl'You killed Kisame.'
nl
if razradKik > 0:pl'<<$razradKik>>'
if KikWinAm > 0:pl'Wins in kickboxing among fans - <<KikWinAm>>'
if KikLossAm > 0:pl'Lesions in amateur kickboxing - <<KikLossAm>>'
if KikDrawAm > 0:pl'Draws in kickboxing among fans - <<KikDrawAm>>'
nl
if maxdamage > 0:pl'The impact force on the dynamometer <<maxdamage>> kgf'
if Irina > 0:pl'Friendship with Irina <<Irina>>'
if Givi > 0:pl'Friendship with Givi Karapetovich <<Givi>>'
if Ashot > 0:pl'Friendship with Ashot <<Ashot>>'
if Tamara > 0:pl'Friendship with Tamara <<Tamara>>'
if Dmitry >0:pl'Friendship with Dima <<Dmitry>>'
if afra>0:pl'Friendship with blacks <<afra>>'
if vika > 0:pl'Friendship with Vika <<vika>>'
if kat > 0:pl'Friendship with Kate <<kat>>'
if nastjaqw > 0:pl 'Friendship with Nastya <<nastjaqw>>'
if modelfoto > 0:pl'You filmed nude <<modelfoto>> time'
if stripdancesum>0:pl'<<stripdancesum>> just dancing a striptease in club'
if profiDanceTime>0:pl'Do_You <<profiDanceTime>> once danced professionally.'
nl
if razradKik = 1:set $razradKik = 'you have III rank amateur kickboxing'
if razradKik = 2:set $razradKik = 'you have II rank amateur kickboxing'
if razradKik = 3:set $razradKik = 'you have I rank amateur kickboxing'
if razradKik = 4:set $razradKik = 'You have the title of Candidate Master of Sports in kickboxing'
if razradKik = 5:set $razradKik = 'You have the title of Master of Sports in kickboxing'
if SchoolAtestat=1:pl'You finished school.'
if diplom = 1:pl'You graduate.'
if teachlevel>0:pl'Your credibility as a teacher <<teachlevel>>'
if kolsorev > 0:pl'<<kolsorev>> once took part in a running race'
if bronzebeg > 0:pl'<<bronzebeg>> - bronze medals on the run'
if silverbeg > 0:pl'<<silverbeg>> - silver medals on the run'
if goldbeg > 0:pl'<<goldbeg>> - gold medals on the run'
if razradbegEB > 0:pl'<<razradbegEB>> double bronze medalist at the European'
if razradbegES > 0:pl'<<razradbegES>> fold vice champion of Europe'
if razradbegEG > 0:pl'<<razradbegEG>> time European champion.'
if razradbeg = 1:pl'you have 3First sports category on the run'
if razradbeg = 2:pl'you have 2First sports category on the run'
if razradbeg = 3:pl'you have 1First sports category on the run'
if razradbeg = 4:pl'You have the title of candidate master on the run'
if razradbeg = 5:pl'You have the title of Master of Sports on the run'
if razradbeg >= 6:pl'You have the title of International Master of Sports on the run'
nl
if mastr > 0:pl'masturbate <<mastr>> time'
if throat > 0:pl'capacity throat <<throat>>'
if vagina > 0:pl'The elasticity of the vagina <<vagina>>'
if vagina = 0 and sex=0:pl'Do you have a hymen.'
if anus > 0:pl'<<$anus>>'
nl
if GorSlut=1:pl'In the town you know how davalku.'
if GorSlut=2:pl'In the town you know how vaflersha who got in her mouth.'
if GorSlut=3:pl'In the town you know how to suck a few cocks vaflersha immediately.'
if GorSlut=4:pl'In the town you know how fucked davalku that several boys.'
if GorSlut=5:pl'In the town you know how to washed- whore which can do everything, anything.'
if GorSlut=6:pl'In the town you know as a prostitute for the money ready for any abomination.'

if guy > 0:pl'you had <<guy>> guys.'
if divorced>0:pl'You have been <<divorced>> husbands.'
if suprdolg>0:pl'Perform conjugal duty with her husband <<suprdolg>> time'
if gang > 0:pl'group sex <<gang>> time'
if sex > 0 and sexa=0:pl'vaginal sex <<sex>> time'
if sex > 0 and sexa>0:pl'vaginal sex <<sex>> just one <<sexa>> time with her boyfriend'
if bj > 0 and gloryhole = 0 and eggs = 0 and bja=0:pl'blowjob done <<bj>> time'
if bj > 0 and gloryhole = 0 and eggs = 0 and bja>0:pl'blowjob done <<bj>> time, are <<bja>> time her boyfriend'
if bj > 0 and gloryhole > 0 and eggs = 0 and bja=0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall.'
if bj > 0 and gloryhole > 0 and eggs = 0 and bja>0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. As one <<bja>> time her boyfriend'
if bj > 0 and gloryhole = 0 and eggs > 0 and bja=0:pl'blowjob done <<bj>> time, eggs sucked <<eggs>> time.'
if bj > 0 and gloryhole = 0 and eggs > 0 and bja>0:pl'blowjob done <<bj>> time, eggs sucked <<eggs>> time. As one <<bja>> time her boyfriend'
if bj > 0 and gloryhole > 0 and eggs > 0 and bja=0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. eggs sucked <<eggs>> time.'
if bj > 0 and gloryhole > 0 and eggs > 0 and bja>0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. eggs sucked <<eggs>> time. As one <<bja>> time her boyfriend'
if hj > 0 and hja=0:pl'Fingering guys <<hj>> time'
if hj > 0 and hja>0:pl'Fingering guys <<hj>> just one <<hja>> just masturbate her boyfriend'
if hump>0:pl'About you wanker member <<hump>> time'
if rape > 0:pl'you raped <<rape>> time'
if anal > 0 and anala=0:pl'anal <<anal>> time'
if anal > 0 and anala>0:pl'anal <<anal>> just one <<anala>> time with her boyfriend'
if kuni > 0:pl'You did cunnilingus <<kuni>> time'
if pegging > 0:pl'Pegging <<pegging>> time'
if spank > 0:pl'You ran ass <<spank>> time'
nl
if slutty>0 and bordelslutty=0:pl'Sold their love <<slutty>> time.'
if slutty>0 and bordelslutty>0:pl'Sold their love <<slutty>> time, of them in a brothel <<bordelslutty>> time.'
if pfilmSTOP = 1:pl'<<$pfilmstory_new>>'
if film>0:pl'In the porn industry you know the name of <<$pfname>>. You starred in porn <<film>> time. <<$pfilmhistory>>'
if orgasm > 0:pl'orgasm <<orgasm>> time. Of these <<vaginalOrgasm>> vaginal orgasms during sex.'
if analorgasm > 0 : pl 'Of these <<analorgasm>> anal orgasm'
if swallow > 0:pl'sperm swallowed <<swallow>> time'
if facial > 0:pl'Cum on face <<facial>> time'
if frot > 0:pl'Cum on you in transport <<frot>> time'
if VAF > 0:pl'vaflizm <<VAF>>'
if zoo > 0:pl'Sex with animals <<zoo>> time.'
if pee>0:pl'you pissing <<pee>> time.'
nl
if girl > 0:pl'You have been <<girl>> girls.'
if lesbian > 0:pl'You engaged lecBiysk sex <<lesbian>> time.'
if sexfuta>0:pl'Do_You <<sexfuta>> had sex with chlenodevkoy.'
}
$din_cheat_hapri={
if cheatHapri=0:
cheatHapri=1
gs'stat'
dynamic $din_cheat
exit
end
if cheatHapri=1:
cheatHapri=0
gs'stat'
dynamic $din_cheat
end
}
$din_cheat_nomakeup={
if cheatNomakeup=0:
cheatNomakeup=1
gs'stat'
dynamic $din_cheat
exit
end
if cheatNomakeup=1:
cheatNomakeup=0
gs'stat'
dynamic $din_cheat
end
}
$din_cheat_Nosweat={
if cheatNosweat=0:
cheatNosweat=1
gs'stat'
dynamic $din_cheat
exit
end
if cheatNosweat=1:
cheatNosweat=0
gs'stat'
dynamic $din_cheat
end
}
$din_cheat_NoEat={
if cheatNoEat=0:
cheatNoEat=1
gs'stat'
dynamic $din_cheat
exit
end
if cheatNoEat=1:
cheatNoEat=0
gs'stat'
dynamic $din_cheat
end
}
$din_cheat_param={
gs'stat'
clr
pl'<a href="exec:dynamic $din_cheat">Back to the cheat menu</a>'
pl'<<strenbuf>> - strenbuf'
pl'<<vitalbuf>> - vitalbuf'
pl'<<vmeat>> - vmeat'
pl'<<vfat>> - vfat'
pl'<<Kves>> - Kves'
pl'<<krost>> - krost'
pl'<<ves>> - ves'
pl'<<talia>> - talia'
pl'<<grudi>> - grudi'
pl'<<bedra>> - bedra'
pl'<<titK>> - titK'
pl'<<silicone>> - silicone'
pl'<<grudi>> - <<talia>> - <<bedra>>, breast size <<tits>>, the difference between the hips and waist <<bedra-talia>> cm'
pl'indicator muscularity <<musle>> - musle, <<salo>> - salo <<salo*2>> - salo*2, <<fat>> - fat'
}
$din_cheat={
gs'stat'
clr
if cheatHapri=0:$cheatHapri='OFF'
if cheatHapri=1:$cheatHapri='included'
if cheatNomakeup=0:$cheatNomakeup='OFF'
if cheatNomakeup=1:$cheatNomakeup='included'
if cheatNosweat=0:$cheatNosweat='OFF'
if cheatNosweat=1:$cheatNosweat='included'
if cheatNoEat=0:$cheatNoEat='OFF'
if cheatNoEat=1:$cheatNoEat='included'
pl'If you use the cheats, then remember, It`s your decision and the consequences respond to you.'
pl'<a href="exec:dynamic $din_cheat_param">Show design parameters of the body.</a>'
pl'<a href="exec:health = vital*10 + stren*5+1000&willpower = intel*5 + will*5+1000&manna = (intel*magik) + magik*100 + vital*10 + rikudo&dynamic $din_cheat">Complete recovery, manna, reason.</a>'
if salo!fat:pl'option <a href="exec:fat=salo&dynamic $din_cheat">balance the fat</a>'
pl'<b>permanent cheats</b>'
pl'option <a href="exec:dynamic $din_cheat_hapri">always combed</a> <<$cheatHapri>>'
pl'option <a href="exec:dynamic $din_cheat_nomakeup">cosmetics never smeared</a> <<$cheatNomakeup>>'
pl'option <a href="exec:dynamic $din_cheat_Nosweat">never sweat</a> <<$cheatNosweat>>'
pl'option <a href="exec:dynamic $din_cheat_NoEat">never eat or drink</a> <<$cheatNoEat>>'
pl'<b>Cheats designer body</b>'
if lip<4:pl'option <a href="exec:lip+=1&dynamic $din_cheat">enlarge lips</a>'
if lip>0:pl'option <a href="exec:lip-=1&dynamic $din_cheat">reduce lips</a>'
if skin<4:pl'option <a href="exec:skin+=1&dynamic $din_cheat">improve the skin</a>'
if skin>0:pl'option <a href="exec:skin-=1&dynamic $din_cheat">worsen the skin</a>'
if resnic<2:pl'option <a href="exec:resnic+=1&dynamic $din_cheat">increase eyelashes</a>'
if resnic>0:pl'option <a href="exec:resnic-=1&dynamic $din_cheat">reduce eyelashes</a>'
if glaraz<3:pl'option <a href="exec:glaraz+=1&dynamic $din_cheat">increase the size of the eye</a>'
if glaraz>0:pl'option <a href="exec:glaraz-=1&dynamic $din_cheat">reduce the size of the eye</a>'
if lip<4:pl'option <a href="exec:lip+=1&dynamic $din_cheat">enlarge lips</a>'
if lip>0:pl'option <a href="exec:lip-=1&dynamic $din_cheat">reduce lips</a>'
if salo>0:pl'option <a href="exec:salo-=5&fat=salo&dynamic $din_cheat">reduce fat</a> <a href="exec:salo=0&fat=salo&dynamic $din_cheat">reset fat</a>'
pl'Option to increase fat <a href="exec:salo+=5&fat=salo&dynamic $din_cheat">5</a>, <a href="exec:salo+=25&fat=salo&dynamic $din_cheat">25</a>, <a href="exec:salo+=50&fat=salo&dynamic $din_cheat">50</a>, <a href="exec:salo+=100&fat=salo&dynamic $din_cheat">100</a>'
pl'Increase the force on the <a href="exec:stren+=1&dynamic $din_cheat">1</a> <a href="exec:stren+=5&dynamic $din_cheat">5</a> <a href="exec:stren+=10&dynamic $din_cheat">10</a>'
if stren>0:pl'Reduce the force on the <a href="exec:stren-=1&dynamic $din_cheat">1</a> <a href="exec:stren-=5&dynamic $din_cheat">5</a> <a href="exec:stren-=10&dynamic $din_cheat">10</a> <a href="exec:stren=100&dynamic $din_cheat">install 100</a>'
pl'Increase speed <a href="exec:speed+=1&dynamic $din_cheat">1</a> <a href="exec:speed+=5&dynamic $din_cheat">5</a> <a href="exec:speed+=10&dynamic $din_cheat">10</a> <a href="exec:speed=100&dynamic $din_cheat">install 100</a>'
if speed>0:pl'Decrease speed <a href="exec:speed-=1&dynamic $din_cheat">1</a> <a href="exec:speed-=5&dynamic $din_cheat">5</a> <a href="exec:speed-=10&dynamic $din_cheat">10</a>'
pl'Increase Agility by <a href="exec:agil+=1&dynamic $din_cheat">1</a> <a href="exec:agil+=5&dynamic $din_cheat">5</a> <a href="exec:agil+=10&dynamic $din_cheat">10</a> <a href="exec:agil=100&dynamic $din_cheat">install 100</a>'
if agil>0:pl'Decrease Agility by <a href="exec:agil-=1&dynamic $din_cheat">1</a> <a href="exec:agil-=5&dynamic $din_cheat">5</a> <a href="exec:agil-=10&dynamic $din_cheat">10</a>'
pl'Increase the response to <a href="exec:react+=1&dynamic $din_cheat">1</a> <a href="exec:react+=5&dynamic $din_cheat">5</a> <a href="exec:react+=10&dynamic $din_cheat">10</a> <a href="exec:react=100&dynamic $din_cheat">install 100</a>'
if react>0:pl'Reduce the response to <a href="exec:react-=1&dynamic $din_cheat">1</a> <a href="exec:react-=5&dynamic $din_cheat">5</a> <a href="exec:react-=10&dynamic $din_cheat">10</a>'
pl'Enlarge physique on <a href="exec:vital+=1&dynamic $din_cheat">1</a> <a href="exec:vital+=5&dynamic $din_cheat">5</a> <a href="exec:vital+=10&dynamic $din_cheat">10</a> <a href="exec:vital=100&dynamic $din_cheat">install 100</a>'
if vital>0:pl'Reduce physique on <a href="exec:vital-=1&dynamic $din_cheat">1</a> <a href="exec:vital-=5&dynamic $din_cheat">5</a> <a href="exec:vital-=10&dynamic $din_cheat">10</a>'
pl'Will increase to <a href="exec:will+=1&dynamic $din_cheat">1</a> <a href="exec:will+=5&dynamic $din_cheat">5</a> <a href="exec:will+=10&dynamic $din_cheat">10</a> <a href="exec:will=100&dynamic $din_cheat">install 100</a>'
if will>0:pl'Will reduce to <a href="exec:will-=1&dynamic $din_cheat">1</a> <a href="exec:will-=5&dynamic $din_cheat">5</a> <a href="exec:will-=10&dynamic $din_cheat">10</a>'
pl'Increase Intellect by <a href="exec:intel+=1&dynamic $din_cheat">1</a> <a href="exec:intel+=5&dynamic $din_cheat">5</a> <a href="exec:intel+=10&dynamic $din_cheat">10</a> <a href="exec:intel=100&dynamic $din_cheat">install 100</a>'
if intel>0:pl'Reduce intelligence on <a href="exec:intel-=1&dynamic $din_cheat">1</a> <a href="exec:intel-=5&dynamic $din_cheat">5</a> <a href="exec:intel-=10&dynamic $din_cheat">10</a>'
pl'<b>cheats stats</b>'
pl'Enlarge money <a href="exec:money+=1000&dynamic $din_cheat">1000</a> <a href="exec:money+=5000&dynamic $din_cheat">5000</a> <a href="exec:money+=10000&dynamic $din_cheat">10000</a>'
pl'<a href="exec:money=0&dynamic $din_cheat">Zero the money</a>'
pl'Increase the dominance on the <a href="exec:dom+=1&dynamic $din_cheat">1</a> <a href="exec:dom+=5&dynamic $din_cheat">5</a> <a href="exec:dom+=10&dynamic $din_cheat">10</a>'
pl'Zoom on sabmissivnost <a href="exec:sub+=1&dynamic $din_cheat">1</a> <a href="exec:sub+=5&dynamic $din_cheat">5</a> <a href="exec:sub+=10&dynamic $din_cheat">10</a>'
pl'<b>test parameters</b> present in the mechanism of the game, but not involved in the game quests.'
if mutagenP = 0:pl'mutagen force <a href="exec:mutagenP = 1&stren=150&dynamic $din_cheat">1level</a>'
if mutagenP = 1:pl'mutagen force <a href="exec:mutagenP = 2&stren=200&dynamic $din_cheat">2level</a>'
if mutagenP = 2:pl'mutagen force <a href="exec:mutagenP = 3&stren=250&dynamic $din_cheat">3level</a>'
if mutagenP > 0:pl'mutagen force <a href="exec:mutagenP = 0&stren=100&dynamic $din_cheat">set_to_zero</a>'
if mutagenV = 0:pl'mutagen endurance <a href="exec:mutagenV = 1&vital=150&dynamic $din_cheat">1level</a>'
if mutagenV = 1:pl'mutagen endurance <a href="exec:mutagenV = 2&vital=200&dynamic $din_cheat">2level</a>'
if mutagenV = 2:pl'mutagen endurance <a href="exec:mutagenV = 3&vital=250&dynamic $din_cheat">3level</a>'
if mutagenV > 0:pl'mutagen endurance <a href="exec:mutagenV = 0&vital=100&dynamic $din_cheat">set_to_zero</a>'
if mutagenA = 0:pl'mutagen Agility <a href="exec:mutagenA = 1&agil=150&dynamic $din_cheat">1level</a>'
if mutagenA = 1:pl'mutagen Agility <a href="exec:mutagenA = 2&agil=200&dynamic $din_cheat">2level</a>'
if mutagenA = 2:pl'mutagen Agility <a href="exec:mutagenA = 3&agil=250&dynamic $din_cheat">3level</a>'
if mutagenA > 0:pl'mutagen Agility <a href="exec:mutagenA = 0&agil=100&dynamic $din_cheat">set_to_zero</a>'
}


$objmagic={
clr
pl'<a href="exec:dynamic $din_cheat"><b>cheat menu</b></a>.'

if magik = 0:
pl'You are unable to use magic.'
end

if magik > 0:
pl'available to you <<manna>> units of manna.'
!' Rikudo forces available to you <<rikudo>> units'
nl
	 pl'base spell :'
	 nl
     if spelltuman > 0:pl'Cover the area fog, a great way to cover up their offensive actions against the enemy and not a bad way to increase the chance to dodge enemy attacks, since he can not see you in your fog (cost 10 units of manna)'
     nl
     if spellklon > 0:pl'Substitute itself clone, powerful way to avoid enemy attacks substituting itself clone, the enemy gets to clone and not by you, he just wasted power (cost 15 units of manna)'
     nl
     if spellstun > 0:pl'paralyze the enemy, a great way to stop the enemy, he will not be able to defend and attack. ( cost 20 units of manna)'
     nl
     if spellweap > 0 and weapon > 0:pl'Invest in energy weapons '
     if spellwind > 0:pl'blow away the fog, spell dissipating any mist over the battlefield. '
     nl
     if spellklon2 > 0:pl'Substitute itself clones (3 pieces), the enemy will not be able to reach you, until you destroy all of your clones. (cost 45 units of manna)'
     nl
     if spellenergo > 0:pl'Create weak energy shield, spell protects against all attacks of the physical nature, even if the attack of the enemy beyond the capabilities of the shield and shield will be destroyed first strike, you can still protect yourself from damage(cost 50 units of manna)'
     nl
     if spellinit > 0:pl'Write a slight deceleration time, powerful spell allows you to move faster, you will be able to wrest the initiative by means of this spell, that would strike another spell, also increase the probability of hitting, because you will move very quickly (cost 60 units of manna)'
     nl
     if spellhel > 0:pl'Battle Heal, restores or adds 400 health units in exchange for 400 units of manna.'
     nl
     
     if stihia = 1:pl'SPELL elements of fire'
     nl
     if spellfire1 = 1:pl'flame. Inflicts little damage. (cost 10 manna)'
     nl
     if spellfire2 = 1:pl'The release of fire. Caused great damage. (cost 100 manna)'
     nl
     if spellfire3 = 1:pl'fire barrier, creates a shield 750 units. (cost 150 manna)'
     nl
     if spellfire4 = 1:pl'firestorm. Causes great damage, difficult to dodge enemy. (cost 250 manna)'
     nl
     if spellfire5 = 1:pl'Flame Shield, creates a shield 2500 units. (cost 500 manna)'
     nl
     
     if stihia = 2:pl'SPELL element of lightning'
     nl
     if spellele1 = 1:pl'discharge. Inflict damage is very small. (cost 10 manna)'
     nl
     if spellele2 = 1:pl'lightning. Inflicts damage above average. (cost 100 manna)'
     nl
     if spellele3 = 1:pl'electric barrier, creates a shield 1500 units. (cost 150 manna)'
     nl
     if spellele4 = 1:pl'Dance of thousands of birds. Deals very high damage. (cost 250 manna)'
     nl
     if spellele5 = 1:pl'Plyaschuschaya sphere, creates a shield 5000 units. (cost 500 manna)'
     nl
     
     if stihia = 3:pl'SPELL earth element'
     nl
     if spellert1 = 1:pl'quicksand, catches the opponent in quicksand trap and causes little damage. (cost 10 manna)'
     nl
     if spellert2 = 1:pl'active protection, creates a protective sphere of the earth, stone and sand 2500 protection units mana and health, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. (cost 100 manna)'
     nl
     if spellert3 = 1:pl'abyss, earth asunder under their feet enemy inflicting damage is above average . (cost 150 manna)'
     nl
     if spellert4 = 1:pl'absolute protection, creates a huge protective sphere of the earth, which regenerates itself every turn and attack the enemy. (cost 250 manna)'
     nl
     if spellert5 = 1:pl'Sando, two huge slabs emerge from the ground and crushing collapse of the enemy inflicting massive damage and depriving him of the ability to move. cost 500 manna.'
     nl
     
     if stihia = 4:pl'Spells with wind energy'
     nl
     if spellwind1 = 1:pl'gust, causes a very small damage and destroy clones and fog, very difficult to dodge. (cost 10 manna)'
     nl
     if spellwind2 = 1:pl'terrifying pressure, inflicts moderate damage and destroy clones and fog, very difficult to dodge. (cost 100 manna)'
     nl
     if spellwind3 = 1:pl'vacuum sphere, creates a shield 1500 units. (cost 150 manna)'
     nl
     if spellwind4 = 1:pl'vacuum shells, more damage and kills clones and fog, very difficult to dodge. (cost 250 manna)'
     nl
     if spellwind5 = 1:pl'devouring vacuum, sucks shield enemy destroying it whatever strength he was not. (cost 500 manna)'
     nl
     
     if stihia = 5:pl'SPELL element of water'
     nl
     if spellwater1 = 1:pl'creek manna, causes very little damage and absorbs a lot of mana. cost 10 manna.'
     nl
     if spellwater2 = 1:pl'flooding, inflicts moderate damage and absorbs manna above average. cost 100 manna.'
     nl
     if spellwater3 = 1:pl'blister, creates a protective sphere of water 1500 units of protection against all impacts, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. (cost 150 manna)'
     nl
     if spellwater4 = 1:pl'Water shark missile, caused great damage and absorbs a lot of mana. cost 250 manna.'
     nl
     if spellwater5 = 1:pl'The Great Flood, creates a huge field that absorbs water and deflating the enemy manna from it and passing it to strengthen protection. cost 500 manna.'
     nl
     
end
}




$objface={
if glass<=0:
	 if shorthair=0:
	 if hcol = 0 and curly <= 0:VIEW 'picb/hcol.jpg'
	 if hcol = 1 and curly <= 0:VIEW 'picb/hcol1.jpg'
	 if hcol = 2 and curly <= 0:VIEW 'picb/hcol2.jpg'
	 if hcol = 3 and curly <= 0:VIEW 'picb/hcol3.jpg'
	 if hcol = 0 and curly > 0:VIEW 'picb/hcolcurly.jpg'
	 if hcol = 1 and curly > 0:VIEW 'picb/hcolcurly1.jpg'
	 if hcol = 2 and curly > 0:VIEW 'picb/hcolcurly2.jpg'
	 if hcol = 3 and curly > 0:VIEW 'picb/hcolcurly3.jpg'
	 end
	 if shorthair=1:
	 if hcol = 0:VIEW 'picb/SHhcol.jpg'
	 if hcol = 1:VIEW 'picb/SHhcol1.jpg'
	 if hcol = 2:VIEW 'picb/SHhcol2.jpg'
	 if hcol = 3:VIEW 'picb/SHhcol3.jpg'
	 end
end
if glass>0:
     if glass=1:
     VIEW 'picb/nerd.jpg'
     end
     if glass=2:
     	 if hcol = 0:VIEW 'picb/hcolglass.jpg'
	     if hcol = 1:VIEW 'picb/hcolglass1.jpg'
	     if hcol = 2:VIEW 'picb/hcolglass2.jpg'
	     if hcol = 3:VIEW 'picb/hcolglass3.jpg'
     end
end
}

$objbody={
     if musle >= salo:
     !muscular type
         if bedra < 60:
         VIEW 'picb/fit.jpg'
         end
         if bedra >= 60 and bedra < 70:
         VIEW 'picb/fit1.jpg'
         end
         if bedra >= 70 and bedra < 80:
         VIEW 'picb/fit2.jpg'
         end
         if bedra >= 80 and bedra < 90:
         VIEW 'picb/fit3.jpg'
         end
         if bedra >= 90 and bedra < 100:
         VIEW 'picb/fit4.jpg'
         end
         if bedra >= 100 and bedra < 110:
         VIEW 'picb/fit5.jpg'
         end
         if bedra >= 110 and bedra < 120:
         VIEW 'picb/fit6.jpg'
         end
         if bedra >= 120:
         VIEW 'picb/fit7.jpg'
         end
     end
     if musle < salo:
     !bold type
         if bedra < 60:
         VIEW 'picb/body/0.jpg'
         end
         if bedra >= 60 and bedra < 65:
         VIEW 'picb/body/1.jpg'
         end
         if bedra >= 65 and bedra < 70:
         VIEW 'picb/body/2.jpg'
         end
          if bedra >= 70 and bedra < 75:
         VIEW 'picb/body/3.jpg'
         end
         if bedra >= 75 and bedra < 80:
         VIEW 'picb/body/4.jpg'
         end
         if bedra >= 80 and bedra < 85:
         VIEW 'picb/body/5.jpg'
         end
         if bedra >= 85 and bedra < 90:
         VIEW 'picb/body/6.jpg'
         end
         if bedra >= 90 and bedra < 95:
         VIEW 'picb/body/7.jpg'
         end
         if bedra >= 95 and bedra < 100:
         VIEW 'picb/body/8.jpg'
         end
         if bedra >= 100 and bedra < 105:
         VIEW 'picb/body/9.jpg'
         end
         if bedra >= 105 and bedra < 110:
         VIEW 'picb/body/10.jpg'
         end
         if bedra >= 110 and bedra < 115:
         VIEW 'picb/body/11.jpg'
         end
         if bedra >= 115 and bedra < 120:
         VIEW 'picb/body/12.jpg'
         end
         if bedra >= 120:
         VIEW 'picb/body/13.jpg'
         end
     end
}




$objclothes={
clr
if nude = 0:
	 if vatnik = 2:VIEW 'ode/vatnik.jpg'
	 if odetjeans>0:
		 VIEW 'ode/jeans<<numdress>>.jpg'
		 pl'(remaining strength <<jeansH[numdress]>> , The size of the hips <<jeansB[numdress]>>)'
		 end
	 if odetyoga>0:
		 VIEW 'ode/yoga<<numdress>>.jpg'
		 pl'(remaining strength <<yogaH[numdress]>> , The size of the hips <<yogaB[numdress]>>)'
		 end
	 if odetsarafan>0:
		 VIEW 'ode/sarafan<<numdress>>.jpg'
		 pl'(remaining strength <<sarafanH[numdress]>> , The size of the hips <<sarafanB[numdress]>>)'
		 end
	 if odetshort>0:
		 VIEW 'ode/short<<numdress>>.jpg'
		 pl'(remaining strength <<shortH[numdress]>> , The size of the hips <<shortB[numdress]>>)'
		 end
	 if odetskirt>0:
		 VIEW 'ode/skirt<<numdress>>.jpg'
		 pl'(remaining strength <<skirtH[numdress]>> , The size of the hips <<skirtB[numdress]>>)'
		 end
	 if odetdress>0:
		 VIEW 'ode/dress<<numdress>>.jpg'
		 pl'(remaining strength <<dressH[numdress]>> , The size of the hips <<dressB[numdress]>>)'
		 end
	 if odetprofi>0:
		 VIEW 'ode/profi<<numdress>>.jpg'
		 pl'(remaining strength <<profiH[numdress]>> , The size of the hips <<profiB[numdress]>>)'
		 end
	 if odetpants>0:
		 VIEW 'ode/pants<<numdress>>.jpg'
		 pl'(remaining strength <<pantsH[numdress]>> , The size of the hips <<pantsB[numdress]>>)'
		 end
	 if odetlatex>0:
		 VIEW 'ode/latex<<numdress>>.jpg'
		 pl'(remaining strength <<latexH[numdress]>> , The size of the hips <<latexB[numdress]>>)'
		 end
	 if odethooker>0:
		 VIEW 'ode/hooker<<numdress>>.jpg'
		 pl'(remaining strength <<hookerH[numdress]>> , The size of the hips <<hookerB[numdress]>>)'
		 end
	 if odetkis>0:
		 VIEW 'kis/k<<numdress>>.jpg'
		 pl'(remaining strength <<odekisH[numdress]>> , The size of the hips <<odekisB[numdress]>>)'
		 end
	 if odetnewclo>0:
		 VIEW 'ode/newclo/<<numdress>>.jpg'
		 pl'(remaining strength <<newcloH[numdress]>> , The size of the hips <<newcloB[numdress]>>)'
		 end
	 if odetero>0:VIEW 'img/dress/ero<<numdress>>.jpg'
	 end
if nude = 1:
	 pl'You do not wear.'
	 VIEW 'ode/nude.jpg'
	 end
}




$objtattoos={
$tatlipdi={
if tatlip=1:VIEW 'picBody/tatlip1.jpg'
if tatlip=2:VIEW 'picBody/tatlip2.jpg'
if tatlip=3:VIEW 'picBody/tatlip3.jpg'
}
$tatpledi={
if tatplech=1:VIEW 'picBody/tatplech1.jpg'
if tatplech=2:VIEW 'picBody/tatplech2.jpg'
if tatplech=3:VIEW 'picBody/tatplech3.jpg'
if tatplech=4:VIEW 'picBody/tatplech4.jpg'
}
$tatbackdi={
if tatback=1:VIEW 'picBody/tatb1.jpg'
if tatback=2:VIEW 'picBody/tatb2.jpg'
if tatback=3:VIEW 'picBody/tatb3.jpg'
if tatback=4:VIEW 'picBody/tatb4.jpg'
}
$tatupbdi={
if tatupb=1:VIEW 'picBody/tatupb1.jpg'
if tatupb=2:VIEW 'picBody/tatupb2.jpg'
if tatupb=3:VIEW 'picBody/tatupb3.jpg'
if tatupb=4:VIEW 'picBody/tatupb4.jpg'
}
$tatvagdi={
if tatvag=1:VIEW 'picBody/tatvag.jpg'
if tatvag=2:VIEW 'picBody/tatvag2.jpg'
if tatvag=3:VIEW 'picBody/tatvag3.jpg'
if tatvag=4:VIEW 'picBody/tatvag4.jpg'
if tatvag=5:VIEW 'picBody/tatvag5.jpg'
if tatvag=6:VIEW 'picBody/tatvag6.jpg'
}
$tatlegdi={
if tatleg=1:VIEW 'picBody/tatleg1.jpg'
if tatleg=2:VIEW 'picBody/tatleg2.jpg'
if tatleg=3:VIEW 'picBody/tatleg3.jpg'
if tatleg=4:VIEW 'picBody/tatleg4.jpg'
}







clr
if tatlip>0: pl '<a href="exec: dynamic $tatlipdi ">Tattoo on the lip</a>.'
if tatplech>0: pl'<a href="exec: dynamic $tatpledi">Tattoo on shoulder</a>'
if tatback>0: pl'<a href="exec: dynamic $tatbackdi">Tattoo on her back</a>'
if tatupb>0: pl'<a href="exec: dynamic $tatupbdi">Tattoo on lower back</a>'
if tatvag>0: pl'<a href="exec: dynamic $tatvagdi">Tattoo in the groin</a>'
if tatleg>0: pl'<a href="exec: dynamic $tatlegdi">Tattoo on his feet</a>'
if tatvag=0 and tatlip=0 and tatplech=0 and tatback=0 and tatupb=0 and tatleg=0:
pl'You pristine body. Not in terms of debauchery, but in terms of tattoo.'
end
}




$objpirsing={
$dipirsA={
VIEW 'picb/pirsA.jpg'
}
$dipirsB={
VIEW 'picb/pirsB.jpg'
}
$dipirsC={
VIEW 'picb/pirsC.jpg'
}
$dipirsD={
VIEW 'picb/pirsD.jpg'
}
$dipirsE={
VIEW 'picb/pirsE.jpg'
}
$dipirsF={
VIEW 'picb/pirsF.jpg'
}
$dipirsG={
VIEW 'picb/pirsG.jpg'
}
$dipirsN={
VIEW 'picb/pirsN.jpg'
}
clr
if pirsA = 1:pl 'Your tongue pierced and there is inserted a small bar that is constantly felt in the mouth. <a href="exec:dynamic $dipirsA">see</a>'
if pirsB = 1:pl 'You have pierced lower lip and there vdet ring. <a href="exec:dynamic $dipirsB">see</a>'
if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">see</a>'
if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">see</a>'
if pirsE = 1:pl 'In your eyebrow barbell inserted. <a href="exec:dynamic $dipirsE">see</a>'
if pirsF = 1:pl 'You have pierced nipples and they inserted small metal rod. <a href="exec:dynamic $dipirsF">see</a>'
if pirsG = 1:pl 'You have pierced lips on the vagina and inserted back rings. <a href="exec:dynamic $dipirsG">see</a>'
if pirsN = 1:pl 'You pierced navel and there inserted rod. <a href="exec:dynamic $dipirsN">see</a>'
}




$objobnovit={
gs 'stat'
}




$objbloknot={
clr
if housr > 0:pl'You live in a two- room apartment, in a residential area. Payment for the apartment is removed automatically, in total 3000 rubles each 25e number. Plus another bill for the light.'
nl
if workPTU>2:pl'You worked as a teacher at the LycГ©e. Working days Mon-Security, with 14.00 prior_to 16.00. salary 300r/day. dress - office, strict. The road from the apartment to the Lyceum takes 2 hours 10 minutes.'
nl
if work > 0 and workKafe > 0:pl'You are working as a waitress in a cafe. Need to come to work with 11 prior_to 12, working days, Tuesday, Wednesday, Thursday. On the job every day you get tips from customers and salary automatically transferred 25th of.'
nl
if work > 0 and workhosp > 0:pl'You work as a nurse in the clinic. Need to come to work with 8 prior_to 9, during the week. Salary automatically transferred 25th of.'
nl
if work > 0 and worksalon > 0:pl'You work as a masseuse in the cabin. Need to come to work with 9 prior_to 10, working days, Monday, Wednesday, Friday. Salary automatically transferred 25th of.'
nl
if work > 0 and workhosp > 0:pl'You worked as a secretary in the office. Work need to come up 9, during the week. Salary automatically transferred 25th of.'
nl
if work > 0 and tanwork > 0:pl'You work as a governess Tanya. Salary automatically transferred 25th of.'
nl
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if work > 0 and young_shop_work = 1:pl'You work in a store clerk Keys Pussy. Need to come to work in 15, all working days except Saturdays and Sundays. Salary is issued once a week on Fridays.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
nl
if workrin=1:pl'You work in the market in a tent Arthur clothing saleswoman. Work on Tuesdays, Thursday and Saturday, come to 8 hours. The salary depends on sales.'
nl
if stripwork>=1:pl'You work as a stripper, schedule free, every day from 15 prior_to 2x night. Salary only tip.'
nl
if husband>0:pl'Are you married <<husbanday>> days. your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. member <<husDick>> relationship <<husband>>'
if kid>0:pl'Do you have a child <<$kidname>>, age <<kid>> days.'
nl
if $bfsex>0:pl'<<$bfsex>>'
nl
if bfA > 1:pl'your guy <<$boyA>> <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>.<<$boyA>> <<$boyCloA>> relationship <<bfA>>, met <<dayA>> time.'
if harakBoyA = 0 and bfA > 1:pl'He has a calm and self-possessed character.'
if harakBoyA = 1 and bfA > 1:pl'His cheerful and sociable character.'
if harakBoyA = 2 and bfA > 1:pl'His irascible character and hard.'
if bfB > 1:pl'your guy <<$boyB>> <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>.<<$boyB>> <<$boyCloB>> relationship <<bfB>>, met <<dayB>> time.'
if bfC > 1:pl'your guy <<$boyC>> <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>.<<$boyC>> <<$boyCloC>> relationship <<bfC>>, met <<dayC>> time.'
nl
GS 'Menu.Create','zapisMenu'
GS 'Menu.Add','zapisMenu','Recording from avtodatoy','','MenuLoc','zapisosn'
GS 'Menu.Add','zapisMenu','To record on 1th line','','MenuLoc','zapis'
GS 'Menu.Add','zapisMenu','With a red line 1th line','','MenuLoc','ot'
GS 'Menu.Add','zapisMenu','To record on 2th line','','MenuLoc','zapis2'
GS 'Menu.Add','zapisMenu','With a red line 2th line','','MenuLoc','ot2'
GS 'Menu.Add','zapisMenu','To record on 3th line','','MenuLoc','zapis3'
GS 'Menu.Add','zapisMenu','With a red line 3th line','','MenuLoc','ot3'
GS 'Menu.Add','zapisMenu','To record on 4th line','','MenuLoc','zapis4'
GS 'Menu.Add','zapisMenu','With a red line 4th line','','MenuLoc','ot4'
GS 'Menu.Add','zapisMenu','To record on 5th line','','MenuLoc','zapis5'
GS 'Menu.Add','zapisMenu','With a red line 5th line','','MenuLoc','ot5'
GS 'Menu.Add','zapisMenu','To record on 6th line','','MenuLoc','zapis6'
GS 'Menu.Add','zapisMenu','With a red line 6th line','','MenuLoc','ot6'
GS 'Menu.Add','zapisMenu','To record on 7th line','','MenuLoc','zapis7'
GS 'Menu.Add','zapisMenu','With a red line 7th line','','MenuLoc','ot7'
GS 'Menu.Add','zapisMenu','To record on 8th line','','MenuLoc','zapis8'
GS 'Menu.Add','zapisMenu','With a red line 8th line','','MenuLoc','ot8'
GS 'Menu.Add','zapisMenu','To record on 9th line','','MenuLoc','zapis9'
GS 'Menu.Add','zapisMenu','With a red line 9th line','','MenuLoc','ot9'
GS 'Menu.Add','zapisMenu','To record on 10th line','','MenuLoc','zapis10'
GS 'Menu.Add','zapisMenu','With a red line 10th line','','MenuLoc','ot10'

GS 'Menu.Create','disMenu'
GS 'Menu.Add','disMenu','Delete entry to 1th row','','MenuLoc','diszapis'
GS 'Menu.Add','disMenu','Delete entry to 2th row','','MenuLoc','diszapis2'
GS 'Menu.Add','disMenu','Delete entry to 3th row','','MenuLoc','diszapis3'
GS 'Menu.Add','disMenu','Delete entry to 4th row','','MenuLoc','diszapis4'
GS 'Menu.Add','disMenu','Delete entry to 5th row','','MenuLoc','diszapis5'
GS 'Menu.Add','disMenu','Delete entry to 6th row','','MenuLoc','diszapis6'
GS 'Menu.Add','disMenu','Delete entry to 7th row','','MenuLoc','diszapis7'
GS 'Menu.Add','disMenu','Delete entry to 8th row','','MenuLoc','diszapis8'
GS 'Menu.Add','disMenu','Delete entry to 9th row','','MenuLoc','diszapis9'
GS 'Menu.Add','disMenu','Delete entry to 10th row','','MenuLoc','diszapis10'

pl'<a href="exec: gs ''Menu.Call'',''zapisMenu''">to record</a> or <a href="exec: gs ''Menu.Call'',''disMenu''">delete the entry</a>'

pl'<<$zapisOsn>>'
pl'<<$zapis>>'
pl'<<$zapis2>>'
pl'<<$zapis3>>'
pl'<<$zapis4>>'
pl'<<$zapis5>>'
pl'<<$zapis6>>'
pl'<<$zapis7>>'
pl'<<$zapis8>>'
pl'<<$zapis9>>'
pl'<<$zapis10>>'
}




$objavariya={
'<center><B>YOU JUST had to use emergency shutdown of Bagan BLANK SCREEN</B></center>'
*nl
'<center><B>Not use this feature without a good reason, May cause STABLE ERROR who destroyed your saved</B></center>'
*nl

if StoryLine=1:gt 'gorodok'
gt'street'
}




$objnewmenu={
killobj
set oldobjmenu=0
addobj 'character'
addobj 'see'
addobj 'Others'
addobj 'menu'
}




$objoldmenu={
killobj
set oldobjmenu=1
addobj '<font color=green>character</font>'
addobj 'skills'
addobj 'statistics'
addobj 'magic'
addobj 'face'
addobj 'body'
addobj 'clothing'
addobj 'Tattoos'
addobj 'piercing'
if mobila>0:addobj 'phone'
addobj 'notebook'
addobj 'emergency exit'
addobj 'Refresh'
addobj 'menu'
addobj 'The new menu'
}




$menu_character[0] = 'description:$menu_descrip'
$menu_character[1] = 'characteristics_of:$menu_skills'
$menu_character[2] = 'statistics:$menu_statistika'
$menu_character[3] = 'magic:$menu_magic'


$menu_lookon[0] = 'face:$menu_face'
$menu_lookon[1] = 'body:$menu_body'
$menu_lookon[2] = 'clothing:$menu_clothes'
$menu_lookon[3] = 'Tattoos:$menu_tattoos'
$menu_lookon[4] = 'piercing:$menu_pirs'

$menu_other[0] = 'Refresh:$menu_obnovit'
$menu_other[1] = 'notebook:$menu_bloknot'
$menu_other[2] = 'emergency exit:$menu_avariya'
$menu_other[3] = 'old menu:$menu_addoldmenu'
if mobila>0:$menu_other[4] = 'phone:$menu_mobila'

!old menu: beginning
if $selobj = '<font color=green>character</font>': dynamic $objdescrip
if $selobj = 'skills': dynamic $objskills
if $selobj = 'statistics': dynamic $objstatistika
if $selobj = 'magic': dynamic $objmagic
if $selobj = 'face': dynamic $objface
if $selobj = 'body': dynamic $objbody
if $selobj = 'clothing': dynamic $objclothes
if $selobj = 'Tattoos': dynamic $objtattoos
if $selobj = 'piercing': dynamic $objpirsing
if $selobj = 'notebook': dynamic $objbloknot
if $selobj = 'emergency exit': dynamic $objavariya
if $selobj = 'Refresh': gs 'stat'
if $selobj = 'The new menu': dynamic $objnewmenu
!old menu: end

!The new menu: beginning
if $selobj = 'character': menu '$menu_character'
if $selobj = 'see': menu '$menu_lookon'
if $selobj = 'Others': menu '$menu_other'
!The new menu: end

if $selobj='player':
clr
pl'your name <<$name>> <<$surname>>. you <<age>> year_old. <<$vneshPRE>>'
pl'You have short black hair with gray hair gleams starting, little brown eyes and willed jaw covered by blue shaved stubble.'
pl'growth <<rost>> cm, weight 100 kg.'
end

if $selobj='menu':
clr
GS 'Menu.Create','mainMenu'
GS 'Menu.Add','mainMenu','status bar','','MenuMainLoc','0'
GS 'Menu.Add','mainMenu','labels are','','MenuMainLoc','1'
GS 'Menu.Call','mainMenu'
end

unselect


--- onobjsel ---------------------------------

# scale.table
!'
"
Scale rendering using the table:
"

$func ('scale.table',275,420)+' 275/420'
$func ('scale.table',400,420)+' 400/420'
$func ('scale.table',420,420)+' 420/420'
$func ('scale.table',157,420)+' 157/420'
$func ('scale.table',42,420)+'  42/420'
$func ('scale.table',0,420)+'   0/420'

'


! -----scale.table------
args[0] = args[0]	&	! the current value of the parameter
args[1] = args[1]	&	! the maximum value
if args[2] = 0: args[2] = 200	&	! Span (tables) pixels. default 350 px
if $args[3] = "": $args[3]="FF0000"	&	! the color of the filled part of the scale in the format RRGGBB. default - red
! at_first "create" corresponding table
$args['table']='<TABLE width=<<args[2]>> border=0 cellspacing=0 cellpadding=0><TR>'
! calculate the width as a percentage of the filled part
args['x'] = (args[0] * 100) / args[1]
! calculate the percentage widths ullage
args['empty'] = 100 - args['x']
! If the width of the filled part of more than zero percent, added to the table cell with the specified color (red on-default)
if args['x']>0:
	$args['table']+="<TD width=<<args['x']>>% bgcolor=#"+$args[3]+">&nbsp;</TD>"
end
! If the width of the unfilled part of the scale is greater than zero percent, added to the table cell with another color (gray).
if args['empty']>0:
	$args['table']+="<TD width=<<args['empty']>>% bgcolor=#888888>&nbsp;</TD>"
end
! "close" table
$args['table']+='</TR></TABLE>'
! the_result
$result = $args['table']
--- scale.table ---------------------------------

# counter
if music_on <> music_on_prev or $music_theme <> $music_theme_prev:
  	CLOSE $cur_theme[track[$music_theme_prev]]
  	music_on_prev = music_on
  	$music_theme_prev = $music_theme
  	if $music_theme <>'': 
 		copyarr 'cur_theme', 'tracklist_<<$music_theme>>'
  		track[$music_theme] = track[$music_theme]-1
  		if track[$music_theme] < 0:
  			track[$music_theme]=ARRSIZE('cur_theme')
  		end
  	end
end
if music_on=1 and $music_theme <> '':
  	if no isplay ($cur_theme[track[$music_theme]]):
  		track[$music_theme] = track[$music_theme]+1
  		if ARRSIZE('cur_theme')<=track[$music_theme]:track[$music_theme]=0
  	end
  	play $cur_theme[track[$music_theme]],volume
end

!race

if race_start=1:
		bcolor=rgb(255,255,255)
		REFINT
		*clr
		if race_hit=0:
			set race_miss=race_miss+1
			race_hit=1
		end
		
		if $race1[race_row]<>' ' and race_row>0:
			race_hit=0
		end
		'<center><B><<$car>></B></center>'
		!interior of the vehicle and the line route
		*PL $showcar
		*P $race1[race_row]
		
		if $race1[race_row]='<center>-------FINISH--------</center>':
			set race_start=0
			!return timer
			SETTIMER 500
			WAIT 2000
			!return point
			set $metka='finish'
			set $loc='RACE_COUNT'
			GOTO $loc, $metka
		end
		
		race_row=race_row+1
end
--- counter ---------------------------------

# init_music
$tracklist_start[0] = 'pic/muz/start.mp3'

$tracklist_pivbar[0] = 'pic/muz/pivbar.mp3'

$tracklist_kafe[0] = 'pic/muz/kafe.mp3'
$tracklist_kafe[1] = 'pic/muz/kafe1.mp3'

$tracklist_gdis[0] = 'qwest/muz/komb.mp3'
$tracklist_gnewyear[0] = 'qwest/muz/newyear.mp3'
$tracklist_sukizaebali[0] = 'qwest/muz/suki.mp3'

$tracklist_club[0] = 'pic/muz/club.mp3'
$tracklist_club[1] = 'pic/muz/club1.mp3'
$tracklist_club[2] = 'pic/muz/club2.mp3'
$tracklist_club[3] = 'pic/muz/club3.mp3'
$tracklist_club[4] = 'pic/muz/club4.mp3'

$tracklist_fight[0] = 'pic/muz/fight.mp3'
$tracklist_fight[1] = 'pic/muz/fight1.mp3'

$tracklist_orochimaru[0] = 'pic/muz/orochimaru.mp3'

if club=1:
clubrand=rand (0,5)
if clubrand = 0:
$tracklist_club[0] = 'pic/muz/club.mp3'
end
if clubrand = 1:
$tracklist_club[0] = 'pic/muz/club1.mp3'
end
if clubrand = 2:
$tracklist_club[0] = 'pic/muz/club2.mp3'
end
if clubrand = 3:
$tracklist_club[0] = 'pic/muz/club3.mp3'
end
if clubrand = 4:
$tracklist_club[0] = 'pic/muz/club4.mp3'
end
if clubrand = 5:
$tracklist_club[0] = 'pic/muz/club5.mp3'
end
end
--- init_music ---------------------------------

# loadg

--- loadg ---------------------------------

# LOCA




--- LOCA ---------------------------------

# saveg

--- saveg ---------------------------------

# body
if analplugIN = 0:
if anus = 0:anpic=0&set $anus = 'You virgin <a href="exec:view''picb/0.jpg''">anus</a>.'&$anustipe='virgin'
if anus > 0 and anus <= 5:anpic=1&set $anus = 'your <a href="exec:view''picb/1.jpg''">anus</a> looks like a tiny chink.'&$anustipe='tiny'
if anus > 5 and anus <= 10:anpic=2&set $anus = 'your <a href="exec:view''picb/2.jpg''">anus</a> has the shape of an asterisk.'&$anustipe='tight'
if anus > 10 and anus <= 15:anpic=3&set $anus = 'your <a href="exec:view''picb/3.jpg''">anus</a> looks like a slot.'&$anustipe='slightly stretched'
if anus > 15 and anus <= 25:anpic=4&set $anus = 'your <a href="exec:view''picb/4.jpg''">anus</a> looks like a hollow.'&$anustipe='stretched'
if anus > 25 and anus<=35:anpic=5&set $anus = 'your <a href="exec:view''picb/5.jpg''">anus</a> does not close and looks like a red gouging hollow from which regularly fly winds.'&$anustipe='broken-down'
if anus > 35:anpic=6&set $anus = 'your <a href="exec:view''picb/6.jpg''">anus</a> almost completely destroyed and is a shapeless hole.'&$anustipe='destroyed'
end
if analplugIN = 1:
$anus = 'In your <a href="exec:view''picb/analplug.jpg''">anus</a> anal tube inserted.'
end

!'<a href="exec:view''picb/1.jpg''">anus</a>'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!SIZE AND WEIGHT
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if dounspell = 0:
     strenbuf=stren
     vitalbuf=vital
	 set vmeat = strenbuf + vitalbuf
	 set vmeat = vmeat/8
	 set vfat = salo/10
	 set Kves = vmeat + vfat
	 set krost = rost - 130
	 set ves = Kves + krost - (agilbuf/10)
	 set talia = ves - (agilbuf/10)
	 set grudi = talia + 10 + vfat + silicone
	 set bedra = talia + 15 + (vmeat/2) + vfat
	 set titK = grudi - talia
	 if titK <= 10:set tits = 0
	 if titK > 10 and titK <= 15:set tits = 1  
	 if titK > 15 and titK <= 20:set tits = 2
	 if titK > 20 and titK <= 25:set tits = 3
	 if titK > 25 and titK <= 30:set tits = 4
	 if titK > 30 and titK <= 35:set tits = 5
	 if titK > 35:set tits = 6
end
if dounspell = 1:
	 set fat = 0
	 set bedra = bedraDoun
	 set talia = TaliaDoun
	 set grudi = talia + 14 + silicone
	 set ves = TaliaDoun
	 set titK = grudi - talia
	 if titK <= 10:set tits = 0
	 if titK > 10 and titK <= 15:set tits = 1  
	 if titK > 15 and titK <= 20:set tits = 2
	 if titK > 20 and titK <= 25:set tits = 3
	 if titK > 25 and titK <= 30:set tits = 4
	 if titK > 30 and titK <= 35:set tits = 5
	 if titK > 35:set tits = 6
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if hapri = 0:set $hapri = '<B>tangled</B>'
if hapri = 1:set $hapri = 'neatly arranged'
if shorthair=0:
if hcol = 0 and curly <= 0:set $hair = 'you have <<$hapri>> direct, black hair.'
if hcol = 1 and curly <= 0:set $hair = 'you have <<$hapri>> direct, brown hair.'
if hcol = 2 and curly <= 0:set $hair = 'you have <<$hapri>> direct, red hair.'
if hcol = 3 and curly <= 0:set $hair = 'you have <<$hapri>> direct, blond hair.'
if hcol = 0 and curly > 0:set $hair = 'you have <<$hapri>> curly, black hair.'
if hcol = 1 and curly > 0:set $hair = 'you have <<$hapri>> curly, brown hair.'
if hcol = 2 and curly > 0:set $hair = 'you have <<$hapri>> curly, red hair.'
if hcol = 3 and curly > 0:set $hair = 'you have <<$hapri>> curly, blond hair.'
end
if shorthair=1:
hapri = 1
curly=0
if hcol = 0:set $hair = 'You have short black hair.'
if hcol = 1:set $hair = 'You have short brown hair.'
if hcol = 2:set $hair = 'You have short red hair.'
if hcol = 3:set $hair = 'You have short blonde hair.'
end

if lip > 4:set lip = 4
if lip > 4:lip=4
if lip<0:lip=0
if lipbalmstat>0:
if lip = 0:$lipbalmstat=', shiny balm'
if lip = 1:$lipbalmstat=', shiny balm'
if lip = 2:$lipbalmstat=', blestyaschieschie and luscious balm'
if lip = 3:$lipbalmstat='juicy,'
if lip = 4:$lipbalmstat=', shiny'
else
$lipbalmstat=''
end
if pirsA = 1:$pirsA='Sometimes during a conversation in your mouth can be seen <a href="exec:dynamic $dipirsA">tongue piercing</a>.'
if pirsA = 0:$pirsA=''
if pirsB = 1:$pirsB='The lower lip is pierced and it vdet ring.'
if pirsB = 0:$pirsB=''
if lip = 0:set $lip = 'Do you thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>'&$liptalk='thin lips'&$liptalk2='thin lips'&$liptalk3='thin lips'
if lip = 1:set $lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>'&$liptalk='soft lips'&$liptalk2='tender lips'&$liptalk3='tender lips'
if lip = 2:set $lip = 'You plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>'&$liptalk='plump lips'&$liptalk2='plump lips'&$liptalk3='plump lips'
if lip = 3:set $lip = 'You have large, <<$lipbalmstat>> plump lips. <<$pirsB>> <<$pirsA>>'&$liptalk='plump lips'&$liptalk2='plump lips'&$liptalk3='plump lips'
if lip = 4:set $lip = 'Do you have thick and huge <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>'&$liptalk='thick lips'&$liptalk2='thick lips'&$liptalk3='thick lips'
if tan <= 0:set $tan = 'pale'
if tan > 0:set $tan = 'Tanned'
if skin > 4:set skin = 4
if skin<0:skin=0
if pirsC = 1:$pirsC='His ears dangle earrings.'
if pirsC = 0:$pirsC=''
if pirsD = 1:$pirsD='In your nose ring is inserted.'
if pirsD = 0:$pirsD=''
if pirsE = 1:$pirsE='Your eyebrow pierced and there is inserted the rod.'
if pirsE = 0:$pirsE=''
if skin = 0:set $skin = 'Your <<$tan>> the skin is not smooth and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
if skin = 1:set $skin = 'Your <<$tan>> the skin is not smooth and something where you can see pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
if skin = 2:set $skin = 'Your <<$tan>> the skin is not smooth, but acne is not visible. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
if skin = 3:set $skin = 'you have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
if skin = 4:set $skin = 'you have <<$tan>>, smooth as glass and silky to the touch. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
if glacol = 0:set $glacol = 'brown'
if glacol = 1:set $glacol = 'gray'
if glacol = 2:set $glacol = 'green'
if glacol = 3:set $glacol = 'blue'
if resnic > 2:set resnic = 2
if resnic = 0:set $resnic = 'with short lashes'
if resnic = 1:set $resnic = 'with normal long eyelashes'
if resnic = 2:set $resnic = 'with long eyelashes'
if brow=0 and browper=0:$brow='little neat eyebrows'
if brow>0 and browper=0:$brow='groomed eyebrows'&brokoef=1
if browper>0:$brow='permanent tattoo eyebrows'&brokoef=2

if glass<=0:$glass=''&glassvnesh=0
if glass=1:$glass=' You wear silly glasses in a cheap frame.'&glassvnesh=10
if glass=2:$glass=' Do you wear glasses.'&glassvnesh=5


if glaraz > 3:set glaraz = 3
if glaraz = 0:set $glaza = 'You have little <<$glacol>> eyes, <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 1:set $glaza = 'You expressive <<$glacol>> eyes, <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 2:set $glaza = 'You have more <<$glacol>> eyes, <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 3:set $glaza = 'You have huge <<$glacol>> eyes, <<$resnic>> and <<$brow>>.<<$glass>>'

if mop = 0:set $mop = '<B><font color=red>You have flowed makeup.</font></B>'
if mop = 1:set $mop = 'You have no makeup'
if mop = 2:set $mop = 'You light makeup'
if mop = 3:set $mop = 'You have the normal makeup'
if mop = 4:set $mop = 'You have a bright, causing makeup'

if leghair <= 0:set legkoef = 3&set $leghair = 'You have smooth legs.' 
if leghair > 0 and leghair <= 2:set legkoef = 0&set $leghair = 'You do not see with our eyes but rough to the touch stubble on his feet.' 
if leghair > 2 and leghair <= 5:set legkoef = 0&set $leghair = 'You clearly visible thin hairs on the legs.'
if leghair > 5:set legkoef = 0&set $leghair = 'Do you have long hair standing out on his feet.' 

if pirsG = 1:$pirsG='On the lips of the vagina hanging rings.'
if pirsG = 0:$pirsG=''

if lobok <= 0:set lobkoef = 3&set $lobok = 'You smooth, <a href="exec:view''picb/pussy.jpg''">shaved pubis</a>. <<$pirsG>>'
if lobok > 0 and lobok <= 2:set lobkoef = 0&set $lobok = 'you have <a href="exec:view''picb/spussy.jpg''">not a big pubic hair</a>. <<$pirsG>>'
if lobok > 2:set lobkoef = 0&set $lobok = 'you have <a href="exec:view''picb/hpussy.jpg''">hairy pubis</a>. <<$pirsG>>'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set bodytipe = bedra - talia
if bodytipe < 20:set bodykoef = 0
if bodytipe >= 20 and bodytipe < 25:set bodykoef = 2
if bodytipe >= 25 and bodytipe < 30:set bodykoef = 4
if bodytipe >= 30 and bodytipe < 35:set bodykoef = 8
if bodytipe >= 35:set bodykoef = 4
if tan > 0:set tanKoef = 1
if tan = 0:set tanKoef = 0

if curly>0:curlykoef=1
if curly=0:curlykoef=0

if sweat<=0:sweatKoef=0
if sweat>0:sweatKoef=sweat*5

if lipbalmstat>0:
lipbalmKoef=1
else
lipbalmKoef=0
end
if vidage<21:vidagebonus=0
if vidage>=21 and vidage<26:vidagebonus=1
if vidage>=26 and vidage<30:vidagebonus=3
if vidage>=30 and vidage<34:vidagebonus=6
if vidage>=34 and vidage<36:vidagebonus=9
if vidage>=36 and vidage<38:vidagebonus=12
if vidage>=38 and vidage<40:vidagebonus=16
if vidage>=40 and vidage<45:vidagebonus=25
if vidage>=45:vidagebonus=50

if age<18:leghair=-5

set vnesh = (curlykoef + tits + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + lobkoef + odevnesh + hapri + bonusZ + lipbalmKoef + brokoef) - (sweatKoef+vidagebonus) - (zub*2) - glassvnesh
if vnesh<0:vnesh=0
if StrongNarkota<=0:
if SNarkTimes>=3 and SLomka=0:SLomka=1
if Gerpes >= 3 or Sifilis>=21 or Triper>2:vnesh=-10
end
if StrongNarkota>0:
if SLomka>0:SLomka=0
manna = (intel*magik) + magik*100 + vital*10 + rikudo
end
if vnesh=-10:set $vnesh = 'Do you see signs of venereal disease. Therefore.'
if vnesh < 5 and vnesh>-10:set $vnesh = 'You have a terrible appearance. Guys shy away from you.'
if vnesh >= 5 and vnesh < 15:set $vnesh = 'You greyish appearance. You guys almost do not notice.'
if vnesh >= 15 and vnesh < 30:set $vnesh = 'You have good looks. Guys often pay attention to you.'
if vnesh >= 30 and vnesh < 50:set $vnesh = 'You have a stunning appearance. Guys are constantly seeing you turn.'
if vnesh >= 50:set $vnesh = 'You simply divine appearance. Boys do fall at your feet.'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!BODY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
musle=strenbuf+vitalbuf
     if musle >= salo:
     !muscular type
         if bedra < 60:
         set $body = 'You really are thin, fat on the body is almost no, protrude through the skin muscles.'
         end
         if bedra >= 60 and bedra < 70:
         set $body = 'You really are thin, fat on the body is almost no, protrude through the skin muscles.'
         end
         if bedra >= 70 and bedra < 80:
         set $body = 'you are thin, fat on the body is almost no, protrude through the skin muscles.'
         end
         if bedra >= 80 and bedra < 90:
         set $body = 'you are thin, fat on the body is almost no, protrude through the skin muscles.'
         end
         if bedra >= 90 and bedra < 100:
         set $body = 'you are thin, fat on the body is almost no, through the skin are the large muscles.'
         end
         if bedra >= 100 and bedra < 110:
         set $body = 'Fat on the body is almost no, through the skin are the large muscles.'
         end
         if bedra >= 110 and bedra < 120:
         set $body = 'Fat on the body is almost no, through the skin is a massive muscles.'
         end
         if bedra >= 120:
         set $body = 'Fat on the body is almost no, through the skin is a massive muscles.'
         end
     end
     if musle < salo:
     !bold type
         if bedra < 60:
         set $body = 'You really are thin and have virtually no muscle.'
         end
         if bedra >= 60 and bedra < 70:
         set $body = 'You are a very thin girl, with a small soft ass and you are virtually no muscle.'
         end
         if bedra >= 70 and bedra < 80:
         set $body = 'You are very slim girl.'
         end
         if bedra >= 80 and bedra < 90:
         set $body = 'You slender girl.'
         end
         if bedra >= 90 and bedra < 100:
         set $body = 'You shapely girl.'
         end
         if bedra >= 100 and bedra < 110:
         set $body = 'You formastaya girl.'
         end
         if bedra >= 110 and bedra < 120:
         set $body = 'You zhirnovat girl.'
         end
         if bedra >= 120:
         set $body = 'You are very fat.'
         end
     end
     $fat = $body
--- body ---------------------------------

# cikl
!cycles
if curly > 0:set curly = curly - 1
set sweat = sweat + 1
if tan > 0:set tan = tan - 1
if tabletki > 0:set tabletki = tabletki - 1
set leghair = leghair + 1
set lobok = lobok + 1
if suhbelo > 0:set suhbelo2 = suhbelo&set suhbelo = 0
set manna = manna - 10

!'if salo>fat:
salo-=1
fat+=1
end
if salo<fat:
salo+=1
fat-=1
end
if strenbuf>stren:set strenbuf-=1
if strenbuf<stren:set strenbuf+=1
if vitalbuf>vital:set vitalbuf-=1
if vitalbuf<vital:set vitalbuf+=1
if agilbuf>agil:set agilbuf-=1
if agilbuf<agil:set agilbuf+=1'

if anus > 1 and anusK<0:set anusK = 0
if anus > 1 and anusK<3:set anusK += 1
if anus > 1 and anusK>=3:set anus = anus - 1 & set anusK=0
if vagina > 10 and vaginaK < 0:set vaginaK = 0
if vagina > 10 and vaginaK < 6:set vaginaK = vaginaK + 1
if vagina > 10 and vaginaK >= 6:set vaginaK = 0 & set vagina = vagina - 1

set lipkoef = lipkoef - 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!jobs
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!RELEASE STRIP
if isprok = 1:Set isprok = 0&'You kicked use tampons.'

!CYCLE 28 days 4 days mentsruatsiya
if preg = 0:
if mesec > 0:Set mesec = mesec - 1
if mesec = 0:Set cikl = cikl + 1
if cikl >= 23 and preg ! 1:Set mesec = 4&Set cikl = 0 
end
if preg = 1 and pregtime < 280:
set pregtime = pregtime + 1
if pregTimes=0:pregTimes=1
end

if preg = 1 and pregtime = 280 and hourpreg!hour:
hourpreg=hour
'<center><B>Sharply pushed into the stomach . Damn, you water broke! It is urgent to the clinic!</B></center>'
end

if preg = 1 and pregtime > 280:
cla
*clr
set over = 4
'<center><B>A terrible pain shot through the abdomen you</B></center>'
xgt'gameover'
exit
end

if StoryLine=0:
if horny < 100:set horny = horny + vagina
end
if StoryLine>0:
     if vagina=0:
     razeba=0
         if horny>0 and horny<=50:horny-=10
         if horny>50:horny-=25
     end
     if vagina>0:
         if pregTimes=0:
             if age<18:
             razeba=1
             if horny>0 and horny<=50:horny-=5
             if horny>50 and horny<80:horny-=10
             if horny>=80:horny-=20
             end
             if age>=18 and age<21:
             razeba=2
             if horny>0 and horny<=50:horny-=1
             if horny>50 and horny<80:horny-=5
             if horny>=80:horny-=10
             end
             if age>=21 and age<25:
             razeba=3
             if horny>0 and horny<=50:horny+=1
             if horny>50 and horny<80:horny-=1
             if horny>=80:horny-=5
             end
             if age>=25 and age<30:
             razeba=4
             if horny>0 and horny<=50:horny+=5
             if horny>50 and horny<80:horny+=1
             if horny>=80:horny-=5
             end
             if age>=30:
             razeba=5
             if horny>0 and horny<=50:horny+=10
             if horny>50 and horny<80:horny+=5
             if horny>=80:horny+=1
             end
         end
         if pregTimes>0:
             if preg=0:
             razeba=5
             if horny>0 and horny<=50:horny+=10
             if horny>50 and horny<80:horny+=5
             if horny>=80:horny+=1
             end
             if preg>0:
             razeba=6
             if horny < 100:set horny = horny + (pregtime/10)
             end
         end
     end
end
if horny < 0:set horny = 0


if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
!Fall muscularity
     if downmusl>=5:
     downmusl=0
	 set stren = stren - 1
	 set vital = vital - 1
	 set fat = fat + 4
	 salo+=4
	 else
	 downmusl+=1
	 end
end

gs'starenie'
--- cikl ---------------------------------

# dina
gs'dinSex'
gs'dinBoroda'

$d_read_porn={
act'Read porn magazine':
cls
'<center><img src="qwest/alter/porn.jpg" ></center>'
     if pornMagazine=1:
     'skukota, this magazine you`ve memorized by heart, think it`s time to buy a new one.'
     else
     pornMagazine-=1
     horny+=10
     minut+=5
     gs'stat'
     'You pornozhurnal flipping through reading stories and looking at pictures, sly excitement begins to cover you.'
     end
act 'Go_Out':gt $curloc
end
}

$sitrobrd={
 cla
 *clr
 set minut = minut + 15
 set obruchday = day
 set agil = agil + 1
 set sweat = sweat + 1
 set manna = manna - 1
 set fat = fat - 1
 '<center><img src="pic/obruch.gif" ></center>'
 'You twisted hoop for fifteen minutes developing agility.'
 act 'Go_Out':gt $curloc
}

$sitryogd={
 cla
 *clr
 set minut = minut + 15
 set bookYogday = day
 set will = will + 1
 set manna = manna + 5
 '<center><img src="pic/bookYog.jpg" ></center>'
 'You meditate for fifteen minutes will developing.'
 act 'Go_Out':gt $curloc
}

$sitrskakd={
 cla
 *clr
 set minut = minut + 15
 set skakday = day
 set speed = speed + 1
 set sweat = sweat + 1
 set manna = manna - 1
 set fat = fat - 1
 '<center><img src="pic/skak.jpg" ></center>'
 'You are within fifteen minutes jumped rope accelerating momentum.'
 act 'Go_Out':gt $curloc
}

$sitrpressd={
 cla
 *clr
 set minut = minut + 15
 set pressday = day
 set vital = vital + 1
 set sweat = sweat + 1
 set manna = manna - 1
 set fat = fat - 1
 '<center><img src="pic/press.jpg" ></center>'
 'You do abdominal exercises for fifteen minutes developing endurance.'
 act 'Go_Out':gt $curloc
}

$sitrpushd={
 cla
 *clr
 set minut = minut + 15
 set pushday = day
 set stren = stren + 1
 set sweat = sweat + 1
 set manna = manna - 1
 set fat = fat - 1
 '<center><img src="pic/push.jpg" ></center>'
 'You press the floor for fifteen minutes developing force.'
 pushnum=RAND(stren/10,stren/5)
 'You managed to clean wrung <<pushnum>> time. Your record before wrung <<pushrecord>> time'
 if pushrecord<pushnum:pushrecord=pushnum&'This new record.'
 act 'Go_Out':gt $curloc
}
$gladbelo={
 cla
 *clr
 set minut = minut + suhbelo2*3
 set clrbelo = clrbelo + suhbelo2
 set suhbelo2 = 0
 set manna = manna - 10
 set elektro = elektro + 10
 '<center><img src="pic/belo.jpg" ></center>'
 'You stroked underwear.'
 act 'Go_Out':gt $curloc
}
 $showerdin={
 set cumpussy = 0
 set cumbelly = 0
 set cumass = 0
 set cumanus = 0
 set cumlip = 0
 set cumface = 0
 set cumanus =0
 }
$kiosksig={
cls
'Pack of cigarettes costs 50 rubles.'
     if money>=50:
         act 'Buy a pack of cigarettes':
         siga+=20
         money-=50
         minut+=5
         gt $curloc
         end
     end
     act 'Get_Away':gt $curloc
exit
}

$budilnik={
'<B><center><font size=4><font color=black>   alarm_clock</font></center></B>'
'Service on the wound <<alarm1>> hours <<alarm2>> minutes'
'<B><center><font size=3><font color=black>      Hours Minutes</font></center></B>'
'<center><a href="exec:set alarm1 = 01 & gt $curloc">01</a>  <a href="exec:set alarm1 = 02 & gt $curloc">02</a>  <a href="exec:set alarm1 = 03 & gt $curloc">03</a>  <a href="exec:set alarm1 = 04 & gt $curloc">04</a>  <a href="exec:set alarm1 = 05 & gt $curloc">05</a>                                  </center>'
'<center><a href="exec:set alarm1 = 06 & gt $curloc">06</a>  <a href="exec:set alarm1 = 07 & gt $curloc">07</a>  <a href="exec:set alarm1 = 08 & gt $curloc">08</a>  <a href="exec:set alarm1 = 09 & gt $curloc">09</a>  <a href="exec:set alarm1 = 10 & gt $curloc">10</a>          <a href="exec:set alarm2 = 00 & gt $curloc">00</a>  <a href="exec:set alarm2 = 05 & gt $curloc">05</a>  <a href="exec:set alarm2 = 10 & gt $curloc">10</a>  <a href="exec:set alarm2 = 15 & gt $curloc">15</a></center>'
'<center><a href="exec:set alarm1 = 11 & gt $curloc">11</a>  <a href="exec:set alarm1 = 12 & gt $curloc">12</a>  <a href="exec:set alarm1 = 13 & gt $curloc">13</a>  <a href="exec:set alarm1 = 14 & gt $curloc">14</a>  <a href="exec:set alarm1 = 15 & gt $curloc">15</a>          <a href="exec:set alarm2 = 20 & gt $curloc">20</a>  <a href="exec:set alarm2 = 25 & gt $curloc">25</a>  <a href="exec:set alarm2 = 30 & gt $curloc">30</a>  <a href="exec:set alarm2 = 35 & gt $curloc">35</a></center>'
'<center><a href="exec:set alarm1 = 16 & gt $curloc">16</a>  <a href="exec:set alarm1 = 17 & gt $curloc">17</a>  <a href="exec:set alarm1 = 18 & gt $curloc">18</a>  <a href="exec:set alarm1 = 19 & gt $curloc">19</a>  <a href="exec:set alarm1 = 20 & gt $curloc">20</a>          <a href="exec:set alarm2 = 40 & gt $curloc">40</a>  <a href="exec:set alarm2 = 45 & gt $curloc">45</a>  <a href="exec:set alarm2 = 50 & gt $curloc">50</a>  <a href="exec:set alarm2 = 55 & gt $curloc">55</a></center>'
'<center><a href="exec:set alarm1 = 21 & gt $curloc">21</a>  <a href="exec:set alarm1 = 22 & gt $curloc">22</a>  <a href="exec:set alarm1 = 23 & gt $curloc">23</a>  <a href="exec:set alarm1 = 00 & gt $curloc">00</a>                                  </center>'
}
$margoroomdiDush={
cls
minut+=15
QWdogreiqTimer=7
QWdogReiq=2
gs'stat'
'You undress and go to the track for Margarita in shower.You do not really have time to Pick up the bathroom as Marguerite in pilas in your lips with a kiss.'
act 'Lick my nipples':
cls
minut+=15
horny+=50
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo2.jpg" ></center>'
'Margaret took the swollen nipples on the next SG in the mouth, having begun to lick them and biting their sharp little teeth'
act 'to carry out its':gt'korr'
end

act 'Lick my vagina':
cls
minut+=15
horny+=20
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo3.jpg" ></center>'
'Margaret kneels and nachenaet his tongue oblizovat vagina,by its action on the body run by nice body wave.'
if horny>=90:horny=0&orgasm+=1&'You covered orgasm.'
act 'to carry out its':gt'korr'
end

act 'Lick my ass':
cls
minut+=15
horny+=20
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo4.jpg" ></center>'
'nimble and agile tongue Margarita began oblizovat anus,causing a pleasant languor in all body,Margarita it seemed a little hole she slowly inserted a finger in the ass and started to make rhythmic movements.'
if horny>=99:horny=0&orgasm+=1&'You covered orgasm.'
act 'to carry out its':gt'korr'
	 if anus>15 and horny>0:
		 act 'Shove me in the priest `s hand':
		 cls
		 minut+=15
		 horny+=60
		 anus+=5
		 gs'stat'
		 '<center><img src="zoo/margo5.jpg" ></center>'
		 'First one paeets, then two, three and so the whole arm is entirely. She quickly found herself in the depths of ass. That`s incredible. I still had no hand entirely. And so it happened. Margarita penetrated deeper and deeper . Polly took a supple hand .was incredibly well. She massaged me inside, like a real iskusstnitsa, causing me to moan loudly and wagging with pleasure his ass.'
		 if horny>=90:horny=0&orgasm+=1&'You covered orgasm.'
		 act 'to carry out its':gt'korr'
		 end
	 end
end

}


$margoroomdi3={
cls
minut+=15
gs'stat'
'You undress and go to the track for Margarita in shower.You do not really have time to Pick up the bathroom as Marguerite in pilas in your lips with a kiss.'
act 'Lick my nipples':
cls
minut+=15
horny+=50
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo2.jpg" ></center>'
'Margarita took your swollen nipples on the next in the mouth, having begun to lick them and biting their sharp little teeth'
act 'Go into the room':dynamic $margoroomdi2
end

act 'Lick my vagina':
cls
minut+=15
horny+=20
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo3.jpg" ></center>'
'Margaret kneels and nachenaet his tongue oblizovat vagina,by its action on the body run by nice body wave.'
if horny>=90:horny=0&orgasm+=1&'You covered orgasm.'
act 'Go into the room':dynamic $margoroomdi2
end

act 'Lick my ass':
cls
minut+=15
horny+=20
if MargoSex=0:MargoSex=1&girl+=1
lesbian+=1
gs'stat'
'<center><img src="zoo/margo4.jpg" ></center>'
'nimble and agile tongue Margarita began oblizovat anus,causing a pleasant languor in all body,Margarita it seemed a little hole she slowly inserted a finger in the ass and started to make rhythmic movements.'
if horny>=99:horny=0&orgasm+=1&'You covered orgasm.'
act 'Go into the room':dynamic $margoroomdi2
	 if anus>15 and horny>0:
		 act 'Shove me in the priest `s hand':
		 cls
		 minut+=15
		 horny+=60
		 anus+=5
		 gs'stat'
		 '<center><img src="zoo/margo5.jpg" ></center>'
		 'First one paeets, then two, three and so the whole arm is entirely. She quickly found herself in the depths of ass. That`s incredible. I still had no hand entirely. And so it happened. Margarita penetrated deeper and deeper . Polly took a supple hand .was incredibly well. She massaged me inside, like a real iskusstnitsa, causing me to moan loudly and wagging with pleasure his ass.'
		 if horny>=90:horny=0&orgasm+=1&'You covered orgasm.'
		 act 'Go into the room':dynamic $margoroomdi2
		 end
	 end
end

}
$margoroomdi2={
cls
minut+=15
gs'stat'
'-I`m ready:Margarita says entering the room
very good,proceed-you reply Margarita.'

act 'Suck in males':
cls
minut+=15
horny+=30
gs'stat'
'<center><img src="zoo/margo6.jpg" ></center>'
'Margot leaning towards male and located at convenient starts sucking him. Finally.'
     act 'Insert dick in her ass dog.':
	 cls
	 minut+=15
	 horny+=30
	 gs'stat'
	 '<center><img src="zoo/anal.jpg" ></center>'
	 'Maragrita gets on chetverenki, and you are a member of the deflected directly into her anus, pochuvstovat that is in the anus cable nachel rhythmic action 2 times faster, Margarita has squealed as the most natural bitch.'
	 'Suddenly Margarita and sobbed as sharply moaned nadtyazhno,and her eyes rolled tears.
Margaret,what happened-you came closer.
The light in me -Suffice it to say Margarita and licked her lips-unusual feelings,what-then put pressure on the walls of the anus,turns odnovremnno painful and pleasant,I did not yet ispytovala.
yes_they_are,unusual and pleasant feelings,Then I completely agree Stobo,Just do not make any sudden movements dog may jerk and break you,your wonderful ass-vyreshili show little concern with respect to Margarita.
Light you know I looked so there zooporno girl 19 years for pools overlook 3 hours 17 males,then she ate moved-Margarita licked her lips:this will trenirovatsya that would kill her record.
Rit,you`re like a little this video certainly postonovochnoe-skeptical otveteli you
No light this video my father personally zakazaval for yourself-Margaret tried to change position but the dog viciously zarychla,and Margaita left poytki be freed-so that not any postovki.
unexpected node in the anus Margarita opal,and a member of the dog with a strange sound "Chalk"popped.Ass margaritas flowed sperm peremeshku blood.
ohrenet-Margarita delighted-I am now going to the zoo often proktikovat,bath and all I `m going home.'
     act 'Go to the shower together with Margarita':dynamic $margoroomdiDush
	 end
end
}
$margoroomdi={
cls
minut+=15
gs'stat'
'YOU just a little ajar and look for it but nothing happens Margarita just to clean.You note that her beautiful body.'
act 'Go into the room':dynamic $margoroomdi2
}
$margokafedin={
cls
minut+=15
gs'stat'
'<center><img src="zoo/margo.jpg" ></center>'
'You are going to but then called the waitress at Cafe Margarita comes,you noticing it immediately comes to your table.
Hi,unforeseen circumstances-Margarita sits at the table.'
if MargoSex=0:
'And so ochem you wanted to talk to me?once you have taken the bull by the horns.
About zoosekse,you`re practicing it?-asked Margarita
Yes_I_Am,no,you cares?-You have decided to show a bit of character
I like the zoo -Margarita said the last words are not sure - I would like to try.
Do you have a dog? - Her words have amused, cause slight smirk
In that case there is no, I live with my parents  - uttering these words Marguerite sad sigh.
And you want to go under my dog? - You have already undisguised sarcasm.
Well yes - Margarita missed your sarcasm on deaf ears'
else
'You sat down at a table with Margot and she admitted that she liked with the dog and she wants more.'
end
     act 'disassemble itself (Get_Away)':gt'street'
     
     if husbandMark<=0 and husband<=0:
		 act 'Come then to me':
		 cls
		 minut+=15
		 gs'stat'
		 'You and Margarita got up from the table and went to your house. Already in the apartment Margarita went to the shower.'
			 act 'Peek into the soul':dynamic $margoroomdi
			 act 'Wait in the room':dynamic $margoroomdi2
			 if horny>=50:act 'Login to Margarita in shower':dynamic $margoroomdi3
		 end
     end
}

$butikreiqdi={
cls
minut+=5
gs'stat'
'Began to turn his head,you nobody unnoticed,but your actions have attracted dealer Online,Seller young girl in a little too narrow shirt logotpom Boutique,besides that her shirt was testnovata so had to unbutton the top button and(MDA-you will think whether it is male boutique shirt obtyag would be understandable,but in the female?what and what they think the administration?) coming to you a little inconsistent and quickly asks:
seller:I can tell you what a help?'
act 'No, thank_you':gt'butik','start'
act 'silently leave':gt'down'
     act 'Staring at her breasts':
     cls
     minut+=5
     horny+=50
     gs'stat'
     'Seeing that the saleswoman novichik and you will most likely her first client decided on it poizgolyatsya.You just opened my mouth to say that what a sharp phrase, eyes rested on his chest. Bra ,and even though it was visible only the upper part of the chest,your imagination to finish everything for you.(I wonder what her nipples?neozhidonno flashed in the brain)
-yes_they_are,goaorite you spare me a few minutes of your time.
Your words made impressions going on saleswoman,She was embarrassed and blushed slightly.
YES_I_AM,Yes_I_Am,YES_I_AM-she set off:what exactly color dress,shape the neckline of the dress,you freer dress or turnover YOU want pocherknut your perfect figure?
stop,stop-you say :firstly as I seek to Kvam You`re all the same person and not an impersonal suschesstvo?Your words made the girl vpechetlenie,ord yavna flattered by your words.
Irene-says the girl,and then poprovlyaetsya:seller-consultant Rima.
I can call you Rimma?you ask-and my name is Light
Yes of course as you see fit-Rima meets you and timidly smiling.'
         act 'Choose a dress with Rimma':
         cls
         minut+=5
         gs'stat'
             if hapri=1 and mop>1 and leghair <= 0 and sweat<=0 and curly>0 and glamur>0: 
             'You vybiraeet things evaluate them together with Rimma and just hanging out
Rimma,where the fitting room?suddenly you ask
Let`S_Go-Rima herself as invisible barrier between you gone:Seller Buyer.'
                 act 'Go to the fitting room':
                 cls
                 minut+=5
                 gs'stat'
                 'You together with Rimma went into the fitting room.'
					 act 'You do not like it.':
					 cls
					 minut+=5
                     gs'stat'
					 'As a result.In my head 2 thoughts:Rimma,and imeeno her body and curious observer mysterious.'
					 'You go home again suddenly feel eyes on me'
						 act 'ignore':gt'down'
						 
						 act 'look_around':
						 cls
						 minut+=5
						 gs'stat'
						 'You began to sharply turn my head looking around.'
						 'You notice that the girl looks at you.'
							 act 'Approach it':
							 cls
							 minut+=5
							 gs'stat' 
							 'You are silent approach and rests in the eye Woman:

	good afternoon-it is pronounced-You do not remember me?
	no-You`re a little radrazheny-should?
	The girl did not like not responding nawashi sharpness
	In principle?-should not-meets girl
	What is the situation where when?you will not hide the anger.
	Yes, where you "fun" with dog-she replied with a grin.'
								 act 'Yes you oherela! (Get_Away)':gt'down'
								 
								 act 'extort taken in head? What do you want?':
								 cls
								 minut+=5
								 QWdogReiq=2
								 QWdogreiqTimer=7
							     gs'stat' 
							     'Decided to blackmail me?one hand plucking at the clitoris other rented?and how much you want?viciously proiznositi you:while they themselves think how much it wants to damn. '
							     'Again.bowing his head to the side : Tantrum finished?'
							     'You testily told her that even not yet started hysteria.'
							     'NO,until you are on the nerves let`s meet next week-suddenly the girl is pronounced.
come_on-You usalo shook his head.
That`s good my name is Margarita-says the girl and looks at you expectantly.
Svetlana-you reply.
Before meeting-says Margarita and leaves.'
							         act 'Get_Away':gt'down'
								 end
							 end
						 end
					 end
					 
					 act 'Take off her panties before Rimma.':
					 cls
					 minut+=5
                     gs'stat'
					 'You took off her panties in front of Rimma and noticed how her reddened cheeks and quickened breath.'
					     act 'Do you like me?':
						 cls
						 minut+=5
						 orgasm = orgasm + 1
                         horny = 0
                         lesbian+=1
                         if RimmaSex=0:RimmaSex=1&girl+=1
                         rimmaday=day
						 gs'stat'
						 '<center><img src="zoo/primer.jpg" ></center>'
						 'Rimma,do you like me?you quietly ask a question
yes_they_are,very_much-Rima meets with excitation
Then I lick-require you
Rima kneels down and begins to kiss not very skillfully body,Starting with her вЂ‹вЂ‹belly began to kiss timid turn into a more confident,covering potsuluyaim and oblizovaya language, Rima reached the wet mound.Pubis and kissed his oblizov,Rimma it slightly prikusla.surprise the body flowed sweet languor.
-smell what you smell-Rimma for a few seconds looked up from petting.
After spending the right palm gently on the pubis Rima fingers spread her moist lips,stuck out her tongue and ran it inside.
Soft reciprocating action of the tongue on the clitoris Rima vyzyvli,mild spasmodic excitement.Rima suddenly became tongue on clit nadavlevat.The body is slightly longer obeyed,in the brain stoyalla only one program does not moan for the whole store.
Your body suddenly became sotresat wave spasms,the last spasm came Orgasm.Weak moan you knelt.
You are in the light of prostration,and the body in a pleasant languor.'
                             act 'Get out of the fitting room':
						     cls
						     minut+=5
						     QWdogReiq=2
							 QWdogreiqTimer=7
                             gs'stat'
                             'Rima escorts you to the door.
light,did you like it-Rima asked .
What do you think?drove me-You crave to continue.
No I cant wait for parents-telling you it looks Rima rastroennyh
Then meet next week?-ozvuchevaete offer
come_on-Rima looks very satisfied.
You go home,suddenly behind a woman`s voice:
have a good night-priznesla stranger.
Looking closely you recognize her girl wasteland.
hello-You responded fun-are you hush the whole day watching?
Yes_I_Am-she smiled-I saw you in the boutique,go there and that`s undecided decided to wait for you outside.
but why wait?Ask your urgent problem
now it is too late let`s meet next week and talk-vyzhydyusche girl looks at you
come_on-readily agreed to you-By the way my name is Light
Margaret-had the girl'
                                 act 'Get_Away':gt'down'
						     end
						 end
					 end
				 end
             else
             'You Rimma perereberaete dress,but could not find.you leave,Rima is not a lot of sad saying goodbye to you'
             act 'Get_Away':gt'down'
             end
         end
     end

}


$polactdog={
cls
streetdogday=day
!if QWdogReiq=0:QWdogReiq=1&QWdogreiqTimer=7
zoo+=1
minut+=10
gs'stat'
'<center><img src="zoo/first.jpg" ></center>'
'After looking around and making sure that no one has you take off clothes:
dog stuck soft but at the same time rough tongue and began oblizovat pussy,from rhythmic action dog all over his body went soft wave excitation,unwittingly cause slight moan.
A few minutes later the dog stops licking and nachinaetsya attempts to capture his bitch,the better to take you step on chetverenki.Male habitual movement on skakivaet you:'
     act 'Send a member of the vagina':
     cls
     minut+=10
     orgasm = orgasm + 3
     horny = 0
     vagina+=3
     gs'stat'
     '<center><img src="zoo/vag.jpg" ></center>'
     'You turned to him and began to massage his bag, from which there seemed member, you started to masturbate him, he grew up in front of, turning into a formidable club 27cm.Taking his cock in his hand, you sent him a little and entered, the rest he did himself, he abruptly pushed and member went hungry pussy. You groaned from the first strike, and after three hits you`ve been completely strung on dick. Dog began to fuck long, but strong shock, stringing every time a member of the hilt with one blow. Member of the dog almost completely out , remained 2 cm and he abruptly pushed him over the whole length, term with the champ went into the vagina, sex lips tightly clasped him on return.Orgasms followed one another, surging waves. Dog still gaining momentum and more come on, gripped his paws, forcing term in the depths of the vagina.'
         act '....':
		 cls
		 minut+=10
		 cumpussy+=1
		 gs'stat'
		 '<center><img src="zoo/vag2.jpg" ></center>'
		 'You pushed the legs even more , becoming more comfortable for the dog pose, pussy greedily swallowing every see this member, milked it, squeezed along the entire length. Pussy was burning and dripping with love juice, allocation ran down his thighs and dripped to the ground. Come on dog became more violent and more. Soon he nachel grow site and you become a member of the push toward the ass, trying to swallow it more. The walls of pussy you feel, his cock began to grow, and he drove his cock at the base and slightly trailed. His unit was expanded in pussy, pushing her wall, and tied tight knot. The dog began to attempt to release a member but firmly stuck in the pussy, and she squeezed it tight at the base of a ring and not released, until he had to pump sperm bitch. you screamed, when the sperm hit, fill your pussy completely, his hot sperm, which burned insides. A member finished and throbbing in your depths, pussy milked his, suck her boy every last drop. Cum began to flock to the feet of a trickle. You were completely filled with his sperm. Dog cranked and started backwards, you pressed him to her and stood a few minutes with him in the castle with a knot in pussy.When his cock a little opal and you could be freed from the node, you fell to the ground, and pussy flowed from his sperm, flooding all around. '
		 if QWdogReiq>0:act 'Get_Away':gt'korr'
		 if QWdogReiq=0:act 'Get_Away':dynamic $dogreiqdi
		 end
     end
     
     act 'Send a member in the ass':
     cls
     minut+=10
     orgasm = orgasm + 3
     horny = 0
     anus+=3
     gs'stat'
     '<center><img src="zoo/anal.jpg" ></center>'
     'Kneeling in the excited state, Member Dog entered in the ass. The anus was slightly open from-for the difficult position and strongly relaxed muscles, and his cock slipped inside ass very easy. Sharp rhythmic movements dostovlyaet both pain and pleasure,orgasm after orgasm was. But then he abruptly entered fully into the anus, sphincter tightly wraps it, thereby sealing the anus completely.'
         act '....':
		 cls
		 minut+=10
		 cumanus+=1
		 gs'stat'
		 '<center><img src="zoo/anal2.jpg" ></center>'
		 'you feel, as he started down the liquid inside the ass. Having stood in the castle a few minutes, But the ball on his penis did not decrease and bored dog stand, started growling pull his dick from the anus. In pain you started yelling, feeling his huge dick tearing ass on 2 part. Then he listened to the distinctive sound В«chpokВ» and his cock jumped out of the ass torn from which gushed down the belly of his sperm, interspersed with discharge from the anus. '
		 if QWdogReiq>0:act 'Get_Away':gt'korr'
		 if QWdogReiq=0:act 'Get_Away':dynamic $dogreiqdi
		 end
     end
}

$dogreiqdi={
cls
QWdogReiq=1
QWdogreiqTimer=7
 minut+=10
 gs'stat'
 '<center><img src="zoo/girl.jpg" ></center>'
'Vstatv from his knees and adjusting shalt you kissed a dog and went home, coming to himself after intercourse,barely rising, straightened his clothes you notice a Woman. Girl with curiosity and excitement explicitly looked for all your show. The girl opens her mouth and wants to say,But in other razvorachevaetsya and escapes. You stay in a light loss but also the fact that you were looking for you filed. Summoned the dog you go home.'
act 'Get_Away':gt'korr'
}








$youriqwest={
 act 'Go with Yuri':
 cls
 jouryQwNo=0
 minut+=30
 gs'stat'
 'You walked down the street with Yuri, reached the subway, there you have been in the car and rode in silence with him in the northern part of the city. Coming out of the subway Yuri led you in the direction of new buildings, you walked in silence all the way and Yuri looked tense. Finally you come to a new nine-, Yuri opened the front door and you have passed the entrance. Yuri called the elevator and you have arrived at its site.'
	 act 'Log in to the apartment':
	 cla
	 minut+=30
	 gs'stat'
	 'You entered a small cozy, one-room apartment. Catches the eye is that lives here, albeit very neat, but the bachelor.'
	 'Yuri held you in the hall and seated on a chair. He went into the kitchen and brought champagne with grapes and put it on the table between two chairs. He sat in a nearby chair and remote control included music.'
	 'It was obvious that George does not like can not come up with a topic for conversation. The conversation never flagged  "Dance?"'
		 act 'Dance with Yuri':
		 cla
		 minut+=10
		 horny+=50
		 gs'stat'
		 'You already typed order champagne and have covered a little intoxication and some sort of sweet bliss. You smiled and took his hand . Yuri came up to you and hugging, began to dance with you. His hands gently glided over your body. You captured the excitement and you. Yuri pressed against you and you feel as through the fabric, your stomach rests his hard cock.'
			 act 'Touch him between the legs':
			 cla
			 minut+=10
			 gs'stat'
			 'You almost without any intent slid his hand over his body and Yuri stopped at his crotch feeling his standing member. Yuri muffled sigh from your touch.'
				 act 'Unbutton his pants':
				 cla
				 minut+=10
				 gs'stat'
				 'You unbuttoned his pants and his hands in his pants to Yuri groped his hard, as if an iron dick and got it out of his pants. His head was hidden under the skin, which fits closely to the head, you prick the skin on the penis revealing purple, hard head.'
				     act 'Squat down and take in the mouth':
					 cls
					 guy+=1
					 jourySex=1
					 bj+=1
					 minut+=10
					 gs'stat'
					 '<center><img src="qwest/youri/bjdance.jpg" ></center>'
					 'Little hand caressed member Yuri you sat down in front of him and your face was right on standing against a member. You wrapped around his purple head <<$liptalk>> and began to suck dick. Your lips glided over the smooth and hot cock sucking it. Yuri stood and looked down moaning, in your eyes. Finally he choked hissed "Let`s go to bed."'
					 gs'oral','0'
					 	 act 'Go to bed':
						 cls
						 minut+=10
						 set $nameV = 'Yuri'
						 $boy=$nameV
						 set dick = 18
						 set silavag = 2
						 pose=1
						 gs'stat'
						 '<center><img src="qwest/youri/sex.jpg" ></center>'
						 'The bed Yuri helped you to undress and put you on all fours ready to enter into you.'
                         dynamic $sexstart
						 'You feel like something solid Bound to you in the pussy.'
						 dynamic $sexstart2
						 'Yuri rammed so hard you, you broke and fell onto the bed breasts.'
						 	 act 'moan':
							 cls
							 minut+=10
							 pose=1
							 gs'stat'
							 '<center><img src="qwest/youri/sex1.jpg" ></center>'
							 'Yuri ignoring, the fact that you fell on the bed.'
							 'He fiercely hollowed your body and you besspomoschno groaning under it, feeling his cock ramming your insides, pushing his every move.'
							 dynamic $sexcum
							 'Yuri froze on you, kissed her on the cheek and went to the bathroom.'
							     act 'Go to the bathroom':
								 cls
								 minut+=10
								 horny+=10
								 gs'stat'
								 '<center><img src="qwest/youri/van.jpg" ></center>'
								 'You went to the bathroom, which already washed Yuri, he asked you to wash with it. You shrug wearily climbed into the shower.'
								 'Jury began to lather you and you feel like a member of his gentle rubbing on your hip began to harden suffused with blood.'
								     act 'Tselovatsya Yuri':
									 cls
									 minut+=10
									 horny+=10
									 gs'stat'
									 '<center><img src="qwest/youri/shower.jpg" ></center>'
									 'Yuri attracted you to her and began to kiss you. You already tired, but the situation excites you and you responded to the caresses Yuri, also began to stroke his body.'
									     act 'sucking dick':
										 cls
										 minut+=10
										 horny+=10
										 bj+=1
										 gs'stat'
										 '<center><img src="qwest/youri/shower1.jpg" ></center>'
										 'Yuri put you in the bathroom on his haunches and put his still soft dick in your mouth. You started to suck dick, who stood up straight in your mouth, filling it. Soon was a member of both the steel and Yuri began to moan. Finally he took a member of your mouth and prepared to finish.'
										 gs'oral','0'
										 	 act 'substitute person':
											 cls
											 minut+=10
											 horny+=10
											 cumface+=1
											 facial+=1
											 gs'stat'
											 '<center><img src="qwest/youri/shower2.jpg" ></center>'
											 'Cum Yuri hit you in the face, but it was not much and soon stopped the flow.'
											     act 'take a shower':
												 cla
												 *clr
												 set minut = minut + 15
												 set sweat = -3
												 set horny = horny + 1
												 set hapri = 1
												 set mop = 1
												 set cumpussy = 0
												 set cumbelly = 0
												 set cumass = 0
												 set cumlip = 0
												 set cumface = 0
												  set cumanus =0
												  gs'stat'
												 '<center><img src="pics/dush.jpg" ></center>'
												 'Finally you could get here before the shower and wash. You showered and went out into the hall prichesyvatsya. There you waiting for Yuri, which again was nervous and it was immediately clear, he wants you to show the door.'
												 act 'Get_Away':gt'nord'
												 end
											 end
										 end
									 end
								 end 
							 end 
						 end 
					 end 
				 end 
			 end 
		 end 
	 end      
 end
}




























--- dina ---------------------------------

# dinBoroda
$borodachNo={
	 act 'I have enough.':
	 cla
	 minut+=15
	 gs'stat'
	 'You refused to drink and began to leave This collection. The guard began to persuade you just as well stay with him and continue.'
	 if SUB<10:act 'Get_Away':dom+=1&gt'clener','start'
	 dynamic $borodachDrink
	 end
}
$borodachNo2={
	 act 'I have to go now.':
	 cla
	 minut+=15
	 gs'stat'
	 'This collection you started but you persuade Sasha became just as well stay with him and continue.'
	 if DOM>0 and horny<50:act 'Get_Away':dom+=1&gt'clener','start'
	 dynamic $borodachSex
	 end
}
$borodachDrink={
	 act 'another drink.':
	 cla
	 minut+=15
	 horny+=20
	 gs'stat'
	 'You drank some more and eating cheeses realized that sharply drunk. The hand guard is not looking up your ass fondled.'
	 dynamic $borodachNo2
	 dynamic $borodachSex
	 end
}
$borodachSex={
	 act 'relax.':
	 cla
	 if borodachSex=0:borodachSex=1&guy+=1
	 minut+=5
	 horny+=5
	 gs'stat'
	 'You are relaxed and began to enjoy hands caress you. Sasha has openly embraced and started kissing you.'
     'His hands slid over unbuttoning your clothes and remove it. Soon he got to your breasts and began to suck your nipples.'
         act 'Lie down on the sofa.':
		 cls
		 minut+=5
		 horny+=20
		 gs'stat'
		 borodachSexDay=day
		 set sex = sex + 1
		 set minut = minut + 30
		 set pose = 0
		 set $nameV = 'Sasha'
		 $boy=$nameV
		 set dick = 15
		 set silavag = 0
		 '<center><img src="picV/vag.jpg" ></center>'
		 '<<$nameV>> put you on the couch, spread your legs and taking out his hands <<dick>> inch dick, fingers began to caress your pussy ready to get into it.'
		 gs'orgazm','start'
		 act 'Get_Away':gt'street'
		 end
	 end
}
$ohrhj={
	 act 'wank him.':
	 cla
	 minut+=15
	 horny+=dom
	 gs'stat'
	 hj+=1
	 'You started stroking his cock with their delicate hands. Soon Sasha groaned "I finish soon."'
	 dynamic $ohrbj
	 dynamic $ohrhjcum
	 dynamic $ohrsex
	 end
}
$ohrhjcum={
	 act 'Masturbate him on.':
	 cls
	 minut+=15
	 horny+=dom
	 borodachSexDay=day
	 gs'stat'
     '<center><img src="qwest/ohrannik/hjcum.jpg" ></center>'
	 'Sasha groaned and of its members began to fly a jet of sperm in your palm.'
	 act 'Get_Away':gt'street'
	 end
}
$ohrbj={
	 act 'Take by mouth.':
	 cls
	 minut+=15
	 horny+=5
	 gs'stat'
	 bj+=1
	 picrand=RAND(0,4)
	 if picrand=0:'<center><img src="qwest/ohrannik/bj.jpg" ></center>'
	 if picrand=1:'<center><img src="qwest/ohrannik/bj1.jpg" ></center>'
	 if picrand=2:'<center><img src="qwest/ohrannik/bj2.jpg" ></center>'
	 if picrand=3:'<center><img src="qwest/ohrannik/bj3.jpg" ></center>'
	 if picrand=4:'<center><img src="qwest/ohrannik/bj4.jpg" ></center>'
	 'you clasped 15 centimetric, strong and warm member of their <<$liptalk>> and began to suck his tongue caressing the head and processing sponges hard phallus. Sasha groaned "I `ll finish."'
	 dynamic $ohrbjcum
	 dynamic $ohrsex
	 end
}
$ohrbjcum={
	 act 'Embrace even more lips.':
	 cls
	 minut+=15
	 horny+=5+vaf
	 cumlip+=1
	 gs'stat'
	 picrand=RAND(0,4)
	 if picrand=0:'<center><img src="qwest/ohrannik/bjcum.jpg" ></center>'
	 if picrand=1:'<center><img src="qwest/ohrannik/bjcum1.jpg" ></center>'
	 if picrand=2:'<center><img src="qwest/ohrannik/bjcum2.jpg" ></center>'
	 if picrand=3:'<center><img src="qwest/ohrannik/bjcum3.jpg" ></center>'
	 if picrand=4:'<center><img src="qwest/ohrannik/bjcum4.jpg" ></center>'
	 'You have redoubled their efforts processing your hard cock <<$liptalk>>. Hot jet hit you in the mouth, then another and another. You continued to suck ignoring the fact that you have a mouth full of vigorous sperm. Finally.'
	 gs'oral','0'
	     act 'swallow sperm.':
		 cls
		 minut+=15
		 horny+=5
		 vaf+=1
		 borodachSexDay=day
		 gs'stat'
		 picrand=RAND(0,2)
		 if picrand=0:'<center><img src="qwest/ohrannik/swallow.jpg" ></center>'
		 if picrand=1:'<center><img src="qwest/ohrannik/swallow1.jpg" ></center>'
		 if picrand=2:'<center><img src="qwest/ohrannik/swallow2.jpg" ></center>'
		 'You have opened my mouth filled with sperm and swallow it obliznuvshis.'
		 act 'Get_Away':gt'street'
		 end
		 
		 act 'spit sperm.':
		 cls
		 minut+=15
		 horny+=5
		 if vaf>0:vaf-=1
		 borodachSexDay=day
		 gs'stat'
		 '<center><img src="qwest/ohrannik/spit.jpg" ></center>'
		 'You have opened my mouth filled with sperm sperm spat into the sink.'
		 act 'Get_Away':gt'street'
		 end
	 
	 end
}
$ohrsex={
	 act 'sex.':
	 cls
	 minut+=5
	 horny+=20
	 gs'stat'
	 borodachSexDay=day
	 set sex = sex + 1
	 set minut = minut + 30
	 set pose = 0
	 set $nameV = 'Sasha'
	 set dick = 15
	 set silavag = 0
	 '<center><img src="picV/vag.jpg" ></center>'
	 '<<$nameV>> put you on the couch, spread your legs and taking out his hands <<dick>> inch dick, fingers began to caress your pussy ready to get into it.'
	 gs'orgazm','start'
	 act 'Get_Away':gt'street'
	 end
}
rikudootvet=1415
--- dinBoroda ---------------------------------

# dinSex
$universalklient={
if klient_needs=0:$klientwanttext='blow_job'
if klient_needs=1:$klientwanttext='sex'
if klient_needs=2:$klientwanttext='anal'
'<center><img src="pic/park2.jpg" ></center>'
'You said client, what <<$klientwanttext>> will cost <<ProsMoney*100>> rubles.'
dynamic $dinprostable
if vnpr>=0:
     if ProsMoney=1:
     clientPRyes=1
     end
     if ProsMoney>1:
		 if KlientMON>=ProsMoney:
			 if vnpr>=klienVNPR:
			 clientPRyes=1
			 else
			 clientPRyes=0
			 end
		 end
		 if KlientMON<ProsMoney:
			 if vnpr>=klienVNPR:
				 torgklirand=RAND(0,1)
				 if torgklirand=0:
				 clientPRyes=0
				 end
				 if torgklirand=1:
				 'Client grins and offers <<KlientMON*100>> rubles for a job.'
					 act 'agree':
					 cla
					 clientPRyes=1
					 ProsMoney=KlientMON
					 dynamic $dinklient
					 end
					 
					 act 'Opt_Out':gt'prostitute','start'
				 
				 exit
				 end
			 else
			 clientPRyes=0
			 end
		 end
	 end
end
if vnpr<0:clientPRyes=0

dynamic $dinklient
}
$dinprostable={
vnpr=0
if vidage>=40:vnpr-=20
if vidage>=35 and vidage<40:vnpr-=10
if vidage>=30 and vidage<35:vnpr-=5
if vidage>=25 and vidage<30:vnpr+=1
if vidage>=20 and vidage<25:vnpr+=5
if vidage>=18 and vidage<20:vnpr+=10
if vidage<18:vnpr+=15

if vnesh=-10:vnpr-=100
if vnesh < 5 and vnesh>-10:vnpr-=10
if vnesh >= 5 and vnesh < 15:vnpr-=5
if vnesh >= 15 and vnesh < 30:vnpr+=1
if vnesh >= 30 and vnesh < 50:vnpr+=5
if vnesh >= 50:vnpr+=10

if cumSUM>0:vnpr-=10

if mop = 0:vnpr-=10
if mop = 1:vnpr-=1
if mop = 2:vnpr+=1
if mop = 3:vnpr+=5
if mop = 4:vnpr+=10

if leghair<=0:vnpr+=1
if leghair>0:vnpr-=5

if lobok > 0:vnpr-=5
if lobok <= 0:vnpr+=1

if tan > 0:vnpr+=1

if curly>0:vnpr+=1

if sweat>0:vnpr-=10

if hapri = 0:vnpr-=1

if lip = 4:vnpr+=1

!maximum 40
!minimum -161
}
$dinklient={
if clientPRyes=1: 
'Client nodding your head and opens the door of his car.'
if klient_needs=0:dynamic $din_prost_bj
if klient_needs=1:dynamic $din_prost_sex
if klient_needs=2:dynamic $din_prost_anal
end
if clientPRyes=0:
'Client meticulously examined you and said "Do_Not, fuck." After that.'
act 'Get_Away':gt'prostitute','start'
end
}

$din_prost_bj={
act 'Get into the client machine':
vidageday-=5
set $nameV = 'stranger'
set $boy = 'customer'
set slutty+=1
set dick = RAND (12,21)
set money+=ProsMoney*100
gt'blowPR','start'
end
}
$din_prost_sex={
act 'Get into the client machine':
vidageday-=10
set $nameV = 'stranger'
set $boy = 'customer'
set dick = RAND (12,21)
set money+=ProsMoney*100
set prosti = 1
set slutty+=1
gt'blowPR','start'
end
}
$din_prost_anal={
act 'Get into the client machine':
vidageday-=20
gs'boy'
set prosti = 2
set analprotect = 0
set slutty+=1
gt'blowPR','start'
end
}


$dinrandbj={
tperbjran=RAND(0,3)
if tperbjran=0:$tperbj='You wrapped around their <<$liptalk>> <<dick>> inch dick.'
if tperbjran=1:$tperbj='You wrapped around their <<$liptalk>> purple head <<dick>> centimeter member'
if tperbjran=2:$tperbj='You`ve spent your <<$liptalk>> on the head <<dick>> centimeter penis and absorbed it into his mouth'
if tperbjran=3:$tperbj='<<dick>> inch dick rested against you in your <<$liptalk>>, you opened the them and let dick in her mouth.'
if tperbjran=4:$tperbj=''
if tperbjran=5:$tperbj=''
tperbjran2=RAND(0,2)
if tperbjran2=0:$tperbj2='Your mouth turned quickly filled a little salty and hard cock which you started to suck.'
if tperbjran2=1:$tperbj2='In your mouth became hard and hot cock which you started to suck'
if tperbjran2=2:$tperbj2='Hard cock fills your whole mouth, clasping his lips every move you it absorbs up to the throat.'
if tperbjran2=3:$tperbj2=''
if tperbjran2=4:$tperbj2=''
if tperbjran2=5:$tperbj2=''
'<<$tperbj>>. <<$tperbj2>>'
}
$dinrandswallow={
tperswalrand=RAND(0,2)
if tperswalrand=0:$tperswal='Suddenly your mouth shot a jet of viscous semen.'
if tperswalrand=1:$tperswal='Cock jerked and jet of sperm flew between your lips into your mouth.'
if tperswalrand=2:$tperswal='Your mouth filled with sperm when the cock between your lips began to finish.'
tperswalrand2=RAND(0,2)
if tperswalrand2=0:$tperswal2='Your mouth quickly filled with warm sperm and you feel its sharp taste.'
if tperswalrand2=1:$tperswal2='Cum filled your mouth and began to run down your <<$liptalk2>>'
if tperswalrand2=2:$tperswal2='Hot seed quickly fill your mouth making work experience the whole gamut of taste tart and sharp sperm.'
tperswalrand3=RAND(0,2)
if tperswalrand3=0:$tperswal3='You gulped and swallowed sperm located in your working her mouth. In the mouth.'
if tperswalrand3=1:$tperswal3='You swallow warm cum fills your mouth and licked his <<$liptalk3>> licking the remnants of the seed with them.'
if tperswalrand3=2:$tperswal3='You swallow sticky cum filling your mouth work, then licked.'
'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
}
$dinrandfacial={

}

$venerasiak={
tipvenerarand=RAND(0,10)
     if prezik>0:
     venrand=RAND(0,1000)
	 if venrand=1000:dynamic $veneradinitog
	 end
	 if prezik<=0:
	 venrand=RAND(0,100)
	 if venrand>=80:dynamic $veneradinitog
	 end
}
$veneradinitog={
     if tipvenerarand>=8:
     !herpes
	 set gerprand = RAND (0,100)
		 if gerprand > 90:
		 if GerpesOnce = 0:set GerpesOnce = 1
		 Venera+=1
		 Gerpes+=1
		 end
	 end
	 if tipvenerarand=7:
	 !syphilis
	 venerarand=RAND(0,100)
	     if venerarand>95:
	     Venera+=1
	     if SifacOnce=0:SifacOnce=1
	     Sifilis+=1
	     end
	 end
	 if tipvenerarand>=5 and tipvenerarand<7:
	 !gonorrhea/triper
	 venerarand=RAND(0,100)
	     if venerarand>95:
	     Venera+=1
	     if TriperOnce=0:TriperOnce=1
	     Triper+=1
	     end
	 end
	 if tipvenerarand<5:
	 !candidiasis/thrush
	 venerarand=RAND(0,100)
	     if venerarand>85:
	     if KandidozOnce=0:KandidozOnce=1
	     Kandidoz+=1
	     end
	 end
}


$sexstart={
set protect = 0
set vidageday = vidageday - 1

     if prezik > 0:
     set prezik = prezik - 1
     set protect = 1 
     '<<$boy>> You took the condom and put it on your <<dick>> inch dick.'
     end
}
$sexstart2={
frost=0
     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch dick fuck your pussy.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     
     
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 if silavag = 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 oragazm=4
                 end
             end
             if razeba=4:
                 if silavag = 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
             end
             if razeba>=5:
                 if silavag = 2:
                 orgrand=rand(0,50)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
             end
         end
         
         if orgazm = 0:
         vgape=3
         vgapetime=totminut
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when <<$boy>> You entered, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 1:
         if vgape<2:vgape=2
         vgapetime=totminut
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when <<$boy>> You entered, between the legs pain. You are frowning and moaning in pain while strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 2:
         if vgape<1:vgape=1
         vgapetime=totminut
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when <<$boy>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited until strong <<dick>> inch dick fuck your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when <<$boy>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<$boy>> You entered, break your hymen. You weeping and moaning while strong <<dick>> inch dick fucks your bloody pussy.'
     end
if vagina<dick:vagina+=1
sex+=1

}
$sexstart3={
frost=0
     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while until you jump on a limb, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch penis enters you.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 if silavag = 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 oragazm=4
                 end
             end
             if razeba=4:
                 if silavag = 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
             end
             if razeba>=5:
                 if silavag = 2:
                 orgrand=rand(0,50)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
             end
         end
         
         if orgazm = 0:
         if vgape<3:vgape=3
         vgapetime=totminut
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when we got to the penis and feel like <<$boy>> You entered. Tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You shed tears while <<dick>> inch penis enters you.'
         end 
         if orgazm = 1:
         if vgape<2:vgape=2
         vgapetime=totminut
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when we got to the penis and feel like <<$boy>> You entered, between the legs pain. You are frowning and moaning in pain while jumping on the strong <<dick>> centimeter penis.'
         end 
         if orgazm = 2:
         if vgape<1:vgape=1
         vgapetime=totminut
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when sat on the cock and felt how <<$boy>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited while jumping on the strong <<dick>> centimeter penis trahayaschim your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when we got to the penis and feel like <<$boy>> You entered. Between the legs becomes a little nice, when you jump on strong <<dick>> centimeter penis.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when we got to the penis and feel like <<$boy>> You entered. Between the legs becomes a little nice, when you jump on strong <<dick>> centimeter penis. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when you jump on strong <<dick>> centimeter penis. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when we got to the penis and feel like <<$boy>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when we got to the penis and feel like <<$boy>> You entered, break your hymen. You weeping and moaning until you jump on strong <<dick>> centimeter members of his bloody pussy.'
     end
if vagina<dick:vagina+=1
sex+=1

}
$sexstart4={
frost=0
     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch dick fuck your pussy.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     
     
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 if silavag = 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 oragazm=4
                 end
             end
             if razeba=4:
                 if silavag = 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
             end
             if razeba>=5:
                 if silavag = 2:
                 orgrand=rand(0,50)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
             end
         end
         
         if orgazm = 0:
         vgape=3
         vgapetime=totminut
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when <<$boy>> You entered, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 1:
         if vgape<2:vgape=2
         vgapetime=totminut
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when <<$boy>> You entered, between the legs pain. You are frowning and moaning in pain while strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 2:
         if vgape<1:vgape=1
         vgapetime=totminut
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when <<$boy>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited until strong <<dick>> inch dick fuck your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when <<$boy>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<$boy>> You entered, break your hymen. You weeping and moaning while strong <<dick>> inch dick fucks your bloody pussy.'
     end
if vagina<dick:vagina+=1
!sex+=1

}



$sexudo={
set protect = 0
set vidageday = vidageday - 1
frost=0
     if tabletki <= 0 and prezik > 0:
     set prezik = prezik - 1
     set protect = 1 
     '<<$boy>> You took the condom and put it on your <<dick>> inch dick.'
     end


     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch dick fuck your pussy.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 if silavag = 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 oragazm=4
                 end
             end
             if razeba=4:
                 if silavag = 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
                 end
             end
             if razeba>=5:
                 if silavag = 2:
                 orgrand=rand(0,50)
                     if orgrand>preOrg:oragazm=4
                 end
                 if silavag < 2:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
                 end
             end
         end
         
         if orgazm = 0:
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         if vgape<3:vgape=3
         vgapetime=totminut
         'You groaned in pain when <<$boy>> You entered, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 1:
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         if vgape<2:vgape=2
         vgapetime=totminut
         'You bit her lip in pain when <<$boy>> You entered, between the legs pain. You are frowning and moaning in pain while strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 2:
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         if vgape<1:vgape=1
         vgapetime=totminut
         'You flinched at the sudden pain when <<$boy>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited until strong <<dick>> inch dick fuck your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when <<$boy>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<$boy>> You entered, break your hymen. You weeping and moaning while strong <<dick>> inch dick fucks your bloody pussy.'
     end
if vagina<dick:vagina+=1
sex+=1

}


$sexcum={
frost=0
     if protect ! 1:
     !unprotected sex
     set finrand = RAND (0,1)
         if finrand = 0:
         !inside
         set cumpussy = cumpussy + 1
         '<<$boy>> groaned and you feel like a jet of sperm hit you inside your body.'
             gs'preg'
             set manna = manna - 15
             set willpower = willpower - 15
             if preg=0 or preg=1 and pregtime<7:'Damn, because after all, you thought with horror.'
             if preg=1 and pregtime>=7:'You chuckled to himself, well at least you do not zalet.'
         end
         if finrand = 1:
         !out
             if pose = 0:
             set cumbelly = cumbelly + 1
             '<<$boy>> groaned and removing a member of you, cumshot on your stomach.'
             end 
             if pose = 1:
             set cumass = cumass + 1
             '<<$boy>> groaned and removing a member of you, cumshot on your ass.'
             end 
             narrand=rand(0,100)
             if narrand=0:
             gs'preg'
             end
         end 
     end
     if protect = 1:
     set protect = 0
     '<<$boy>> groaned and you realize, he finished in a condom.'
     prezrand=rand(0,100)
         if prezrand=0:
         'Pulling out of you dick <<$boy>> said "Hmm, condom burst"'
         gs'preg'
         end
     end
set pose = 0

}

$analsex={
frost=0
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         '<<$boy>> pulled out of your more narrow and tight ass plug,'
     end
     
      if dick >=anus:set anus = anus + 3
     
'<<$boy>> apart your buttocks began to massage your anus with your fingers, first one, then two.'
if lubri>0:
lubri-=1
lubonus+=RAND(1,5)
'You squeezed anal smaski in his hand and began to spread his ass. Then you gave the guy a tube and he smeared his cock lubricated.'
end
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$boy>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
	 if anus + 10 < dick:'You screamed and bit his lip from a sharp pain when his <<dick>> Member inch apart your ass you entered.'
	 if anus + 10 >= dick:'You groaned feeling of fullness when it <<dick>> Member inch apart your ass you entered.'
	 '<<$boy>> froze for a moment, giving your ass adapt to hang around in her member, then began to drive them all the more insistent, stretching your anus.'
	 if anus + lubonus + 2 < dick:
	 if mop > 1:set mop = 0
	 horny-=20
	 manna-=20
	 if agape<3:agape=3
     agapetime=totminut
	 'You wept and bit her lip, when <<dick>> inch cock began to fuck your ass at full power. The pope was on fire and all you dream about was, what would this torture was over quickly.'
	 end
	 if anus + lubonus + 2 >= dick:
	 horny+=10
	 if agape<2 and lubonus=0:agape=2
     agapetime=totminut
	 'You started moaning rhythmically to the beat of limb movements inside you. You feel like your anus is stretched when the penis enters you.'
	     if horny>=100:
	         if anal>=10 and orgasm>0:
             manna+=20
	         
	         if agape<1 and lubonus=0:agape=1&agapetime=totminut
             
	         'You get a little pleased when a member moves inside your ass and you moan with pleasure.'
	         end
	     end
	 end
	 lubonus=0
	 !'Through REPAIRED time guy groaned and you feel like your ass fills pleasant warmth.'
anal+=1
}
$analsex2={
frost=0
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         '<<$boy>> pulled out of your more narrow and tight ass plug,'
     end
     
      if dick >=anus:set anus = anus + 3
     
'<<$boy>> apart your buttocks began to massage your anus with your fingers, first one, then two.'
if lubri>0:
lubri-=1
lubonus+=RAND(1,5)
'You squeezed anal smaski in his hand and began to spread his ass. Then you gave the guy a tube and he smeared his cock lubricated.'
end
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$boy>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
	 if anus + 10 < dick:'You screamed and bit his lip from a sharp pain when his <<dick>> Member inch apart your ass you entered.'
	 if anus + 10 >= dick:'You groaned feeling of fullness when it <<dick>> Member inch apart your ass you entered.'
	 '<<$boy>> froze for a moment, giving your ass adapt to hang around in her member, then began to drive them all the more insistent, stretching your anus.'
	 if anus + lubonus + 2 < dick:
	 if mop > 1:set mop = 0
	 horny-=20
	 manna-=20
	 if agape<3:agape=3
     agapetime=totminut
	 'You wept and bit her lip, when <<dick>> inch cock began to fuck your ass at full power. The pope was on fire and all you dream about was, what would this torture was over quickly.'
	 end
	 if anus + lubonus + 2 >= dick:
	 horny+=10
	 if agape<2 and lubonus=0:agape=2
     agapetime=totminut
	 'You started moaning rhythmically to the beat of limb movements inside you. You feel like your anus is stretched when the penis enters you.'
	     if horny>=100:
	         if anal>=10 and orgasm>0:
             manna+=20
	         
	         if agape<1 and lubonus=0:agape=1&agapetime=totminut
             
	         'You get a little pleased when a member moves inside your ass and you moan with pleasure.'
	         end
	     end
	 end
	 lubonus=0
	 !'Through REPAIRED time guy groaned and you feel like your ass fills pleasant warmth.'
!anal+=1
}
$analsexrude={
frost=0
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         '<<$boy>> pulled out of your more narrow and tight ass plug,'
     end
     
      if dick >=anus:set anus = anus + 3
     
'<<$boy>> tucked into your anus finger, then the second .'
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$boy>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
	 if anus + 10 < dick:'You screamed and bit his lip from a sharp pain when his <<dick>> Member inch apart your ass you entered.'
	 if anus + 10 >= dick:'You groaned feeling of fullness when it <<dick>> Member inch apart your ass you entered.'
	 '<<$boy>> froze for a moment, giving your ass adapt to hang around in her member, then began to drive them all the more insistent, stretching your anus.'
	 if anus + lubonus + 2 < dick:
	 if mop > 1:set mop = 0
	 horny-=20
	 manna-=20
	 if agape<3:agape=3
     agapetime=totminut
	 'You wept and bit her lip, when <<dick>> inch cock began to fuck your ass at full power. The pope was on fire and all you dream about was, what would this torture was over quickly.'
	 end
	 if anus + lubonus + 2 >= dick:
	 horny+=10
	 if agape<2 and lubonus=0:agape=2
     agapetime=totminut
	 'You started moaning rhythmically to the beat of limb movements inside you. You feel like your anus is stretched when the penis enters you.'
	     if horny>=100:
	         if anal>=10 and orgasm>0:
	         manna+=20
	         
	         if agape<1 and lubonus=0:agape=1
             agapetime=totminut
             
	         'You get a little pleased when a member moves inside your ass and you moan with pleasure.'
	         end
	     end
	 end
	 lubonus=0
	 cumanus+=1
	 'REPAIRED through time <<$boy>> groaned and you feel like your ass fills heat.'
anal+=1
}











--- dinSex ---------------------------------

# din2
$din_street_cum={
if cumfrot > 0 or cumface>0:
     if hour>=7 and hour<=21:
     manna-=10
     'Passers puzzled turn staring at you. Some pictures of you on the phone, this is absolutely not hiding and giggling over you. Clearly visible on your sperm.'
     end
end
}
$d_read_book={
act'read the book':
cls
gs'stat'
'<center><img src="pics/book.jpg" ></center>'
     if f_book<=0 and fantasybook<=0 and w_book=0 and womanbook=0:
     'You scratch your head looking at already read the book "Eh, even read nothing, a walk or something on the market for a new book?"'
     end

     if f_book>0:
         if fantasybook<=0:fantasybook=5&f_book-=1
     end
     if f_book>0:'You still <<f_book>> do not read fantasy novels.'
     
     if fantasybook>0:
         act'Read fantasy book 1 h. Do not read more <<fantasybook*100>> pages':
		 cls
		 fantasybook-=1
		 if fantasybook=0:totalbook+=1
		 minut+=60
			 if nerdism>0:
			 lastread=totminut
			 lastreadday=daystart
			 nerdism+=1
			 blizoruk+=1
			 end
		 gs'stat'
		 '<center><img src="pics/book.jpg" ></center>'
			 if nerdism>0:
			 manna+=100
			 if stren>1:stren-=1
			 if vital>5:vital-=1
			 'Within an hour you enthusiastically read the book completely live in what is happening.'
			 else
			 manna+=10
			 'Within an hour you read the book.'
			 end
			 	
		 act'close this book':gt $loc
		 END		
	 end
	 
	 if w_book>0:
         if womanbook<=0:womanbook=5&w_book-=1
     end
     if w_book>0:'You still <<w_book>> not read the novel female.'
	 
	 if womanbook>0:
         act'Read Women`s Novel 1 h. Do not read more <<womanbook*100>> pages':
		 cls
		 womanbook-=1
		 if womanbook=0:totalbook+=1
		 minut+=60
			 if nerdism>0:
			 lastread=totminut
			 lastreadday=daystart
			 nerdism+=1
			 blizoruk+=1
			 end
		 gs'stat'
		 '<center><img src="pics/book.jpg" ></center>'
			 if nerdism>0:
			 manna+=100
			 horny+=10
			 if stren>1:stren-=1
			 if vital>5:vital-=1
			 'Within an hour you enthusiastically read the book completely live in what is happening.'
			 else
			 manna+=10
			 horny+=3
			 'Within an hour you read the book.'
			 end	
		 act'close this book':gt $loc
		 END		
	 end
act'close this book':gt $loc
end
}
$d_slut_horny={
you_slut+=1
if you_slut<10:
end
if you_slut>=10 and you_slut<20:
horny+=1
end
if you_slut>=20 and you_slut<30:
horny+=2
end
if you_slut>=30 and you_slut<40:
horny+=3
end
if you_slut>=40 and you_slut<50:
horny+=4
end
if you_slut>=50 and you_slut<60:
horny+=5
end
if you_slut>=60 and you_slut<70:
horny+=6
end
if you_slut>=70 and you_slut<80:
horny+=7
end
if you_slut>=80 and you_slut<90:
horny+=8
end
if you_slut>=90 and you_slut<100:
horny+=9
end
if you_slut>=100:
horny+=10
end
}







--- din2 ---------------------------------

# MenuLoc
if $ARGS[0]='ot':
$zapis+='
'
gs'stat'
end
if $ARGS[0]='ot2':
$zapis2+='
'
gs'stat'
end
if $ARGS[0]='ot3':
$zapis3+='
'
gs'stat'
end
if $ARGS[0]='ot4':
$zapis+='
'
gs'stat'
end
if $ARGS[0]='ot5':
$zapis5+='
'
gs'stat'
end
if $ARGS[0]='ot6':
$zapis6+='
'
gs'stat'
end
if $ARGS[0]='ot7':
$zapis7+='
'
gs'stat'
end
if $ARGS[0]='ot8':
$zapis8+='
'
gs'stat'
end
if $ARGS[0]='ot9':
$zapis9+='
'
gs'stat'
end
if $ARGS[0]='ot10':
$zapis10+='
'
gs'stat'
end

if $ARGS[0]='zapisosn':
$zapisOsn+='
<<day>> <<$month>>. <<$week>>. '
$zapisOsn+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis':
$zapis+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis2':
$zapis2+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis3':
$zapis3+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis4':
$zapis4+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis5':
$zapis5+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis6':
$zapis6+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis7':
$zapis7+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis8':
$zapis8+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis9':
$zapis9+= input ("What do you want to record?")
gs'stat'
end

if $ARGS[0]='zapis10':
$zapis10+= input ("What do you want to record?")
gs'stat'
end


if $ARGS[0]='diszapis':
$zapis = ''
gs'stat'
end

if $ARGS[0]='diszapis2':
$zapis2 = ''
gs'stat'
end

if $ARGS[0]='diszapis3':
$zapis3 = ''
gs'stat'
end

if $ARGS[0]='diszapis4':
$zapis4 = ''
gs'stat'
end

if $ARGS[0]='diszapis5':
$zapis5 = ''
gs'stat'
end

if $ARGS[0]='diszapis6':
$zapis6 = ''
gs'stat'
end

if $ARGS[0]='diszapis7':
$zapis7 = ''
gs'stat'
end

if $ARGS[0]='diszapis8':
$zapis8 = ''
gs'stat'
end

if $ARGS[0]='diszapis9':
$zapis9 = ''
gs'stat'
end

if $ARGS[0]='diszapis10':
$zapis10 = ''
gs'stat'
end
--- MenuLoc ---------------------------------

# MenuMainLoc
if $ARGS[0]='0':
ETOmenu=0
gs'stat'
end
if $ARGS[0]='1':
ETOmenu=1
gs'stat'
end
--- MenuMainLoc ---------------------------------

# oral
if $ARGS[0]='start':
frost=0
'You little fingers caress <<dick>> inch dick, then wrapped around his lips and began to suck.'
     if harakBoy = 0:
     '<<$nameV>> closed his eyes in pleasure and enjoys the affection of your lips.'
     end
     if harakBoy = 1:
     '<<$nameV>> staring you in the face until your lips slide on his hard dick.'
     end
     if harakBoy = 2:
     if mop > 1:set mop = 0
     set hapri = 0
     set throat = throat + 1
     '<<$nameV>> took you by the hair and began to fuck you in the mouth, from members beat you to the throat tears flowed from his eyes.'
     end
     set horny = horny + throat + SUB + VAF - DOM
     
     if horny >= 100:
     set VAF = VAF + 1
     set orgasm = orgasm + 1
     set horny = 20
     set manna = manna + 15
     set willpower = willpower + 15
     set lipkoef = lipkoef + 1
         if lipkoef > 50:
         set lipkoef = 0
         set lip = lip + 1
         end
     'Suddenly. Fire was burning between her legs and waves of pleasure covered body, You groaned but did not release a member of continuing his mouth to suck.'
     end
'At_Last <<$nameV>> groaned and you realize, now he begins to cum.'
end

if $ARGS[0]='0':

     set horny = horny + throat + SUB + VAF - DOM
     
     if horny >= 100:
     set VAF = VAF + 1
     set orgasm = orgasm + 1
     set horny = 20
     set manna = manna + 15
     set willpower = willpower + 15
     set lipkoef = lipkoef + 1
         if lipkoef > 50:
         set lipkoef = 0
         set lip = lip + 1
         end
     'Suddenly. Fire was burning between her legs and waves of pleasure covered body, You groaned but did not release a member of continuing his mouth to suck.'
     end

end
--- oral ---------------------------------

# orgazm
if $ARGS[0]='start':
set protect = 0
set vidageday = vidageday - 1
frost=0
     if tabletki <= 0 and prezik > 0 and prosta = 0:
     set prezik = prezik - 1
     set protect = 1 
     'You gave the guy a condom and he clothed him in silence.'
     end
     
     if tabletki >= 0 and prezik > 0 and prosta > 0:
     set prezik = prezik - 1
     set protect = 1 
     end

     if tabletki <= 0 and prezik > 0:
     set prezik = prezik - 1
     set protect = 1 
     end

     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch dick fuck your pussy.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if orgazm = 0:
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when <<$nameV>> You entered, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 1:
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when <<$nameV>> You entered, between the legs pain. You are frowning and moaning in pain while strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 2:
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when <<$nameV>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited until strong <<dick>> inch dick fuck your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$nameV>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$nameV>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when <<$nameV>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<$nameV>> You entered, break your hymen. You weeping and moaning while strong <<dick>> inch dick fucks your bloody pussy.'
     end
     
     if protect ! 1:
     !unprotected sex
     set finrand = RAND (0,1)
         if finrand = 0:
         !inside
         set cumpussy = cumpussy + 1
         '<<$nameV>> groaned and you feel like a jet of sperm hit you inside your body.'
             if tabletki <= 0 and mesec <= 0:
             gs'preg'
             set manna = manna - 15
             set willpower = willpower - 15
             'Damn, because after all, you thought with horror.'
             end 
         end
         if finrand = 1:
         !out
             if pose = 0:
             set cumbelly = cumbelly + 1
             '<<$nameV>> groaned and removing a member of you, cumshot on your stomach.'
             end 
             if pose = 1:
             set cumass = cumass + 1
             '<<$nameV>> groaned and removing a member of you, cumshot on your ass.'
             end 
         end 
     end
     if protect = 1:
     set protect = 0
     '<<$nameV>> groaned and you realize, he finished in a condom.'
     end
set pose = 0
end
--- orgazm ---------------------------------

# preg
if mesec = 0 and preg = 0 and tabletki = 0:
!no monthly
Set pregrand = RAND (0,100)
     if pregrand >= 93:
     $father=$boy
     set preg = 1
     end
     if tabletki > 0:
     Set pregrand = RAND (0,200)
         if pregrand = 0:
		 $father=$boy
		 set preg = 1
		 end
     end
     
end
--- preg ---------------------------------

# starenie
if odetjeans=1:set jeansH[numdress]-=1
if odetyoga=1:set yogaH[numdress]-=1
if odetsarafan=1:set sarafanH[numdress]-=1
if odetshort=1:set shortH[numdress]-=1
if odetskirt=1:set skirtH[numdress]-=1
if odetdress=1:set dressH[numdress]-=1
if odetprofi=1:set profiH[numdress]-=1
if odetpants=1:set pantsH[numdress]-=1
if odetlatex=1:set latexH[numdress]-=1
if odethooker=1:set hookerH[numdress]-=1
if odetkis=1:set odekisH[numdress]-=1
if odetnewclo=1:set newcloH[numdress]-=1
--- starenie ---------------------------------

# stat
clr

view

gs'dinSex2'
!1095
if nippain=2:
     if nippainday+5<daystart:
     $nippain='You have greatly hurt nipples.'
     nippain=1
     nippainday=daystart
     end
     if nippainday+5>=daystart:
     $nippain='You have greatly hurt nipples.'
     end
end
if nippain=1:
     if nippainday+5<daystart:
     $nippain=''
     nippain=0
     end
     if nippainday+5>=daystart:
     $nippain='You have a little sore nipples.'
     end
end
if painpub=2:
     if painpubday+5<daystart:
     $painpub='You have very sore vagina.'
     painpub=1
     painpubday=daystart
     end
     if painpubday+5>=daystart:
     $painpub='You have very sore vagina.'
     end
end
if painpub=1:
     if painpubday+5<daystart:
     $painpub=''
     painpub=0
     painpubday=daystart
     end
     if painpubday+5>=daystart:
     $painpub='You have a little sore vagina.'
     end
end

if year=2011 and katjaPreg=0:katjaPreg=1

if analplay>=2 and anus<=10:anus+=1&analplay=0
if analplay>=4 and anus<=15:anus+=1&analplay=0
if analplay>=8 and anus<=20:anus+=1&analplay=0

musle[1]=musle
flex[1]=agil
stamina[1]=vital*3
wipo[1]=will
intel[1]=intel
krasota[1]=vnesh
rost[1]=rost
salo[1]=salo
fat[1]=fat
Bteh[1]=bteh
Uteh[1]=uteh
Zteh[1]=zteh
!flex[0]=agil
!stamina[0]=vital*3
!krasota[0]=vnesh
!wipo[0]=will

if nopornowrestling=0:
nopornowrestling=1
NPCnum=30
NPCnow=1
!shag=1
gs'npc'
NoView=1
NPCrost=30
gs'generation'
NoView=1
NPCrost=30
gs'generation'
NoView=1
NPCrost=30
gs'generation'
NoView=1
NPCrost=30
gs'generation'
NoView=1
NPCrost=30
gs'generation'

$nikname[1]='schoolgirl'
!musle[0]=100
!flex[0]=agil
!stamina[0]=vital*3
!wipo[0]=will
!intel[0]=10
!krasota[0]=vnesh
!rost[0]=165
!salo[0]=100
!fat[0]=100

!$nikname[1]='steel Virgo'
!musle[1]=100
!flex[1]=100
!stamina[1]=300
!wipo[1]=50
!intel[1]=10
!krasota[1]=10
!rost[1]=165
!salo[1]=100
!fat[1]=100

end

if newclo[131]=1 and SchoolAtestat=1 or newclo[131]=1 and SchoolBlock=1:newclo[131]=0

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Cheats
if cheatHapri=1:hapri = 1
if cheatNomakeup=1:
if mop = 0:mop=1
end
if cheatNosweat=1 and sweat!-3:sweat=-3
if cheatNoEat=1:
if energy ! 19:energy = 19
if water ! 19:water = 19
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if alko>0 and frost>0:frost=0

if lernSkill>=8:intel+=1&lernSkill=0
if numdress!131 and Sforma>0:Sforma=0
if lern>=10:intel+=1&lern=0

if GorSlut=1:$gnikname='davalka'
if GorSlut=2:$gnikname='vaflersha'
if GorSlut=3:$gnikname='total huesoska'
if GorSlut=4:$gnikname='total hole'
if GorSlut=5:$gnikname='lowered slut'
if GorSlut=6:$gnikname='prostitute'

if GorSlut>=2:KatjaKnowBJ=1
if GorSlut>=1 or preg>0:KatjaKnowSex=1

     if film>0 and kompromatLife<10:
     !pornoaktrissa
     if kompromatLife<10:kompromatLife=10
     $kompromatFoto='The photograph footage from your porn.'
     end
     if fotoyousuck=1 and kompromatLife<9:
     !sucked in a couple of guys and was sfotografirovanna
     if kompromatLife<9:kompromatLife=9
     $kompromatFoto='The photograph clearly shows, you suck just two members. Obviously this is the picture, which is pasted at the entrance, after you suck in the park.'
     end
     if fotoCFNMsex>0 and kompromatLife<8:
     kompromatLife=8
     $kompromatFoto='In the photo you are standing in front of a crowd of people with cancer and you fucked from behind naked man. Clearly the photo was taken in strip clubs.'
     end
     if fotoCFNMblowjobCum>0 and kompromatLife<7:
     !cum on face in the strip club
     kompromatLife=7
     $kompromatFoto='In the photo you sit down in front of a naked guy. His sperm is visible on your face and his penis touches your lips. Clearly the photo was taken in strip clubs.'
     end
     if fotoCFNMblowjob>0 and kompromatLife<6:
     !sucked in front of everyone
     kompromatLife=6
     $kompromatFoto='In the photo you sit down in front of a naked guy, lips around his dick. Visible behind a crowd of girls. Clearly the photo was taken in strip clubs.'
     end
     
     if stripdancesum>0 and kompromatLife<2:
     !stripper
     if kompromatLife<2:kompromatLife=2
     $kompromatFoto='The photograph, You dance naked near a pole. Obviously you fotkali when you worked as a stripper.'
     end
     if modelfoto > 0 and kompromatLife<1:
     !photo model
     if kompromatLife<1:kompromatLife=1
     $kompromatFoto='The photograph your naked body. When you posed in the modeling agency.'
     end


shameless=guy+bj+anal+hj+(slutty*2)+(gang*2)
moneySUM=money+karta+stolmoney
cumSUM=cumbelly+cumpussy+cumass+cumlip+cumface+cumfrot+cumanus

gs'dina'
gs'din2'

if husbizvradd>5:izvratH = 1
if husbharmin>10:harakHusb = 0
if clrbelo<=0:clrbelo=0&tanga=0

if husband=0:
	 set husbizvradd=0
	 set husbharmin=0
	 set husbandMark=0
	 set houseslut=0
	 end

if SNarkvnesh=0:SNarkvnesh=1
if SNarkTimes>=SNarkvnesh*25:
SNarkvnesh+=1
vidage+=1
end

if gopota>=20 and gnewQW=1: set gnewQW=2

if workDisk=4 and week>5:workDisk=1
if workDisk=3 and week>5:workDiskAtkPlayer=1


VeneraN=0
if VeneraOnce>0:VeneraOnce = 0
if SifacOnce=1:VeneraN+=1
if GerpesOnce=1:VeneraN+=1
if TriperOnce=1:VeneraN+=1
Venera=VeneraN 


if fat<0:fat=0
if vokal<0:vokal=0
if vokal>100:vokal=100
if dance>100:dance=100
if stripdance>100:stripdance=100
if poledance>100:poledance=100

!'if libonce=0:
libonce=1
ADDQST 'lib/otg_lib_menu_eng.qsp'
end'
!'if youngshoponce=0:
youngshoponce=1
ADDQST 'youngshop.qsp'
end

if qwestonce=0:
qwestonce=1
ADDQST 'qwest/qwest.qsp'
end'

if bfa<0:bfa=0

if painQW = 0:set painweather = 6

if beg < 0:set beg = 0
if beg > 2000:set beg = 2000

if oficiant > 100:set oficiant = 100
if vagina > 30:set vagina = 30
if throat > 30:set throat = 30
if anus > 30:set anus = 30

if Jab > 120: set Jab = 120
if Punch > 120: set Punch = 120
if Kik > 120: set Kik = 120
if KikDef > 120: set KikDef = 120


if nark >= 30 and narkoman = 0:
set narkoman = 1
end
if nark = 0 and narkoman = 0:
set narkoman = 0
end

set boxing = Jab + Punch + Kik + KikDef
if boxing > 100:set boxing = 100

if stren > 100 and mutagenP = 0:set stren = 100
if speed > 100 and mutagenS = 0:set speed = 100
if agil > 100 and mutagenA = 0:set agil = 100
if react > 100 and mutagenR = 0:set react = 100
if vital > 100 and mutagenV = 0:set vital = 100
if will > 100 and mutagenW = 0:set will = 100
if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:set intel = 100

if stren > 150 and mutagenP = 1:set stren = 150
if speed > 150 and mutagenS = 1:set speed = 150
if agil > 150 and mutagenA = 1:set agil = 150
if react > 150 and mutagenR = 1:set react = 150
if vital > 150 and mutagenV = 1:set vital = 150
if will > 150 and mutagenW = 1:set will = 150
if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:set intel = 150

if stren > 200 and mutagenP = 2:set stren = 200
if speed > 200 and mutagenS = 2:set speed = 200
if agil > 200 and mutagenA = 2:set agil = 200
if react > 200 and mutagenR = 2:set react = 200
if vital > 200 and mutagenV = 2:set vital = 200
if will > 200 and mutagenW = 2:set will = 200
if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:set intel = 200

if stren > 250 and mutagenP = 3:set stren = 250
if speed > 250 and mutagenS = 3:set speed = 250
if agil > 250 and mutagenA = 3:set agil = 250
if react > 250 and mutagenR = 3:set react = 250
if vital > 250 and mutagenV = 3:set vital = 250
if will > 250 and mutagenW = 3:set will = 250
if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:set intel = 250

if intel > 250:set intel = 250

if MagikDostup=0:
if orgasm >= 1 and magik < 1:set magik = 1&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 2 and magik < 2:set magik = 2&set resnic = resnic + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 4 and magik < 3:set magik = 3&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 8 and magik < 4:set magik = 4&set resnic = resnic + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 16 and magik < 5:set magik = 5&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 32 and magik < 6:set magik = 6&set resnic = resnic + 1&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 64 and magik < 7:set magik = 7&set glaraz = glaraz + 1&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 100 and magik < 8:set magik = 8&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 200 and magik < 9:set magik = 9&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 300 and magik < 10:set magik = 10&set rikudo = rikudo + 2000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 400 and magik < 11:set magik = 11&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 500 and magik < 12:set magik = 12&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 600 and magik < 13:set magik = 13&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 700 and magik < 14:set magik = 14&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 800 and magik < 15:set magik = 15&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 900 and magik < 16:set magik = 16&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1000 and magik < 17:set magik = 17&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1100 and magik < 18:set magik = 18&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1200 and magik < 19:set magik = 19&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1300 and magik < 20:set magik = 20&set rikudo = rikudo + 16000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1400 and magik < 20:set magik = 21&set rikudo = rikudo + 21000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
end


if SUB >= DOM and DOM > 0:set SUB = SUB - DOM&set DOM = 0
if DOM >= SUB and SUB > 0:set DOM = DOM - SUB&set SUB = 0 


if horny < 0:set horny = 0
if health > vital*10 + stren*5:set health = vital*10 + stren*5
if willpower > intel*5 + will*5:set willpower = intel*5 + will*5
if manna > (intel*magik) + magik*100 + vital*10 + rikudo:set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
set mannamax = (intel*magik) + magik*100 + vital*10 + rikudo 
!set musle = strenbuf + vitalbuf
if vidageday <= 0:
	 set vidageday = 360
	 set vidage+=1
	 end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!TIME
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if nminut!minut:
!totminut playing time in minutes
totminut+=minut
nminut=minut
end
if vgape>0:
     if vgape=3:
     if manna>(mannamax/4):manna=mannamax/4
     end
     if vgape=2:
     if manna>(mannamax/2):manna=mannamax/2
     end
end
if agape>0:
     if agape=3:
     if manna>(mannamax/6):manna=mannamax/6
     end
     if agape=2:
     if manna>(mannamax/3):manna=mannamax/3
     end
end

if vgape>0:
     if vgapetime+2500<=totminut:
     if vgape=1:vgape=0
     if vgape=2:vgape=1&vgapetime=totminut
     if vgape=3:vgape=2&vgapetime=totminut
     end
end
if agape>0:
     if agapetime+5760<=totminut:
     if agape=1:agape=0
     if agape=2:agape=1&agapetime=totminut
     if agape=3:agape=2&agapetime=totminut
     if anus>1:anus-=1
     end
end

if sec >= 60:
:loopsec
minut+= 1
sec-=60
     if sec >= 60:
     jump 'loopsec'
     end 
end

if minut >= 60:
:loopmin
if SbrosNerdism=1:nerdism-=((will/10)+orgasm)
if nerdism<0:nerdism=0
if obkvsdam>0:set obkvsdam=RAND(2,5)
set hour = hour + 1
set energy = energy - 1
set water = water - 1
set son = son - 1
set minut = minut - 60
     if alko>0:
         if alko>=4:
         if beg>0:beg-=1
         if volleyboll>0:volleyboll-=1
             if alko>=6:
             if stren>10:stren-=1&salo+=3
             if vital>10:vital-=1&salo+=3
             if intel>10:intel-=1
             alko-=alko/2
             end
         end
     alko-=1
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     !!!!!!!!!!!!!!!!Avtoboy
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if hour>=8 and hour<=23 and NPCnum>10:
     :markturnirotbort
	 xf=0
	 :markturnirotbortt
	 xf+=1
	 turnirFighter[xf]=RAND(2,NPCnum)
	 if xf<2:jump'markturnirotbortt'
	 if turnirFighter[1]=turnirFighter[2]:jump'markturnirotbort'
	 a=turnirFighter[1]
	 i=turnirFighter[2]
	 NoView=1
	 gs 'Autofight'
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if shame>0:shame-=1&manna-=5
if smoker>=20:smokerNeed+=1
if smokerNeed>10 and InSleep=0:manna-=manna*10/100
if smokerNeed>300:smokerNeed=0&smoker=0
if StrongNarkota>0:StrongNarkota-=1
if SLomka>0:SLomka+=1&manna-=500
if SLomka>100 and StrongNarkota<=0:SLomka=0&SNarkTimes=0
set LCWorkRand = rand (1,6)
if narkoman = 1 and narkday ! day:
     set health = health - 5
     set willpower = willpower - 5
     set manna = manna - 10
     end
if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:
     mosolpred+=1
     end
if mosolpred>=10:
     set mosol+=1
     set mosolpred-=10
     end
if mosol>=50:
     manna-=5
     end
     
     if energy >= 25:energy-=5&fat+=1
     
     
if tanga=1 and mosol>0:mosol-=1
if lipbalmstat>0:lipbalmstat-=1
if sickstage=1:sick+=1&sicktimer+=1
if sickstage=1 and sicktimer>=80:sicktimer=0&sickstage=2
if sickstage=2 and sick>0:sick-=1
if sickstage=2 and sick<=0:sick=0&sickstage=0
if perkice>0:perkice-=1
if frost>0:frost-=1
if KGOLpers>0:
	 if KGHP<KGHPMAX:KGHP+=10
	 if KGManna<KGMannaMax:KGManna+=10
     end
if minut >= 60:
     jump 'loopmin'
     end
end

if hour >= 24:
     if pirs_pain_ton>0:pirs_pain_ton-=1

     if artompower<=0:artompower=3
     
     if brow>0 and browper=0:brow-=1
     
     if shorthair=1:
     shorthairday+=1
     if shorthairday>=45:shorthairday=0&shorthair=0
     end
if KatjaOTN>0:
if KatjaHorny>0 and KatjaLust<40:KatjaHorny-=rand(1,3)
if KatjaLust>=40:KatjaHorny+=rand(1,3)
if KatjaHorny<0:KatjaHorny=0
if KatjaHorny>=100:KatjaHorny=0&KatjaMastr+=1&KatjaLust+=1
end
if volleysostav>0:trenerepa-=1
     if birthday=day and birthmonth=month:
     !birthday
     set age = age + 1
     set vidage = vidage + 1
     end
     if horny>hornyStat:
	 hornyStat=horny
		 if pirsA>0:
		 horny+=1
		 end
		 if pirsB>0:
		 horny+=1
		 end
		 if pirsC>0:
		 horny+=1
		 end
		 if pirsD>0:
		 horny+=1
		 end
		 if pirsE>0:
		 horny+=1
		 end
		 if pirsF>0:
		 horny+=5
		 end
		 if pirsG>0:
		 horny+=5
		 end
		 if pirsN>0:
		 horny+=1
		 end
	 end
	 if horny<hornyStat:
	 hornyStat=horny
	 end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     !!!!!!!!!!!!generation
     if NPCnum<290:
     NPCnow=NPCnum
     NPCnum+=RAND(1,3)
     gs'npc'
     end
     if NPCnum>=290 and NPCnum<300:
     NPCnow=NPCnum
     NPCnum+=1
     gs'npc'
     end
     !End generation
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kanikuli=0:Suspeh-=1
set dmishaevent = 0

if BuyHous=2 and ArendHouseSL<=0:ArendHouseSL=0&BuyHous=0&housr = 0
if BuyHous=2 and ArendHouseSL>0:ArendHouseSL-=1

if Gspravka<=0 and GspravkaT>0:GspravkaT=0&Gspravka=0
if GspravkaT>0:Gspravka-=1
     if IvanPodstavaQW=2 and PodpiskaNeviezd=30:IvanPodstavaQW=3
     if IvanPodstavaQW=2 and PodpiskaNeviezd>0 and PodpiskaNeviezd<30:PodpiskaNeviezd+=1

if salo>fat:
salo-=1
fat+=1
end
if salo<fat:
salo+=1
fat-=1
end

if strenbuf>stren:set strenbuf-=1
if strenbuf<stren:set strenbuf+=1
if vitalbuf>vital:set vitalbuf-=1
if vitalbuf<vital:set vitalbuf+=1
if agilbuf>agil:set agilbuf-=1
if agilbuf<agil:set agilbuf+=1
if husband>0 and husbandrink!11:set husbandrink=rand(0,10)
set inWorkYoungShop=0
set husbandsexday=0
set borsexkol=0
set givisexday=0
if shantsr>0:
	 set pay=shantsr*5000
	 set karta+=pay
	 set shantsr=0
	 end
if shantbog>0:
	 :shantftb
	 set shantftbgrand=rand(0,10)
	 if shantftbgrand>2:
		 set shantpopala+=1
		 set shantbog-=1
		 if shantbog>0:jump'shantftb'
		 end
	 if shantftbgrand<=2:
		 set karta+=30000
		 set shantbog-=1
		 if shantbog>0:jump'shantftb'
		 end
	 end
set petersexday=0
set klismaday1= 0
:loop
set day = day + 1
set daystart = daystart + 1
set week = week + 1
set hour = hour - 24
!RFP
if SifacOnce=1:Sifilis+=1
if GerpesOnce=1:Gerpes+=1
if TriperOnce=1:Triper+=1
if KandidozOnce=1:Kandidoz+=1
if beg>=100 and beg<1000:beg-=1
if beg>=1000 and beg<1500:beg-=2
if beg>=1500 and beg<2000:beg-=3
if beg>=2000:beg-=4

set vidageday = vidageday - 1
if workDolgDay>0:workDolgDay-=1
if QWdogreiqTimer>0:QWdogreiqTimer-=1
if husband > 0:husbanday+=1
if kid>0:kid+=1
if husband>10 and husbanday>0:husband-=15
if fingal>0:fingal-=1
if husbandMark=1 and husband<=10:
	 set husbizvradd=0
	 set husbharmin=0
	 set husbandMark=0
	 set husband=0
	 set divorced+=1
	 if KFOnLineReaga>0:KFOnLineReaga-=1
	 '<B><font color=red>Your husband filed for divorce.</font></B>'
	 end
gs'cikl'
     if nark > 0:
     set nark = nark - 1
     end
     if pregtime>10:fat+=1
     if hour >= 24:
     jump 'loop'
     end
     
     
end
!payments
if day = 25:
     if PersSecWork=1 and PersSecWorkTimes>0 and paydaybistrosec=0:
     Pay=PersSecWorkTimes*2500
     PersSecWorkTimes=0
     money+=Pay
     paydaybistrosec=1
     '<B><font color=green>you have listed <<pay>> rubles salary for a job as a secretary.</font></B>'
     end
     
     if workKafe = 1 and paydayKafe = 0:
     set paydayKafe = 1
     set pay = smenaKafe*600
     set money = money + pay
     set smenaKafe = 0 
     '<B><font color=green>you have listed <<pay>> rubles salary for a job as a waitress in a cafe.</font></B>'
     end
     
     if workhosp = 1 and nopaypoly=0:
     set pay = smena*1000
     set money = money + pay
     set smena = 0
     nopaypoly=1
     '<B><font color=green>you have listed <<pay>> rubles salary for his work in the clinic.</font></B>'
     end
     
     if worksalon = 1 and nopaysalon=0:
     set pay = smena*800
     set money = money + pay
     set smena = 0
     nopaysalon=1
     '<B><font color=green>you have listed <<pay>> rubles salary for a job in a beauty salon.</font></B>'
     end
     
     if tanwork = 1 and nopaytanwork=0:
     nopaytanwork=1
     set money+=25000
     '<B><font color=green>you have listed 25000 rubles salary for a job as a governess.</font></B>'
     end
     
     if workSec = 1 and paydaySec = 0:
     set paydaySec = 1
     set pay = sekDay*800
     if officebestslut>=3:set pay+=20000
     set karta = karta + pay
     set sekDay = 0 
     '<B><font color=green>You have listed a bank account <<pay>> rubles salary for a job as a secretary.</font></B>'
     end
     
     if husband>0 and paydayHusb=0:
     paydayHusb=1
         if husbFin=0:huspay=15000
         if husbFin=1:huspay=25000
         if husbFin=2:huspay=40000
         money+=huspay
         '<B><font color=green>Your husband listed salary to a bank account, in an amount <<huspay>> rubles.</font></B>'
     end
     
     if stipuha = 1 and stipuhaday = 0:set stipuhaday = 1&set money = money + 1200&'<B><font color=green>you have listed 1200 rubles scholarships.</font></B>'
     if housr = 1 and haday = 0:set haday = 1&set money = money - 3000&'<B><font color=red>you paid 3000 rubles per apartment.</font></B>'
     if housr = 1 and electroday = 0:
     set electroday = 1
     if elektro >= 800:set elektro = 800 + RAND(0,100)
     set money = money - elektro
     '<B><font color=red>you paid <<elektro>> RUR Light.</font></B>'
     end
     if housr = 1 and kabel > 0 and kabelday = 0:set kabelday = 1&set money = money - 300&'<B><font color=red>you paid 300 rubles for cable TV.</font></B>'
     
end

if day ! 25:
     if paydayHusb=1:paydayHusb=0
     if workKafe = 1 and paydayKafe = 1:set paydayKafe = 0
     if workSec = 1 and paydaySec = 1:set paydaySec = 0  
     if housr = 1 and haday = 1:set haday = 0
     if housr = 1 and electroday = 1:set electroday = 0
     if housr = 1 and kabel > 0 and kabelday = 1:set kabelday = 0
     if stipuhaday = 1:set stipuhaday = 0
     if nopaytanwork=1:nopaytanwork=0
     if nopaypoly=1:nopaypoly=0
     if nopaysalon=1:nopaysalon=0
     if paydaybistrosec=1:paydaybistrosec=0
end

if sdaday=day and sdamonth=month and housr=0:
	 set housr=1
	 '<B><font color=red>Term of lease your apartment has expired, you returned the keys.</font></B>'
	 end

if month=1 or month=3 or month=5 or month=7 or month=8 or month=10 or month=12:
!31
     if day > 31:day-=31&month+=1
elseif month=2:
!28
     if day > 28:day-=28&month+=1
elseif month=0:
month=1
     if day > 31:day-=31&month+=1
elseif month=13:
month=1
     if day > 31:day-=31&month+=1
else
!30
	 if day > 30:day-=30&month+=1
end

!'if day > 30:
set day = day - 30
set month = month + 1
end'

if day = 0:set day = 1

if week > 7:
:loopweek
set week = week - 7
set husbandrink=0
if military = 1:set military = 0
     if week > 7:
     jump 'loopweek'
     end

end

if week = 1:Set $week = 'Monday'
if week = 2:Set $week = 'Tuesday'
if week = 3:Set $week = 'Wednesday'
if week = 4:Set $week = 'Thursday'
if week = 5:Set $week = 'Friday'
if week = 6:Set $week = 'Saturday'
if week = 7:Set $week = 'Sunday'

if month = 0:Set month = 1
if month = 13:Set month = 1&set year = year + 1
If month = 1:set $month = 'January'&$mons = 'January'
If month = 2:set $month = 'February'&$mons = 'February'
If month = 3:set $month = 'March'&$mons = 'Martha'
If month = 4:set $month = 'April'&$mons = 'April'
If month = 5:set $month = 'May'&$mons = 'May'
If month = 6:set $month = 'June'&$mons = 'June'
If month = 7:set $month = 'July'&$mons = 'July'
If month = 8:set $month = 'August'&$mons = 'August'
If month = 9:set $month = 'September'&$mons = 'September'
If month = 10:set $month = 'October'&$mons = 'October'
If month = 11:set $month = 'November'&$mons = 'November'
If month = 12:set $month = 'December'&$mons = 'December'

if minut < 10:set $nilmin = '0'
if minut >= 10:set $nilmin = ''



if kid>0:
     if year>yearkid[1] and markyear[1]!year:
         if monthkid[1]=month and daykid[1]=day:
         markyear[1]=year
         kidage[1]+=1
         end
     end
end


!moodlet
!mannamax
!totminut

if Mud>=totminut:
manna=mannamax
$mud='You feel buoyed.'
else
$mud=''
end

if nerdism>0:
     if lastreadday=daystart:
	 !<font color=green>You are completely healthy shine and a healthy glow.</font>
	 manna=mannamax
	 SbrosNerdism=0
     $mudnerd='<font color=green>You are lost in a fantasy after reading the book.</font>'
	 end
	 
	 if lastreadday+1=daystart:
	 !manna=mannamax
	 SbrosNerdism=0
     $mudnerd='<font color=black>You a little bored and want to again plunge into a book.</font>'
	 end
	 
	 if lastreadday+2=daystart:
	 SbrosNerdism=0
	 if manna>mannamax/2:manna-=10
     $mudnerd='<font color=red>Do you really want something to read.</font>'
	 end
	 
	 if lastreadday+3<=daystart:
	 if manna>mannamax/10:manna-=10
	 SbrosNerdism=1
     $mudnerd='<font color=red><b>You terribly want at least something to read!!!</b></font>'
	 end
	 !$mudnerd+='lastread<<lastread>> totminut<<totminut>> <<totminut-lastread>>'
else
SbrosNerdism=0
$mudnerd=''
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!END OF TIME
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subage=0
:metakasubage
subage+=10
if subage+10<age:
JUMP'metakasubage'
else
subage=age-subage
end

if subage=0 or subage>=5:
$letgoda='year_old'
elseif subage=1:
$letgoda='year'
else
$letgoda='year'
end

subagevne=0
:metakasubagevne
subagevne+=10
if subagevne+10<vidage:
JUMP'metakasubagevne'
else
subagevne=vidage-subagevne
end

if subagevne!1:
$letgoda2='year_old'
else
$letgoda2='year'
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!ENERGY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if son < 0:
set son = 0
set manna = manna - 5
end

if energy < 0:
	 set energy = 0
	 set health = health - 1
     if fat = 0 and stren + vital > 0:
		 set stren = stren - 1
		 set vital = vital - 1
		 set energy = energy + 2
		 end
     if fat = 0 and stren + vital <= 0:
		 set over = 3
		 gt'gameover'
		 exit
		 end
     if fat > 0:
		 set fat = fat - 1
		 set energy = energy + 2
		 end
	 end

if water < 0:
set water = 1
set health = health - 5
set willpower = willpower - 1
end

if manna <= 0:
set manna = 1
set health = health - 5
set willpower = willpower - 5
!set fat = fat + 1
end

if health < 0:
set over = 1
gt'gameover'
exit
end
if willpower < 0 and StoryLine=0:
set over = 2
gt'gameover'
exit
end

     if saloonce=0 and opPRE = 0:
	 set saloonce=1
	 set salo=fat
	 set strenbuf=stren
	 set vitalbuf=vital
	 set agilbuf=agil
	 end

gs'body'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if health = vital*10 + stren*5:set $health = '<font color=green>You are completely healthy shine and a healthy glow.</font>'
if willpower = intel*5 + will*5:set $willpower = '<font color=green>You have a crystal clear mind.</font>'
if manna = (intel*magik) + magik*100 + vital*10 + rikudo:set $manna = '<font color=green>You are in a good mood.</font>' 

if health < vital*10 + stren*5 and health >= (vital*10 + stren*5)*75/100:set $health = '<font color=blue>you are healthy, but feel like it is not very.</font>'
if health < (vital*10 + stren*5)*75/100 and health >= (vital*10 + stren*5)*50/100:set $health = '<font color=brown>You do not have health.</font>'
if health < (vital*10 + stren*5)*50/100 and health >= (vital*10 + stren*5)*25/100:set $health = '<font color=red>you `re.</font>'
if health < (vital*10 + stren*5)*25/100:set $health = '<font color=red>You are on the verge of death.'

if willpower < intel*5 + will*5 and willpower >= (intel*5 + will*5)*75/100:set $willpower = '<font color=blue>You mostly reside in thought.</font>'
if willpower < (intel*5 + will*5)*75/100 and willpower >= (intel*5 + will*5)*50/100:set $willpower = '<font color=brown>you repressed.</font>'
if willpower < (intel*5 + will*5)*50/100 and willpower >= (intel*5 + will*5)*25/100:set $willpower = '<font color=red>You are in depression.</font>'
if willpower < (intel*5 + will*5)*25/100:set $willpower = '<font color=red>You are on the verge of insanity.</font>'

if manna < (intel*magik) + magik*100 + vital*10 + rikudo and manna >= ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100:set $manna = '<font color=blue>You have normal mood.</font>' 
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100 and manna >= ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100:set $manna = '<font color=brown>You are in a bad mood.</font>'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and manna >= ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100:set $manna = '<font color=red>You are in a terrible mood.</font>'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100:set $manna = '<font color=red>Your mood below any baseboards and urban sanitation.</font>'


if energy >= 20:set $energy = '<font color=green>You ate to satiety.</font>'
if energy < 20 and energy >= 10:set $energy = '<font color=blue>you are full.</font>'
if energy < 10 and energy >= 2:set $energy = '<font color=brown>You are a little hungry.</font>'
if energy < 2:set $energy = '<font color=red>You are very hungry.</font>'

if water >= 20:set $water = '<font color=green>You got drunk and did not want to drink.</font>'
if water < 20 and water >= 10:set $water = '<font color=blue>You do not want to drink.</font>'
if water < 10 and water >= 2:set $water = '<font color=brown>You want to drink.</font>'
if water < 2:set $water = '<font color=red>You sushnyak.</font>'

if son >= 20:set $son = '<font color=green>You get enough sleep and do not want to sleep.</font>'
if son < 20 and son >= 10:set $son = '<font color=blue>You do not want to sleep.</font>'
if son < 10 and son >= 2:set $son = '<font color=brown>You want to sleep.</font>'
if son < 2:set $son = '<font color=red>You fall asleep on the move.</font>'

$din_shame={
!dynamic din_shame
!shame+=1
!if shame>=5:shame=4&shameless+=1
!if shame >= 4:set $shame = '<font color=red><b>Your cheeks blazing from zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color=red>Your cheeks flush red with shame.</font>'
!if shame = 2:set $shame = '<font color=brown>You nemnog opokrasneli shame.</font>'
!if shame = 1:set $shame = '<font color=green>You`re a little confused.</font>'
!if shame <= 0:set $shame = '<font color=green>You`re a little confused.</font>'
!gs'stat'
}


!if shame>=5:shame=4&shameless+=1
!if shame >= 4:set $shame = '<font color=red><b>Your cheeks blazing from zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color=red>Your cheeks flush red with shame.</font>'
!if shame = 2:set $shame = '<font color=brown>You nemnog opokrasneli shame.</font>'
!if shame = 1:set $shame = '<font color=green>You`re a little confused.</font>'
!if shame <= 0:set $shame = '<font color=green>You`re a little confused.</font>'



set $holyday = ''
kanikuli=0
if (month = 10 and day >= 27) or (month = 11 and day <= 4): set $holyday = '<b>Autumn holidays.</b>'&kanikuli=1
if (month = 12 and day >= 29) or (month = 1 and day <= 13): set $holyday = '<b>Winter Holidays.</b>'&kanikuli=2
if (month = 3 and day >= 25): set $holyday = '<b>spring break.</b>'&kanikuli=3
if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:set $holyday = '<b>summer vacation.</b>'&kanikuli=4
if month = 1 and day = 1: set $holyday = '<b>new Year!</b>'&kanikuli=5


if hour>=8 and hour<16 and week<6 and StoryLine>0 and SchoolAtestat=0 and kanikuli=0 and schoolProgulDay!day:
!absence from school
schoolprogul+=1
schoolProgulDay=day
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!Beginning Description
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!pl'time <B><<hour>></B> hours <B><<$nilmin>><<minut>></B> minutes'
!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.' 
if hour < 10 :
     if minut > 9 : pl' <B> 0<<hour>> : <<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
     if minut < 10 : pl' <B> 0<<hour>> : 0<<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
end
if hour > 9 :
     if minut > 9 : pl' <B> <<hour>> : <<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
     if minut < 10 : pl' <B> <<hour>> : 0<<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
end

pl'  <b><<money>></b> rubles in your purse'
if StoryLine>0 and SchoolAtestat=0:pl'<<$holyday>>'
if birthday=day and birthmonth=month:pl'<b>Today is your birthday.</b>'
!if shame>0:pl'<<$shame>>'
pl'<B><<$manna>></B>'
if horny >= 90:pl'<font color=#FF1493>Do you feel, that between the legs soaked all of your juices.</font>'
if horny >= 50 and horny < 90:pl'<font color=#DB7093>You are a little excited, feeling like something between her legs nice itchy.</font>'
if ETOmenu=1:
pl'<B><<$health>></B>'
pl'<B><<$willpower>></B>'
pl'<B><<$energy>></B>'
pl'<B><<$water>></B>'
pl'<B><<$son>></B>'
end
if ETOmenu=0:
set a = horny
!set a1=horny
gs 'indik','2'
pl '<<$ind>> excitation'

healthmax=(vital*10 + stren*5)
set a = ( health*100 /healthmax )
set a1 = health
gs 'indik','1'
pl '<<$ind>> health '

willpowermax =(intel*5 + will*5)
set a = ( willpower*100 / willpowermax )
set a1 = willpower
gs 'indik','1'
pl '<<$ind>> purity of mind'

set a = ( manna *100 / mannamax )
set a1 = manna
gs 'indik','1'
pl '<<$ind>> mana '

set a = energy*4
set a1=energy
gs 'indik','1'
pl '<<$ind>> satiety'

set a = water*5
set a1=water
gs 'indik','1'
pl '<<$ind>> thirst '

set a = son*4
set a1=son
gs 'indik','1'
pl '<<$ind>> cheerfulness '
end

$smoker={
siga-=1
smoker+=1
smokeHour=hour
smokeDay=day
smokeminut=minut+5
smokeNeed=0
manna+=100
wipo+=100
if energy<20:energy+=3
gs'stat'
}
if $mud!'':pl'<font color=green><b><<$mud>></b></font>'
if siga<=0 and smoker>=20:pl'<font color=red><b>You have run out of cigarettes.</b></font>'
if smokeNeed>0 and siga>0 and smoker>=20:
pl'<a href="exec:dynamic $smoker"><font color=red><b>You want to smoke. Do you have another <<siga>> cigarettes</b></font></a>'
elseif siga>0 and smoker>=20:
pl'<a href="exec:dynamic $smoker"><font color=blue><b>Do you have another <<siga>> cigarettes</b></font></a>'
end
if siga>0 and smoker<20:
     if smokeHour=hour and smokeday=day and smokeminut>=minut:
     else
     pl'<a href="exec:dynamic $smoker"><font color=blue><b>Do you have another <<siga>> cigarettes</b></font></a>'
     end
end
if smokeHour=hour and smokeday=day and smokeminut>=minut:pl'<font color=green>Do you smoke a cigarette</font>'

if pirs_pain_ton>0:
if pirs_pain_ton=1:pl'<font color=red>You have aches language and it is a little swollen.</font>'
if pirs_pain_ton=2:pl'<font color=red>You often aches language and it is noticeably swollen.</font>'
if pirs_pain_ton>2:pl'<font color=red><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
end
if nippain>0:pl'<font color=red><b><<$nippain>></b></font>'
if painpub>0:pl'<font color=red><b><<$painpub>></b></font>'

if opPRE = 0:pl'<<$mop>> and <<$hapri>> hair.'
!!!!!!!!!!!!!!!!!!!
if sweat = 1:pl'<font color=brown>you sweat.</font>'
if sweat = 2:pl'<font color=red>You little smells.</font>'
if sweat = 3:pl'<font color=red>You stink then.</font>'
if sweat > 3:pl'<B><font color=red>You stink as from bomzhihi.</font></B>'
if isprok = 0 and mesec > 0 and preg = 0:pl'<B><font color=red>You have bleeding between the legs, urgently need a gasket.</font></B>'
if isprok = 1 and mesec > 0 and preg = 0:pl'You have monthly, but lining protects you.'
if preg = 1 and pregtime = 280:pl'<B><font color=red>YOU start to scramble you urgently need the hospital</font></B>'
if preg = 1:Set rodtime = 280 - pregtime
if preg = 1 and pregtime < 280 and pregtime > 6:pl'<B><font color=blue>you are pregnant <<pregtime>> days, left before delivery <<rodtime>> days</font></B>'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl'<B><font color=red>You can leave for a work shift waitress in a cafe</font></B>'
if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl'<B><font color=red>YOU NEED TO WORK SECRETARY</font></B>'
if PersSecWork=1 and week<6 and hour<10 and hour>=5:pl'<B><font color=red>YOU NEED TO WORK secretary in BYSTROEZHKU, NO LATER THAN 9o`clock</font></B>'


$cumeater={
cumlip+=1
vaf+=1
cumbelly=0
gs'stat'
'You have collected fingers sperm from the stomach and licked them feel tart taste of semen.'
}
$cumeater2={
cumlip+=1
vaf+=1
cumpussy=0
gs'stat'
'You have collected sperm from fingers pussy and licked them feel tart taste of semen.'
}
$cumeater3={
cumlip+=1
vaf+=1
cumass=0
gs'stat'
'You have collected sperm from fingers and licked their priests felt tart taste of semen.'
}
$cumeater4={
cumlip+=1
vaf+=1
cumface=0
gs'stat'
'You have collected fingers sperm from her face and licked them feel tart taste of semen.'
}
$cumeater5={
cumlip+=1
vaf+=1
cumfrot=0
gs'stat'
'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
}
$cumeater6={
cumlip+=1
vaf+=1
cumanus=0
gs'stat'
'You have collected fingers sperm from the anus and lick them feel tart taste of semen.'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!'<a href="exec:view''picb/cumface.jpg''">face</a>'
!'<a href="exec:view''picb/cumface.jpg''"><B><font color=red>Your face</font></B></a>'
!'<a href="exec:view''picb/cumass.jpg''"><B><font color=red>Your Booty</font></B></a>'


if cumbelly > 0 and swallow<10:pl'<B><font color=red>your <a href="exec:view''picb/cumbelly.jpg''">stomach</a> smeared in sperm.</font></B>'
if cumbelly > 0 and swallow>=10:pl'<a href="exec:view''picb/cumbelly.jpg''"><B><font color=red>your stomach</font></B></a> <a href="exec:dynamic $cumeater"><B><font color=red>smeared in sperm.</font></B></a>'

if cumpussy > 0 and swallow<10:pl'<B><font color=red>from your <a href="exec:view''picb/cumpussy.jpg''">pussy</a> sperm slowly flows.</font></B>'
if cumpussy > 0 and swallow>=10:pl'<a href="exec:view''picb/cumpussy.jpg''"><B><font color=red>Of your pussy</font></B></a> <a href="exec:dynamic $cumeater2"><B><font color=red>sperm slowly flows.</font></B></a>'

if cumass > 0 and swallow<10:pl'<B><font color=red>Your <a href="exec:view''picb/cumass.jpg''">Booty</a> peremazanna in semen.</font></B>'
if cumass > 0 and swallow>=10:pl'<a href="exec:view''picb/cumass.jpg''"><B><font color=red>Your Booty</font></B></a> <a href="exec:dynamic $cumeater3"><B><font color=red>peremazanna in semen.</font></B></a>'

if cumlip > 0:pl'<B><font color=red>From your mouth smells sperm.</font></B>'
if cumface > 0 and swallow<10:pl'<B><font color=red>your <a href="exec:view''picb/cumface.jpg''">face</a> and hair izmazanny in semen.</font></B>'
if cumface > 0 and swallow>=10:pl'<a href="exec:view''picb/cumface.jpg''"><B><font color=red>Your face</font></B></a> <a href="exec:dynamic $cumeater4"><B><font color=red>and hair izmazanny in semen.</font></B></a>'
if cumfrot > 0 and swallow<10:pl'<B><font color=red>You have to <a href="exec:view''picb/cumfrot.jpg''">clothes</a> spot sperm.</font></B>'
if cumfrot > 0 and swallow>=10:pl'<a href="exec:view''picb/cumfrot.jpg''"><B><font color=red>You have to dress</font></B></a> <a href="exec:dynamic $cumeater5"><B><font color=red>spot sperm.</font></B></a>'
if cumanus > 0 and swallow<10:pl'<B><font color=red>from your <a href="exec:view''picb/cumanal.jpg''">ass</a> sperm slowly flows.</font></B>'
if cumanus > 0 and swallow>=10:pl'<a href="exec:view''picb/cumanal.jpg''"><B><font color=red>Out of your ass</font></B></a> <a href="exec:dynamic $cumeater6"><B><font color=red>sperm slowly flows.</font></B></a>'
if vgape=3:pl'<B><font color=red>You have very sore vagina, You hardly even walk, while trying to wider legs apart.</font></B>'
if vgape=2:pl'<B><font color=red>Do you have a sore vagina and you can hardly keep your feet together.</font></B>'
if vgape=1:pl'<B><font color=red>You have a little sore vagina.</font></B>'
if agape=3:pl'<B><font color=red>You have very sore anus and comes out of your blood.</font></B>'
if agape=2:pl'<B><font color=red>Do you have a sore anus.</font></B>'
if agape=1:pl'<B><font color=red>You have a little sore and itchy anus.</font></B>'

if Gerpes >= 3:pl'<B><font color=red>Sores on your lips. All signs of genital herpes.</font></B>'
if Gerpes < 10 and Gerpes >= 5:pl'<B><font color=red>Your pussy blushed and strongly itches. This genital herpes.</font></B>'
if Gerpes >= 10:pl'<B><font color=red>Appeared on your pussy sores. This genital herpes.</font></B>'
if Gerpes >= 20:pl'<B><font color=red>Your ass covered with sores of genital herpes.</font></B>'
if Sifilis>=21 and Sifilis<50:pl'<B><font color=red>You have jumped most, solid sore on the lip.</font></B>'
if Sifilis>=50:pl'<B><font color=red>Syphilitic rash covers your whole body.</font></B>'
if Triper>2:pl'<B><font color=red>Vaginal white discharge come out strong and sharp pain when urinating. Just out of the vagina strongly and nasty smells.</font></B>'
if Kandidoz>30:pl'<B><font color=red>You thrush.</font></B>'
if SLomka>0:pl'<B><font color=red>You are very bad and hurt all the bones. You breaking</font></B>'
if narkday ! day and narkoman = 1:pl'<B><font color=red>You are very bad and hurt all the bones. Urgently need Pale Lady!</font></B>'
if fingal>0:pl'<B><font color=red>You shiner on his face.</font></B>'
if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
pl'<B><font color=red>Blush of shame fills your face, you do not put panties and now out of your short skirt sometimes shines naked ass.</font></B>'
end
if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:
pl'<B><font color=red>You do not put panties.</font></B>'
end
if mosol>=30 and mosol<50:pl'<B><font color=red>Pisya reddened and itchy, you think it rubbed on clothes.</font></B>'
if mosol>=50:pl'<B><font color=red>Pisya hurts and each step is given through the pain, Crimson and it can be seen worn by walking without underwear.</font></B>'
if analplugIN = 1:pl'<B><font color=red>You have inserted in the ass anal plug.</font></B>'
if vibratorin=1:pl'<B><font color=red>Do you work in the vagina vibrator.</font></B>'
if young_shop_work = 1 and hour=14 and week<6:pl'<B><font color=red>B 15 hours you have to be at work in the shop Keys Pussy.</font></B>'
if young_shop_work = 1 and hour=16 and week<6 and inWorkYoungShop=0:young_shop_miss+=1&pl'<B><font color=red>You will walk work.</font></B>'
if workrin=1:
	 if week=2 or week=4 or week=6:
		 if hour=7:pl'<B><font color=red>B 8m hours you work on the market.</font></B>'
		 if hour=8:pl'<B><font color=red>You need to work on the market.</font></B>'
	 end
 end
if frost>0 and frost<=5:pl'<B><font>You a little cold.</font></B>'
if frost>5 and frost<11:pl'<B><font color=red>you freeze.</font></B>'  
if frost>=11:pl'<B><font color=red>You are very cold.</font></B>'
if sick = 1:pl'<B><font color=red>You that is not good, tickle in the throat and a little runny nose.</font></B>' 
if sick > 1 and sick < 24:pl'<B><font color=red>you chills. You have runny nose and throat was raw, you cough or sneeze - seems, you just.</font></B>'
if sick >= 24 and sick < 48:pl'<B><font color=red>You have a fever. You have clogged nose, it hurts to swallow - throat aches. You constantly cough and sneeze - seems, you prosudilis.</font></B>'
if sick >= 48 and sick < 72:pl'<B><font color=red>You have a high fever. You have a stuffy nose, sore head and throat, you are very cough - seems, you got a strong cold. may be, this flu.</font></B>'
if sick >= 72:pl'<B><font color=red>You mosque in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You seriously with anguish cough - seems, you are seriously ill. may be, this sore throat.</font></B>'
if $mudnerd!'':pl'<<$mudnerd>>'

if hour < meethour and svidanieA = 1:pl'<<$boyA>> will be waiting for you near your home <<meethour>> hours'
if hour = meethour and svidanieA = 1:pl'<B><font color=red><<$boyA>> already waiting for you around the house.</font></B>'

if meetday<daystart and svidanieA = 1:bfA-=10&svidanieA = 0
if StrongNarkota>20:pl'<B><font color=red>You stoned.</font></B>'

if alko>0:
     if alko<3:pl'<B><font color=red>You`re a little drunk.</font></B>'
     if alko>=3 and alko<6:pl'<B><font color=red>you are drunk.</font></B>'
     if alko>=6:pl'<B><font color=red>You stinking drunk.</font></B>'
end

if day=29 and month=12 and year=2010 and StoryLine=1:
     if hour>=5 and hour<=14:pl'B 14 School hours will be held New Year`s party.'
end

gs'din_bad'

if bag>0:
pl'<a href="exec:dynamic $d_bag"><B>handbag</B></a>'
end

!zero checks marriage
set proverka1=0
set proverka2=0
set proverka3=0
set proverka4=0
set proverka5=0

!clothing repair, for old saved.
if remdrop=0:
	set remdrop=1
	if jeans = 1:set jeans[1]=1&set jeansH[1]=50&set jeansB[1]=bedra
	if jeans2 = 1:set jeans[2]=1&set jeansH[2]=50&set jeansB[2]=bedra
	if jeans3 = 1:set jeans[3]=1&set jeansH[3]=50&set jeansB[3]=bedra
	if jeans4 = 1:set jeans[4]=1&set jeansH[4]=50&set jeansB[4]=bedra
	if jeans5 = 1:set jeans[5]=1&set jeansH[5]=50&set jeansB[5]=bedra
	if yoga = 1:set yoga[1]=1&set yogaH[1]=50
	if yoga2 = 1:set yoga[2]=1&set yogaH[2]=50
	if yoga3 = 1:set yoga[3]=1&set yogaH[3]=50
	if yoga4 = 1:set yoga[4]=1&set yogaH[4]=50
	if yoga5 = 1:set yoga[5]=1&set yogaH[5]=50
	if yoga6 = 1:set yoga[6]=1&set yogaH[6]=50
	if yoga7 = 1:set yoga[7]=1&set yogaH[7]=50
	if yoga8 = 1:set yoga[8]=1&set yogaH[8]=50
	if yoga9 = 1:set yoga[9]=1&set yogaH[9]=50
	if yoga10 = 1:set yoga[10]=1&set yogaH[10]=50
	if yoga11 = 1:set yoga[11]=1&set yogaH[11]=50
	if yoga12 = 1:set yoga[12]=1&set yogaH[12]=50
	if yoga13 = 1:set yoga[13]=1&set yogaH[13]=50
	if yoga14 = 1:set yoga[14]=1&set yogaH[14]=50
	if yoga15 = 1:set yoga[15]=1&set yogaH[15]=50
	if yoga16 = 1:set yoga[16]=1&set yogaH[16]=50
	if yoga17 = 1:set yoga[17]=1&set yogaH[17]=50
	if yoga18 = 1:set yoga[18]=1&set yogaH[18]=50
	if sarafan = 1:set sarafan[1] = 1&set sarafanH[1]=50
	if sarafan2 = 1:set sarafan[2] = 1&set sarafanH[2]=50
	if short = 1:set short[1]=1&set shortH[1]=50&set shortB[1]=bedra
	if short2 = 1:set short[2]=1&set shortH[2]=50&set shortB[2]=bedra
	if short3 = 1:set short[3]=1&set shortH[3]=50&set shortB[3]=bedra
	if short4 = 1:set short[4]=1&set shortH[4]=50&set shortB[4]=bedra
	if short5 = 1:set short[5]=1&set shortH[5]=50&set shortB[5]=bedra
	if skirt = 1:set skirt[1]=1&set skirtH[1]=50&set skirtB[1]=bedra
	if skirt2 = 1:set skirt[2]=1&set skirtH[2]=50&set skirtB[2]=bedra
	if skirt3 = 1:set skirt[3]=1&set skirtH[3]=50&set skirtB[3]=bedra
	if skirt4 = 1:set skirt[4]=1&set skirtH[4]=50&set skirtB[4]=bedra
	if skirt5 = 1:set skirt[5]=1&set skirtH[5]=50&set skirtB[5]=bedra
	if dress = 1:set dress[1]=1&set dressH[1]=100&set dressB[1]=bedra
	if dress2 = 1:set dress[2]=1&set dressH[2]=100&set dressB[2]=bedra
	if dress3 = 1:set dress[3]=1&set dressH[3]=100&set dressB[3]=bedra
	if dress4 = 1:set dress[4]=1&set dressH[4]=100&set dressB[4]=bedra
	if dress5 = 1:set dress[5]=1&set dressH[5]=100&set dressB[5]=bedra
	if dress6 = 1:set dress[6]=1&set dressH[6]=100&set dressB[6]=bedra
	if dress7 = 1:set dress[7]=1&set dressH[7]=100&set dressB[7]=bedra
	if dress8 = 1:set dress[8]=1&set dressH[8]=100&set dressB[8]=bedra
	if dress9 = 1:set dress[9]=1&set dressH[9]=100&set dressB[9]=bedra
	if dress10 = 1:set dress[10]=1&set dressH[10]=100&set dressB[10]=bedra
	if dress11 = 1:set dress[11]=1&set dressH[11]=100&set dressB[11]=bedra
	if dress12 = 1:set dress[12]=1&set dressH[12]=100&set dressB[12]=bedra
	if dress13 = 1:set dress[13]=1&set dressH[13]=100&set dressB[13]=bedra
	if dress14 = 1:set dress[14]=1&set dressH[14]=100&set dressB[14]=bedra
	if dress15 = 1:set dress[15]=1&set dressH[15]=100&set dressB[15]=bedra
	if dress16 = 1:set dress[16]=1&set dressH[16]=100&set dressB[16]=bedra
	if dress17 = 1:set dress[17]=1&set dressH[17]=100&set dressB[17]=bedra
	if dress18 = 1:set dress[18]=1&set dressH[18]=100&set dressB[18]=bedra
	if dress19 = 1:set dress[19]=1&set dressH[19]=100&set dressB[19]=bedra
	if dress20 = 1:set dress[20]=1&set dressH[20]=100&set dressB[20]=bedra
	if dress21 = 1:set dress[21]=1&set dressH[21]=100&set dressB[21]=bedra
	if dress22 = 1:set dress[22]=1&set dressH[22]=100&set dressB[22]=bedra
	if dress23 = 1:set dress[23]=1&set dressH[23]=100&set dressB[23]=bedra
	if dress24 = 1:set dress[24]=1&set dressH[24]=100&set dressB[24]=bedra
	if profi = 1:set profi[1]=1&set profiH[1]=50&set profiB[1]=bedra
	if profi2 = 1:set profi[2]=1&set profiH[2]=50&set profiB[2]=bedra
	if pants = 1:set pants[1]=1&set pantsH[1]=50&set pantsB[1]=bedra
	if pants2 = 1:set pants[2]=1&set pantsH[2]=50&set pantsB[2]=bedra
	if pants3 = 1:set pants[3]=1&set pantsH[3]=50&set pantsB[3]=bedra
	if pants4 = 1:set pants[4]=1&set pantsH[4]=50&set pantsB[4]=bedra
	if pants5 = 1:set pants[5]=1&set pantsH[5]=50&set pantsB[5]=bedra
	if latex = 1:set latex[1]=1&set latexH[1]=50&set latexB[1]=bedra
	if latex2 = 1:set latex[2]=1&set latexH[2]=50&set latexB[2]=bedra
	if hooker = 1:set hooker[1]=1&set hookerH[1]=50&set hookerB[1]=bedra
	if hooker2 = 1:set hooker[2]=1&set hookerH[2]=50&set hookerB[2]=bedra
	if hooker3 = 1:set hooker[3]=1&set hookerH[3]=50&set hookerB[3]=bedra
	if hooker4 = 1:set hooker[4]=1&set hookerH[4]=50&set hookerB[4]=bedra
	if hooker5 = 1:set hooker[5]=1&set hookerH[5]=50&set hookerB[5]=bedra
	if dressel1 = 1:set odekis[1]=1&set odekisH[1]=50&set odekisB[1]=bedra
	if odekis1 = 1:set odekis[2]=1&set odekisH[2]=50&set odekisB[2]=bedra
	if odekis2 = 1:set odekis[3]=1&set odekisH[3]=50&set odekisB[3]=bedra
	if odekis3 = 1:set odekis[4]=1&set odekisH[4]=50&set odekisB[4]=bedra
	if odekis4 = 1:set odekis[5]=1&set odekisH[5]=50&set odekisB[5]=bedra
	if odekis5 = 1:set odekis[6]=1&set odekisH[6]=50&set odekisB[6]=bedra
	if odekis6 = 1:set odekis[7]=1&set odekisH[7]=50&set odekisB[7]=bedra
	if odekis7 = 1:set odekis[8]=1&set odekisH[8]=50&set odekisB[8]=bedra
	if odekis8 = 1:set odekis[9]=1&set odekisH[9]=50&set odekisB[9]=bedra
	if odekis9 = 1:set odekis[10]=1&set odekisH[10]=50&set odekisB[10]=bedra
end
--- stat ---------------------------------

# din_bad
$d_salf={
clr
salfetka-=1
pl'<a href="exec:gs''stat''"><B>throw a napkin</B></a>'
if cumface>0:pl'<a href="exec:cumface-=1&gs''stat''"><B>wipe his face</B></a>'
if cumfrot>0:pl'<a href="exec:cumfrot-=1&gs''stat''"><B>wipe clothes</B></a>'
if mop!1:pl'<a href="exec:mop=1&gs''stat''"><B>erase cosmetics</B></a>'
}
$d_kosmetitka={
clr
pl'<a href="exec:gs''stat''"><B>Close beautician</B></a>'
if kosmetitka>=1:pl'<a href="exec:mop=2&kosmetitka-=1&gs''stat''"><B>light makeup</B></a>'
if kosmetitka>=2:pl'<a href="exec:mop=3&kosmetitka-=2&gs''stat''"><B>normal makeup</B></a>'
if kosmetitka>=3:pl'<a href="exec:mop=4&kosmetitka-=3&gs''stat''"><B>thick makeup</B></a>'
}


$d_bag={
clr
pl'<a href="exec:gs''stat''"><B>Close bag</B></a>'

if salfetka>0:pl'Do you have wet wipes, <<salfetka>> pcs. <a href="exec:dynamic $d_salf"><B>take a napkin</B></a>'
if kosmetitka>0 and mop=1:pl'Do you have pernosnaya beautician. Cosmetics enough for <<kosmetitka>> time. <a href="exec:dynamic $d_kosmetitka"><B>make_up</B></a>'
if kosmetitka>0 and mop!1:pl'Do you have pernosnaya beautician. Cosmetics enough for <<kosmetitka>> time.'
if greben>0 and hapri=0:pl'Do you have a comb. <a href="exec:hapri=1&gs''stat''"><B>coiffured</B></a>'
if greben>0 and hapri=1:pl'Do you have a comb.'
if prezik>0:pl'you have <<prezik>> condom.'
if tabletki>0:pl'you have <<tabletki>> birth control pills.'
if bottle>0:pl'Do you have a bottle of water. <a href="exec:bottle=0&water = 20&cumlip=0&gs''stat''"><B>drink</B></a>'
if buterbrod>0:pl'Do you have buterbrot. <a href="exec:buterbrod=0&energy+= 20&cumlip=0&salo+=1&gs''stat''"><B>eat</B></a>'
if wine=1:pl'In her purse is a bottle of wine'
}
--- din_bad ---------------------------------

# statBat
clr

if tobiPic = 1:pl'<center><img src="picBat/tobi.jpg" ></center>'
if kisamePic = 1:pl'<center><img src="picBat/kisame.jpg" ></center>'
if sasoriPic = 1:pl'<center><img src="picBat/sasori.jpg" ></center>'
if konanPic = 1:pl'<center><img src="picBat/konan.jpg" ></center>'
if kakuzuPic = 1:pl'<center><img src="picBat/kakuzu.jpg" ></center>'
if hidanPic = 1:pl'<center><img src="picBat/hidan.jpg" ></center>'
if itachiPic = 1:pl'<center><img src="picBat/itachi.jpg" ></center>'
if deidaraPic = 1:pl'<center><img src="picBat/deidara.jpg" ></center>'
if zetsuPic = 1:pl'<center><img src="picBat/zetsu.jpg" ></center>'
if orotimaruPic = 1:pl'<center><img src="picBat/orotimaru.jpg" ></center>'
if painPic = 1:pl'<center><img src="picBat/pain.jpg" ></center>'
if pain2Pic = 1:pl'<center><img src="picBat/pain2.jpg" ></center>'
if pain3Pic = 1:pl'<center><img src="picBat/pain3.jpg" ></center>'
if pain4Pic = 1:pl'<center><img src="picBat/pain4.jpg" ></center>'
if pain5Pic = 1:pl'<center><img src="picBat/pain5.jpg" ></center>'
if pain6Pic = 1:pl'<center><img src="picBat/pain6.jpg" ></center>'
--- statBat ---------------------------------

# statPRE
gs'stat'

set $vneshPRE = 'You are a strong man with broad shoulders and big muscles slightly swollen with fat.'
--- statPRE ---------------------------------

# time
If month = 1 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
     if temper <= 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Is fluffy snow.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 2 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-35,8)
     if temper <= 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'Clear and windy.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'It`s snowing.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 3 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-20,17)
     if temper <= 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'Clear and cloudless.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'It`s snowing.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 4 and pogodaday ! day:
set pogodaday = day
set temper = RAND (2,20)
set osadki = RAND (0,10)
	 if osadki < painweather:
	     if hour >= 7 and hour <= 20:
         set $osadki = 'It_Is_Clear.'
         end
         if hour < 7 or hour > 20:
         set $osadki = 'It_Is_Clear.'
         end
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street the snow melts, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 5 and pogodaday ! day:
set pogodaday = day
set temper = RAND (7,25)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street puddles of snow rastaevshego, circle of dirt and debris shown after winter, something new where the grass is pleasing to the eye for its greenery, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 6 and pogodaday ! day:
set pogodaday = day
set temper = RAND (15,35)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'Green grass on the street, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 7 and pogodaday ! day:
set pogodaday = day
set temper = RAND (20,40)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'Is warm rain.'
	 end

set $pogoda = 'Green grass on the street, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 8 and pogodaday ! day:
set pogodaday = day
set temper = RAND (20,35)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'Is warm rain.'
	 end

set $pogoda = 'Green grass on the street, something which is already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 9 and pogodaday ! day:
set pogodaday = day
set temper = RAND (10,30)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street zhuhnet grass, visible yellow leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 10 and pogodaday ! day:
set pogodaday = day
set temper = RAND (2,20)
set osadki = RAND (0,10)
	 if osadki < painweather:
	 set $osadki = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'There is a cold rain.'
	 end

set $pogoda = 'On the street faded grass, falling yellow leaves, around mud and puddles, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 11 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-20,17)
     if temper <= 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'Clear and cloudless.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'It`s snowing.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'cold rain.'
		 end
     end
set $pogoda = 'The street is thin and dirty snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 12 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
     if temper <= 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'Clear and windy.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Is fluffy snow.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

pl'<<$pogoda>>'
if osadki >= painweather and umbrella = 0 and mop > 1:
set mop = 0
'You do not have an umbrella .'
end

if osadki >= painweather and umbrella = 0 and hapri = 1:
set hapri = 0
if curly > 0:set curly = curly - 1
'You do not have an umbrella .'
end

if isprok = 0 and mesec > 0 and preg = 0:
'<B><font color=red>You have blood flowing in the legs soiling underwear and clothing.</font></B>'
if clrbelo > 0:set clrbelo = clrbelo - 1
set sweat = sweat + 1
set manna = manna - 10
set willpower = willpower - 10
gs'starenie'
end

if hour = 0:
fcolor=rgb(255,255,255)
bcolor=rgb(0,0,0)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 1:
fcolor=rgb(255,255,255)
bcolor=rgb(5,5,5)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 2:
fcolor=rgb(255,255,255)
bcolor=rgb(10,10,10)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 3:
fcolor=rgb(255,255,255)
bcolor=rgb(30,15,15)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 4:
fcolor=rgb(255,255,255)
bcolor=rgb(60,20,20)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 5:
fcolor=rgb(255,255,255)
bcolor=rgb(100,40,40)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 6:
fcolor=rgb(0,0,0)
bcolor=rgb(200,100,100)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 7:
fcolor=rgb(0,0,0)
bcolor=rgb(250,150,150)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 8:
fcolor=rgb(0,0,0)
bcolor=rgb(250,200,200)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 9:
fcolor=rgb(0,0,0)
bcolor=rgb(250,245,245)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 10:
fcolor=rgb(0,0,0)
bcolor=rgb(255,250,250)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 11:
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 12:
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 13:
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 14:
fcolor=rgb(0,0,0)
bcolor=rgb(255,250,250)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 15:
fcolor=rgb(0,0,0)
bcolor=rgb(255,245,245)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 16:
fcolor=rgb(0,0,0)
bcolor=rgb(250,240,240)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 17:
fcolor=rgb(0,0,0)
bcolor=rgb(250,230,230)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 18:
fcolor=rgb(0,0,0)
bcolor=rgb(250,220,220)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 19:
fcolor=rgb(0,0,0)
bcolor=rgb(250,210,210)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 20:
fcolor=rgb(0,0,0)
bcolor=rgb(250,200,200)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 21:
fcolor=rgb(0,0,0)
bcolor=rgb(250,150,150)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 22:
fcolor=rgb(255,255,255)
bcolor=rgb(25,25,25)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if hour = 23:
fcolor=rgb(255,255,255)
bcolor=rgb(5,5,5)
if vibratorin=1:
horny=horny+rand(1,5)
end
end
if temper <= 0:
	 if palto=1:bonusZ=-3
	 if palto=2:bonusZ=0
	 if palto=3:bonusZ=3
	 if temper<-10 and palto=1:
		 set frost+=1
		 if energy < 5:set frost+=1
		 if tanga = 0:set frost+=1
		 if sweat>0:set frost+=1
		 end
	 if temper<-20 and palto=2:
		 set frost+=1
		 if energy < 5:set frost+=1
		 if sweat>0:set frost+=1
		 end
	 if temper<-30 and palto=3:set frost+=1
	 if palto<=0:
		 if temper<-10:frost+=1
		 if temper<-20:frost+=2
		 if temper<-30:frost+=5
		 end
	 if frost>=12:set sick+=1
	 if sick>0 and sickstage=0:set sickstage=1
end
--- time ---------------------------------

# kid
if $ARGS[0]='start':
clr
gs'stat'
'your child, <<$polreb[1]>> by name <<$kidname[1]>>. date of birth <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>g. age <<kidage[1]>>'
''
if kidage[1]<1:'<<$kidname[1]>> baby lies in the crib.'
if kidage[1]>=1 and kidage[1]<7:
     if hour>=9 and hour<=21:
     '<<$kidname[1]>> playing with toys.'
     
     else
     '<<$kidname[1]>> sleeps in a crib.'
     end
end
if kidage[1]>=7 and kidage[1]<18:
     if hour>=21 or hour<=8:
     '<<$kidname[1]>> asleep in bed.'
     else
     '<<$kidname[1]>> sitting at the TV.'
     end
end

	 act 'Get_Away.':
	 cla
	 gt'sitr'
	 end
end
--- kid ---------------------------------

# subkid


if kid>0:'<a href="exec: gt''kid'',''start'' ">In the crib lies <<$kidname[1]>>.</a>'



--- subkid ---------------------------------

# alterStart
StoryLine=1
MagikDostup=1

umbrella = 1
birthday=5
birthmonth=3
set $name = 'Svetlana'
set $surname = 'Lebedev'
set age = 16
set vidage = 15
!set age = 17
!set vidage = 16
set year = 2010
!set month = 8
set week = 6
set hour = 10
!day=30
set month = 3
day=9
!!!!!!!!!!!!!!!
!month = 3 
!day = 9
!week=6
!hour=10
!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!
month = 8 
day = 29
week=5
hour=9
!!!!!!!!!!!!!!
birthyear=year-age
!body
set rost = 170
set fat = 60
set salo=60
set dick = 0
set energy = 15
set water = 15
set son = 16
!stats
set stren = 10
set strenbuf=10
set speed = 10
set agil = 10
set agilbuf=10
set vital = 10
set vitalbuf=10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
!etogame
set nastjaqw = 0
!etogame
set money = 50
set vidageday = 300
set housrA = 0
set sarafan[1] = 1
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair-=5
set mop = 1
set housr = 0
tanga = 1
clr
gs'stat'
set numdres=1
set odetjeans=1
set numdress=1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70

set cltarelka = 0
set fairy = 0
set eda = 0
set clrbelo = 10
set poroshok = 0
set shampoo=0
tampon=20
set nude = 0
gs'stat'
set opPRE = 0
set daystart = 0
!addobj 'character'
!addobj 'see'
!addobj 'Others'

newclo[131]=1
yoga[15]=1
yogaH[15]=100

glacol = 1
glaraz = 2
hcol = 1
lip = 2

gs'stat'
clr

dress[5]=1
dressH[5]=100
dressB[5]=70

palto=1
$palto='Chinese wear'


father=50
mother=50
sister=50
brother=50
Suspeh=75



$npcName[1]='Dima'
$npcSurName[1]='Nosov'
$npcText[1]='Dimka nice guy sighs which most devchenok in class.'
grupNPC[1]=50
npcPol[1]=0
grupTipe[1]=3
$npcGo[1]='<a href="exec:numnpc=1&GT ''Snpc''"><<$npcName[1]>> <<$npcSurName[1]>></a>'

$npcName[2]='Artem'
$npcSurName[2]='Chebotarev'
$npcText[2]='Artem typical nerd and the Excellent.'
grupNPC[2]=50
npcPol[2]=0
grupTipe[2]=1
$npcGo[2]='<a href="exec:numnpc=2&GT ''Snpc''"><<$npcName[2]>> <<$npcSurName[2]>></a>'

$npcName[3]='Ivan'
$npcSurName[3]='Prokhorov'
$npcText[3]='Ivan great athlete who is able to succeed in any sport.'
grupNPC[3]=50
npcPol[3]=0
grupTipe[3]=2
$npcGo[3]='<a href="exec:numnpc=3&GT ''Snpc''"><<$npcName[3]>> <<$npcSurName[3]>></a>'

$npcName[4]='Igor'
$npcSurName[4]='Kruglov'
$npcText[4]='Igor Nosov each Dimka and everywhere with him dragged.'
grupNPC[4]=50
npcPol[4]=0
grupTipe[4]=3
$npcGo[4]='<a href="exec:numnpc=4&GT ''Snpc''"><<$npcName[4]>> <<$npcSurName[4]>></a>'

$npcName[5]='Fedor'
$npcSurName[5]='Kozlov'
$npcText[5]='Fedka not a bad athlete and best friend Vanya Prokhorov.'
grupNPC[5]=50
npcPol[5]=0
grupTipe[5]=2
$npcGo[5]='<a href="exec:numnpc=5&GT ''Snpc''"><<$npcName[5]>> <<$npcSurName[5]>></a>'

$npcName[6]='Petya'
$npcSurName[6]='Klyuyev'
$npcText[6]='Petka Botha and zauchka who can not see beyond the textbook.'
grupNPC[6]=50
npcPol[6]=0
grupTipe[6]=1
$npcGo[6]='<a href="exec:numnpc=6&GT ''Snpc''"><<$npcName[6]>> <<$npcSurName[6]>></a>'

$npcName[7]='Leszek'
$npcSurName[7]='Tsarev'
$npcText[7]='Over Lesco bullied in class all and sundry.'
grupNPC[7]=50
npcPol[7]=0
grupTipe[7]=-1
$npcGo[7]='<a href="exec:numnpc=7&GT ''Snpc''"><<$npcName[7]>> <<$npcSurName[7]>></a>'

$npcName[8]='Svyatoslav'
$npcSurName[8]='warriors'
$npcText[8]='Svyatoslav athletic guy who persistently engaged in sports.'
grupNPC[8]=50
npcPol[8]=0
grupTipe[8]=2
$npcGo[8]='<a href="exec:numnpc=8&GT ''Snpc''"><<$npcName[8]>> <<$npcSurName[8]>></a>'

$npcName[9]='Vitek'
$npcSurName[9]='cats'
$npcText[9]='Vitek aggressive and strong guy who considers himself a clear patsanchik. But Vitek blunt. At Vic has a sister twins Lena.'
grupNPC[9]=50
npcPol[9]=0
grupTipe[9]=4
$npcGo[9]='<a href="exec:numnpc=9&GT ''Snpc''"><<$npcName[9]>> <<$npcSurName[9]>></a>'

$npcName[10]='Dan'
$npcSurName[10]='Ryzhov'
$npcText[10]='Dan is long and skinny guy who communicates with others with contempt and always ready to sort through the concept of. Just as he utvezhdeniyu, Dan knows the boys to clear the area, that if that, vpryagutsya for him.'
grupNPC[10]=50
npcPol[10]=0
grupTipe[10]=4
$npcGo[10]='<a href="exec:numnpc=10&GT ''Snpc''"><<$npcName[10]>> <<$npcSurName[10]>></a>'

$npcName[11]='Vasya'
$npcSurName[11]='Shulgin'
$npcText[11]='Bob fawned around Dan and Vic being for the most part their six, but Vasek diligently oppression of a steep pepper.'
grupNPC[11]=50
npcPol[11]=0
grupTipe[11]=4
$npcGo[11]='<a href="exec:numnpc=11&GT ''Snpc''"><<$npcName[11]>> <<$npcSurName[11]>></a>'

$npcName[12]='Julia'
$npcSurName[12]='Milov'
$npcText[12]='Julia diligent and silent Devchenka. She`s a real zauchka and almost no one speaks.'
grupNPC[12]=50
npcPol[12]=1
grupTipe[12]=1
$npcGo[12]='<a href="exec:numnpc=12&GT ''Snpc''"><<$npcName[12]>> <<$npcSurName[12]>></a>'

$npcName[13]='Lariska'
$npcSurName[13]='Gruzdeva'
$npcText[13]='Lariska sports Devchenka, but is very dependent on other people`s opinions.'
grupNPC[13]=50
npcPol[13]=1
grupTipe[13]=2
$npcGo[13]='<a href="exec:numnpc=13&GT ''Snpc''"><<$npcName[13]>> <<$npcSurName[13]>></a>'

$npcName[14]='katya'
$npcSurName[14]='Meynold'
$npcText[14]='Katya hot and impulsive girl. She has twins Wick.'
grupNPC[14]=50
npcPol[14]=1
grupTipe[14]=3
$npcGo[14]='<a href="exec:numnpc=14&GT ''Snpc''"><<$npcName[14]>> <<$npcSurName[14]>></a>'

$npcName[15]='vetch'
$npcSurName[15]='Meynold'
$npcText[15]='Vic tricky and sensible girl. She has twins Katya.'
grupNPC[15]=50
npcPol[15]=1
grupTipe[15]=3
$npcGo[15]='<a href="exec:numnpc=15&GT ''Snpc''"><<$npcName[15]>> <<$npcSurName[15]>></a>'

$npcName[16]='Natasha'
$npcSurName[16]='Belova'
$npcText[16]='Natasha is a good student and very closed.'
grupNPC[16]=50
npcPol[16]=1
grupTipe[16]=1
$npcGo[16]='<a href="exec:numnpc=16&GT ''Snpc''"><<$npcName[16]>> <<$npcSurName[16]>></a>'

$npcName[17]='Inna'
$npcSurName[17]='Devyatova'
$npcText[17]='Inna tall and pretty girl for a sweet smile that always hid his arrogance.'
grupNPC[17]=50
npcPol[17]=1
grupTipe[17]=3
$npcGo[17]='<a href="exec:numnpc=17&GT ''Snpc''"><<$npcName[17]>> <<$npcSurName[17]>></a>'

$npcName[18]='Christina'
$npcSurName[18]='Zvereva'
$npcText[18]='Christina tall and strong girl. She`s a great athlete and has leadership abilities which together with her вЂ‹вЂ‹tenacity and intelligence make it a very serious figure.'
grupNPC[18]=50
npcPol[18]=1
grupTipe[18]=2
$npcGo[18]='<a href="exec:numnpc=18&GT ''Snpc''"><<$npcName[18]>> <<$npcSurName[18]>></a>'

$npcName[19]='Lina'
$npcSurName[19]='Starov'
$npcText[19]='Lina athlete and have obeyed Christina.'
grupNPC[19]=50
npcPol[19]=1
grupTipe[19]=2
$npcGo[19]='<a href="exec:numnpc=19&GT ''Snpc''"><<$npcName[19]>> <<$npcSurName[19]>></a>'

$npcName[20]='Lena'
$npcSurName[20]='Kotova'
$npcText[20]='Lena sister Vic aggressive Gopnik itself not far removed from his brother being the ringleader devchenok huliganok.'
grupNPC[20]=50
npcPol[20]=1
grupTipe[20]=4
$npcGo[20]='<a href="exec:numnpc=20&GT ''Snpc''"><<$npcName[20]>> <<$npcSurName[20]>></a>'

$npcName[21]='Lera'
$npcSurName[21]='Tsarev'
$npcText[21]='Lera from a poor family and quickly contact Lenka Kotova started smoking in the toilet.'
grupNPC[21]=50
npcPol[21]=1
grupTipe[21]=4
$npcGo[21]='<a href="exec:numnpc=21&GT ''Snpc''"><<$npcName[21]>> <<$npcSurName[21]>></a>'

$npcName[22]='Bella'
$npcSurName[22]='Artamonov'
$npcText[22]='Bella is beautiful and arrogant girl.'
grupNPC[22]=50
npcPol[22]=1
grupTipe[22]=2
$npcGo[22]='<a href="exec:numnpc=22&GT ''Snpc''"><<$npcName[22]>> <<$npcSurName[22]>></a>'

$npcName[23]='Albina'
$npcSurName[23]='Barlovskaya'
$npcText[23]='Albina from a wealthy family and has always known how to look good and dress well.'
grupNPC[23]=50
npcPol[23]=1
grupTipe[23]=3
$npcGo[23]='<a href="exec:numnpc=23&GT ''Snpc''"><<$npcName[23]>> <<$npcSurName[23]>></a>'

$npcName[24]='Pauline'
$npcSurName[24]='Sebagotulina'
$npcText[24]='Polina like pain in the ass who does not let her sit still, it is a hooligan and dvoechnitsa.'
grupNPC[24]=50
npcPol[24]=1
grupTipe[24]=4
$npcGo[24]='<a href="exec:numnpc=24&GT ''Snpc''"><<$npcName[24]>> <<$npcSurName[24]>></a>'

$npcName[25]='sleepyhead'
$npcSurName[25]='Ivanko'
!$npcText[25]='Sonia once inadvertently got drunk and fucked her in a circle Vitek Kotov and his friends. After that girls shunned Sonia, and the boys thought she was a whore. Local gopota regularly drove to Sonya with offers to have sex.'
$npcText[25]='Sonia ordinary girl.'
grupNPC[25]=50
npcPol[25]=1
grupTipe[25]=0
$npcGo[25]='<a href="exec:numnpc=25&GT ''Snpc''"><<$npcName[25]>> <<$npcSurName[25]>></a>'

SHOWSTAT 0
SHOWOBJS 0



$din_alter_start_ev={
cls
'B 13 years have begun monthly like most other girls in your class. You have got a bit sick and grow breasts, grew hair in the armpits and pubic. The skin became pustulate. When you have finished 9five classes, you did not drop out of school, and continued to study and enrolled in 10grade. B 10grade all was quiet, after you have finished it you spent the summer in the countryside.'
' Soon come to an end vacation and you go to school, with whom you will spend the last year of study.'
!'You weaned these two classes and you only have a few months before graduation.'

act 'start the game':
SHOWSTAT 1
SHOWOBJS 1
health = vital*10 + stren*5+1000
willpower = intel*5 + will*5+1000
manna = (intel*magik) + magik*100 + vital*10 + rikudo
addobj 'character'
addobj 'see'
addobj 'Others'
gt'bedrPar'
end

}

'You were born in <<birthyear>> year, your mother and father Michael Natasha Lebedev, were young and probably did not know how to protect themselves, since your birth you have already had a sister Anya, which was older than you 2 year. Father , because parents divorced when you are still in diapers Sica. Your mother left her husband for another man and they had your younger brother Nick.'

act 'further':
cls
'In the garden where you went in two years, everything was ok, but you do not remember, that there was. When you turned 7 year_old, you have finished kindergarten and went to school.'
	 act 'You spent too much time for books':
	 cls
	 stren=1
	 vital=5
	 agil=1
	 fat=10
	 salo=10
	 gs'stat'
	 clr
	 dressB[5]=bedra
     jeansB[1] = bedra
     tan=0
     blizoruk=300
     glass=1
     Suspeh=55
     nerdism=100
     fantasybook=5
	 'You almost all his free time to spend at home for books. The result is increased but remained frail and sickly girl in poor health. Because of the books you messed up vision and become ill at school.'
	 act 'further':dynamic $din_alter_start_ev
	 end
	 
     act 'You`re good at school':
	 cls
	 fat=150
	 salo=150
	 intel=50
	 Suspeh=110
	 gs'stat'
	 clr
	 dressB[5]=bedra
     jeansB[1] = bedra
     mother=100
     money+=2000
     tan=30
	 'In school, that would break out in an excellent pupil. Friends you certainly do not have amassed, Sport is not engaged, but you have excellent grades and soul in you mom worships.'
	 act 'further':dynamic $din_alter_start_ev
	 end
	 
	 act 'You are actively engaged in volleyball':
	 cls
	 stren=25
	 vital=25
	 speed=25
	 agil=25
	 fat=20
	 salo=20
	 volleyboll=70
	 beg=40
	 gsAboVolley=120
	 dom=10
	 gs'stat'
	 clr
	 dressB[5]=bedra
     jeansB[1] = bedra
     tan=30
	 'You basically spent time in training in volleyball and school and friends you had much less time.'
	 act 'further':dynamic $din_alter_start_ev
	 end
	 
	 act 'You walked a lot':
	 cls
	 stren=10
	 vital=10
	 agil=20
	 fat=30
	 salo=30
	 dom=50
	 gs'stat'
	 clr
	 dressB[5]=bedra
     jeansB[1] = bedra
     shorthair=1
     tan=30
	 'You almost all his free time to spend outdoors playing with other boys and sex!. As a result. School and sports were you not interested.'
	 act 'further':dynamic $din_alter_start_ev
	 end
end















--- alterStart ---------------------------------

# event
if $ARGS[0]='klof 2':
cla
*clr
set minut = minut + 5
cla
*clr
gs'stat'
'<center><img src="klof/15 1.jpg" ></center>'
'Well baby , and if you will behave more and you can earn
- Ok, guys leave address.'
act'get_dressed ':gt 'event','klof 3'
!act 'move_away':gt'park','start'
end

if $ARGS[0]='klof 3':
cla
*clr
set minut = minut + 5
set klofQW = 2
clr
gs'stat'
'<center><"klof/15 1.jpg" ></center>'
'You suddenly gripped interest,and you asked:
- Ryabyata help you earn money?
- Of_Course, Come tomorrow after 10 hours of talk (the guy said with a smirk). 
    ( turned, that they live in the house next door)'
act 'Get_Away ':gt'park','start'
end


if $ARGS[0]='park':
cla
*clr
!'<center><img src="picVA/event.jpg" ></center>'
'You find quiet, abandoned deadlock against the wall and starts kissing, but you want more.'

     act 'masturbate.':gt'event','hand'
	 act 'suck.':gt'event','blow'
act 'sex.':gt'event','sex'
end

if $ARGS[0]='hand':
cla
*clr
'<center><img src="picVA/event.jpg" ></center>'
set hj = hj + 1
set DOM = DOM + 1
set bfa = bfa + 1
'Without breaking the kiss you deftly unbutton his pants <<$boyA>> and start it nadrachivat <<dickA>> centimeter boyfriend. Unable to withstand such pressure he cums directly on the ground.'
act 'complete the walk':gt'park','start'
end

if $ARGS[0]='blow':
cla
*clr
set bfa = bfa + 2
'<center><img src="picVA/event1.jpg" ></center>'
set bj = bj + 1

'You get up on his knees, unbutton his pants partner, and dramatically immerse yourself member in her mouth, looking up at his face relaxed. After a few minutes the person <<$boyA>> tense in anticipation of orgasm'

	 act 'continue to suck.':
	cla
	 set swallow = swallow + 1
	 set cumlip = cumlip + 1
	 !'<center><img src="picV/swallow.jpg" ></center>'
	'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally.'
     act 'Get_Away.':
    cla
     gt'park','start'
     end
	 end
	
	 act 'Vynutizorta.':
	 cla
	 if harakBoyA = 0:
     !'<center><img src="picV/hand.jpg" ></center>'
    'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
    end
     if harakBoyA = 1:
     set tiprand = RAND (0,3)
    	 if tiprand < 3:
    	 !'<center><img src="picV/hand.jpg" ></center>'
    	'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
    	end 
    	 if tiprand = 3:
    	 set facial = facial + 1
    	 set cumface = cumface + 1
    	 !'<center><img src="picV/facial.jpg" ></center>'
    	'Have you taken the member and at this point <<$boyA>> discharged directly on your face, covering it with warm and sticky sperm.'
    	end
     end
     if harakBoyA = 2:
     set facial = facial + 1
     set cumface = cumface + 1
     !'<center><img src="picV/facial.jpg" ></center>'
    '<<$boyA>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
    end
    
     act 'Get_Away.':
     cla
     gt'park','start'
     end
	 end
end


if $ARGS[0]='sex':
cla
*clr
'<center><img src="picVA/event2.jpg" ></center>'
set sex = sex + 1
set bfa = bfa + 3
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<center><img src="picV/dog.jpg" ></center>'
'"You find pure pjatochek and tightens pants, invitingly shaking her ass. <<$boyA>> pushes you, putting cancer, and abruptly comes into you.'
gs'orgazm','start'
'.'
act 'complete the walk':gt'park','start'
end

if $ARGS[0]='dima':
cla
*clr
clr
gs'stat'
'Seeing, that you consider it, a man went to you.'
'He came over and asked politely: 
-girl, excuse_me, and can you invite? just you, i can see, lonely.'
act 'No':gt'shop','start'
     act 'where invite?':
     cla
     'where invite? asked you.'
     'understand, to my wife came to one and I thought, You can join us, sit, CONTACT. Will not be boring , promise!'
         act 'No':gt'shop','start'

         act 'Yes_I_Am':
cla
         *clr
         set minut = minut + 60
'"That`s good, My name is Dmitry". 
         You held out her hand - "Sveta". 
         It was a man in his forties, average height, pretty strong constitution, dark short hair, nose slightly aquiline. you were, speaking on the topic of weather, and any other things. Finally Dima said that you came, he started you in your home. The house was a two-story, pretty cute. In the living room there was a man with a bottle of beer in his hand. 
         -About Dimon, I already bored do not know what to do, - he said, and added, - that for the beauty you brought with you, really brighten up this evening is a beautiful girl?- His gaze assessing walked all over your body and stopped on the chest. 
         -Sveta, meet - Alex is, my friend, wife still is not home, she left to her mother, train to come in 24.00, so soon Luda will come soon and we will be at full strength,- smiling, told me Dima.'
         'Alexey, you can simply Lech - introduced his friend. He was slightly higher Dima and I looked a little older. The dark-haired with blue eyes, quite a nice man. You thought to myself:"what, I`m doing here? surely, and no wife, until late run from here! But Dmitry put his arm around you waist and led her to the kitchen. Lech, you without me organized table,good_for_you! Yes_I_Am, I wasted no time, Light a seat in the middle,You have until one, we will take care of you, - helping you get said Alexey. On the table were plates with a snack and a bottle of vodka. Dima poured vodka. you said:
- you know, I do vodka, how-it is not very. Maybe you have something-some poslabzhe?'
         act 'you`re sorry, but I probably will go':gt'street'
act 'Pitvodku':gt'event','dima2'
         end
     end
end

if $ARGS[0]='dima2':
cla
*clr
set minut = minut + 60
clr
gs'stat'
'you drank, then another, and yet you were already a little drunk. Men took turns telling funny stories, you had a lot of fun. The wife did not come naturally, but you `ve never thought to ask about it. Dima turned on the music, and invited to dance. Alex protested:
- I do not want to miss one, Can I join?!' 
'You smiled in response. Dima immediately began to touch your ass, you danced slowly, he pressed you to my, so that you feel it standing member, he pressed just to your pubis. Alex came up behind, picked up by the shoulders and his hands began to slowly descend on your chest. Drunk alcohol and the presence of two excited men made вЂ‹вЂ‹themselves felt. You shamelessly twisted hips, then pushing his booty to a member Alexey is the pubis to the Dime. Alexei stroking and squeezing your chest, pinching her nipples through the fabric, Dima began through clothes ironed your pussy. You softly moaned with excitement. Then men began to undress you. You stood between the two men in shorts, and terribly wanted each of them. 
-What you`re lovely. see Lech, some lustful bitch I brought!
-Yes_I_Am, please others. Will our whore, today. Would you like us to you fucked?-addressed to you Lech. 
-Yes , she is waiting for her when vyebut! - Dima roughly pushed her panties,and began to thrust his fingers in the pussy you.'
act 'Moan with pleasure':gt'event','dima3'
end

if $ARGS[0]='dima3':
cla
*clr
set minut = minut + 10
clr
gs'stat'
'They led you into the bedroom. In an instant-then loons, and you - a whore. But you admit it is great pleasure. The bedroom was a large bed, man unbuttoned his pants pulled from their panties huge cocks. 
-Come suck, I see you can not wait,- said Lech.'
act 'Kneeling down':gt'event','dima4'
end

if $ARGS[0]='dima4':
cla
*clr
set minut = minut + 10
set guy = guy + 2
set bj = bj + 2
set throat = throat + 1
clr
gs'stat'
'<center><img src="picQW/dima.jpg" ></center>'
'They stood next to the bed, you knelt down and took in his mouth first dick Alexis, then Dima. You sucked and licked the head, swallowing members on the throat. Dima took you under the chin, spit in his mouth and began to whip her cheeks, then sat down on the bed, grabbed you by the hair and began to brutally fuck you in the mouth, periodically pohlestyvaya cheeks. "Come on bitch, huesoska" - he told you, from your eyes tears flowed, he humiliated you, called_names. And tougher skewer your mouth on your dick. You tried to please him. And Lech put you on your knees, ripped your pants, put my fingers in the pussy and ass began to spread grease, spat on the hole, then sent his penis and abruptly entered you in the ass.'
act 'Scream in pain':gt'event','dima5'
end

if $ARGS[0]='dima5':
cla
*clr
set minut = minut + 10
set group = group + 1
set throat = throat + 1
set anus = anus + 1
set cumass = cumass + 1
set cumlip = cumlip + 1
set orgasm = orgasm + 1
clr
gs'stat'
'<center><img src="picQW/dima1.jpg" ></center>'
'You want to scream, but in a company was a member of Dima, you have issued a-it is not clear sound. swallowing cock deep in throat. Your anus burning pain, Lech fucked you in the ass, and Dima in her mouth. 
-slut, going to fuck you all night, in all holes,- said Lech. 
The room was furious noise fucked. Have you experienced an orgasm. Dima sometimes pulls his dick spit in your mouth and pulled again started your mouth on his penis. And Lech beat you in the ass, at every jolt his balls beat against your pussy, bringing you all the fun new. "Ebite me boys, I`ll do whatever you want", - you think to yourself. Dima stiffened and said:
-To swallow all, I `ll set! realized, bitch?!
And he began to pour cum in your throat, You almost drowned, swallowing her. You are all swallowed and licked his cock. 
-Bring_It_On, Lech, Tension is a slut as follows. 
Lech also began to finish, of his sperm was hot inside . He pulled out his dick and ordered:
- to, lick it, bitch.'
act 'lick':gt'event','dima6'
end

if $ARGS[0]='dima6':
cla
*clr
if mop > 1:set mop = 0
set minut = minut + 10
set cumlip = cumlip + 1
clr
gs'stat'
'<center><img src="picQW/dima2.jpg" ></center>'
'You turned around and took in his mouth dick, become thoroughly suck it. when finished, all together went to the kitchen. Once drank. 
-Did you like how we fuck you?'

act 'very_Much':gt'event','dima7'
end

if $ARGS[0]='dima7':
cla
*clr
set minut = minut + 10
set group = group + 1
set vagina = vagina + 1
set anus = anus + 1
set cumpussy = cumpussy + 1
set cumass = cumass + 1
clr
gs'stat'
'<center><img src="picQW/dima3.jpg" ></center>'
'-Are you a real slut, Now will you to fuck with two sides, - said Dima. 
Dima clutching your chest and biting nipples, Lech and began to knead your ass. You slowly got up and went back into the bedroom. Lech lay back, you got, sending his dick in pussy Statement, fucking, he drew you to her kiss, you bent down, Dima and abruptly entered you in the ass. As you had two huge dick. you groaned. "yet, yet, fuck me, I`m your whore! Ebite my holes!",- you cried. It`s terrific fun, two dick digging your hole, Two foreign man fucks you, and you groan, as the last whore. And asked them not to stop. You were finishing and finishing. They finished almost simultaneously right into you. You got up and went back to the kitchen, with the priests and the legs pussy sperm flowed. You were barely. 
-Lech, you`ll be two more days,and my coming in a week, You can leave this bitch until Statement, going to fuck her?
- Of course leave. Only need to properly spank her thong, was obedient to. 
Dima said:
- Do with it what you want, I have to work in the morning, I went to bed. 
Lech went for belt, grabbed you by the hand and led her into the hall. Dima went to bed.'
act 'do not... I`ll do whatever you want!':gt'event','dima8'
end

if $ARGS[0]='dima8':
cla
*clr
set spank = spank + 1
set minut = minut + 10
clr
gs'stat'
'<center><img src="picQW/dima4.jpg" ></center>'
'-do not,- begging you in tears, -I will do everything, what you want. 
- sure to make, but you have to spank you for the future. 
He has made you a cancer on the floor and started kicking strap on the pope, you cried and begged him to stop. Buttocks burning pain. Each blow was getting harder. 
-Get up bitch,- He linked this strap your hands, put on his knees,- Otsosesh my dick before bedtime.' 
act 'suck':gt'event','dima9'
end

if $ARGS[0]='dima9':
cla
*clr
set minut = minut + 30
set throat = throat + 1
set bj = bj + 1
clr
gs'stat'
'<center><img src="picQW/dima5.jpg" ></center>'
'Lech took you behind your head and began to fuck in the mouth, it lasted a very long time. His dick was bigger and went deep into the throat, He held your hair. Then it all-yet finished, you tied to a radiator and fell on the sofa bed.'
act 'Cry from the battery':gt'event','dima10'
end

if $ARGS[0]='dima10':
cla
*clr
set minut = minut + 30
set dimaQW = 2
clr
gs'stat'
'<center><img src="picQW/dima6.jpg" ></center>'
'You were tied hands and wept at the battery. Ass was on fire after undergoing spanking. Drunken men went to bed. Finally you hear the mighty snoring.'
act 'elope':gt'street'
act 'fall_asleep':gt'event','dima11'
end

if $ARGS[0]='dima11':
cla
*clr
set minut = minut + 480
set datster = 1
set bj = bj + 1
clr
gs'stat'
'<center><img src="picQW/dima7.jpg" ></center>'
'You came from, that someone-then grabbed you by the hair and began shamelessly fuck in the mouth.
-hungry, I_suppose?,- did you hear the voice of Dima,- Breakfast must be earned!'
act 'suck':gt'event','dima12'
end

if $ARGS[0]='dima12':
cla
*clr
set minut = minut + 10
set throat = throat + 1
set bj = bj + 1
set swallow = swallow+1
clr
gs'stat'
'<center><img src="picQW/dima8.jpg" ></center>'
'you feel, his cock stiffened and began to wring from the streams of warm sperm. As soon as he finished with a satisfied sigh - Lech came and besprikoslovno tone ordered to lick his balls to shine, otherwise no breakfast you can not see'
act 'dutifully fulfill':gt'event','dima13'
act 'Comply with enthusiasm':gt'event','dima14'
act 'try to bite':gt'event','dima31'
end

if $ARGS[0]='dima13':
cla
*clr
set minut = minut + 5
set eggs = eggs+1
clr
gs'stat'
'<center><img src="picQW/dima9.jpg" ></center>'
'You lick and suck shaved LС‘hiny eggs, but it did not much like. After a couple of minutes:
-What is this garbage? I`ll teach you to execute commands!'
act 'Potupitvzor':gt'event','dima39'
end

if $ARGS[0]='dima14':
cla
*clr
set minut = minut + 10
set eggs = eggs+1
set throat = throat + 1
set bj = bj + 1
set swallow = swallow+1
clr
gs'stat'
'<center><img src="picQW/dima9.jpg" ></center>'
'You remember everything, seen before, and try to repeat the same. Your tongue and lips lick and kiss every millimeter, Moisten the delicate skin. After that, he immediately pushes you back on his head and rapidly discharged in your throat, without releasing until, until his cock did not stop to shake in convulsions'
act 'swallow':gt'event','dima15'
end

if $ARGS[0]='dima15':
cla
*clr
set minut = minut + 30
set runrnd=RAND (0,10)
   clr
   gs'stat'
   '<center><img src="picQW/dima6.jpg" ></center>'
'Dima unties you from battery, throws you some-then the package and tells him to go to the bathroom to freshen up. Meanwhile They Lyokha that-then discuss'
	   act 'try to escape':
    if runrnd<9:
       gt'event','dima18'
       else
       gt'street'
       end
	   end
act 'Go to the bathroom':gt'event','dima16'
end


if $ARGS[0]='dima16':
cla
*clr
set minut = minut + 30
set lobkoef = 3
set legkoef = 3
set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumlip = 0
     set cumface = 0
     set cumfrot = 0
   clr
   gs'stat'
   '<center><img src="picQW/dima6.jpg" ></center>'
'In convolution you find mesh body, that you have to wear. In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation there, where it should not be, then apply war paint on face.'
act 'wear grid':gt 'event','dima19'
act 'Do not put on and get out of the bath':gt'event','dima17'
end

if $ARGS[0]='dima17':
cla
*clr
set dom=dom+2
set minut = minut + 30
set runrnd=RAND (0,10)
set lobkoef = 3
set legkoef = 3
set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumlip = 0
     set cumface = 0
     set cumfrot = 0
   clr
   gs'stat'
   '<center><img src="picQW/dima6.jpg" ></center>'
'In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation there, where it should not be, but not mesh dress. You come out of the bathroom in the buff, despite instructions'
	   act 'Look at men with a challenge':
    if runrnd<9:
       gt'event','dima18'
       else 
       gt 'event','dima21'
       end
	   end
end

if $ARGS[0]='dima18':
cla
*clr
set minut = minut + 30
   clr
   gs'stat'
   '<center><img src="picQW/dima6.jpg" ></center>'
'"Oh Well bitch disobedient! thought, you can do what you want? fuck! You are here nobody, and will do what, what do you say we! Like walking on naked Luda? That`S_Great! We `ll help you!" - With these words-then spray, and you passed out'
act 'Fall asleep': gt 'event','dima49'
end

if $ARGS[0]='dima19':
set minut = minut + 5
clr
   gs'stat'
'"Here_It_Is, good_for_you, it_seems, You already vnikla, what to do?" '
act 'Serve the men on the highest level': gt 'event','dima20'
end

if $ARGS[0]='dima20':
cla
*clr
set minut = minut + 30
   clr
   gs'stat'
'"Here_It_Is, good_for_you, it_seems, You already vnikla, what to do?" '
act 'Serve the men on the highest level': gt 'event','dima21'
end

if $ARGS[0]='dima21':
cla
*clr
Set hour=hour+3
   clr
   gs'stat'
   '<center><img src="picQW/dima3.jpg" ></center>'
'Fuck you for a long time in various poses, some of which would be the envy ardent lovers of perverted sex. After all this'
set dimaqw=2
act 'Get_Away': gt 'street'
end

if $ARGS[0]='dima30':
cla
*clr
Set hour=hour+3
   clr
   gs'stat'
'I_confess, sinful, writer from me horseradish, and all my dark little thoughts went to the recent arrival of women. If there are interesting ideas/scenario to continue - fling in PM, zabubenyu'
set dimaqw=2
act 'Get_Away': gt 'street'
end

if $ARGS[0]='dima31':
cla
*clr
set minut = minut + 30
set dimaQW = 2
clr
gs'stat'
'<center><img src="picQW/dima6.jpg" ></center>'
'You squeeze teeth, but Lech instantly grabs your face and jaw strength decompresses.
-bitch, that you conceived?!
You get a strong blow in the face and lost consciousness.'
act 'wake':gt'event','dima32'
end

if $ARGS[0]='dima32':
cla
*clr
set minut = minut + 30
clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_180.jpg" ></center>'
'You came from bright light, beating on the eyes. His mouth was dry. what-it just does not give you shut your mouth. body ached. 
-Oh, woke_up! And I came up here, as you re!- said Lech.
you look around. It_seems, while you were unconscious, you threw a-that dress and taken to the street. In the mouth. Hands tied behind his back.
-now, bitch, I`ll show you, what В«safe sexВ».
With these words, pulled out his penis and sent to you in the mouth.'
act 'resist':gt'event','dima33'
If Kik>50:
act'Udaritnogoy':gt'event','dima37'
end
end



if $ARGS[0]='dima33':
cla
*clr
set minut = minut + 10
set throat = throat + 1
clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_183.jpg" ></center>'
'Despite your attempts at resistance, Lech recorded and put your head in your mouth his dick. The device in the mouth did not give you close it, so you have attempted to push him. But failed a ride. It_seems, device is securely fastened, and your movements of the tongue only provoke Lech. 
- Oh, I look, do you like В«safe sexВ»? Come, do not stop!
'
act 'continue to please':gt'event','dima38'
act 'Stops moving language':gt'event','dima34'
end


if $ARGS[0]='dima34':
cla
*clr
set minut = minut + 30
clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_187.jpg" ></center>'
'Lech realized, you`re not going to continue his humor:
-Yesterday you did it with pleasure! Well, so we are still nowhere to come. A lesson on how, the mouth is to be opened, you`ve learned! 
With these words, raised you by the hair and took down.
You were in an empty underground passage. Lech took the gag out of your mouth, and you finally, were able to close it. Then your eyes closed bandage. Lech slightly bent you, and povernull back to him.'
act 'stand still':gt'event','dima35'
end


if $ARGS[0]='dima35':
cla
*clr
set minut = minut + 30
set vagina = vagina + 1
set rape = rape + 1 
set cumface = cumface + 1 
clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_301.jpg" ></center>'
'Lech swung entered into you. Takes place on the ladder has brought you, and now he easily slid, publishing squish. After a while you covered orgasm. 
-We had so start the morning. And no risk!- said Lech, increasing the tempo. 
Suddenly he stopped, turned sharply and you put on your knees. You hurt hit the marble floor, and felt, like what-something warm began to beat and run down your face. 
-Your Stuff for the urn. hope, lesson you learned, - With these words, and you heard postpones steps. 
'
act 'Recover':gt'event','dima36'
end

if $ARGS[0]='dima36':
cla
*clr
set minut = minut + 5

clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_352.jpg" ></center>'
'After sitting for a couple of minutes, you start the hands-free. When you do it, You tore the bandage from his face, wiped her face with sperm and drove as far as possible. Looking_around, you notice urn, behind which lie your stuff. You get dressed and get out of the transition.'
act 'Get_Away':gt'street'
end


if $ARGS[0]='dima37':
cla
*clr
set minut = minut + 30

set money=0
clr
gs'stat'
'<center><img src="pic/Kik.jpg" ></center>'
'Classes at the fitness-center were not in vain. You manage to hit Lech foot so, he falls and loses consciousness. You start to run away, and only a sufficient distance stop, and start looking for a way to free your hands. Eyes you come across a pointed stone, and when your hands are free, you remove the gag from his mouth , can close it. Teeth grind against dust, which nabilas in his mouth while running. Dress trampled and torn in places, but still able to cover your body. You can not find the right direction, and after a while you find yourself near the supermarket, which met Dima. Here you see, that Lehi left all your money.'
act 'Chill_Out':gt' street'
end


if $ARGS[0]='dima38':
cla
*clr
set minut = minut + 30
Set bj = bj + 1 
set cumlip = cumlip + 1 
set throat = throat + 1
clr
gs'stat'
'<center><img src="picQW/10028_TommyPistolJacquelineBlackLady_184.jpg" ></center>'
'You begin to carefully caress member Lehi language, periodically while trying to swallow it as far as possible. The device in the mouth limits your ability, and you thought, it`s been forever, before you were able to make Lech cum. 
-Yes_I_Am, now learned a lesson. I_think, in the future. After all? - He said, clutching your hair.
you nodded. Then Lech loosened ties on your hands and, pointing to the bushes, said:
-There you will find their stuff.
After Lech retired, you release your hands, mouth, and find their belongings in the specified location. '
act 'Get_Away':gt'street'
end

if $ARGS[0]='dima39':
cla
*clr
set minut = minut + 30

clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet085.jpg" ></center>'
'Lech suits you and puts in his mouth gag. Then prints out of the apartment, and you sit in the bus to the center. he, surprisingly, empty. 
-Listen, I then remembered, how you tried yesterday, and thought, You can now simply do not get enough sleep? Can correct the mistake right there?'
act 'beck':gt 'event','dima40'
act 'Opt_Out':gt'event','dima45'
end


if $ARGS[0]='dima40':
cla
*clr
set minut = minut + 30
set vagina = vagina + 2
clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet113.jpg" ></center>'
'-That`s great, - With these words, got already got stronger member, and skewer you. 
You begin to move rhythmically, but rough road knocks you, adding new sensations. '
act 'change position':gt 'event','dima41'
end

if $ARGS[0]='dima41':
cla
*clr
set minut = minut + 30

clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet154.jpg" ></center>'
'You park between the seats, Lech and adjusts the back, removing the gag with the words:
-You did me no longer going to disappoint?
It_seems, Lyokha not like sex on the move, and it stops, and asked the driver to stop the bus between stops, in the park. The driver is not against, it stops, and you leave the transport. It_seems, he saw the nakedness of your, and you feel his eyes, until hiding among the trees of Lyokha.  
Soon you will find a clearing near the road.
-And now prove, morning showed that not all, that is capable of! '
act 'Kneel':gt 'event','dima42'
end

if $ARGS[0]='dima42':
cla
*clr
set minut = minut + 30
Set bj = bj + 1 
set cumlip = cumlip + 1 
set throat = throat + 1
set cumface = cumface + 1 
clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet231.jpg" ></center>'
'Kneeling, you begin diligently to please Lech, something completely swallowing, then completely releasing member. Your diligence now could be the envy of the best porn actress. not surprisingly, Lech soon breathed heavily, and removing the member finished your face.
-That`s clever,- he said - because you can, whenever you want! I_think, about your ability to have to learn all!
Lech binds your hands, naked and takes you on the road. Put you on your knees, He took a marker and wrote on your stomach В«spermВ» and the up arrow, and reported :
- I`m away for a couple of hours, when I come back, bring your stuff. And while you sit here and show off their skills.'
act 'wait for the return':gt 'event','dima43'
act 'escape':gt 'event','dima44'
end

if $ARGS[0]='dima43':
cla
*clr
set minut = minut + 50
clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet263.jpg" ></center>'
'You decided to wait for the return of Lehi. first 15 minutes passed quietly. On the road was deserted. But then began the most unpleasant pastime in your life. Passed a crowd of young people, notice you. They took some photos, obsmeyat you, and, Loss of interest, gone. you thought, that held eternity grandmother told me about morality, and that, that in its time. There were other person, which you tried not to think. 
When Lech returned, he untied you, handed your stuff, and said, that he was sorry about his imminent departure from, t.to. would be very happy new В«rendezvousВ» with you. 
you dressed, took my things and hurriedly left his company.'
act 'Go to the yard':gt'street'
end


if $ARGS[0]='dima44':
cla
*clr
set minut = minut + 15
set money=0
clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet264.jpg" ></center>'
'you decide, that sit covered with sperm, naked on the road - too humiliating for you. When Lech hidden from view, you go, Grab your clothes, left close, and ran into the midst of. Unfortunately your handbag it prehvatil ssoboy.   Eyes you come across a pointed stone, and when your hands are free, you carefully wipe traces of semen from the face. You can not find the right direction, and after a while you find yourself near the supermarket, where you met Dima'

act 'Chill_Out':gt' street'
end


if $ARGS[0]='dima45':
cla
*clr
set minut = minut + 30

clr
gs'stat'
'<center><img src="picQW/13606_ZenzaRaggiNikiSweet084.jpg" ></center>'
'-as you wish. So you will get new experience. Many new experiences! And I benefit, - said Lech, smiling. 
After that he was silent all the way, until you have passed the desired stop. Lech brought you out of the bus and led to the sex shop.
-And here you are, - Welcome to Girl. She unceremoniously grabs you and takes the back room. There she undresses you and ties.
-And now for me, - girl you brought up the stairs. '
act 'Go to the basement':gt 'event','dima46'
end

if $ARGS[0]='dima46':
cla
*clr
set minut = minut + 5
set throat = throat + 1	
set cumlip = cumlip + 1 
set swallow = swallow + 1 
Set bj = bj + 1
set gloryhole=gloryhole+1
clr
gs'stat'
'<center><img src="picQW/15933_MarkDavisDonnaAnnika_447.jpg" ></center>'
'When you`re down, girl has got you in a dark room with a round hole in one wall. almost immediately, appears in the hole whose-then a member of the. 
-proceed, - commanded girl. 
After your refusal, she grabbed you by the neck, and force pressed to the hole.
Attempts to push out a member of your mouth, Only very excited stranger behind the wall, and could not stand a minute, he cums. from-In order for, that your head tight against, you are not able to spit, and forced to swallow. 
-Your companion has received money for a certain number of customers. Then she coped, or I should stay, and control? '
act 'agree to suck':gt 'event','dima47'
act 'refuse to continue':gt 'event','dima48'
end

if $ARGS[0]='dima47':
cla
*clr
set minut = minut + 50
set throat = throat + 5	
set cumlip = cumlip + 8 
set swallow = swallow + 8
Set bj = bj + 8
set gloryhole=gloryhole+8
set vagina = vagina + 1
set money = money+1000
clr
gs'stat'
'<center><img src="picQW/15933_MarkDavisDonnaAnnika_494.jpg" ></center>'
'-That`s wonderful, - said the girl,- I will call your friend, Let him until the next. And you do not get distracted, - With these words, which already has a new member.
You dutifully bent over, and began to please the next stranger. you tried. Men erupted one after another.
It_seems, you are so enthusiastic, that have not heard, as Lech walked into the room. 
awareness, that you are not alone in the room it was at that moment, when he forcefully entered you. 
You have decided not to be distracted, and continued to suck, despite the ramming you from behind Lech. 
when a man, you serve, finished, do_you, as before, swallowed, and were ready to accept the new, but remained empty hole. It_seems, money, obtained Lyokha, you have worked. 
Lehi efforts have left their mark, and soon you shook in orgasm. almost immediately, He pulled his cock, and expanding your, jabbing you in the face. You have a couple of habitual movements could make him cum.
after, you cleaned his cock, he came out of the booth, and you are a few minutes came a. oklemavshis, you are out of the room. At the door of the girl you met, and that led you to this basement. She took you to the restroom, where you can wash your face and rinse your mouth. When you are out, she handed you a bag with your belongings, and a few more notes, adding, it asked me to tell you your friend, for a job well done. you dressed.'
act 'Go outside' :gt 'nord'
end

if $ARGS[0]='dima48':
cla
*clr
set minut = minut + 50
set throat = throat + 5	
set cumlip = cumlip + 8 
set swallow = swallow + 8
Set bj = bj + 8
set gloryhole=gloryhole+8
clr
gs'stat'
'<center><img src="picQW/15933_MarkDavisDonnaAnnika_481.jpg" ></center>'
'It_seems, Woman did not satisfy your refusal.
-Do not want to for good, then continue on the poor.
With these words, girl again summed up your head to the hole.
When it has a new member, she put it to you in the mouth, and began to drive your head. the impression, she fucks a stranger behind the wall of your head. It took more time, but this ended in your mouth. In the meantime, she shrank your head against the wall, not giving you spit on the floor. This was repeated several times.
when the last В«customerВ» disappeared into the hole, she let go of your head, and left the room. Very soon she was back with your belongings. you dressed, and she put you out of the room.'
act 'Go outside' :gt 'nord'
end

if $ARGS[0]='dima49':
cla
*clr
set minut = minut + 50
clr
gs'stat'
'<center><img src="picQW/10022_ParisTommy_021.jpg" ></center>'
'You woke up in the middle of a-then the area. Your hands were chained to a pole, and things were a step away from you. In the mouth gag. In the distance there were people, but no one dared to come to you. And okriknut them you could not afford. So it took about an hour. Similarly. Your feet are tired, but his hands behind his back did not give you a chance to sit down. 
Suddenly you notice, that a-guy is sent to you. 
-Do you need help? - He asked'
act 'nod':gt 'event','dima50'
end

if $ARGS[0]='dima50':
cla
*clr
set minut = minut + 30

clr
gs'stat'
'<center><img src="picQW/10022_ParisTommy_028.jpg" ></center>'
'The guy came closer, liberate your hands and pulled his mouth gag.  
He helped to collect your belongings, and offered to withdraw from the area as soon as possible. Was very close to the river, and he proposed to you to dress under the bridge.  
When you`re down, the guy said:
- You can thank the savior?'
act 'suck':gt 'event','dima51'
if agil<50:
act 'send':gt 'event','dima52'
end
if agil>49:
act 'send':gt 'event','dima53'
end
end

if $ARGS[0]='dima51':
cla
*clr
set minut = minut + 5
set throat = throat + 1	
set cumlip = cumlip + 1 
set swallow = swallow + 1 
set cumface = cumface + 1 
Set bj = bj + 1
clr
gs'stat'
'<center><img src="picQW/10022_ParisTommy_088.jpg" ></center>'
'You immediately realize, that hints at a guy. Kneeling, you rastegnula pants Man, and got down to business. Barely a couple of minutes, as the guy began to finish. When_you_have_finished, he said good-bye to you, and quickly retired.'
act 'Freshen up' :gt 'nord'
end

if $ARGS[0]='dima52':
cla
*clr
set minut = minut + 20
set throat = throat + 2	
set cumlip = cumlip + 1 
set swallow = swallow + 2 
set cumface = cumface + 1 
Set bj = bj + 2
set money=0
clr
gs'stat'
'<center><img src="picQW/10022_ParisTommy_308.jpg" ></center>'
'Furious your refusal, guy pushes you, grabs your stuff, throwing them into the river and, you have time to grab clothes, but the bag goes to the bottom of your savings and keys. 
When you climb the bridge, both appear out of thin air a couple of guys. They grab you, and bind your hands. Judging by their actions, they follow you from the area. 
When you find yourself in the lap, They lowered his pants. It_seems, you have no choice. You start their humor.
When you finish with the last, guys free your hands and run away.
When he came to, you find the right direction, and some time later find yourself far from the supermarket, which met Dima'
act 'Chill_Out':gt' street'
end


if $ARGS[0]='dima53':
cla
*clr
set minut = minut + 30

clr
gs'stat'
'<center><img src="ode/skirt1.jpg" ></center>'
'Furious your refusal, guy pushes you, but you are standing firm on their feet. realizing, that you better not mess, man escapes.'
act 'Freshen up' :gt 'nord'
end


if $ARGS[0]='scoreslut1':
cla
*clr
set minut = minut+30
clr
gs'stat'
'<center><img src="picQW/dima6.jpg" ></center>'
'you came, tied hands at the battery. On the couch you looked expectantly Dima.'
act 'frightened look':gt'event','scoreslut2'
act 'Trying to escape':gt'event','scoreslut3'
end

if $ARGS[0]='scoreslut2':
cla
*clr
SUB=SUB+2
set minut = minut+5
clr
gs'stat'
'<center><img src="picQW/dima6.jpg" ></center>'
'"woke_up, bitch? We told you that?.'
act 'frightened look':gt'event','dima30'
end

if $ARGS[0]='scoreslut3':
cla
*clr
SUB=SUB+2
set minut = minut+5
clr
gs'stat'
'<center><img src="picQW/dima6.jpg" ></center>'
'"What do you know, kicks"'
act 'frightened look':gt'event','dima30'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0]='lesbi':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><img src="picQW/lesbi.jpg" ></center>'
'woman, staring at you, caught your opinion. Appraising look around you, She smiled and held fast to his lips tongue.'
act 'turn':gt'butik','start'
act 'become_acquainted':gt'event','lesbi1'
end

if $ARGS[0]='lesbi1':
cla
*clr
set minut = minut + 5
set lesbiQW = 1
gs'stat'
'<center><img src="picQW/lesbi.jpg" ></center>'
'You came to the woman. She looked at you with a twinkle in his eye "I Natalya Petrovna, and you do, on my card, call me, as we go somewhere in an interesting place." After that the woman comes out of the boutique graceful and confident gait.'
act 'move_away':gt'butik','start'
end

if $ARGS[0]='lesbi2':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><img src="picQW/lesbi.jpg" ></center>'
'- minnows?! yes I have had more guys than you!!! you misbehaved.
- guys? YES they can twist as you like, if Bcki have, Yes Cute snout. Do you even when-Have you ever tried to get
another girl live, that it will be ready to do anything for your attention?'
if lesbian>0:'- Nuu..no..I do not understand this at all -  you mumble. With a girl I tried to, but that so..'
if lesbian=0:'- Nuu..no..I do not understand this at all -  you mumble. I`m with a girl-you really have not tried..'
act 'move_away':gt'park','start'
act 'ask teach':gt 'event','lesbi3'
end

if $ARGS[0]='lesbi3':
cla
*clr
set minut = minut + 5
set lesbiQW = 2
clr
gs'stat'
'<center><img src="picQW/lesbi.jpg" ></center>'
'You suddenly gripped interest, how does it make the other girls so you read? Can ask the woman to teach me.
Then you can find yourself a very obedient simpleton, that will make your small household chores and help you escape
from the guys. And deciding you asked:
- Can you teach me that?
- teach? - she asked in surprise. - teach.. huh.. let`s try! - said the lady with a smirk. - Come tomorrow 10 My hours
apartment (curiously enough, turned, she lives on the floor below you'
act 'Leave in disarray':gt'park','start'
end
--- event ---------------------------------

# frot
if $ARGS[0]='a':
cla
*clr
gs'stat'
'<center><img src="picV/frot.jpg" ></center>'
'Did you feel that you rests that something solid in the ass, Stir you understand, that rests between the buttocks you risen member.'
act 'Go to a different location':gt'frot','fin'

     act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 10
	 clr
     gs'stat'
     '<center><img src="picV/frot1.jpg" ></center>'
	 'The guy standing behind no matter how vznachay As for your priests with his hand .'
     act 'Go to a different location':gt'frot','fin'
	 act 'Disregard':
		 cla
		 *clr
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="picV/frot2.jpg" ></center>'
		 'You feel like a man behind you got dick and began to rub them on your ass clinging to you and squeezing your buttocks with his hands.'
		 act 'Go to a different location':gt'frot','fin'
	         act 'Disregard':
			 cla
			 *clr
			 set horny = horny + 10
			 set frot = frot + 1
			 set cumfrot = cumfrot + 1
			 set SUB = SUB + 5
			 gs'starenie'
			 clr
			 gs'stat'
			 '<center><img src="picV/frot3.jpg" ></center>'
			 'The man behind the twitching and you feel like something warm and viscous flowed to you. The guy you left off on your ass, then he moved on to another place.'
			 act 'Get out of the car':gt'frot','fin2'
			 end
		 end
	 end
end

if $ARGS[0]='b':
cla
*clr
gs'stat'
'<center><img src="picV/frot.jpg" ></center>'
'Did you feel that you rests that something solid in the ass, Stir you understand, that rests between the buttocks you risen member.'
act 'Go to a different location':gt'frot','fin'
     act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 10
	 clr
	 gs'stat'
	 '<center><img src="picV/frot1.jpg" ></center>'
	 'The guy standing behind your buttocks squeezes his hands and even more pressed his cock you to the pope.'
	 act 'Go to a different location':gt'frot','fin'
	 act 'Disregard':
		 cla
		 *clr
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="picV/frotA1.jpg" ></center>'
		 'The man pulled up her skirt and you began to caress your bare buttocks with his strong hands.'
		 act 'Disregard':
			 cla
			 *clr
			 set horny = horny + 10
			 clr
			 gs'stat'
			 '<center><img src="picV/frotA2.jpg" ></center>'
			 'The man lowered your panties and between your naked buttocks stuck his hand, which began to caress your wet pussy.'
			 act 'Disregard':
				 cla
				 *clr
				 set horny = horny + 10
				 clr
				 gs'stat'
				 set horny = horny + 10
				 set frot = frot + 1
				 set cumfrot = cumfrot + 1
				 set SUB = SUB + 1
				 gs'starenie'
				 clr
				 gs'stat'
				 '<center><img src="picV/frot3.jpg" ></center>'
				 'The man went down the lower your skirt at your panties down on your knees, and took his hand your hand. He forced you to take his penis with your hand. You wrapped around hot and hard cock and started stroking it. Once you feel like you man cums on her skirt.'
				 act 'Get out of the car':gt'frot','fin2'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='c':
cla
*clr
gs'stat'
'<center><img src="picV/frotP.jpg" ></center>'
'You feel like a man standing behind you began to thrust his hand into the pants you.'
act 'Go to a different location':gt'frot','fin'
     act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 10
	 clr
     gs'stat'
     '<center><img src="picV/frotP1.jpg" ></center>'
     'You become a pleasure of caressing the stranger under your ass pants, Suddenly you see how he pulled out a small pair of scissors to cut the ribbon want your bra.'
	 act 'Go to a different location':gt'frot','fin'
	 act 'Disregard':
		 cla
		 *clr
		 set horny = horny + 10
		 set clrbelo = clrbelo - 1
		 set SUB = SUB + 1
		 clr
		 gs'stat'
		 '<center><img src="picV/frotP2.jpg" ></center>'
		 'The man cut the ribbon to your bra and removed it from you. Freeing you from the bra he began to fondle your breasts'
	 	     act 'enjoy':
			 cla
			 *clr
			 set horny = horny + 10
			 clr
			 gs'stat'
			 '<center><img src="picV/frotP3.jpg" ></center>'
			 'The man bent forward and you began to fondle your ass, you feel that his hands clutching your pants trying to break them.'
			 act 'Go to a different location':gt'frot','fin'
			 act 'Allow it to him':
				 cla
				 *clr
				 set SUB = SUB + 1
				 set horny = horny + 10
				 clr
				 gs'stat'
				 set horny = horny + 10
				 !set frot = frot + 1
				 set cumfrot = cumfrot + 1
				 set SUB = SUB + 5
				 gs'starenie'
				 gs'starenie'
				 gs'starenie'
				 gs'starenie'
				 gs'starenie'
				 clr
				 gs'stat'
				 '<center><img src="picV/frotP4.jpg" ></center>'
				 'Man ripped your pants you have between your legs, thereby exposing your wet pussy.'
			         act 'Allow it to him':
					 cla
					 *clr
					 set SUB = SUB + 1
					 set horny = horny + 10
					 set guy = guy + 1
					 set sex = sex + 1
					 set vagina = vagina + 1
					 clr
				     gs'stat'
				     '<center><img src="picV/frotP5.jpg" ></center>'
				     'He turned you face him and cocked up your leg came into your sweaty pussy with his hard cock.'
				     if horny >= 100:
					     set horny = 0
						 set manna = manna + 15
						 set willpower = willpower + 15
						 set orgasm = orgasm + 1
					     'You started to cum almost immediately as he came in you.'
					     end
					 if horny < 100:
						 'You cover the wild excitement of sex with a stranger in a public place.'
						 end	
					     act 'further':
						 cla
						 *clr
						 set horny = horny + 10
						 set frot = frot + 1
						 set cumfrot = cumfrot + 1
						 set frot = frot + 1
						 set cumpussy+=1
						 gs'preg'
						 set SUB = SUB + 1
						 gs'stat'
						 '<center><img src="picV/frotP6.jpg" ></center>'
						 'stranger, not pulling out of your pussy juices flowing member, cums right inside. You feel like a jet of sperm hit you in the womb.'
					     act 'Get out of the car':gt'frot','fin2'
						 end
					 end
				 end
     		 end
         end
     end
end

if $ARGS[0]='d':
cla
*clr
gs'stat'
'<center><img src="picV/frotP.jpg" ></center>'
'You feel like a man standing behind you began to thrust his hand into the pants you.'
act 'Go to a different location':gt'frot','fin'
act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 10
	 clr
     gs'stat'
     '<center><img src="picV/frotD.jpg" ></center>'
     'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and led you to take his penis with his hand.'
     act 'Go to a different location':gt'frot','fin'
     	 act 'Masturbate his penis':
		 cla
		 *clr
		 set horny = horny + 10
		 set hj = hj + 1
		 set cumass = cumass + 1
		 set SUB = SUB + 1
		 set frot = frot + 1
		 clr
		 gs'stat'
		 '<center><img src="picV/frotD1.jpg" ></center>'
		 'You caress his cock and fingers rub it on your bare skin, Member tense and out of your bare ass began to splash sperm. After the man was satisfied, you pulled the pants right on running down your priests sperm.'
		 act 'Get out of the car':gt'frot','fin2'
		 end
     end
end

if $ARGS[0]='e':
cla
*clr
gs'stat'
'<center><img src="picV/frotP.jpg" ></center>'
'You feel like a man standing behind you began to thrust his hand into the pants you.'
act 'Go to a different location':gt'frot','fin'
act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 60
	 clr
     gs'stat'
     '<center><img src="picV/frotE.jpg" ></center>'
     'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, you feel like you gets his hand between her legs and starts to jerk off your pussy.'
     !act 'Go to a different location':gt'frot','fin'
         if horny >= 90:
		 set horny = 0
		 set manna = manna + 15
		 set willpower = willpower + 15
		 set orgasm = orgasm + 1
		 'You can no longer tolerate you and covers a powerful orgasm. Your legs give way.'
		     act 'To squat':
			 cla
			 *clr
			 set horny = horny + 10
			 set SUB = SUB + 1
			 clr
			 gs'stat'
			 '<center><img src="picV/frotE1.jpg" ></center>'
			 'You could no longer stand and sat down on his haunches. The man pulled out a member who was standing right in front of your face and taking you behind your head began to direct your face to the member.'
			     act 'Take by mouth':
				 cla
				 *clr
				 set horny = horny + 10
				 set bj = bj + 1
				 set guy = guy + 1
				 !set cumface = cumface + 1
				 set SUB = SUB + 1
				 set frot = frot + 1
				 clr
				 gs'stat'
				 '<center><img src="picV/frotE2.jpg" ></center>'
				 'The man held his cock you on the lips several times then sent a crimson head between your lips, you obediently opened his mouth and took it hard cock. You hunker down in the middle of a crowded subway car and sucked a member of the stranger.'
			         act 'continue to suck':
					 cla
					 *clr
					 set horny = horny + 10
					 !set bj = bj + 1
					 !set guy = guy + 1
					 set cumface = cumface + 1
					 set facial = facial + 1
					 set SUB = SUB + 1
					 !set frot = frot + 1
					 clr
					 gs'stat'
					 '<center><img src="picV/frotE3.jpg" ></center>'
					 'The man pulls his dick out of your mouth and ends on you lips, hot cum dripping on your lips on the chin.'
					     act 'Sit on the floor':
						 cla
						 *clr
						 set horny = horny + 10 + SUB + VAF
						 set cumlip = cumlip + 1
						 set swallow = swallow + 1
						 set SUB = SUB + 5
						 gs'stat'
						 '<center><img src="picV/frotE4.jpg" ></center>'
						 'Man fingers collects sperm from your face and shoves them into your mouth, and you dutifully licks them with sperm and swallow.'
                         act 'Get out of the car':gt'frot','fin2'
                         end
                     end
				 end
			 end
		 exit
		 end
		 if horny < 90:
		 'You are very excited and you thought comes to mind masturbate his cock.'
		     act 'Masturbate his penis':
			 cla
			 *clr
			 set horny = horny + 10
			 set hj = hj + 1
			 set cumass = cumass + 1
			 set SUB = SUB + 1
			 set frot = frot + 1
			 clr
			 gs'stat'
			 '<center><img src="picV/frotD1.jpg" ></center>'
			 'You caress his cock and fingers rub it on your bare skin, Member tense and out of your bare ass began to splash sperm. After the man was satisfied, you pulled the pants right on running down your priests sperm.'
			 act 'Get out of the car':gt'frot','fin2'
			 end
		 end
     end
end

if $ARGS[0]='d1':
cla
*clr
gs'stat'
'<center><img src="picV/frotD2.jpg" ></center>'
'You feel like a man standing behind you lift up your skirt became.'
act 'Go to a different location':gt'frot','fin'
act 'Disregard':
	 cla
	 *clr
	 set horny = horny + 10
	 clr
	 gs'stat'
	 '<center><img src="picV/frotD.jpg" ></center>'
	 'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and led you to take his penis with his hand.'
	 act 'Go to a different location':gt'frot','fin'
   	 act 'Masturbate his penis':
		 cla
		 *clr
		 set horny = horny + 10
		 set hj = hj + 1
		 set cumass = cumass + 1
		 set SUB = SUB + 1
		 set frot = frot + 1
		 clr
		 gs'stat'
		 '<center><img src="picV/frotD1.jpg" ></center>'
		 'You caress his cock and fingers rub it on your bare skin, Member tense and out of your bare ass began to splash sperm. After the man was satisfied, you pulled the pants right on running down your priests sperm.'
		 act 'Get out of the car':gt'frot','fin2'
		 end
     end
end

if $ARGS[0]='fin':
cla
'You barely squeezed in another place, away from horny asshole. After a while you come to your station'
act 'Get out of the car':gt'metro','start'
end

if $ARGS[0]='fin2':
gt'metro','start'
end
--- frot ---------------------------------

# kisameQW
if $ARGS[0]='start':
cla
set horny = horny + 20
clr
gs'stat'
'<center><img src="picQW/kisame1.jpg" ></center>'
'You swim in the pool, Kisame underwater circling constantly touching your body. He rips off your swimsuit and pushes you to the bottom of the pool.'
'Kisame plunges to you and pushing your feet.'
     act 'Trying to push him away':
     cla
     *clr
     set horny = horny + 60
     set sweat = -3
     set manna = manna + 5
     set willpower = willpower + 5
     clr
	 gs'stat'
     '<center><img src="picQW/kisame2.jpg" ></center>'
     'Kisame despite your attempts to resist pushing your feet bites his lips in your piece, his tongue gets you into the vagina and caress you like. You feel on top of the world.'
         act 'submit':
         cla
         *clr
		 set horny = horny + 60
		 set sweat = -3
		 set manna = manna + 5
		 set willpower = willpower + 5
		 set guy = guy + 1
		 set sex = sex + 1
		 set vagina = vagina + 1
		 if KisameSex = 0:set KisameSex = 1&Set guy = guy + 1
		 clr
		 gs'stat'
		 '<center><img src="picQW/kisame3.jpg" ></center>'
		 'Kisame playing with you like a toy, he swims beneath you and skewer your pussy on his cock. You are at the same time on the brink of orgasm and fainting from suffocation. You hear the voice of Kisame, you can breathe underwater. He fucked hard in the pussy you and you do not stand up and breathe in a water. Suddenly.'
		 'Sighing you immediately covers orgasm, you bend in the throes of pleasure. Kisame also ends up in you.'
		 act 'further':gt'kisameQW','after'
         end
         
         act 'attack (Kisame magician10)':
         cla
         *clr
         '<center><img src="picQW/kisameV.jpg" ></center>'
		 set horny = horny + 60
		 set $nameV = 'Kisame'
		 !stats
		 set strenV = 300
		 set speedV = 100
		 set agilV = 100
		 set reactV = 100
		 set vitalV = 200
		 set intelV = 100
		 set willV = 50
		 !skills
		 set magikV = 10
		 set boxingV = 100
		 set shootV = 100
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*magikV + magikV*100 + vitalV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 5
		 !!!!!!!!!!!!!!!!!!!!
		 set kisamePic = 1
		 !!!!!!!!!!!!!!!!!!!!
		 set KisaFight = 1
		 set klonV = 5
		 !set defenceV = 10000
		 if spellavtoklon = 1:set klon = 3
	     if spellbefshild = 1:set defence = 500
		 gt'fight','start'
		 'You kicked in the face Kisame. He showed his teeth and his appearance began to change, Available immediately after he was blue with gills on the face and shark teeth. He hissed with a smile on his face "Want to play baby? Let`s play!"'
		 act 'fight':gt'fight','start'
         end
     end
end

if $ARGS[0]='after':
cla
set horny = horny + 20
clr
gs'stat'
'<center><img src="picQW/kisameV.jpg" ></center>'
'Kisame instantly transformed into a creature senee akulopodobnoe. He smiled and said "Thank you baby." With these words he slapped you on the ass and went to the men`s locker room.'
act 'Find a swimsuit and go into the locker room':gt'bass','start'
end










--- kisameQW ---------------------------------

# lesbidomhouse
gs 'stat'

if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
set lesrand = RAND(1,3)
clr
gs'stat'
	 if lesrand=1:
	 'you have reached, but the door you no one opened. On the second call also no answer'
	 act 'Get_Away':gt 'street'
	 end
	 if lesrand>=2:
	 'You rang the doorbell several times. Once you have opened the third.'
	 act 'go':gt 'lesbidomhouse','ev1'
	 act 'Get_Away':gt 'street'
	 end
end

if $args[0]='ev1':
cla
*clr
set minut=minut+5
'<center><img src="picQW/lesbi.jpg" ></center>'
'Rang the doorbell.
You do not open and you want to leave, but the desire to learn povelevaniyu girls you overcame and you call again.
Finally.
-hello - said Light
-and, is that you, scornfully said the lady, Come.'
act'go':gt 'lesbidomhouse','ev2'
end

if $args[0]='ev2':
cla
*clr
set minut=minut+5
'<center><img src="pic/irinaroom.jpg" ></center>'
'you looked around, the apartment was very clean, comfort but it did not cause. 
-how-it is not comfortable you - Say you, and immediately met with a cold stare ladies. 
You become very uncomfortable.
-Excuse_Me - you said
-It`S_Nothing, you have to get used to this situation. After all, to, to make her feel uncomfortable, weak, helpless. 
-Ok, I remember. I never asked your name.
- Call me Mistress.'
act 'agree':gt 'lesbidomhouse','ev4'
if sub<30 and horny<75:
act 'brawl':gt 'lesbidomhouse','ev3'
end
end

if $args[0]='ev3':
cla
*clr
set minut=minut+5
set lesbiqw=-1
if dom>0:set dom=dom+5
if sub>0:set sub=sub-5
'<center><img src="picQW/pnx.jpg" ></center>'
'Did you decide, she wants to make you a slave and nothing more, so you yell at a woman and left'
act 'Get_Away':gt 'street'
end

if $args[0]='ev4':
cla
*clr
set minut=minut+5
'<center><img src="picQW/lesbi.jpg" ></center>'
'you think, she wants to make you a slave, not teach. But still did not say anything.
-ok, hostess. And where do we start my training?
-The very first, it is not to hurry. You must know well the victim. For example, drink and rub into the credibility of the. From this
and begin, you will be subject to, which I will show you all my tricks.'
act 'listen more':gt 'lesbidomhouse','ev5'
end

if $args[0]='ev5':
cla
*clr
set minut=minut+5
'<center><img src="picQW/zst.jpg" ></center>'
'you agreed, went into the room, which has already been prepared drink and snacks.'
act 'drink':gt 'lesbidomhouse','ev6'
end

if $args[0]='ev6':
cla
*clr
set hour=hour+23
set minut=minut+5
set lesbiqw=3
'<center><img src="picQW/zst.jpg" ></center>'
'You started drinking and soon your stiffness and uncertainty disappeared and you started to tell his adventures Mistress,
how much you had guys, how many times given in the ass, how otsasali, drinking and even told, that the sex was even
unfamiliar guys in clubs and parks and other your adventure.
End drunk you decide to go home. The hostess did not accompany you, but you were so drunk, that scored it.'
if oral>=anal and oral>=sex:
set callnm=1
end
if anal>=oral and anal>=sex:
set callnm=2
end
if Sex>=oral and Sex>=anal:
set callnm=3
end
if vaf>=100:
set callnm=4
end
act 'go home':gt 'korr'
end

if $ARGS[0]='start1':
cla
*clr
set minut = minut + 5
set lesrand = RAND(1,3)
clr
gs'stat'
	 if lesrand=1:
	 'you have reached, but the door you no one opened. On the second call also no answer'
	 act 'Get_Away':gt 'street'
	 end
	 if lesrand>=2:
	 'You rang the doorbell several times. Once you have opened the third.'
	 act 'go':gt 'lesbidomhouse','ev7'
	 act 'Get_Away':gt 'street'
	 end
end

if $args[0]='ev7':
cla
*clr
set minut=minut+5
'<center><img src="picQW/lesbi.jpg" ></center>'
'You decided to go to, hmmm, hostess? find out whether there was something yesterday-something to be ashamed of and what you have to train a lesson
had to endure? as you remember little from that day.'
act 'Greet':gt 'lesbidomhouse','ev8'
end

if $args[0]='ev8':
cla
*clr
set minut=minut+5
if callnm=1:
$callnm='nipple' 
end
if callnm=2:
$callnm='analschitsa' 
end
if callnm=3:
$callnm='davalka' 
end
if callnm=4:
$callnm='spermoedka'
end
'<center><img src="picQW/lesbi.jpg" ></center>'
'-hello, hostess.
-hello <<$callnm>>'

'-as you call me? - you were taken aback. and blushed, because the hostess told the truth.
-This is lesson number 2. Humiliate their target. Use it, she learned about it.'
act 'Ask not to call you so':gt 'lesbidomhouse','ev9'
end

if $args[0]='ev9':
cla
*clr
set minut=minut+5
if callnm=1:
$callnm='nipple' 
end
if callnm=2:
$callnm='analschitsa' 
end
if callnm=3:
$callnm='davalka' 
end
if callnm=4:
$callnm='spermoedka'
end
'-No, You must be on their skin feel all, <<$callnm>>'
'-continuing education. If that, What did you learn about the girl, it touches, it is considered that it is yours. Make it do, she
most likes.
-but if she loves anal and С‘blyu or suck dick and swallows cum, I `ll make her do it? I do not have the same term and I do not
what-thread is fantasy feet.
On this account , I`ll give you (may be) special strap, he may issue streams of sperm.'
act 'ask to try':gt 'lesbidomhouse','ev10'
end

if $args[0]='ev10':
cla
*clr
set minut=minut+5
'-th and I did not know about such, You can try?
-yet, I told, first you try to imagine all.
-Ok - hesitantly told you.
-proceed.'
act 'proceed':gt 'lesbidomhouse','ev10a'
end

if $args[0]='ev10a':
cla
*clr
set minut=minut+35
set horny=95
'<center><img src="picQW/lesbi2.jpg" ></center>'
if callnm=1 or callnm=4:
'Mistress of the beginning you have. At first it will make you suck the plastic member, then shoved a plastic member in your throat and began shamelessly fuck you there. You were close to the peak of pleasure, The hostess suddenly stopped. '
end
if callnm=2:
'The hostess sat down you have. At first it will make you suck the plastic member, You then turned and began to mercilessly fuck your pussy. You were close to the peak of pleasure, The hostess suddenly stopped. '
end
if callnm=3:
'The hostess sat down you have. At first it will make you suck the plastic member, You then turned and began mercilessly nasilovt your ass. You were close to the peak of pleasure, The hostess suddenly stopped. '
end
act 'rebel':gt 'lesbidomhouse','ev11'
end

if $args[0]='ev11':
cla
*clr
set minut=minut+5
set lesbiqw=4
set sub=sub+2
set lesbian+=1
if ldmistresex=0:ldmistresex=1&girl+=1
set lesbiday=day
'-Come, I`m almost finished - moaned you. 
-next lesson - do not let the girl is, that it has not yet earned. Do you want to cum? First I lick pussy.
You started with a zeal to lick pussy Mistress, submissively and unquestioningly.
Receive proper pleasure, The hostess put her hand on your head and let down your tongue to his anus.'
act 'protest':gt 'lesbidomhouse','ev12'
act 'lick ass':gt 'lesbidomhouse','ev13'
end

if $args[0]='ev12':
cla
*clr
set minut=minut+5
'-phew, he is not washed, here callas - You started to step back.
-Requirements should not be easy, otherwise the girl would not be so submissive. But then it will be waiting for a very good
promotion.'
act 'Get_Away':
set lesbiqw=-1
gt 'street'
end
act 'lick ass':gt 'lesbidomhouse','ev13'
end

if $args[0]='ev13':
cla
*clr
set anllick=anllick+1
set anllicka+=1
set minut=minut+5
set energy+=1
'<center><img src="picQW/lesbi3.jpg" ></center>'
'You reluctantly began to lick anus Mistress. You almost puked, but more excitement and a desire to learn, what kind of
reward awaits her after, forced you to continue.
Mistress of all shuddered, You fell right hair. she finished. 
-Well, hostess?
-no...'
act 'uncomprehending look':gt 'lesbidomhouse','ev14'
act 'Get_Away':
set lesbiqw=-1
gt 'street'
end
end

if $args[0]='ev14':
cla
*clr
set lesbiqw=5
'<center><img src="picQW/lesbi9.jpg" ></center>'
'-Chtoooo?! You said, that then I will be rewarded!!!
-This is another lesson, you can not give the girl a reward immediately. She should understand, what to get that-it is not so easy. all, go.
meet tomorrow!'
act 'Get_Away':gt 'street'
end

if $args[0]='ev15':
cla
*clr
set lesbiday=day
Set minut=minut+30
'-Come, '
if callnm=1:
'nipple' 
end
if callnm=2:
'analschitsa' 
end
if callnm=3:
'davalka' 
end
if callnm=4:
'spermoedka'
end
'-hello, hostess.
-Well, you know, what to do, to receive the award.'
act 'lick mistress':gt 'lesbidomhouse','ev16'
end

if $args[0]='ev16':
cla
*clr
set minut=minut+5
set anllick=anllick+1
set anllicka+=1
set horny=horny+20
set energy+=1
'<center><img src="picQW/lesbi4.jpg" ></center>'
'You first began to lick pussy Mistress, and then a dirty anus...you could not understand why, but you start to like it.
When the hostess enjoyed in abundance, she stood up and said:
-what, slut, Now it`s time to reward you.
-And what is the reward? - Light did not even resent, its so called, it just so myself and felt.
-Arise cancer.'
act 'do, as told':gt 'lesbidomhouse','ev17'
end

if $args[0]='ev17':
cla
*clr
set minut=minut+5
Set horny=95
'<center><img src="picQW/lesbi5.jpg" ></center>'
'Do_You, in anticipation of bliss, got up on all fours and relaxed.
First in the pussy got one finger and began to move it. 
then the second.
Behind him the third.
You start having fun...and was on the verge, in pussy entered the fourth finger.
Vagina start to move apart more and you`ll be amazed pain, you cried.
But if the hostess did not hear this, she began to insert the whole hand.
Thank you again cried out in pain and were ready to jump to his feet.'
act 'Yell and go':gt 'lesbidomhouse','ev18'
act 'meekly endure':gt 'lesbidomhouse','ev19'
end

if $args[0]='ev18':
cla
*clr
set horny=0
set minut=minut+5
set lesbiqw=6
'<center><img src="picQW/pnx.jpg" ></center>'
'-Fuck you, pervert crappy!!!! And it`s a reward for your fucking ass!!! Go fuck!!!
You grabbed the clothes and rushed naked in his apartment.'
act 'Get_Away':gt 'street'
end

if $args[0]='ev19':
cla
*clr
set minut=minut+5
set lesbiqw=7
set sub=sub+5
set vagina+=5
set lesbian+=1
set horny=5
set orgasm+=1
'<center><img src="picQW/lesbi6.jpg" ></center>'
'You were wildly hurt, but you, no matter what, suffered pain. Even the tears gushed from his eyes. But the hostess continued to move his arm, and you did not even know, in your pussy can get into a fist. But eventually, you even began to like, and you hit the orgasm.'
act 'Get_Away':gt 'street'
act 'thank mistress':gt 'lesbidomhouse','ev20'
end

if $args[0]='ev20':
cla
*clr
set lesbiqw=8
set minut+=3
'<center><img src="picQW/lesbi4.jpg" ></center>'
'You have got to the vagina mistress, in order to thank her for such a powerful orgasm, what she grinned and said:
"And you quickly grasp, Svetsik! You just learn, or you just like to do everything, what you ordered?"'
act 'rebel':gt 'lesbidomhouse','ev18'
act 'Silently licking pussy':gt 'lesbidomhouse','ev21'
end

if $args[0]='ev21':
cla
*clr
set lesbiqw=9
set sub=sub+5
set lesbian+=1
set minut+=30
'<center><img src="picQW/lesbi4.jpg" ></center>'
'After a few minutes of work vvash skilful tongue, The hostess shuddered in orgasm. Do_You, saying nothing, got up and went home'
act 'Get_Away':gt 'street'
end

if $args[0]='ev22':
cla
*clr
set minut+=5
Set horny+=50
'<center><img src="picQW/lesbi.jpg" ></center>'
'Bs thought:"fuck this thing". But after all the stairs, remembered, Lisa and dirty ass
As You Like It...
Damn_It, She used me, and not taught...And to hell with it..
thought you decided to visit pervert, but just to lick her.
-hostess, I`m here this..came..well in general..
-Liked obey me? - asked the hostess, - well, but you insulted me. This is not good!
-I`m ready to lick his guilt in front of you...but without this, your fisting..
-It is not enough, will have to do something-what else!
-Hopefully without battering?
-do not worry.'
act 'To correct their actions':gt 'lesbidomhouse','ev23'
end

if $args[0]='ev23':
cla
*clr
set lesbiday=day
set lesbiqw=8
set sub=sub+1
set lesbian+=1
set minut+=30
set anllick=anllick+1
set anllicka+=1
'<center><img src="picQW/lesbi7.jpg" ></center>'
'You have again started to lick Mistress of all places  .'
if sub<50 or vaf<100:'"What is it with me"- think you'
'-And now on his knees and open your mouth - said Mistress.'
act 'Get on your knees and open your mouth':gt 'lesbidomhouse','ev24'
end

if $args[0]='ev24':
cla
*clr
set minut+=5
set goldenrain+=1
set goldenraina+=1
set orgasm+=1
set horny+=5
set water+=1
'<center><img src="picQW/lesbi8.jpg" ></center>'
'The landlady stood over you and start writing your mouth. Urine hit all over the face, mouth and body.
You embraced indescribable orgasm, It seems like you was to obey.
You again pussy licked, dripping with drops of urine. oncle of the hostess pointed to the door.'
act 'get_away':gt 'street'
end

if $args[0]='ev25':
cla
*clr
set minut+=5
set horny+=25
'<center><img src="picQW/lesbi.jpg" ></center>'
'You`ve come to the hostess for a refill fisting, but she said, that you have done very poorly, without thanking her, and therefore did not get. 
strangely, but such a ban you nly filed'
act 'find_out, how to make amends':gt 'lesbidomhouse','ev26'
end

if $args[0]='ev26':
cla
*clr
set minut+=5
set horny+=25
'<center><img src="picQW/lesbi10.jpg" ></center>'
'To start the hostess took off panties (thence hit the smell of unwashed vagina) and ordered you to do regular work tab.'
act 'lick':gt 'lesbidomhouse','ev23'
end

if $args[0]='ev28':
cla
*clr
set minut+=5
set horny+=25
set lesbiday=day
set energy+=1
'<center><img src="picQW/lesbi11.jpg" ></center>'
'You`ve come to the hostess for a new portion of feces and golden rain, inter alia - licked her pussy'
set lrnd = rand(1,10)
if lrnd>7:
'During all these perversions you covered orgasm'
set orgasm+=1
end
if lrnd<=7:
set horny+=75
'Unfortunately, you do not get an orgasm, but very excited.'
end
set goldenrain+=1
set goldenraina+=1
set anllick=anllick+1
set anllicka+=1
set lesbian+=1
set lesbimeet+=1
act 'Get_Away':gt 'street'
end

if $args[0]='ev29':
cla
*clr
set minut+=5
set horny+=25
'<center><img src="picQW/lesbi3.jpg" ></center>'
'You`ve come to the hostess, once again to lick her all, which can be, but she said, that she has a small gift for a good girl, you, but the tongue to start work will still have to'
act 'do, for what you came':gt 'lesbidomhouse','ev23'
end

--- lesbidomhouse ---------------------------------

# mainQW
'<center><img src="picQW/main.jpg" ></center>'
set minut = minut + 15
'(Karin) - "Hmm, strangely. I think I begin to understand what was going on. Get in the car, go check you."'
'You sat on the back seat of a black jeep. Juugo got behind the wheel, and Karin village near you. Karin took you feel. "interestingly. I understand you had an orgasm and orgasm during part of the force Rikudo, male power, transformed into your power."'
!'(Karin) -'
act 'I am now a magician?':
cla
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'(Do_You) - I am now a magician?'
'(Karin) - Yeah , you also have legs and you still juggler, you also have your hands. You_catch? The magician is a person managing magical powers, you it is, but you manage it do not know how.'
     act 'So teach me!':
     cla
     '(Do_You) - So teach me!'
     '(Karin) - teach? I am in life no one taught magic. Besides. I have a rather magical gift. I feel better than all the magic, wherein at any distance. Plus I fly and I can change the organic life forms. but understand, mostly it is a gift, rather than learning. I`m just learning honed his gift.'
     '(Do_You) - Well.'
     '(Karin) - just the basics.'
     '(Juugo) - arrived, get_out, ladies.'
     'You got out and slammed the door. Passed down the alley to the steel doors. They opened Juugo and Karin missed you forward.'
         act 'Sign on the door':
         cla
         *clr
         '<center><img src="picQW/lab.jpg" ></center>'
         'The building was a laboratory. A wide variety of stands with equipment and shelves with various flasks and bottles.'
         '(Karin) - Welcome to my lab. Here I explore and live. Undress and lie down on the couch, I will search you.'
         set health = vital*10
         set willpower = intel*5 + will*5
         set manna = (intel*magik) + vital*5 + rikudo 
         clr
         gs'stat'
             act 'Lie on the couch':
			 cla
			 *clr
			 clr
             gs'stat'
             set minut = minut + 30
             killobj
             if oldobjmenu=0:
             addobj 'character'
             addobj 'see'
             addobj 'Others'
             addobj 'menu'
             else
             addobj '<font color=green>character</font>'
             addobj 'skills'
             addobj 'statistics'
             addobj 'magic'
             addobj 'face'
             addobj 'body'
             addobj 'clothing'
             addobj 'Tattoos'
             addobj 'piercing'
             addobj 'notebook'
             addobj 'emergency exit'
             addobj 'Refresh'
             addobj 'menu'
             addobj 'The new menu'
             end
			 '<center><img src="picQW/main1.jpg" ></center>'
			 'You undressed and lay on the couch, Karin began to look around you. It applies what that charms to you and use different devices. Cherz half hour examination, She sighed and told you to dress.'
			 'You got up from the couch and dressed. You asked Karin "So what? Teach me anything?"'
			 '(Karin) - Fair_Enough. But only theoretically. Listen carefully and heed, I will not repeat. To begin to tell about magic. The magical energy, in Asian culture it is called chakra, produced by all living organisms. This vital energy, deprived of her body begins to slowly die.  Clear symptom of the lack of magical energy is in a bad mood. It itself can not kill, but it shakes the mind, and exhausts the mind body, as a result of either the body does not survive, or mind.'
			 'That is magical energy there in the grass, and in the trees, and others, no it into dead matter. It is the energy of life itself, what awakens in inanimate living.  She and you have been and there, the body itself protects itself, prohibiting the use of this energy. This exhausts the body and can kill him. Magee just know how to circumvent the protection of the body and separating themselves from the magical energy to convert it into some kind of action. The main task of any magician is the maximum their potential and learn to draw their energy as much as possible. But magicians can not scoop up more energy, than they contain. You in something lucky, you entered in the amount of energy, as none of the magician no. You only need to learn how to use it. As I have understood, Your orgasms are capable of handling the energy Rikudo in their own. But each new stage will be harder given. Maybe there is still some way to recycle some energy in your own Rikudo. but the main thing, your magical energy supply is almost exhausted, unlike other magicians. understand, you theoretically the most powerful magician in the world, as Rikudo was the strongest in the history of. Perhaps there is a technique of magic that can only work with the power Rikudo. Most likely in the scrolls are in the dungeon just had some spells.'
			 '(Do_You) - Igor! Igor took one of the scrolls!'
			 '(Karin) - Just do not think, I`ll be for you to solve your problems. If you want to look for their own Igor.'
			 '(Do_You) - I have no idea where he lives. May pay a visit to the trench.'
			 '(Karin) - Do you think the Order of Dawn retreated from such findings? Listen, I see you do not quite understand, what is the Order of Dawn. It`s not what you whipping boy. There all the magicians of the highest level. Neither I nor Juugo no good even hold a candle to any of them. Any of these razotret us Juugo without straining. They force, their combat experience and unique technology. Do not mess with these guys, they are pros in their field. Their main business of destroying other magicians and catching demons.'
			 '(Do_You) - What else for demons?'
			 '(Karin) - Demons demons, creatures come to us from other worlds. Possibly Rikudo was a demon, demons but unlike him, but blunt and aggressive. Something like beasts woven from pure magic.'
			 '(Do_You) - guys own. Listen, and you can turn me back into a man?'
			 '(Karin) - can. But I will not. You have no idea how much energy it took me, I squeezed myself to dry and Juugo. I barely had enough energy. Now I`m her physically not enough because of the mad energy consumption . And there`s more to consider that now your body begins prisposablivatsya magic and I have even harder. This will be possible, Only if you bleed the magical about not less 10level and pass me all his energy forever. I can make you the same again, but you`ll never be a magician, This path will be closed for you forever.'
			 '(Karin) - You still do not look so far into the future. Develop body, learn to fight, Mine magical power, coach mind. Gradually everything will rise on the places on which all should be.'
             act 'Go_Out':gt'down'
			 end
         
         end
         
     end
end




--- mainQW ---------------------------------

# tobiQW
if $ARGS[0]='start':
cla
*clr
set tobiQW = 1
set minut = minut + 60
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Toby) - Hello Mishan, how`s it going?'
'You just dumbfounded by surprise, in your bedroom is Toby and he obviously knows who you are.'

act 'How did you find me?':gt'tobiQW','1'
end

if $ARGS[0]='1':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - How did you find me?'
'(Toby) - Oh, not that it was difficult to. Our organization has always strongly underestimate. Even the owner Karin miscalculated.'
act 'The owner Karin?':gt'tobiQW','2'
end

if $ARGS[0]='2':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - The owner Karin?'
'(Toby) - Oh, holy simplicity. Of_Course, Karin saved you from the evil Toby and teach you magic. she horoshoya, Toby bad and the ugly. what naivety. Karin a pawn in someone else`s game.'
'(Toby) - sit_down, we have a long conversation, kill you I`m not going, if going, I would not sharpen fritters with you.'
'You sat on the bed. Toby began to tell.'
'(Toby) - When I took the amulet, I do not take you miscalculated, I did not know that the power passed to you. When I came back to the room, you were gone, and there was no trace of, who is clearly very well cleaned up all traces. This someone, not weaker than me. Remember this fact, Karin silenok not enough so Close to Me.'
'(Toby) - The next day I find out about your alleged death. And here the owner Karin made вЂ‹вЂ‹his biggest mistake.'
'(Do_You) - what? Everything seems to go smoothly.'
'(Toby) - Yes_I_Am, all passed smoothly, we waited for the funeral of the body and then it got. Perfect copy, masterful, Karin can not do it, but I did not even know about its existence.'
'(Toby) - But the owner Karin though many know about the Order of Dawn, but still not enough. He did not know, that Payne, has the ability to find the souls of the dead and bring them back to life. We returned to the body for life and turned, that this person has nothing to do with you. Someone just took a passerby on the street, Make him your appearance and killed him. Payne just has the ability to see everything in person, even the time of his birth, and the eyes of the man, Unfortunately this spell kills guinea. Payne saw all.'
'(Do_You) - nifiga Statement, What`s that for a Payne?'
'(Toby) - Payne, the true owner of everything, that is in the tomb. He is a true master of the force, that you. He avatar Rikudo, the living embodiment of the god, capable of destroying a city traffic, raise the dead, see through people, change his body as he pleases, have plenty of bodies at the same time, control the weather, gravity, live in several worlds, see the entire continent of his eye, like_this, that even the mouse does not slip from his sight, and God knows what he owns, it is incomprehensible even to me.'
'You shake your head . Guy this very Payne, has managed the same way for him to pass me.'
act 'So who is the owner of Karin and that he should?':gt'tobiQW','3'
end

if $ARGS[0]='3':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - So who is the owner of Karin and that he should?'
'(Toby) - This is the most interesting! But to continue the order. When Payne checked memory depicting the corpse you, he did not see the face magician, but I heard his voice, vile snake hiss, it could only be Orochimaru.'
'(Do_You) - Orochimaru? Never heard of such a.'
'(Toby) - not surprisingly. He was not looking, that would head off tear only dead mages and lazy. But his name does not even try to say out loud, and then suddenly courted him on his head, He is a real threat for strong magicians. We`ve had some good friends with him, he was in Breaking Dawn.'
'(Toby) - He is an exceptionally gifted magician, very wise, ancient and immortal sorcerer. Owns nearly all the possible techniques of Magic, many of his techniques beyond comprehension.'
'(Toby) - But Orochimaru paid dearly for immortality. There is no eternal life without eternal pay for it. His real body has long died, he lives in a foreign bodies. These donors bodies referred vessels, They receptacle of his soul. But the vessels do not live long, all three, four years, then the vessel rejects soul Orochimaru. And the power of Orochimaru is limited by the vessel.'
'(Toby) - so, after inspection body, it became clear, you out from under our nose led Orochimaru. We began to track it, Pain can differentiate amongst all, that is in the rain, it was he who sheds his so often. We tracked down this way Orochimaru, he once showed his snake `s face in the rain. But there was no sign of, he took power itself. We concluded, that you are still alive, technology will allow Orochimaru to crank the most unexpected focus.'
'(Do_You) - So how do you track me and what I need Orochimaru.'
'(Toby) - Oh stupid youth. Yes Orochimaru wants your body to make a vessel for your soul. He trained with the help of Karin and you developed, what would your body came into full force, do not forget, its level is tied to the strength of the vessel.'
'(Toby) - Karin wanted to spit on you, it develops your body, for, whatever her master Orochimaru could use it as a new vessel. Do you even know what fate has prepared you Karin? You just erase your place and take Orochimaru.'
'you think "Damn, I`m between a rock and a hard place Toby as Orochimaru, and what to do now?"'
'(Toby) - Swapping your floor Orochimaru made вЂ‹вЂ‹you useless for me and Payne, We do not need or do not need. frankly, spit us now on you. I continued to look for you, Only the desire to razobratsya situation. Orochimaru plans to understand this force.'
'(Toby) - Zetsu and had to use as a spy and that would force Payne to track all magicians, We found Karin, but we do not know, but we found Juugo, and only then we will know exactly what he is is. He Orochimaru experiment.'
'(Toby) - Then Payne saw you. How do you go to Karin and she teaches you, Payne saw as you leap through the levels magicity. Any magician decades to grow your current level. And how much do you have time for this needed? You techniques rehearsed for an hour, and magicians for years they are taught. It became clear, you imagine yourself. So I came to your house.'

act 'And you can not make me a man again?':gt'tobiQW','4'
end

if $ARGS[0]='4':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - And you can not make me a man again?'
'Toby shook his head.'
'(Toby) - Do not think, that magicians are all the same, that if one could then, else will be able to accurately. No, I have no idea how Orochimaru did, what he did to you. And it was he, instead of Karin. You did not surprise, she even treat you can not? She is too weak for such tricks with the body.'
'(Toby) - And now to the main. Yes_I_Am, you are not interested for us, we really can not take your power now. But this does not mean, we just give up such a powerful vessel Orochimaru.'
'(Toby) - I would have already tried to kill Orochimaru, or sent Payne do it, I think Payne easily have killed him in battle. The problem is, that `s fine .'
'(Toby) - We can not trite to him for podobratsya, that would kill him.'
act 'I doubt that I could do it':gt'tobiQW','5'
end


if $ARGS[0]='5':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - I doubt that I could do it'
'(Toby) - And I have no doubt. You can not do it. But we have this from you and do not require. We want to drive into the trap of Orochimaru.'
'(Toby) - You prodolzhish as if nothing had happened will learn Karin. We will prepare you parallel, that you could cope with Karin and Juugo. When the time comes, you go and kill Karin and Juugo. If it makes anyone any of the Dawn, Orochimaru will understand, and so he will try to capture your own. You need him as a vessel .'
'(Toby) - Here is what we will lay the ancient serpent, put an end to its history. Well Plan?'

act 'And if I refuse?':gt'tobiQW','6'
end

if $ARGS[0]='6':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - And if I refuse?'
'(Toby) - Then I`m sorry, nothing personal, but I`m going to kill you right now. Orochimaru did not want you to give me, I do not want you to give him.'

act 'If Orochimaru dies, I `ll always be a woman?':gt'tobiQW','7'
end

if $ARGS[0]='7':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - If Orochimaru dies, I `ll always be a woman?'
'(Toby) - In any case, forever you`ll be a woman. Orochimaru would never give up the temptation to take power into their own hands Rikudo and return you to your previous form will mean for him to give this power to me, what he does not go, even under pain of death.'

act 'What about Tsukuemi? it is true?':gt'tobiQW','8'
end

if $ARGS[0]='8':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - What about Tsukuemi? it is true?'
'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not rigid structure, rather we are like-minded. Payne and I take strategic decisions, others .'
'(Toby) - We are all united by one goal, Tsukuemi maintain in working order, For this. It is a hard and rewarding work. And we do it for the sake of humanity that would have existed.'
'(Toby) - Yes_I_Am, You heard right, we do it for the people. We remember those days, when people knew about magic, it was a time of constant war, humanity chokes blood. Magee went to war at the age of 6 - 10 year_old, survived at least until 16 units. All fought against all. Violence begets violence. me in 7 years during the fight broke up the right side of the face. I lost an eye and became compelled to hide it, what was left of my face behind the mask. I went out the mighty magician, which then killed. All the people I knew and loved, killed and I could not do anything about it. You just can not imagine a world in which almost all the magicians with the forces capable of destroying entire cities. Banal drunken brawl in a bar wrapped in a bloody mess with thousands of victims. People ran wild and destroy each other. Mankind fell on the edge of the abyss. Then I decided to put an end to this massacre not died.'
'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, We need the money, we have been in the order only very strong magicians, then I met Payne, he. We combined usliya, captured demons and I created Tsukuemi.'
'(Toby) - Tsukuemi causes people not to believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot all about magic.'
'(Toby) - Of course . Therefore. At Dawn has no friends, only enemies. We shouldered this burden and bear your cross for humanity as a whole.'

act 'You`re going to teach me?':gt'tobiQW','9'
end

if $ARGS[0]='9':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - What about Tsukuemi? it is true?'
'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not rigid structure, rather we are like-minded. Payne and I take strategic decisions, others .'
'(Toby) - We are all united by one goal, Tsukuemi maintain in working order, For this. It is a hard and rewarding work. And we do it for the sake of humanity that would have existed.'
'(Toby) - Yes_I_Am, You heard right, we do it for the people. We remember those days, when people knew about magic, it was a time of constant war, humanity chokes blood. Magee went to war at the age of 6 - 10 year_old, survived at least until 16 units. All fought against all. Violence begets violence. me in 7 years during the fight broke up the right side of the face. I lost an eye and became compelled to hide it, what was left of my face behind the mask. I threw a dying friend, but I did not die, I went out the mighty magician, which then killed. All the people I knew and loved, killed and I could not do anything about it. Then I decided to put an end to this massacre not died.'
'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, We need the money, we have been in the order only very strong magicians, then I met Payne, he. We combined usliya, captured demons and I created Tsukuemi.'
'(Toby) - Tsukuemi causes people not to believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot all about magic. I stripped the magic world of magic. People are not ready for this level of forces.'
'(Toby) - Of course . Therefore. At Dawn has no friends, only enemies, except we still have a whole bunch of magicians who managed to escape the influence of Tsukuemi, For example, they are at every opportunity we try to insert a stick in the wheel. But we shouldered this burden voluntarily and bear your cross for humanity as a whole, rather than a handful of magicians who want to assert themselves. Particularly zealous magicians, going to seize power we consume, those who try to intrude into the work Tsukuemi we also destroy. Others do not touch, until they are on the rampage. Well, with them we did not reconcilable war.'

act 'You`re going to teach me?':gt'tobiQW','10'
end


if $ARGS[0]='10':
cla
*clr
'<center><img src="picPRE/tobiPRE.jpg" ></center>'
'(Do_You) - You`re going to teach me?'
'(Toby) - With this there is something which problems. My techniques you can not learn. They are too high-level. Payne forces generally something otherworldly, Maybe you can so that he has to learn, but not now. I would like to, what would you teach Kakuzu. But he has a very nasty character. He will not teach you for free, even if I ask. He is the oldest of living on the planet, and the most greedy, I will ask him, that he would have taught you, but it zli, and he will kill you, Seriously. I`m not just saying, Kakuzu that the most harmful of all the old man living, he did not just kill their mates. I forgive him everything only from the fact, that he was the only one in the world has simultaneously by all schools of magic.'
'(Toby) - Here are harmful to this old man, I want you to send. Find it in the northern region. Here`s a piece of paper with his address. And I have to go.'
'After these words around the eye Toby creates a vortex in which it was involved in a matter of seconds.'

act 'Get out of bed':gt'bedr'

act 'try to sleep':gt'bed2','dosip'

end

















--- tobiQW ---------------------------------

# roomPRE
'<center><B><font color=maroon>apartment</font></B></center>'
'<center><img src="picPRE/room.jpg" ></center>'
clr
gs'statPRE'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


if pre = 0:
set pre = 1
'rang Service. Wife Luda only stolidly turned over. Habitual movement you have it turned off. Christ, how can you not want to work. Fair_Enough, enough rassusolivat.'
     act 'Go to the bathroom':
     cla
     *clr
     set minut = minut + 30
     clr
	 gs'statPRE'
     '<center><img src="picPRE/self.jpg" ></center>'
     'soft, that would not wake up daughter, you went to the bathroom and began to brush up.'
         act 'Leave the apartment':
         cla
         *clr
         set minut = minut + 5
         clr
	     gs'statPRE'
	     '<center><img src="picPRE/carPRE1.jpg" ></center>'
	     'In the parking lot near the house was your machine. You went to her and pressed the button on the remote control central locking opening and removing the alarm.'
	         act 'Go to work':
             cla
             *clr
             set minut = minut + 25
             clr
	         gs'statPRE'
	         '<center><img src="picPRE/carPRE.jpg" ></center>'
	         'You got behind the wheel, started the car and drove to work. On the road.'
	         	 act 'Park outside the office':
				 cla
				 *clr
				 set minut = minut + 60
				 clr
				 gs'statPRE'
				 '<center><img src="picPRE/officePRE.jpg" ></center>'
				 'You put the car into the parking lot near the office and went into building. Say hello to the security guard and went upstairs to his office.'
				 'To you came secretary and director brought to you by the travel documents. You looked at her in surprise. "I did go to business trip?" asked you. "probably yes. Vsyevolodovitch ears worth in the morning, a state of emergency is in the construction of the complex. More I do not know anything." said Oksana. You have prepared travel documents, now we have to sign the director.'
				 	 act 'By Director':
					 cla
					 *clr
					 set minut = minut + 20
					 clr
					 gs'statPRE'
					 '<center><img src="picPRE/man.jpg" ></center>'
					 'Upon entering the office of the Director, you said hello to him and feeds the paper to sign sat in a chair. Roman Gromov ran through the text and paper podmahnul wide authoritative stroke.'
					 '"Glavbukh probably already in place, convergence Get travel. I am yet to make a couple of calls, and then come back to me, discuss your trip." director said thoughtfully.'
					 	 act 'Go to the chief accountant for Travelers.':
						 cla
						 *clr
						 set minut = minut + 30
						 set money = money + 15000
						 clr
						 gs'statPRE'
						 '<center><img src="picPRE/glavbuh.jpg" ></center>'
						 'Marina was already in his office, you filed her application, She grumbled a bit, but to give you money. you took, signed the statements.'
						 	 act 'Go to the director.':
						     cla
						     *clr
						     set minut = minut + 15
						     clr
						     gs'statPRE'
						     '<center><img src="picPRE/man.jpg" ></center>'
						     'When you are logged to the director Roman Gromov gestured to a chair you, and he continued to talk on the phone.'
						     '"Yes_I_Am, i understand. Once all questions utryasem, so I immediately send you Michael, my deputy. tell workers, they output. Igor, put a guard at the pit and let no one go with no fuss, take care of, that no one would have got wind, know yourself, may prohibit the construction of, and this can not be allowed. Fair_Enough, Let`s make." Roman hung up.'
						     'He turned to you and said. "tonight, while working in the pit at our complex construction workers stumbled upon a premise that. Excavator struck the wall there. Igor was good near and realized stop the excavations. Damn, it is not clear what we did stumble. Can thrown bunker or something like that. But in any case there is any voids under the foundation pit, further construction of the complex may not be possible. So what you need as quickly as possible to go to the construction site. Deal, what`s what. Zanochuesh in the hotel. In_General, up to you, on the situation."'
						     	 act 'I gather you should at least.':
								 cla
								 *clr
								 set minut = minut + 5
								 clr
								 gs'statPRE'
								 '<center><img src="picPRE/man.jpg" ></center>'
								 '"I at least have to meet" had begun to pull you bagpipes, but you broke Director. "Michael, what are you, do not catch up? We earn credits to the ears on the construction site, we have not even agreed on a construction project is not, and we already dig pit. you must understand, nay, that if under the excavation voids, we can not continue to build and will be on the brink of ruin, so we can still any important object destroyed, then still under court zagremit. Situation must be addressed urgently. This force majeure. I have to be here, that would be the case that make it in time to grease someone should, so you go."'
								  act 'Fair_Enough, then I will not waste time.':gt'roadPRE'
								 end 
							  
						     end 
							
						 end 
						
					 end  
					
				 end   
	         end
	     
	     end
     end
end


--- roomPRE ---------------------------------

# roadPRE
'<center><img src="picPRE/carPRE.jpg" ></center>'
set minut = minut + 5
clr
gs'statPRE'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Once in the car as soon as you dial the phone your wife Luda. Explained to her the situation and ending the conversation went to the construction of the complex.'

act 'go.':
cla
*clr
set minut = minut + 500
clr
gs'statPRE'
'<center><img src="picPRE/kotPRE.jpg" ></center>'
'You went on the road for a long time and tired, but before a rest in the hotel, to visit the pit. Therefore. Igor phoned and he told you to run protection construction.'
'Put the car you saw, that you are Igor.'
     act 'Say hello to Igor.':
     cla
     *clr
     set minut = minut + 15
	 clr
	 gs'statPRE'
	 '<center><img src="picPRE/igor.jpg" ></center>'
	 'You are greeted with Igor. He was clearly concerned about the situation and therefore without much delay led you to the enclosure in the pit, near which sadly trampled guard.'
	 '"I have prepared a staircase, that would go down into the breach. The air there, I already checked threw a burning piece of paper. It`s not like a bunker or a natural cave, it is rather what that ancient catacombs." Igor said as long as you waded through the mud to the failure.'
	 'You come to a hole in the ground and looked back. Floor- five meters, think you. "Michael vidish, certainly seems the natural cave, but it is not, too pravilnae form. what, go_down?" asked Igor.'
	     act 'Run_Down.':
		 cla
		 *clr
		 set minut = minut + 15
		 clr
		 gs'statPRE'
		 '<center><img src="picPRE/dunPRE.jpg" ></center>'
		 'You have a powerful flashlight while Igor with the guard lowered a staircase in failure. After that. Behind him, you went down the stairs to the cave aluminum.'
		 'The cave musty and gloomy, but you can breathe and lantern illuminates the wall is not bad. You sent a beam in the hallway and saw in the distance something like a door.'
		 '"Damn. Now." muttered Igor.'
		 'You came to the door and saw her what that drawings, like hieroglyphics.'
		 	 act 'answer the door.':
			 cla
			 *clr
			 set minut = minut + 15
			 clr
			 gs'statPRE'
			 '<center><img src="picPRE/dunPRE1.jpg" ></center>'
			 'Leaning against the door you were able to open. "your mother. Mish, you look here. The same human bones." nervously said Igor.'
			 'Looking around the pile in which poked a finger Igor see for yourself, it`s really a bunch of bones and skulls on top. "tomb, whether that." Igor muttered looking at the bones.'
			 	 act 'move on.':
				 cla
				 *clr
				 set minut = minut + 15
				 clr
				 gs'statPRE'
				 '<center><img src="picPRE/dunPRE2.jpg" ></center>'
				 'Going further . In the gallery walls were stone recesses in which lay dusty scrolls of something similar to pergamet.'
				 'Igor took one of the rolls and spread it. "The hell it is not clear, some sort of cuneiform. I will take with me ka, find something special on some ancient languages, let decrypt" said Igor'
				 'Have you noticed a door in the wall and opened it.'
                 	 act 'Enter the room.':
					 cla
					 *clr
					 set minut = minut + 15
					 clr
					 gs'statPRE'
					 '<center><img src="picPRE/dunPRE3.jpg" ></center>'
					 'The room on the stone dais in the center stood a variety of vessels. You have come to see them trying to figure, on what is you met.'
					 'Looking at the room you notice a strange little statue standing at the top of the stone elevation with vessels.'
					     act 'take sculpture.':
						 cla
						 *clr
						 set energy = 21
						 set water = 21
						 set son = 21
						 set minut = minut + 15
						 set magik = 1
						 set manna = (intel*magik) + vital*5 
						 clr
						 gs'statPRE'
						 '<center><img src="picPRE/amuletPRE.jpg" ></center>'
						 'You picked up a strange sculpture and began to look at it. This is clearly something very ancient. Holding the amulet, you get the idea, he warm, hot and almost instinctively felt like some sort of strange force comes into you.'
						 'You feel a surge of strength. As if it was not a long journey. You even have to drink more and did not want to.'
						 'Igor came into the room holding a roll of parchment. "Hmm. interesting little room. What exactly is not clear . And most importantly, what we do with this finding. Whether to destroy and build complex, whether to disclose."'
						 	 act 'You`ve got to think and consult with the chief.':
							 cla
							 *clr
							 set minut = minut + 15
							 clr
							 gs'statPRE'
							 '<center><img src="picPRE/dunPRE3.jpg" ></center>'
							 '"You`ve got to think and consult with the chief." Say you`re poking a strange amulet in his pocket.'
							 '"Well, Let`s get out of this vault." said grimly Igor.'
							 	 act 'Come to the surface.':
								 cla
								 *clr
								 set minut = minut + 15
								 clr
								 gs'statPRE'
								 '<center><img src="picPRE/kotPRE.jpg" ></center>'
								 'You together with Igor reached stairs and get to the surface. Igor noticed "It`s late, You go to the hotel. From there sozvonishsya with Vsevolodovich."'
								 act 'Go to the hotel.':gt'otelPRE'
								 end
							 end
						 end
					 
					 end
				 end
			 end
		 end
	 end
end
--- roadPRE ---------------------------------

# otelPRE
'<center><img src="picPRE/otelPRE.jpg" ></center>'
set minut = minut + 30
clr
gs'statPRE'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set money = money - 3000
'You uneventful found sparkling lights Hotels and put the car went to the bar, to get a room.'
'Available rooms in the hotel were only two people, you paid Room, What would you inadvertently nobody have settled.'

act 'Rise in the number.':
cla
*clr
set minut = minut + 5
clr
gs'statPRE'
'<center><img src="picPRE/otelPRE1.jpg" ></center>'
'You lay on the bed. And they reflect, occurring over. And what a mysterious amulet you find there. After him.'
	 act 'call Director.':
	 cla
	 *clr
	 set minut = minut + 30
	 clr
	 gs'statPRE'
	 '<center><img src="picPRE/otelPRE1.jpg" ></center>'
	 'You have dialed the number of Roman Vsevolodovicha and after a few rings he responded. you told, that the excavation under some sort of ancient tomb, bone, what - that vessels, scrolls. Director pokumekat little while and decided to stop construction. He instructed you to stay until, watch and wait for further instructions.'
	 	 act 'go to bed.':
		 cla
		 *clr
		 set minut = minut + 600
		 clr
		 gs'statPRE'
		 '<center><img src="picPRE/otelPRE1.jpg" ></center>'
		 'You lay down on the bed and fell asleep. In the dream, than inconceivable. You vidili moon his bloody eye looks at the world and the people see the world not as what it is. Suddenly in his sleep, you feel, that someone in the room that is.'
		 	 act 'open your eyes.':
			 cla
			 *clr
			 set minut = minut + 5
			 clr
			 gs'statPRE'
			 '<center><img src="picPRE/tobiPRE.jpg" ></center>'
			 'Opening his eyes . A man in a long black cloak with an orange mask on the face in which there was only one hole for the eye. A man came up to you and asked "where the statue?"'
			 	 act 'who are you?':
				 cla
				 *clr
				 set minut = minut + 5
				 clr
				 gs'statPRE'
				 '<center><img src="picPRE/tobiPRE.jpg" ></center>'
				 '"who are you?" asked you wondering. "Listen, muzhik, do not look for yourself problems out of the blue, Give the statue and close construction. This place belongs to us." said unknown confident voice.'
				 'you are thinking, who is that, and what it all means. "I see without a little show of force ." the man said , as if the stranger saw you through and felt a strong desire to give him a statue.'
				 	 act 'Give him a statue':
					 cla
					 *clr
					 set minut = minut + 5
					 clr
					 gs'statPRE'
					 '<center><img src="picPRE/otelPRE1.jpg" ></center>'
					 'You got out of bed and gave him a statue. The man picked it up, and then turned it around his eyes as if formed vortex draws him into his same eye, as a funnel. A few seconds and the man disappeared. You rubbed their eyes, "what the hell is going on here. me, dreamed it. Yes No, I do not like a lunatic, that would walk around the room in a dream, and the statue disappeared." speculated you.'
					 'At this point. You came to the door and asked who was there. A woman`s voice from behind the door you said that she and the hotel manager wants to talk to you on an urgent matter.'
					 	 act 'answer the door':
						 cla
						 *clr
						 set minut = minut + 5
						 clr
						 gs'statPRE'
						 '<center><img src="picPRE/karinPRE.jpg" ></center>'
						 'You opened the door and entered the room confident step is not a big girl with red hair and glasses. She walked into the room quickly examined the situation and finally fixed his eyes on you.'
						 '"Michael? Am I correct to assume?", you nodded. "Last night you found a place and took out something very valuable and powerful." said the girl stroking your eyes.'
						 	 act 'Listen, there has already come teammates on the matter.':
							 cla
							 *clr
							 set minut = minut + 5
							 clr
							 gs'statPRE'
							 '<center><img src="picPRE/karinPRE.jpg" ></center>'
							 'You embraced slight irritation, these idiots that can not even agree among themselves who come and take the statue? So you blurted out the girl "Listen, You have already started to bother me. That one comes with that damn statue, else, administrator, how."'
							 'The girl looked at you with surprise. how? I already came up to someone? Who was it?'
							 	 act 'Share':
								 cla
								 *clr
								 set minut = minut + 5
								 clr
								 gs'statPRE'
								 '<center><img src="picPRE/karinPRE.jpg" ></center>'
								 '"What a man in a black cloak with red clouds and orange mask with one hole for the eye. He already took the statue." answer You.'
								 'The girl`s face lengthened. "Curse. ahead. Okay Michael, we will continue the conversation in a different place. Juugo, vyazhi it." said the girl at the door.'
								 'Entered the room a tall man.'
								 	 act 'Prepare to fight':
									 cla
									 *clr
									 set minut = minut + 5
									 clr
									 gs'statPRE'
									 '<center><img src="picPRE/jugoPRE.jpg" ></center>'
									 'The man across the right side of the face was visible tattoo. Red hair stood on end.'
									 set $nameV = 'Juugo'
									 !stats
									 set strenV = 600
									 set speedV = 60
									 set agilV = 60
									 set reactV = 50
									 set vitalV = 200
									 set intelV = 50
									 set willV = 50
									 !skills
									 set magikV = 100
									 set boxingV = 100
									 set shootV = 100
									 !parameters
									 set healthV = vitalV*10 + strenV*5
									 set mannaV = intelV*10 + magikV*10
									 set willpowerV = willV*10
									 set BonusAtakV = 0
									 set BonusDefV = 0
									 !Programme of Action
									 set program = 0
									 set jugoFight = 1
									 act 'fight':gt'fight','start'
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end

end
--- otelPRE ---------------------------------

# karinPRE
'<center><img src="picPRE/karinPRE.jpg" ></center>'
set minut = minut + 120
clr
gs'statPRE'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You woke up in what is not a familiar place, You stood near that same red-haired girl. "And woke up. I told this blockhead Juugo, what would he treat you more careful. But does he listen. As a result, he almost did not kill you."'
'"But there are pluses, while you lay unconscious, I researched a bit you. The strength of the amulet passed to you. As you pull it out have no idea. This way the bad news, for you. Toby, Well. He probably already realized, amulet that worked and gave his power and now he `s looking for you."'
set nudity=0
act 'What`s going on?':
cla
*clr
set minut = minut + 5
clr
gs'statPRE'
'<center><img src="picPRE/karinPRE.jpg" ></center>'
'"What is there to do the hell is going on?" You interrupted the girl and tried to move his hand, but you were tied to the bed.'
'"Emm, fair_enough, start order." said the girl. "Magic exists and is real. Before the world was not so, Circle were sorcerers and this could not be a surprise to anyone. Once everything has changed. The Order of Dawn, whose head and see you in person. The man in the mask named Toby. So this order took a few demons and use their power zakolodoval moon. Now the whole world is living in illusions moon and sends Toby directly. Someone may rebel by illusion, but it is powerful mages, but most of the world has simply forgotten about magic and went to live in a fantasy world, they believe the only reality."'
'"Recently, which even caused the malfunction Tsukuemi. Tsukuemi so called illusion spell cast upon the moon. As you can guess magicians felt this surge. He walked out of the cave you found. Apparently there was a surge in the time of activation of the amulet. Now this amulet started hunting. Magicians of all stripes looking for a mad thing capable forces disrupt Tsukuemi.
How do you know, Toby wants to protect his order from destruction Tsukuemi. And perhaps due to the force of the amulet to strengthen its. Tsukuemi weakens over time."'
	 act 'The whole world is an illusion sent down this Toby?':
	 cla
	 *clr
	 set minut = minut + 5
	 clr
	 gs'statPRE'
	 '<center><img src="picPRE/karinPRE.jpg" ></center>'
	 '"The whole world is an illusion sent down this Toby?" asked you. She nodded. "Yes_I_Am. But only an illusion specific. Around all quite material. Only having magical nature escapes the attention of the person. machine, apartment, TV and Internet, all it does exist and is indeed in the form in which it sees people. But if I say, hurl a fireball, then people will see how I threw a grenade or shot from the flamethrower. Once the human mind encounters a miracle, Tsukuemi triggered and begins to affect the mind, forbidding him to take a miracle as it is a miracle, hence all sorts of little green men, UFO, poltergeists, samovozgaraniya, understanding of the impact Tsukuemi forced to seek outlets in the form of any of delirium at the sight of a miracle, if the mind can not cope with the influence Tsukuemi, A man can go crazy and then no one would believe him."'
	 	 act 'And who are you?':
		 cla
		 *clr
		 set minut = minut + 5
		 clr
		 gs'statPRE'
		 '<center><img src="picPRE/karinPRE.jpg" ></center>'
		 '"And who are you?" asked you. She smiled. "I? I Karin. magician, but certainly not a magician as Toby. I will specialize in the treatment of, mutation, modified organisms. I have little martial techniques, that_is_why, that would certainly grab you . he mutant, its mutation caused by the magical nature. He has terrible physical strength which is very hard to resist. It can bear fists score. But this power, combined with the influence of Tsukuemi driving him crazy. We cooperate with them, I keep it in a state of sanity, and he carries out my orders."'
		 	 act 'Why do you need me?':
			 cla
			 *clr
			 set minut = minut + 5
			 clr
			 gs'statPRE'
			 '<center><img src="picPRE/karinPRE.jpg" ></center>'
			 '"Why do you need me?" asked you. The girl replied. "Hmm, mine obviously. When I grab you, I was hoping to get this effect. But now the situation has changed. Amulet vobschem became useless. Force moved in you. But it`s bad news for you. If you think, that once you have the power of the amulet, so you can do anything. With two guys. Naked force without the ability to nothing. And Toby easily beat your will and forced to obey, Juugo and beat you like a puppy. Not so simple with this force. You yourself become an amulet, power is in you is contained but to use it you can not do."'
			 	 act 'And what kind of amulet? Where did he come?':
				 cla
				 *clr
				 set minut = minut + 5
				 clr
				 gs'statPRE'
				 '<center><img src="picPRE/karinPRE.jpg" ></center>'
				 '"And what kind of amulet? Where did he come?" asked you. Karin thought. "Most likely it`s some kind of trick Rikudo, ancient magician stunning force. I`m not sure. Similarly, that the amulet was created in a special way, he could give his power only to the one in whom there is no magic. And he could give effect only to the man. Most likely it was some kind of amulet Rikudo for emergency restoration force at the time when she had finished. 
                 know, you`re already a corpse. In your footsteps is Toby and his gang of bastards and morons. When he finds you, he will turn you inside out, but the effect would get out of you. Apply your power in the form in which it is it`s the same as a call Toby and tell where you nahodishsya. Tsukuemi on you can no longer act, so you probably saw Toby moves. time, and it is where he should, convenient and fast."'
				 'Karin thought. "know. I do not want to give you Toby. And I think I know how to bring down the trail this bloodhound. Rikudo force works only if it is in a man`s body. You`re a man . I should destroy the huge efforts and dispel the traces of this force, to hide our place position."'
				 	 act 'uh, i did not understand, what do you suggest?':
					 cla
					 *clr
					 set minut = minut + 5
					 clr
					 gs'statPRE'
					 '<center><img src="picPRE/karinPRE.jpg" ></center>'
					 '"uh, i did not understand, what do you suggest?" asked you. Karin giggled. "I will make of thee sweet, young girl and Toby never find you. No, Well there is another way, I`m just going to stop your heart and your power will dissolve in nature, and thou shalt die. Toby give you I`m not going. And admit I do not want to kill you. May eventually udast`sya something sensible to do with your strength."'
					 	 act 'hey, I do not want to be a woman, besides, wife, daughter.':
						 cla
						 *clr
						 set minut = minut + 5
						 clr
						 gs'statPRE'
						 '<center><img src="picPRE/karinPRE.jpg" ></center>'
						 '"hey, I do not want to be a woman, besides, wife, daughter" afraid you. Karin smiled sadly. "Here the choice is easy, or you will die, or you will live without the term. Never understood men, that they are shaking their rattles around. For my family do not worry. I `ll make all. You `ll be dead for all, tragedy, but what to do, but Toby unhook. I will erase your memory of the family, will only ghostly memories, you can not even remember where you live.Completely erase my memory is not released, you prevratishsya in useless vegetables."'
						 	 act 'There must be another way out!':
							 cla
							 *clr
							 set minut = minut + 5
							 clr
							 gs'statPRE'
							 '<center><img src="picPRE/karinPRE.jpg" ></center>'
							 '"There must be another way out!" you panicked. Karin has become a serious. "Do not argue. But this is the only way available to me. now go to sleep." said Karin putting your hand on chest.'
							 
							 act 'sleep':gt'sleepPRE'
							 end
						 
						 end
					 end
				 end
			 
			 end
		 end
     end
end
--- karinPRE ---------------------------------

# sleepPRE
'<center><img src="picPRE/karinPRE.jpg" ></center>'
set minut = minut + 120
set day = day + 1
set week = week + 1

!clr
!gs'stat'
killobj

fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set $name = 'Svetlana'
set $surname = 'Lebedev'
set age = 18
set vidage = 16
set year = 2010
!set month = 6
!set week = 5
!set hour = 8
!body
set rost = 170
set fat = 60
set salo=60
set dick = 0
set energy = 15
set water = 15
set son = 16
!stats
set stren = 10
set strenbuf=10
set speed = 10
set agil = 10
set agilbuf=10
set vital = 10
set vitalbuf=10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
!etogame
set nastjaqw = 0
!etogame

set vidageday = 300
set housrA = 1
set sarafan[1] = 1
set nude = 0
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair = 3
set mop = 1
set housr = 1
set tanga = 1
clr
gs'stat'
set numdres=1
set odetjeans=1
set numdress=1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70

set cltarelka = 1
set fairy = 10
set eda = 5
set clrbelo = 2
set poroshok = 5
set shampoo=5
set nude = 0
set $nude = 'In the corridor'
clr
gs'stat'

'"You`re already awake? rather awake." Karin said looking into your eyes.'

act 'Look at yourself':
cla
*clr
set minut = minut + 5
clr
gs'stat'
'<center><img src="picPRE/povPRE.jpg" ></center>'
'"your mother" you said and shut the mouth. Voice . Karin giggled. "The first time I changed the gender of the person. Therefore waited with curiosity as you`d react to his new body. masterpiece. Of course in some ways I miscalculated, for example. Failed to change the eyes and lips, but your body will be much easier to change, than the body of an ordinary woman, you will be easier to gain weight, lose weight, can change facial features. It`S_Nothing, Now you live in the women`s skin. Yes_I_Am, you are quite normal woman, you can fly."'
'You angrily looked at Karin "you think, I am here and so became a woman and immediately ran to find eldu on which you can jump? I`m still the same old guy tridtsatipyati."'
'"Well yes. Do not argue." agreed Karin. "In general, what to do. Yes_I_Am, I`ve already taken care of alibi. Today you`re in his car fell into a pit and killed, now just on TV." With these words Karin pressed the button on the remote and the TV has earned.'
	 act 'watching TV':
	 cla
	 *clr
	 set minut = minut + 5
	 clr
	 gs'stat'
	 '<center><img src="picPRE/car2.jpg" ></center>'
	 'On the TV is reporting that as a businessman who arrived on a business trip, yesterday afternoon. Businessman died in hospital without regaining consciousness.'
	 'You dumbfounded looked at Karin. She smiled enigmatically "Well. Now even Toby trace lost forever. Those who died in the BMW, at the time of death was a perfect copy of your, from energy and to seal in the teeth. Yes_I_Am, here`s documents, at the apartment, passport, certificate. Now you Svetlana Lebedeva, girl 18 year_old, in nobody knows you, but you at least have an apartment in the property. This is a gift for you from Juugo. now get up, time for you to go to their new home and to equip their new life."'
	 'Entered the room Juugo redhead with a tattoo on his face. He looked at you and said, "I`ll take you."'
	 	 act 'Go with Juugo':
		 cla
		 *clr
		 set minut = minut + 5
		 clr
		 gs'stat'
		 '<center><img src="picPRE/jugoPRE.jpg" ></center>'
		 'Juugo silently accompany you to the garage and there you sat in a huge black jeep. Juugo got behind the wheel and sped around the track. You silently wondering what do you do now.'
		 'Juugo not looking at you said. "Sorry, I beat you so much. I can not control myself during a fight. You were a little grow larger and for a moment it seemed to me, that you can be dangerous to me, so I hit with full force." You looked at him. "Fair_Enough, passed, listen Juugo, I do now?" Juugo nodded and said "Well, all kinds of washing powder, detergents, dishes and linens. The apartment is something that is certainly, but little. There`s even no TV. Then get a job. Not podaleku from your house there is a restaurant, it works with 12, every day, except Monday. Go up to the owner, he vozmet you a job, it just requires a waitress. Do not forget to monitor the health status, mood and mind. Now your mind is very weak, you can not stand and go crazy. You need to eat well, regular sleep, have_a_good_time, in general, and then ended his days in a madhouse. We do not seek to Karin, Firstly you will not find, and secondly, we ourselves will find you."'
		 'You came to the five-story building house the Khrushchev. Juugo stopped the car and pointed to the entrance. "Your apartment number 69, are the keys. Go. important thing to remember, you it`s not habitually, but not to give up, monitor the health status and life will improve. As ever ."'
		     act 'Out of the car':
		     cla
		     set opPRE = 0
		     set daystart = 0
		     addobj 'character'
             addobj 'see'
             addobj 'Others'
		     gt'street'
		     end
		 end
     end
end



--- sleepPRE ---------------------------------

# fight
if $ARGS[0]='start':
cla
inFight=1
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

gs'defence'

gs'statBat'


if SasoriBody > 2 and healthV <= 0 or SasoriBody > 2 and mannaV <= 0 or SasoriBody > 2 and willpowerV <= 0:
set SasoriBody = SasoriBody - 1
gs'priziv','sasori'
'<B><font color=red>Doll scattered the parts and immediately entered into battle other doll Sasori.</font></B>'
'<B><font color=red>You`ve heard the sonorous voice Sasori "I have a lot of dolls, you can not win."</font></B>'
end
if SasoriBody = 2 and healthV <= 0 or SasoriBody = 2 and mannaV <= 0 or SasoriBody = 2 and willpowerV <= 0:
set SasoriBody = SasoriBody - 1
gs'priziv','sasori1'
'<B><font color=red>Last Doll crumbled into pieces and joined in the battle itself Sasori.</font></B>'
end
if stunV > 0 and SasoriBody > 1:
set stunV = 0
'<B><font color=red>Doll began to move again.</font></B>'
end
if stunV > 0 and SasoriBody = 1:
set stunV = 0
'<B><font color=red>Sasori is moving again.</font></B>'
end

if GedoMazo = 1 and healthV <= 0 or GedoMazo = 1 and mannaV <= 0 or GedoMazo = 1 and willpowerV <= 0:
set GedoMazo = 2
set barierV = 0
'<B><font color=green><<$nameV>> fell to the ground turning into ashes</font></B>'
gs'priziv','tobi'
'<B><font color=green><<$nameV>> attacked you</font></B>'
end 

if health <= 0 and heart = 0 and izanagi = 0:
'<B><font color=red>you lost</font></B>'
xgt'ender','loss'
exit
end 

if healthV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color=green><<$nameV>> lost</font></B>'
xgt'ender','win'
exit
end 
if manna <= 0 and heart = 0 and izanagi = 0:
'<B><font color=red>you lost</font></B>'
xgt'ender','loss'
exit
end 
if mannaV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color=green><<$nameV>> lost</font></B>'
xgt'ender','win'
exit
end 
if willpower <= 0 and heart = 0 and izanagi = 0:
'<B><font color=red>you lost</font></B>'
xgt'ender','loss'
exit
end 
if willpowerV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color=green><<$nameV>> lost</font></B>'
xgt'ender','win'
exit
end
if izanagiV > 0 and healthV <= 0 or izanagiV > 0 and mannaV <= 0 or izanagiV > 0 and willpowerV <= 0:
set izanagiV = izanagiV - 1
'<B><font color=red><<$nameV>> simply disappeared</font></B>'
set healthV = vitalV*10 + strenV*5
set mannaV = intelV*magikV + magikV*100 + vitalV*10
set willpowerV = willV*10
set stunV = 0
     if program = 6 and izanagiOnce = 0:set izanagiOnce = 1&set unmaterialV = 40&set tobizanagi = 0
'<B><font color=red><<$nameV>> appeared in front of you is completely healthy. He folded his arms and magic sign said Izanagi - perfect illusion.</font></B>'
'<B><font color=red>One of his eyes closed forever, paying for this spell.</font></B>'
end
if heartV > 0 and healthV <= 0 or heartV > 0 and mannaV <= 0 or heartV > 0 and willpowerV <= 0:
set heartV = heartV - 1
'<B><font color=red><<$nameV>> staggered and his heart burst</font></B>'
set healthV = vitalV*10 + strenV*5
set mannaV = intelV*magikV + magikV*100 + vitalV*10
set willpowerV = willV*10
set stunV = 0
'<B><font color=red><<$nameV>> stood up and rushed into the fray. He has run another heart.</font></B>'
end
if izanagi > 0 and health <= 0 or izanagi > 0 and manna <= 0 or izanagi > 0 and willpower <= 0:
set izanagi = izanagi - 1
'<B><font color=green>you disappeared</font></B>'
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
set stun = 0
set zerkaloV = 0
set poisonV = 0
set bloodV = 0
'<B><font color=green>And then he appeared before the enemy completely healthy.</font></B>'
end
if heart > 0 and health <= 0 or heart > 0 and manna <= 0 or heart > 0 and willpower <= 0:
set heart = heart - 1
set zerkaloV = 0
set poisonV = 0
set bloodV = 0
'<B><font color=green>Your heart has not sustained and burst.</font></B>'
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
set stun = 0
'<B><font color=green>You are not dead, you start another heart.</font></B>'
end

gs'before'
'<B>==========================================================</B>'
'<B>========================(ROUND <<round>>)===========================</B>'
'<B>==========================================================</B>'
'<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, manna <B><font color=blue><<mannaV>></font></B>, willpower <B><font color=green><<willpowerV>></font></B>'
if defenceV > 0:'<B><font color=red>protection <<defenceV>> units</font></B>'
if defenceMV > 0:'<B><font color=red>protection of manna <<defenceMV>> units</font></B>'
if defenceWV > 0:'<B><font color=red>protection will <<defenceWV>> units</font></B>'
'Your life <B><font color=red><<health>></font></B>, manna <B><font color=blue><<manna>></font></B>, willpower <B><font color=green><<willpower>></font></B>'
if defence > 0:'<B><font color=green>protection <<defence>> units</font></B>'
if defenceM > 0:'<B><font color=green>Protection from impacts on the manna <<defenceM>> units</font></B>'
if defenceW > 0:'<B><font color=green>Protection from the will <<defenceW>> units</font></B>'
if defenceAct > 0:'<B><font color=green><<defenceAct>> moves regeneration protection</font></B>'
if defenceActM > 0:'<B><font color=green><<defenceActM>> stroke recovery protection from the effects of manna</font></B>'
if unmaterial > 0:'<B><font color=green>left <<unmaterial>> moves are not material.</font></B>'
'<B>==========================================================</B>'
gs'init'

     if hod = 0:
     !player attacks
     '<font color=green>You can attack</font>'
     if gun>0:
         !Boomstick
		 if bulletIn>0:
		 '<<bulletIn>> charged bullets in the gun'
			 act 'Pistol shot':
			 cla
			 bulletIn-=1
			 gunpower=150
			 buu=1
			 gunpricel=1
			 Gcrime+=1
			 gt'strelba'
			 end
			 
         end
         if bulletIn<=0:
         
             if bullet=0:
             'Ammunition for the gun ran out.'
             end
             if bullet>0:
             '<<bullet>> ammunition for pistols'
                 act 'charge':
                 cla
                     if bullet<7:
                     bulletIn=bullet
                     bullet=0
                     'You loaded all the remaining rounds in the gun.'
                     end
                     if bullet>=7:
                     bullet-=7
                     bulletIn=7
                     'you loaded 7NIL rounds in the gun.'
                     end
                     act 'further': gt'fight','sta'
			     end
             end
         end
         
     end
     if Mgun>0:
              !Boomstick
		 if mbulletIn>0:
		 '<<mbulletIn>> Charged cartridges in the machine'
			 act 'From single machine':
			 cla
			 mbulletIn-=1
			 buu=1
			 gunpower=300
			 gunpricel=2
			 Gcrime+=1
			 gt'strelba'
			 end
			 
			 if mbulletIn>=3:
				 act 'A short burst of machine':
				 cla
				 mbulletIn-=3
				 buu=3
				 gunpower=300
				 gunpricel=1
				 Gcrime+=buu
				 gt'strelba'
				 end
			 end
			 
			 if mbulletIn>=3:
				 act 'Long line of machine':
				 cla
				 buu=mbulletIn
				 mbulletIn=0
				 gunpower=300
				 gunpricel=0
				 Gcrime+=buu
				 gt'strelba'
				 end
			 end
         end
         if mbulletIn<=0:
         
             if mbullet=0:
             'Cartridges for machine run out.'
             end
             if mbullet>0:
             '<<mbullet>> ammunition for the machine'
                 act 'charge':
                 cla
                     if mbullet<7:
                     mbulletIn=mbullet
                     mbullet=0
                     'You loaded all the remaining cartridges in the machine.'
                     end
                     if mbullet>=30:
                     mbullet-=30
                     mbulletIn=30
                     'you loaded 30 cartridges in the machine.'
                     end
                     act 'further': gt'fight','sta'
			     end
             end
         end
     end
     if tragun>0:
         !travmatik
         if tbulletIn>0:
		 'travmatik charged'
			 act 'Pistol shot':
			 cla
			 tbulletIn-=1
			 gunpower=50
			 buu=1
			 gunpricel=0
			 gt'strelba'
			 end
			 
         end
         if tbulletIn<=0:
         
             if tbullet=0:
             'Cartridges for travmatika ended.'
             end
             if tbullet>0:
             '<<tbullet>> cartridges for travmatika'
                 act 'charge':
                 cla
                     if tbullet>=1:
                     tbullet-=1
                     tbulletIn=1
                     'You loaded a cartridge in travmatik.'
                     end
                     act 'further': gt'fight','sta'
			     end
             end
         end
     end
     act 'physical Attack':xgt'boxing'
         if magik > 0:
         act 'magical Attack':gt'magik'
         end
         
     end
     if hod = 1:
     !enemy attacks
     '<font color=red><<$nameV>> attacks</font>'
     act 'further':xgt'enemy','start'
     end
end


if $ARGS[0]='sta':
cla
set damTip = 0
set damTipM = 0
set damTipV = 0
set damTipMV = 0
set magweapbonus = 0
set magweapbonusV = 0
set bonusSh = 0
set bonusShV = 0
set eleSh = 0
set eleShV = 0
set poisonAV = 0
set hidanAtk = 0
'<B>==========================================================</B>'
'<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, manna <B><font color=blue><<mannaV>></font></B>, willpower <B><font color=green><<willpowerV>></font></B>'
if defenceV > 0:'<B><font color=red>protection <<defenceV>> units</font></B>'
if defenceMV > 0:'<B><font color=red>protection of manna <<defenceMV>> units</font></B>'
if defenceWV > 0:'<B><font color=red>protection will <<defenceWV>> units</font></B>'
'Your life <B><font color=red><<health>></font></B>, manna <B><font color=blue><<manna>></font></B>, willpower <B><font color=green><<willpower>></font></B>'
if defence > 0:'<B><font color=green>protection <<defence>> units</font></B>'
if defenceM > 0:'<B><font color=green>Protection from impacts on the manna <<defenceM>> units</font></B>'
if defenceW > 0:'<B><font color=green>Protection from the will <<defenceW>> units</font></B>'
if defenceAct > 0:'<B><font color=green><<defenceAct>> moves regeneration protection</font></B>'
if defenceActM > 0:'<B><font color=green><<defenceActM>> stroke recovery protection from the effects of manna</font></B>'
'<B>==========================================================</B>'
act 'further':gt'fight','start'
end



--- fight ---------------------------------

# strelba
!gunpricel=0 no sighting
!gunpricel=1 sighting
!gunpricel=2 very accurate

!gunpower Weapon damage
!buu the number of shots
!shoot shooting skills
:markstrelba
!Reita hit
buurand=rand(0,100)
if buu=0:xgt'fight','sta'
     if shoot=0:
         if gunpricel=0:
             if buurand=100:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<100:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=95:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<95:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=90:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<90:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>0 and shoot<20:
         if gunpricel=0:
             if buurand>=95:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<95:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=90:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<90:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=85:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<85:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=20 and shoot<40:
         if gunpricel=0:
             if buurand>=90:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<90:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=85:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<85:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=80:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<80:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=40 and shoot<60:
         if gunpricel=0:
             if buurand>=85:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<85:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=80:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<80:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=75:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<75:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=60 and shoot<80:
         if gunpricel=0:
             if buurand>=80:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<80:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=75:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<75:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=70:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<70:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=80 and shoot<100:
         if gunpricel=0:
             if buurand>=75:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<75:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
              if buurand>=70:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<70:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=65:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<65:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=100 and shoot<150:
         if gunpricel=0:
             if buurand>=70:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<70:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=65:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<65:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=60:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<60:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=150 and shoot<200:
         if gunpricel=0:
             if buurand>=65:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<65:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=60:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<60:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=55:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<55:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=200 and shoot<300:
         if gunpricel=0:
             if buurand>=60:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<60:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=55:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<55:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=45:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<45:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=300 and shoot<400:
         if gunpricel=0:
             if buurand>=55:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<55:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=50:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<50:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=45:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<45:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=400 and shoot<500:
         if gunpricel=0:
             if buurand>=50:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<50:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=45:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<45:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=40:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<40:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end
     if shoot>=500:
         if gunpricel=0:
             if buurand>=45:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<45:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=1:
             if buurand>=40:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<40:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
         if gunpricel=2:
             if buurand>=35:
             damage=gunpower
             jump'markstelokpopal'
             end
             if buurand<35:
             buu-=1
             'bloomer'
             jump'markstrelba'
             end
         end
     end

:markstelokpopal
!if hit


!calculation of damage
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damage = damage - dospehDefV&set dospehEnV = dospehEnV - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
     Gcrimein+=1
     '<B><font color=green>harmed <<damage>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     if buu=0:xgt'fight','sta'
     if buu>0:buu-=1&jump'markstrelba'
     end
     
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     Set defenceV = defenceV - damage
     '<B><font color=green>Protection of the enemy suffered damage <<damage>> units</font></B>'
     if buu=0:xgt'fight','sta'
     if buu>0:buu-=1&jump'markstrelba'
     end
     
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone, he still had <<KlonV>> clones</font></B>'
     if buu=0:xgt'fight','sta'
     if buu>0:buu-=1&jump'markstrelba'
     end
     
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Your bullet flew right through the opponent`s body. <<$nameV>> not material</font></B>'
     if buu=0:xgt'fight','sta'
     if buu>0:buu-=1&jump'markstrelba'
     end
     
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood hit</font></B>'
         if buu=0:xgt'fight','sta'
         if buu>0:buu-=1&jump'markstrelba'
         end
         if barierV < damage:
         Set healthV = healthV - damage
         Gcrimein+=1
         '<B><font color=green>harmed <<damage>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set health = health - damage
             '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
             end
         end
     if buu=0:xgt'fight','sta'
     if buu>0:buu-=1&jump'markstrelba'
     end

--- strelba ---------------------------------

# before
!Miscalculation of events at the beginning of round.
!Who protection, clones 
set knife = 0
set knifeV = 0
set BonusAtak = 0
set BonusDef = 0
set BonusAtakV = 0
set BonusDefV = 0
!set stunner = 0
!set stunnerV = 0
kisamePro = 0


set round = round + 1
if tuman > 0:'<font color=green>The battlefield covers your fog. All appearances, he last another <<tuman>> moves.</font>'
if tumanV > 0:'<font color=red>Fog covers the battlefield enemy. All appearances, he last another <<tumanV>> moves.</font>'
if stun > 0:'<font color=red>Are you still unable to move.</font>'
if stunV > 0:'<font color=green><<$nameV>> still unable to move.</font>'

if unmaterialV > 0:
set unmaterialV = unmaterialV - 1
set mannaV = mannaV - 20
end

if unmaterial > 0:
set unmaterial = unmaterial - 1
set manna = manna - 20
'<font color=green>Your not a material will withstand even the most <<unmaterial>> moves.</font>'
end

if klon > 0:
'<font color=green>you have <<klon>> clones that will protect you in case of enemy attack.</font>'
end

if poison > 0:
set healthV = healthV - poison
'<font color=green><<$nameV>> poisoned and loses <<poison>> units of life.</font>'
set poison = poison - 1
end

if poisonV > 0:
set health = health - poisonV
'<font color=red>You poisoned and lose <<poisonV>> units of life.</font>'
set poisonV = poisonV - 1
end

if blood > 0:
set healthV = healthV - blood
'<font color=green><<$nameV>> loses <<blood>> units of life from bleeding.</font>'
set blood = blood - 1
if blood < 0:set blood = 0
end

if bloodV > 0:
set health = health - bloodV
'<font color=red>you lose <<bloodV>> units of life from bleeding.</font>'
set bloodV = bloodV - 1
if bloodV < 0:set bloodV = 0
end

if dospehEnV <= 0 and dospehV > 0:
set dospehEnV = 0
set dospehV = 0
set dospehDefV = 0
set dospehVesV = 0
'<font color=green>Armor enemy destroyed.</font>'
end

if dospehEn <= 0 and dospeh > 0:
set dospehEn = 0
set dospeh = 0
set dospehDef = 0
set dospehVes = 0
'<font color=red>Your armor destroyed.</font>'
end


if initBonusA > 0:set initBonusA = 0



--- before ---------------------------------

# init
!calculation initiatives
!Be sure to check for mills
!hod variable responsible for who will attack
!hod = 0 player attacks hod = 1 enemy attacks
!<font color=red><<$name>> </font>

if GedoMazo = 1 and stunV > 0:set stunV = 0&set mannaV = mannaV - 1000&'<font color=red><<$nameV>> with a deafening roar, emits large amounts of energy allows him to attack you again.</font>'

set initi = react*20/100
set initi = initi - dospehVes
if initi < 0:set initi = 0
set init = RAND (react-initi,react+initi) + initBonus
set initiV = reactV*20/100
set initiV = initiV - dospehVesV
if initiV < 0:set initiV = 0
set initV = RAND (reactV-initiV,reactV+initiV) + initBonusV

if hodtime >= 3 and stun = 0 and stunV = 0 and initBonus = 0:
!the player has already attacked three times
'<font color=red><<$nameV>> took the initiative</font>'
set hod = 1
set hodtime = 0
exit
end
if hodtimeV >= 3 and stun = 0 and stunV = 0 and initBonusV = 0:
!the enemy attacked three times already
'<font color=green>You took the initiative</font>'
set hod = 0
set hodtimeV = 0
exit
end


if stun = 0 and stunV = 0 and hodtime < 3 and hodtimeV < 3 or stun = 0 and stunV = 0 and initBonus > 0 or stun = 0 and stunV = 0 and initBonusV > 0:
!both are not in the camp
     if tuman = 0 and tumanV = 0:
     !no fog
         if init > initV:
         !initiative tackler
         '<font color=green>You took the initiative</font>'
         set hod = 0
         set hodtime = hodtime + 1
         exit
         end
         if init < initV:
         !initiative has captured the enemy
         '<font color=red><<$nameV>> seized the initiative</font>'
         set hod = 1
         set hodtimeV = hodtimeV + 1
         exit
         end
         if init = initV:
         set hod = RAND (0,1)
         if hod = 0:'<font color=green>You hardly took the initiative</font>'
         if hod = 1:'<font color=red><<$nameV>> hardly seized the initiative</font>'
         exit 
         end
     end
     if tuman > 0:
     !fog player
     set tuman = tuman - 1
     set initV = reactV-initiV
         if init > initV:
         !initiative tackler
         '<font color=green>In your fog <<$nameV>> does not have time for you</font>'
         set hod = 0
         set hodtime = hodtime + 1
         exit
         end
         if init < initV:
         !initiative has captured the enemy
         '<font color=red>In spite of your fog <<$nameV>> seized the initiative</font>'
         set hod = 1
         set hodtimeV = hodtimeV + 1
         exit
         end
         if init = initV:
         set hod = RAND (0,1) 
         if hod = 0:'<font color=green>You hardly seized the initiative in spite of your fog</font>'
         if hod = 1:'<font color=red><<$nameV>> despite your fog still seized the initiative</font>'
         exit
         end
     end
     if tumanV > 0:
     !fog enemy
     set tumanV = tumanV - 1
     set init = react-initi
         if init > initV:
         !initiative tackler
         '<font color=green>Despite the fog, You took the initiative</font>'
         set hod = 0
         set hodtime = hodtime + 1
         exit
         end
         if init < initV:
         !initiative has captured the enemy
         '<font color=red><<$nameV>> Use your fog easily captures initiative</font>'
         set hod = 1
         set hodtimeV = hodtimeV + 1
         exit
         end
         if init = initV:
         set hod = RAND (0,1) 
         if hod = 0:'<font color=green>You hardly seized the initiative despite the fog</font>'
         if hod = 1:'<font color=red><<$nameV>> Use your fog seized the initiative</font>'
         exit
         end
     end
end

if stun > 0:
!player in the camp
set stun = stun - 1
set hod = 1
if tuman > 0:set tuman = tuman - 1
if tumanV > 0:set tumanV = tumanV - 1
'<font color=red>You can not move and <<$nameV>> easily captures initiative</font>'
exit
end

if stunV > 0:
!the enemy in the camp
set stunV = stunV - 1
set hod = 0
if tuman > 0:set tuman = tuman - 1
if tumanV > 0:set tumanV = tumanV - 1
'<font color=green><<$nameV>> can not move and you can easily grab the initiative</font>'
exit
end

--- init ---------------------------------

# boxing
!The choice of a physical attack

if weapon = 0:
	 act 'fist':
	 cla
	 !gs'atak'
	 xgt'atak','player'
	 end
end

if weapon > 0:
if weaponTipe = 1:set $weap = 'sword'
if weaponTipe = 2:set $weap = 'mace'
if weaponTipe = 3:set $weap = 'ax'
	 act 'hit <<$weap>>':
	 cla
	 !gs'atak'
	 xgt'atak','player'
	 end
end

if kunai > 0:
'you have <<kunai>> throwing knives.'
     act 'throw a knife':
     cla
     knife = input ("How to throw knives?")
         if knife > kunai:
         set knife = kunai
         set kunai = 0
         end
         if knife <= kunai:
         set kunai = kunai - knife
         end
     '<font color=green>you hurled <<knife>> knives.</font>'
     xgt'atak','player'
     end
end

if magik > 0:
act 'magical Attack':gt'magik'
end
--- boxing ---------------------------------

# magik
!Selecting a magic attack

if round >= 0:
     if spelltuman > 0:'Cover the area fog <a href="exec:GT ''spell'',''tuman''">create a spell</a>'
     if spellklon > 0:'Substitute itself clone <a href="exec:GT ''spell'',''klon''">create a spell</a>'
     if spellstun > 0:'paralyze the enemy <a href="exec:GT ''spell'',''stun''">create a spell</a>'
     if spellweap > 0 and weapon > 0:'Invest in energy weapons <a href="exec:GT ''spell'',''weap''">create a spell</a>'
     if spellwind > 0:'blow away the fog <a href="exec:GT ''spell'',''wind''">create a spell</a>'
     if spellklon2 > 0:'Substitute itself clones (3 pieces) <a href="exec:GT ''spell'',''klon2''">create a spell</a>'
     if spellenergo > 0:'Create weak energy shield <a href="exec:GT ''spell'',''energo''">create a spell</a>'
     if spellinit > 0:'Write a slight deceleration time <a href="exec:GT ''spell'',''init''">create a spell</a>'
     if spellhel > 0:'treat yourself <a href="exec:GT ''spell'',''hel''">create a spell</a>'
     if spellhand > 0:'Striking hand <a href="exec:GT ''spell'',''hand''">create a spell</a>'
     if spellreset > 0 or spellunmat > 0:'<B><font color=red>POWER Rikudo</font></B>'
     if spellreset > 0:'force Rikudo "Podcherpnut collected energy" <a href="exec:GT ''spell'',''reset''">create a spell</a>'
     if spellunmat > 0:'force Rikudo "not material" <a href="exec:GT ''spell'',''unmat''">create a spell</a>'
     if spellfire1 > 0:'<B><font color=red>SCHOOL FIRE</font></B>'
     if spellfire1 > 0:'flame <a href="exec:GT ''spell'',''fire1''">create a spell</a>'
     if round >= 3:
     if spellfire2 > 0:'The release of fire <a href="exec:GT ''spell'',''fire2''">create a spell</a>'
     if spellfire3 > 0:'fire barrier <a href="exec:GT ''spell'',''fire3''">create a spell</a>'
     end
     if round >= 6:
     if spellfire4 > 0:'firestorm <a href="exec:GT ''spell'',''fire4''">create a spell</a>'
     if spellfire5 > 0:'Flame Shield <a href="exec:GT ''spell'',''fire5''">create a spell</a>'
     end
     if spellele1 > 0:'<B><font color=red>SCHOOL OF ELECTRICITY</font></B>'
     if spellele1 > 0:'discharge <a href="exec:GT ''spell'',''ele1''">create a spell</a>'
     if round >= 3:
     if spellele2 > 0:'lightning <a href="exec:GT ''spell'',''ele2''">create a spell</a>'
     if spellele3 > 0:'electric barrier <a href="exec:GT ''spell'',''ele3''">create a spell</a>'
     end
     if round >= 6:
     if spellele4 > 0:'Dance of thousands of birds <a href="exec:GT ''spell'',''ele4''">create a spell</a>'
     if spellele5 > 0:'Plyaschuschaya sphere <a href="exec:GT ''spell'',''ele5''">create a spell</a>'
     end
     if spellert1 > 0:'<B><font color=red>SCHOOL OF EARTH</font></B>'
     if spellert1 > 0:'quicksand <a href="exec:GT ''spell'',''ert1''">create a spell</a>'
     if round >= 3:
     if spellert2 > 0:'active protection <a href="exec:GT ''spell'',''ert2''">create a spell</a>'
     if spellert3 > 0:'abyss <a href="exec:GT ''spell'',''ert3''">create a spell</a>'
     end
     if round >= 6:
     if spellert4 > 0:'absolute protection <a href="exec:GT ''spell'',''ert4''">create a spell</a>'
     if spellert5 > 0:'Sando <a href="exec:GT ''spell'',''ert5''">create a spell</a>'
     end
     if spellwind1 > 0:'<B><font color=red>SCHOOL OF WIND</font></B>'
     if spellwind1 > 0:'gust <a href="exec:GT ''spell'',''wind1''">create a spell</a>'
     if round >= 3:
     if spellwind2 > 0:'terrifying pressure <a href="exec:GT ''spell'',''wind2''">create a spell</a>'
     if spellwind3 > 0:'Vacuum protective sphere <a href="exec:GT ''spell'',''wind3''">create a spell</a>'
     end
     if round >= 6:
     if spellwind4 > 0:'vacuum shells <a href="exec:GT ''spell'',''wind4''">create a spell</a>'
     if spellwind5 > 0:'devouring vacuum <a href="exec:GT ''spell'',''wind5''">create a spell</a>'
     end
     if spellwater1 > 0:'<B><font color=red>SCHOOL WATER</font></B>'
     if spellwater1 > 0:'creek manna <a href="exec:GT ''spell'',''water1''">create a spell</a>'
     if round >= 3:
     if spellwater2 > 0:'flooding <a href="exec:GT ''spell'',''water2''">create a spell</a>'
     if spellwater3 > 0:'blister <a href="exec:GT ''spell'',''water3''">create a spell</a>'
     end
     if round >= 6:
     if spellwater4 > 0:'Water shark missile <a href="exec:GT ''spell'',''water4''">create a spell</a>'
     if spellwater5 > 0:'The Great Flood <a href="exec:GT ''spell'',''water5''">create a spell</a>'
     end
end


act 'physical Attack':gt'boxing'


--- magik ---------------------------------

# enemy
!Calculation of the enemy`s attack

if $ARGS[0]='start':
cla
!in this block is selected on the basis of the variable program enemy attacks
     if program = 0:
     !Action Programme simple attacker fizuhoy
     xgt'enemy','fighter'
     end
     if program = 1:
     !Action Programme fizuha and knives
     xgt'enemy','fighter2'
     end
     if program = 2:
     !Action Programme fizuha, knives, it_mists
     xgt'enemy','fighter3'
     end
     if program = 3:
     !Action Programme fizuha, knives, it_mists, clones
     xgt'enemy','fighter4'
     end
     if program = 4:
     !Action Programme fizuha, knives, it_mists, clones, paralysis
     xgt'enemy','fighter5'
     end
     if program = 5:
     !Action Programme Kisame
     xgt'enemy','kisame'
     end
     if program = 6:
     !Action Programme Toby
     xgt'enemy','tobi'
     end
     if program = 7:
     !Action Programme Toby
     xgt'enemy','gedomazo'
     end
     if program = 8:
     !program of action firearms
     xgt'enemy','gun'
     end
     if program = 9:
     !Action Programme Sasori
     xgt'enemy','sasori'
     end
     if program = 10:
     !Action Programme Conan
     xgt'enemy','konan'
     end
     if program = 11:
     !Action Programme Hidan
     xgt'enemy','hidan'
     end

end

if $ARGS[0]='hidan':
cla
     if zerkaloV > 0:set barierV = 0
     if zerkaloV <= 0:set barierV = 5500
if healthV < vitalV*10 + strenV*5:set healthV = vitalV*10 + strenV*5
     if zerkaloV > 0:
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set health = health - 400
	 set manna = manna - 500
     '<B><font color=red><<$nameV>> shouts "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></B>'
     '<B><font color=red>He impales himself and you feel, pain pierces the body.</font></B>'
     xgt'fight','sta'
     exit     
     end
     if zerkaloV <= 0 and defence > 0:
	 set damTipV = 5000
	 set bonusShV = 100
	 set hidanAtk = 1
     '<B><font color=red><<$nameV>> shouts "Your existence offends my God DZHASHINA!" and throws you into a plait trehlezviynuyu driving it by a line.</font></B>'
     if klon > 0:set klon = klon/2&'<B><font color=red><<$nameV>> shouts "crud! I like a pig slaughter YOU!"</font></B>'
     xgt'atakA1','atak'
     exit     
     end
     if zerkaloV <= 0 and defence <= 0:
	 set damTipV = 300
	 set bonusShV = 100
	 set hidanAtk = 1
     '<B><font color=red><<$nameV>> shouts "You will die a blasphemer!" and throws you into a plait trehlezviynuyu driving it by a line.</font></B>'
     if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the blow spit. <<$nameV>> shouts "I IMMORTAL Ravager! And YOU SHIT!"</font></B>'
     if tuman > 0:set tuman = 0&'<B><font color=red><<$nameV>> shouts "You`re pathetic in their vain attempts spryatatsya FROM ME!"</font></B>'
     xgt'atakA1','atak'
     exit     
     end
end

if $ARGS[0]='konan':
cla
     if round < 6:
     set mannaV = mannaV - 10
	 set damTipV = 500
     '<B><font color=red><<$nameV>> fold marks in his hands and you are flying sheets of paper.</font></B>'
     if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the impact of paper.</font></B>'
     xgt'atakA1','atak'
     exit
     end
     if round >= 6:
		 if unmaterialV > 5 and defence > 0:
		 set mannaV = mannaV - 250
		 set damTipV = 15000
		 set bonusShV = 100
         '<B><font color=red><<$nameV>> takes to the air on the white wings and breaking out of its wings paper falls on you in a flood of flying with terrible speed paper swords.</font></B>'
		 if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the impact of paper.</font></B>'
		 xgt'atakA1','atak'
		 exit
		 end
		 if unmaterialV > 5 and defence <= 0:
		 set mannaV = mannaV - 20
		 set damTipV = 450
         '<B><font color=red><<$nameV>> creates paper boomerangs that fly in your direction.</font></B>'
         xgt'atakA1','atak'
		 exit
		 end
		 if defenceV <= 0 and unmaterialV <= 5:
		 set mannaV = mannaV - 250
		 set defenceV = defenceV + 3000
		 set defenceMV = defenceMV + 3000
		 set defenceWV = defenceWV + 3000
		 '<B><font color=red>Conan shoots up on its paper wings like an angel. Around it starts spinning paper making her protection.</font></B>'
		 xgt'fight','sta'
		 exit
		 end
		 if unmaterialV <= 2 and konanD < 3:
		 set mannaV = mannaV - 150
		 set konanD = konanD + 1
		 '<B><font color=red>Conan stops meditating in the air.</font></B>'
		 xgt'fight','sta'
		 exit
		 end
		 if konanD >= 3:
		 set mannaV = mannaV - 250
		 set konanD = 0
		 set unmaterialV = 20
		 '<B><font color=red>Conan crumbles in the air for thousands of sheets of paper.</font></B>'
		 xgt'fight','sta'
		 exit
		 end
     end
end

if $ARGS[0]='sasori':
cla
if SasoriBody > 1:set damTipV = 1000
if SasoriBody = 1:set damTipV = 2000
set poisonAV = 1
set defenceV = defenceV + 10
set defenceMV = defenceMV + 20
set defenceWV = defenceWV + 50
set mannaV = mannaV - 10
	 if SasoriBody = 1 and defence > 0:
	 set defSasori = defence*20/100
	 set defence = defence - defSasori
	 '<B><font color=red>Rain falls on top of the steel needles greatly weakening your defense.</font></B>'
	 end 
'<B><font color=red><<$nameV>> shooting at you by a cloud of poisonous spines.</font></B>'
if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the blow needle.</font></B>'
xgt'atakA1','atak'
end

if $ARGS[0]='gedomazo':
cla
     if klon <= 0 and tuman <= 0:
	 set magweapbonusV = 5000
	 '<B><font color=red><<$nameV>> with a furious roar of effort on you for its huge stone fist.</font></B>'
	 xgt'atak','enemy'
	 exit
	 end
	 if klon > 0 or tuman > 0:
	 set klon = 0
	 set tuman = 0
	 set mannaV = mannaV - 500
	 '<B><font color=red><<$nameV>> publishes a terrible roar and shock wave sweeps the air over the battlefield.</font></B>'
	 xgt'fight','sta'
	 exit
	 end

end

if $ARGS[0]='tobi':
cla
!program attacks Toby
     if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
     *clr
     '<B><font color=red><<$nameV>> put his fingers to his lips and said quietly "KUCHIE SAINT BUT JITSU".</font></B>'
     '<B><font color=red>You will see Huge stone statue of a demon and throw at you to attack.</font></B>'
     set GedoMazo = 1
     set $nameV = 'Gedo Mazo'
	 !stats
	 set strenV = 1000
	 set speedV = 100
	 set agilV = 90
	 set reactV = 100
	 set vitalV = 5000
	 set intelV = 50
	 set willV = 50
	 !skills
	 set magikV = 1
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set barierV = 1500
	 set program = 7
	 xgt'fight','start'
     exit
     end
     
     if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
     set mannaV = mannaV - 500
     set TobiStena = 1
     set defenceV = defenceV + 25000
     '<B><font color=red><<$nameV>> Arcanum and makes his skin blackens solidifying his body and creating protection 25000 units.</font></B>'
     set barierV = 2000
     xgt'fight','sta'
     exit
     end
     
     if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
     set mannaV = mannaV + 6000
     set TobiStena = 2
     '<B><font color=red><<$nameV>> Arcanum and makes you feel like its magical energy increases sharply.</font></B>'
     xgt'fight','sta'
     exit
     end
     
     
     if stun > 0:
     set magweapbonusV = 2000
     '<B><font color=red><<$nameV>> said triumphantly, "NOW you`re dead".</font></B>'
	 '<B><font color=red>He grabs you by the throat and raises his hand in the air.</font></B>'
	 '<B><font color=red>His fingers like steel and they squeeze your throat with terrible force.</font></B>'
	 xgt'atak','enemy'
	 exit
     end
     
     if defence >= 5000:
     set defence = 0
     set defenceM = 0
     set defenceActPar = 0
     set defenceActParM = 0
     set defenceAct = 0
     set defenceActM = 0
     set defAtk = 0
     set mannaV = mannaV - 100
     set stunV = 1
     '<B><font color=red><<$nameV>> close your eyes and you see, of him as a tear ran down a drop of blood.</font></B>'
     '<B><font color=red>He opened his eyes became completely red with black veins and said Amaterasu</font></B>'
     '<B><font color=red>In your face rushed black devouring flame instantly destroy your protection.</font></B>'
     xgt'fight','sta'
     exit
     end
     if tuman > 0:
     set tumanV = tumanV + tuman
     set tuman = 0
     '<B><font color=red><<$nameV>> adds magic signs hands and your fog comes under his control came to make you an overview.</font></B>'
	 '<B><font color=red>He attacks you.</font></B>'
	 xgt'atak','enemy'
	 exit
     end
     if unmaterialV > 0 and klon <= 0:
	 set stunnerV = 1
	 set mannaV = mannaV - 20
	 set magweapbonusV = 800
	 '<B><font color=red><<$nameV>> attacks you gathered manna in the hand.</font></B>'
	 xgt'atak','enemy'
	 exit
     end
     if unmaterialV > 0 and klon > 0:
     set klon = 0
     set stunV = 1
	 '<B><font color=red><<$nameV>> adds signs hands and all your clones just turns into steam.</font></B>'
	 xgt'atak','enemy'
	 exit
     end
     if unmaterialV <= 0 and tobizanagi < 2:
     set mannaV = mannaV - 250
     set tobizanagi = tobizanagi + 1
     !set unmaterialV = 10
     '<B><font color=red><<$nameV>> adds signs with his hands.</font></B>'
     xgt'fight','sta'
     exit
     end
     if unmaterialV <= 0 and tobizanagi = 2:
     set mannaV = mannaV - 250
     set tobizanagi = 0
     set unmaterialV = 20
     set stunV = 1
     '<B><font color=red><<$nameV>> adds signs with his hands around his eyes and twisted vortex.</font></B>'
     xgt'fight','sta'
     exit
     end

end

if $ARGS[0]='kisame':
cla
!program attack Kisame
     if defenceV <= 0 and kisamePro = 0:
     set kisamePro = 1
     set mannaV = mannaV - 150
     set defenceV = defenceV + 1500
     set defenceMV = defenceMV + 1500
     set defenceWV = defenceWV + 1500
     set defenceActParV = 500
     set defenceActParMV = 500
     set defenceActV = 10
     set defenceActMV = 10
     '<B><font color=red><<$nameV>> fold marks around his hands and formed a water sphere of protecting it from damage.</font></B>'
     xgt'fight','sta'
     exit
     end
     if defenceV <= 1000 and kisamePro > 0:
     set mannaV = mannaV - 500
     set defenceV = defenceV + 5000
     set defenceMV = defenceMV + 5000
     set defenceWV = defenceWV + 5000
     set defenceActParV = 500
     set defenceActParMV = 500
     set defenceActV = 10
     set defenceActMV = 10
     set defAtkMV = 10
     '<B><font color=red><<$nameV>> adds signs hands and the area around the water starts pogruzhatsya.</font></B>'
     if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the impact of water.</font></B>'
     xgt'fight','sta'
     exit
     end
     if defenceV > 1000:
     set kisameRAND = RAND (0,3)
         if kisameRAND = 0:
         set klonV = klonV + 3
         '<B><font color=red><<$nameV>> adds signs with his hands.</font></B>'
         xgt'fight','sta'
         exit
         end 
         if kisameRAND > 0:
         set mannaV = mannaV - 250
		 set damTipV = 1500
		 set damTipMV = 2500
		 set bonusShV = 50
         '<B><font color=red><<$nameV>> fold marks in his hands and you are flying out of the water by a shark.</font></B>'
         if klon > 0:set klon = 0&'<B><font color=red>Your clones turned into steam from the impact of water.</font></B>'
         xgt'atakA1','atak'
         exit
         end
     end
     '<B><font color=red><<$nameV>> attacks.</font></B>'
     xgt'enemy','fighter'
end

if $ARGS[0]='gun':
cla
!program directly attack
!gs'atak'
set damTipV = 1500
'<B><font color=red><<$nameV>> shooting at you.</font></B>'
xgt'atakA1','atak'
end

if $ARGS[0]='fighter':
cla
!program directly attack
!gs'atak'
xgt'atak','enemy'
end

if $ARGS[0]='fighter2':
cla
!program directly attack
set deystrand = RAND (0,1)
     if deystrand = 0:
     xgt'atak','enemy'
     end
     if deystrand = 1:
     set knifeV = RAND (1,3)
     '<B><font color=red><<$nameV>> methane to you <<knifeV>> knives</font></B>'
     xgt'atak','enemy'
     end
end

if $ARGS[0]='fighter3':
cla
!program directly attack
     if tuman = 0 and tumanV < 5 and mannaV > 10:
     set mannaV = mannaV - 10
     set tumanV = tumanV + 10
     '<B><font color=red><<$nameV>> produces fog on the battlefield.</font></B>'
     xgt'fight','sta'
     exit
     end
set deystrand = RAND (0,1)
     if deystrand = 0:
     xgt'atak','enemy'
     end
     if deystrand = 1:
     set knifeV = RAND (1,3)
     '<B><font color=red><<$nameV>> methane to you <<knifeV>> knives</font></B>'
     xgt'atak','enemy'
     end
end

if $ARGS[0]='fighter4':
cla
!program directly attack
     if tuman = 0 and tumanV < 5 and mannaV > 10:
     set mannaV = mannaV - 10
     set tumanV = tumanV + 10
     '<B><font color=red><<$nameV>> produces fog on the battlefield.</font></B>'
     xgt'fight','sta'
     exit
     end
     if klonV < 1 and mannaV > 15:
     set mannaV = mannaV - 15
     set klonV = klonV + 1
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     exit
     end
set deystrand = RAND (0,1)
     if deystrand = 0:
     xgt'atak','enemy'
     end
     if deystrand = 1:
     set knifeV = RAND (1,3)
     '<B><font color=red><<$nameV>> methane to you <<knifeV>> knives</font></B>'
     xgt'atak','enemy'
     end
end

if $ARGS[0]='fighter5':
cla
!program directly attack
     if tuman = 0 and tumanV < 5 and mannaV > 10:
     set mannaV = mannaV - 10
     set tumanV = tumanV + 10
     '<B><font color=red><<$nameV>> produces fog on the battlefield.</font></B>'
     xgt'fight','sta'
     exit
     end
     if klonV < 1 and mannaV > 15:
     set mannaV = mannaV - 15
     set klonV = klonV + 1
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     exit
     end
     if stun < 1 and manna > 20:
     set stunnerV = 1
     set mannaV = mannaV - 20
     '<B><font color=red><<$nameV>> attacks you Gouge.</font></B>'
     xgt'atak','enemy'
     end
set deystrand = RAND (0,1)
     if deystrand = 0:
     xgt'atak','enemy'
     end
     if deystrand = 1:
     set knifeV = RAND (1,3)
     '<B><font color=red><<$nameV>> methane to you <<knifeV>> knives</font></B>'
     xgt'atak','enemy'
     end
end





--- enemy ---------------------------------

# atak
if $ARGS[0]='player':
cla
!!!!!!!
set tip = 0
!!!!!!!
set strenA = stren
set speedA = speed
set agilA = agil
set vitalA = vital
!skills
set boxingA = boxing
!parameters
set healthA = health
set BonusA = BonusAtak
!!!!!!!!!
set strenD = strenV
set speedD = speedV
set agilD = agilV
set vitalD = vitalV
!skills
set boxingD = boxingV
!parameters
set healthD = healthV
set initBonusA = initBonus
set initBonus = 0
set initBonusV = 0
set BonusD = BonusDefV
     if stunV <= 0:
     xgt'atak','popad'
     end
     if stunV > 0:
     '<B><font color=green><<$nameV>> Can not move a critical hit</font></B>'
     xgt'atak','uronKrit'
     end
end


if $ARGS[0]='enemy':
cla
!!!!!!!
set tip = 1
!!!!!!!
set strenA = strenV
set speedA = speedV
set agilA = agilV
set vitalA = vitalV
!skills
set boxingA = boxingV
!parameters
set healthA = healthV
set BonusA = BonusAtakV
!!!!!!!!!!!!!!
set strenD = stren
set speedD = speed
set agilD = agil
set vitalD = vital
!skills
set boxingD = boxing
!parameters
set healthD = health
set BonusD = BonusDef
set initBonusA = initBonusV
set initBonus = 0
set initBonusV = 0
     if stun <= 0:
     xgt'atak','popad'
     end
     if stun > 0:
     '<B><font color=red>YOU can not move a critical hit</font></B>'
     xgt'atak','uronKritV'
     end
end

if $ARGS[0]='popad':
cla
!payment hit dodge
set poSp = speedA*20/100
set uvAg = agilD*20/100
set poBox = boxingA*20/100
set uvBox = boxingD*20/100
set popad = RAND (boxingA-poBox,boxingA+poBox) + RAND (speedA-poSp,speedA+poSp) + BonusA + initBonusA
set uvorot = RAND (boxingD-uvBox,boxingD+uvBox) + RAND (agilD-uvAg,agilD+uvAg) + BonusD
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
             if tip = 0:
             !attack players
             '<B><font color=green>Critical hits</font></B>'
             xgt'atak','uronKrit'
             end
             if tip = 1:
             !attack the enemy
             '<B><font color=red>Critical hits</font></B>'
             xgt'atak','uronKritV'
             end
         end
         if popad < uvorot+uvorKoef:
         !normal hit
             if tip = 0:
             !attack players
             '<B><font color=green>EYE</font></B>'
             xgt'atak','uron'
             end
             if tip = 1:
             !attack the enemy
             '<B><font color=red>EYE</font></B>'
             xgt'atak','uronV'
             end
         end
     end
     if popad <= uvorot:
         if popad+popKoef <= uvorot:
         !critical blunder
             if tip = 0:
             !attack players
             '<B><font color=red>CRITICAL SLIP</font></B>'
             xgt'atak','uronKritV'
             end
             if tip = 1:
             !attack the enemy
             '<B><font color=green>CRITICAL SLIP</font></B>'
             xgt'atak','uronKrit'
             end
         end
         if popad+popKoef > uvorot:
         !bloomer
             if tip = 0:
             !attack players
             '<B><font color=red>LOST</font></B>'
             xgt'fight','sta'
             end
             if tip = 1:
             !attack the enemy
             '<B><font color=green>LOST</font></B>'
             xgt'fight','sta'
             end
         end
     end
end

if $ARGS[0]='uronKrit':
cla
set damage = RAND(stren,stren*2) + weapbonus + magweapbonus
     if knife > 0:
     set knibon = knife+1
     set knife = 0
     set damage = damage*knibon
     set knibon = 0
     '<B><font color=green>In your opponent flies throwing knife</font></B>'
     end
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damage = damage - dospehDefV&set dospehEnV = dospehEnV - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
         if weaponTipe = 1:set bloodV = bloodV + RAND (weapon/4,weapon/2)
         if weaponTipe = 2:set stun = stun + RAND (1,2)
         if weaponTipe = 3:set bloodV = bloodV + RAND (weapon/4,weapon/2)
         if stunner > 0:
         set stunner = 0
         set stunV = RAND (3,6)
         '<B><font color=green>You paralyzed enemy on <<stunV>> moves.</font></B>'
         end
     '<B><font color=green>harmed <<damage>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     Set defenceV = defenceV - damage
     '<B><font color=green>Protection of the enemy suffered damage <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone, he still had <<KlonV>> clones</font></B>'
     xgt'fight','sta'
     end
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Your kick flew right through the opponent`s body. <<$nameV>> not material</font></B>'
     xgt'fight','sta'
     end
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barierV < damage:
         Set healthV = healthV - damage
         if weaponTipe = 1:set bloodV = bloodV + RAND (weapon/4,weapon/2)
         if weaponTipe = 2:set stun = stun + RAND (1,2)
         if weaponTipe = 3:set bloodV = bloodV + RAND (weapon/4,weapon/2)
         if stunner > 0:
         set stunV = RAND (3,6)
         '<B><font color=green>You paralyzed enemy on <<stunV>> moves.</font></B>'
         end
         '<B><font color=green>harmed <<damage>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set health = health - damage
             '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'  
     end

end


if $ARGS[0]='uron':
cla
set stKo = stren*20/100
set damage = RAND(stren-stKo,stren+stKo) + weapbonus + magweapbonus
     if knife > 0:
     set knibon = knife+1
     set knife = 0
     set damage = damage*knibon
     set knibon = 0
     '<B><font color=green>In your opponent flies throwing knife</font></B>'
     end
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damage = damage - dospehDefV&set dospehEnV = dospehEnV - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
         if stunner > 0:
         set stunner = 0
         set stunV = RAND (1,3)
         '<B><font color=green>You paralyzed enemy on <<stunV>> moves.</font></B>'
         end
     '<B><font color=green>harmed <<damage>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     Set defenceV = defenceV - damage
     '<B><font color=green>Protection of the enemy suffered damage <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone, he still had <<KlonV>> clones</font></B>'
     xgt'fight','sta'
     end
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Your kick flew right through the opponent`s body. <<$nameV>> not material</font></B>'
     xgt'fight','sta'
     end
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barierV < damage:
         Set healthV = healthV - damage
         if stunner > 0:
         set stunV = RAND (1,3)
         '<B><font color=green>You paralyzed enemy on <<stunV>> moves.</font></B>'
         end
         '<B><font color=green>harmed <<damage>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set health = health - damage
             '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end



if $ARGS[0]='uronKritV':
cla
set damage = RAND(strenV,strenV*2) + weapbonusV + magweapbonusV
     if knifeV > 0:
     set knibonV = knifeV+1
     set knifeV = 0
     set damage = damage*knibonV
     set knibonV = 0
     '<B><font color=red>As you fly throwing knife</font></B>'
     end
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
         if weaponTipeV = 1:set blood = blood + RAND (weaponV/4,weaponV/2)
         if weaponTipeV = 2:set stunV = stunV + RAND (1,2)
         if weaponTipeV = 3:set blood = blood + RAND (weaponV/4,weaponV/2)
         if stunnerV > 0:
         set stunnerV = 0
         set stun = RAND (3,6)
         '<B><font color=red><<$nameV>> paralyze you on <<stun>> moves.</font></B>'
         end
     '<B><font color=red>You harmed <<damage>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     Set defence = defence - damage
     '<B><font color=red>Your defense harmed <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone, Do you have more <<Klon>> clones</font></B>'
     xgt'fight','sta'
     end
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy flew right through your body. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set health = health - damage
         if weaponTipeV = 1:set blood = blood + RAND (weaponV/4,weaponV/2)
         if weaponTipeV = 2:set stunV = stunV + RAND (1,2)
         if weaponTipeV = 3:set blood = blood + RAND (weaponV/4,weaponV/2)
         if stunnerV > 0:
         set stun = RAND (3,6)
         '<B><font color=red><<$nameV>> paralyze you on <<stun>> moves.</font></B>'
         end
         '<B><font color=red>You harmed <<damage>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end


if $ARGS[0]='uronV':
cla
set stKo = strenV*20/100
set damage = RAND(strenV-stKo,strenV+stKo) + weapbonusV + magweapbonusV
     if knifeV > 0:
     set knibonV = knifeV+1
     set knifeV = 0
     set damage = damage*knibonV
     set knibonV = 0
     '<B><font color=red>As you fly throwing knife</font></B>'
     end
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
         if stunnerV > 0:
         set stunnerV = 0
         set stun = RAND (3,6)
         '<B><font color=red><<$nameV>> paralyze you on <<stun>> moves.</font></B>'
         end
     '<B><font color=red>You harmed <<damage>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     Set defence = defence - damage
     '<B><font color=red>Your defense harmed <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone, Do you have more <<Klon>> clones</font></B>'
     xgt'fight','sta'
     end
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy flew right through your body. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set health = health - damage
         if stunnerV > 0:
         set stun = RAND (3,6)
         '<B><font color=red><<$nameV>> paralyze you on <<stun>> moves.</font></B>'
         end
         '<B><font color=red>You harmed <<damage>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end




















--- atak ---------------------------------

# atakA
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speed*20/100
set uvAg = agilV*20/100
set poBox = react*20/100
set uvBox = reactV*20/100
set popad = RAND (react-poBox,react+poBox) + RAND (speed-poSp,speed+poSp) + bonusSh
set uvorot = RAND (reactV-uvBox,reactV+uvBox) + RAND (agilV-uvAg,agilV+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=green>Critical hits</font></B>'
         xgt'atakA','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=green>EYE</font></B>'
         xgt'atakA','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=red>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKrit':
cla
set damKoef = damTip*20/100 
set damage = RAND(damTip+damKoef,damTip+damKoef*2)
     if damTipM > 0:
     set damKoefM = damTipM*20/100 
     set damageM = RAND(damTipM+damKoefM,damTipM+damKoefM*2)
     end
xgt'atakA','damage'
end

if $ARGS[0]='uron':
cla
set damKoef = damTip*20/100 
set damage = RAND(damTip-damKoef,damTip+damKoef)
     if damTipM > 0:
     set damKoefM = damTipM*20/100 
     set damageM = RAND(damTipM-damKoefM,damTipM+damKoefM)
     end
xgt'atakA','damage'
end

if $ARGS[0]='damage':
cla   
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damageV = damageV - dospehDefV&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
         if damTipM > 0:
         set mannaV = mannaV - damageM
         set manna = manna + damageM
         '<B><font color=green>you swallowed <<damageM>> manna enemy units.</font></B>'
         end
     !Set manna = manna - damageM
         if eleSh > 0:
         set stunV = RAND (eleSh,eleSh*3)
         '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
         end
     '<B><font color=green>You have caused damage <<damage>> units</font></B>'
     
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defenceV = defenceV - damage
     '<B><font color=green>You have caused damage <<damage>> Protection of enemy units</font></B>'
     xgt'fight','sta'
     end
     
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Your blow has passed through the body of the enemy. Opponents do not materials</font></B>'
     xgt'fight','sta'
     end
     
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barierV < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         set damage = damage - barierV
         Set healthV = healthV - damage
             if damTipM > 0:
			 set mannaV = mannaV - damageM
			 set manna = manna + damageM
			 '<B><font color=green>you swallowed <<damageM>> manna enemy units.</font></B>'
			 end
             if eleSh > 0:
			 set stunV = RAND (eleSh,eleSh*3)
			 '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
			 end
         '<B><font color=green>You have caused damage <<damage>> units</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set health = health - damage
             '<B><font color=red>Opponent reflected damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end

if $ARGS[0]='atakW':
cla
!payment hit dodge
set poSp = speed*20/100
set uvAg = agilV*20/100
set poBox = react*20/100
set uvBox = reactV*20/100
set popad = RAND (react-poBox,react+poBox) + RAND (speed-poSp,speed+poSp)
set uvorot = RAND (reactV-uvBox,reactV+uvBox) + RAND (agilV-uvAg,agilV+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=red>Critical hits</font></B>'
         xgt'atakA','uronKritW'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         '<B><font color=red>EYE</font></B>'
         xgt'atakA','uronW'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKritW':
cla
set damKoef = damTip*20/100 
set damage = RAND(damTip+damKoef,damTip+damKoef*2)
set damKoefM = damTipM*20/100 
set damageM = RAND(damTipM+damKoefM,damTipM+damKoefM*2)
xgt'atakA','damageW'
end

if $ARGS[0]='uronW':
cla
set damKoef = damTip*20/100 
set damage = RAND(damTip-damKoef,damTip+damKoef)
set damKoefM = damTipM*20/100 
set damageM = RAND(damTipM-damKoefM,damTipM+damKoefM)
xgt'atakA','damageW'
end

if $ARGS[0]='damageW':
cla   
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damageV = damageV - dospehDefV&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
     Set mannaV = mannaV - damageM
     '<B><font color=green>You harmed <<damage>> units</font></B>'
     '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     set damSum = damage + damageM
     Set defenceV = defenceV - damSum
     !Set defenceV = defenceV - damage
     '<B><font color=green>You have caused damage <<damSum>> Protection of enemy units</font></B>'
     xgt'fight','sta'
     end
     
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Your blow has passed through the body of the enemy. Opponents do not materials</font></B>'
     xgt'fight','sta'
     end
     
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barierV < damage:
         Set mannaV = mannaV - damageM
         Set healthV = healthV - damage
         !Set healthV = healthV - damage
         '<B><font color=green>You have caused damage <<damage>> units</font></B>'
         '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set health = health - damage
             '<B><font color=red>Opponent reflected damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end




--- atakA ---------------------------------

# atakA1
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp) + bonusShV
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=red>Critical hits</font></B>'
         xgt'atakA1','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=red>EYE</font></B>'
         xgt'atakA1','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKrit':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
     if damTipMV > 0:
     set damKoefM = damTipMV*20/100 
     set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
     end
xgt'atakA1','damage'
end

if $ARGS[0]='uron':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV-damKoef,damTipV+damKoef)
     if damTipMV > 0:
     set damKoefM = damTipMV*20/100 
     set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
     end
xgt'atakA1','damage'
end

if $ARGS[0]='damage':
cla   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
         if hidanAtk = 1:
         set hidanAtk = 0
         set zerkaloV = zerkaloV + 50
         set bloodV = bloodV + 50
         '<B><font color=red><<$nameV>> drink your blood.</font></B>'
         end
         if damTipMV > 0:
         set manna = manna - damageM
         set manna = manna + damageM
         '<B><font color=red><<$nameV>> swallowed <<damageM>> units of mana you.</font></B>'
         end
         if poisonAV = 1:
         set poisonV = 50
         '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
         end
     !Set manna = manna - damageM
         if eleShV > 0:
         set stun = RAND (eleShV,eleShV*3)
         '<B><font color=red>You paralyzed on <<stunV>> Rounds</font></B>'
         end
     '<B><font color=red><<$nameV>> damage caused to you <<damage>> units</font></B>'
     
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defence = defence - damage
     '<B><font color=red>Your defense harmed <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy passed through you. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         Set health = health - damage
             if damTipM > 0:
			 set manna = manna - damageM
			 set mannaV = mannaV + damageM
			 '<B><font color=green>you swallowed <<damageM>> manna enemy units.</font></B>'
			 end
             if eleShV > 0:
			 set stun = RAND (eleShV,eleShV*3)
			 '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
			 end
			 if poisonAV = 1:
			 set poisonV = 50
			 '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
			 end
         '<B><font color=red>You have caused damage <<damage>> units</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected the damage and the enemy was <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end

if $ARGS[0]='atakW':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp)
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=red>Critical hits</font></B>'
         xgt'atakA1','uronKritW'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         '<B><font color=red>EYE</font></B>'
         xgt'atakA1','uronW'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKritW':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
set damKoefM = damTipMV*20/100 
set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
xgt'atakA1','damageW'
end

if $ARGS[0]='uronW':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV-damKoef,damTipV+damKoef)
set damKoefM = damTipMV*20/100 
set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
xgt'atakA1','damageW'
end

if $ARGS[0]='damageW':
cla   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
     Set manna = manna - damageM
     '<B><font color=green>You harmed <<damage>> units</font></B>'
     '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     set damSum = damage + damageM
     Set defence = defence - damSum
     !Set defenceV = defenceV - damage
     '<B><font color=green>You have caused damage <<damSum>> Protection of enemy units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=red>Your blow has passed through the body of the enemy. Opponents do not materials</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set manna = manna - damageM
         Set health = health - damage
         !Set healthV = healthV - damage
         '<B><font color=green>You have caused damage <<damage>> units</font></B>'
         '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=red>Opponent reflected damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end




--- atakA1 ---------------------------------

# atakB
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speed*20/100
set uvAg = agilV*20/100
set poBox = react*20/100
set uvBox = reactV*20/100
set popad = RAND (react-poBox,react+poBox) + RAND (speed-poSp,speed+poSp) + bonusSh
set uvorot = RAND (reactV-uvBox,reactV+uvBox) + RAND (agilV-uvAg,agilV+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=green>Critical hits</font></B>'
         gs'atakB','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=green>EYE</font></B>'
         gs'atakB','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=red>LOST</font></B>'
     end
end


if $ARGS[0]='uronKrit':
cla
set damDef = defence/100
set damKoef = damDef*20/100 
set damage = RAND(damDef+damKoef,damDef+damKoef*2)
gs'atakB','damage'
end

if $ARGS[0]='uron':
cla
set damDef = defence/100
set damKoef = damDef*20/100 
set damage = RAND(damDef-damKoef,damDef+damKoef)
gs'atakB','damage'
end

if $ARGS[0]='damage':
cla   
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damageV = damageV - dospehDefV&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
     !Set manna = manna - damageM
         if eleSh > 0:
         set stunV = RAND (eleSh,eleSh*3)
         '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
         end
     '<B><font color=green>You have caused damage <<damage>> units</font></B>'
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set defence = defence - damage
         '<B><font color=red><<$nameV>> reflected the damage and your defense received <<damage>> points of damage</font></B>'
         end
     !xgt'fight','sta'
     end
     
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defenceV = defenceV - damage
     '<B><font color=green>Your defense caused damage <<damage>> Protection of enemy units</font></B>'
     !xgt'fight','sta'
     end
     
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     !xgt'fight','sta'
     end
     
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Blow your protection passed through the body of the enemy. Opponents do not materials</font></B>'
     !xgt'fight','sta'
     end
     
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your protection</font></B>'
         !xgt'fight','sta'
         end
         if barierV < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         Set healthV = healthV - damage
             if eleSh > 0:
			 set stunV = RAND (eleSh,eleSh*3)
			 '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
			 end
         '<B><font color=green>Your defense caused damage <<damage>> units</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set defence = defence - damage
             '<B><font color=red>Opponent reflected damage and your defense received <<damage>> points of damage</font></B>'
             end
         end
     !xgt'fight','sta'
     end

end





--- atakB ---------------------------------

# atakB1
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp) + bonusShV
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=green>Critical hits</font></B>'
         gs'atakB1','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=green>EYE</font></B>'
         gs'atakB1','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=red>LOST</font></B>'
     end
end


if $ARGS[0]='uronKrit':
cla
set damDef = defenceV/100
set damKoef = damDef*20/100 
set damage = RAND(damDef+damKoef,damDef+damKoef*2)
gs'atakB1','damage'
end

if $ARGS[0]='uron':
cla
set damDef = defenceV/100
set damKoef = damDef*20/100 
set damage = RAND(damDef-damKoef,damDef+damKoef)
gs'atakB1','damage'
end

if $ARGS[0]='damage':
cla   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDefV&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
     !Set manna = manna - damageM
         if eleShV > 0:
         set stun = RAND (eleShV,eleShV*3)
         '<B><font color=red>Protect your enemy paralyzed on <<stun>> Rounds</font></B>'
         end
     '<B><font color=red>Protect your enemy inflicted damage <<damage>> units</font></B>'
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set defenceV = defenceV - damage
         '<B><font color=green>You have reflected the damage done by the defense  <<damage>> points of damage</font></B>'
         end
     !xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defence = defence - damage
     '<B><font color=red>Your defense harmed <<damage>> units of the defense</font></B>'
     !xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone</font></B>'
     !xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the defense went through you. YOU are not material</font></B>'
     !xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the defense</font></B>'
         !xgt'fight','sta'
         end
         if barier < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         Set health = health - damage
             if eleShV > 0:
			 set stun = RAND (eleShV,eleShV*3)
			 '<B><font color=red>Protect your enemy paralyzed on <<stun>> Rounds</font></B>'
			 end
         '<B><font color=red>You harmed <<damage>> units of the defense</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set defenceV = defenceV - damage
             '<B><font color=green>You have reflected damage and the defense was <<damage>> points of damage</font></B>'
             end
         end
     !xgt'fight','sta'
     end

end





--- atakB1 ---------------------------------

# atakM
if $ARGS[0]='atakVmanna':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp)
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=red>Critical hits</font></B>'
         xgt'atakM','uronKritV'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=red>EYE</font></B>'
         xgt'atakM','uronV'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKritV':
cla
set damage = RAND(1000,2000)
set damageM = RAND(1000,2000)

   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
     Set manna = manna - damageM
     '<B><font color=red>Your health harmed <<damage>> units</font></B>'
     '<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     set damSum = damage + damageM
     Set defence = defence - damSum
     '<B><font color=red>Your defense harmed <<damSum>> units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone, Do you have more <<Klon>> clones</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy flew right through your body. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set manna = manna - damageM
         Set health = health - damage
         '<B><font color=red>You harmed <<damage>> units</font></B>'
         '<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end


if $ARGS[0]='uronV':
cla
set damage = RAND(500,1000)
set damageM = RAND(500,1000)

   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
     Set manna = manna - damageM
     '<B><font color=red>Your health harmed <<damage>> units</font></B>'
     '<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     set damSum = damage + damageM
     Set defence = defence - damSum
     '<B><font color=red>Your defense harmed <<damSum>> units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone, Do you have more <<Klon>> clones</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy flew right through your body. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set manna = manna - damageM
         Set health = health - damage
         '<B><font color=red>You harmed <<damage>> units</font></B>'
         '<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end
--- atakM ---------------------------------

# spell
if $ARGS[0]='reset':
cla
!Creating fog
'accumulated manna <<mannaReset>> units.'
	 act 'Absorb accumulated manna':
	 cla
	 *clr
	 set manna = manna + mannaReset
	 set mannaReset = 0
	 xgt'fight','sta'
	 end
     
act 'physical attacks':gt'boxing'

     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='unmat':
cla
!Creating fog
'You can become incorporeal at 30 moves, in exchange for 3000 forces units Rikudo. This part of the force will be lost to you forever when you cast.'
'Not material allows you to skip through your body without receiving any impact damage, while slightly reduced longevity spells.'
     if rikudo >= 3000:
         act 'become a disembodied':
         cla
         *clr
         set unmaterial = 31
         set rikudo = rikudo + 3000
         set mannaReset = 0
         xgt'fight','sta'
         end
     end
     if rikudo < 3000:
     'You have too little power Rikudo for this spell.'
     end
act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end



if $ARGS[0]='tuman':
cla
!Creating fog
     if tumanV > 0:
     'It is not possible to impose your fog on an existing fog enemy.'
     
     end
     if tumanV <= 0:
     'Create a fog on the battlefield, obstruct the enemy. cost 10 manna.'
         act 'Create mist (10 manna)':
         cla
         *clr
         set manna = manna - 10
         set tuman = tuman + 10
         gt'fight','sta'
         end
     
     end
act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='klon':
cla
'You can create a clone just copying you, and themselves to slip out of sight of the enemy. cost 15 manna 1 clone.'
     act 'Create a clone':
     cla
     *clr
     set manna = manna - 15
     set klon = klon + 1
     gt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='stun':
cla
'You have to touch the enemy, then he will be paralyzed. cost 20 manna.'
     act 'paralytic stroke':
     cla
     *clr
     set manna = manna - 20
     set stunner = 1
     xgt'atak','player'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end


if $ARGS[0]='weap':
cla
'You can put the magical power of a weapon increasing its damage. cost 20 manna.'
     act 'invest energy':
     cla
     *clr
     set manna = manna - 20
     set magweapbonus = weapbonus*4
     xgt'atak','player'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind':
cla
'Corrupts the wind, that would blow away the fog. cost 40 manna.'
     act 'apply':
     cla
     *clr
     set manna = manna - 40
     set tumanV = 0
     set tuman = 0
     '<B><font color=green>You sent against the wind on the battlefield and destroy the fog.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='klon2':
cla
'You can create three clones accurately copies you, and themselves to slip out of sight of the enemy. cost 45 manna 3 clone.'
     act 'Create clones':
     cla
     *clr
     set manna = manna - 45
     set klon = klon + 3
     gt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='energo':
cla
'You can create an energy shield to protect against attacks on health. 100 protection units worth 50 manna.'
     act 'Create energy shield':
     cla
     *clr
     set manna = manna - 50
     set defence = defence + 100
     '<B><font color=green>You have imposed energy shield, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='init':
cla
'You can create a slight deceleration time, that would gain an advantage in the reaction rate and to seize the initiative. costs 60 manna.'
     act 'Create a slowdown':
     cla
     *clr
     set manna = manna - 60
     set initBonus = 120
     '<B><font color=green>You put the manna in the amplification reaction.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='hel':
cla
!Creating fog
'Cure or add yourself 400 health units. cost 400 manna.'
     act 'treated (400 manna)':
     cla
     *clr
     set manna = manna - 400
     set health = health + 400
     '<B><font color=green>You put the manna in the acceleration of regenerative processes in the body.</font></B>'
     gt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='hand':
cla
!Creating fog
'Striking hand increases the damage in 10 just one attack. cost 100 manna.'
     act 'Striking hand (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set strenK = stren*20/100
     set magweapbonus = RAND (stren*10 - strenK,stren*10 + strenK)
     '<B><font color=green>You put the manna in the hand to apply the devastating blows.</font></B>'
     xgt'atak','player'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='fire1':
cla
!Creating fog
'flame. cost 10 manna.'
     act 'flame (10 manna)':
     cla
     *clr
     set manna = manna - 10
     set damTip = 250
     '<B><font color=green>You have created a torrent of flame escaping from your hands.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='fire2':
cla
!Creating fog
'The release of fire. cost 100 manna.'
     act 'The release of fire (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set damTip = 2500
     '<B><font color=green>You have created a huge stream of flames pouring out of your hand.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='fire3':
cla
!Creating fog
'fire barrier, creates a shield 750 units. cost 150 manna.'
     act 'fire barrier (150 manna)':
     cla
     *clr
     set manna = manna - 150
     set defence = defence + 750
     '<B><font color=green>You have created around him fire barrier, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='fire4':
cla
!Creating fog
'firestorm. cost 250 manna.'
     act 'firestorm (250 manna)':
     cla
     *clr
     set manna = manna - 250
     set damTip = 6250
     set bonusSh = 100
     '<B><font color=green>The air around you overheat and catch fire, a sea of вЂ‹вЂ‹fire struck the enemy.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='fire5':
cla
!Creating fog
'Flame Shield, creates a shield 2500 units. cost 500 manna.'
     act 'Flame Shield (500 manna)':
     cla
     *clr
     set manna = manna - 500
     set defence = defence + 2500
     '<B><font color=green>You`ve created a wall of fire around it absorbs damage, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ele1':
cla

!Creating fog
'discharge. cost 10 manna.'
     act 'discharge (10 manna)':
     cla
     *clr
     set manna = manna - 10
     set damTip = 150
     set eleSh = 1
     '<B><font color=green>You have created an electric discharge escaping from your hands.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ele2':
cla
!Creating fog
'lightning. cost 100 manna.'
     act 'lightning (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set damTip = 1500
     set eleSh = 1
     '<B><font color=green>You have created a zipper with a crash vystrelevshuyu from your hand.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ele3':
cla
!Creating fog
'electric barrier, creates a shield 1500 units. cost 150 manna.'
     act 'electric barrier (150 manna)':
     cla
     *clr
     set manna = manna - 150
     set defence = defence + 1500
     '<B><font color=green>You`ve created a wall around themselves dancing lightning, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ele4':
cla
!Creating fog
'Dance of thousands of birds. cost 250 manna.'
     act 'Dance of thousands of birds (250 manna)':
     cla
     *clr
     set manna = manna - 250
     set damTip = 3750
     set bonusSh = 30
     set eleSh = 1
     '<B><font color=green>You have collected the manna in the hand and danced around the palm of your hand lightning leaping through the air with shrieks.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ele5':
cla
!Creating fog
'Plyaschuschaya sphere, creates a shield 5000 units. cost 500 manna.'
     act 'Plyaschuschaya sphere (500 manna)':
     cla
     *clr
     set manna = manna - 500
     set defence = defence + 5000
     '<B><font color=green>You have created around him a large sphere of lightning dancing, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ert1':
cla
!Creating fog
'quicksand, catches the opponent in quicksand trap and inflicts 100 units. cost 10 manna.'
     act 'quicksand (10 manna)':
     cla
     *clr
     set manna = manna - 10
     set damTip = 100
     set eleSh = 5
     '<B><font color=green>You have created under enemy addictive quicksand.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ert2':
cla
!Creating fog
'active protection, creates a protective sphere of the earth, stone and sand 2500 protection units mana and health, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. cost 100 manna.'
     act 'active protection (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set defence = defence + 2500
     set defenceM = defenceM + 2500
     set defenceActPar = 1000
     set defenceActParM = 1000
     set defenceAct = 10
     set defenceActM = 10
     '<B><font color=green>Earth is surrounded by you, giving you protection.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ert3':
cla
!Creating fog
'abyss, earth asunder under their feet enemy inflicting damage in 1500 units and depriving him of the ability to move. cost 150 manna.'
     act 'quicksand (150 manna)':
     cla
     *clr
     set manna = manna - 150
     set damTip = 1500
     set eleSh = 5
     '<B><font color=green>You are the earth beneath their feet enemy.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ert4':
cla
!Creating fog
'absolute protection, creates a huge protective sphere of the earth, which regenerates itself every turn and attack the enemy. cost 250 manna.'
     act 'absolute protection (250 manna)':
     cla
     *clr
     set manna = manna - 250
     set defence = defence + 6250
     set defenceM = defenceM + 6250
     set defenceW = defenceW + 6250
     set defenceActPar = 1000
     set defenceActParM = 1000
     set defenceActParW = 1000
     set defenceAct = 15
     set defenceActM = 15
     set defenceActW = 15
     set defAtk = 15
     '<B><font color=green>Earth is surrounded by you, giving you protection.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='ert5':
cla
!Creating fog
'Sando, two huge slabs emerge from the ground and crushing collapse of the enemy inflicting damage in 5000 units and depriving him of the ability to move. cost 500 manna.'
     act 'Sando (500 manna)':
     cla
     *clr
     set manna = manna - 500
     set damTip = 5000
     set bonusSh = 50
     set eleSh = 5
     '<B><font color=green>Two huge plates with a roar came from the earth and imploded.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind1':
cla
!Creating fog
'gust, inflicts 100 units and destroy the clones fog, very difficult to dodge. cost 10 manna.'
     act 'gust (10 manna)':
     cla
     *clr
     set manna = manna - 10
     set damTip = 100
     set bonusSh = 50
     '<B><font color=green>You have created a gust of wind.</font></B>'
     if klonV > 0:set klonV = 0&'<B><font color=green>Clone enemy turned into steam.</font></B>'
     if tumanV > 0:set tumanV = 0&'<B><font color=green>Fog enemy torn to shreds by the wind.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind2':
cla
!Creating fog
'terrifying pressure, inflicts 1000 units and destroy the clones fog, very difficult to dodge. cost 100 manna.'
     act 'terrifying pressure (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set damTip = 1000
     set bonusSh = 100
     '<B><font color=green>You sharply raised the air pressure.</font></B>'
     if klonV > 0:set klonV = 0&'<B><font color=green>Clone the enemy broke and turned into steam.</font></B>'
     if tumanV > 0:set tumanV = 0&'<B><font color=green>Fog enemy torn apart pressure.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind3':
cla
!Creating fog
'vacuum sphere, creates a shield 1500 units. cost 150 manna.'
     act 'vacuum sphere (150 manna)':
     cla
     *clr
     set manna = manna - 150
     set defence = defence + 1500
     '<B><font color=green>You have created around themselves the vacuum, now you <<defence>> protection units.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind4':
cla
!Creating fog
'vacuum shells, cause damage to the 2500 units and destroy the clones fog, very difficult to dodge. cost 250 manna.'
     act 'vacuum shells (250 manna)':
     cla
     *clr
     set manna = manna - 250
     set damTip = 2500
     set bonusSh = 100
     '<B><font color=green>You have created around themselves many areas and they vacuum at high speed with a whistle flew over the battlefield.</font></B>'
     if klonV > 0:set klonV = 0&'<B><font color=green>Clone the enemy broke and turned into steam.</font></B>'
     if tumanV > 0:set tumanV = 0&'<B><font color=green>Fog enemy torn apart pressure.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='wind5':
cla
!Creating fog
'devouring vacuum, sucks shield enemy destroying it whatever strength he was not. cost 500 manna.'
     if defenceV > 0:
		 act 'devouring vacuum (500 manna)':
		 cla
		 *clr
		 set manna = manna - 500
		 set defenceV = 0
		 set defenceMV = 0
		 set defenceWV = 0
		 set defenceActParV = 0
		 set defenceActParMV = 0
		 set defenceActV = 0
		 set defenceActMV = 0
		 set defAtkMV = 0
		 '<B><font color=green>You have created around themselves the vacuum that sucked in the defense of the enemy to destroy it.</font></B>'
		 xgt'fight','sta'
		 end
     end
     if defenceV <= 0:
     'The enemy is no shield that can destroy this spell.'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='water1':
cla
!Creating fog
'creek manna, inflicts 100 Absorbs units 1000 units of manna. cost 10 manna.'
     act 'creek manna (10 manna)':
     cla
     *clr
     set manna = manna - 10
     set damTip = 100
     set damTipM = 1000 
     '<B><font color=green>You have created a small hand in the water jet which was shot at the enemy.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='water2':
cla
!Creating fog
'flooding, inflicts 1000 Absorbs units 500 units of manna. cost 100 manna.'
     act 'flooding (100 manna)':
     cla
     *clr
     set manna = manna - 100
     set damTip = 1000
     set damTipM = 500
     '<B><font color=green>From your mouth a flood of water flooded the countryside.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='water3':
cla
!Creating fog
'blister, creates a protective sphere of water 1500 units of protection against all impacts, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. cost 150 manna.'
     act 'blister (150 manna)':
     cla
     *clr
     set manna = manna - 150
     set defence = defence + 1500
     set defenceM = defenceM + 1500
     set defenceW = defenceW + 1500
     set defenceActPar = 500
     set defenceActParM = 500
     set defenceAct = 10
     set defenceActM = 10
     '<B><font color=green>Water creates the scope of protection around you.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='water4':
cla
!Creating fog
'Water shark missile, inflicts 1500 Absorbs units 2500 units of manna. cost 250 manna.'
     act 'Water shark missile (250 manna)':
     cla
     *clr
     set manna = manna - 250
     set damTip = 1500
     set damTipM = 2500
     set bonusSh = 50
     '<B><font color=green>You released a pack of sharks consisting of water flying towards the enemy as torpedoes.</font></B>'
     if klonV > 0:set klonV = 0&'<B><font color=green>Clones enemy disappeared.</font></B>'
     xgt'atakA','atak'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end

if $ARGS[0]='water5':
cla
!Creating fog
'The Great Flood, creates a huge field that absorbs water and deflating the enemy manna from it and passing it to strengthen protection. cost 500 manna.'
     act 'The Great Flood (500 manna)':
     cla
     *clr
     set manna = manna - 500
     set defence = defence + 5000
     set defenceM = defenceM + 5000
     set defenceW = defenceW + 5000
     set defenceActPar = 500
     set defenceActParM = 500
     set defenceAct = 10
     set defenceActM = 10
     set defAtkM = 10
     '<B><font color=green>You have filled the whole neighborhood with water that protects you and devour enemy mana.</font></B>'
     if klonV > 0:set klonV = 0&'<B><font color=green>Clones enemy disappeared.</font></B>'
     xgt'fight','sta'
     end

act 'physical attacks':gt'boxing'
     if magik > 0:
     act 'magic attack':gt'magik'
     end
end
--- spell ---------------------------------

# ender
if $ARGS[0]='loss':
cla
gs'nill'
	 
     if test = 1:
     set test = 0
     act 'further':gt'test'
     exit
     end

     if jugoFight = 1:
     set health = 100
     set jugoFight = 0
     'You fell on the floor and consciousness began to slip away from you.'
     act 'further':gt'karinPRE'
     exit
     end
     if jugoFight = 2:
     set health = vital*10
     set jugoFight = 0
     'You fell on the floor is no longer able to fight Juugo.'
     act 'further':gt'lab','start'
     exit
     end
     if karinFight = 1:
     set health = vital*10
     set karinFight = 0
     'You fell on the floor is no longer able to fight with Karin.'
     act 'further':gt'lab','start'
     exit
     end
     if prostitutFight = 1:
     set health = 100
     set prostitutFight = 0
     set money = 0
     set SUB = SUB + 1
     set Loss = Loss + 1
     if rikudo > 10:set rikudo = rikudo - 10
     '<center><img src="pics/spit.jpg" ></center>'
     'You hit the ground. Prostitute kicked you a couple of times. She searched and you took all the money. After that.'
     act 'further':gt'park','start'
     exit
     end
     if prostitutFight = 2:
     set health = 100
     set prostitutFight = 0
     set money = 0
     set SUB = SUB + 1
     set Loss = Loss + 1
     set bandfight = bandfight - 1
     if rikudo > 10:set rikudo = rikudo - 10
     '<center><img src="picLoss/band.jpg" ></center>'
     'You hit the ground. Bandit lit and searched you, took all your money, then ordered, "open your mouth slut". You have submitted and opened her mouth. He inhaled and flicked ashes in your mouth. "I hope you learned a lesson slut, The next time I will not be so kind, I will punish the present."'
     act 'further':gt'park','start'
     exit
     end
     if prostitutFight = 3:
     set health = 100
     set prostitutFight = 0
     set money = 100
     set SUB = SUB + 2
     set Loss = Loss + 1
     set stellfight = stellfight - 1
     if rikudo > 10:set rikudo = rikudo - 10
     '<center><img src="picVA/irinaQW7.jpg" ></center>'
     'You hit the ground. Prostitute kicked you a couple of times. She searched and you took all the money. She that was not enough, He has ordered you to kneel. Pulled off her panties, she sat on your face, forcing to lick, smelling secretions and semen pussy. Fearing new beatings, you carefully polished his tongue her crotch. After a few minutes, remains fairly, she left you come to life.'
     act 'further':gt'park','start'
     exit
     end
     
     if KisaFight = 1:
     set health = 100
     set KisaFight = 0
     set SUB = SUB + 1
     set Loss = Loss + 1
     if rikudo > 10:set rikudo = rikudo - 10
     if KisameSex = 0:set KisameSex = 1&Set guy = guy + 1
     set sex = sex + 1
     set vagina = vagina + 1
     set rape = rape + 1
     set horny = 0
     '<center><img src="picQW/kisameSex.jpg" ></center>'
     'Kisame swims around you and laughs, I have great fun baby. He grabbed you for utyanul feet to the bottom of the pool, where you thrust your cock in pussy, you try not to drown in the water until you Kisame fucks, He methylene your insides with his cock like a jackhammer and you feel, that no longer can not breathe, in the eyes darken, Kisame ulybaetsya and leans to you, kiss me, You have stuck her lips to his mouth. Finally he finished and his seed shark was swimming in the water.'
     act 'Crawl out of the pool':gt'street'
     exit
     end
     
     if RapistFight = 1:
     set RapistFight = 0
     set health = 100
     set RapistFight = 0
     set SUB = SUB + 1
     set Loss = Loss + 1
     if rikudo > 10:set rikudo = rikudo - 10
     set sex = sex + 1
     set vagina = vagina + 1
     Set guy = guy + 1
     set cumpussy = cumpussy + 1
     set manna = 20
     set willpower = 20
     set rape = rape + 1
     set picrand = RAND (1,6)
         if picrand = 1:'<center><img src="pics/gopslut.jpg" ></center>'
         if picrand = 2:'<center><img src="pics/gopslut2.jpg" ></center>'
         if picrand = 3:'<center><img src="pics/gopslut3.jpg" ></center>'
         if picrand = 4:'<center><img src="pics/gopslut4.jpg" ></center>'
         if picrand = 5:'<center><img src="pics/gopslut5.jpg" ></center>'
         if picrand = 6:'<center><img src="pics/gopslut6.jpg" ></center>'
         Set horand = RAND (1,100)
     'Swollen lips whispered against shocks: В«do not have to begВ», В«prayВ». It was all in vain, words were absorbed relentless darkness of the night benevolent, known as the most ruthless and lost to the light of day people. you lost, was a pathetic attempt to fight but, alas, seen today you have to look at the starry sky, until your body is an obedient tool to meet the dirtiest fantasies. Since you ripped clothes, leaving the body defenseless, before the cold hands, touch inaccessible to outsiders places, You roared in frustration. Through closed eyelids you have not seen it over you with excite stump hung your Tormentor. Seconds later, toxic cloud enveloped the nostrils, perhaps, was not so disgusting to feel the rhythmic violence between the legs, how to feel the smell of the stench of omnipotence. overcoming aversion, you unstuck swollen from crying eyes, face the beast you are not considered, he was the son of Darkness, and she gave him his protection. time of Silence, diluted dirty insults to your address, replaced by the cries and moans of bliss. Trying his best, you portrayed, that he brought you to the highest peak of passion, although he was only filled with pain your crotch, Damage done to virtually every piece of delicate skin. The trick is brought to you by relief, rapist soon finished, poured over your belly and pubis his searing seed, quickly dressed, he rushed, hiding away as suddenly, as he had appeared. You did not care about pain, abasement, over you cutting fiery trail sky falling stars, giving you the chance to make a wish.'
     act 'cry':gt'street','start'
     exit     
     end
     if gangrapeFight = 1:
     set gangrapeFight = 0
     set health = 100
     set SUB = SUB + 1
     set Loss = Loss + 1
     if rikudo > 10:set rikudo = rikudo - 10
     'Drunken mug threw you to the spit-covered floor porch and began to tear your clothes, you no longer have the strength to rebel by.'
     act 'cry':gt'sexm','gangbang'
     end
     
     if ZverevaFight = 1:
     ZverevaFight = 0
     zverRageQW=10
     health = 100
     Loss = Loss + 1
     '<center><img src="pics/spit.jpg" ></center>'
     'Christina Zverev beat you and you fall to the ground crying in front of the whole school. She hissed angrily to you "Now I`ll make your life hell, crud!" She leaned over to your face and said "Open your mouth and asshole Vysun language." You listened to Christina opened her mouth and tongue hanging out. Christina immediately relish spat in your mouth "swallow bitch!" You are in front of the whole school humbly swallowing harchek, Christina then again spat already hitting you in the face. Jeer at you a couple of times Christina kicking you in the ribs turned around and went to the school site.'
     act 'Get_Away':gt'gschool'
     end
end

if $ARGS[0]='win':
cla
gs'nill'

     if ZverevaFight = 1:
     zverSlutQW=1
     set Win = Win + 1
     ZverevaFight = 0
     $npcText[18]='Christina after catching pizdyuley from you, in front of the whole school talked about, how to suck dick at fizruka, after that terrifies the surrounding Christina was broken and humiliated.'
     grupTipe[18]=-1
     'Christina Zvereva fell to the ground, you grabbed her by the hair. "Well, say, you suck at fizruka or not?" Christina roaring confessed before the whole school in the, she sucked dick in fizruka.'
     act 'Get_Away':gt'gschool'
     end

     if test = 1:
     set test = 0
     act 'further':gt'test'
     exit
     end

     if jugoFight = 2:
     set health = vital*10
     set rikudo = rikudo + 10
     set jugoFight = 0
         if winJugo = 0:set winJugo = 1
     'Juugo fell to the floor and can no longer sparingovat.'
     act 'further':gt'lab','start'
     exit
     end
     if karinFight = 1:
     set health = vital*10
     set karinFight = 0
     set rikudo = rikudo + 10
         if winKarin = 0:set winKarin = 1
     'Karin fell to the floor and can no longer sparingovat.'
     act 'further':gt'lab','start'
     exit
     end
     if prostitutFight = 1:
     set prostitutFight = 0
     set whoreQW = 1
     set DOM = DOM + 1
     set Win = Win + 1
     set rikudo = rikudo + 10
     'Prostitute fell to the ground and began to plead with you not to beat her again.'
     act 'further':gt'park','start'
     exit
     end
     if prostitutFight = 2:
     set prostitutFight = 0
     set DOM = DOM + 1
     set Win = Win + 1
     set bandfight = bandfight + 1
     set rikudo = rikudo + 10
     if prostOnce = 0:set prostOnce = 1&set money = money + RAND (500,5000)
     'Bandit fell to the ground with a groan, you took his wallet and adding a couple of times in the ribs foot away from him.'
     act 'further':gt'park','start'
     exit
     end
     if prostitutFight = 3:
     set prostitutFight = 0
     set DOM = DOM + 1
     set Win = Win + 1
     set stellfight = stellfight + 1
     set rikudo = rikudo + 10
     set money = money + RAND (300,500)
     'Beaten prostitute fell to the ground, you crash it again in the ribs and it took all my money and gave it to you, Only you did not beat her anymore.'
     act 'further':gt'park','start'
     exit
     end
     if KisaFight = 1:
     set KisameDead = 1
     KisaFight = 2
     set DOM = DOM + 1
     set Win = Win + 1
     if rikudo > 10:set rikudo = rikudo + 3000
     set money = money + 5000
     'You killed Kisame and took away his body 5000 rubles.'
     act 'further':gt'street'
     exit
     end
     
     if RapistFight = 1:
     set RapistFight = 0
     if rikudo > 10:set rikudo = rikudo + 100
     set DOM = DOM + 1
     set Win = Win + 1
     if rapistOnce = 0:set rapistOnce = 1&set money = money + RAND (500,2000)
     'You beat a rapist and took his wallet.'
     act 'Go_Out':gt'park','start'
     exit     
     end
     
     if gangrapeFight = 1:
     set gangrapeFight = 0
     if rikudo > 10:set rikudo = rikudo + 100
     set DOM = DOM + 1
     set Win = Win + 1
     if gangrapeOnce = 0:set gangrapeOnce = 1&set money = money + RAND (500,2000)
     'Drunken mug stuck in a broken snout spit-covered floor in the entryway, you got his money from his pocket saying this for moral damages. Guys looking at you warily parted.'
     act 'Go_Out':gt'street'
     end
end
--- ender ---------------------------------

# nill
inFight=0


set stun = 0
set stunV = 0
set tuman = 0
set tumanV = 0
set klon = 0
set klonV = 0
set blood = 0
set bloodV = 0
set defence = 0
set defenceV = 0
set izanagiV = 0
set round = 0
set heartV = 0
set hodtimeV = 0
set hodtime = 0
set damTip = 0
set damTipV = 0
set unmaterialV = 0
set unmaterial = 0
set defenceM = 0
set defenceW = 0
set defenceActPar = 0
set defenceActParM = 0
set defenceAct = 0
set defenceActM = 0
set defenceMV = 0
set defenceWV = 0
set defenceActParV = 0
set defenceActParMV = 0
set defenceActV = 0
set defenceActMV = 0
set defAtk = 0
set defAtkV = 0
set defAtkM = 0
set defAtkMV = 0
set damTipM = 0
set damTipMV = 0
set kisamePro = 0
set poisonAV = 0
set SasoriBody = 0
set tobiPic = 0
set kisamePic = 0
set sasoriPic = 0
set konanPic = 0
set hidanPic = 0
set barierV = 0
set hidanAtk = 0
set hidanPic = 0
--- nill ---------------------------------

# test
set rost = 170
set fat = 110

!stats
set rikudo = 9000
set stren = 100
set speed = 100
set react = 100
set agil = 100
set vital = 100
set intel = 100
set will = 100
set boxing = 100
set magik = 10
set health = vital*10 + stren*5
set willpower = intel*5 + will*5
set manna = (intel*magik) + magik*100 + vital*10 + rikudo
!!!!!!!!!!!!!!!!!!!!!!
set vmeat = stren + vital
set vmeat = vmeat/8
set vfat = fat/10
set Kves = vmeat + vfat
set krost = rost - 130
set ves = Kves + krost - (agil/10)
set talia = ves - (agil/10)
set grudi = talia + 10 + vfat + silicone
set bedra = talia + 15 + (vmeat/2) + vfat
set titK = grudi - talia
if titK <= 10:set tits = 0
if titK > 10 and titK <= 15:set tits = 1  
if titK > 15 and titK <= 20:set tits = 2
if titK > 20 and titK <= 25:set tits = 3
if titK > 25 and titK <= 30:set tits = 4
if titK > 30 and titK <= 35:set tits = 5
if titK > 35:set tits = 6

!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set spelltuman = 1
set spellklon = 1
set spellstun = 1
set spellweap = 1
set spellwind = 1
set spellklon2 = 1
set spellenergo = 1
set spellinit = 1
set spellhel = 1
set spellreset = 1
set spellavtoklon = 1
set spellhand = 1
set spellfire1 = 1
set spellfire2 = 1
set spellfire3 = 1
set spellfire4 = 1
set spellfire5 = 1
set spellele1 = 1
set spellele2 = 1
set spellele3 = 1
set spellele4 = 1
set spellele5 = 1
set spellert1 = 1
set spellert2 = 1 
set spellert3 = 1 
set spellert4 = 1 
set spellert5 = 1 
set spellwind1 = 1
set spellwind2 = 1
set spellwind3 = 1
set spellwind4 = 1
set spellwind5 = 1
set spellwater1 = 1
set spellwater2 = 1
set spellwater3 = 1
set spellwater4 = 1
set spellwater5 = 1
set spellunmat = 1
set spellbefshild = 1
'<<rost>>cm <<ves>>kg <<grudi>>-<<talia>>-<<bedra>>  size of the breasts <<tits>>'
'All articles 100, all spells, is_magical 10, forces Rikudo 9000'
'Do you have another second shadow sedtse, which may once to die for you.'
set heart = 1

set mannaReset = 10000


     act '(Toby magician12)':
     cla
     set $nameV = 'Toby'
	 !stats
	 set strenV = 300
	 set speedV = 100
	 set agilV = 100
	 set reactV = 100
	 set vitalV = 100
	 set intelV = 100
   	 set willV = 200
	 !skills
	 set magikV = 12
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 6
   	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 set tobiPic = 1
   	 !!!!!!!!!!!!!!!!!!!!
     set unmaterialV = 40
     set izanagiOnce = 0
     set tobizanagi = 0
     set izanagiV = 1
     set GedoMazo = 0
     set TobiStena = 0
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
     
     
     act '(Kisame magician10)':
     cla
     set horny = horny + 10
     set $nameV = 'Kisame'
	 !stats
	 set strenV = 300
	 set speedV = 100
	 set agilV = 100
	 set reactV = 100
	 set vitalV = 200
	 set intelV = 100
   	 set willV = 50
	 !skills
	 set magikV = 10
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 5
   	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 set kisamePic = 1
   	 !!!!!!!!!!!!!!!!!!!!
	 set KisaFight = 1
	 set klonV = 5
	 !set defenceV = 10000
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
     
     act '(Sasori magician10)':
     cla
     set $nameV = 'doll Sasori'
	 !stats
	 set strenV = 100
	 set speedV = 50
	 set agilV = 50
	 set reactV = 50
	 set vitalV = 100
	 set intelV = 100
   	 set willV = 100
	 !skills
	 set magikV = 10
	 set boxingV = 50
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 9
   	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 set sasoriPic = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 set klonV = 3
   	 set SasoriBody = 6 
	 !set defenceV = 10000
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
     
     act '(Conan magician10)':
     cla
     set $nameV = 'Conan'
	 !stats
	 set strenV = 60
	 set speedV = 105
	 set agilV = 100
	 set reactV = 100
	 set vitalV = 60
	 set intelV = 100
   	 set willV = 100
	 !skills
	 set magikV = 10
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 10
   	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 set konanPic = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 !set klonV = 3
	 !set defenceV = 10000
	 set unmaterialV = 20
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
     
     act '(Hidan magician9)':
     cla
     set $nameV = 'Hidan'
	 !stats
	 set strenV = 500
	 set speedV = 100
	 set agilV = 80
	 set reactV = 100
	 set vitalV = 600
	 set intelV = 100
   	 set willV = 100
	 !skills
	 set magikV = 9
	 set boxingV = 110
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 11
   	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 set hidanPic = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 !set klonV = 3
	 !set defenceV = 10000
	 set barierV = 5500
	 set hidanAtk = 1
	 !set unmaterialV = 20
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
     
     
     
     act '(Juugo, mutant, power 600)':
	 cla
	 !set judosparday = day
	 set $nameV = 'Juugo'
	 !stats
	 set strenV = 600
	 set speedV = 60
	 set agilV = 60
	 set reactV = 50
	 set vitalV = 200
	 set intelV = 50
	 set willV = 50
	 !skills
	 set magikV = 1
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 0
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
	 set jugoFight = 2
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
     act '(Karin, magician6)':
	 cla
	 set $nameV = 'Karin'
	 !stats
	 set strenV = 60
	 set speedV = 90
	 set agilV = 90
	 set reactV = 60
	 set vitalV = 100
	 set intelV = 100
	 set willV = 100
	 !skills
	 set magikV = 6
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 4
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
	 set karinFight = 1
	 set klonV = 3
	 set tumanV = 10
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
	 act '(knife thrower, magician1)':
	 cla
	 set $nameV = 'knife thrower'
	 !stats
	 set strenV = 40
	 set speedV = 40
	 set agilV = 40
	 set reactV = 40
	 set vitalV = 60
	 set intelV = 60
	 set willV = 60
	 !skills
	 set magikV = 1
	 set boxingV = 60
	 set shootV = 60
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 1
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 if spellavtoklon = 1:set klon = 3
   	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
	 act '(misty thrower, magician2)':
	 cla
	 set $nameV = 'misty thrower'
	 !stats
	 set strenV = 50
	 set speedV = 50
	 set agilV = 50
	 set reactV = 50
	 set vitalV = 60
	 set intelV = 60
	 set willV = 60
	 !skills
	 set magikV = 2
	 set boxingV = 60
	 set shootV = 60
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 2
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 if spellavtoklon = 1:set klon = 3
   	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
	 act '(Misty lord of the Clones, magician3)':
	 cla
	 set $nameV = 'Misty lord of the Clones'
	 !stats
	 set strenV = 60
	 set speedV = 60
	 set agilV = 60
	 set reactV = 60
	 set vitalV = 70
	 set intelV = 70
	 set willV = 70
	 !skills
	 set magikV = 3
	 set boxingV = 70
	 set shootV = 70
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 3
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 if spellavtoklon = 1:set klon = 3
   	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
	 act '(paralyzing the magician, magician4)':
	 cla
	 set $nameV = 'paralyzing the magician'
	 !stats
	 set strenV = 70
	 set speedV = 70
	 set agilV = 70
	 set reactV = 70
	 set vitalV = 80
	 set intelV = 80
	 set willV = 80
	 !skills
	 set magikV = 4
	 set boxingV = 80
	 set shootV = 80
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 4
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 if spellavtoklon = 1:set klon = 3
   	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
	 
	 act '(commando)':
	 cla
	 set $nameV = 'commando'
	 !stats
	 set strenV = 200
	 set speedV = 100
	 set agilV = 100
	 set reactV = 100
	 set vitalV = 200
	 set intelV = 10
	 set willV = 10
	 !skills
	 set magikV = 0
	 set boxingV = 100
	 set shootV = 80
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 8
	 set dospehV = 800
	 set dospehEnV = 10
	 !!!!!!!!!!!!!!!!!!!!
   	 set test = 1
   	 !!!!!!!!!!!!!!!!!!!!
   	 if spellavtoklon = 1:set klon = 3
   	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end





















--- test ---------------------------------

# priziv
if $ARGS[0]='tobi':
set $nameV = 'Toby'
!stats
set strenV = 300
set speedV = 100
set agilV = 100
set reactV = 100
set vitalV = 100
set intelV = 100
set willV = 200
!skills
set magikV = 12
set boxingV = 100
set shootV = 100
!parameters
set healthV = vitalV*10 + strenV*5
set mannaV = intelV*magikV + magikV*100 + vitalV*10
set willpowerV = willV*10
set BonusAtakV = 0
set BonusDefV = 0
!Programme of Action
set program = 6
set unmaterialV = 40

set stunV = 0
end


if $ARGS[0]='sasori':
set $nameV = 'doll Sasori'
!stats
set strenV = 100
     if SasoriBody = 5:
	 set speedV = 100
	 set agilV = 100
	 set reactV = 100
	 end
	 if SasoriBody = 4:
	 set speedV = 110
	 set agilV = 100
	 set reactV = 100
	 end
	 if SasoriBody = 3:
	 set speedV = 120
	 set agilV = 105
	 set reactV = 105
	 end
	 if SasoriBody = 2:
	 set speedV = 130
	 set agilV = 110
	 set reactV = 110
	 end
set vitalV = 100
set intelV = 100
set willV = 100
!skills
set magikV = 10
set boxingV = 100
set shootV = 100
!parameters
set healthV = vitalV*10 + strenV*5
set mannaV = intelV*magikV + magikV*100 + vitalV*10
set willpowerV = willV*10
set BonusAtakV = 0
set BonusDefV = 0
!Programme of Action
set program = 9
set klonV = 3
set stunV = 0
end

if $ARGS[0]='sasori1':
set $nameV = 'Sasori'
!stats
set strenV = 500
set speedV = 140
set agilV = 120
set reactV = 110
set vitalV = 500
set intelV = 100
set willV = 100
!skills
set magikV = 10
set boxingV = 105
set shootV = 100
!parameters
set healthV = vitalV*10 + strenV*5
set mannaV = intelV*magikV + magikV*100 + vitalV*10
set willpowerV = willV*10
set BonusAtakV = 0
set BonusDefV = 0
!Programme of Action
set program = 9
set klonV = 3
set stunV = 0
end


--- priziv ---------------------------------

# defence
if defence <= 0:
set defence = 0
set defenceM = 0
set defenceW = 0
set defenceActPar = 0
set defenceActParM = 0
set defenceAct = 0
set defenceActM = 0
set defAtk = 0
set defAtkM = 0
end

if defenceV <= 0:
set defenceV = 0
set defenceMV = 0
set defenceWV = 0
set defenceActParV = 0
set defenceActParMV = 0
set defenceActV = 0
set defenceActMV = 0
set defAtkV = 0
set defAtkMV = 0
end




if defenceAct > 0:
set defence = defence + defenceActPar
set defenceAct = defenceAct - 1
set defActParK = defenceActPar/100
set manna = manna - defActParK
'<B><font color=green>Regeneration consumes protection <<defActParK>> units of manna.</font></B>'
end

if defenceActM > 0:
set defenceM = defenceM + defenceActParM
set defenceActM = defenceActM - 1
set defActParKM = defenceActParM/100
set manna = manna - defActParKM
'<B><font color=green>Regeneration magic defense consumes <<defActParKM>> units of manna.</font></B>'
end

if defenceActV > 0:
set defenceV = defenceV + defenceActParV
set defenceActV = defenceActV - 1
set mannaV = mannaV -  (defenceActParV/100)
end

if defenceActMV > 0:
set defenceMV = defenceMV + defenceActParMV
set defenceActMV = defenceActMV - 1
set mannaV = mannaV -  (defenceActParMV/100)
end

if defAtk > 0:
set defAtk = defAtk - 1
'<B><font color=green>Your defense attacks the enemy.</font></B>'
gs'atakB','atak'
end

if defAtkV > 0:
set defAtkV = defAtkV - 1
'<B><font color=red>Protecting the enemy attacks you.</font></B>'
gs'atakB1','atak'
end

if defAtkM > 0:
set defAtkM = defAtkM - 1
     if defenceMV <= 0 and unmaterialV = 0:
     set defDamM = RAND (defenceActParM/2,defenceActParM)
     set mannaV = mannaV - defDamM
     set defence = defence + defDamM
     '<B><font color=green>Your defense swallowed <<defDamM>> mana from an enemy.</font></B>'
     end
     if defenceMV > 0:
     set defenceMV = defenceMV + defenceActParM
     '<B><font color=green>Your defense caused <<defenceActParM>> points of damage protection from damage manna enemy.</font></B>'
     end
     if unmaterialV > 0:
     '<B><font color=green>Your defense is trying to absorb the manna but it does not work, the enemy is not material.</font></B>'
     end
end

if defAtkMV > 0:
set defAtkMV = defAtkMV - 1
     if defenceM <= 0 and unmaterial = 0:
     set defDamMV = RAND (defenceActParMV/2,defenceActParMV)
     set manna = manna - defDamMV
     set defenceV = defenceV + defDamMV
     '<B><font color=red>Protecting the enemy swallowed <<defDamMV>> manna from you and this manna went on strengthening the defense.</font></B>'
     end
     if defenceM > 0:
     set defenceM = defenceM + defenceActParMV
     '<B><font color=red>Your defense against magic damage inflicted damage <<defenceActParMV>> units.</font></B>'
     end
     if unmaterial > 0:
     '<B><font color=red>The defense is trying to absorb your manna but it does not work.</font></B>'
     end
end
--- defence ---------------------------------

# ----------

--- ---------- ---------------------------------

# kikbox
if $ARGS[0]='start':
cla
if health <= 0:
'<B><font color=red>You lost by TKO</font></B>'
xgt'enderKik','loss'
exit
end 

if healthV <= 0:
'<B><font color=green><<$nameV>> lost by TKO</font></B>'
xgt'enderKik','win'
exit
end 

gs'befKik'
'<B>========================(ROUND <<round>>)===========================</B>'
if minround = 1:'<B>the battle 0:30</B>'
if minround = 2:'<B>the battle 1:00</B>'
if minround = 3:'<B>the battle 1:30</B>'
if minround = 4:'<B>the battle 2:00</B>'
if minround = 5:'<B>the battle 2:30</B>'
'<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, endurance <B><font color=green><<staminaV>></font></B>'
'Your life <B><font color=red><<health>></font></B>, endurance <B><font color=green><<stamina>></font></B>'
'<B>==========================================================</B>'
'your points <<pointKik>>, points rival <<pointKikV>>'
'<B>==========================================================</B>'
gs'initKik'

     if hod = 0:
     !player attacks
     '<font color=green>You can attack</font>'
		 act 'Apply fast Jeb':
		 cla
		 set damage = RAND (stren/12,stren/8)
		     if damage <= 0:set damage = 1
		 set koefatak = (speed + reakt + jab)*2
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=green>You deal with a quick jab step forward.</font>'
		 gs'Kikatak','player'
		 xgt'kikbox','sta'
		 end
		 
		 act 'Apply power punch':
		 cla
		 set damkoef = stren*20/100
		 set damage = RAND (stren - damkoef,stren + damkoef)
		     if damage <= 0:set damage = 1
		 set koefatak = (speed + reakt + punch)
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=green>You apply a powerful punch.</font>'
		 gs'Kikatak','player'
		 xgt'kikbox','sta'
		 end
		 
		 act 'Apply kick':
		 cla
		 set damkoef = stren*20/100
		 set damage = RAND ((stren - damkoef)*3,(stren + damkoef)*3)
		     if damage <= 0:set damage = 1
		 set koefatak = (speed + reakt + kik)/2
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=green>You put a powerful kick leg.</font>'
		 gs'Kikatak','player'
		 xgt'kikbox','sta'
		 end

     end
     
     if hod = 1:
     !enemy attacks
     '<font color=red><<$nameV>> attacks</font>'
     set tiprand = RAND (0,2)
         if tiprand = 0:
         set damage = RAND (strenV/12,strenV/8)
		     if damage <= 0:set damage = 1
		 set koefatak = (speedV + reaktV + JabV)*2
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=red><<$nameV>> causes a quick jab with a step forward.</font>'
		 gs'Kikatak','enemy'
		 xgt'kikbox','sta'
         end
         
         if tiprand = 1:
		 set damkoef = strenV*20/100
		 set damage = RAND (strenV - damkoef,strenV + damkoef)
		     if damage <= 0:set damage = 1
		 set koefatak = (speedV + reaktV + punchV)
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=red><<$nameV>> causes a power punch.</font>'
		 gs'Kikatak','enemy'
		 xgt'kikbox','sta'
         end
         
         if tiprand = 2:
		 set damkoef = strenV*20/100
		 set damage = RAND ((strenV - damkoef)*3,(strenV + damkoef)*3)
		     if damage <= 0:set damage = 1
		 set koefatak = (speedV + reaktV + kikV)/2
		 set koefpop = koefatak*20/100 
		 set popad = RAND (koefatak - koefpop,koefatak + koefpop)
		 '<font color=red><<$nameV>> tries for a kick.</font>'
		 gs'Kikatak','enemy'
		 xgt'kikbox','sta'
         end
     end
end


if $ARGS[0]='sta':
cla
set ionce = 0
'<B>==========================================================</B>'
if minround = 1:'<B>the battle 1:00</B>'
if minround = 2:'<B>the battle 1:30</B>'
if minround = 3:'<B>the battle 2:00</B>'
if minround = 4:'<B>the battle 2:30</B>'
if minround = 5:'<B>the battle 3:00</B>'
'<B>==========================================================</B>'
'<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, endurance <B><font color=green><<staminaV>></font></B>'
'Your life <B><font color=red><<health>></font></B>, endurance <B><font color=green><<stamina>></font></B>'
'<B>==========================================================</B>'
act 'further':gt'kikbox','start'
     if minround = 5:
     cla
     set minround = 0
     set round = round + 1
     'Rang the gong indicating the end of the round'
         if round <= formula: 
			 act 'Vacationing in the corner':
			 cla
			 'You rest in his corner.'
			 act 'In the ring':gt'kikbox','start'
			 end
         end
         
         if round > formula and sparing = 0: 
			 act 'Get out in the middle of announcing the winner':
			 cla
			     if pointKik > pointKikV:
			     'you won.'
			     act 'Leave the ring':gt'enderKik','win'
			     end 
			     if pointKik < pointKikV:
			     'you lost.'
			     act 'Leave the ring':gt'enderKik','loss'
			     end 
			     if pointKik = pointKikV:
			     'draw.'
			     act 'Leave the ring':gt'enderKik','draw'
			     end 
			 end
         end
         
         if round > formula and sparing = 1: 
			 act 'Leave the ring':gt'fit','start'
         end
     
     end
end


--- kikbox ---------------------------------

# befKik
if round > 0:
     if minround < 5:
     set minround = minround + 1
     end
end

if round = 0:set round = 1
--- befKik ---------------------------------

# initKik

set init = speed + reakt
set initKoef = init*20/100
set initi = RAND (initi - initKoef,initi + initKoef)
set initV = speedV + reaktV
set initKoefV = initV*20/100
set initiV = RAND (initiV - initKoefV,initiV + initKoefV)

if initi > initiV and hodtime < 3 and ionce = 0 or hodtimeV >= 3 and ionce = 0:
set hod = 0
set hodtime = hodtime + 1
if hodtimeV >= 3:set hodtimeV = 0
'<font color=green>You took the initiative</font>'
set ionce = 1
end

if initi < initiV and hodtimeV < 3 and ionce = 0 or hodtime >= 3 and ionce = 0:
set hod = 1
set hodtimeV = hodtimeV + 1
if hodtime >= 3:set hodtime = 0
'<font color=red><<$nameV>> seized the initiative</font>'
set ionce = 1
end 
 
if initi = initiV and hodtime < 3 and hodtimeV < 3 and ionce = 0:
set inrand = RAND (0,1)
set ionce = 1
     if inrand = 0:
     set hod = 0
     set hodtime = hodtime + 1
     '<font color=green>You took the initiative</font>'
     end
     if inrand = 1:
     set hod = 1
     set hodtimeV = hodtimeV + 1
     '<font color=red><<$nameV>> seize the initiative</font>'
     end 
end  

if initi = initiV and hodtime >= 3 and ionce = 0 or initi = initiV and hodtimeV >= 3 and ionce = 0:
set hodtime = 0
set hodtimeV = 0
set inrand = RAND (0,1)
set ionce = 1
     if inrand = 0:
     set hod = 0
     set hodtime = hodtime + 1
     '<font color=green>You took the initiative</font>'
     end
     if inrand = 1:
     set hod = 1
     set hodtimeV = hodtimeV + 1
     '<font color=red><<$nameV>> seize the initiative</font>'
     end     
end




--- initKik ---------------------------------

# Kikatak
if $ARGS[0]='player':
set defsumV = agilV + reaktV + KikDefV
set defkofV = defsumV*20/100
set defV = RAND (defsumV - defkofV,defsumV + defkofV)
     if popad >= defV*2:
     '<B><font color=green>CRETE</font></B>'
     set damageKrit = damage*20/100
     set damage = damage + damageKrit
     set healthV = healthV - damage
     set pointKik = pointKik + 1
     '<font color=green>you applied <<damage>> points of damage</font>'
         if damage >= healthV*20/100:
         set pointKik = pointKik + 1
         '<font color=green><<$nameV>> fell into the ring</font>'
             if healthV < (vitalV*10 + strenV*5)/4:
             '<font color=green><<$nameV>> knocked out. This is a victory!!!</font>'
             xgt'enderKik','winKO'
             exit
             end
         end
     end 
     if popad < defV*2 and popad >= defV:
     '<font color=green>hit</font>'
     set healthV = healthV - damage
     set pointKik = pointKik + 1
     '<font color=green>you applied <<damage>> points of damage</font>'
         if damage >= healthV*20/100:
         set pointKik = pointKik + 1
         '<font color=green><<$nameV>> fell into the ring</font>'
             if healthV < (vitalV*10 + strenV*5)/4:
             '<font color=green><<$nameV>> knocked out. This is a victory!!!</font>'
             xgt'enderKik','winKO'
             exit
             end
         end
     end 
     if popad < defV:
     '<font color=red>bloomer</font>'
     end 

end

if $ARGS[0]='enemy':
set defsum = agil + reakt + KikDef
set defkof = defsum*20/100
set def = RAND (defsum - defkof,defsum + defkof)
     if popad >= def*2:
     '<B><font color=red>CRETE</font></B>'
     set damageKrit = damage*20/100
     set damage = damage + damageKrit
     set health = health - damage
     set pointKikV = pointKikV + 1
     '<font color=red>you have caused <<damage>> points of damage</font>'
         if damage >= health*20/100:
         set pointKikV = pointKikV + 1
         '<font color=red>You fell into the ring</font>'
             if health < (vital*10 + stren*5)/4:
             '<font color=red>You knocked out. This defeat!</font>'
             xgt'enderKik','loss'
             exit
             end
         end
     end 
     if popad < def*2 and popad >= def:
     '<font color=red>hit</font>'
     set health = health - damage
     set pointKikV = pointKikV + 1
     '<font color=red>you have caused <<damage>> points of damage</font>'
         if damage >= health*20/100:
         set pointKikV = pointKikV + 1
         '<font color=red>You fell into the ring</font>'
             if health < (vital*10 + stren*5)/4:
             '<font color=red>You knocked out. This defeat!</font>'
             xgt'enderKik','loss'
             exit
             end
         end
     end 
     if popad < def:
     '<font color=green>bloomer</font>'
     end 

end
--- Kikatak ---------------------------------

# enderKik
if $ARGS[0]='win':
!set KikWin = KikWin + 1
set pointKik = 0
set pointKikV = 0
set round = 0
set minround = 0
if health < 10:set health = 10
     if profi = 1:
     set KikWinPro = KikWinPro + 1
     set profi = 0
     set rikudo = rikudo + 5
     act 'Get_Away':gt'fit','start'
     exit
     end
     if amature = 1:
     set KikWinAm = KikWinAm + 1
     set amature = 0
     set amatReit = amatReit + 1
     set money = money + 500 + kikmoney
     set rikudo = rikudo + 5
     'You handed the prize 500 rubles.'
     gs'razrKik'
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if sparing = 1:
     set sparing = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
end

if $ARGS[0]='winKO':
!set KikWin = KikWin + 1
set pointKik = 0
set pointKikV = 0
set round = 0
set minround = 0
if health < 10:set health = 10
     if profi = 1:
     set KikWinPro = KikWinPro + 1
     set KikKOPro = KikKOPro + 1
     set profi = 0
     set rikudo = rikudo + 10
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if amature = 1:
     set KikWinAm = KikWinAm + 1
     set amatReit = amatReit + 1
     set amature = 0
     set money = money + 500
     set rikudo = rikudo + 10
     'You handed the prize 500 rubles.'
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if sparing = 1:
     set sparing = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
end

if $ARGS[0]='loss':
!set KikLoss = KikLoss + 1
set pointKik = 0
set pointKikV = 0
set round = 0
set minround = 0
if health < 10:set health = 10
     if profi = 1:
     set KikLossPro = KikLossPro + 1
     set profi = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if amature = 1:
     set KikLossAm = KikLossAm + 1
     if amatReit > 0:set amatReit = amatReit - 1
     set amature = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if sparing = 1:
     set sparing = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
end

if $ARGS[0]='draw':
!set KikLoss = KikLoss + 1
set pointKik = 0
set pointKikV = 0
set round = 0
set minround = 0
if health < 10:set health = 10
     if profi = 1:
     set KikDrawPro = KikDrawPro + 1
     set profi = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if amature = 1:
     set KikDrawAm = KikDrawAm + 1
     set amature = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
     if sparing = 1:
     set sparing = 0
     act 'Get_Away':gt'fit','razd'
     exit
     end
end
--- enderKik ---------------------------------

# razrKik

if razradKik = 0:
     if amatReit >= 5:
     set razradKik = 1
     set amatReit = 0
     set kikmoney = 200
     'you have assigned 3th rank amateur kickboxing.'
     end
end
if razradKik = 1:
     if amatReit >= 10:
     set razradKik = 2
     set amatReit = 0
     set kikmoney = 500
     'you have assigned 2th rank amateur kickboxing.'
     end
end
if razradKik = 2:
     if amatReit >= 15:
     set razradKik = 3
     set amatReit = 0
     set kikmoney = 1500
     'you have assigned 1th rank amateur kickboxing.'
     end
end
if razradKik = 3:
     if amatReit >= 20:
     set razradKik = 4
     set amatReit = 0
     set kikmoney = 3500
     'You received the title of Candidate Master of Sports in kickboxing.'
     end
end
if razradKik = 4:
     if amatReit >= 25:
     set razradKik = 5
     set amatReit = 0
     set kikmoney = 7500
     'You received the title of Master of Sports in kickboxing.'
     end
end
--- razrKik ---------------------------------

# street
$metka = $ARGS[0]
$loc = $CURLOC
music_on=0
gs'dinam'
'<center><B>dormitory</B></center>'
'<center><img src="pic/street.jpg" ></center>'
if opusk>0 and housr>0:'On the wall of your home, next to the door in your entrance flaunts a large inscription paint <B>"Sveta from 69th apartment lowered huesoska"</B>'
clr
gs'stat'
gs'time'
set palMir=0
set bordysh=0
set housrA=0
set palMir=0
set obdysh=0
set tanhouse1=0
set obMir=0
set obLoker=0
set houseob=0
set borMir=0
set borLoker=0
$onobjsel = 'onobjsel'

if gopdeath=1 and vsehsdaladay!day:
	 set over=6
	 gt'gameover'
	 exit
	 end
if shantpopala>0:
	 cla
	 *clr
	 set hour+=8
	 set cumbelly+=1
	 set cumpussy+=1
	 set cumass+=1
	 set cumlip+=1
	 set cumface+=1
	 set cumfrot+=1
	 set cumanus+=1
	 set fingal+=1
	 set guy+=2
	 set rape+=1
	 set sex+=1
	 set bj+=1
	 set anal+=1
	 set shantpopala-=1
	 '<center><img src="img/centr/rape.jpg" ></center>'
	 'On the street around you dramatically slows down a black jeep, out of it popping up two big boys and dragged you in the car.
	 "Your job creation?" shouts one poking your nose pictures that you sent yesterday .
	 "No, I do not understand" you have tried to justify
	 "Do not lie to you bitch calculated" With these words
	 You woke up already somewhere outside the city, bound and naked srl, the whole body was covered with sperm and anus vagina hurt uzhastno.
	 Umballa sat and smoked nedoleko, "About finally woke up, what else Circle, now flicked, will be more fun." said one of them.
	 They got up and came to you, a minute later you regret that woke up, these freaks have you as they would, you tried soprativlyatsya but scotch does not allow you to move, soon you lost consciousness again.
	 "Well understood, bitch" You woke up the voice of one of them and immediately got hit in the stomach with a shoe. Umballa got into the car and drove away. Until the road was about a hundred meters and you connected, izvevayas like a snake crawling in the side of the road. When you then crawled out again, You woke up to some machine, and that dovezla you home.'
	 act 'Get_Away':gt $curloc
	 exit
	 end

if workDolgDay<=0 and workDolg>0:
cls
gs'stat'
gs'time'
'<center><img src="sauna/bug.jpg" ></center>'
workDisk=0
'Near the entrance you came two bull which you notice guns. They look at you with indifference. "It`s time to give debt."'
     if money>=workDolg:
     money-=workDolg
     workDolg=0
     'You gave money Bugay, they counted them .'
     act 'Get_Away':gt $curloc
     exit
     else
         if money+stolmoney+karta>=workDolg:
         money+=stolmoney+karta
         stolmoney=0
         karta=0
         money-=workDolg
         workDolg=0
         'If you currently have such amount was not bulls and went with you to the apartment. You pay them and they left.'
         act 'Get_Away':gt 'korr'
         exit
         else
         'Money to cover the debt you do not. The big man dragged you into asu apartment and began to search.'
         money+=stolmoney+karta
         stolmoney=0
         karta=0
         workDolg-=money
         money=0
         'Bugaev took everything that you had said and. In_short, with you for a long time <<workDolg>>. Debt grows further 10 pcs, and since you can not pay off, we `ll help you. Bugay dragged you into the car and thrown into the back seat. The car started and you went somewhere.'
         workDolg+=10000
             act 'Out of the car':
             cls
             minut+=30
             gs'stat'
             'You`ve come to the sauna. Bandits have been dragged into what that room and began to explain. "You will live here and work, until the debts are not rasplatishsya. all clear? Or try to escape the buzz, all, we`ll bullet in the head off and plunged into the forest bury, truncated?"'
             'You nodded fearfully, realizing that they were not kidding.'
             act 'Look_around':gt'saunaroom'
             end
         end
     end
exit
end

if workDiskAtkPlayer=1:
'<center><img src="sauna/car.jpg" ></center>'
workDisk=1
workDiskAtkPlayer=0
'You grab and throw in the back seat of the car. Right and left of you sit two Ambala.  In the front seat - Manager porn studio. 
-Where envelope - he asked.'
     if konvert=0:
     workDolg=200000
     workDolgDay=7
     'stolen.
-WHAT!!! But how could this happen!!! you understand, in which you have got dibs?!!  Term give you until next Friday. In my office you bring 200 thousand. If not - Pingyao over.
'
     else
     konvert=0
     money+=5000
     'You gave the envelope. He warned you, that such delays in the future may be harmful to your business relationships.'
     end
act 'Get_Away':gt $curloc
exit
end

if vladimirday=day and vladimirQW=30 and hour >= 16 and week=6:'<a href="exec:GT ''qwmeet2''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'
if vladimirday=day and vladimirQW=40 and hour >= 16 and week=6:'<a href="exec:GT ''qwmeet3''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'


set housrA = 0

if car > 0 and cardrive = 1:
set cardrive = 1
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'

if housr = 1:
     act '<b>go home</b>':
     gorand=RAND(0,100)
         if loh>0 and gopdolg>0 and hour>=20 and gorand>=80:
         gt'gopnew','start'
         exit
         end
         if opusk>0 and hour>=20 and gorand>=80 and gopopusday!day:
         gt'gopnew','start'
         exit
         end
     gt'korr'
     end
end


     act 'wait':
     cla
     waiting = input ("How many minutes to wait? (not any more 120 minutes)")
         if waiting <= 0 or waiting > 120:
         set minut = minut + 15
         end
         if waiting > 0 and waiting <= 120:
         set minut = minut + waiting
         end
     act 'Look at the clock':gt curloc
     end
     
act 'Taxi':
	 cla
	 *clr
	 '<center><img src="pic/taxi1.jpg" ></center>'
	 'You caught a passing taksishku.
	 fare 250 RUB.'
   	 set minut+=5
	 if $loc!'street':
		 act 'Go to the sleeping area':
			 set $loc='street'
			 dynamic $taxi
			 end
		 end
	 if $loc!'down':
		 act 'Go to the center':
			 set $loc='down'
			 dynamic $taxi
			 end
		 end
	 if $loc!'Nord':
		 act 'Go to the northern region':
			 set $loc='Nord'
			 dynamic $taxi
			 end
		 end
	 act 'Opt_Out':gt'<<$loc>>'
	 end

if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
set nurand = RAND (0,100)
     if nurand >= 90:
     set manna = manna - 5
     set SUB = SUB + 1
     set horny = horny + SUB
     'You heard a loud whisper deliberately grandmothers on the bench "Here`s a whore! Walks in a short skirt and no panties, mandischey that shines!"'
     'You blushed in shame after caustic remarks old women.'
     end
end

if magik >= 1 and mainQW = 0 and StoryLine=0:
cla
*clr
set mainQW = 1
'<center><img src="picQW/main.jpg" ></center>'
'At the entrance you can see Karin and Juugo. Karin adjusts glasses and looks around, Juugo appears in the clouds and not as strange, his face is not visible tattoos.'
'Karin closely looks around you "I felt a surge of energy. On you did not attack the mage?"'
act 'No':gt'mainQW'
exit
end

if katkey = 1: 'apartment <a href="exec:gt''katspalnya'',''start''">Katie</a>'
if hour >= 16 and hour < 22 and dimaQW > 0:'apartment <a href="exec:GT ''dima'',''start''">Dima</a>.'
if klofQW >= 2:'apartment <a href="exec:GT ''klofdomhouse'',''start''">Jora</a>.'
if hour >= 5 and hour <= 23:'station <a href="exec:GT ''metro'',''start''">subway</a> situated in 15 walking distance.'
if hour >= 8 and hour <= 20:'Not far from the house is <a href="exec:GT ''shop'',''start''">supermarket</a>'
if hour >= 8 and hour <= 20:'Grandmother flocks go to <a href="exec:GT ''poli'',''start''">poliklinnike</a>'
if hour >= 6 and hour <= 9 and military = 1 and week = 6:'At the clinic costs <a href="exec:set minut+=60 & gt''Military'',''start''">bus</a>. for war games.'
if hour >= 8 and hour <= 14 and week ! 1:'about noisy <a href="exec:GT ''rinok'',''start''">the_market</a> a lot of people going shopping.'
if hour >= 12 and hour <= 22 and week ! 1:'Not podaleku from <a href="exec:GT ''kafe'',''start''">cafe</a> swearing loudly <a href="exec:GT''gopnew'',''start''">Gopnik</a>.'
if hour > 22 or hour <= 3:'In the courtyard of swearing loudly <a href="exec:GT''gopnew'',''start''">Gopnik</a>.'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:'You can enter the work shift in <a href="exec:GT ''kafe'',''work''">cafe</a>.'
if clener >= 1 and hour >= 7 and hour <= 22:'Office building in which required <a href="exec:GT ''clener'',''start''">cleaners</a>.'
'great <a href="exec:GT ''park'',''start''">park</a> located at 30 walking distance.'
'The_only <a href="exec:GT ''lake'',''start''">lake</a> The city is around the edge of town an hour`s walk.'
'Hour <a href="exec:GT ''aptek'',''start''">pharmacy</a>.'
if hour>=8 and lesbiqw>=1 and lesbiqw<3:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''start''">Natalya Petrovna</a>'
if lesbiday!day and hour>=8 and (lesbiqw=3 or lesbiqw=4):'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''start1''">hostess</a>'
if lesbiday!day and hour>=8 and lesbiqw=5:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''ev15''">hostess</a>'
if lesbiday!day and hour>=8 and lesbiqw=6:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''ev22''">fucking pervert</a>'
if lesbiday!day and hour>=8 and lesbiqw=7:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''ev25''">hostess</a>'
if lesbiday!day and hour>=8 and lesbiqw=8:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''ev28''">hostess</a>'
if lesbiday!day and hour>=8 and lesbiqw=9:'Apartmentsa <a href="exec:GT ''lesbidomhouse'',''ev29''">hostess</a>'
if lesbiday=day and hour>=8:'apartment hostess, today you have already visited it.'
'Not far from the house where the dwelling is <a href="exec:GT ''trashplace''">trashcan</a>'
if SNarkPriton>0:'Near one of the entrances are syringes and squatting nariki sit with empty eyes, in one of the apartments there is <a href="exec:minut+=5&GT ''narkopriton''">shooting_galleries</a>'
if IrinaQW >= 1:'The house in which the location of the apartment <a href="exec:GT ''IrinaRoom'',''start''">Irina</a>.'
if hour >= 8 and hour <= 23 or saunaWorkWhore>0 or workDisk=2:'B 10 walking distance <a href="exec:minut+=15&GT ''sauna''">"lair of debauchery"</a> as they say grannies, just as well <a href="exec:minut+=15&GT ''sauna''">sauna</a>'
if hour = meethour:
     if svidanieA = 1:'<B>Near the entrance waiting for you <a href="exec:GT ''meet'',''start''"><<$boyA>></a>.</B>'
     if svidanieB = 1:'<B>Near the entrance waiting for you <a href="exec:GT ''svidan'',''start''"><<$boyB>></a>.</B>'
     if svidanieC = 1:'<B>Near the entrance waiting for you <a href="exec:GT ''svidan'',''start''"><<$boyC>></a>.</B>'
end

set streetrand = RAND (0,100)
 if streetrand >= 100 and hour <=3:
 cla
 *clr
 '<center><img src="pic/street.jpg" ></center>'
 'Suddenly you are attacked by a-rascal, He came up to you and through clenched teeth "Slut better not yanking!" and dragged you in the park bushes.'
	 act 'useless to resist':
	 cla
	 *clr
	 !set money = money + 500
	 set $nameV = 'rapist'
	 set sex = sex + 1
	 set guy = guy + 1
	 set vagina = vagina + 1
	 '<center><img src="picV/dogging.jpg" ></center>'
		 if prezik > 0:
		 set protect = 1
		 set prezik = prezik - 1
		 'You gave the guy a condom and he clothed him in silence.'
		 end
		 
	 'Man steers you into the bushes and puts you to the tree of cancer, you feel his hard cock enters your vagina.'
	 
		 if horny >= 90:
		 set horny = 0
		 set manna = manna + 15
		 set willpower = willpower + 15
		 set orgasm = orgasm + 1
		 'Gradually a pleasant warmth and pulsation increases in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
		 end
		 
		 if protect ! 1:
		 !unprotected sex
		 set finrand = RAND (0,1)
			 if finrand = 0:
			 !inside
			 set cumpussy = cumpussy + 1
			 'The guy groaned and you feel like a jet of sperm hit you inside your body.'
				 if tabletki <= 0 and mesec <= 0:
				 gs'preg'
				 set manna = manna - 15
				 set willpower = willpower - 15
				 'Damn, because after all, you thought with horror.'
				 end 
			 end
			 
			 if finrand = 1:
			 !out
			 set cumass = cumass + 1
			 '<<$nameV>> groaned and removing a member of you, cumshot on your ass.'
			 end 
		 end
		 
		 if protect > 0:
		 set protect = 0
		 'The guy cums in a condom. Pulls out a member of you and took off the condom throws him to the ground, after pulls his pants and goes.'
		 end
	 act 'Get_Away':gt'street'
	 end
		 
		 
	 act 'fight':
	 cla
	 set $nameV = 'rapist'
	 !stats
	 set strenV = 100
	 set speedV = 50
	 set agilV = 40
	 set reactV = 40
	 set vitalV = 50
	 set intelV = 10
	 set willV = 10
	 !skills
	 set magikV = 100
	 set boxingV = 50
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*10 + magikV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 0
	 set RapistFight = 1
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
	 end
 exit
 end
 

set streetrand = RAND (0,100)        
 if streetrand >= 100 and money >= 1000 and daystart>=10 and hour <=3: 
 cla
 *clr
 '<center><img src="pic/street.jpg" ></center>'
 'Suddenly you are attacked by a robber'
	 act 'give money , health is more important':
	 cla
	 money=0
	 clr
	 gs'stat'
	 'You lost all your existing stock savings.'
	 act 'Get_Away':gt'street'
	 end
     
	 act 'horseradish him , not money':
	 cla
	 'Robber with dirty insults pounces on you , Now you do not just money otdelyetes.'
		 act 'fight':
		 set $nameV = 'rapist'
		 !stats
		 set strenV = 100
		 set speedV = 50
		 set agilV = 40
		 set reactV = 40
		 set vitalV = 50
		 set intelV = 10
		 set willV = 10
		 !skills
		 set magikV = 100
		 set boxingV = 50
		 set shootV = 100
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*10 + magikV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 0
		 set RapistFight = 1
		 if spellavtoklon = 1:set klon = 3
		 if spellbefshild = 1:set defence = 500
		 gt'fight','start'
		 end
	 end
 exit
 end
 

set streetrand = RAND (0,100)        
 if streetrand >= 100 and money >= 1000 and daystart>=10 and hour <=3: 
 cla
 *clr
 '<center><img src="pic/street.jpg" ></center>'
 'You have been robbed , you from the hands of a thief snatched her purse with money and quickly pulled aside forested lesnuhi.'
	 act 'will not run , I did not catch up':
	 cla
	 money=0
	 clr
	 gs'stat'
	 act 'That bastard':gt'street'
	 end
		 
		 
	 act 'Catch up with this monster and then he fucked':
	     if speed < 55 or agil < 55 or vital < 55: 
		 cla
		 money=0
		 clr
		 gs'stat'
		 act 'not caught , it is necessary to train':gt'street'
		 end
		 
		 if speed >= 60 and agil >= 60 and vital >= 60:
		 set $nameV = 'rapist'
		 !stats
		 set strenV = 100
		 set speedV = 50
		 set agilV = 40
		 set reactV = 40
		 set vitalV = 50
		 set intelV = 10
		 set willV = 10
		 !skills
		 set magikV = 100
		 set boxingV = 50
		 set shootV = 100
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*10 + magikV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 0
		 set RapistFight = 1
		 if spellavtoklon = 1:set klon = 3
		 if spellbefshild = 1:set defence = 500
		 gt'fight','start'
		 end
     end
exit
end

if streetrand >= 10 and bfa < 1:
set vnerand = RAND (0,300)
	 if vnerand <= vnesh:
	 gs'boy'
	 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
	 'The guy introduced himself as <<$boy>> and asked for your telefonchik.'
		 act 'Tell him your phone':
		 cla
		 gs'boyfrend','start'
		 set stopboy = 0
		 '<<$boyA>> record your phone and left.'
		 act 'complete the walk':gt'street'
		 end
	 end
end


dynamic $din_street_cum
--- street ---------------------------------

# aptek
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>pharmacy</font></B></center>'
'<center><img src="pic/aptek.jpg" ></center>'
'condoms - 100 r
birth control pills - 500 r'
'medicine 500 RUB
vitamins 500 RUB
Moisturizing Lip Balm 1000 RUB'
clr
gs'stat'
gs'time'
if money>=200:
     act 'Buy a pregnancy test (200 RUB)':
     cla
     *clr
     set money = money - 200
     pregtest+=2
     '<center><img src="pic/kassa.jpg" ></center>'
     'You bought a test and get paid in cash.'
     act 'Move away from the counter':gt'aptek','start'
     end
end
if money >= 100:
  	 act 'Buy condoms 100 RUB':
		 cla
		 *clr
		 portion = input ("How many packages you want to buy?")
		 if portion*100 > money:'You do not have enough money.'
		 if portion*100 <= money:
			 set prezik = prezik + portion*5
			 set money = money - portion*100
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought condoms and get paid in cash.'
			 end
		 act 'Move away from the counter':gt'aptek','start'
		 end
	 end
if money >= 500:
   	 act 'Buy birth control pills 500 RUB':
		 cla
		 *clr
		 portion = input ("How many packages you want to buy?")
		 if portion*500 > money:'You do not have enough money.'
		 if portion*500 <= money:
			 set tabletki = tabletki + portion*28
			 set money = money - portion*500
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought the pill and get paid in cash.'
			 end
		 act 'Move away from the counter':gt'aptek','start'
		 end
	 if klisma = 0:
	     act 'Buy enema 500 RUB':
			 cla
			 *clr
			 set klisma = 1
			 set money = money - 500
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought an enema and get paid in cash.'
			 act 'Move away from the counter':gt'aptek','start'
			 end
		 end
	 end
if money >= 1500:
     act 'buy fat burners 1500 RUB':
		 cla
		 *clr
		 set fatdel = fatdel + 1
		 set money = money - 1500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought a fat burning capsule and get paid in cash.'
		 act 'Move away from the counter':gt'aptek','start'
		 end
     end
if money >= 500:
     act 'buy medicine 500 RUB':
		 cla
		 *clr
		 portion = input ("How many packages you want to buy?")
		 if portion*500 > money:'You do not have enough money.'
		 if portion*500 <= money:
			 set lekarstvo+= portion*10
			 set money = money - portion*500
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought drugs and get paid in cash.'
			 end
		 act 'Move away from the counter':gt'aptek','start'
		 end
	 act 'Buy vitamins 500 RUB':
		 cla
		 *clr
		 portion = input ("How many packages you want to buy?")
		 if portion*500 > money:'You do not have enough money.'
		 if portion*500 <= money:
			 set vitamin+= portion*20
			 set money = money - portion*500
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought vitamins and paid the money to the cashier.'
			 end
		 act 'Move away from the counter':gt'aptek','start'
		 end
     end
if money>=1000:
   	 act 'Buy a moisturizing lip balm (1000 RUB)':
		 cla
		 *clr
		 set lipbalm+= 25
		 set money = money - 1000
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought vitamins and paid the money to the cashier.'
		 act 'Move away from the counter':gt'aptek','start'
		 end
     end
if money>=1500 and KandidNapr=1:
     act 'Buy pills from yeast (1500 RUB)':
		 cla
		 *clr
		 set money = money - 1500
		 Kandidoz=0
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought the pills and get paid in cash.'
		 'Immediately about cash you drink tablet.'
		 act 'Move away from the counter':gt'aptek','start'
		 end
     end
if money>=600:
     act 'Buy ointment from corns (600 RUB)':
		 cla
		 *clr
		 set money = money - 600
		 mosolmaz+=10
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought the pills and get paid in cash.'
		 act 'Move away from the counter':gt'aptek','start'
		 end
     end
act 'GO_OUT':gt'street'
end
--- aptek ---------------------------------

# clener
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Office building</font></B></center>'
'<center><img src="pic/clener.jpg" ></center>'
'On the walls raskliny different ads including striking ads - Wanted cleaners.'
'Over a door plaque with the inscription, Jacob Solomonovich Schneersohn, tailor, while working with 7 prior_to 15'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
act 'GO_OUT':gt'street'

if SVqw>=1:
     if hour>=8 and hour<=16 and week<6:
     'door <a href="exec:GT ''torgpred''">trade Mission</a> open.'
     else
     'The door closed and trade mission on the wall schedule. From 8 prior_to 16, weekend Saturday, Sunday.'
     end

end


if jouryQwNo=1 and hour=17:
'The corridor goes Yuri, the same office worker who pridlagal you walk, but you refused. He stares at you and comes to you.'
	 act 'Talk with Yuri':
	 cla
	 minut+=15
	 gs'stat'
	 'Yuri came to you and said "Sveta. Let`s go, popem coffee."'
	 act 'No':jouryQwNo=1&gt'clener','start'
	     act 'drink coffee':
	     cls
	     minut+=30
	     gs'stat'
	     'You went to a cafe, where Yuri ordered coffee. You sat down at the table and began to drink. Yuri painfully understands, something to say. He did not have even the shadow of a sense of humor and very stiff. Obviously he likes you, but he does not know, what to do. When the coffee was dopit Yuri offered to go to him.'
	     act 'No':jouryQwNo=1&gt'clener','start'
	     dynamic $youriqwest
	     end
	 end
end
if borodachQW>0 and borodachSex=0 and hour>=19:'Seeing you guard Sasha nodded you.'
if borodachQW>0 and borodachSex>0 and hour>=19:'Seeing you guard Sasha smiled and said "Hello Svetsik!"'
if borodachQW>0 and hour>=19:
	 act 'To approach Sasha':
		 cls
		 minut+=5
		 gs'stat'
		 if borodachSexDay=day:'You have come to the guard and said hello. Chatted with him,  Sasha was going on tour and you moved without becoming disturb him.'
		 if borodachSexDay!day:
			 'You have come to the guard Sasha and greeted. He winked at you, I have a bubble here secreted, as you look at the cult of mass leisure?'
			 act 'Let`S_Go':
				 cla
				 minut+=5
				 gs'stat'
				 'Sasha took you into his cubicle and pulled out from under the table a bottle of vodka, reached into a drawer and pulled out, a piece of liver sausage and cheese friendship. Took a couple of glasses of vodka and poured back.'
				 act 'drink':
					 cla
					 'You drank vodka to give zhzhonoy rubber and booze. Breath you PEYRELEAU of this shit and you soon grabbed cheese friendship zanyuhivat. Sasha routinely slapped the glass and not even pomorschalsya. "Eh, went well."'
					 'While you are leaning to the table and ate zanyuhivali, you feel like a hand guard light touch pats you on the ass.'
					 act 'ulybatsya':
						 cla
						 minut+=15
						 horny+=10
						 gs'stat'
						 'You smiled and Sasha poured more vodka, without taking your hands caress you from your priests.'
						 if horny<50:dynamic $borodachNo2
						 dynamic $borodachDrink
						 end
					 act 'Put a hand on his pants':
						 cls
						 minut+=15
						 horny+=10
						 gs'stat'
						 borodachTimes+=1
						 picrand=RAND(0,2)
						 if picrand=0:'<center><img src="qwest/ohrannik/hj.jpg" ></center>'
						 if picrand=1:'<center><img src="qwest/ohrannik/hj1.jpg" ></center>'
						 if picrand=2:'<center><img src="qwest/ohrannik/hj2.jpg" ></center>'
						 'You put it on his pants and felt his hand as he stands member. Your thin fingers slid over her undoing lightning. You unzipped and pulled his cock out of his pants. Sasha relaxed on the couch waiting for you embark on.'
						 dynamic $ohrhj
						 dynamic $ohrbj
						 end
					 end
				 end
			 end
		 act 'Get_Away':gt'clener','start'
		 end
	 end
if clenerT>=3 and borodachQW=0 and hour>=19:
	 'On a chair in front of a security guard sitting with crosswords and painfully remembers something. He asks to see you. "Bad ending business, the second letter and."'
	 act 'Reply guard':
		 cls
		 borodachQW=1
		 '(Do_You) - fiasco'
		 '(security_guard) - For_Sure, then I think PIZDETS can not be the answer.'
		 act 'Get_Away':gt'clener','start'
		 act 'Zasmeyatsya':
			 cla
			 borodachQW=2
			 'You laughed at the guard, He smiled and put aside crosswords. "I`ll here more than once seen. cleaner work?"'
			 'you nodded, "yes_they_are, I_earn, then the money paid, that the work can not call it."'
			 '(security_guard) - My name is Sasha way, and you?'
			 '(Do_You) - my World.'
			 '(Sasha) - very nice. I`ve got a bottle and have zakus, sostavish company?'
			 act 'Sorry, i have to go now':gt'clener','start'
			 act 'Why not':
				 cla
				 minut+=5
				 gs'stat'
				 'Sasha took you into his cubicle and pulled out from under the table a bottle of vodka, reached into a drawer and pulled out, a piece of liver sausage and cheese friendship. Took a couple of glasses of vodka and poured back.'
				 act 'drink':
					 cla
					 'You drank vodka to give zhzhonoy rubber and booze. Breath you PEYRELEAU of this shit and you soon grabbed cheese friendship zanyuhivat. Sasha routinely slapped the glass and not even pomorschalsya. "Eh, went well."'
					 'While you are leaning to the table and ate zanyuhivali, you feel like a hand guard as if by chance, light touch pats you on the ass.'
					 act 'hey! What are you conceived?':
						 cla
						 minut+=15
						 horny+=10
						 gs'stat'
						 '(Do_You) - hey! What are you conceived?'
						 '"C`mon, I accidentally." Sasha began to mutter pouring more vodka. "Let`s have a drink."'
						 if horny<50:dynamic $borodachNo
						 dynamic $borodachDrink
						 end
					 act 'To pretend not to notice':
						 cla
						 minut+=15
						 horny+=15+SUB
						 gs'stat'
						 'you ate, trying not to pay attention to accidentally touch. Sasha poured more vodka and with words "Between the first and second, pereryvchik not great" knocked over a glass.'
						 if horny<50:dynamic $borodachNo
						 dynamic $borodachDrink
						 end
					 end
				 end
			 end
		 end
	 end
if hour>=7 and hour<=15:
	 act 'Go to the tailor':
		 cla
		 *clr
		 'Elderly Jew makes the pattern at the table, he puts a little glasses and looking at you on top score.'
		 act 'GO_OUT':gt'clener','start'
		 if portnoyQW>0:
			 'Aaa, Svetochka, pass, again to take in clothes come?'
			 if money>=500:
				 act 'Wear clothes take in 500 r':
					 cla
					 *clr
					 minut+=15
					 money-=500
					 gs'portnoi'
					 'You stripped of clothes and filed shirmochka Jacob Solomonovich, He fifteen minutes ushil your clothes and returned to you.'
					 act 'GO_OUT':gt'clener','start'
					 end
				 end
			 if money>=500:
				 act 'Take in different clothes':gt'portnoi1','start'
				 act 'Take in all the clothes':gt'portnoi2'
				 end
			 end
		 if portnoyQW=0:
			 'Zdgastvuyte bagyshnya. I Yakov Solomonovich, for you pgosto Yasha, and your name?'
			 act 'Sveta':
				 cla
				 portnoyQW=1
				 '(Do_You) - CBoard.'
				 '(Yasha) - What pgekgasnoe name. Svetochka, pgohodite, sit on this chair here. Stag than evgey can do for you?'
				 act 'You can take in the clothes of the figure?':
					 cla
					 *clr
					 minut+=15
					 gs'stat'
					 '(Do_You) - You can take in the clothes of the figure?'
					 '(Yasha) - Of course I can! Otherwise? Here posmotgim that you are wearing.'
					 'Jacob Solomonovich smartly you jumped up and removing the meter flexible neck began obmeryat your chest, waist and hips.'
					 'Oh well, I can take in this product, you will be 500 rubles.'
					 if money>=500:
						 act 'take_in 500 r':
							 cla
							 *clr
							 minut+=15
							 money-=500
							 gs'portnoi'
							 'You stripped of clothes and filed shirmochka Jacob Solomonovich, He fifteen minutes ushal your clothes and returned to you.'
							 act 'GO_OUT':gt'clener','start'
							 end
						 end
					 act 'GO_OUT':gt'clener','start'
					 end
				 end
			 end
		 end
	 end
if clener >= 10 and clenerT = 0:
	 act 'Ask whether there is still work':
		 cla
		 'You asked Boris Ivanovich, whether there is still work. he said, that requires a cleaner for cleaning the toilet, you can work almost every day. cleaning toilets 1 h, 100 rubles immediately at hand.'
		 act 'And refuse to leave':gt'street'
		 act 'Agree to work':
			 cla
			 set clenerT = 1
			 'You agreed to work.'
			 act 'Go_Out':gt'clener','start'
			 end
		 end
	 end
if clener = 1:
	 act 'Talk about work':
		 cla
		 'You went to the office on which was written ads. You met a burly man in a jacket. He explained to you, you can work almost every day. office cleaning 1 h, 100 rubles immediately at hand.'
		 act 'And refuse to leave':gt'street'
		 act 'Agree to work':
			 cla
			 set clener = 2
			 'You agreed to work.'
			 act 'Go_Out':gt'clener','start'
			 end
		 end
	 end
if clener > 1 and clenday ! day:
	 act 'Wash the floor in the office (1 h)':
		 cla
		 *clr
		 set clenday = day
		 set minut = minut + 60
		 set clener = clener + 1
		 set manna = manna - 15
		 set money = money + 100
		 set sweat = sweat + 2
		 '<center><img src="pic/clener1.jpg" ></center>'
		 if clener<5:
			 if hour>=9 and hour<=16:'You get water in a bucket and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor.'
			 end
		 if clener>=5 and clener<10:
			 if hour>=9 and hour<=16:
				 jouryQw+=1
				 'You get water in a bucket and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. One of the employees, a man with blond hair and a red face looked at you trying to hide view, but you feel it searing look at yourself.'
				 end
			 end
		 if clener>=10:
			     if hour>=9 and hour<=16 and jouryQw<7:
				 jouryQw+=1
				 'You get water in a bucket and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. One of the employees, a man with blond hair and a red face looked at you trying to hide view, but you feel it searing look at yourself.'
				 end
			     if jouryQw=7 and hour>=9 and hour<=16:
			     cls
			     gs'stat'
			     '<center><img src="pic/clener1.jpg" ></center>'
				 jouryQw+=1
				 'You get water in a bucket and went to the office with a rag mop capturing. All the staff went out of the office, except red- blond. He came up to you and told you visibly nervous quietly "hello. My name is Yuri. I really liked you. Can we go somewhere else after work?"'
				     act 'No':
					 cla
					 jouryQwNo=1
					 'After performing the work you have come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for a job.'
					 act 'Go_Out':gt'clener','start'
					 end
					 
				     act 'Yes_I_Am':
					 cla
					 minut+=15
					 gs'stat'
					 'Yuri said he was going to finish the job and meet you at the entrance to the building.'
					 'After performing the work you have come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for a job.'
					 'Code, at the entrance of the building you have been waiting for Yuri. He`s pretty strong emotions and it seems, as if he had swallowed a crowbar. Not knowing what to say  "Maybe go to my, movie look, drink champagne, talk."'
					 act 'No':jouryQwNo=1&gt'clener','start'
					 dynamic $youriqwest
					 end
				 exit
				 end
			 if jouryQw>7 and hour>=9 and hour<=16 and jourySex=0:'You get water in a bucket and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. Yuri looked at you groping look at your figure.'
			 if jouryQw>7 and hour>=9 and hour<=16 and jourySex>0:'You get water in a bucket and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. Yuri pretending, that you do not notice went out of office.'
			 end
		 if hour<9 or hour>16:'In the office, you quietly washed the floor and wiped the floor in the office.'
		 'After performing the work you have come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for a job.'
		 act 'Go_Out':gt'clener','start'
		 end
	 end
if clenerT >= 1 and clendayT ! day:
	 act 'clean toilets (1 h)':
		 cla
		 *clr
		 set clendayT = day
		 set minut = minut + 60
		 set clenerT = clenerT + 1
		 set manna = manna - 25
		 set money = money + 100
		 set sweat = sweat + 3
		 '<center><img src="pic/clener2.jpg" ></center>'
		     if jouryQw>7 and hour>=9 and hour<=16 and jourySex>0 and jouryResult=0:
			 'You went into the booth and began to scrub the toilet bowl. In tulete slammed the door and someone came, you looked out of the booth and saw Yuri. He also saw you and came up to you. "light, Do not come to me in the office, Well, the staff does not understand, I meet with a cleaner."'
			     act 'You make me shy?':
				 cla
				 'You come off the toilet and looked into the eyes of Yuri asked "You do stesnyaeshsya?" Yuri hesitated, "Well, but you must understand, i am a manager, you cleaner. We should not be seen together. But I want you to go on. You know where I live, call in to me after 4x pm."'
				     act 'Fuck you.':
					 cla
					 dom+=1
					 jouryResult=1
					 'You offended by such behavior Yuri and you do not think twice sent him. He turned and walked out of the closet.'
					 'You washed the floor in the bathroom and kicked all toilets and urinals to shine. After that 100 rubles for a job.'
					 act 'Go_Out':gt'clener','start'
					 end
					 
				     act 'Fair_Enough.':
					 cla
					 sub+=1
					 jouryResult=10
					 'Jury sees you only hole drya its members. But you put up with it and agreed to go to his home. Yuri nodded in satisfaction and left the toilet.'
					 'You washed the floor in the bathroom and kicked all toilets and urinals to shine. After that 100 rubles for a job.'
					 act 'Go_Out':gt'clener','start'
					 end
				 end
			 exit
			 end
			 if StasikValera>0 and SVqw=0:
			 'You nadraivat toilet to shine and at that moment heard the toilet as someone entered, turned you saw a man. Suddenly you recognize him, it Stasik, with him and his friend Valery you met at the beach. Stas also probably recognize you and came up to you "Hello Svetsik! You work as a cleaner is?"'
			     act 'I earn, need money.':
			     cls
			     gs'stat'
			     '<center><img src="pic/clener2.jpg" ></center>'
			     'You shrugged. "I earn. I need money." Stas smiled "Well. I just need to merchandisers."'
			         act 'you can read more?':
					 cls
					 SVqw=1
					 gs'stat'
					 '<center><img src="pic/clener2.jpg" ></center>'
					 'You asked Stas Details. Stas answered you "It`s very simple. In the northern, central and sleeping areas are supermarkets. You`re going to come to our office, take the job to job, then go into all these supermarkets and arrange our products there soglastno job. Will you take a check at the checkout confirmation that, that you were at work. After that. 500 rubles. You will work for a few hours. Working with you . Well?"'
					 act 'not interested':gt'clener','start'
					     act 'I agree.':
						 cls
						 SVqw=2
						 gs'stat'
						 '<center><img src="pic/clener2.jpg" ></center>'
						 'You agree and Stas nodded in satisfaction, then came out of the closet.'
						 act 'Get_Away':gt'clener','start'
						 end
					 end
			     end
			     
			     
			 exit
			 end
		 'You washed the floor in the bathroom and kicked all toilets and urinals to shine. After that 100 rubles for a job.'
		 act 'Go_Out':gt'clener','start'
		 end
	 end
end
--- clener ---------------------------------

# dima
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Entrance where he lives Dima</font></B></center>'
'<center><img src="pic/podezdhr.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'street'
     end

end
--- dima ---------------------------------

# dinsexgivi
$threesomedin={
act 'Sit down on the penis':
cls
minut+=5
gs'stat'
tiprand=RAND(0,1)
picrand=RAND(1,2)
'<center><img src="picKav/threeC<<picrand>>.jpg" ></center>'
'You take the top of the Givi and sit down on his cock her pussy.'
dynamic $sexstart2
dynamic $giviirasexdivibor2
end

act 'tselovatsya more':
cls
minut+=5
gs'stat'
tiprand=RAND(0,1)
picrand=RAND(1,2)
'<center><img src="picKav/threeC<<picrand>>.jpg" ></center>'
'Ira sits on member Givi her pussy and begins frantically jumping on his thick and hard horseradish.'
dynamic $giviirasexdivibor
end

}

$threesomedin2={
act 'tselovatsya more':
cls
minut+=5
gs'stat'
tiprand=RAND(0,1)
picrand=RAND(1,2)
'<center><img src="picKav/threeC<<picrand>>.jpg" ></center>'
'Ira sits on member Givi her pussy and begins frantically jumping on his thick and hard horseradish.'
dynamic $giviirasexdivibor
end
}
$giviirasexdivibor={
!SG selection
act 'Licking his chest Ira':
cls
minut+=5
horny+=10
gs'stat'
tiprand=RAND(0,1)
picrand=RAND(1,2)
if picrand=1:'<center><img src="picKav/threeD.jpg" ></center>'
if picrand=2:'<center><img src="picKav/threeD1.jpg" ></center>'
'While Ira jumped on thick cock you wrapped around her nipple with his lips and began to suck it.'
'Givi groaned and dropped Ira with member.'
dynamic $giviirasexdivibor3
end

act 'Substitute pussy Ira':
cls
minut+=5
horny+=20
gs'stat'
tiprand=RAND(0,1)
picrand=RAND(1,2)
'<center><img src="picKav/threeE.jpg" ></center>'
'You framed her pussy Ira and she began to lick her active without stopping skakt on a limb.'
if horny>=90:horny=0&orgasm+=1&'You Tahoe orgasm and you moan with pleasure.'
'Givi groaned and dropped Ira with member.'
dynamic $giviirasexdivibor3
end
}
$giviirasexdivibor2={
!Ira choice
act 'Jump on a limb':
cls
minut+=5
horny+=10
gs'stat'
tiprand=RAND(0,2)
picrand=RAND(1,2)
     if tiprand=0:
     '<center><img src="picKav/threeF.jpg" ></center>'
     'You Gallop on a member Givi and Ira decided not ostavatsya indifferent dug his lips you starting to suck the nipple and biting.'
     end
     if tiprand=1:
     '<center><img src="picKav/threeF1.jpg" ></center>'
     'You jump on a limb and Givi Ira starts to kiss you on the mouth at the same time caressing finger your pussy.'
     end
'Givi groaned and dropped you on the member.'
dynamic $giviirasexdivibor3
end
}
$giviirasexdivibor3={
!Ira choice
act 'further':
cls
minut+=5
horny+=10
cumlip+=1
cumface+=1
gs'stat'
'<center><img src="picKav/threeFin.jpg" ></center>'
'Givi put you on your knees together with Irina and began to finish on your face. You lick cum from members and individuals with each other and kissing.'
act 'Get_Away':dynamic $endirinaaftergang
end
}

$endirinaaftergang={
cls
minut+=5
gs'stat'
'exhausted, tired and heavy with the smell of semen you get home from a hard day after Irene. You get to the entrance of Ira and she kisses you on the lips enveloping scent of semen goodbye, then goes to his home.'
act 'Get_Away':gt'street'
}











--- dinsexgivi ---------------------------------

# IrinaRoom
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Entrance where your girlfriend lives Ira</font></B></center>'
'<center><img src="pic/podezdhr.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'street'
     end
     
     act 'Ring the doorbell Irina':
     cla
         if hour >= 16 and hour <=21 and week >= 6 and IrinaQW ! 2:
         'You`ve reached the door and you opened Ira, She smiled and invited you to enter.'
             act 'Go to the apartment':gt'IrinaRoom','first'
         else
         'You`ve reached the door but no one answers.'
             act 'GO_OUT':
			 cla
			 set minut = minut + 5
			 gt'street'
			 end
         end
     end

end

if $ARGS[0]='first':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>apartment Ira</font></B></center>'
'<center><img src="pic/IrinaRoom.jpg" ></center>'
'Small studio apartment Ira neat and tidy'
clr
gs'stat'
     act 'Drinking in the kitchen':gt'IrinaRoom','first1'
end

if $ARGS[0]='first1':
cla
*clr
set minut = minut + 60
set manna = manna + 50
'<center><img src="picVA/IrinaQW.jpg" ></center>'
'You Ira settled in the kitchen with a bottle of wine and a snack of fruit, you talked and chatted merrily.'
'And Ira and you`re a little tipsy .'
clr
gs'stat'
     act 'Get_Away':
     cla
     set minut = minut + 60
     set manna = manna + 50
     gt'street'
     end
     
     if IrinaQW = 1:
         act 'Suggest drink brotherhood':gt'IrinaRoom','first2'
     end
     if IrinaQW >= 10:
         act 'tselovatsya':gt'IrinaRoom','kiss'
     end
end

if $ARGS[0]='kiss':
cla
*clr
set minut = minut + 10
set manna = manna + 50
set horny = horny + 20
'<center><img src="picVA/IrinaKiss.jpg" ></center>'
'You are a passionate kiss with Ira, and caressing her firm breasts hands.'
clr
gs'stat'
     act 'sex':gt'IrinaRoom','sex'
end

if $ARGS[0]='sex':
cla
*clr
set minut = minut + 60
set manna = manna + 50
set lesbian = lesbian + 1
set manna = manna + 100
set willpower = willpower + 100 
'<center><img src="picVA/IrinaSex.jpg" ></center>'
     if horny<50:
     horny-=10
     'Once in bed you caress each other passionately and lick wet pussies each other. But the excitement gradually disappears and you feel, that orgasm you will not be.'
     end
     if horny>=50:
     horny = 0
     set orgasm = orgasm + 1
     'Once in bed you caress each other passionately and lick wet pussies each other. Finally you both satisfied.'
     end
clr
gs'stat'
     act 'GO_OUT':
	 cla
	 set minut = minut + 5
	 gt'street'
	 end
end


if $ARGS[0]='first2':
cla
*clr
set minut = minut + 60
set manna = manna + 50
'<center><img src="picVA/IrinaQW1.jpg" ></center>'
'You offered Ira drink brotherhood, in honor of dating.'
clr
gs'stat'
     act 'kiss':gt'IrinaRoom','first3'
end

if $ARGS[0]='first3':
cla
*clr
set manna = manna + 50
set horny = horny + 20
'<center><img src="picVA/IrinaQW2.jpg" ></center>'
'You kissed her warm -il, soft, smelling wine lips. Irina flushed after the kiss and looks at you confused and a little frightened.'
clr
gs'stat'
     act 'undress Ira':gt'IrinaRoom','first4'
     act 'Ira drink more':gt'IrinaRoom','first5'
end

if $ARGS[0]='first4':
cla
*clr
set IrinaQW = 2
'You have started to remove her blouse with Ira, she jumped up and jumped up from his chair with a yell "What are you doing? I`m not a lesbian!"'
'She was scared of your attack and point you to the door.'
clr
gs'stat'
     act 'GO_OUT':
	 cla
	 set minut = minut + 5
	 gt'street'
	 end
end

if $ARGS[0]='first5':
cla
*clr
set IrinaQW = 10
set horny = horny + 20
'<center><img src="picVA/IrinaQW3.jpg" ></center>'
'You pumped Er wine, she was very drunk and spilled wine on herself. She went into the bathroom to change. You.'
'She undressed and you have decided to follow suit and also undressed climbed into the shower. You started lathering body Ira and saw how she stood erect nipples.'
clr
gs'stat'
     act 'kiss':gt'IrinaRoom','first6'
end

if $ARGS[0]='first6':
cla
*clr
set horny = horny + 20
'<center><img src="picVA/IrinaQW4.jpg" ></center>'
'You eagerly dug into his lips luscious lips Ira, she suddenly responded to your kiss very passionately.'
clr
gs'stat'
     act 'fondle breasts':gt'IrinaRoom','first7'
end

if $ARGS[0]='first7':
cla
*clr
set horny = horny + 20
'<center><img src="picVA/IrinaQW5.jpg" ></center>'
'You lowered his head to his chest and started Ira suck and lick her hard nipples Ira zastonalya pleasure.'
clr
gs'stat'
     act 'licking pussy':gt'IrinaRoom','first8'
end

if $ARGS[0]='first8':
cla
*clr
set horny = horny + 20
set girl = girl + 1
set lesbian = lesbian + 1
'<center><img src="picVA/IrinaQW6.jpg" ></center>'
'You kissed lower and lower until they fell to the level of moisture seeping pussy Ira. Your reed began to caress her clit and soon she shuddered and began to moan orgasm.'
'Ira decided to repay you in kind and not speak a word not put you on the edge of the tub and her lips stuck into your pussy.'
clr
gs'stat'
     act 'licking pussy':gt'IrinaRoom','first9'
end

if $ARGS[0]='first9':
cla
*clr
set horny = 0
set orgasm = orgasm + 1
set manna = manna + 100
set willpower = willpower + 100 
'<center><img src="picVA/IrinaQW7.jpg" ></center>'
'Lips and tongue Ira quickly vozimeli effect and you finished with passionate moans.'
clr
gs'stat'
     act 'GO_OUT':
	 cla
	 set minut = minut + 5
	 gt'street'
	 end
end











--- IrinaRoom ---------------------------------

# kafe
if $ARGS[0]='start':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 1
'<center><B><font color=maroon>cafe</font></B></center>'
'<center><img src="pic/kafe.jpg" ></center>'
'you see <a href="exec:GT ''kafe'',''vlad''">owner of a cafe</a> dealing with paperwork.'
'lunch_Time - 100 RUB'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
clr
gs'stat'
if QWdogReiq=3 and week=7 and hour>=12:
	 act 'Sit down at a table and wait for Margarita':dynamic $margokafedin
     end
!act 'agree':gt 'cafe3','wc'
if money >= 100:
	 act 'eat 100 RUB':
		 cla
		 *clr
		 frost=0
		 '<center><img src="pics/food.jpg" ></center>'
		 set razvrand=rand(1,10)
		 set minut = minut + 30
		 set health = health + 10
		 set money = money - 100
		 set manna = manna + 5
		 set willpower = willpower + 5
		 if energy >= 30:
			  set fat = fat + 5
			 'You can no longer have.'
			 end
		 if energy >= 20 and energy < 30:
			 set fat = fat + 3
			 set energy = energy + 10
			 'You pushed through the power of a meal.'
			 end
		 if energy < 20:
			 set energy = energy +20
			 set fat = fat + 1
			 'You gladly ate food.'
			 end
		 if water >= 20:
			 'Tea in you no longer climbs.'
			 end
		 if water < 20:
			 'You gladly drank a cup of tea.'
			 set water = water +20
			 end
		 if razvrand>5:
			 gs'boy'
			 'Came to your table <<$boybody>> <<$boybod>> <<$boyface>> introduced himself as <<$boy>>.'
			 xgt 'kafe','razvod'
			 end
		 act 'Get up from the table':gt'kafe','start'
		 end
     end
act 'GO_OUT':gt'street'
end

if $ARGS[0]='vlad':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><B><font color=maroon>cafe</font></B></center>'
'<center><img src="pic/kafe.jpg" ></center>'
if givi = 0:'At the reception costs no more, but very thick Caucasian, he writes that.'
if givi > 0:'We should stand Givi Karapetovich, cafe owner, he writes that.'
if workKafe = 0:
	 if GiviSex >= 2 and Givisexday <1 and Venera < 4:
		 act 'provoke Givi':
			 cla
			 *clr
			 set Givisexday=1
			 set GiviSex = GiviSex +1
			 '<center><img src="pic/kafe.jpg" ></center>'
			 ' You went behind the bar to Givi and asked about podrabotke. '
			 ' "Bax, Svetik, he missed!" said Givi Karapetovich unbuttoning his pants '
			 act 'Kneel':
				 cla
				 *clr
				 set bj = bj + 1
				 set dick = 20
				 set harakBoy = 2
				 set minut = minut + 30
				 set $nameV = 'Givi Karapetovich'
				 $boy='Givi Karapetovich'
				 set SUB = SUB + 1
				 '<center><img src="picVA/barbj.jpg" ></center>'
				 'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				 gs'oral','start'
				 'Givi firmly grabbed you by the hair and pulled your mouth on his cock deep.'
				 act 'continue to suck.':
					 cla
					 *clr
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 '<center><img src="picV/swallow1.jpg" ></center>'
					 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
					 set money=money+500
					 '-Zahady More! - says Givi gives you 500 rubles.'
					 act 'Get_Away':gt'kafe','start' 
					 end
				 end    
			 end
		 end        
	 end  
if workKafe > 0:
	 if GiviSex >= 2 and Givisexday <1 and Venera < 4:
		 act 'provoke Givi':
			 cla
			 *clr
			 set Givisexday=1
			 set GiviSex = GiviSex +1
			 '<center><img src="pic/kafe.jpg" ></center>'
			 ' You went behind the bar to Givi and asked about podrabotke. '
			 ' "Sverhurochnye want?" asked Givi Karapetovich and not interested in the answer took you by the hand '
			 act 'Kneel':
				 cla
				 *clr
				 set smenaKafe = smenaKafe + 1
				 set bj = bj + 1
				 set dick = 20
				 set harakBoy = 2
				 set minut = minut + 30
				 set $nameV = 'Givi Karapetovich'
				 $boy='Givi Karapetovich'
				 set SUB = SUB + 1
				 '<center><img src="picVA/barbj.jpg" ></center>'
				 'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				 gs'oral','start'
				 'Givi firmly grabbed you by the hair and pulled your mouth on his cock deep.'
				 act 'continue to suck.':
					 cla
					 *clr
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 '<center><img src="picV/swallow1.jpg" ></center>'
					 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
					 act 'Get_Away':gt'kafe','start' 
					 end
				 end
			 end        
		 end 
	 act 'resign':
		 cla
		 set work = 0
		 set workKafe = 0
		 set pay = smenaKafe*600
		 set money = money + pay
		 set smenaKafe = 0
		 'Givi Karapetovich shook his head sadly, "Fair_Enough, here are your <<pay>> rubles and employment history. Go."'
		 act 'Get_Away':gt'kafe','start'
		 end
	 end
if workKafe > 0 and week > 1 and week < 5:'Bax, Svetsik. zachem truant?'
if workKafe > 0 and week > 4:'Bax, pryvet Svetsik!'
if givi = 1 and workKafe < 1:'listening to you.'
if givi = 0:
	 set givi = 1
	 'Pryvet! I Givi Karapetovich. Hozain cafe. What do you want?'
	 end
if work = 0:
	 act 'Vozmet ask whether he hire you.':
		 cla
		 'You are asked whether you will work Givi.'
		 if vnesh < 5:'Wai, wai, wai, you give me all customers scare away. Go, whether that priodensya, Use cosmetics, brush_your_hair. And you look just terrible.'
		 if vnesh >= 5:
			 'Givi Karapetovich pristolno examines you from head to toe. "Ok, Listen working conditions"'
			 '"The cafe is open from 12 prior_to 22 every day except Monday. Your change Tuesday, Wednesday, Thursday. Come to the cafГ© with 11 prior_to 12, to open it . do not come, This day you will not be counted in the salary. salary lists 25th of, for each worked shift 600 rubles. Plus every time you can get a tip, it depends on you. And free meals."'
			 '"Yes_I_Am, and further, I `ll get you work book, you can not be arranged to another job until I fired. Well? satisfied."'
			 act 'To get a job':
				 cla
				 set work = 1
				 set workKafe = 1
				 set smenaKafe = 0
				 'You gave Givi Karapetovich work book. He took her and remind you. "Come any day except Monday from 11 prior_to 12 and work."'
				 act 'move_away':gt'kafe','start'
				 end
			 end
		 act 'move_away':gt'kafe','start'
		 end
	 end
act 'move_away':gt'kafe','start'
end

if $ARGS[0]='work':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><B><font color=maroon>cafe</font></B></center>'
'<center><img src="pic/kafe.jpg" ></center>'
set smenaKafe = smenaKafe + 1
'You have replaced a cafe, Givi Karapetovich, wrote in his book, you came on time and stood at the bar. The kitchen is a cook young strong, Caucasian Ashot. Another waitress Irina preparing to work. Tamara dishwasher cleans the sink.'
act 'begin work':
     cla
     set minut = 0
     set hour = 12
     set Givi = Givi + RAND (5,10)
     gt'kafe','workPred'
     end
act 'resign':
     cla
     set work = 0
     set workKafe = 0
     set pay = smenaKafe*600
     set money = money + pay
     set smenaKafe = 0
     'Givi Karapetovich shook his head sadly, "Fair_Enough, here are your <<pay>> rubles and employment history. Go."'
     act 'Get_Away':gt'kafe','start'
     end
end

if $ARGS[0]='workPred':
cla
*clr
gs'kafedinamic'
gs'stat'
'<center><B><font color=maroon>cafe</font></B></center>'
'<center><img src="pic/kafe.jpg" ></center>'
'Cafe are hard at work, cook <a href="exec:dynamic $ashotdin">Ashot busy in the kitchen</a>, your naparnitsa <a href="exec:dynamic $iradin">Ira</a> serving tables with visitors. owner <a href="exec:dynamic $gividin">Givi Karapetovich</a> stands behind the bar.'
clr
gs 'stat'
if Givi>100:set Givi=100
if Givi>90 and GiviSex=0:set Givi=90
'<a href="exec:dynamic $kafetualet">Wc</a>'
if IrinaSlut=1 and hour=22:
	 cls
	 set IrinaSlut=2
	 gs'stat'
	 '<center><B><font color=maroon>cafe</font></B></center>'
	 '<center><img src="pic/kafe.jpg" ></center>'
	 'Work over and Ira somewhere disappeared. Looking around . Tamara slipped out the door, Ashot puts the dishes in places.'
	 act 'Search for missing where Ira':
		 cls
		 horny+=10
		 gs'stat'
		 '<center><img src="picKav/irinaslut.jpg" ></center>'
		 'You come to the back room from which he emerged satisfied Givi fastening strap trousers. He smiled at you and said "Wai, good whore you found me, help her, and it is after this horseman did not come to life."'
		 'You went into the back room and saw there Irina standing up naked butt cancer, which was a puddle of sperm. Ira groaned blissfully "such a thrill, I have never had such a."'
		 act 'Ira and help hold up the house':
			 cla
			 minut+=15
			 gs'stat'
			 'Taking tissue you wiped the cum from her backside and helped her climb and put himself in order. Ira confessed with a beatific smile "Givi and can bellied ugly chock, but he fucked me so, nobody fucked, I even lost consciousness from an orgasm."'
			 'You spent Ira home who could not move away from orgasm. Before the entrance she kissed you on the lips and left.'
			 act 'go home':gt'street'
			 end
		 if horny>=50:
			 act 'Lick the cum from her backside':
				 cls
				 horny+=10
				 minut+=15
				 cumlip+=1
				 gs'stat'
				 '<center><img src="picKav/irinaslut2.jpg" ></center>'
				 'You knelt before just fucked in all holes ass Ira and began licking her red-rimmed hole licking cum.'
				 'Ira moaned "Oh, it is so nice, and why I had feared this?"'
				 act 'Swallow sperm and conduct Ira home':
					 cla
					 minut+=15
					 sub+=1
					 swallow+=1
					 gs'stat'
					 'You swallowed the sperm and helped her climb and put himself in order. Ira confessed with a beatific smile "Givi and can bellied ugly chock, but he fucked me so, nobody fucked, I even lost consciousness from an orgasm."'
					 'You spent Ira home who could not move away from orgasm. Before the entrance she kissed you on the lips and left.'
					 act 'go home':gt'street'
					 end
				 act 'Ira spit cum in her mouth':
					 cls
					 minut+=5
					 dom+=1
					 gs'stat'
					 '<center><img src="picKav/irinaslut3.jpg" ></center>'
					 'You have hands -il for the face and raised his, she willingly opened her mouth where you spit, passing all lick sperm Ira.'
					 act 'tselovatsya':
						 cls
						 sub+=1
						 gs'stat'
						 '<center><img src="picKav/irinaslut4.jpg" ></center>'
						 'You dug his lips on the lips of Ira and began her tselovatsya sharing cum in your mouths, Finally you both swallowed his portion of sperm'
						 act 'Ira conduct home':
							 cla
							 minut+=15
							 gs'stat'
							 'You wiped the face of the remnants of sperm and helped her climb and put himself in order. Ira confessed with a beatific smile "Givi and can bellied ugly chock, but he fucked me so, nobody fucked, I even lost consciousness from an orgasm."'
							 'You spent Ira home who could not move away from orgasm. Before the entrance she kissed you on the lips and left.'
							 act 'go home':gt'street'
							 end
						 end
					 act 'Ira conduct home':
						 cla
						 minut+=15
						 dom+=1
						 swallow+=1
						 gs'stat'
						 'You wiped the face of the remnants of sperm and helped her climb and put himself in order. Ira confessed with a beatific smile "Givi and can bellied ugly chock, but he fucked me so, nobody fucked, I even lost consciousness from an orgasm."'
						 'You spent Ira home who could not move away from orgasm. Before the entrance she kissed you on the lips and left.'
						 act 'go home':gt'street'
						 end
					 end
				 end
			 end
		 end
	 exit
	 end
if hour < 22:
	 act 'serve table':
		 cls
		 set minut = minut + 30
		 set manna = manna - 5
		 set znarand = RAND (0,300)
		 set chai = RAND (0,vnesh + oficiant/2)
		 if oficiant < 100:set oficiant = oficiant + 1
		 if vital < 30:set vital = vital + 1
		 set money = money + chai
		 if chai = 0:set willpower = willpower - 5&set manna = manna - 15
		 set manna = manna - 5
		 gs'stat'
		 '<center><img src="picKav/waitress_client.jpg" ></center>'
		 'You served table at which sat Visitors, and received <<chai>> rubles tips.'
		 act 'move_away':gt'kafe','workPred'
		 if znarand > vnesh or bfA > 0:
			 set kaferand = RAND (0,100)
			 if kaferand=0:
				 cls
				 gs'stat'
				 '<center><img src="img/spaln/kafe1.jpg" ></center>'
				 'Serving a table at one of the individual booths you see two men seduce pretty drunk girl, soon she was on her knees sucking both, one of the men looking at you with a clear allusion to join.'
				 act 'Get_Away':gt'kafe','workPred'
				 if daystart>10 and sex>0:
					 act 'Prisoedinitsa a girl':
						 set kafesexrand=1
						 set picrand=13
						 set guy+=2
						 set girl+=1
						 set gang+=1
						 xgt'sexdvanadva','var'
						 end
					 end
				 end
			 if kaferand=1:
				 cls
				 gs'stat'
				 '<center><img src="img/spaln/kafe2.jpg" ></center>'
				 'You serve a table in the attic, with two men, every time you approach them and strive to slap you pinch or run your hands under her skirt.'
				 act 'Get_Away':gt'kafe','workPred'
				 if daystart>10 and sex>0:
					 act 'succumb':
						 set kafesexrand=1
						 set picrand=17
						 set guy+=2
						 xgt'sexdvoe','var'
						 end
					 end
				 end
			 if vnesh>15: 
				 if kaferand=2:
					 cls
					 '<center><img src="picKav/waitress_client.jpg" ></center>'
					 'At the table in a separate room sat a man. He looked appreciatively at you and said "girl, do not keep me company?" at the same time you notice how bristling fly of his trousers, he obviously has got dick.'
					 act 'Get_Away':gt'kafe','workPred'
					 act 'Sit next to him':
						 cls
						 'You sat next to the client. And looked at him expecting that he would take. The client took your palm and put it on the fly.'
						 act 'Get_Away':gt'kafe','workPred'
						 if horny>=50 or bj>0:
							 act 'Unbutton his pants':
								 cls
								 dick=RAND(12,21)
								 gs'stat'
								 '<center><img src="picKav/waitress_work_2.jpg" ></center>'
								 'You undid his pants and pulled out a warm and hard cock <<dick>> inches long, covered with veins and small droplets on the purple head.'
								 act 'masturbate dick':
									 cls
									 boy+=1
									 hj+=1
									 money+=500
									 gs'stat'
									 '<center><img src="picKav/waitress_work_hj.jpg" ></center>'
									 'Clasping his fingers member you started to masturbate, man rather quickly groaned and discharged you in the palm. Then you wiped his cock napkin and he gave you 500 rubles for your work.'
									 act 'Get_Away':gt'kafe','workPred'
									 end
								 act 'sucking dick':
									 cls
									 boy+=1
									 bj+=1
									 gs'stat'
									 '<center><img src="picKav/waitress_work_bj.jpg" ></center>'
									 dynamic $dinrandbj
									 act 'Take cum in her mouth':
										 cls
										 cumlip+=1
										 money+=700
										 gs'stat'
										 '<center><img src="picKav/waitress_work_bj2.jpg" ></center>'
										 dynamic $dinrandswallow
										 act 'Get_Away':gt'kafe','workPred'
										 end
									 end
								 end
							 end
						 end
					 end
				 if kaferand=3:
					 cls
					 '<center><img src="picKav/waitress_client.jpg" ></center>'
					 'At the table in a separate room sat a man. He looked appreciatively at you and said "- girl, do not help? I have prepared for you an excellent tip, but accidentally dropped them under the table. And I myself am so stuffed, that already do not bend..." at the same time you notice how bristling fly of his trousers, he obviously has got dick.'
					 act 'Get_Away':gt'kafe','workPred'
					 act 'Crawl under the table':
						 cls
						 gs'stat'
						 '<center><img src="picKav/waitress_work_3_1.jpg" ></center>'
						 '- Ok, at_the_moment, - I say.'
						 'In the end, Tipping is not for sin and under the table slazit. Standing on all fours and climbed under the table, I did discover there pyatisotrublevuyu paper. But when I extend my hand, what would it take, man comes to the edge of the banknote shoe. Then unzips his pants and pulls out of his pants member.'
						 act 'Get_Away':gt'kafe','workPred'
						 if horny>=50 or bj>0:
							 act 'suck':
								 cls
								 bj+=1
								 guy+=1
								 gs'stat'
								 '<center><img src="picKav/waitress_work_3_2.jpg" ></center>'
								 'And knew, that free cheese... just under the table is not lying.'
								 'But I need these five hundred rubles, so I take his cock hand and goes straight into her mouth. The next five minutes. At_Last, visitor, made several short convulsive movements hips, begins to throw out the hot cum right into my mouth.'
								 act '....':
									 cls
									 cumlip+=1
									 cumface+=1
									 money+=500
									 gs'stat'
									 '<center><img src="picKav/waitress_work_3_3.jpg" ></center>'
									 'Fill my mouth to the brim, He took his foot with notes and I was able to, at_last, pick it up.'
									 act 'Get_Away':gt'kafe','workPred'
									 end
								 end
							 end
						 end
					 end
				 end
			 if kaferand=4:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand.jpg" ></center>'
				 'Going into one of the booths you see that girl leaning over a guy sucking him.'
				 act 'tactfully leave':
					 cls
					 money+=300
					 gs'stat'
					 'You tactfully out of the booth, and after a couple left on a tip found 300 rubles'
					 act 'Get_Away':gt'kafe','workPred'
					 end
				 act 'troubled':
					 cls
					 gs'stat'
					 'You said indignantly, that the cafe is not a brothel, here people eat.'
					 iverand=RAND(0,2)
					 if iverand=0:'The guy had called you a bitch and severing his girlfriend blowjob left the cafe without leaving a penny tip.'
					 if iverand=1:'Guy sent you fucking whore and called frigid, then finished in the mouth of his girlfriend and left without leaving a penny tip.'
					 if iverand=2:
						 'The guy got into the purse and pulled out a dollar bill pyatisotennuyu, "on and leave us"'
						 act 'expel them':gt'kafe','workPred'
						 act 'Get_Away':
							 cls
							 money+=500
							 gs'stat'
							 'You took the money and went further by allowing a couple Entertain.'
							 act 'Get_Away':gt'kafe','workPred'
							 end
						 end
					 act 'Get_Away':gt'kafe','workPred'
					 end
				 if bj>10 and swallow>5 and horny>=50:
					 act 'giggle':
						 cls
						 gs'stat'
						 'The girl looked up from the penis and waved her hand inviting you to join.'
						 act 'tactfully leave':
							 cls
							 money+=300
							 gs'stat'
							 'You tactfully out of the booth, and after a couple left on a tip found 300 rubles'
							 act 'Get_Away':gt'kafe','workPred'
							 end
						 act 'Kneel down in front of a guy':
							 cls
							 bj+=1
							 if SergeaAndKatjaSex=0:SergeaAndKatjaSex=1&guy+=1
							 gs'stat'
							 '<center><img src="picKav/ivrandBJ.jpg" ></center>'
							 'You got up on his knees and began to suck dick with a girl kissing in the process.'
							 act '....':
								 cls
								 cumlip+=1
								 cumface+=1
								 gs'stat'
								 '<center><img src="picKav/ivrandCUM.jpg" ></center>'
								 'Finally the guy broke down and began to finish. Hot sperm gets into your mouth and a little on the face. You dvoem Woman licking dick to dry.'
								 if SergeaAndKatjaQW=0:
									 SergeaAndKatjaQW=1
									 'After blowjob guy introduced himself "I Sergey, and this is Kate. Do not know what`s so hot waitresses work."'
									 end
								 act 'Get_Away':gt'kafe','workPred'
								 end
							 end
						 end
					 end
				 end
			 if kaferand=5:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand.jpg" ></center>'
				 'Serving tables you accidentally noticed as some sort of a girl ukratkoy Fingering dick her boyfriend.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=6:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand3.jpg" ></center>'
				 'Going into one of the booths you see that there sits a few girls and one of them kneeling licking vagina from another.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=7:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand4.jpg" ></center>'
				 'Passing the dance floor where the youth hanging out pyanaya you see as one drunken girl sitting on his haunches began to suck dick.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=8:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand5.jpg" ></center>'
				 'Passing the bar as you saw what that girl squatting sucks dick guy drinking beer..'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=9:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand6.jpg" ></center>'
				 'Going into one of the booths you see that there is the cheerful company of young people and one of devchenok fuck cancer right in front of the table.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=10:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand7.jpg" ></center>'
				 'Fun on the dance floor lit girls.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=11:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand8.jpg" ></center>'
				 'You see how two drunk girls lick passionately feel free to anyone.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=12:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand9.jpg" ></center>'
				 'You see how drunk girl crawled under the table after losing there something, Her skirt rode up and no panties on his ass, so that almost all the cafes can see all the content podyubochnogo space in detail.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=13:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand10.jpg" ></center>'
				 'You see how a couple of drunken frolics, girl licks cock, a man pours champagne in her mouth.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=14:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand11.jpg" ></center>'
				 'Do you happen to notice that a couple of fun chattering girls not only fun chats, one of the girls put her hand into her panties and caresses her girlfriend there.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=15:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand12.jpg" ></center>'
				 'You see how on the dance floor dancing with a Negro girl lapaya her for all that is possible, but the girl apparently do not mind.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=16:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand13.jpg" ></center>'
				 'Going into one of the booths you see the guys play with girls cards on the strip and the girl is clearly losing sitting in his underwear.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=17:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand14.jpg" ></center>'
				 'You see two guys dancing with a girl in every way it lapaya and bullying her skirt, on the girl reacts laugh without even trying to cover up how your profiles from the eyes of the surrounding public.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=18:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand15.jpg" ></center>'
				 'You see on the dance floor as a guy kisses a girl and he ran her hand under her skirt almost fucks her fingers through panties.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=19:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand16.jpg" ></center>'
				 'You can see how at the bar one drunken girl spread her Lyashko and at least buhoy and cheerful young man fuck her pussy with her fingers.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=20:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand17.jpg" ></center>'
				 'You see the guy hugging drunk girl in the wood and took a mouthful of beer pours it to her with a kiss while the other guy matzo her boobs.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=21:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand18.jpg" ></center>'
				 'Going to the attic you see two guys pyalyut at both ends for a Woman, which chomps sucking cock and ass podmahivaet trying to spread on a member of the second guy as far as possible.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=22:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand19.jpg" ></center>'
				 'You see on the dance floor as one no longer young madam in revealing outfits dancing with a young guy paw her.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=23:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand20.jpg" ></center>'
				 'You see how two young men bent over her and portrayed her sexual intercourse under the cheerful and leaping laughter girls.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand=24:
				 cls
				 horny+=5
				 gs'stat'
				 '<center><img src="picKav/ivrand21.jpg" ></center>'
				 'Going into one of the booths you see as man licks pussy then a cheeky lady, which put her Lyashko on his back and catching a buzz smokes a cigarette.'
				 act 'Get_Away':gt'kafe','workPred'
				 end
			 if kaferand >= 90 and opusk > 0 and pirsA = 0:
				 cls
				 '<center><img src="picBody/pirs.jpg" ></center>'
				 'Beckons you to one of the clients, you come to the table and notice that before you are the real criminals.'
				 'When you come to the table, leader called you close to me, and when you come, it is very hard and painful grabbed you by the neck.'
				 'The ringleader told you - vaflersha, open your mouth. You obediently opened his mouth, He looked back and you slapped you podschechinu. I do not see a pierced tongue. Vaflersha should wear piercings, that would be a decent person could immediately understand that before him chlenososka.'
				 'The ringleader turned to his old chap and said. It is necessary to draw chlenososku. Tackle. At the same moment you grabbed strong arms and carried out of the cafe, there was thrown into the back seat of the jeep. And the jeep jumped up.'
				 'Drove you not very long, On reaching the gate somehow, jeep and signaled gates opened soundlessly. Jeep drove to the territory Cottages. Strong lads pulled you out of the car and dragged him to the basement.'
				 'The basement has all the tools were ready. You sat on a chair and a hefty tattooed bandyugan came to you with a clamp and scissors, he pulled you out of the mouth and tongue pierced his lightning speed needle. In a bleeding wound in the language he zasoval small post.'
				 set pirsA = 1
				 set pirsday = day
				 'Damn, it is very painful. You moan with his tongue hanging out, bandyuki laugh at your pain. Finally your tongue pulled out of the clamp. How did you hurt. Bandits escorted you out of Cottages.'
				 act 'go home':gt'street'
				 end
			 if kaferand >= 8 and opusk > 0 and pirsA = 1 and hour >= 12 and hour <= 19:
				 cls
				 'You beckons mob boss to his table. You came up to him with trembling knees. He looks at you like a boa constrictor on the rabbit and says, vaflersha, open	mouth. You obediently open your mouth and draw out the tongue piercing labeled.'
				 'The ringleader took you for the face and stared saw piercing. All the guys did a good job. Okay vaflersha, crawl under the table and entertain me.'
				 act 'Get under the table':
					 cla
					 '<center><img src="pics/glavarBJ.jpg" ></center>'
					 'You dutifully crawled under the table and pulled out a member of the leader of his pants, obediently caress his tongue and begins to suck. Ringleader as if the whole is made of stone, he did not flinch a muscle when he emptied his stock of sperm in your mouth.'
					 if glavar = 0:Set glavar = 1&Set guy+= 1
					 bj+= 1
					 Set horand = RAND (1,100)
					 if horand > horny:Set horny = horny + 10&'You were not satisfied'
					 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
					 cumface = cumface + 1
					 'You swallow all his cum and licked his cock until dry.'
					 act 'return to work':gt 'kafe','workPred'
					 end
				 end
			 end
		 if znarand <= vnesh and bfA <= 0:
			 cls
			 gs'boy'
			 '<center><img src="picKav/waitress_client.jpg" ></center>'
			 'At the table sits <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
			 'You took his order, he took the bill and asked if he could meet you.'
			 act 'No':
				 cla
				 set money = money + 10
				 'Man upset, has left you 10 rubles tip and left.'
				 act 'move_away':gt'kafe','workPred'
				 end
			 if bfA <= 0 or bfB = 0 or bfC = 0:
				 act 'Yes_I_Am':
					 cla
					 set money = money + 100
					 gs'boyfrend','start'
					 set stopboy = 0
					 'The guy was delighted to, that you do not mind to meet him. He introduced himself as <<$boy>> and asked for a phone number, promising to call you back tomorrow.'
					 'Then left you a hundred rubles .'
					 act 'move_away':gt'kafe','workPred'
					 end
				 end
			 end
		 end
	 end
if hour >= 22:
	 act 'This collection of home':
		 cla
		 if GiviSex = 0 and Givi < 90 or Vnesh <0:
			 'Givi nodding your head, "bye now, Svetik."'
			 act 'Get_Away':
				 cla
				 set minut = minut + 5
				 gt'kafeend'
				 end
			 else
				 dynamic $givipredlogdin
			 end
		 end
	 end
end

if $ARGS[0]='razvod':
cla
!*clr
!act 'Get up from the table':gt'kafe','start'
Set deyst = RAND (0,3)
if deyst = 0:
	 '<<$boy>> invited you to dance.'
	 act 'dance':gt 'cafe2','dance'
	 if horny < 75:
		 act 'otshit':gt 'street'
		 end
	 end
if deyst = 1:
	 '<<$boy>> asked permission to sit down at a table to you.'
	 act 'drink':gt 'cafe2','booze'
	 if horny < 75:
		 act 'otshit':gt 'street'
		 end
	 end
if deyst = 2:
	 '<<$boy>> invited you to join the party on which he walks.'
	 act 'agree':gt 'cafe2','kampashka'
	 if horny < 75:
		 act 'otshit':gt 'street'
		 end
	 end
if deyst = 3:
	 '<<$boy>> drunk in the trash and going to pour you an incredible smell you. "Hey babe, what time to pull? Come have fun in toilet."'
	 act 'agree':gt 'cafe3','wc'
	 if horny < 95:
		 act 'otshit':
			 cla
			 derand=RAND(0,100)
			 if derand<vnesh:
				 'Fair_Enough, baby, I will give two thousand. Daddy must be fun.'
				 act 'agree':
					 money+=2000
					 gt 'cafe3','wc' 
					 end
				 else
				 'Oh well, get lost, you still have legs and curves ebalo like a monkey.'
				 end
			 act 'Fuck you':gt 'street'
			 end
		 end
	 end
end
--- kafe ---------------------------------

# kafedinamic
$kafetualet={
cls
'<center><img src="LakeCafe/Toilet.jpg" ></center>'
'Dirty and smelly toilet, wherein, seems, never cleaned'
clr
gs'stat'

turand=RAND(0,100)
if turand=0:
cls
gs'stat'
'<center><img src="picKav/tuarand.jpg" ></center>'
'Going to the toilet as you saw in one of the booths drunk girl with a bottle in his hand rides a dick guy standing on the toilet rassevshegosya.'
act 'Get_Away':gt'kafe','workPred'
exit
end
if turand=1:
cls
gs'stat'
'<center><img src="picKav/tuarand1.jpg" ></center>'
'Going to the toilet that you saw what that skinny girl sucks dick at the guy who shoots everything on camera.'
act 'Get_Away':gt'kafe','workPred'
exit
end
if turand=2:
cls
gs'stat'
'<center><img src="picKav/tuarand2.jpg" ></center>'
'Going to the toilet you caught what that redhead girlfriend for suction member.'
act 'Get_Away':gt'kafe','workPred'
exit
end

     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':dynamic $kafetualet
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':dynamic $kafetualet
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':dynamic $kafetualet
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':dynamic $kafetualet
				 end
             end
         end
     end


	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
		 act 'substitution 15 min':
		 cla
		 *clr
		 dynamic $showerdin
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pics/wash5.jpg" ></center>'
		 'You carefully washed sperm with yourself.'
		 act 'Go_Out':dynamic $kafetualet
		 end
	end

	if cumlip > 0 or cumface > 0:
		 act 'Wash off with facial cum 15 min':
		 cla
		 *clr
		 set mop=1
		 set cumlip = 0
		 set cumface = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pic/facesp.jpg" ></center>'
		 'You carefully washed sperm from the face.'
		 act 'Go_Out':dynamic $kafetualet
		 end
	end

	if cumfrot > 0:
		 act 'Wipe the cum from clothes 15 min':
		 cla
		 *clr
		 set cumfrot = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 !'<center><img src="pic/facesp.jpg" ></center>'
		 'You have erased the traces of semen from clothing.'
		 act 'Go_Out':dynamic $kafetualet
		 end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 act 'End_Up':dynamic $kafetualet
		 end
	 end

act 'Get_Away':gt'kafe','workPred'
}
$gividin={
cls
gs'stat'
if hour<22:
'You have come to the bar behind which stands the cafe owner Givi Karapetovich, he is not looking up from wiping glasses looked at you.'
	 if hour = 20 and Givi >= 90:
		 act 'Asked permission from Givi':
		 cla
		 set minut = minut + 5
		 set Givi = Givi - 5
		 'You take time off to leave early Givi Karapetovich. He`s a bit angry but let you go.'
		 act 'move_away':gt'street'
		 end
	 end
	 
	 if Kavslut > 0 and IrinaQW >=10 and IrinaSlut=0 and hour<=20:
	     act 'Ask Givi raise the salary Ira':
	     cla
	     IrinaSlut=1
	     set minut = minut + 30
	     gs'stat'
	     'You are asked to raise the salary Givi Ira. Givi hemmed "This is why?" You appeal to the fact that she was a close friend of yours and you want to help her. Givi promised to think about the salary increase.'
	     act 'move_away':gt'kafe','workPred'
	     end
	 end
 
	 act 'Chat with Givi':
	 cla
		 if GiviSex = 0:
		 set minut = minut + 30
		 set manna = manna + 5
		 if Givi <= 90:set Givi = Givi + RAND (10,25)
		 if Givi>90 and GiviSex=0:Givi=90
		 'You talked at the bar with the owner of the cafe and part-time bartender Givi Karapetovich.'
		     if Givi=90:
              'Departing from Givi you suddenly received a slap on the ass with his hand. Turning you saw that Givi smiling.'
             end 
		 act 'move_away':gt'kafe','workPred'
		 end
		 
		 if GiviSex >= 1 and kavslut=0:
		 set minut = minut + 63
		 set manna = manna + 5
		 Givi=100
		 'You talked at the bar with the owner of the cafe and part-time bartender Givi Karapetovich.'
		 'Wai Svetik, I enjoyed it so much last time. Stay with me at night, help.'
		 'Departing from Givi you suddenly received a slap on the ass with his hand. Turning you saw that Givi smiling.'
		 act 'move_away':gt'kafe','workPred'
		 end
		 
		 
		 if GiviSex >= 1 and kavslut>0:
		 set minut = minut + 30
		 set manna = manna - 5
		 set Givi = 100
		 set givirand = RAND (0,100)
			 if givirand < 10 and Venera < 4:
			 '"Svetik, I what that napryazhonny, take away my stress" With these words'
				 act 'Kneel':
				 cla
				 *clr
				 set smenaKafe = smenaKafe + 1
					 if giviSex < 2:set GiviSex = 2
				 set bj = bj + 1
				 gs'bdman','givi'
				 set SUB = SUB + 1
				 gs'stat'
				 '<center><img src="picVA/barbj.jpg" ></center>'
				 'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				 gs'bdsex','autobj'
				 'Givi firmly grabbed you by the hair and pulled your mouth on his cock deep.'
					 act 'continue to suck.':
					 cla
					 *clr
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 gs'stat'
					 '<center><img src="picV/swallow1.jpg" ></center>'
					 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$boy>> continued to cum in your mouth. Finally.'
					 act 'move_away':gt'kafe','workPred'
					 end
				 end
				 if GiviSex < 2:
					 act 'Sdurel something?':
					 cla
					 '"Bax, Svetik, gee you whore, zachem soprotivlyaeshsya, I tebe money in salary `ll write more, there will be many deneg, dresses to buy, kasmetika." said Givi'
					 act 'move_away':gt'kafe','workPred'
					 end
				 end
			 end
			 if givirand >= 10 or Venera >= 4:
			 'Givi strongly slapped you in the ass and whinnied. "Sveta, zvezda mineta!"'
			 act 'move_away':gt'kafe','workPred'
			 end
		 end
	 end
 else
	 if Vnesh <0:
	 'Givi nodding your head, "bye now, Svetik."'
		 act 'Get_Away':
		 cla
		 set minut = minut + 5
		 gt'kafeend'
		 end
	 else
	 dynamic $givipredlogdin
	 end
 end
}

$ashotdin={
cls
gs'stat'
'You went to the kitchen where he studied cooking chef Ashot. dishwasher <a href="exec:dynamic $tamdin">Tamara</a> As always stands at the sink and washes dishes.'

if hour<22:
	 act 'Eat and drink in the kitchen':
	 cla
	 set minut = minut + 30
	 gs'stat'
	 frost=0
	 set health = health + 10
		 if energy >= 30:
		 set fat = fat + 5
		 'You can no longer have.'
		 end
		 if energy >= 20 and energy < 30:
		 set fat = fat + 3
		 set energy = energy + 10
		 'You pushed through the power of a meal.'
		 end
		 if energy < 20:
		 set energy = energy +20
		 set fat = fat + 1
		 'You gladly ate cooked food.'
		 end
		 if water >= 20:
		 'Tea in you no longer climbs.'
		 end
		 if water < 20:
		 'You gladly drank a cup of tea.'
		 set water = water +20
		 end
	 act 'move_away':gt'kafe','workPred'
	 end
 
     act 'Chat with Ashot':
	 cla
	 set minut = minut + 30
	 set manna = manna + 5
	 gs'stat'
	 if Ashot <= 90:set Ashot = Ashot + RAND (0,5)
	 
		 if giviSex > 0 and Ashotsex = 0:
			 if Ashot <= 90:set Ashot = 90
			 set horny = horny + 10
			 'When you entered the kitchen, Ashot came up to you and squeezed his hand your buttock, you even shrieked. Ashot laughed.'
			 act 'move_away':gt'kafe','workPred' 
		 end
		 if giviSex = 0 and Ashotsex = 0:
			 'You talked in the kitchen with the chef Ashot.'
			 act 'move_away':gt'kafe','workPred' 
		 end
	     if giviSex > 0 and Ashotsex > 0:
		 set Ashotrand = RAND (0,100 )
			 if Ashotrand > 20:
				 set horny = horny + 10
				 '"You`re a cool bitch" said Ashot grabbing your ass.'
				 act 'move_away':gt'kafe','workPred'
			 end
		     if Ashotrand <= 20:
			 *clr
			 cla
			 'When you entered the kitchen, Ashot came up to you and gripped his palms your buttocks : " - Razdevaysya! My dick missed on your ass"'
				 act 'allow':
				 *clr
				 cla
					 if analplugin=1 : 
						 *clr
						 cla
						 '<center><img src="picL/analplug.jpg" ></center>'
						 'Wai what razvratnytsa! - vosklikunul Ashot pulling out of your ass anal plug.'
						 set analplugin=0
						 act 'become_confused':
						 
							 *clr
							 cla
							 '<center><img src="picL/analkafe.jpg" ></center>'
							 'Then you put the cancer and put dick in the ass. Without giving time to relax the sphincter, he became rude fuck you deep pounding dick. Ashot hard to keep your hips from bumps member in the ass you have tears flowed from his eyes. "- Move your ass, Move, lustful whore!" '
							 act 'moan': 
							 *clr
							 cla
							 '<center><img src="picL/kafeanpie.jpg" ></center>'
							 set horny = horny + SUB - DOM + ((anus-18)*3)
							 'Ashot leaned forward thrusting his cock as deep as possible. '
							 set anal=anal+1
							 if 18 > anus:set anus = anus + 1
							 if horny >=100 :
								 horny  = 1
								 set orgasm = orgasm + 1
								 set analorgasm= analorgasm+1
								 'In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
							 end
							 
							 'Hot jet of sperm hit your ass. Ashot finished and hit you in the ass, saying, that a hole and need to fuck to fuck. And then pulled out a member and you feel like out of your ass rastrahannoy flowed a trickle of sperm. .'
							 set Ashotsex = Ashotsex + 1
							 set cumanus = cumanus + 1
							 act 'move_away':gt'kafe','workPred'
							 end
						 end
					 else
						 '<center><img src="picL/analkafe.jpg" ></center>'
						 'Then you put the cancer and put dick in the ass. Without giving time to relax the sphincter, he became rude fuck you deep pounding dick. Ashot hard to keep your hips from bumps member in the ass you have tears flowed from his eyes. "- Move your ass, Move, lustful whore!" '
						 act 'moan': 
							 *clr
							 cla
							 '<center><img src="picL/kafeanpie.jpg" ></center>'
							 set horny = horny + SUB - DOM + ((anus-18)*3)
							 'Ashot leaned forward thrusting his cock as deep as possible. '
							 set anal=anal+1
							 if 18 > anus:set anus = anus + 1
							 if horny >=100 :
								 horny  = 1
								 set orgasm = orgasm + 1
								 set analorgasm= analorgasm+1
								 'In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
							 end
							 
							 'Hot jet of sperm hit your ass. Ashot finished and hit you in the ass, saying, that a hole and need to fuck to fuck. And then pulled out a member and you feel like out of your ass rastrahannoy flowed a trickle of sperm. .'
							 set Ashotsex = Ashotsex + 1
							 set cumanus = cumanus + 1
							 act 'move_away':gt'kafe','workPred'
						 end
					 end 
				 end     
				 
			 end
			 
		 end
		 
	 end
	 
	 if giviSex = 0 and Ashotsex > 0:
	 set horny = horny + 10
	 '"Slyushay, you are so juicy ass around my dick spit, wai, still remember." said Ashot grabbing your ass.'
	 
	 end
else
'Ashot lays kitchen appliances in their places ready to leave.'
end
act 'move_away':gt'kafe','workPred'
}



$iradin={
cls
gs'stat'
'Ira just not worth than not occupied at the counter.'
if hour < 22:
	 act 'Chat with Irina':
	 cla
	 set minut = minut + 30
	 set manna = manna + 5
	 gs'stat'
	 set willpower = willpower + RAND (0,1)
	 if Irina <= 100:set Irina = Irina + RAND (0,5)
	 gs'stat'
	 'You chatted with the waitress at the bar Ira.'
		 if IrinaQW ! 10 or IrinaLesbSex>=3:
			 if GiviSex >= 1 and Kavslut = 0:
			 'Ira with round eyes tells you, that the rumor goes, if you have Givi in the mouth took.'
			 end
			 if Kavslut > 0:
			 'Ira tells you, that it is aware that you are Caucasians fucked in the evening in stock.'
			 end
		 end
		 
		 if IrinaQW = 10 and IrinaLesbSex=2:
		 IrinaLesbSex=3
		 'Irina seems relaxed and no longer twitches with your appearance.'
		 end
		 if IrinaQW = 10 and IrinaLesbSex=1:
		 IrinaLesbSex=2
		 'Irina you smiling and trying to communicate, but it is coming out as it strained.'
		 end
		 if IrinaQW = 10 and IrinaLesbSex=0:
		 IrinaLesbSex=1
		 'Irina clearly looks confused and tries not to look you in the eye. You approached her and tried to comfort her. Irina nodded and said you "Let`s pretend to work, that there was nothing. I do not want, that would be about it somebody know." You agreed with Ira.'
		 end
	 act 'move_away':gt'kafe','workPred'
	 end
 else
     if IrinaSlut>=2:
     dynamic $givipredlogdin
     end
     if IrinaSlut<2:
		 act 'Go home with Irina':
		 cla
		 Irina+=5
		 set minut = minut + 5
		 gs'stat'
			 if Irina<100:
				 if Irina<50:
					 if GiviSex >= 1 and Kavslut = 0:
					 $irinatalk='Along the way she mostly silent and looks askance at you'
					 elseif Kavslut > 0:
					 $irinatalk='Along the way she mostly silent and looks askance at you.'
					 else
					 $irinatalk='Irina mostly silent all the way.'
					 end
				 $irinaend='Near the entrance is reserved to you says goodbye and goes to his home.'
				 end
				 if Irina>=50:
					 if GiviSex >= 1 and Kavslut = 0:
					 $irinatalk='Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
					 elseif Kavslut > 0:
					 $irinatalk='Along the way she mostly silent, but emboldened begins to ask you about the adventures of a hachami wondering how can you be such a litter you.'
					 else
					 $irinatalk='Irina on the road is about trifles.'
					 end
				 $irinaend='Near the entrance she waves you hand and goes to his home.'
				 end
			 end
			 if Irina >= 100 and IrinaQW=1:
				 if GiviSex >= 1 and Kavslut = 0:
				 $irinatalk='Irina on the road tells about her ex-boyfriend.'
				 elseif Kavslut > 0:
				 $irinatalk='Irina on the road tells about her ex-boyfriend. And also about how she once made вЂ‹вЂ‹a blowjob in the bathroom of the club drunk with what that guy.'
				 else
				 $irinatalk='Irina fun chatting all the way trivia.'
				 end
			 $irinaend='Ira standing at the entrance invites you to come to her.'
			 act 'Enjoy a visit to Ire':gt'IrinaRoom','first'
			 end
			 if Irina >= 100 and IrinaQW >=10 and IrinaSlut>=2:
				 if Kavslut > 0:
				 $irinatalk='Ira says smiling that she had long wanted to stop being a nun and live freely and she thanks you for your help..'
				 end
			 $irinaend='Standing at the door of her house Ira invites you to come to visit her.'
			 act 'Go to Ira visit':gt'IrinaRoom','first'
			 end
			 if Irina >= 100 and IrinaQW >=10 and IrinaSlut=1:
				 if GiviSex >= 1 and Kavslut = 0:
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure.'
				 elseif Kavslut > 0:
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once.'
				 else
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure.'
				 end
			 $irinaend='Standing at the door of her house Ira invites you to come to visit her.'
			 act 'Go to Ira visit':gt'IrinaRoom','first'
			 end
			 if Irina >= 100 and IrinaQW >=10 and IrinaSlut=0:
				 if GiviSex >= 1 and Kavslut = 0:
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure.'
				 elseif Kavslut > 0:
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once. She also asked her to speak to her word Givi, she also wants a pay rise.'
				 else
				 $irinatalk='Ira smiling surprised that he did not expect to have sex with a woman such pleasure.'
				 end
			 $irinaend='Standing at the door of her house Ira invites you to come to visit her.'
			 act 'Go to Ira visit':gt'IrinaRoom','first'
			 end
			 if Irina >= 100 and IrinaQW=2:
				 if GiviSex >= 1 and Kavslut = 0:
				 $irinatalk='Irina mostly silent all the way, but mustered committed says he did not expect that he did not expect from you, In order that you not only sleep with men, but also with women. Trying to be polite , that`s what it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				 elseif Kavslut > 0:
				 $irinatalk='Irina mostly silent all the way, but mustered determination says that from such a whore as you can of course it was all expected and tells you that you do loose. Trying to be polite , that`s what it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				 else
				 $irinatalk='Irina mostly silent all the way, but mustered committed says he did not expect that such a nice girl like you, actually lesbian. Trying to be polite , that`s what it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				 end
			 $irinaend='Going to the door she says goodbye to you and leaves.'
			 end
			 if Irina >= 100 and IrinaQW = 0:
			 set IrinaQW = 1
			 $irinatalk='Ira fun twitters all the way.'
			 $irinaend='She invites you as a Saturday to go to visit her and goes to his entrance.'
			 end
			 'You got together and went home with Irina. <<$irinatalk>> You get to the house where he lives Ira. <<$irinaend>>'
		 act 'say_goodbye':gt'street'
		 end
	 end
 end
}

$tamdin={
cls
gs'stat'
'Tamara without looking up from the dishes turned to you.'
if hour < 22:
	 act 'Chat with Tamara':
	 cla
	 set minut = minut + 30
	 set manna = manna + 5
	 set willpower = willpower + RAND (0,2)
	 if Tamara <= 100:set Tamara = Tamara + RAND (0,5)
	 'You talked in the kitchen with dishwasher Tamara.'
	     if GiviSex >= 1 and Kavslut = 0:
         'Tamara snorts. Wow, and not ashamed to suck Givi for wages, what an abomination!'
         end
	     if Kavslut > 0:
         'You whore Caucasian, stamp your here.'
         end
	 act 'move_away':gt'kafe','workPred'
	 end
 else
 'She already going home and offers to go along.'
	 act 'Go home with Tamara':
	 cla
	 set minut = minut + 5
	 if clener=1:'You walk down the street with Tamara, she does not live podaleku from you and when you come to her house she stops poproschatsya with you.'
	 if clener=0:clener=1&'You walk down the street with Tamara, Tamara tells you about, that it sometimes works as a cleaner in an office building nearby.'
	 act 'say_goodbye':gt'street'
	 end
 end
}

$givipredlogdin={
 if IrinaSlut>=2:
 'Givi revolves around Ira, Givi and not how much embarrassed squeezes her ass and snorts "Wai, Ira, you`re a real slut." He turns to you "Hey Svetik, stay in the evening, earn bonus."'
	 act 'Just as well stay with them':
	 gt'kavkazkafe','podgivi'
	 end
 
	 act 'go home':
	 cla
	 set minut = minut + 5
	 gt'kafeend'
	 end
 exit
 end
 'Givi walks with a notepad and recalculates the bottle. Wai Sveta, ti smart head, help find a bottle.'
	 act 'Excuse_Me, but I must go home':
	 cla
	 set minut = minut + 5
	 'You apologized and steel This collection of home.'
		 if GiviSex > 0:
		 'Wai Svetik. stay, PREM earn, fun_too.'
			 act 'Still':
			 cla
			 set minut = minut + 5
			 gt'kafeend'
			 end
			 
			 act 'help Givi':
			 gt'kavkazkafe','podgivi'
			 end
		 exit
		 end
		 if GiviSex = 0:
		 'Wai Svetik, Why insult and? I am to you as a mother. And you do not want to help the old man.'
			 act 'Still':
			 cla
			 Givi=0
			 set minut = minut + 5
			 gt'kafeend'
			 end
			 
			 act 'help Givi':
			 gt'kavkazkafe','podgivi'
			 end
		 exit
		 end
		 
		 act 'go home':
		 cla
		 set minut = minut + 5
		 gt'kafeend'
		 end
	 end
	 
	 act 'help Givi':
	 gt'kavkazkafe','podgivi'
	 end
 }



--- kafedinamic ---------------------------------

# kafeend

endrand=RAND(0,100)

if endrand>15:
gt'street'
else
     if endrand=0:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand.jpg" ></center>'
	 'On leaving the cafe . You`ll also notice that one of the girls wasted no time in vain started doing blowjob her boyfriend did not embarrassed by the presence of outsiders.'
	 act 'Get_Away':gt'street'
     end
     if endrand=1:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand1.jpg" ></center>'
	 'Coming out of the cafe you noticed the car was in the dark, passing out of it you see that sensitively in the open trunk of a guy zhetko hammer heifer, so much so that as much shock and creaking machine raskazivaetsya. Litter only moans and whispers "yet, yet!"'
	 act 'Get_Away':gt'street'
     end
     if endrand=2:
      horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand2.jpg" ></center>'
	 'On leaving the cafe . In the crowd you are surprised to see how one of the girls licking pussy the other without paying attention to others.'
	 act 'Get_Away':gt'street'
     end
     if endrand=3:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand3.jpg" ></center>'
	 'Coming out of the cafe you heading home and when you walked past the car .'
	 act 'Get_Away':gt'street'
     end
     if endrand=4:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand4.jpg" ></center>'
	 'Coming out of the coffee shop you went home and noticed how the side of the cafe a couple fucking. Maid was squatting and sucking cock.'
	 act 'Get_Away':gt'street'
     end
     if endrand=5:
      horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand5.jpg" ></center>'
	 'Coming out of the cafe you heading home and when you walked past the car you suddenly saw a woman sitting on the front seat of the car does blowjob guy smacking with a member in the mouth.'
	 act 'Get_Away':gt'street'
     end
     if endrand=6:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand6.jpg" ></center>'
	 'Coming out of the cafe you notice between parked cars sitting girl with his pants down and pissing smiling blissfully.'
	 act 'Get_Away':gt'street'
     end
     if endrand=7:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand7.jpg" ></center>'
	 'Coming out of the cafe you notice what that merry damsel that danced kicking up his feet and at the same time managed to still drink from the cup.'
	 act 'Get_Away':gt'street'
     end
     if endrand=8:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand8.jpg" ></center>'
	 'Coming out of the cafe you noticed a girl lying on the pavement, She was wearing only a sweater does not hide her naked pussy. The girl was obviously drunk as a lord.'
	 act 'Get_Away':gt'street'
     end
     if endrand=9:
      horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand9.jpg" ></center>'
	 'Coming out of the cafe you noticed that on the bench asleep drunk guy with a girl vusmert, probably sleep overtook them directly during petting thought you looking at them.'
	 act 'Get_Away':gt'street'
     end
     if endrand=10:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand10.jpg" ></center>'
	 'Coming out of the cafe as you notice what that middle-aged man .'
	 act 'Get_Away':gt'street'
     end
     if endrand=11:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand11.jpg" ></center>'
	 'Coming out of the cafe you noticed that right at the entrance lying on the pavement located drunk girl passed out.'
	 act 'Get_Away':gt'street'
     end
     if endrand=12:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand12.jpg" ></center>'
	 'Coming out of the cafe you noticed that the girl had fallen asleep drunk ass sitting in an urn and failure there.'
	 act 'Get_Away':gt'street'
     end
     if endrand=13:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand13.jpg" ></center>'
	 'Coming out of the cafe you noticed how one girl tries to unstick from the asphalt his drunken girlfriend who mumbles something and drunken giggles.'
	 act 'Get_Away':gt'street'
     end
     if endrand=14:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand14.jpg" ></center>'
	 'Coming out of the cafe you noticed lying drunk girl without panties.'
	 act 'Get_Away':gt'street'
     end
     if endrand=15:
     horny+=5
	 gs'stat'
	 '<center><img src="picKav/arand15.jpg" ></center>'
	 'Coming out of the cafe you noticed how a man is somewhere a little wife spree that dopilas before it began to show a striptease on the street.'
	 act 'Get_Away':gt'street'
     end
end





--- kafeend ---------------------------------

# kavkazkafe
if $ARGS[0]='podgivi':
gs'bdman','givi'
gs'dinsexgivi'
minut+=30
gs'stat'
podrand=RAND(0,100)
if IrinaSlut>=2:
	 cla
	 *clr
	 if bjgiviiraonce=1:bjgiviiraonce=0
	 smenaKafe = smenaKafe + 1
	 tiprand=RAND(0,1)
	 if tiprand=0:
		 'Givi grinned grab you both hands "Wai, Come heifers, fun_too."'
		 act 'go.':gt'kavkazkafe','threesome'
		 end
	 if tiprand=1:
		 'Entered the room and said Ashot "Well swirls, Fingering hole, Now you real horsemen in all holes otebut."'
		 act 'go.':gt'kavkazkafe','foursome'
		 end
	 exit
	 end
if podrand<70 and kavslut>0:
     gs'bdman','ashot'
     '<center><img src="picKav/podsob.jpg" ></center>'
      'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
     'Suddenly the door opened into the back room and came back Ashot. You looked at Caucasians.'
     'Givi said, wai, and that? we liked, Svetik, cup your holes, Now you have two horseman fuck, Age will not forget.'
     act 'Get_Away':gt'street'
     act 'Fair_Enough.':gt'kavkazkafe','grup'
     exit
     end
if podrand<70 and kavslut=0 and giviAnalOnce=1:
     gs'bdman','ashot'
     '<center><img src="picKav/podsob.jpg" ></center>'
     'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
     'Suddenly the door opened into the back room and came back Ashot. You looked in amazement at the Givi.'
     'Givi smiled. "Svetochka, my nephew Ashotiku it is high time to become a man, I hope you`ll help him, for the premium will not be found."'
		 act 'But for whom do you take me?':
		 cla
		 'you have rebelled "But for whom do you take me?"'
		 'Givi laughed. "Come boldly devochka. I know you want potrahatsya with two such jigits, wai , do not be afraid."'
		 'Ashot came up to you and held out his arms that would hug you.'
			 act 'Allow yourself to embrace':gt'kavkazkafe','grup'
			 act 'All I`ve had enough of this, I `m going home!':
			 cla
			 'you blurted out "All I`ve had enough of this, I `m going home!" and turned to walk toward the exit.'
			 'Givi trotted after "Svetik well wait I`m poshyutil, zachem offended?"'
			 act 'Get_Away':gt'street'
			 end
		 end
		 act 'Well, let_us.':gt'kavkazkafe','grup'
     exit
     end

'<center><img src="picKav/podsob.jpg" ></center>'
'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
'Givi told you to find fault in the box with the bottom ,You leaned over and started counting.'
if givisex=0:
	 'You felt like a hand Givi squeezed your ass and start stroking you from behind.'
		 act 'Continue to be considered pretending not notice':
		 cla
		 gs'stat'
		 'You grinned and continued to be considered as not in what happened. Givi already being groped on your ass handed.'
		 '(Givi) - Svetik. I want you. Come to me sweetie.'
		 'Strong hands Givi deployed you to it. And you find yourself face to face with Givi.'
		 act 'Kneel':gt'kavkazkafe','givibj'
			 act 'But for whom do you take me?':
			 cla
			 'you have rebelled "But for whom do you take me?"'
			 'Givi zauhmylyalsya. "you`re a whore, zachem booty in front of the guy Werth?"'
				     act 'Kneel':
                     money+=5000
                     gt'kavkazkafe','givibj'
                     end
				 act 'All I`ve had enough of this, I `m going home!':
				 cla
				 'you blurted out "All I`ve had enough of this, I `m going home!" and turned to walk toward the exit.'
				 'Givi grabbed you by the arm and dragged her to a chair in the back.'
				 act 'Trying to pull his hand':gt'kavkazkafe','givirape'
				 end
			 end
		 end
		 act 'Remove his hands':
		 cla
		 gs'stat'
		 'You stood up and looked at Givi. "What do you allow yourself Givi Karapetovich?"'
		 'Givi licking and devouring your burning eyes spoke haltingly "Wai Svetik, you`re so juicy, slyushay, want money? I `ll do you a bonus, you will live like a queen."'
		 act 'Kneel':gt'kavkazkafe','givibj'
			 act 'But for whom do you take me?':
			 cla
			 'you have rebelled "But for whom do you take me?"'
			 'Givi again zalopotal closing in on you and clasping hands. "Come boldly devochka. want, I`ll now give deneg? five thousand? And bonus."'
				 	 act 'Kneel':
                     money+=5000
                     gt'kavkazkafe','givibj'
                     end
				 
				 act 'All I`ve had enough of this, I `m going home!':
				 cla
				 'you blurted out "All I`ve had enough of this, I `m going home!" and turned to walk toward the exit.'
				 'Givi trotted after "Svetik well wait I`m poshyutil, zachem offended?"'
				 act 'Get_Away':gt'street'
				 end
			 end
		 end
	 else
	 'Givi relish slapped you in the ass hand.'
	 '(Givi) - Wai, What`s ass tebya. Svetsik suck me, I will add you bonus.'
	 act 'Kneel':gt'kavkazkafe','givibj'
	 act 'Get_Away':gt'street'
	 end
end

if $ARGS[0]='grup':
Givi = 100
smenaKafe = smenaKafe + 2
if GiviSex = 0:set GiviSex = 1&set guy = guy + 1
if Ashotsex = 0:set Ashotsex = 1&set guy = guy + 1
minut+=5
kavslut+=1
gang+=1
bj+=2
gs'stat'
picrand=RAND(0,1)
if picrand=0:'<center><img src="picKav/grupbj.jpg" ></center>'
if picrand=1:'<center><img src="picKav/grupbj1.jpg" ></center>'
'You knelt down and took both hands to members. You obediently opened his mouth and wrapped his <<$liptalk>> purple and warm dick started to absorb it in your mouth, after a few movements you masturbate without stopping first term cupped his mouth working second term and became his suck, so you take turns sucking members and tried to take just two dick in your mouth work.'
act 'helplessly moo':gt'kavkazkafe','grup1'
end

if $ARGS[0]='grup1':
minut+=5
gs'stat'
picrand=RAND(0,1)
if picrand=0:'<center><img src="picKav/grupv.jpg" ></center>'
if picrand=1:'<center><img src="picKav/grupv1.jpg" ></center>'
dynamic $sexudo
 'You suck dick Givi their <<$liptalk>> absorbing his every move to the throat while Ashot hews your pussy.'
 if givserand>=8:anus+=1&'During sex Ashot you stuck a finger in the ass and started massaging her.'
 gianrand=RAND(0,10)
     if anus>1 and gianrand>=8:
     'Ashot suddenly pulled out of his dick and you become stronger fingers work in your ass.'
     act 'Suck Givi':gt'kavkazkafe','grup2'
     exit
     end
 'Ashot suddenly pulled out of your cock and taking you by the shoulders put in front of him on his knees.'
 act 'substitute person':gt'kavkazkafe','grupcum'
end

if $ARGS[0]='grup2':
minut+=5
gs'stat'
picrand=RAND(0,1)
if picrand=0:'<center><img src="picKav/grupd.jpg" ></center>'
if picrand=1:'<center><img src="picKav/grupd1.jpg" ></center>'
if picrand=2:'<center><img src="picKav/grupd2.jpg" ></center>'
'You continue to suck his dick Givi <<$liptalk>> absorbing his every move to the throat while Ashot busy behind you.'
gs'bdsex','an'
 gianrand=RAND(0,10)
     if anus>1 and gianrand>=8:
     'Ashot suddenly pulled out of his dick and you become stronger fingers work in your ass.'
     act 'double penetration':gt'kavkazkafe','grup3'
     exit
     end
'Ashot suddenly pulled out of your cock and taking you by the shoulders put in front of him on his knees.'
act 'substitute person':gt'kavkazkafe','grupcum'
end

if $ARGS[0]='grup3':
minut+=5
gs'stat'
picrand=RAND(0,1)
if picrand=0:'<center><img src="picKav/grupdouble.jpg" ></center>'
if picrand=1:'<center><img src="picKav/grupdouble1.jpg" ></center>'
if picrand=2:'<center><img src="picKav/grupdouble2.jpg" ></center>'
'Givi and Ashot injected into you its members.'
gs'bdman','givi'
dynamic $sexudo
gs'bdman','ashot'
gs'bdsex','an'
'Ashot suddenly pulled out of your cock and taking you by the shoulders put in front of him on his knees.'
act 'substitute person':gt'kavkazkafe','grupcum'
end

if $ARGS[0]='grupcum':
minut+=5
facial+=1
cumface+=2
gs'stat'
'<center><img src="picKav/grupcum.jpg" ></center>'
'You knelt and Ashot together with Givi began to cum on your face.'
act 'Get_Away':gt'street'
end

if $ARGS[0]='givirape':
Givi = 100
smenaKafe = smenaKafe + 1
if GiviSex = 0:set GiviSex = 1&set guy = guy + 1
rape+=1
givirape+=1
minut+=5
manna-=20
gs'stat'
'<center><img src="picKav/rape.jpg" ></center>'
'Givi took Scotch and began to bind you, that you would not fluttered previously plugged your mouth gag.'
'Finally he shook you so, that you could not even pull.'
act 'helplessly moo':gt'kavkazkafe','givirape1'
end

if $ARGS[0]='givirape1':
minut+=5
bj+=1
gs'stat'
'<center><img src="picKav/rape1.jpg" ></center>'
'Givi took the gag and put you in the mouth with his thick, not washed member.'
act 'suck':gt'kavkazkafe','givirapebj'
act 'bite':gt'kavkazkafe','givirape2'
end

if $ARGS[0]='givirapebj':
minut+=5
if mop > 1:set mop = 0
hapri = 0
throat = throat + 1
cumlip+=1
swallow+=1
money+=5000
'<center><img src="picKav/rape1.jpg" ></center>'
'Not seeing no other way you started to work diligently mouth, that would be quick Givi finished. Givi went into a rage and began to peck you with his cock in his mouth hitting every move you in the throat.'
if mop > 1:set mop = 0&'You have to tears and smeared on the face kometiki.'
'Finally Givi groaned and hot jet of sperm hit you in the throat. You started convulsively swallow her that would not choke.'
gs'stat'
'Once finished Givi, he immediately mellowed and began to untie you. Wai Svetik, you`re a good nipple. On you deneg, buy yourself something.'
act 'Get_Away':gt'street'
end

if $ARGS[0]='givirape2':
minut+=5
money+=5000
'<center><img src="picKav/rape2.jpg" ></center>'
'You bitten member Givi and furious, then I `ll fuck you in the ass whore, just do not want to suck.'
'You feel like something big and hard pressed to your anus trying to go there.'
     if anus>=1:
     anus+=3
     anal+=1
     cumass+=1
     manna-=100
     horny=0
     'Givi pushed harder and his cock flew into your ass. You screamed from pain INSANE. Givi began to peck you in the ass without lubrication without paying for it, you roared as beluga.'
     'Anal rape seemed like an eternity, Givi groaned and finally stopped, you feel like the pope spreads the heat from his sperm.'
     
     end
     
     if anus<=0:
     'Aa, What do you narrow, did not go, fair_enough, then in the pussy you fuck off.'
     dynamic $sexudo
     'You moaned and groaned gagged while Givi your insides hollowed his cock.'
     pose = 1
     dynamic $sexcum
     
     end
gs'stat'
'Once finished Givi, he immediately mellowed and began to untie you. Wai Svetik, not Revie, you`re a woman, you are destined for a man to lie, and you kochevryazhishsya. On you deneg, buy yourself something.'
act 'Get_Away':gt'street'
end

if $ARGS[0]='givibj':
Givi = 100
smenaKafe = smenaKafe + 1
if GiviSex = 0:set GiviSex = 1&set guy = guy + 1
givitime+=1
minut+=3
gs'bdman','givi'
gs'stat'
'<center><img src="picKav/before.jpg" ></center>'
'You nodded and stood before the pot-bellied Armenian on her knees. He unbuttoned his pants and pulled out his long and thick cock who found himself right at your face against almost touching you.'
act 'Masturbate his cock':gt'kavkazkafe','givibj1'
act 'Take by mouth':gt'kavkazkafe','givibj3'
end

if $ARGS[0]='givibj1':
minut+=3
hj+=1
gs'stat'
'<center><img src="picKav/before3.jpg" ></center>'
'You have a member Givi hands and began to caress it with their fingers. Givi put his hairy hand on your face and began to touch your lips.'
act 'Sucking his thumb':gt'kavkazkafe','givibj2'
act 'Take by mouth dick':gt'kavkazkafe','givibj3'
end

if $ARGS[0]='givibj2':
minut+=3
if sub>0:horny+=sub
sub+=1
gs'stat'
'<center><img src="picKav/before2.jpg" ></center>'
'You started sucking salty fingers Givi and masturbate his cock.'
act 'Take by mouth':gt'kavkazkafe','givibj3'
end

if $ARGS[0]='givibj3':
minut+=3
bj+=1
hapri=0
gs'stat'
'<center><img src="picKav/bj1.jpg" ></center>'
'Givi took your hair pulled your face to his cock. You have touched their <<$liptalk>> purple head. Givi gladly spent prick your lips. You are standing on all fours wrapped around her <<$liptalk>> its thick and slightly salty cock and began to suck, absorbing up to the neck .'
act 'suck on':gt'kavkazkafe','givibj4'
end

if $ARGS[0]='givibj4':
minut+=3
gs'stat'
'<center><img src="picKav/bj.jpg" ></center>'
'Givi tired of standing and he sat down on the sofa without letting your hair out of the hands. You continue to work with their <<$liptalk>> processing solid as a rock standing in front of a member of the pot-bellied Caucasians on all fours. Givi began to puff and it seems is about to finish.'
act 'Remove the mouth':gt'kavkazkafe','givibj5'
act 'continue to suck':gt'kavkazkafe','givibj6'
     if givitime>1:
     givrand=RAND(0,100)
         if givrand>=75:
         cla
         'Givi took the cock out of your mouth  "Becomes Svetik cancer."'
         act 'get cancer':gt'kavkazkafe','givisex'
         end
     end
end

if $ARGS[0]='givibj5':
minut+=3
facial+=1
cumface+=1
gs'stat'
picrand=RAND(1,9)
'<center><img src="picKav/facial<<picrand>>.jpg" ></center>'
'You remove a member from the mouth, Givi but not given you dodge and jet of sperm slapped you on the lips covering you sticky and hot manure with a pungent odor.'
act 'Get_Away':gt'street'
end

if $ARGS[0]='givibj6':
minut+=3
swallow+=1
cumlip+=1
gs'stat'
picrand=RAND(1,9)
'<center><img src="picKav/cum<<picrand>>.jpg" ></center>'
'You open your mouth and Givi began to finish in your mouth filling his sperm. The taste of semen was awful and you had a mouthful, spit was not particularly far and waiting until Givi dry up, you swallow cum in your mouth which left a sharp aftertaste from your mouth and can be had for a couple of meters to smell the pungent smell of sperm.'
act 'Get_Away':gt'street'
end

if $ARGS[0]='givisex':
minut+=3
gs'stat'
'<center><img src="picKav/before4.jpg" ></center>'
'You undressed and got on all fours hands apart poluzhopiya. Givi approvingly chuckled and slapped you in the ass hand. "Nice ass you Svetka!"'
     if givitime>5:
     givrand=RAND(0,100)
         if givrand>=75 and anal>0 and giviVagOnce=1:
         cla
         'Svetik, I want you in the ass.'
         act 'I do not want':gt'kavkazkafe','givisex1'
         act 'Close your eyes':gt'kavkazkafe','givianal'
         exit
         end
     end
     
act 'Close your eyes':gt'kavkazkafe','givisex1'
end


if $ARGS[0]='givisex1':
minut+=3
if giviVagOnce=0:giviVagOnce=1
gs'stat'
givserand=RAND(0,10)
if givserand<8:'<center><img src="picKav/sex.jpg" ></center>'
if givserand>=8:'<center><img src="picKav/sex1.jpg" ></center>'
dynamic $sexudo
 'You moan while Givi your insides hollowed his cock.'
 if givserand>=8:anus+=1&'During sex Givi you stuck a finger in the ass and started massaging her.'
 gianrand=RAND(0,10)
     if anus>1 and givserand>=8 and gianrand>=8:
     'Givi suddenly pulled out of his dick and you become stronger fingers work in your ass.'
     act 'Close your eyes':gt'kavkazkafe','givianal'
     exit
     end
givfinrand=RAND(0,10)
     if givfinrand>=8:
     'Givi suddenly pulled out of your cock and taking you by the shoulders put in front of him on his knees.'
     act 'substitute person':gt'kavkazkafe','givibj5'
     act 'open your mouth':gt'kavkazkafe','givibj6' 
     exit
     end 
 pose = 1
dynamic $sexcum
act 'Get_Away':gt'street'
end

if $ARGS[0]='givianal':
minut+=3
if giviAnalOnce=0:giviAnalOnce=1
gs'stat'
'<center><img src="picKav/anal.jpg" ></center>'
gs'bdsex','an'
givfinrand=RAND(0,10)
     if givfinrand>=8:
     'Givi suddenly pulled out of your cock and taking you by the shoulders put in front of him on his knees.'
     act 'substitute person':gt'kavkazkafe','givibj5'
     act 'open your mouth':gt'kavkazkafe','givibj6' 
     exit
     end 
gs'bdsex','ancum'
act 'Get_Away':gt'street'
end


if $ARGS[0]='threesome':
minut+=3
gang+=1
gs'stat'
'<center><img src="picKav/threestart.jpg" ></center>'
'Givi sat on the couch and pulled out his penis, You Ira began to undress each other sexually and tselovatsya.'
     act 'sucking dick':
     cls
     minut+=3
     sub+=1
     if bjgiviiraonce=0:bjgiviiraonce=1&bj+=1
	 gs'stat'
	 tiprand=RAND(0,1)
	     if tiprand=0:
	     picrand=RAND(1,6)
	     '<center><img src="picKav/threeA<<picrand>>.jpg" ></center>'
	     'You and Ira knelt down and began to suck dick together Givi, then by turns sucking trunk, then licking testicles, sometimes kissing each other.'
	         dynamic $threesomedin
	     end
	     if tiprand=1:
	     picrand=RAND(1,3)
	     '<center><img src="picKav/threeB<<picrand>>.jpg" ></center>'
	     'You knelt down and started sucking dick until Ira kissed Givi.'
	     dynamic $threesomedin
	     end
	 
     end
     
     act 'kiss Givi':
     cls
     minut+=3
     if bjgiviiraonce=0:bjgiviiraonce=1&bj+=1
     dom+=1
	 gs'stat'
	 picrand=RAND(1,3)
	 '<center><img src="picKav/threeB<<picrand>>.jpg" ></center>'
	 'You became tselovatsya Givi until Ira worked his term leads his embattled.'
	 dynamic $threesomedin2
     end
end

if $ARGS[0]='foursome':
minut+=3
gang+=1
gs'stat'
'<center><img src="picKav/four.jpg" ></center>'
'Givi and Ashot undressed, you Irina sat down and began kissing undressing each other.'
     act 'suck':
     cls
     minut+=3
     if bjgiviiraonce=0:bjgiviiraonce=1&bj+=1
	 gs'stat'
	 picrand=RAND(1,10)
	 '<center><img src="picKav/four<<picrand>>.jpg" ></center>'
	 'Together with Irina you started sucking dicks in Caucasians. Kiwi and Ashot gaily in the unfamiliar language and clicked their tongues.'
	     act '....':
		 cls
		 minut+=3
		 gs'stat'
		 picrand=RAND(1,5)
		 '<center><img src="picKav/fourA<<picrand>>.jpg" ></center>'
		 'You and Ira climbed on thick cock and started to jump on them.'
		 dynamic $sexstart2
		 'Caucasians supply you with Ira on his knees and began to nadrachivat members before your faces.'
		     act '....':
			 cls
			 minut+=3
			 cumface+=1
			 cumlip+=1
			 gs'stat'
			 picrand=RAND(1,5)
			 '<center><img src="picKav/fourfin.jpg" ></center>'
			 'You and Ira knelt at each other and Givi with Ashot began to cum on your face. You kissed Ira smeared in sperm.'
			 act 'Get_Away':dynamic $endirinaaftergang
			 end
		 end
     end
end
--- kavkazkafe ---------------------------------

# klofdomhouse
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
	 act 'Ring the doorbell':
	 cla 
	     if klofQW = 2 and hour>=16 and klofday!day:
	     klofday=day
         gt 'klofdomhouse','ev1'
         elseif klofQW > 2 and hour>=16 and klofday!day:
         klofday=day
         gt 'klofdomhouse','start1'
         else
         'No one is home'
         act 'go home':gt 'street'
         end
	 end

act 'go home':gt 'street'
end

if $ARGS[0]='start1':
cla
*clr
set klofday=day
set minut = minut + 5
kloftimes+=1
gs'stat'
     if kloftimes<10:
     gt 'klofdomhouse','ev7'
     end
     if kloftimes>=10:
	 '<center><img src="klof/klof.jpg" ></center>'
	 'You`ve reached the door.	Jora came and scratched the belly. Yawned and said, that he is engaged.'
	 act 'go home':gt 'street'
	 end
     
end

if $args[0]='ev1':
cla
*clr
set klofday=day
set minut=minut+5 
kloftimes+=1
gs'stat'
	 if kloftimes<10:
	 '<center><img src="klof/klof.jpg" ></center>'
	 'You`ve reached the door.
	You do not open and you want to leave, but then the door opened.
	-hello- Say you
	-And it`s you- said a smiling guy- Come.'
	 act'go':gt 'klofdomhouse','ev2'
	 end
	 if kloftimes>=10:
	 '<center><img src="klof/klof.jpg" ></center>'
	 'You`ve reached the door.	Jora came and scratched the belly. Yawned and said, that he is engaged.'
	 act 'go home':gt 'street'
	 end
end

if $args[0]='ev2':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 1.JPG" ></center>'
'you looked around, the apartment was a pigsty ,wall with peeled wallpaper, littered everywhere socks. 
-how-is pathetic you guys here rebya - you said and smiled,eye contact with a guy. 
-It`S_Nothing, we just arrived in this city obzhivaya soon- said grinning guy. 
- It_Is_Clear. We are never met.
- Call me Zhora, and my sidekick Senya,and now quickly tidy apartment.'
     act 'clean_up':gt 'klofdomhouse','ev4'
	 if sub<30 and horny<75: act 'Get_Away':gt 'klofdomhouse','ev3'
end

if $args[0]='ev3':
cla
*clr
set minut=minut+5
set klofQW=klofQW-1
if dom>0:set dom=dom+5
if sub>0:set sub=sub-5
'<center><img src="picQW/pnx.jpg" ></center>'
'You have decided that the guy above you just izdevaetsya and left.'
act 'Get_Away':gt 'street'
end

if $args[0]='ev4':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 3.JPG" ></center>'
'Remove you approached and asked Zhora:.
-Jora you promised money and entertainment, but so far I have not seen what this
-well listen, As I said we are not in a long time, until now we need a girl for services at home
- When will become closer acquainted, to talk business.
- Now be obedient girl and I discussed '
act 'Open your legs Zhora':gt 'klofdomhouse','ev5'
end

if $args[0]='ev5':
cla
*clr
set minut=minut+5
sex+=1
vagina+=1
'<center><img src="klof/klof 4.jpg" ></center>'
'Jora began to fuck you in the pussy, Suddenly the door opened.
Entered the room and said: "Suck my cock baby ka"'
act 'To take by mouth in Seney':gt 'klofdomhouse','ev6'
end

if $args[0]='ev6':
cla
*clr
set hour=hour+23
set minut=minut+5
set klofQW=klofQW+1
cla
 *clr
 set money = money + 2000
 Set bj = bj + 1
 Set cumface = cumface + 1
 set cumpussy = cumpussy + 1
'<center><img src="klof/klof 5.jpg" ></center>'
'Jora zhetko pecked in your pussy, Xian fuck you in the mouth.'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
'You are dressed and ready to go home.
To you came up and handed the money Jora: "earned crumb" '
	 if bj>=anal and bj>=sex:set callnm=1
	 if anal>=oral and anal>=sex:set callnm=2
	 if Sex>=oral and Sex>=anal:set callnm=3
	 if vaf>=100:set callnm=4
act 'go home':gt 'street'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $args[0]='ev7':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 1.JPG" ></center>'
'You went to the apartment'
act 'Hello guys':gt 'klofdomhouse','ev8'
end

if $args[0]='ev8':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 6.jpg" ></center>'
'-Hi Babe- told the guys, baring your breasts and began to caress you.
- Hello boys missed me?- you said and blushed'
act 'entertain Zhora':gt 'klofdomhouse','ev9'
act 'entertain Senya':gt 'klofdomhouse','ev10'
act 'entertain both':gt 'klofdomhouse','ev19'
act 'Talk about affairs with Zhora':gt 'klofdomhouse', 'ev20'
end




if $args[0]='ev9':
cla
*clr

act 'Post a pussy Zhora.':gt 'klofdomhouse','ev13'
act 'Writing in the ass Zhora.':gt 'klofdomhouse','ev14'
act 'suck Zhora.':gt 'klofdomhouse','ev19'
end

if $args[0]='ev13':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set vagina = vagina + 1                      
 Set sex = sex + 1
 set cumpussy = cumpussy + 1
'Jora zhetko pecked in your pussy.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 7.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 8.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 9.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
'you chustvuete, Jora razryazhaetsya that into you.'
'<center><img src="klof/klof 10.jpg" ></center>'
 'You are dressed and ready to go home.
 Jora handed you money: "earned crumb" '
act 'go home':gt 'street'
end

if $args[0]='ev14':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 Set anal = anal + 1
 set anus = anus + 1
 Set cumass = cumass + 1
 
'Jora with full force hammer you in the ass.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 11.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 12.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 13.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
	 'Jora discharge point you in, and inserts it in the ass gag'
	 '<center><img src="klof/klof 14.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Jora handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end


if $args[0]='ev15':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set bj = bj + 1 
 Set cumface = cumface + 1
'You are gripped with passion Zhorin member lips.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 15.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 16.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 17.jpg." ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
     'Jora discharged in your face'
     set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 18.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 19.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 20.jpg." ></center>'
     'You are dressed and ready to go home.
     Jora handed you money: "earned crumb" '
     act 'go home':gt 'street'
     end
end




if $args[0]='ev10':
cla
*clr

act 'Post a pussy Seine.':gt 'klofdomhouse','ev 16'
act 'Writing in the ass Seine.':gt 'klofdomhouse','ev 17'
act 'suck Seine.':gt 'klofdomhouse','ev 18'
end

if $args[0]='ev 16':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set vagina = vagina + 1                      
 Set sex = sex + 1
'Senya zhetko pecked in your pussy.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 7.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 8.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 9.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
	 'you chustvuete, Jora razryazhaetsya that into you.'
	 '<center><img src="klof/klof 10.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Senya handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end

if $args[0]='ev 17':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 Set cumass = cumass + 1
 anal+=1
 anus+=1
'Senja with all his might hammer you in the ass.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 11.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 12.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 13.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
 
     act '....':
     cla
     *clr
	 'Senya discharge point you in, and inserts it in the ass gag'
	 '<center><img src="klof/klof 14.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Senya handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end

if $args[0]='ev 18':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 bj+=1                 
 Set guy = guy + 1
 Set cumlip = cumlip + 1
'You are gripped with passion Senenin member lips.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 15.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 16.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 17.jpg." ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
     facial+=1
     'Senya discharged in your face'
     set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 18.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 19.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 20.jpg." ></center>'
     'You are dressed and ready to go home.
     Senya handed you money: "earned crumb" '
     act 'go home':gt 'street'
     end
end


if $args[0]='ev19':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+2
set money = money + 200
sex+=1
 Set bj = bj + 1
 Set cumface = cumface + 1
 facial+=1
 set cumpussy = cumpussy + 1
 set vagina = vagina + 1    
 set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 21.jpg." ></center>'
         if picrand = 2:'<center><img src="klof/klof 22.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 23.jpg." ></center>'
'Jora brutally fuck you in the mouth, and CEnja dryuchit pussy'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
 'Finally they both finished, one in the pussy, the other on the face.'
'You are dressed and ready to go home.
 Guys stretched you money: "earned crumb" '
act 'go home':gt 'street'
end

if $args[0]='ev20':
cla
*clr
set klofday=day
set minut=minut+5 
'<center><img src="klof/klof.jpg" ></center>'
'If you want to talk serious business with our boss '
	 act 'Talk with the boss':
	 cla 
	 if klofQW< 10:gt 'klofdomhouse','ev21'
	 if klofQW >= 10:gt 'klofdomhouse','ev22'
	 end
end

if $args[0]='ev21':
cla
*clr
'The room came an ugly old man'
'<center><img src="klof/klof24.jpg" ></center>'
'"You climb a bit early in our affairs" - he said.'
act 'go home':gt 'street'
end

if $args[0]='ev22':
cla
*clr
'The room came an ugly old man'
'<center><img src="klof/klof24.jpg" ></center>'
'Boss carefully looked at you and said: "Come to me"'
act 'Go to the boss room.':gt 'klofdomhouse','ev23'
act 'go home':gt 'street'
end

if $args[0]='ev23':
cla
*clr
'You went into the room boss surprisingly it has been well renovated and furnished'
'<center><img src="klof/klof25.jpg" ></center>'
'Well Well take off your clothes and show yourself - said boss'

act 'Show yourself':gt 'klofdomhouse','ev24'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev24':
cla
*clr
'You humbly sat on the bed'
'<center><img src="klof/klof 26.jpg" ></center>'
'Show chest - ordered the boss'
act 'Show chest':gt 'klofdomhouse','ev25'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev25':
cla
*clr
'You bared her breasts'
'<center><img src="klof/klof 26 (1).jpg" ></center>'
'Show the ass! - ordered the boss'
act 'Show the ass':gt 'klofdomhouse','ev26'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev26':
cla
*clr
'You showed your ass boss'
'<center><img src="klof/klof 26 (3).jpg" ></center>'
'Come pulls off her dress! - he said'
act 'remove the dress':gt 'klofdomhouse','ev27'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev27':
cla
*clr
'You took off her dress'
'<center><img src="klof/klof 26 (4).jpg" ></center>'
'Spreading legs! - received an order'
act 'Extend the legs':gt 'klofdomhouse','ev28'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev28':
cla
*clr
'You sat on the bed and parted legs'
'<center><img src="klof/klof 26 (6).jpg" ></center>'
'And now - grinned boss'
act 'seduce boss':gt 'klofdomhouse','ev29'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev29':
cla
*clr
'You rolled over and showed their charms boss'
'<center><img src="klof/1284364hjl.jpg" ></center>'
act 'Twist ass in front of the boss':gt 'klofdomhouse','ev30'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev30':
cla
*clr
'You got cancer and began to twist her ass before the boss noticed that onachal fidget in his chair'
'<center><img src="klof/1284365sgp.jpg" ></center>'
act 'Lick the head of the boss':gt 'klofdomhouse','ev31'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev31':
cla
*clr
'You gently began to lick the head of the penis'
'<center><img src="klof/klof27.jpg" ></center>'
act 'Clasp member lips':gt 'klofdomhouse','ev32'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev32':
cla
*clr
'You eagerly clasped dick lips'
'<center><img src="klof/klof28.jpg" ></center>'
'Boss hoarse voice you ordered: "bitch spreads her legs"'
act 'spread her legs':gt 'klofdomhouse','ev33'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev33':
cla
*clr
'You call pushed the legs'
'<center><img src="klof/klof 26 (5).jpg" ></center>'
'Well - asked the boss'
act 'Writing in the pussy':gt 'klofdomhouse','ev34'
act 'Opt_Out':gt 'street'
end

if $args[0]='ev34':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set vagina = vagina + 1                      
 Set sex = sex + 1
'Boss with full force pushes his penis into your vagina.'
'<center><img src="klof/klof 28.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
'Dai ka I `ll try your ass - ordered the boss'
act 'Writing in the ass':gt 'klofdomhouse','ev35' 
act 'Opt_Out':gt 'street'
end

if $args[0]='ev35':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 anal+=1
 anus+=1
'Boss skewer your point on his cock.'
'<center><img src="klof/klof29.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
 'You chustvuete the boss is ready to be discharged'
     act 'Substitute the person that he had finished':gt'klofdomhouse','ev36'
	 act 'Let cums in the ass':gt 'klofdomhouse','ev37'
	 act 'Insert dick in pussy': gt 'klofdomhouse','ev38'
end

if $args[0]='ev36':
cla
*clr
 Set cumface = cumface + 1
 set money = money + 500
'You jump from a member and start nadrachivat boss face to the member'
'<center><img src="klof/klof30.jpg" ></center>'
act 'Get out of bed':gt 'klofdomhouse','ev39'
end

if $args[0]='ev37':
cla
*clr
set cumpussy = cumpussy + 1
set money = money + 500
'You start furiously podmahivat ass try to quickly help him reach orgasm'
'<center><img src="klof/klof32.jpg" ></center>'
act 'Get out of bed ':gt 'klofdomhouse','ev39'
end

if $args[0]='ev38':
cla
*clr
set money = money + 500
'Catch the moment you insert into the vagina dick '
'<center><img src="klof/klof31.jpg" ></center>'
'Well - asked the boss'
act 'Get out of bed':gt 'klofdomhouse','ev39'
end

if $args[0]='ev39':
cla
*clr
'You got out of bed, looked at the guy obessilivgshego,
 and with a smile asked the boss: "Well I passed the test?"'
'<center><img src="klof/klof33l.jpg" ></center>'
'-Well you`ve been postelnuyuproverku, check you in obedience,
- Cater for both my boys only dvoi and only pussy immediately - ordered the boss'
act ' Obediently serve children':gt 'klofdomhouse','ev40'
act 'Opt_Out':gt 'street'
end

if $args[0]='ev40':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
set db=db+1
cla
*clr
 Set bj = bj + 1
 set vagina = vagina + 2                     
'Zhora and Senya two trunk hammering you in the pussy.'
'<center><img src="klof/klof33.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
act 'Get up and dress':gt 'klofdomhouse','ev41' 
end

if $args[0]='ev41':
cla
*clr
set money = money + 5000
'You got dressed and brought myself up. '
'<center><img src="klof/klof 3.JPG" ></center>'
'To you came and said Zhorik:" You liked the boss, he ordered you to come tomorrow after 10  in the pool, keep your money in a swimsuit'
act 'go home':gt 'street'
end

if $args[0]='ev42':
cla
*clr
'You are viewing the crowd and notice Zhora'
'<center><img src="klof/klof 3.JPG" ></center>'
'He is suitable to you and says: "Come bathe baby"'
act 'to go swimming.':gt 'klofdomhouse','ev43'
act 'go home':gt 'street'
end

if $args[0]='ev43':
cla
*clr
'You change into a swimsuit and wait at the entrance Zhora'
'<center><img src="klof/bas.jpg" ></center>'
'Jora takes place in a swimming pool telling you : "Lie down until Svetsik wait until meet more people"'
act 'Lie down by the pool':gt 'klofdomhouse','ev44'
act 'go home':gt 'street'
end

if $args[0]='ev44':
cla
*clr
set minut=minut+30
cla
*clr
'You are lying by the pool, pool filled with people'
'<center><img src="klof/bas1.jpg" ></center>'
'Jora swims up to you orders : "Undress in front of a crowd"'
if sub>0:act 'Hesitantly removed her bra':gt 'klofdomhouse','ev45'
act 'Send it':gt 'street'
end

if $args[0]='ev45':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You lower a little strap '
'<center><img src="klof/bas3.jpg" ></center>'
'You lower a little cup'
'<center><img src="klof/bas2.jpg" ></center>'
'You are standing in the water conceal chest burning with shame'
'<center><img src="klof/bas4.jpg" ></center>'
'Jora said with a smirk: "Show people hunting them chest entertainment"'
if sub>5:act 'remove hands':gt 'klofdomhouse','ev46'
act 'Send it':gt 'street'
end

if $args[0]='ev46':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'Do you attach to your hands from the chest, around you starts to gather a crowd of men '
'<center><img src="klof/bas5.jpg" ></center>'
'You picturesquely crank arms behind his head'
'<center><img src="klof/bas6.jpg" ></center>'
'Jora orders: "contractible panties"'
if sub>10:act 'To go into the water removing panties':gt 'klofdomhouse','ev47'
act 'Send it':gt 'street'
end

if $args[0]='ev47':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You go down into the water, the people around you more'
'<center><img src="klof/bas7.jpg" ></center>'
'You shoot panties in water'
'<center><img src="klof/bas8.jpg" ></center>'
'Jora orders: "Come out and show yourself to all"'
if sub>15:act 'Out of the water':gt 'klofdomhouse','ev48'
act 'Send it':gt 'street'
end

if $args[0]='ev48':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You picture out of the water'
'<center><img src="klof/bas9.jpg" ></center>'
'And lie on the edge of the pool, around you there is a crowd of excited men'
'<center><img src="klof/bas10.jpg" ></center>'
'Jora orders: "Spread your legs"'
if sub>20:act 'spread her legs':gt 'klofdomhouse','ev49'
act 'Send it':gt 'street'
end

if $args[0]='ev49':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You push the legs, crowd whooped'
'<center><img src="klof/bas11.jpg" ></center>'
'Excitement you covered heat you go into the water and relax'
'<center><img src="klof/bas12.jpg" ></center>'
'Jora orders: "Spread your lips"'
if sub>25:act 'push the sponge':gt 'klofdomhouse','ev50'
act 'Send it':gt 'street'
end

if $args[0]='ev50':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You push the legs, give up and open your vagina'
'<center><img src="klof/inas13.jpg" ></center>'
'Most of the men opened her mouth'
'Jora orders: "caressed herself"'
if sub>30:act 'Caressing her pussy':gt 'klofdomhouse','ev51'
act 'Send it':gt 'street'
end

if $args[0]='ev51':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You are so excited that not oraschaya attention to the crowd begins to pull at your girl'
'<center><img src="klof/inas14.gif" ></center>'
'Most of the men opened her mouth'
act 'come':gt 'klofdomhouse','ev52'
end

if $args[0]='ev52':
cla
*clr
set minut=minut+5
set orgasm = orgasm + 1
set horny = 0
cla
*clr
'Within a few minutes you covered wild orgasm'
'<center><img src="klof/inas15.gif" ></center>'
'A crowd of men standing in complete shock'
'Jora hands you Didelot and says: "Insert it yourself" '
act 'insert Didelot':gt 'klofdomhouse','ev53'
end

if $args[0]='ev53':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You start planting in his cave Didelot'
'<center><img src="klof/bas16.jpg" ></center>'
'Jora hands you a second and says Didelot: "Insert to the same" '
act 'Insert the second Didelot':gt 'klofdomhouse','ev54'
end

if $args[0]='ev54':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'You nachinaetebez labor stuck in its second hole Didelot'
'<center><img src="klof/bas17.jpg" ></center>'
'Jora orders: "Put about one in the ass" '
act 'Paste in the ass':gt 'klofdomhouse','ev55'
end

if $args[0]='ev55':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'<center><img src="klof/bas18.jpg" ></center>'
'Jora takes you and members of your thrusts his fist into the vagina'
act 'kayfovat':gt 'klofdomhouse','ev56'
end

if $args[0]='ev56':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'<center><img src="klof/bas19.jpg" ></center>'
'Jora raise your pelvis with words:"Hold my cup ka" 
Inserts in you and pours himself a glass of juice'
act 'Obediently hold a glass':gt 'klofdomhouse','ev57'
end

if $args[0]='ev57':
cla
*clr
set minut=minut+5
set horny = horny + 10
cla
*clr
'<center><img src="klof/bas20.jpg" ></center>'
'Jora leisurely drink juice and smiling says:"Suck my dick bitch" '
act 'Suck Zhora':gt 'klofdomhouse','ev58'
end

if $args[0]='ev58':
cla
*clr
set minut=minut+5
Set bj = bj + 1
cla
*clr
'You take Zhorin member of the cheek'
'<center><img src="klof/bas21.jpg" ></center>'
'Excite Jora orders:"Climbs on my dick" '
act 'Jump on a limb':gt 'klofdomhouse','ev60'
end

if $args[0]='ev60':
cla
*clr
set minut=minut+10
set vagina = vagina + 1                      
Set sex = sex + 1
cla
*clr
'You furiously riding on a dick Zhorina'
'<center><img src="klof/bas 27.jpg" ></center>'
'Jora ready to cum'
act 'To take charge of a':gt 'klofdomhouse','ev61'
end

if $args[0]='ev61':
cla
*clr
set cumface = cumface + 1
set minut=minut+10
set orgasm = orgasm + 1
set horny = 0
cla
*clr
'You Kochan taking a sperm Zhorina'
'<center><img src="klof/bas22.jpg" ></center>'
'Jora gets up and goes into the shower with the words to the crowd: "Otderite this whore"'
act 'Fuck with the crowd':gt 'klofdomhouse','ev62'
end

if $args[0]='ev62':
cla
*clr
set minut=minut+10
set orgasm = orgasm + 1
Set cumlip = cumlip + 3
cla
*clr
'Not what you`re not realizing aspirated group of men'
'<center><img src="klof/bas23.jpg" ></center>'
'Someone puts you cancer and plants you ass his cock'
act 'Fuck with the crowd':gt 'klofdomhouse','ev63'
end

if $args[0]='ev63':
cla
*clr
set minut=minut+10
Set bj = bj + 1
Set cumlip = cumlip + 3
Set sex = sex +1
set orgasm = orgasm + 1
Set cumass = cumass + 1
anal+=1
anus+=1
cla
*clr
'You continue to suck, someone you hammer in the ass '
'<center><img src="klof/bas24.jpg" ></center>'
'You covered orgasm, chuvsvuete you that someone`s dick goes into your pussy'
act 'Fuck with the crowd':gt 'klofdomhouse','ev64'
end

if $args[0]='ev64':
cla
*clr
set minut=minut+10
set orgasm = orgasm + 1
Set bj = bj + 1
Set cumlip = cumlip + 3
Set sex = sex +1
set orgasm = orgasm + 1
Set cumass = cumass + 1
anal+=1
anus+=1
cla
*clr
'Fuck you and end up in all the cracks. You covered orgasm'
'<center><img src="klof/bas25.jpg" ></center>'
act 'Get up and put on a swimsuit':gt 'klofdomhouse','ev65'
end

if $args[0]='ev65':
cla
*clr
set money = money + 200
'You odelis swimsuit stood up and leaned on the column. Your arms and legs were shaking, pussy and ass and itched unbearably '
'<center><img src="klof/bas26.jpg" ></center>'
'Jora came out of the locker room and said:" Well,boss happy! 
  -Even on TV broadcast, keep your money and a business card with his address. '
act 'go home':gt 'street'
end

!Jesus, what hueta, I cried tears of blood







--- klofdomhouse ---------------------------------

# lake
if $ARGS[0]='start':
cla
*clr
if lakeonce = 0:set lakeonce = 1&set minut = minut + 60
'<center><B><font color=maroon>lake</font></B></center>'
'<center><img src="pic/lake.jpg" ></center>'
clr
gs'stat'
gs'time'
'A large lake located in the city is a favorite place of recreation for residents in the summer.'
if car > 0 and cardrive = 4:
	 set cardrive = 4
	 'At the lake worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end
	 if nastjaqw = 3 and temper>=20 and bikini>0 and hour>=6 and hour<=20:
	 'You waved his hand in greeting <a href="exec:gt''nastja'',''pos14''">Nastya</a>.'
	 end	
if temper >=20 and bikini > 0 and hour >= 6 and hour <= 20:
	 'Nearby there <a href="exec:gt''lake'',''aquapark''">water attractions</a>.'
	 'And <a href="exec:gt''lake'',''horse''">ride a horse</a>'
	 'And a couple of kilometers there is even <a href="exec:gt''Nudelake''">nude beach</a>'
	 'Also you can sunbathe or swim.'
	     act 'Walk on the beach':
		 cls
		 set minut+=60
		 gs'stat'
		 '<center><img src="img/lake/lake.jpg"></center>'
		 'You walk along the beach.'
		 set walkrand = RAND (0,100)
		 if walkrand >= 50 and walkrand < 60:gt'lake','walklake1'
		 if walkrand >= 60 and walkrand < 70:gt'lake','walklake2'
		 act'End_Up':gt'lake','start'
		 end 
	 act 'bathe 1 h':
		 cla
		 *clr
		 set cumpussy = 0
		 set cumbelly = 0
		 set cumass = 0
		 set cumlip = 0
		 set cumface = 0
		 set cumfrot = 0
		 set minut = minut + 60
		 set sweat = -3
		 set manna = manna + 5
		 set willpower = willpower + 5
		 if stren < 30:set stren = stren + 1
		 '<center><img src="pics/swim.jpg" ></center>'
		 'You iskupnulis in the lake, Water refreshes and invigorates.'
		 act 'Out of the water':gt'lake','start'
		 end
	 act 'zagarat 1 h':
		 cla
		 *clr
		 set minut = minut + 60
		 set sweat = sweat + 1
		 set manna = manna + 5
		 '<center><img src="pics/zagar.jpg" ></center>'
		 if krem = 0:
			 set tan = tan + 1
			 'You went to the beach to sunbathe.'
			 end
		 if krem > 0:
			 set krem = krem - 1
			 set tan = tan + 3
			 'You smeared body suntan lotion and went to sunbathe.'
			 end
		 set evrand = RAND (0,100)
		 if evrand > 50:
			 act 'Rise from the beach':gt'lake','start'
			 end
		 if evrand <= 30 and andrei > 0:
			 act 'Rise from the beach':gt'lake','start'
			 end
		 if evrand <= 30 and andrei = 0:
			 set anreirape=1
			 'You fell asleep on the beach while sunbathing. You dreamed that someone caressing your breasts. Your nipples hardened, chest high rises from deep breaths. what-outlined the aura of something wet on the breast, and you moan sweetly.'
			 'Strong hand stroked the folds on your body, from which the whole body covered goose, and suddenly his finger slipped through overgrown fuzz barely punched folds genital lips and touched what-something incredibly pleasant point. Your body is thrown into a fever, spine shiver ran sweet, and moisten the bottom of all. already feeling, that pleasure comes awake, and not in sleep, but still unable to overcome the sleepy bliss and open your eyes, you have spread her legs wide, surrendering seductive caress. When cheeky finger, wetted your juices, easily penetrated into your bosom, you even have time to wonder, natural sense. Finger movement you have entered into a kind of trance, You already moaning loudly, wriggling under the hot sun rays. And suddenly, when you thought, that here-that`s what-Something must have happened, a feeling of fullness you left.'
			 act 'open your eyes':
				 cla
				 *clr
				 'opening his eyes, you saw a shadowy figure unshaven men, longingly staring at you. You become uncomfortable - you lie naked in front of a stranger, moreover all moaning and actual, as the latest slut, and scary - no one on the beach, because he can do with you all, that wish to!'
				 'All these thoughts flashed through your mind, until the man pulling off her shorts. You looked with horror at the exposed his dick, before you huge it seemed.'
				 act 'jump':
					 cla
					 *clr
					 'You tried to jump but then were pressed strong hands to his hairy chest.'
					 act 'Hit him with his knee in the balls':
						 cla
						 *clr
						 Set andrei = 1
						 'You really just poked his knee in the balls, he yelled and let you down.'
						 act 'Rise from the beach':gt'lake','start'
						 end
					 act 'Escape from the clutches':
						 cla
						 *clr
						 Set andrei = 2
						 set anreiday = day
						 set guy = guy + 1
						 Set anal = anal + 1
						 set anus = anus + 1
						 Set cumass = cumass + 1
						 Set horny = 20
						 set orgasm = orgasm + 1
						 '<center><img src="picVA/andreiA.jpg" ></center>'
						 'You became escape from his grasp, but elozanie led to, he was even more excited and hugged her hard cock to your heated in the sun gentle thigh.'
						 'The stranger turned you on his stomach and began to wet his saliva your elastic anus.'
						 'He spread his force your buttocks, maximum opening quivering hole, crushing you with his heavy body. you squinted, of your throat pain escaped wheeze, when hard cock began to enter into your inner sanctum. No fun , only acute pain tides, aversion to her rapist and a sense of, if you use, as a whore. there, his fingers casually touched your womb, and you caught a wave of lust. Over and over again as if you punched through huge cock your rapist, and you podmahivat him, and could not hold back the sweet moans.'
					     act 'yet, yet, yet, more_...':
							 cla
							 *clr
							 '<center><img src="picVA/andrei.jpg" ></center>'
							 'yet, yet, yet, more ... pounding in your temples simultaneously with each thrust. Your clitoris turned into bare wire, it_seemed, even a moment - and you explode. The man changed his position - now you`re sitting in an upright position, nasazhivayas already own on his fat cock, with one hand , and the other one is fiercely crushed, then other soft supple breasts, painfully squeezing between the fingers lumps of your nipples.'
							 'Here_It_Is, at_last, your body has received a long-awaited discharge, you have a few seconds of inertia continued to bounce on her rapist, and then he will cast a dull growl in your plump ass hot stringy threads spicy sperm.'
							 '- Well, liked, Aphrodite? - With a touch of irony man asked.'
							 act 'And what is your name?':
								 cla
								 *clr
								 '- And what is your name? - You own question seemed the most stupid, but the word, as the saying goes, not a sparrow ...'
								 '- Andrew, - he grinned.
								  And you like?
								 Light answered you -
								 I can see, you like our game. Want to catch an even bigger buzz? - Come tomorrow, - Andrew said softly, dressing, - repeat our exploits.'
								 act 'Rise from the beach':gt'lake','start'
								 end
							 end
						 end
					 end 
				 end
			 end
		 if evrand <= 40 and evrand > 30:gt'lake','vlake1'
		 if evrand <= 50 and evrand > 40:gt'lake','vlake2'
		 end
	 if anreiday ! day and andrei = 2:
		 'You see on the beach Andrew.'
		 act 'Approach to Andrew':gt'lake','andrey1'
		 end
	 end
act 'GO_OUT':
	 cla
	 set lakeonce = 0
	 set minut = minut + 60
	 gt'street'
	 end
end

if $ARGS[0] = 'aquapark':
set minut+=5
cls
gs'stat'
'<center><img src="img/Lake/aquapark.jpg"></center>'
'You have come to the attractions.'
'there is <a href="exec:gt''lake'',''gidro''">watercraft</a>, <a href="exec:gt''lake'',''banan''">banana</a> and <a href="exec:gt''Lake'',''gorka''">hill</a>.'
act'Get_Away':gt'lake','start'
end

if $ARGS[0] = 'gidro':
cls
gs'stat'
set minut+=1
'<center><img src="img/Lake/aquapark.jpg"></center>'
'You have come to hydrocycles.
Tour price 100 RUB.'
	if money >=100:
		 act'go_for_a_ride':
		 set manna = manna + 10
		 set willpower = willpower + 10
		 money -= 100
		 cls
		 set minut+=30
		 set gidrrand = RAND (0,4)
		 '<center><img src="img/Lake/gidro.jpg"></center>'
		 'You take a jet ski, and begin to ride.'
		 if gidrrand=0:gt'lake','kater1'
		 act'End_Up':gt 'lake','aquapark'
	     end
	end
act'move_away':gt 'lake','aquapark'
end

if $ARGS[0] = 'banan':
cls
gs'stat'
set minut+=1
'<center><img src="img/Lake/aquapark.jpg"></center>'
'You came to the banana.
Tour price 100 RUB.'
	if money >= 100:
		 act'go_for_a_ride':
		 set manna = manna + 10
		 set willpower = willpower + 10
		 cls
		 set minut+=30
		 set money -= 100
		 '<center><img src="img/Lake/banan.jpg"></center>'
		 'You sodites a banana and you ride.'
		 set banrand = RAND (0,100)
		 if banrand >= 80 and banrand < 90:gt'lake','kater2'
		 if banrand >= 90:gt'lake','kater3'
		 act'End_Up':gt 'Lake','aquapark'
	     end
	end
act'move_away':gt 'lake','aquapark'
end

if $ARGS[0] = 'gorka':
cls
gs'stat'
set minut+=1
'<center><img src="img/Lake/aquapark.jpg"></center>'
'You came to the hill.
Tour price 50 RUB.'
	if money >=50:
		 act'go_for_a_ride':
		 set manna = manna + 10
		 set willpower = willpower + 10
		 cls
		 set minut+=15
		 money -= 50
		 '<center><img src="img/Lake/gorka.jpg"></center>'
		 'You go up the hill and back down.'
		 act'End_Up':gt 'lake','aquapark'
	     end
	end
act'move_away':gt 'lake','aquapark'
end

if $ARGS[0] = 'horse':
cls
gs'stat'
set minut+=1
'<center><img src="img/Lake/horse0.jpg"></center>'
'You have come to Loshedyam.
Tour price 100 RUB.'
     if money >= 100:
	     act'go_for_a_ride':
		 set manna = manna + 10
		 set willpower = willpower + 10
		 cls
		 set minut+=30
		 money -= 100
		 '<center><img src="img/Lake/horse.jpg"></center>'
		 'You sodites into the saddle and go ride on the lake shore.'
		 set horserand = RAND (0,100)
		 if horserand >= 60 and horserand < 80:gt'lake','horse1'
		 if horserand >= 80:gt'lake','horse2'
		 act'End_Up':gt'lake','start'
		 end
	 end
act'move_away':gt'lake','start'
end

if $ARGS[0]='walklake1':
cla
*clr
gs'stat'
'<center><img src="img/Lake/walk1/walk1.jpg"></center>'
'Walking along the beach as you hear someone calling you "Hey beauty come here". You turned and saw that near the coast between the trees and hut stands on the threshold of a guy sitting.'

$dinribak={
	 act'idiot! (leave)':
	 cls
	 minut+=2
	 gs'stat'
	 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
	 'You have called this idiot idiot and ready to leave. The guy said "Well. And you do not whore, a whore. Hey slut, want to earn two thousand?"'
	 act'Get_Away':gt'lake','start'
	 
	     act'cash in advance!':
		 cls
		 minut+=2
		 gs'stat'
		 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
		 'You hesitating blurted out "cash in advance!" The guy laughed "Well! Would say that you`re a whore, and not to powdering my brain like a schoolgirl playing of virginity." The guy took the money and gave them to you imposingly.'
		 act'Get_Away':gt'lake','start'
		     act'get money':
			 cls
			 minut+=2
			 money+=2000
			 if ribakSex=0:ribakSex=1&guy+=1
			 bj+=1
		     sub+=1
		     manna=0
			 gs'stat'
			 '<center><img src="qwest/sosed/facefuck.jpg"></center>'
			 'You took money from the guy and hid them. The guy grinned wickedly "On your knees scum! I am now so fuck your goddamned face, that you will not forget for a long time!" you blushed, but still faced a guy on his knees. He grabbed your face in her hands and spit in your face, then rubbed his hand over his harchek your face. You froze in confusion, but the guy did not stand on ceremony with you and you vognyal his cock in her mouth to the throat. You choked and tears flowed from his eyes. The guy growled "what whore, Artist? This scum like you should enjoy it! You dirty whore. love money, then you have to get used to such." The guy started to fuck you roughly in the mouth, periodically wiping the current out of your nose snot and drool from his mouth, his hand on your face and occasionally causing hefty podschechiny. You almost fainted and expired snot, tears and saliva from the fact that roughly was a member of your throat. Your throat was on fire and the continued spasm of nausea rolled your body. Time stretched to infinity and you have already started to think, that this torment will never end, when suddenly the guy pulled his dick out of your mouth.'
			 	 act'....':
				 cls
				 minut+=2
				 sub+=1
				 cumface+=1
			     cumlip+=1
			     facial+=1
				 gs'stat'
				 '<center><img src="qwest/sosed/facefuck1.jpg"></center>'
				 'The guy started to cum on your face, lips, jet of his sperm flew into your mouth, and you feel awful taste of sperm.'
				 	 act'Look at the Man':
					 cls
					 minut+=2
					 sub+=1
					 $ribakName='slut'
					 gs'stat'
					 '<center><img src="qwest/sosed/facefuck1.jpg"></center>'
					 'Are you tired of seeing on the guy. Then taking your hair in the palm, wiped his cock your hair. After that. "All whore. Now you can get out."'
					 act'Get_Away':gt'lake','start'
					 end
				 end
			 end
		 end
	 end
	 
	 act'come closer':
	 cls
	 minut+=2
	 gs'stat'
	 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
	 'You hesitantly came closer to the guy and he quickly grabbed you by the wrist to her literally poddtaschil. "Come on baby, do not fuck the brain, we are both aware of, What have you to fear I want to try my dick taste. So do not be shy."'
	 act'To escape and run away':gt'lake','start'
	     act'Stand in front of a guy on his knees':
		 cls
		 minut+=2
		 if ribakSex=0:ribakSex=1&guy+=1
		 bj+=1
		 sub+=1
		 gs'stat'
		 '<center><img src="qwest/sosed/big.jpg"></center>'
		 'You knelt in front of a guy and your face was in front of his big cock. Man impatiently slapped you prick on the nose. "What boobs mnesh? starts sucking!" With these words, you do not understand how it happened, but his head was hot inside your mouth. The guy taking your head in his hands began to stick your face on her huge dick. His head rested on a regular basis in your throat, sometimes causing gagging and salivation. Suddenly the man sharply pushing hips to meet your face drove his cock in your throat. You have eyes widened from the realization, that this giant body went into your throat. You rested her hands on her hips Man trying to escape from the trap and breathe. Finally the guy let go of your head allowing you to remove a member from the throat and the rest. But how long the guy did not wait . Suddenly "Open your fucking mouth" Growled at you kid "And Vysun your language."'
		     act'Open your mouth and stick his tongue':
			 cls
			 minut+=2
			 sub+=1
			 cumface+=1
			 cumlip+=1
			 facial+=1
			 gs'stat'
			 '<center><img src="qwest/sosed/cum.jpg"></center>'
			 'You obediently opened his mouth and put language. Immediately you in the face slapped jet of sperm. Then another and more, covering your face with sperm. Part of the sperm enters your mouth and you feel its a nasty taste.'
			 	 act'Look at the Man':
				 cls
				 minut+=2
				 sub+=1
				 swallow+=1
				 gs'stat'
				 '<center><img src="qwest/sosed/cumeat.jpg"></center>'
				 'In your face dripping jizz, you feel no taste in your mouth and look at the Man. The guy smiled and finger a little semen collected from your face. Then he put his finger in your mouth causing lick cum. When his finger was clean . Once again you sobsosali his finger and swallowing sperm.'
				     act'Look at the Man':
					 cls
					 minut+=2
					 sub+=1
					 $ribakName='lowered whore'
					 gs'stat'
					 '<center><img src="qwest/sosed/spit.jpg"></center>'
					 'The guy suddenly thrust your fingers of both hands in his mouth and parted your lips with relish spat in your mouth. You startled by this and feel like your cheeks blush with shame floods. The guy looked at you menacingly "you lustful, vile creature and was then, I deserved. Now get!"'
					 act'Get_Away':gt'lake','start'
					 end
				 end
			 end
			 
			 act'Try to remove the person':
			 cls
			 minut+=2
			 cumface+=1
			 $ribakName='whore'
			 gs'stat'
			 '<center><img src="qwest/sosed/cum1.jpg"></center>'
			 'You tried to dodge, but the guy grabbed you by the hair and spray semen began to fall on your face. Finally dried up and the guy said "Get out of here creature!"'
			 act'Get_Away':gt'lake','start'
			 end
		 end
	 end
}


     if ribakSex=0:
     act'Get_Away':gt'lake','start'
     
         act'come_Up':
         cls
         minut+=2
         gs'stat'
         '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
         'You have come to the guy with a fishing rod. He looked lustfully and imposingly you from head to toe.'
         
         act'Get_Away':gt'lake','start'
         
             if vnesh < 15:
             'The guy smiled and began to hum "Well Well you such a terrible."'
             
             end
             if vnesh >= 15 and vnesh<30:
             'Man Look around you smile "Fair_Enough, good."'
             
             end
             if vnesh >=30:
             'Look around you guy nodded "And you do so, simpotnaya."'
             
             end
             
             if vnesh >= 15:
                 act'What do you want?':
				 cls
				 minut+=2
				 gs'stat'
				 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
				 'you asked, that guy need. The guy looked again at you with a smile. "You have written on his face, you blyadushka. Want a delicious nap huytsa?"'
				 
				     act'How dare you? (troubled)':
					 cls
					 minut+=2
					 gs'stat'
					 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
					 'You have rebelled so arrogant statements. What guy just became wider grinning. "C`mon. do not worry. I love whores." After these words the man unzipped his fly and pulled out a huge dick which was clearly less 25 centimeters. "Come on baby, See what the Pope has vkusnuypirogek for your goddamned rotika." The guy beckoned you to her finger.'
					 
					 dynamic $dinribak
					 end
					 
					 act'what? (wonder)':
					 cls
					 minut+=2
					 gs'stat'
					 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
					 'Were you surprised such impudence. The guy just grinned wider. "Are you still seeing this more udivishsya!" With these words the man unzipped his fly and pulled out a huge dick which was clearly less 25 centimeters. "Come on baby, See what the Pope has vkusnuypirogek for your goddamned rotika." The guy beckoned you to her finger.'					 
					 dynamic $dinribak
					 end
					 
					 act'hmm (thinking)':
					 cls
					 minut+=2
					 gs'stat'
					 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
					 'You think for a second. The guy just grinned wider. "I knew that you whore, only sees you, I have a nose for whores bored in hard dick." With these words the man unzipped his fly and pulled out a huge dick which was clearly less 25 centimeters. "Come on baby, See what the Pope has vkusnuypirogek for your goddamned rotika." The guy beckoned you to her finger.'					 
					 dynamic $dinribak
					 end
				 end
             
             end
             
         end
     
     end
     
	 if ribakSex>0:
	 'You have come to the guy who said you. hello <<$ribakName>>, want a tasty huytsa?'
		 act 'Get_Away':gt'lake','start'
		 
		 if $ribakName='slut':
		     act'two pieces!':
			 cls
			 minut+=2
			 gs'stat'
			 '<center><img src="img/Lake/walk1/walk1.jpg"></center>'
			 'You said the guy "Two pieces !" The guy smiled "If you are going to make money floss, get ready to drink the cup of humiliation to the dregs." The guy took the money and gave them to you imposingly.'
			 act'Get_Away':gt'lake','start'
				 act'get money':
				 cls
				 minut+=2
				 money+=2000
				 ribakSex+=1
				 bj+=1
				 sub+=1
				 manna=0
				 gs'stat'
				 '<center><img src="qwest/sosed/facefuck.jpg"></center>'
				 'You took money from the guy and hid them. The guy grinned wickedly "On your knees scum! I am now so fuck your goddamned face, that you will not forget for a long time!" you blushed, but still faced a guy on his knees. He grabbed your face in her hands and spit in your face, then rubbed his hand over his harchek your face. You froze in confusion, but the guy did not stand on ceremony with you and you vognyal his cock in her mouth to the throat. You choked and tears flowed from his eyes. The guy growled "what whore, Artist? This scum like you should enjoy it! You dirty whore. love money, then you have to get used to such." The guy started to fuck you roughly in the mouth, periodically wiping the current out of your nose snot and drool from his mouth, his hand on your face and occasionally causing hefty podschechiny. You almost fainted and expired snot, tears and saliva from the fact that roughly was a member of your throat. Your throat was on fire and the continued spasm of nausea rolled your body. Time stretched to infinity and you have already started to think, that this torment will never end, when suddenly the guy pulled his dick out of your mouth.'
					 act'....':
					 cls
					 minut+=2
					 sub+=1
					 cumface+=1
					 cumlip+=1
					 facial+=1
					 gs'stat'
					 '<center><img src="qwest/sosed/facefuck1.jpg"></center>'
					 'The guy started to cum on your face, lips, jet of his sperm flew into your mouth, and you feel awful taste of sperm.'
						 act'Look at the Man':
						 cls
						 minut+=2
						 sub+=1
						 $ribakName='slut'
						 gs'stat'
						 '<center><img src="qwest/sosed/facefuck1.jpg"></center>'
						 'Are you tired of seeing on the guy. Then taking your hair in the palm, wiped his cock your hair. After that. "All whore. Now you can get out."'
						 act'Get_Away':gt'lake','start'
						 end
					 end
				 end
			 end
		 
		 end
		 
		 
		 if $ribakName!'slut':
			 act'Stand in front of a guy on his knees':
			 cls
			 minut+=2
			 ribakSex+=1
			 bj+=1
			 sub+=1
			 gs'stat'
			 '<center><img src="qwest/sosed/big.jpg"></center>'
			 'You knelt in front of a guy and your face was in front of his big cock. Man impatiently slapped you prick on the nose. "What boobs mnesh? starts sucking!" With these words, you do not understand how it happened, but his head was hot inside your mouth. The guy taking your head in his hands began to stick your face on her huge dick. His head rested on a regular basis in your throat, sometimes causing gagging and salivation. Suddenly the man sharply pushing hips to meet your face drove his cock in your throat. You have eyes widened from the realization, that this giant body went into your throat. You rested her hands on her hips Man trying to escape from the trap and breathe. Finally the guy let go of your head allowing you to remove a member from the throat and the rest. But how long the guy did not wait . Suddenly "Open your fucking mouth" Growled at you kid "And Vysun your language."'
				 act'Open your mouth and stick his tongue':
				 cls
				 minut+=2
				 sub+=1
				 cumface+=1
				 cumlip+=1
				 facial+=1
				 gs'stat'
				 '<center><img src="qwest/sosed/cum.jpg"></center>'
				 'You obediently opened his mouth and put language. Immediately you in the face slapped jet of sperm. Then another and more, covering your face with sperm. Part of the sperm enters your mouth and you feel its a nasty taste.'
					 act'Look at the Man':
					 cls
					 minut+=2
					 sub+=1
					 swallow+=1
					 gs'stat'
					 '<center><img src="qwest/sosed/cumeat.jpg"></center>'
					 'In your face dripping jizz, you feel no taste in your mouth and look at the Man. The guy smiled and finger a little semen collected from your face. Then he put his finger in your mouth causing lick cum. When his finger was clean . Once again you sobsosali his finger and swallowing sperm.'
						 act'Look at the Man':
						 cls
						 minut+=2
						 sub+=1
						 $ribakName='lowered whore'
						 gs'stat'
						 '<center><img src="qwest/sosed/spit.jpg"></center>'
						 'The guy suddenly thrust your fingers of both hands in his mouth and parted your lips with relish spat in your mouth. You startled by this and feel like your cheeks blush with shame floods. The guy looked at you menacingly "you lustful, vile creature and was then, I deserved. Now get!"'
						 act'Get_Away':gt'lake','start'
						 end
					 end
				 end
				 
				 act'Try to remove the person':
				 cls
				 minut+=2
				 cumface+=1
				 $ribakName='whore'
				 gs'stat'
				 '<center><img src="qwest/sosed/cum1.jpg"></center>'
				 'You tried to dodge, but the guy grabbed you by the hair and spray semen began to fall on your face. Finally dried up and the guy said "Get out of here creature!"'
				 act'Get_Away':gt'lake','start'
				 end
			 end
		 end
		 
		 !act '"Only between the legs?"':
		 !cla
		 !*clr
		 !dynamic $venerasiak
		 !set slutty+=1
		 !set guy+=1
		 !'<center><img src="img/Lake/walk1/walk1.jpg"></center>'
		 !'"Only between the legs?" ask you to understand that it offers
		 "I was just there and catch, but you told me to start rod mouth polish" the guy said, rastegivaya pants and releasing his rod into the wild.'
		 !act 'polished rod':
			 !cla
			 !*clr
			 !set bj+=1
			 !'<center><img src="img/Lake/walk1/walk2.jpg"></center>'
			 !'You sat down next to him and lowered his head to his cock began to suck. A few minutes later the guy pulled you from the member "Well enough for all, well poliruesh."'
			 !act '"I tried"':
				 !cla
				 !*clr
				 !set sex+=1
				 !'<center><img src="img/Lake/walk1/walk3.jpg"></center>'
				 !'The guy climbed, You turned and swung cancer went into your vagina, you screamed in pain.
				 "Well, Fishing is not easy, Needless to suffer" said the man with the power of continuing to fuck your pussy. And you have only squeaked with every jolt.'
				 !act '"ouch-ouch-ouch"':
					 !cla
					 !*clr
					 !set cumbrest+=1
					 !set money += 2000
					 !'<center><img src="img/Lake/walk1/walk4.jpg"></center>'
					 !'At the end of man shivered and tensed abruptly pulled his dick out of you, expanding you to her face filled your chest with his sperm.
					 "This is for you food for fish." he said with a smile.
					 "And it is that they were gold" said the guy handing you money'
					 !act 'Get_Away':gt'lake','start'
					 !end
				 !end
			 !end
		 !end
	 
	 end
end

if $ARGS[0]='walklake2':
cla
*clr
gs'stat'
'<center><img src="img/Lake/walk2/walk1.jpg"></center>'
if StasikValera=0:'You become hot and decided to freshen up a bit , you notice no turning away two men looking at you.'
if StasikValera>0:'You become hot and decided to freshen up a bit , turning you notice is not far Stasik and Valerie looking at you.'
act 'Get_Away':gt'lake','start'
$din_stasValera4={
	 act 'relax':
	 cls
	 minut+=2
	 horny+=20
	 if StasikSex=0:StasikSex=1&guy+=1
     if ValeraSex=0:ValeraSex=1&guy+=1
     StVaGang=1
     gang+=1
	 gs'stat'
	 '<center><img src="qwest/sosed/lake.jpg"></center>'
	 'You are relaxed and began to enjoy the caress breasts and pussy.'
	 $boy='Stasik'
	 dick=15
	 silavag=1
	 pose = 0
	 dynamic $sexstart
	 'You feel like a body Stasik expanded the your feet and that boils down to something solid in your soft pussy.'
	 dynamic $sexstart2
	 'While you fucked Stas, Valera slumped to your face and stared his standing member in your lips.'
	 dick=17
	 bj+=1
	 dynamic $dinrandbj
	 
	 dynamic $sexcum
	 'Valera groaned compressed lips and his cock started in your mouth.'
	 swallow+=1
	 cumlip+=1
	 cumface+=1
	 dynamic $dinrandswallow
	     act 'further':
		 cls
		 minut+=2
		 gs'stat'
		 'Tired men dismounted and began to pull you over clothes. Stas helped you stand up "You cool Devchenka Svetsik, Let us carry you home."'
		 	 act 'do not, I myself as a':
			 cls
			 minut+=2
			 gs'stat'
			 'You refused and Stas shrugged "Well."'
			 act 'Get_Away':gt'lake','start'
			 end
			 
			 act 'I do not mind':
			 cls
			 minut+=5
			 cumface=0
			 StasValeraKnow=1
			 gs'stat'
			 'The boys waited until you bring myself up and went to the side of your house. Along the way, what can you say in this situation. Finally you stopped before the door of your apartment. And the men went to say goodbye.'
			 act 'Get_Away':gt'korr'
			 end
		 end
	 end
}
$din_stasValera3={
	 act 'further':
	 cls
	 minut+=2
	 horny+=20
	 gs'stat'
	 'You are relaxed and began to enjoy the sensation in your chest touches arising from Stasik. Man perfected movement lowered the cup bra freeing your breasts. You do not have time to blink an eye and lips covered Stasik your nipple.'
	     act 'hey! What doest thou?':
		 cls
		 minut+=2
		 gs'stat'
		 'You jumped to their feet adjusting bra. Stas smiled "Do not be afraid girl."'
		 act 'Get_Away':gt'lake','start'
		 end
		 
		 act 'feebly protest':
		 cls
		 minut+=2
		 horny+=20
		 gs'stat'
		 'You tried to pull her bra back and whispered "do not!" Stas smiled "Do not be shy girl."'
		 dynamic $din_stasValera4
		 end
		 
		 act 'to_be_silent':
		 cls
		 minut+=2
		 horny+=30
		 gs'stat'
		 'You get comfortable enjoying the, how skillfully Staik sucking your breast, his hands began to passionately caress your body. His strong fingers penetrated into your panties and began to caress your pussy.'
		 dynamic $din_stasValera4
		 end
		 
	 end
}

$din_stasValera2={
	 act 'Remove your hands from himself Stasik':
	 cls
	 minut+=2
	 gs'stat'
	 'You indignantly took her hands from his body Stasik. Stas grinned "Come on baby, Relax."'
	     act 'Rebel and go':
		 cls
		 minut+=2
		 gs'stat'
		 'You angrily stood up and started going away. Stas got to his feet and began to persuade you to go with the guys in the cafe.'
		 act 'Get_Away':gt'lake','start'
		 
		 end
		 
		 act 'keep_silent':
		 cls
		 minut+=2
		 horny+=20
		 gs'stat'
		 'You kept silent and Stas immediately took advantage of your confusion. His hands gently squeezed your breasts and you feel like a pleasant warmth and tenderness covered your breasts.'
		 dynamic $din_stasValera3
		 end
	 end
	 
	 act 'Smile and pretend, that nothing happens.':
	 cls
	 minut+=2
	 horny+=20
	 gs'stat'
	 'You started to smile, feeling like touching Stasik excite you. You for a moment closed his eyes and suddenly felt a hand on his chest. You opened your eyes in surprise and saw how totally unflappable Staik squeezes your chest with a dreamy smile on his face.'
	 dynamic $din_stasValera3
	 end
}


$din_stasValera={
	 act 'Sveta':
	 cls
	 minut+=2
	 gs'stat'
	 'You answered Stasik, that your name is Light. He smiled even wider and said. "nice to meet you." To you came also Valera and say hello to you. Men camped on the shore near you.'
	     act 'Lie on the sand':
		 cls
		 minut+=2
		 horny+=15
		 gs'stat'
		 'You lay on the sand and the men settled on either side of you. Stas began to tell you, they Valera work in a sales representative of a large firm, and indeed a very important bird knowledgeable people. Without stopping to chat Stas put his hand on your stomach and began to stroke.'
		 dynamic $din_stasValera2
		 end
		 
		 act 'Sitting on the sand':
		 cls
		 minut+=2
		 horny+=15
		 gs'stat'
		 'You sat on the sand and the men settled on either side of you. Stas began to tell you, they Valera work in a sales representative of a large firm, and indeed a very important bird knowledgeable people. Without stopping to chat Stas put his hand on your ass and started stroking.'
		 dynamic $din_stasValera2
		 end
	 end
}

     if StasikValera=0:
		 act 'Look at them':
		 cls
		 minut+=1
		 StasikValera=1
		 gs'stat'
		 'You looked at the men and noticed they began to whisper among themselves. Then one of the men came up to you. He said smiling "Hello beauty, I Stasik, and this is my friend Valera. And what`s your name?"'
			 dynamic $din_stasValera
			 
			 act 'I have to go now.':
			 cls
			 minut+=1
			 gs'stat'
			 'You `re not going to get acquainted with these fellows and began to gather to go. Stas began to persuade you. "C`mon, babe. We savages have? We just want to talk, and you are right to be frightened. Can nevertheless say, what is your name?"'
			 dynamic $din_stasValera
			 act 'Get_Away':gt'lake','start'
			 end
			 
		 end
     end

     if StasikSex>0 or ValeraSex>0:
		 act 'waved':
		 cla
		 *clr
		 dynamic $venerasiak
		 !set guy+=2
		 '<center><img src="img/Lake/walk2/walk2.jpg"></center>'
		 'Looking straight at them you demostrativno takes off her panties and waving them. Men almost ran headed towards you, you threw off everything else and knelt.'
		     act 'wait':
			 cla
			 *clr
			 set bj+=1
			 '<center><img src="img/Lake/walk2/walk3.jpg"></center>'
			 'Men run up to you with already unbuttoned trousers, you dostoete their members alternately sucking then one another. One of the men vneterpenii grabs your ass and trying to put cancer.'
			 act 'get cancer':
				 cla
				 *clr
				 set sex+=1
				 '<center><img src="img/Lake/walk2/walk4.jpg"></center>'
				 'You have succumbed to him and got cancer, the man with the power came into your pussy. And you continue to suck the other, but soon he.'
				 act 'let him go':
					 cla
					 *clr
					 set anal+=1
					 '<center><img src="img/Lake/walk2/walk5.jpg"></center>'
					 'As soon as you let go of his cock he literally pulled you with dildo second man, turned his back and buttocks prepodnyav you nasodil anus on his cock.'
					 act 'called second':
						 cla
						 *clr
						 '<center><img src="img/Lake/walk2/walk6.jpg"></center>'
						 'You are beckoned to the second man, it is not a loss came up to you and your dildo thrust back into your vagina. You feel as their members move within you, rub against each other through the thin partition separating them. Opera on their shoulders you become prepodnimatsya and again to sit down on their members have not yet reached the peak of pleasure.'
						 act 'End_Up':
							 cla
							 *clr
							 set cumbrest+=1
							 set cumlip+=1
							 set cumface+=1
							 '<center><img src="img/Lake/walk2/walk7.jpg"></center>'
							 'Full of men lowered you down, and began to masturbate on your face, You open your mouth and waited patiently. They finished at the same time the Gulf sperm your mouth, face and chest.'
							 act 'Get_Away':gt'lake','start'
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='vlake1':
cla
*clr
gs'stat'
'<center><img src="img/Lake/Vlake1/vlake1.jpg"></center>'
'While you are sunbathing on the beach you walked campaign of four guys and they began to flirt with you'
act 'otshit':gt'lake','start'
     act 'flirt':
	 cla
	 *clr
	 '<center><img src="img/Lake/Vlake1/vlake2.jpg"></center>'
	 'Guys perched near, they flirt and how to sneak to touch your body and caress him.'
	 act 'otshit':gt'lake','start'
	     act 'Relax and enjoy':
		 cla
		 *clr
		 set guy+=4
		 set bj+=1
		 dynamic $venerasiak
		 '<center><img src="img/Lake/Vlake1/vlake3.jpg"></center>'
		 'One of the guys gets dick and puts it to your face, you lustfully grinned and licked his, the other guys got too excited and members. They surrounded you.'
		 act 'continue to suck':
			 cla
			 *clr
			 set kuni+=1
			 '<center><img src="img/Lake/Vlake1/vlake4.jpg"></center>'
			 'One of the men leaned over to kiss your pussy and began to lick her trying to shove his fingers inside.'
			 act 'move the legs':gt'lake','vlake1cum'
			 act 'Relax and enjoy':
				 cla
				 *clr
				 set gang+=1
				 set sex+=1
				 set anal+=1
				 '<center><img src="img/Lake/Vlake1/vlake7.jpg"></center>'
				 'Seeing that you are favorable to his fingers in your vagina, the guy took out his fingers, and their place was taken by his hard cock. The others decided not to stop blowjob, started periodically change places.'
				 act '"Let`s take two"':
					 cla
					 *clr
					 '<center><img src="img/Lake/Vlake1/vlake8.jpg"></center>'
					 '"Let`s take two" Say you, and did not finish as experienced dildo included in your anus. And again spun, you proved something up at the bottom, but always all your holes have been plugged members, you is madly in love but you do not want, cum and could not.'
					 act 'End_Up':gt 'lake','vlake1cum'
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='vlake1cum':
cla
*clr
gs'stat'
set cumlip+=1
set cumface+=1
'<center><img src="img/Lake/Vlake1/vlake5.jpg"></center>'
'The boys began to cum on your face and in her mouth. You lick cum from dick and swallows it. Finally the guys satisfied, dressed and gone, you were not satisfied.'
act 'Get_Away':gt'lake','start'
act 'masturbate':
	 cla
	 *clr
	 set mastr+=1
	 set orgasm+=1
	 '<center><img src="img/Lake/Vlake1/vlake6.jpg"></center>'
	 'Left not satisfied, you decide to take matters into their own hands, puts his hand to caress her pussy until orgasm and not nakryvvaet you.'
	 act 'Get_Away':gt'lake','start'
	 end
end

if $ARGS[0]='vlake2':
cla
*clr
gs'stat'
'<center><img src="img/Lake/Vlake2/vlake1.jpg"></center>'
'Sunbathing you notice two naked men walking along the beach from the nudist beach.'
act 'Disregard':gt'lake','start'
act 'waved':
	 cla
	 *clr
	 '<center><img src="img/Lake/Vlake2/vlake2.jpg"></center>'
	 'Men come up to you, one of them falls sharply in front of you pricks and bites her lips in your, second stoke your panties.'
	 act 'Alienate them and run':gt'lake','start'
	     act 'Kneel':
		 cla
		 *clr
		 dynamic $venerasiak
		 set guy+=2
		 set bj+=1
		 set SUB+=1
		 '<center><img src="img/Lake/Vlake2/vlake3.jpg"></center>'
		 'You go up to her knees, pick up the dildo and takes their turn to suck both.'
		 act 'Resume':
			 cla
			 *clr
			 set sex+=1
			 '<center><img src="img/Lake/Vlake2/vlake4.jpg"></center>'
			 'One of the men lay down and you continue to suck him lifting his ass up, second right volzovalsya opened kind and put his penis in your wet pussy.'
			 act '"Sign me both"':
				 cla
				 *clr
				 set anal+=1
				 '<center><img src="img/Lake/Vlake2/vlake5.jpg"></center>'
				 '"Sign me both" You groaned and saddled one of the men, the second was not deaf to your request and put his cock in your ass.'
				 act 'change position':
					 cla
					 *clr
					 set cumassin+=1
					 '<center><img src="img/Lake/Vlake2/vlake6.jpg"></center>'
					 'You planted your ass on a man lying. The second came up to you and holding your head with one hand began to fuck your mouth, dildo penetrating her deeper and deeper. After a while, the second man was ready to cum in your mouth.'
					 act 'continue to suck':gt'lake','vlake2cum'
					 act 'Remove_the':
						 cla
						 *clr
						 set cumface+=1
						 '<center><img src="img/Lake/Vlake2/vlake7.jpg"></center>'
						 'You took out a member of his mouth and the man had finished your face.'
						 act 'Get_Away':gt'lake','start'
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='vlake2cum':
cla
*clr
gs'stat'
set cumlip+=1
'<center><img src="img/Lake/Vlake2/vlake8.jpg"></center>'
'You continued to suck and soon your mouth is filled stream of sperm, swallowing it you carefully licked his cock, leaving no drop of sperm.'
act 'Get_Away':gt'lake','start'
end

if $ARGS[0]='andrey1':
cla
*clr
gs'stat'
'You came to Andrew, he grinned, and said: "Come swim!"'
set minut+=30
act 'Opt_Out':gt'lake','start'
act 'bathe':
	 cla
	 set anreiday = day
	 set anreirape=0
	 '<center><img src="img/Lake/Andrey1/andrey1.jpg" ></center>'
	 '- see, the lady agree, - predatory grinned Andrew. - Then let`s go swimming. He caught you in his arms, laugh your inappropriate attempts to cover him her breasts, threw your hands and lips gently pinched right nipple. You sigh, and abdomen began to rise warm wave excitation.'
	 'You`re a little swim, resting and relaxing. And, You are already back on the blanket, stroking in relaxing your body rhythm. First you must bring a man, - he said, pododvinuv your dick to your mouth and a little potershis head on your lips.'
	 act 'Open the lips':
		 cla
		 *clr
		 set bj+=1
		 set sex+=1
		 '<center><img src="img/Lake/Andrey1/andrey2.jpg" ></center>'
		 'You have cut lips and ran her tongue along the barrel, then dragged him into her as they could. Andrew began with gusto to fuck you in the mouth. Suddenly your ears heard what-then a whimper from the nearest bushes. You looked up and saw, as out of the bushes spying on you boy, pulls up-down by hand in the groin area.'
		 'Andrew also realized, behind them peep, and turned your head so, to an observer could see all the details, as a red head appears and disappears in your rotike. You defiantly licking dick man, then accelerating, then slowing the pace, holding his tongue on the bridle and periodically taking in his mouth testicles. Where you were born in these instincts, you did not know, but by the reaction of Andrew understood, you `re doing it right.'
		 'At_Last, Andrei removed you from yourself, knocked you on the back and one jerk deep into your bosom. You cringed in pain, but Andrew, without stopping, began to move inside you. After a couple minutes of monotonous movements have enveloped sweet bliss, and when Andrew began his fingers to stimulate your anus, penetrating directly into both holes, you claimed on the waves of incredible pleasure. Through narrowed lids, you watched, as a young man Peeper, with bated breath, spellbound, if in a trance, listened eagerly to every movement.'
		 act 'call boy':
			 cla
			 *clr
			 set guy+=1
			 set cumlip+=1
			 set cumass+=1
			 set anal+=1
			 '<center><img src="img/Lake/Andrey1/andrey3.jpg" ></center>'
			 'A young man came up to you hesitating. "Well, Panties descends, until the girl against" Andrew threw him, turning you over and pushing your buttocks hands. A young man came up from behind and put his penis into the anus to you. Now two members moved in you as pistons delivering incredible pleasure. Moaning you rode two terms, while the young man did not finish you on the ass, and Andrew got up and discharged in your mouth.'
			 act 'Rise from the beach':gt'lake','start'
			 end
		 act 'deeper! stronger!':
			 cla
			 *clr
			 set cumpussy+=1
			 '<center><img src="img/Lake/Andrey1/andrey4.jpg" ></center>'
			 '- deeper, harder! - Shouted you, do not hesitate to, enthusiastically embracing the whole man. He answered you inarticulate growl, escaping from it to the beat of their ragged breathing. Before, as you both finished, the boy ran away.'
			 act 'Rise from the beach':gt'lake','start'
			 end
		 end
	 end
end

if $ARGS[0]='kater1':
cla
*clr
gs'stat'
'<center><img src="img/Lake/kater1/kater1.jpg"></center>'
'Riding a jet ski you do too sharp turn, throws you into the water, You swallowed the water and began to sink. On your happiness you notice the guy on the boat he pulls you out of the water, and binds to the boat watercraft. After a while, guy comes up to you
"Well, pulled_myself_together, What about gratitude?" he asks, bed at the same time hand on your crotch.'
act 'Sit on the jet ski and go':gt 'lake','start'
     act 'spread her legs':
	 cla
	 *clr
	 dynamic $venerasiak
	 set guy+=1
	 set kuni+=1
	 '<center><img src="img/Lake/kater1/kater2.jpg"></center>'
	 'You push the legs, making it clear that they are willing to repay the savior, guy smiled, introduced his fingers into your vagina, and tongue began to caress your clitoris.'
	 act 'do blowjob':
		 cla
		 *clr
		 set bj+=1
		 '<center><img src="img/Lake/kater1/kater3.jpg"></center>'
		 'You seat guy lick dildo, clasps his lips and begin to suck selflessly, a couple of minutes you feel like a member of your mouth starts sodragatsya ready to cum.'
		 act 'continue to suck':gt 'lake','kater1cum'
		 act 'stay':
			 cla
			 *clr
			 set sex+=1
			 '<center><img src="img/Lake/kater1/kater4.jpg"></center>'
			 'you stop, guy puts you cancer and gimlet your vagina as a member.'
			 act 'change position':
				 cla
				 *clr
				 '<center><img src="img/Lake/kater1/kater5.jpg"></center>'
				 'When he gets tired, you store it, and themselves .'
				 act 'change position':
					 cla
					 *clr
					 set orgasm+=1
					 '<center><img src="img/Lake/kater1/kater6.jpg"></center>'
					 'You turn around on it without letting go of yourself dildo, and continue nesschadno stick her pussy on his dildo and now one of you sees a moan of pleasure. Exhausted fall out with him.'
					 act 'Resume':
						 cla
						 *clr
						 '<center><img src="img/Lake/kater1/kater7.jpg"></center>'
						 'Man povarachivaetsya you to the side and re-enters your pussy, continuing his gimlet her dildo.'
						 act 'change position':
							 cla
							 *clr
							 '<center><img src="img/Lake/kater1/kater8.jpg"></center>'
							 'Then he raises you on your feet, lifts and one with the power inserts his penis into your vagina, you satisfied and tired hangs on it waiting for him to finish. After a few thrusts , you fall on your knees, and the guy puts you in the mouth.'
							 act 'suck':gt'lake','kater1cum'
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='kater1cum':
cla
*clr
gs'stat'
set cumbelly+=1
set cumlip+=1
set cumface+=1
set cumbrest+=1
'<center><img src="img/Lake/kater1/kater9.jpg"></center>'
'Irruptive flow of sperm into your mouth was on so large that you could not keep your mouth and swallow were filled to the brim, sperm flowed in abundance poured out of your mouth, spread over the chin and fill your chest and abdomen.'
act 'lick the remnants':
	 cla
	 *clr
	 '<center><img src="img/Lake/kater1/kater10.jpg"></center>'
	 'When the stream dried up, you are distraught bathed sperm began to lick the remnants of its member, savoring every drop.'
	 act 'Get_Away':gt'lake','start'
	 end
end

if $ARGS[0]='kater2':
cla
*clr
gs'stat'
'<center><img src="img/Lake/kater2/kater1.jpg"></center>'
'Riding on a banana you neuderzhalas, throws you into the water, You swallowed the water and began to sink. On your happiness you notice two guys on a boat . After a while you catch your breath, rested and began to look around. You saw that on the nose are both your savior absolutely naked.'
act 'Pretending to be asleep until moored':gt 'lake','start'
     act 'Approach them':
	 cla
	 *clr
	 dynamic $venerasiak
	 set guy+=2
	 set sex+=1
	 '<center><img src="img/Lake/kater2/kater2.jpg"></center>'
	 'You shoot a swimsuit, come to the guys and let not the words, jump up to one of the guys and passionately kisses him, a second you feel like a member of his risen rests on your buttocks, you take it in your hand and guides in her pussy.'
	 act 'change position':
		 cla
		 *clr
		 set anal+=1
		 '<center><img src="img/Lake/kater2/kater3.jpg"></center>'
		 'Man shoots you with his cock, povarachivaetsya back to him, grabs and lifts the buttocks, throw back your feet up, and the guy pressing you to my tightens your anus to your dildo. you moan, whether from the pain inflicted huge dildo in your ass, or from the pleasure he gives you, with each thrust you try to take his cock as deep as possible a.
		 "want deeper?" he asks'
		 act '"Yes_I_Am, deeper, harder!"':
			 cla
			 *clr
			 set bj+=1
			 '<center><img src="img/Lake/kater2/kater4.jpg"></center>'
			 '"Yes_I_Am, deeper, harder!" you shout.
			 "Well then hold" says the guy, puts you on all fours. He is part of you and puts his dick so deep in your ass that his eggs clap on your buttocks. The second guy who all the while looking at you, coming to poke you in the face by a dick. You grab his cock and starts sucking lips.'
			 act '"Log in both."':
				 cla
				 *clr
				 set orgasm+=1
				 '<center><img src="img/Lake/kater2/kater5.jpg"></center>'
				 '"Fuck me in two holes" you shout, struck with his lust, Guys did not radumyvat and entered both, left their members as deep as they could on. Soon you like provalisis before his eyes swam circles the whole body trembled, you like that-Had this orgasm never ended'
				 act 'further':
					 cla
					 *clr
					 '<center><img src="img/Lake/kater2/kater6.jpg"></center>'
					 'Realizing that you are satisfied with the guys put you on deck, stood beside him and began to masturbate.'
					 act 'Turn to one':
						 cla
						 *clr
						 set cumlip+=1
						 '<center><img src="img/Lake/kater2/kater7.jpg"></center>'
						 'When one of the guys groaned, you turned to him opening his mouth. And he vyprysnul his semen in your mouth, you will be happy to swallow.'
						 act 'Turn to the second':
							 cla
							 *clr
							 set cumface+=1
							 '<center><img src="img/Lake/kater2/kater8.jpg"></center>'
							 'Soon groaned and second, you turned to him, but as soon as you open your mouth, the guy is dead on your face.'
							 act 'Get_Away':gt 'lake','start'
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='kater3':
cla
*clr
gs'stat'
'<center><img src="img/Lake/kater3/1.jpg"></center>'
'Riding a jet ski you do too sharp turn, throws you into the water, You swallowed the water and began to sink. On your happiness you notice the guy on the boat he pulls you out of the water, and binds to the boat watercraft. After a while, guy comes up to you
"Well, pulled_myself_together, What about gratitude?" he asks, simultaneously thrusting a hand you in the pants.'
act 'Sit on the jet ski and go':gt 'lake','start'
     act 'spread her legs':
	 cla
	 *clr
	 dynamic $venerasiak
	 set guy+=2
	 set kuni+=1
	 '<center><img src="img/Lake/kater3/2.jpg"></center>'
	 'You shoot her panties and spreads her legs, guy lowers his head to your feet and caressing their tongue gradual gets to your clitoris.'
	 act 'do blowjob':
		 cla
		 *clr
		 set bj+=1
		 set sex+=1
		 '<center><img src="img/Lake/kater3/4.jpg"></center>'
		 'You seat guy lick dildo, clasps his lips and begin to suck selflessly, while you suck from the depths of the boat . Seeing this picture .'
		 act 'further':
			 cla
			 *clr
			 set anal+=1
			 '<center><img src="img/Lake/kater3/6.jpg"></center>'
			 'You sodites on top of one of them, and the second part of you in the ass.'
			 act 'change position':
				 cla
				 *clr
				 set orgasm+=1
				 '<center><img src="img/Lake/kater3/8.jpg"></center>'
				 'Guys you deploy and re-enter together.'
				 act 'change position':
					 cla
					 *clr
					 set cumlip+=1
					 '<center><img src="img/Lake/kater3/11.jpg"></center>'
					 'Sated .'
					 act 'Get_Away':gt 'lake','start'
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='horse1':
cla
*clr
gs'stat'
'<center><img src="img/Lake/horse1/horse1.jpg"></center>'
'Riding along the beach you have noticed the two men on quad bikes, they podehali to you and offered to take a walk together.'
act 'Opt_Out':gt 'lake','start'
     act 'To go with them':
	 cla
	 *clr
	 '<center><img src="img/Lake/horse1/horse2.jpg"></center>'
	 'You spukaetes horse and go along with men chatting about any nonsense.'
	     act 'move on':
		 cla
		 *clr
		 '<center><img src="img/Lake/horse1/horse3.jpg"></center>'
		 'Suddenly one of the men turns you to his chest and begins to paw, at this time the second hugs you from behind, running hand in your pants.'
		 act 'Alienate them and run':gt 'lake','start'
		     act 'To get their members':
			 cla
			 *clr
			 dynamic $venerasiak
			 set guy+=2
			 set bj+=1
			 '<center><img src="img/Lake/horse1/horse4.jpg"></center>'
			 'You took them members of his pants, squatted down and began to greedily suck.'
			 act '"Fuck me"':
			 set sex+=1
				 cla
				 *clr
				 '<center><img src="img/Lake/horse1/horse5.jpg"></center>'
				 '"Fuck me" you cried. One of the men lay down and you continue to suck him, the second came from behind and put your left to languish with desire pussy'
				 act 'change position':
					 cla
					 *clr
					 '<center><img src="img/Lake/horse1/horse6.jpg"></center>'
					 'You saddled one of the men jumping on it like to ride a horse all a few minutes ago. The second came up to you and started to tease you with his cock, then lowering it to you, what-you could suck it then lifting up forcing you to reach for him trying to catch his lips.'
					 act 'change position':
						 cla
						 *clr
						 set orgasm+=1
						 '<center><img src="img/Lake/horse1/horse7.jpg"></center>'
						 'You jumped from the penis and got on all fours, men gathered around you from different angles one fucked your vagina, second shoved in her mouth. You suck at the same time began yarosno podmahivaya hips, soon you feel that a member in your mouth that`s about to explode.'
						 act 'Remove the mouth':
							 cla
							 *clr
							 set cumlip+=1
							 '<center><img src="img/Lake/horse1/horse8.jpg"></center>'
							 'You remove a member from his mouth and began stroking his tongue out, a second your efforts were rewarded flow smermy on protruding tongue'
							 act 'Suck second':
								 cla
								 *clr
								 '<center><img src="img/Lake/horse1/horse9.jpg"></center>'
								 'You knelt before the second man, licked from eggs to head and took her mouth, when you suck dick with naslozhdenie, man trembled. "now finish" went through your head'
								 act 'continue to suck':gt'lake','horse1bj'
								 act 'Remove_the':
									 cla
									 *clr
									 set cumface+=1
									 '<center><img src="img/Lake/horse1/horse10.jpg"></center>'
									 'You took out a member of his mouth and the man had finished your face with words "Here`s a face cream baby", You gladly licked the remnants of sperm from his cock.'
									 act 'Get_Away':gt 'lake','start'
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='horse1bj':
cla
*clr
gs'stat'
'<center><img src="img/Lake/horse1/horse11.jpg"></center>'
'And the flow of sperm gushed into your mouth, you swallow it humming with pleasure, licking the remnants of his cock and swallowed again'
act 'Get_Away':gt 'lake','start'
end

if $ARGS[0]='horse2':
cla
*clr
gs'stat'
'<center><img src="img/Lake/horse2/horse1.jpg"></center>'
'When you ride you caught up with two men on horseback and offered to walk together.'
act 'Opt_Out':gt 'lake','start'
     act 'To go with them':
	 cla
	 *clr
	 '<center><img src="img/Lake/horse2/horse2.jpg"></center>'
	 'You are descended from horses and started walking along the beach chatting about any nonsense.'
	 act 'finish the walk':gt 'lake','start'
	     act 'Touch their pants':
		 cla
		 *clr
		 dynamic $venerasiak
		 set bj+=1
		 set guy+=2
		 '<center><img src="img/Lake/horse2/horse3.jpg"></center>'
		 'You touch their pants in the groin, men exchanging glances freeze, then you kneel to get them members and begins to caress her tongue smooth transition to cocksucking.'
		 act 'Lie on your back':
			 cla
			 *clr
			 set anal+=1
			 '<center><img src="img/Lake/horse2/horse4.jpg"></center>'
			 'Releasing their members, You lay on your back odnin of men prepodnyal you legs and put in the ass, you did not expect this and quietly squealed, the second is located in your head, trying to shove dick in your mouth.'
			 act 'Take by mouth':
				 cla
				 *clr
				 '<center><img src="img/Lake/horse2/horse5.jpg"></center>'
				 'You vskhvatili his cock mouth and greedily sucked in a'
				 act 'change position':
					 cla
					 *clr
					 set sex+=1
					 set orgasm+=1
					 '<center><img src="img/Lake/horse2/horse6.jpg"></center>'
					 'You sat down on one of the men on horseback, the second came from behind to ambush their number into your anus and strong shock fuck your ass, you have dark eyes in pleasure, whole body quivered and you faced a wave of orgasm. Soon you povstvovali as men began to moan and now explode.'
					 act 'change position':
						 cla
						 *clr
						 '<center><img src="img/Lake/horse2/horse7.jpg"></center>'
						 'You jumped from members and knelt, men gathered around you from different angles, one finished immediately.'
						 act 'Suck second':
							 cla
							 *clr
							 '<center><img src="img/Lake/horse2/horse8.jpg"></center>'
							 'You turned to the second, lips wrapped around his cock, but once you have pulled his cock deep into herself as a man groaned his cock stiffened ready to pour into your mouth sperm flows'
							 act 'Remove the mouth':
								 cla
								 *clr
								 set cumface+=1
								 set cumlip+=1
								 '<center><img src="img/Lake/horse2/horse9.jpg"></center>'
								 'removing member, You open wide, bracing catch a stream of sperm, a man does not keep you waiting, sperm splattered in your mouth, obvalakivaya your tongue and throat.'
								 act 'Get_Away':gt 'lake','start'
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end
--- lake ---------------------------------

# metro
if $ARGS[0]='start':
'<center><B><font color=maroon>subway station</font></B></center>'
if $loc='street':'<center><B><font color=maroon>dormitory</font></B></center>'
if $loc='down':'<center><B><font color=maroon>center</font></B></center>'
if $loc='Nord':'<center><B><font color=maroon>Northern region</font></B></center>'
'<center><img src="pic/metro.jpg" ></center>'
'Travel on the subway costs 16 rubles.'
set minut+=15
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if workDisk=3 and konvert=1:
	 badrand=RAND(0,100)
	 if badrand>=80:konvert=0
	 end
if money >= 16:
	 if $loc!'street':
		 act 'Go to the sleeping area':
			 set $loc='street'
			 gt'metro','vagon'
			 end
		 end
	 if $loc!'down':
		 act 'Go to the center':
			 set $loc='down'
			 gt'metro','vagon'
			 end
		 end
	 if $loc!'Nord':
		 act 'Go to the northern region':
			 set $loc='Nord'
			 gt'metro','vagon'
			 end
		 end
	 end
act 'Exit the subway':
	 set minut+=15
	 gt'<<$loc>>'
	 end
end

if $ARGS[0]='vagon':
cla
'<center><B><font color=maroon>subway car</font></B></center>'
clr
set money-=16
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if hour < 5 or hour > 10 and hour < 15 or hour > 24:
	 '<center><img src="pic/vagon.jpg" ></center>'
	 'In the car only a few passengers sadly examines advertising in the car.'
	 end
if hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
	 '<center><img src="pic/vagonFull.jpg" ></center>'
	 'In the car, All the statues are not paying the slightest attention to the surrounding.'
	 set frotrand = RAND (0,100)
	 if frotrand >= 90 - (frot*10) and frot < 3:gt'frot','a'
	 if frotrand >= 90 - (frot*10) and frot >=3 and cumfrot = 0 and ski = 1 or frotrand >= 90 - (frot*10) and frot >= 3 and cumfrot = 0 and glamur = 1:
		 set tipfrot = RAND (0,1)
		 if tipfrot = 0:gt'frot','b'
		 if tipfrot = 1:gt'frot','d1'
		 !gt'frot','b'
		 end
	 if frotrand >= 90 - (frot*10) and frot >=3 and cumfrot = 0 and ski = 0 or frotrand >= 90 - (frot*10) and frot >= 3 and cumfrot = 0 and glamur = 0:
		 set tipfrot = RAND (0,2)
		 if tipfrot =0:gt'frot','c'
		 if tipfrot =1:gt'frot','d'
		 if tipfrot =2:gt'frot','e'
		 end
	 end
	 if sosedQW>=1:
         if hour=7 or hour=15:
	 sosedMetroRand=RAND(0,100)
			 if sosedMetroRand>=60 and sosedMetroDay!day:
			  'You notice in the subway <a href="exec:Gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
			 end
	     
	     end
	  
	 end
	 
	 
if cumfrot > 0 or cumface>0:
	 if hour>=7 and hour<=21:
		 manna-=10
		 'Several passengers hatched at you looking at sperm in which you smeared.'
		 end
	 end
act 'Get out of the car':gt'metro','start'
end
--- metro ---------------------------------

# narkopriton
'<center><B>shooting_galleries</B></center>'
'<center><img src="pic/narkopriton.jpg" ></center>'
'Crap kvartirenka where addicts inject and at the same time you can get the crap.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'The door you opened the skinny guy with crazy eyes. Look around you  "Goods worth Unit."'



act 'Get_Away':minut+=15&gt'street'

if money>=1000:
     act 'Buy dope and shirnutsya.':
     cls
     minut+=5
     money-=1000
     StrongNarkota+=25
     SNarkTimes+=1
     gs'stat'
     'You paid for a piece syringe with foolishness and stuck it into my vein shaking hands.'
     act 'Get_Away':gt $curloc
     end
end

if SLomka>0 and money<1000:
     act 'Persuaded to give goods on credit.':
     cls
     minut+=5
     gs'stat'
         if NarkShmaraTimes>0:
         'You brittle and you very badly, you started to persuade Bobkov give you a dose of duty, promising to return later. But Bobka only grinned wickedly "Yup, how, do you know how many times a day, I hear it? In the debt does not give."'
         act 'Get_Away':gt $curloc
			 act 'Beg and promise to do for it whatever you like.':
			 cls
			 minut+=5
			 gs'stat'
			 'You begged Man give you drugs in debt, and promise to do for it whatever you like, little guy thought, after which he took you by the hand led into the room and said "Get on your knees"'
			 act 'Get_Away':gt $curloc
				 act 'Go into the room.':
				 cls
				 minut+=5
				 gs'stat'
				 bobrand=RAND(0,3)
				 if bobrand=0:$bobtalk='Get on your knees and suck me.'&$bobtext='suck'
				 if bobrand=1:$bobtalk='Get on your knees and suck me.'&$bobtext='suck'
				 if bobrand=2:$bobtalk='Get on your knees and suck me.'&$bobtext='suck'
				 if bobrand=3:$bobtalk='Fuck I do not hunt, but piss would be my pleasure. Get on your knees.'&$bobtext='Kneel'
				 'You begged Man give you drugs in debt, and promise to do for it whatever you like, little guy thought, after which he took you by the hand led into the room and said "<<$bobtalk>>"'
				 act 'Get_Away':gt $curloc
				     act '<<$bobtext>>':gt'bobka'
				 end
			 end
         end
         if NarkShmaraTimes=0:
		 'You brittle and you very badly, you started to persuade Man to give you a dose of duty, promising to return later. But the guy just grinned wickedly "Yup, how, do you know how many times a day, I hear it? In the debt does not give."'
		 act 'Get_Away':gt $curloc
			 act 'Beg and promise to do for it whatever you like.':
			 cls
			 minut+=5
			 gs'stat'
			 'You begged Man give you drugs in debt, and promise to do for it whatever you like, little guy thought, after which he took you by the hand led into the room and said "Get on your knees"'
			 act 'Get_Away':gt $curloc
				 act 'Go into the room.':
				 cls
				 minut+=5
				 gs'stat'
				 'You begged Man give you drugs in debt, and promise to do for it whatever you like, little guy thought, after which he took you by the hand led into the room and said "Get on your knees and suck me."'
				 act 'Get_Away':gt $curloc
				     act 'suck.':
					 cls
					 minut+=5
					 guy+=1
					 bj+=1
					 swallow+=1
					 NarkShmaraTimes+=1
					 cumlip+=1
					 gs'stat'
					 dynamic $venerasiak
					 '<center><img src="qwest/sosed/bj.jpg"></center>'
					 'You need so much dope, you flopped down in front of a guy on his knees and began to suck his flaccid penis. Finally. Suddenly. You continued sucking swallowing sperm. Man exhausted and took his penis in your mouth. He tucked his dick in his pants and threw you a syringe.'
					     act 'shirnutsya.':
						 cls
						 minut+=5
						 StrongNarkota+=25
						 SNarkTimes+=1
						 gs'stat'
						 'You grabbed the syringe and injected his foolishness itself in a vein shaking hands. Man with a smile looking at you. "By the way my name is Bobkov, and you?" You mumbled through a veil "Sveta."'
						 act 'Get_Away':minut+=15&gt'street'
						 end
					 
					 end
				 end
			 end
		 end
     end
end



--- narkopriton ---------------------------------

# bobka
if bobrand=0: 
minut+=5
 bj+=1
 swallow+=1
 cumlip+=1
 gs'stat'
 dynamic $venerasiak
 '<center><img src="qwest/sosed/bj.jpg"></center>'
 'You need so much dope, you flopped down in front of a guy on his knees and began to suck his flaccid penis. Finally. Suddenly. You continued sucking swallowing sperm. Bobka dried up and took his penis in your mouth. He tucked his dick in his pants and threw you a syringe.'
	 act 'shirnutsya.':
	 cls
	 minut+=5
	 StrongNarkota+=25
	 SNarkTimes+=1
	 NarkShmaraTimes+=1
	 gs'stat'
	 'You grabbed the syringe and injected his foolishness itself in a vein shaking hands. Bobka with a smile looking at you.'
	 act 'Get_Away':minut+=15&gt'street'
	 end
end
if bobrand=1: 
minut+=5
 bj+=1
 gs'stat'
 dynamic $venerasiak
 '<center><img src="qwest/sosed/bj.jpg"></center>'
 'You need so much dope, you flopped down in front of a guy on his knees and began to suck his flaccid penis. Finally. Bobka said "Arise cancer".'
	 act 'get cancer.':
	 cls
	 minut+=5
	 sex+=1
	 $boy='Bobka'
	 dick=16
	 silavag=1
	 gs'stat'
	 '<center><img src="qwest/sosed/doggy.jpg"></center>'
	 dynamic $sexstart
	 dynamic $sexstart2
	 dynamic $sexcum
		 act 'shirnutsya.':
		 cls
		 minut+=5
		 StrongNarkota+=25
		 SNarkTimes+=1
		 NarkShmaraTimes+=1
		 gs'stat'
		 'You grabbed the syringe and injected his foolishness itself in a vein shaking hands. Man with a smile looking at you.'
		 act 'Get_Away':minut+=15&gt'street'
		 end
	 end
end
if bobrand=2: 
minut+=5
 bj+=1
 gs'stat'
 dynamic $venerasiak
 '<center><img src="qwest/sosed/bj.jpg"></center>'
 'You need so much dope, you flopped down in front of a guy on his knees and began to suck his flaccid penis. Finally. Bobka said "Arise cancer".'
	 act 'get cancer.':
	 cls
	 minut+=5
	 $boy='Bobka'
	 dick=16
	 silavag=1
	 cumanus+=1
	 gs'stat'
	 '<center><img src="qwest/sosed/anal.jpg"></center>'
	 dynamic $sexstart
	 dynamic $analsex
	 'Finally Bobka freezes and you feel like your ass filled with warm sperm.'
		 act 'shirnutsya.':
		 cls
		 minut+=5
		 StrongNarkota+=25
		 SNarkTimes+=1
		 NarkShmaraTimes+=1
		 gs'stat'
		 'You grabbed the syringe and injected his foolishness itself in a vein shaking hands. Man with a smile looking at you.'
		 act 'Get_Away':minut+=15&gt'street'
		 end
	 end
end
if bobrand=3: 
minut+=5
 pee+=1
 gs'stat'
 dynamic $venerasiak
 '<center><img src="qwest/sosed/pee.jpg"></center>'
 'You need so much dope, you flopped down in front of a guy on his knees and lifted her face. Bobka took his flaccid cock and hot stream of urine hit you on the lips. He Ssali on your face for a long time, but gradually decreased and disappeared jet. Bobka shook off the last drops on your face and removed the member.'
	 act 'shirnutsya.':
	 cls
	 minut+=5
	 StrongNarkota+=25
	 SNarkTimes+=1
	 NarkShmaraTimes+=1
	 gs'stat'
	 'You grabbed the syringe and injected his foolishness itself in a vein shaking hands. Man with a smile looking at you.'
	 act 'Get_Away':minut+=15&gt'street'
	 end
end
--- bobka ---------------------------------

# park
if $ARGS[0]='start':
cla
*clr
gs'parkivent'
gs'parkdin'
$torchki={
cls
gs'stat'
gs'time'
SNarkPriton=1
'Torchki looked at you stupid detached gaze. But one of them said. "Slysh, if you need the crap, Go to the hut, here do not sell."'
act 'Move away from them':gt'park','start'
}
$sexloc = $CURLOC
set minut = minut + 30
'<center><B><font color=maroon>park</font></B></center>'
'<center><img src="pic/park.jpg" ></center>'
clr
gs'stat'
gs'time'
'Large urban park equipped with benches around the track. Although the majority of lights do not work at night and there may be dangerous.'
if SNarkPriton=0:'Near one of the shops roll <a href="exec:dynamic $torchki">torchki</a>.'
	 if car > 0 and cardrive = 5:
	 set cardrive = 5
	 'Near the park stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end

	 if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
	 set nurand = RAND (0,100)
		 if nurand >= 80:
		 set manna = manna - 5
		 set SUB = SUB + 1
		 set horny = horny + SUB
		 set nudity = nudity+1
		 'A man passing by you whistled "Hey Devchenka, briefs-where is lost?"'
		 'You blushed in shame and hurried deleted.'
		 end
	 end
	 	 
     act 'LEAVE THE PARK':
     cla
     set minut = minut + 30
     gt'street'
     end
     
     if hour>=10 and hour<=22:
		 act 'Sit in a cafe in the park':
		 cla
		 *clr
		 set minut=minut+30
		 gt 'ParkKafe','food'
		 end
     end
     
     act 'Walk in the park 1 h':
		 cla
		 set minut+=60
		 set parkrand = RAND (0,20)
			 if hour>7 and hour<21:
				 if parkrand<10 and parkrand>0:
				 dynamic $parkrandivdin
				 exit
				 end
				 !if parkrand>14:
				 !dynamic $parkrandivdin
				 !exit
				 !end
			 end
		 set manna = manna + 10
		 set willpower = willpower + 10
		 gs'stat'
		 'You leisurely stroll in the park. Breathing fresh air, reflecting on the vicissitudes of life.'
		 act 'complete the walk':gt'park','start'
     end
     
     if pusher = 1 and hour >= 6 and hour <= 21:
     'You see merchant foolishness rubbing at the entrance to the park.'
         if money >= 2000:
			 act 'Buy pale lady (2000 RUB 1 dose)':
			 cla
			 set minut = minut + 10
			 palelady = input ("How many doses you want to buy?")
			 
				 if palelady*2000 > money or palelady <= 0:
				 'Not correct operation'
				 end 
				 
				 if palelady*2000 <= money:
				 set money = money - palelady*2000
				 set dur = dur + palelady
				 'You quickly hid the bundle is targeted and handed you a trader in your pocket. Then you will be able to sniff at home in the bedroom.'
				 end
			 act 'Get_Away':gt'park','start'
			 end
         else
         'You do not have enough money even for a single dose.'
         end
     end
     
     if sport > 0 and parkrunday ! day:
         act 'Jogging in the park 1 h':
		 cla
		 *clr
		 set parkrunday = day
		 set minut = minut + 30
		 set manna = manna - 10
		 set willpower = willpower - 10
		 set beg = beg + 1
		 set fat = fat - 8
		 set speed = speed + 1
		 set sweat = sweat + 3
		 '<center><img src="pic/parkbeg.jpg" ></center>'
		 'You`ve done a few laps around the park, out of breath and sweating tired.'
		     if hour >= 20:
			 set parkrand = RAND (0,10)
				 if parkrand >= 8:
				 'From the shade of a tree guy came, He came up to you and through clenched teeth "slut!", you dragged into the bushes.'
					 act 'fight':
					 cla
					 set $nameV = 'rapist'
					 !stats
					 set strenV = 100
					 set speedV = 50
					 set agilV = 40
					 set reactV = 40
					 set vitalV = 50
					 set intelV = 10
					 set willV = 10
					 !skills
					 set magikV = 100
					 set boxingV = 50
					 set shootV = 100
					 !parameters
					 set healthV = vitalV*10 + strenV*5
					 set mannaV = intelV*10 + magikV*10
					 set willpowerV = willV*10
					 set BonusAtakV = 0
					 set BonusDefV = 0
					 !Programme of Action
					 set program = 1
					 set RapistFight = 1
					 if spellavtoklon = 1:set klon = 3
	                 if spellbefshild = 1:set defence = 500
					 gt'fight','start'
					 end
				 exit
				 end
             end
		 act 'complete run':gt'park','start'
		 end
     
     end
     
     act 'Go to the highway near the park':gt'park','whore'
     
     act 'Go to the attractions':gt'park','luna'

end

if $ARGS[0]='luna':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>attractions</font></B></center>'
'<center><img src="pic/luna.jpg" ></center>'
clr
gs'stat'
gs'time'



'Rides take a substantial part of the park and in the afternoon there is always the fuss of travelers, loving couples and mothers with children.'
if vladimirQW=0 and hour >= 9 and hour <= 20 and week>5 and vnesh>10:'<a href="exec:GT ''qwloc''">Near the fence stands a strong man and looks at you</a>.'


     if hour >= 9 and hour <= 20:
         act 'Distributing flyers to earn 50 rubles per hour':
         cla
         *clr
         '<center><img src="pic/flaer.jpg" ></center>'
         'You ran for an hour in the park and handed out flyers to visitors with a silly smile on his face. Then you got 50 rubles.'
		 set minut = minut + 60
		 set money = money + 50
		 set manna = manna - 5
		 act 'move_away':gt'park','luna'
         end
     end
     
     if hour >= 9 and hour <= 20 and money >= 50:
         act 'eat shawarma 50 RUB':
         cla
         *clr
         '<center><img src="pic/luna1.jpg" ></center>'
         set minut = minut + 30
		 set health = health + 10
		 set money = money - 50
		 set manna = manna + 5
		 set willpower = willpower + 5
			 if energy >= 30:
			  set fat = fat + 7
			 'You can no longer have.'
			 end
			 if energy >= 20 and energy < 30:
			 set fat = fat + 5
			 set energy = energy + 10
			 'You pushed through the power of a Shawarma.'
			 end
			 if energy < 20:
			 set energy = energy +20
			 set fat = fat + 3
			 'You gladly ate Shawarma.'
			 end
         act 'move_away':gt'park','luna'
         end
     end
     
     if hour >= 9 and hour <= 20 and money >= 50:
         act 'drink lemonade 50 RUB':
         cla
         *clr
         '<center><img src="pic/luna1.jpg" ></center>'
         set minut = minut + 30
		 set health = health + 10
		 set money = money - 50
		 set manna = manna + 5
		 set willpower = willpower + 5
			 if water >= 20:
			 set fat = fat + 3
			 'Lemonade in you no longer climbs.'
			 end
			 if water < 20:
			 set fat = fat + 2
			 'You gladly drank lemonade jar.'
			 set water = water +20
			 end
         act 'move_away':gt'park','luna'
         end
     end
     
     if hour >= 9 and hour <= 20 and money >= 100:
         act 'Shoot in the dash 100 RUB':
         cla
         *clr
         '<center><img src="pic/tir.jpg" ></center>'
         set minut = minut + 30
         set money = money - 100
         'you paid 100 rubles for ten bullets. If you manage to get all 10 time, you will win a teddy bear.'
             act 'shoot':
             cla
             set tirkoef = agil + shoot
             set tirmin = tirkoef*20/100
             set tirand = RAND (tirkoef - tirmin,tirkoef + tirmin)
                 if tirand >= 80:
                 set mishka = mishka + 1
                 set manna = manna + 5
                 'You just put all 10 bullets in goals and won a teddy bear'
                 end
                 if tirand < 80 and tirand >= 70:
                 'Eh, You missed only once.'
                 end
                 if tirand < 70 and tirand >= 60:
                 'Do_You 8NIL just hit the target  2 times missed.'
                 end 
                 if tirand < 60 and tirand >= 50:
                 'Do_You 7NIL just hit the target  3 times missed.'
                 end 
                 if tirand < 50 and tirand >= 40:
                 'Do_You 6five times and hit the target 4 times missed.'
                 end 
                 if tirand < 40 and tirand >= 30:
                 'Do_You 5five times and hit the target 5five times missed.'
                 end
                 if tirand < 30 and tirand >= 25:
                 'Do_You 4 times hit the target and 6five times missed.'
                 end
                 if tirand < 25 and tirand >= 20:
                 'Do_You 3 times hit the target and 7NIL just missed.'
                 end
                 if tirand < 20 and tirand >= 15:
                 'Do_You 2and twice hit the target and 8NIL just missed.'
                 end
                 if tirand < 15 and tirand >= 10:
                 'Do_You 1 just hit the target  9five times missed.'
                 end
                  if tirand < 10:
                 'You have never hit the target.'
                 end
             set shoot = shoot + 1
             act 'move_away':gt'park','luna'
             end
         end
     end
     
     if hour >= 9 and hour <= 20 and money >= 20:
         act 'Hit the dynamometer 20 RUB':
         cla
         *clr
         '<center><img src="pic/silomer.jpg" ></center>'
         'you paid 20 rubles for a blow to the dynamometer.'
             act 'hit':
             cla
			 set minut = minut + 30
			 set money = money - 20
			 set stKo = stren*20/100
			 set damage = RAND(stren-stKo,stren+stKo)
			 if stren < 30:set stren = stren + 1
			 if stren >= 30:set stren = stren + RAND (0,1)
			 'Do_You, that there are forces struck on the dynamometer and the screen lit figure <<damage>>'
			 if damage > maxdamage:set maxdamage = damage&'Hmm, new record.'
			 act 'move_away':gt'park','luna'
			 end
         end
     end
     
     if hour >= 9 and hour <= 20 and money >= 50:
         act 'Ride on the carousel 50 RUB':
         cla
         *clr
         '<center><img src="pic/karusel.jpg" ></center>'
         'you paid 50 rubles and sat in the carousel.'
		 set minut = minut + 30
		 set money = money - 50
		 if will < 30:set will = will + 1
		 if will >= 30:set will = will + RAND (0,1)
		 set willpower = willpower + 10
		 set manna = manna + 10
		 'You have a great ride, already dazzled.'
		 act 'move_away':gt'park','luna'
         end
     end
     
     
     if hour >= 9 and hour <= 20:
         act 'The one-armed bandit':gt'park','avtomat'
     end
   
act 'Get_Away':gt'park','start'
end

if $ARGS[0]='avtomat':
cla
*clr
clr
gs'stat'
gs'time'
'<center><img src="pic/avtomat.jpg" ></center>'
'Rules of the game are very simple, toss a coin 5 rubles and pull lever. jackpot 1000.'
if money >= 5 and hour <= 20:
	 act 'throw 5 rubles and pull the lever':gt'park','avtomat2'
	 end
act 'Move away from the machine':gt'park','luna'
end

if $ARGS[0]='avtomat2':
cla
*clr
clr
gs'stat'
gs'time'
set minut = minut + 5
set money = money - 5
set avtrand = RAND (0,100)
if avtrand = 100:
     set money = money + 1000
     'jackpot!!! you won 1 thousand rubles.'
     end
if avtrand < 100 and avtrand >= 95:
     set money = money + 100
     'you won 100 rubles.'
     end
if avtrand < 95 and avtrand >= 85:
     set money = money + 10
     'you won 10 rubles.'
     end
if avtrand < 85 and avtrand >= 75:
     set money = money + 5
     'you won 5 rubles.'
     end
if avtrand < 75:
     'You have not won anything.'
     end
act 'further':gt'park','avtomat'
end

if $ARGS[0]='whore':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Road near the park</font></B></center>'
'<center><img src="pic/park1.jpg" ></center>'
clr
gs'stat'
gs'time'
if hour >= 16 and hour <= 23:
	 'Walk along the roadside <a href="exec:GT ''prostitute'',''start''">Prostitutes</a>, Sometimes they drive up the car and take them.'
	 else
	 'Cars passing on the road past the park and there is not seen nothing interesting.'
	 end 
act 'Go to the park':gt'park','start'
end

if $ARGS[0]='prost':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>prostitute</font></B></center>'
'<center><img src="pic/park2.jpg" ></center>'
clr
gs'stat'
gs'time'
if whoreQW = 2:
	 'Prostitutes look at you with curiosity.'
	 end
if whoreQW = 1:
	 'Prostitutes look at you with interest.'
	 act 'talk':
		 cla
		 set whoreQW = 2
		 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are all free, do not work on anyone, but because of the many problems. Stella with her вЂ‹вЂ‹friends is svimi beat us and rob, sometimes come petty criminals and rob us of money. If you want to work here, you have to pay and Stella and bandyukov. You certainly cool, you can try to lay siege to Stella and her bridesmaids, but the bandits do not advise to contact. And more, you do not bite on customers, if you nebudesh dressed like a whore, you can buy some clothes in a sex shop."'
		 act 'move_away':gt'park','prost'
		 end
	 end
if whoreQW = 0:
	'hey, you are not one of our, brought down to our terms, and that the teeth do not gather.'
	act 'Fuck you!':
		 cla
		 set minut = minut + 15
		 set $nameV = 'stoned prostitute'
		 !stats
		 set strenV = 20
		 set speedV = 30
		 set agilV = 30
		 set reactV = 30
		 set vitalV = 50
		 set intelV = 10
		 set willV = 10
		 !skills
		 set magikV = 10
		 set boxingV = 10
		 set shootV = 10
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*10 + magikV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 0
		 set prostitutFight = 1
		 if spellavtoklon = 1:set klon = 3
		 if spellbefshild = 1:set defence = 500
		 gt'fight','start'
		 end
	 end
if whoreQW > 1 and hook = 1: 
	 act 'Search client 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set whrand = RAND (0,100)
		 if whrand <= 5:
			 'To you drove a black jeep, opened the window and leaned out healthy impudent face. "Hey whore, it`s time to pay tribute. Come here Shtukar and Wali further work."'
			 if money >= 1000:
				 act 'give money':
					 cla
					 set money = money - 1000
					 'You gave money big man in the jeep. He put them in his pocket and left.'
					 act 'move_away':gt'park','prost'
					 end
				 end
			 act 'Fuck you!':
				 cla
				 set minut = minut + 15
				 set $nameV = 'bandit'
				 !stats
				 set strenV = 200
				 set speedV = 30
				 set agilV = 20
				 set reactV = 20
				 set vitalV = 150
				 set intelV = 10
				 set willV = 10
				 !skills
				 set magikV = 10
				 set boxingV = 10
				 set shootV = 10
				 !parameters
				 set healthV = vitalV*10 + strenV*5
				 set mannaV = intelV*10 + magikV*10
				 set willpowerV = willV*10
				 set BonusAtakV = 0
				 set BonusDefV = 0
				 !Programme of Action
				 set program = 0
				 set prostitutFight = 2
				 if spellavtoklon = 1:set klon = 3
				 if spellbefshild = 1:set defence = 500
				 gt'fight','start'
				 end
			 end 
		 if whrand > 5 and whrand <= 60:
			 'To you a car drove up and a man sitting behind the wheel asked how much it would cost a suction. You called a standard fee of 500 rubles. He agreed and opened the door for you to Passenger.'
			 '<center><img src="picV/car.jpg" ></center>'
			 set minut = minut + 15
			 set bj = bj + 1
			 set guy = guy + 1
			 set money = money + 500
			 set throat = throat + 1
			 if prezik > 0:
				 'You got a condom and put it in your mouth, Then he leaned over the pants and put his client condom on the penis with her mouth.'
				 end
			 'You are a member of the client her lips and began to suck it, caress the tongue and try to take it as deep as possible.'
			 if prezik = 0:
				 set swallow = swallow + 1
				 set cumlip = cumlip + 1
				 'The client started to cum in your mouth, you continued to suck and swallow his hot, tart sperm.'
				 set gerprand = RAND (0,100)
				 if gerprand > 96:
					 if VeneraOnce = 0:set VeneraOnce = 1
					 set Venera = Venera + 1
					 end
				 end
			 if prezik > 0:
				 set prezik = prezik - 1
				 'Client finished in a condom.'
				 end
			 'After the client terminated by you immediately dropped out of the car.'
			 act 'Go to the panel':gt'park','prost'
			 end
		 if whrand > 60 and whrand <= 90:
			 set minut = minut + 15
			 'You were walking down the sidewalk showing their charms completely in vain, no you are not interested in.'
			 act 'Go to the panel':gt'park','prost'
			 end
		 if whrand > 90:
			 'To you came prostitute. "Slysh, slut, If you do not want problems, you have to pay Stella. Come here pyatihatnik and Wali further work."'
			 if money >= 500:
				 act 'give money':
					 cla
					 set money = money - 500
					 'You gave money to a prostitute, She turned and walked away.'
					 act 'move_away':gt'park','prost'
					 end
				 end
			 act 'Fuck you!':
				 cla
				 set minut = minut + 15
				 set $nameV = 'prostitute'
				 !stats
				 set strenV = 50
				 set speedV = 50
				 set agilV = 40
				 set reactV = 30
				 set vitalV = 60
				 set intelV = 10
				 set willV = 10
				 !skills
				 set magikV = 10
				 set boxingV = 10
				 set shootV = 10
				 !parameters
				 set healthV = vitalV*10 + strenV*5
				 set mannaV = intelV*10 + magikV*10
				 set willpowerV = willV*10
				 set BonusAtakV = 0
				 set BonusDefV = 0
				 !Programme of Action
				 set program = 0
				 set prostitutFight = 3
				 if spellavtoklon = 1:set klon = 3
				 if spellbefshild = 1:set defence = 500
				 gt'fight','start'
				 end
			 end 
		 end
	 end
act 'move_away':gt'park','start'
end

if $ARGS[0]='rape1':
cla
*clr
'<center><img src="img/spaln/rape.jpg"></center>'
'You hit on the head, You woke up in the bushes without panties, rapist and his bored dildo your vagina.'
set rape+=1
set sex+=1
set SUB+=3
set money=0
act 'resist':
	 cla
	 'You tried to push the rapist, but he only pressed harder you to my, and continued to fuck, until you cried and tried to escape , taking all of your money.'
	 set cumpussy+=1
	 act 'Get_Away':gt'park','start'
	 end
act 'Try to feel relaxed and have fun':
	 cla
	 *clr
	 '<center><img src="img/spaln/rapean.jpg"></center>'
	 'Seeing that you do not even try to resist, rapist set you cancer and put his penis in your ass. You cried in pain, but he held your mouth and continued to rape your ass.'
	 set anal+=1
	 set SUB+=5
	 act 'further':
		 cla
		 *clr
		 set bj+=1
		 set cumlip+=1
		 set cumface+=1
		 set SUB+=5
		 '<center><img src="img/spaln/cum.jpg"></center>'
		 'He put you on your knees and began to fuck in the mouth until I came, "swallow slut" he hissed, fearing the consequences you swallow sperm. Grinning , taking all of your money.'
		 act 'Get_Away':gt'park','start'
		 end
	 end
end



--- park ---------------------------------

# parkdin
$parkrandivdin={
if hour>7 and hour<21:
!day
	if parkrand<10 and parkrand>0:
    if parkrand = 1:dynamic $parkivent1
    if parkrand = 2:dynamic $parkivent2
    if parkrand = 3:dynamic $parkivent3
    if parkrand = 4:dynamic $parkivent4
    if parkrand = 5:dynamic $parkivent5
    if parkrand = 6:dynamic $parkivent6
    if parkrand = 7:dynamic $parkivent7
    if parkrand = 8:dynamic $parkivent8
    if parkrand = 9:dynamic $parkivent9
	else
    dynamic $parkemptyevent
	end
else
!night
    if parkrand >= 15:
    dynamic $parkivent1
	else
    dynamic $parkemptyevent	
	end
end
}
--- parkdin ---------------------------------

# parkivent
$parkemptyevent={
	set manna = manna + 10
	set willpower = willpower + 10
	gs'stat'
	'You leisurely stroll in the park. Breathing fresh air, reflecting on the vicissitudes of life.'
	act 'complete the walk':gt'park','start'
	exit
}

$parkivent1={ 

gs'stat'
if hour>7 and hour<21:
	cls
	 'In the shade of a tree . When you are caught up with him  "slut!"'
	 act 'silently leave':sub+=1&gt'park','start'
	 act 'Close eblo, goatskins.':
     cla
     dom+=1
     'You are advised to close the idiot eblo. To your surprise poludurochny flustered and left you a fast pace.'
     act 'Get_Away':gt'park','start'
     end
	 exit
	 else   
	 'From the shade of a tree guy came, He came up to you and through clenched teeth "slut!", you dragged into the bushes.'
	 act 'fight':
    cls
     cla
     set $nameV = 'rapist'
     !stats
     set strenV = 100
     set speedV = 50
     set agilV = 40
     set reactV = 40
     set vitalV = 50
     set intelV = 10
     set willV = 10
     !skills
     set magikV = 100
     set boxingV = 50
     set shootV = 100
     !parameters
     set healthV = vitalV*10 + strenV*5
     set mannaV = intelV*10 + magikV*10
     set willpowerV = willV*10
     set BonusAtakV = 0
     set BonusDefV = 0
     !Programme of Action
     set program = 0
     set RapistFight = 1
     if spellavtoklon = 1:set klon = 3
     if spellbefshild = 1:set defence = 500
     gt'fight','start'
     end
	act 'run':
     if beg<10:set peshimraperand=rand(0,11)
     if beg>=10 and beg<30:set peshimraperand=rand(0,20)
     if beg>=30 and beg<50:set peshimraperand=rand(0,30)
     if beg>=50 and beg<70:set peshimraperand=rand(0,40)
     if beg>=70 and beg<90:set peshimraperand=rand(0,50)
     if beg>=90 and beg<110:set peshimraperand=rand(0,60)
     if beg>=110 and beg<130:set peshimraperand=rand(0,70)
     if beg>=130 and beg<150:set peshimraperand=rand(0,80)
     if beg>=150 and beg<170:set peshimraperand=rand(0,90)
     if beg>=170:set peshimraperand=rand(11,100)
     if peshimraperand<11:
    	 cla
    	 'You tried to run away but the guy you caught'
    	 act 'further':gt 'park','rape1'
    	 end
     if peshimraperand>10:
    	 cla
    	 set minut+=60
    	 'You are rushing headlong in the park, jumping over the bench and forced his way through the bushes. Finally'
    	 act 'further':
         cls
         set locbegrand=rand(0,4)
         if locbegrand=0:gt'park','start'
         if locbegrand=1:gt'street'
         if locbegrand=2:gt'down'
         if locbegrand=3:gt 'nord'
         if locbegrand=4:gt 'lake','start'
         end
    	 end
     end
	exit
	end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    2
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$parkivent2={ 
gs'stat'  
if vnesh >= 30 and parkday = day:
cls
'Under the tree squatting to drink beer from the bottle is the same guy who fucked you in the bush for two thousand. He looked at you and learn oskalbilsya.'
act 'Get_Away':gt'park','start'
exit
end
if vnesh >= 30 and parkday ! day and parkslut>0:
cls
'From the trees came a guy, he came to you and asked "Hey Shalashovka, you do not mind undermining?"'
act 'Get_Away':gt'park','start'
	 act 'Do not mind.':
	 cla
	 'The guy smiled, I just fucked you, not as exciting as the first time. give pyatihatnik.'
	 act 'Get_Away':gt'park','start'
     act 'Let`S_Go':
     cla
     *clr
     dynamic $venerasiak
     set money = money + 500
     set sex = sex + 1
     set parkday = day
     if parkslut=0:parkslut=1&set guy = guy + 1
     set vagina = vagina + 1
     set picrand = RAND (0,5)
     if picrand = 0:'<center><img src="prost/dogging1.jpg" ></center>'
     if picrand = 1:'<center><img src="prost/dogging2.jpg" ></center>'
     if picrand = 2:'<center><img src="prost/dogging3.jpg" ></center>'
     if picrand = 3:'<center><img src="prost/dogging4.jpg" ></center>'
     if picrand = 4:'<center><img src="prost/dogging5.jpg" ></center>'
     if picrand = 5:'<center><img src="prost/dogging6.jpg" ></center>'
    	 if prezik > 0:
    	 set protect = 1
    	 set prezik = prezik - 1
    	 'You gave the guy a condom and he clothed him in silence.'
    	 end
     'Man steers you to a secluded skaymeki in the far corner of the park and puts cancer, you feel his hard cock enters your vagina.'
    	 if horny >= 90:
    	 set horny = 0
    	 set manna = manna + 15
    	 set willpower = willpower + 15
    	 set orgasm = orgasm + 1
    	 'Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
    	 end
    	 if protect ! 1:
    	 !unprotected sex
    	 set finrand = RAND (0,1)
         if finrand = 0:
         !inside
         set cumpussy = cumpussy + 1
         'The guy groaned and you feel like a jet of sperm hit you inside your body.'
        	 if tabletki <= 0 and mesec <= 0:
        	 gs'preg'
        	 set manna = manna - 15
        	 set willpower = willpower - 15
        	 'Damn, because after all, you thought with horror.'
        	 end 
         end
         if finrand = 1:
         !out
         set cumass = cumass + 1
         '<<$nameV>> groaned and removing a member of you, cumshot on your ass.'
         end 
    	 end
    	 if protect > 0:
    	 set protect = 0
    	 'The guy cums in a condom. Pulls out a member of you and took off the condom throws him to the ground, after pulls his pants and goes.'
    	 end
     act 'Get_Away':gt'park','start'
     end
     
     end
exit
end
if vnesh >= 30 and parkday ! day and parkslut=0:
cls
'From the trees came a guy, he came to you and asked "Earn two thousand?"'

	 act 'How to make money?':
	 cla
	 'You asked how to make. The guy smiled "pussy, Let us go into the bushes, cater for me and get two pieces."'
	     act 'Beat_It, douchebag':gt'park','start'
	 
     act 'Let`S_Go':
     cla
     *clr
     dynamic $venerasiak
     set money = money + 2000
     set sex = sex + 1
     set parkday = day
     if parkslut=0:parkslut=1&set guy = guy + 1
     set vagina = vagina + 1
     set picrand = RAND (0,5)
     if picrand = 0:'<center><img src="prost/dogging1.jpg" ></center>'
     if picrand = 1:'<center><img src="prost/dogging2.jpg" ></center>'
     if picrand = 2:'<center><img src="prost/dogging3.jpg" ></center>'
     if picrand = 3:'<center><img src="prost/dogging4.jpg" ></center>'
     if picrand = 4:'<center><img src="prost/dogging5.jpg" ></center>'
     if picrand = 5:'<center><img src="prost/dogging6.jpg" ></center>'
    	 if prezik > 0:
    	 set protect = 1
    	 set prezik = prezik - 1
    	 'You gave the guy a condom and he clothed him in silence.'
    	 end
     'Man steers you to a secluded skaymeki in the far corner of the park and puts cancer, you feel his hard cock enters your vagina.'
    	 if horny >= 90:
    	 set horny = 0
    	 set manna = manna + 15
    	 set willpower = willpower + 15
    	 set orgasm = orgasm + 1
    	 'Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
    	 end
    	 if protect ! 1:
    	 !unprotected sex
    	 set finrand = RAND (0,1)
         if finrand = 0:
         !inside
         set cumpussy = cumpussy + 1
         'The guy groaned and you feel like a jet of sperm hit you inside your body.'
        	 if tabletki <= 0 and mesec <= 0:
        	 gs'preg'
        	 set manna = manna - 15
        	 set willpower = willpower - 15
        	 'Damn, because after all, you thought with horror.'
        	 end 
         end
         if finrand = 1:
         !out
         set cumass = cumass + 1
         '<<$nameV>> groaned and removing a member of you, cumshot on your ass.'
         end 
    	 end
    	 if protect > 0:
    	 set protect = 0
    	 'The guy cums in a condom. Pulls out a member of you and took off the condom throws him to the ground, after pulls his pants and goes.'
    	 end
     act 'Get_Away':gt'park','start'
     end
     
     end
     
     act 'Get_Away':gt'park','start'
exit
else
	dynamic $parkemptyevent	
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    3
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$parkivent3={ 
cls
gs'stat' 
'Taking a walk through the park you hear the groans in the bushes'
act'pass by':gt 'park','start'
     act'see':
	 cla
	 *clr
	 horny+=10
	 gs'stat' 
	 '<center><img src="img/spaln/shfoto.jpg"></center>'
	 'You go into the park and see how three guys fuck a Woman, and this is clearly pleased.'
	 act'Get_Away':gt 'park','start'
	     if horny>=50:
	         act'peep':
	         cla
	         horny+=10
	         gs'stat'
	         'Hiding behind a tree you become a spy like three guys Tarabanov Shalashovka.'
	             if horny>=75:
	             'This spectacle you very excited and your pussy became otklikatsya pleasant bliss.'
	             else
	             'Certainly exciting spectacle, you decided to myself, but it would be better to leave here.'
	             end 
	             act'Get_Away':gt 'park','start'
	         end
	     end
	     if minifoto=1 or zenit=1:
	     
			 act 'photograph':
			 cla
			 if minifoto=1:set fotoparkrand=rand(0,10)
			 if minifoto=0:set fotoparkrand=rand(0,1)
				 if fotoparkrand>0:
				 set minut+=30
				 set shantfoto+=1
				 'You are hiding behind the tree and start to shoot an event, when it ends . Now you have a photo, you only find out who this girl, well that now all available online in a social network "In the ass".'
				 act'Back in the park':gt 'park','start'
				 end
			 
				 if fotoparkrand=0:
			 'You are hiding behind the tree and start to shoot an event, fascinated by shooting you do not is remarkable as one of the men notice you, and moving away from the rest slowly traverses the clearing coming behind you.
			 "Well" you hear a voice behind him'
					 act 'try to talk':
					 'You tried to talk to you but no one listened to, camera broke and you put cancer, girl stood aside and watched.'
						 if minifoto=1:
						 set minifoto=0
						 else
						 set zenit=0
						 end
					 set rape+=1
					 act 'further':gt 'paysex','start'
					 end
				 
				 act 'run':
				 if beg<10:set peshimraperand=rand(0,11)
				 if beg>=10 and beg<30:set peshimraperand=rand(0,20)
				 if beg>=30 and beg<50:set peshimraperand=rand(0,30)
				 if beg>=50 and beg<70:set peshimraperand=rand(0,40)
				 if beg>=70 and beg<90:set peshimraperand=rand(0,50)
				 if beg>=90 and beg<110:set peshimraperand=rand(0,60)
				 if beg>=110 and beg<130:set peshimraperand=rand(0,70)
				 if beg>=130 and beg<150:set peshimraperand=rand(0,80)
				 if beg>=150 and beg<170:set peshimraperand=rand(0,90)
				 if beg>=170:set peshimraperand=rand(0,100)
					 if peshimraperand<11:
					 cla
					 'You tried to run away but you caught, smashed the camera and you put cancer.'
						 if minifoto=1:
						 set minifoto=0
						 else
						 set zenit=0
						 end
					 set rape+=1
					 act 'further':gt 'paysex','start'
					 end
				 
					 if peshimraperand>10:
					 'You are rushing headlong in the park, jumping over the bench and forced his way through the bushes. Finally'
					 set locbegrand=rand(0,4)
						 if locbegrand=0:
						 act 'further':gt'park','start'
						 end
						 if locbegrand=1:
						 act 'further':gt'street'
						 end
						 if locbegrand=2:
						 act 'further':gt'down'
						 end
						 if locbegrand=3:
						 act 'further':gt 'nord'
						 end
						 if locbegrand=4:
						 act 'further':gt 'lake','start'
						 end
					 end
				 end
			 end
    	 end
     act'Back in the park':gt 'park','start'
     end
exit
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    4
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent4={ 

gs'stat' 
if parkblackmail = 0:
	cls	
	'In a clearing with a barbecue walking youth, suited to you drunk guy and pridlagaet you join a walking company.'
    act 'And refuse to go home':gt 'park','start'
	act 'agree':
    cla
    'You were drinking with the guys and girls and having fun. One of the guys came up behind you, when you were at the table and sliced вЂ‹вЂ‹onions, He put his arm around you for a thin waist and pressed to your plump ass ... God ... He was just a huge!!! You really even thought, that he has made to stick your ass sausage, but it was so hot. it_was_dark, you drank quickly and tipsy.'
    'One of the guys grabbed you sharply for breast and pressed it to the nearest tree. He clung to you with his big appendage, his cock rested against you in the tummy and you moaned softly, and he squeezed your breasts and said roughly: - Artist, slut?'
    act 'Leave_me_alone':
    	cla
    	'You told him that he had fallen behind you. The guy walked away from you to the side and you could move away from the tree.'
    	 act 'Get_Away':
        cla
        *clr
        'You decide to leave, but you quickly caught up with the guy, he took you for the ass, turned to him and ordered: - on your knees, quickly, bitch!'
    	 
        act 'Send it to dick and go home':gt 'street'
         
        act 'on your knees':
        	cla
        	Set hour = hour + 2
        	set rape=rape+1
        	set gang=gang+1
        	minut+=120
        	gs'stat'
        	'<center><img src="picBJ/parkBJ.jpg" ></center>'
        	'drunk, you quickly accomplish the, what he said. He dropped his pants to his knees and abruptly thrust you in your big mouth tight standing dick. Forgetting everything you have been sucking like a hungry slut. juicy, great, fragrant, hot cock. You just mad. The guy has collected your hair in a bun at the nape, that they do not interfere with sucking. Then with FER took you from your delicious penis and put on a member that appears out of the darkness the other guy.'
        	'He is so big and juicy, that you almost faint from happiness did not fall. You guys gathered around and called names, insulting you for, you suck at strangers. And you sucked them one by one, Hold the handle of two thick cock and swallows all that suck. They lowered the front so your topic, that boobs spilled out. One of the guys slapped his cock your chest and it`s crazy turns you on.'
        	'slut, fucking, suck better! - Turned to me one of the guys'
        	act 'guys quieter... hear':
            cla
            '- guys quieter.. hear - you tried to warn them, choking salivating.'
            '- so_Much, whore! Mouth do not reveal, you are here to suck rather than to teach us, i_get_it, bitch?!'
            act 'Ok, boys.':
            	cla
            	*clr
            	minut+=120
            	gs'stat'
            	'Without interrupting member, you said - Ok, boys.'
            	'You with drunken thought why they are so loud you speak? But soon you see eyed, that the two girls from the company you remove the camera'
            	'The guy with the roar abundantly pulled you on the chest. You were all in the semen. But you madly wanted to please the other guy. You wrapped around his ass and began to sit down with the force of his neck on a huge giant trunk, forget about the cameras and prying. You turned into a hungry whore, who tried to swallow a large deep glossy head the other guy.'
             'The second guy took your hair as the last whore and, calling huesoska, roughly finished your face. He literally washed you with its heroic sperm.'
             'Then they forced you to go back to the brazier not wash sperm. say, that you were ashamed to say nothing - you have finished six times while sucking and twice after you obkonchalas'
            	if parkblackmail = 0:Set guy = guy + 2&Set parkblackmail = 1&Set parkday = day
            	Set sex = sex + 1
            	Set bj = bj + 2
            	Set horny = 0
            	Set cumface = cumface + 2
            	act 'go home':gt'park','start'
             end
        	 end
         end
    	 end
     end
	end
	exit
else
	dynamic $parkemptyevent	
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    5
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent5={ 

gs'stat' 
!'You leisurely stroll in the park. Breathing fresh air, reflecting on the vicissitudes of life.'
act 'complete the walk':gt'park','start'
if yaq = 0 and student > 0:
	cls	 
	cla
	 *clr
	 'To you approached a man. introduced Yaroslav. He offers to earn.'
	 act 'Get_Away':gt'park','start'
	 act 'hear_out':
	 cla
	 'In my house a little dirty - said Yaroslav. I would like to find a girl who would have removed from my apartment, wash the dishes there is dust or wipe. By_The_Way, what is your name? - asked the man. Sveta! - I said. very nice! - said Yaroslav.'
	 act 'Opt_Out':gt'park','start'
     act 'agree':
     cla
     'Of_Course. Scholarships in my institute did not give, on-that I would not hurt earnings. - You said.'
     'That`s good. - You said Yaroslav. Come evening at this address, Get_out, and receive 2000 RUB.'
    	 act 'record address':
    	 cla
    	 set yaq = yaq + 1
    	 'I wrote your address, I shall come when I`m free. - I said'
    	 'Of_Course. Can not rush, I do not insist. - said Yaroslav'
    	 act 'say_goodbye':gt'park','start'
    	 end
     end
	 end
 exit
else
	dynamic $parkemptyevent	
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    6
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent6={ 

gs'stat' 
if ublyudokparkivent = 0:
cls
'I was walking in the park, when she saw a- then a man among the trees. He waved his hand to me.'
act 'go past': gt 'park','start'
act 'come_Up':
	 set ublyudokparkivent = 1
	 cla
	 *clr
	 'I went up to him. He showed me where- then, I turned, then felt a blow to the head.'
     act 'further':
     cla 
     *clr
     '<center><img src="picizpar/1.jpg" ></center>'
     'I woke up and saw in front of a huge mozhchinu. - Well ka do what I tell you, stinking whore, otherwise I shove you this knife in the ribs and listen to how you will whine!... That`s so hit. Mom told me, do not go far into the forest, but I did not listen. Suddenly he heard the crunch of twigs, I turned around but it was too late. I grabbed a healthy lad and pressed it to what that design - not rig, not the scaffolding. And now I was standing in front of him completely defenseless, and he demanded to undress.'
    	 act 'remove clothing':
    	 cla
    	 *clr
    	 '<center><img src="picizpar/2.jpg" ></center>'
    	 'He looked furious and I knew immediately, that he can fulfill his threat. I pulled off his T-shirt, from cold and fear, skukozhilas my nipples were very hard. Then he made me take off my shorts and panties.'
         act '...':
         cla
         *clr
         '<center><img src="picizpar/3.jpg" ></center>'
         '- yeah, that`s so good, brain. - his voice was loud men, with marked hoarseness. - Ass like that, and pussiesenca just shine. This pig grabbed his calloused hand my ass, stretching the buttocks and opening a crack pisechki.'
        	 act '...':
        	 cla
        	 *clr
        	 '<center><img src="picizpar/4.jpg" ></center>'
        	 '- Let ka bitch, Massage your hollow, that it was humid and warm. - rude man said and persuasiveness, gently poked me in the leg with a knife. I obediently began to stroke my pussy. - What a snot, thrust a couple of fingers! - demanded bastard and I had to shove their pollen into the fold. He undid his belt and began to masturbate, krehtya and moaning. To my horror .'
             act 'masturbate':
             cla
             *clr
             '<center><img src="picizpar/5.jpg" ></center>'
             '- Come over here darling, my dickhead wants you to it sucked. The man grabbed me by the hair and threw it on the ground in front of him. My knees immediately stripped and began pinching... - Opens his mouth slut! - as soon as I open my mouth, as he grabbed my head, became a hammer in my throat a fat cock.'
            	 act 'suck':
            	 cla
            	 *clr
            	 '<center><img src="picizpar/6.jpg" ></center>'
            	 'His dick smelled dirt and sweat and was slightly salty. I could not afford to admit, I like the taste, but it was so hard and thick, that out of my vagina spontaneously flowed grease.'
                 act '...':
                 cla
                 *clr
                 '<center><img src="picizpar/7.jpg" ></center>'
                 'The man did not have to make me, after a few minutes I became very deep swallow his head and licking the barrel of the most eggs.'
                	 act '...':
                	 cla
                	 *clr
                	 '<center><img src="picizpar/8.jpg" ></center>'
                	 '- Well ka get up my child, suction nice, but your hot hole is definitely better. He set me up and threw into my bosom just three fingers. It was very painful, my pussy is not yet stretched and I screamed.'
                     act 'masturbate':
                     cla
                     *clr
                     '<center><img src="picizpar/9.jpg" ></center>'
                     'Then the bastard grabbed me by the throat and forced to masturbate the most. I tried gently to stretch his hole, and meanwhile he nadrachival its eldu, and then took a rope and tied me.'
                    	 act '...':
                    	 cla
                    	 *clr
                    	 '<center><img src="picizpar/10.jpg" ></center>'
                    	 'When his fat cock, I slowly began to go I started to twitch and kicking, but more for the mind. Despite the insane fear, I was very excited and wanted to even, that he fuck me.'
                         act '...':
                         cla
                         *clr
                         '<center><img src="picizpar/11.jpg" ></center>'
                         'Fat cock abruptly entered into me, pulling up to the uterus. It hurt... or not, it was nice, not know, I can not say from what I shouted loudly, when he pulled me into this fucking forest. He began to run faster and sharper, his cock swelled and I do not remember anything from the mad buzz. He abruptly shoved his dick, pressed me to her pubis and hot jet of sperm hit in my uterus, filling the vagina with warm, slippery liquid.'
                        	 act 'Savoury':
                        	 cla
                        	 *clr
                        	 '<center><img src="picizpar/12.jpg" ></center>'
                        	 '- It`S_Great... - only , but I did not care for it, Now I did not care for all, I hung and blissfully kayfovat, trying to squeeze numb legs. I did not even feel, it stuck in my pussy my fingers.'
                             act 'lick your fingers':
                             set manna = manna - 15
                             set cumpussy = cumpussy + 1
                             cla
                             *clr
                             '<center><img src="picizpar/13.jpg" ></center>'
                             'But I felt the taste of his sperm, when the fingers were in my mouth, Only then I realized, for the horror that had just occurred, he finished with me.'
                            	 act 'iti':
                            	 cla
                            	 *clr
                            	 '<center><img src="picizpar/14.jpg" ></center>'
                            	 '- Send ka chips, - pulling his pants and putting his hat, said the peasant. - You`re a little at me to stay. In my mouth gag and proved he untied me and pulled on the rope. Several times I fell, and he lifted me in spurts and again we were on the rocks and sharp branches, it is good that he allowed me to wear shoes.'
                                 act '...':
                                 cla
                                 *clr
                                 '<center><img src="picizpar/15.jpg" ></center>'
                                 '- That`s my little nest, - said with a smile bastard, pointing to a strong two-storey house with a high fence, enclosed by barbed wire.'
                                	 act 'lick':
                                	 cla
                                	 *clr
                                	 '<center><img src="picizpar/16.jpg" ></center>'
                                	 'This pig is not even took me to the house, but simply abandoning his clothes and climbed on me. He again began to tear up my swollen pussy, but soon threw my mouth his hand through his. - Let ka, lick them as follows, Believe you useful.'
                                     act '...':
                                     cla
                                     *clr
                                     '<center><img src="picizpar/17.jpg" ></center>'
                                     'I began to lick his fingers, while saliva ran down his wrist, and then, He pulled his cock and to my horror, began to shove his paws on my ass. When his fingers pushed my anus and penetrated into the rectum, I started kicking and twitching.'
                                    	 act 'cry':
                                    	 cla
                                    	 *clr
                                    	 '<center><img src="picizpar/18.jpg" ></center>'
                                    	 'that bastard, grabbed the knife and began to threaten me. Tears gushed from my eyes, but I promised, that I will not twitch.'
                                         act 'Chill_Out':
                                         cla
                                         *clr
                                         '<center><img src="picizpar/19.jpg" ></center>'
                                         'When his cock was poking my compressed sfinker, I tried to relax, that was not so painful. Thick head barely poked into my anal hole, forcing me to shout loudly in pain, but later it became easier... was even nice. Apparently member abuts the external wall of the vagina, were quite different feelings, but they were good, very good.'
                                        	 act 'shout_Out':
                                        	 cla
                                        	 *clr
                                        	 '<center><img src="picizpar/20.jpg" ></center>'
                                        	 'My screams ceased to be a cry of pain, unwittingly, I began to scream from the buzz and excitement, I wanted again, to be a member of the nacsiltsal my pink slit.'
                                             act 'sit on top':
                                             cla
                                             *clr
                                             '<center><img src="picizpar/21.jpg" ></center>'
                                             'When bastard put me on top, I myself began to move her hips to meet his powerful dick, wishing only that, that he did not stop.'
                                            	 act 'Jump on a limb':
                                            	 cla
                                            	 *clr
                                            	 '<center><img src="picizpar/22.jpg" ></center>'
                                            	 'I started jumping on his penis, squealing with pleasure, forgetting about everything, but a sense of solid, hot cock in her bosom.'
                                                 act 'correct':
                                                 cla
                                                 *clr
                                                 '<center><img src="picizpar/23.jpg" ></center>'
                                                 'Leaping from his clubs , but the guy deftly directed his eldu in my ass and she easily slipped into my anus.'
                                                	 act '...':
                                                	 cla
                                                	 set orgasm = orgasm + 1
                                                	 *clr
                                                	 '<center><img src="picizpar/24.jpg" ></center>'
                                                	 'I jump on it, until he finally realized, Valya unconscious, and my body trembling in orgasm. Eyes shed tears, like freeing, that is, kopilos that all this time inside and I felt incredibly well.'
                                                     act 'suck':
                                                     cla
                                                     *clr
                                                     '<center><img src="picizpar/25.jpg" ></center>'
                                                     'I am happy to become a member of the men suck, feeling the salty taste of his head, mixed with a touch of my vagina and rectum.'
                                                    	 act 'substitute the ass':
                                                    	 cla
                                                    	 *clr
                                                    	 '<center><img src="picizpar/26.jpg" ></center>'
                                                    	 'Then I like a dog lick his feet and turned to him ass, wishing, that he fucked me again.'
                                                         act '...':
                                                         set cumbelly = cumbelly + 1
                                                         set cumass = cumass + 1
                                                         set cumlip = cumlip + 1
                                                         set cumface = cumface + 1
                                                         cla
                                                         *clr
                                                         '<center><img src="picizpar/27.jpg" ></center>'
                                                         'But the man began to masturbate and very soon again I felt his hot cum, only this time the outside. I really did not want to, so he let me go, do not like, I lost to him a nice dick and so I eagerly began to lick the cum from his cock, has not yet had time to fall, wanting to pick it up again.'
                                                         'But then again.'
                                                        	 act 'wake':
                                                        	 cla
                                                        	 *clr
                                                        	 'I woke up where-then at the lake. I was naked and smeared all in the semen, but my clothes lay beside me. I mentally thanked for this sex abuser, dressed and went. '
                                                        	 act 'Get_Away':gt'lake','start'
                                                        	 end
                                                         end
                                                    	 end
                                                     end
                                                	 end
                                                 end
                                            	 end
                                             end
                                        	end
                                         end
                                    	 end
                                     end
                                	 end
                                 end
                            	 end
                             end
                        	 end
                         end
                    	 end
                     end
                	 end
                 end
            	 end
             end
        	 end
         end
    	 end
     end
	 end
	exit
else
	dynamic $parkemptyevent	
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    7
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent7={
gs'stat' 
if pusher = 0:
	'Young guy wearing a hoodie comes to you and tells you a conspiratorial voice "girl. I`ve got a dose of pale lady there, want to try? for free. The beautiful thing, instantly cleans the brain, mood is, just ATAS, sensations in the body such, as if you have never been healthier."'
	act 'Get_Away':gt'park','start'
    act 'Yes_I_Am':
    cla
    set pusher = 1
    set health = vital*10 + stren*5
    set willpower = intel*5 + will*5
    set manna = (intel*magik) + magik*100 + vital*10 + rikudo
    set horny = 100
    set nark = nark + 10
    set narkday = day
    'You`re staying with interest, never tried dope, but then once with nothing will? A guy came up to you and paved a little white powder, You sucked his nose and the world blossomed unexpected colors.'
     'The guy looked at you and said "If you like it, come again, total dose 2000 rubles."'
     act 'Get_Away':gt'park','start'
	exit	
	end
else
	dynamic $parkemptyevent	
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    8
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent8={
!'You leisurely stroll in the park. Breathing fresh air, reflecting on the vicissitudes of life.'
!act 'complete the walk':gt'park','start'
gs'stat' 
set vnerand = RAND (0,300)
if bfa < 1 and vnerand <= vnesh:
cla
*clr
 gs'boy'
	 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
	 'The guy introduced himself as <<$boy>> and asked for your telefonchik.'
	 act 'Tell him your phone':
	 cla
	 gs'boyfrend','start'
	 set stopboy = 0
	 '<<$boyA>> record your phone and left.'
	 act 'complete the walk':gt'park','start'
	 end
	 act 'Get_Away':gt'park','start'
 exit
else
	dynamic $parkemptyevent	
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    9
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent9={ 

gs'stat' 
 if bfa >= 1:
	cls
	'You walk through the park and you notice how the meeting is your guy <<$boyA>>'
	act 'Get_Away':bfa-=1&gt'park','start'
	if boyonceA = 0 or SUB = 0 and DOM = 0:
    act 'sweet talk':
    	cla
    	set bfa = bfa + 2
    	set minut = minut + 15
    	'<<$boyA>> bradovalsya your chance meeting and hug you. You nice talk and kiss goodbye to everyone went about their business.'
    	act 'complete the walk':gt'park','start'
    end
	end
	 
	if boyonceA = 1 and SUB > 0:
	'<<$boyA>> glad you and took you by the hand led to a deeper Park.'
    act 'Go to guy.':gt'event','park'
	end
	 
	if boyonceA = 1 and DOM > 0:
    '<<$boyA>> glad you and took you by the hand led to a deeper Park.'
    act 'Suggest to sit on the bench. (You have decided to have sex with a guy.)':gt'event','park'
	 
    act 'sweet talk':
    	cla
    	set bfa = bfa + 5
    	set minut = minut + 15
    	'<<$boyA>> bradovalsya your chance meeting and hug you. You nice talk and kiss goodbye to everyone went about their business.'
    	act 'complete the walk':gt'park','start'
    end
	end
	exit
else
	dynamic $parkemptyevent	
end
}
--- parkivent ---------------------------------

# poli
if $ARGS[0]='start':
cla
*clr
$sexloc = $CURLOC
set hosprand=rand(0,10)
set minut = minut + 5
'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="pic/poli.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Appointments should 1000 rubles.
Treatment of sexually transmitted diseases 500 RUB.
abortion 20000 RUB.'
if workhosp = 1 and hour >= 8 and hour <= 9 and week<6:act'Exit to replace':gt'poli','beginwork'
act 'EXIT from the clinic':gt'street'
if health < (vital*10 + stren*5) and money >= 1000:
	 act 'treat health 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set health = vital*10 + stren*5+1000
		 if hosprand=0:gt 'poli','0'
		 if hosprand=1:gt 'poli','1'
		 if hosprand=2:gt 'poli','2'
		 'The doctor did give you an injection and you immediately become much better'
		 act 'GO_OUT':gt'poli','start'
		 end
	 end
if willpower < intel*5 + will*5 and money >= 1000:
	 act 'Reception at the psychotherapist 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set willpower = intel*5 + will*5+1000
		 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
		 if hosprand=0:gt 'poli','0'
		 if hosprand=1:gt 'poli','1'
		 if hosprand=2:gt 'poli','2'
		 'You lie down on a couch in the therapist and told him about his troubles and you immediately become much happier.'
		 act 'GO_OUT':gt'poli','start'
		 end
	 end
if money>=1000:
	 act 'To go to a Venereology (1000 RUB)':
		 cls
		 set money = money - 1000
		 set minut = minut + 60
		 gs'stat'
		 'You took the tests and after a short wait in the doctor `s office called you.'
		 if venera>0:'The doctor pulled a mournful mine and told, that you are not going smoothly with analyzes.'
		 if GerpesOnce = 1:
			 'You have found genital herpes. This disease is not curable and can only turn off for a while.'
			 if Gerpes>=3:
				 if GerpesNapr=0:GerpesNapr=3&'Here you direction on shots herpes. Is_Required 3 injection, you will have to pay the cost of medicines, these_are 1000 rubles.'
				 if GerpesNapr>0:'Go for shots herpes, I gave you the direction.'
				 else
				 'Herpes you in an inactive stage, take vitamins .'
				 end
			 end
		 if SifacOnce=1:
			 'You have found syphilis. It is not curable, fatal disease which in our time have learned to restrain, but no more.'
			 if Sifilis<15:
				 'Now you have syphilis in an inactive stage. Therefore.'
				 elseif Sifilis>=15:
					 if SifNapr=0:SifNapr=10&'Here you direction on shots syphilis. Needs a course of 10five injections, each will be worth a shot 5000 rubles.'
					 if SifNapr>0:'Go to injections of syphilis. long course, 10 days. But it is necessary, severe disease.'
				 end
			 end
		 if TriperOnce=1:
			 'You have found gonorrhea. In principle.'
			 if TriperNapr=0:TriperNapr=5&'Here you direction on shots gonorrhea. Is_Required 5five injections, each prick 1500 rubles'
			 end
		 if KandidozOnce=1:
			 'You have found candidiasis. Or as it is called by the people, thrush. Thing does not curable, but not very dangerous, besides easily suppressed.'
			 if KandidNapr=0:KandidNapr=1&'The pharmacy can buy pills.'
			 if Kandidoz<30:'Now you candidiasis in an inactive stage, take vitamins .'
			 end
		 if venera<=0:'Doctor to please you so that you do not have sexually transmitted diseases.'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 if GerpesNapr>0 and money>=1000 and GerpesUkolDay!day:
		 act 'Go for shots herpes (1000 RUB). left <<GerpesNapr>> injection in the direction':
			 cls
			 set money = money - 1000
			 set minut = minut + 60
			 GerpesUkolDay=day
			 gs'stat'
			 GerpesNapr-=1
			 'You have made a very painful injection in the ass.'
			 if GerpesNapr=0:Gerpes=-10&'It was the last prick'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 if SifNapr>0 and money>=5000 and SifUkolDay!day:
		 act 'Go to injections of syphilis (5000 RUB). left <<SifNapr>> injection in the direction':
			 cls
			 set money = money - 5000
			 set minut = minut + 60
			 SifUkolDay=day
			 gs'stat'
			 SifNapr-=1
			 'You have made a very painful injection in the ass.'
			 if SifNapr=0:Sifilis=0&'It was the last prick'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 if TriperNapr>0 and money>=1500 and TriperUkolDay!day:
		 act 'Go for shots of gonorrhea (1500 RUB). left <<TriperNapr>> injection in the direction':
			 cls
			 set money = money - 1500
			 set minut = minut + 60
			 TriperUkolDay=day
			 gs'stat'
			 TriperNapr-=1
			 'You have made a very painful injection in the ass.'
			 if TriperNapr=0:Triper=0&Venera-=1&TriperOnce=0&'It was the last prick'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 'About hanging cabinet venereologist ads.'
	 'Private Sexually Transmitted Infection Clinic provides the following services.'
	 'Complete recovery from herpes 150 thousand.'
	 'Complete cure of syphilis 350 thousand'
	 'Complete recovery from yeast 50 thousand'
	 'On the issue of hospitalization come Monday, prior_to 10 of each month'
	 if GerpesOnce = 1 and money>=150000 and week=1 and day<=10:
		 act 'Go to private clinics for the complete destruction of the herpes virus. (150 sput)':
			 cla
			 set money = money - 150000
			 set day+=3
			 week+=3
			 GerpesOnce = 0
			 Gerpes=0
			 Venera-=1
			 gs'stat'
			 'You have lain for three days in private clinics and were completely cured of herpes.'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 if SifacOnce=1 and money>=350000 and week=1 and day<=10:
		 act 'Go to private clinics for the complete destruction of syphilis. (350 sput)':
			 cla
			 set money = money - 350000
			 set day+=3
			 week+=3
			 SifacOnce = 0
			 Sifilis=0
			 Venera-=1
			 gs'stat'
			 'You have lain for three days in private clinics and were completely cured of syphilis.'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 if KandidozOnce=1 and money>=50000 and week=1 and day<=10:
		 act 'Go to private clinics for the complete destruction of the virus thrush. (50 sput)':
			 cla
			 set money = money - 50000
			 set day+=3
			 week+=3
			 KandidozOnce=0
			 Kandidoz=0
			 gs'stat'
			 'You have lain for three days in private clinics and were completely cured of thrush.'
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	'Abortion on a woman`s request can be made to 84 days gestation. cost of abortion 20000 rubles'
	'warn, abortion is dangerous to health. There is always a risk of complications and the possibility of getting pregnant in the future.'
if money >= 20000 and preg = 1 and pregtime < 84:
	 act 'abortion 20000 rubles':
		 cla
		 Set vidage = vidage + 1
		 Set abort = abort + 1
		 Set money = money - 20000
		 Set abortrand = RAND (0,10)
		     if age>18:
		     if abortrand < 10:Set preg = 0
		     if abortrand = 10:Set preg = 2
		     end
		     if age<18:
		     if abortrand < 4:Set preg = 0
		     if abortrand >= 5:Set preg = 2
		     end
		 Set pregtime = 0
		 pregtalk=0
		 '<center><img src="pic/abort.jpg" ></center>'
		 'You spread on the gynecological chair, doctor brought you into the vagina tools and parts ripped from you the fruit.'
		 act 'GO_OUT':gt'poli','start'
		 end
	 end
if preg = 1 and pregtime = 280:
	 act 'have':
		 cla
		 Set vidage = vidage + 1
		 Set preg = 2
		 Set pregtime = 0
		 pregtalk=0
		 numkid+=1
		 daykid[numkid]=day
		 monthkid[numkid]=month
		 yearkid[numkid]=year
		 
		 $father[numkid]=$father
		 haprikid[numkid]=rand(0,3)
		 glacol[numkid]=rand(0,3)
		 
		 !'<center><img src="pic/abort.jpg" ></center>'
		 'You put on the bed and spread her legs. Started a terrible pain in the abdomen, you yelled with all the dope and finally gave birth.'
		 polkid[numkid]=RAND(0,1)
		 if polkid[numkid]=0:$polreb[numkid]='girl'&'The doctor said that you had a girl.'
		 if polkid[numkid]=1:$polreb[numkid]='boy'&'The doctor said that you have a baby boy.'
		 kid+=1
		     act 'Give the name of the child':
			 $kidname[numkid] = input ("What do you call a child?")
			 if $kidname[numkid]<=0:
				 if polkid[numkid]=0:$kidname='Masha'
				 if polkid[numkid]=1:$kidname='Misha'
				 end 
			 act 'GO_OUT':gt'poli','start'
			 end
		 end
	 end
if sick > 0 and ninelsex = 0 and polisickday!day:
	 act'To go to a therapist':
		 cla
		 *clr
		 polisickday=day
		 set terrnd = RAND (0,1)
		 if terrnd = 0:gt'poli','drPP'
		 if terrnd = 1:gt'poli','ninel'
		 end
	 end
if sick > 0 and ninelsex >0 and polisickday!day:
	 act'Go to the reception to Ninel':
		 cla
		 *clr
		 polisickday=day
		 gt'poli','ninel2'
		 end
	 end
if horny >= 90 and ninelsex >= 1 and ninelday ! day and sick<=0:
	 act'Search Ninel':
		 cla
		 *clr
		 set ninelday = day
		 set ninelrand = RAND (0,2)
		 if ninelrand = 0:
			 'At the reception you skzali, Ninel that in his office'
			 act'Go to Ninel':gt'poli','ninel3' 
			 end
		 if ninelrand = 1:
			 'At the reception you said, Ninel that now does not accept'
			 act'Get away from the clinic':gt'street'
			 end
		 if ninelrand = 2:
			 'At the reception you said, Ninel that today`s challenges'
			 act'Get away from the clinic':gt'street'
			 end
		 end
	 end
if katjob > 0:act 'Come to the chief doctor':gt'poli','glavdoc'

     if zub>0:
         act'Go to the dentist':
         cls
         zubpay=zub*30000
         gs'stat'
         'The dentist looked at you and said, prosthetics that will cost <<zubpay>> rubles'
         act'Get away from the clinic':gt'street'
             if money>=zubpay:
                 act'pay for prosthetics':
                 cls
                 money-=zubpay
                 minut+=60
                 zub=0
                 gs'stat'
                 'You paid prosthetics and dentist within an hour completely put in order your teeth.'
                 act'Get away from the clinic':gt'street'
                 end
             end
         end
     end
     
     if anus>5:
         act'Go to the proctologist':
         cls
         minut+=15
         if analplugIN!0:analplugIN = 0
         gs'stat'
         '<center><img src="picb/<<anpic>>.jpg" ></center>'
         'You`ve come to the office to the proctologist. He immediately asked you to undress from the waist down and tilt.'
             if anus <= 15:
             'The doctor examined your anus and said "Well , slightly distended anus, but no abnormalities."'
             end
             if anus > 15 and anus <= 25:
             'The doctor examined your anus and said "You stretched anus and sphincter. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
             end
             if anus > 25 and anus<=35:
             'The doctor examined your anus and said "You have greatly distended anus, most likely your sphincter is not able to keep the intestinal gas. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
             end
             if anus > 35:
             'The doctor examined your anus and said "oh my God! You need to be careful with his booty obraschatsya, you have the same here now fall intestine. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
             end
             
             if money>=1000 and anus > 15 and proktologday!day:
                 act'Checkout procedure':
                 cls
                 money-=1000
                 minut+=60
                 proktologday=day
                 anus-=5
                 gs'stat'
                 '<center><img src="picb/<<anpic>>.jpg" ></center>'
                 'You paid for the procedure and the doctor an hour tinkering in your ass causing her to order.'
                 act'Get away from the clinic':gt'street'
                 end
             end
             act'Get away from the clinic':gt'street'
         end
     end
     
     if glass>0:
         act'Go to the optometrist':
         cls
         gs'stat'
         'Optometrist examined you and said that you can do laser vision correction  100 thousand. But from reading books eyesight can deteriorate again.'
         if glass=1:'Doctor looking at you add ,Of course you can buy glasses that will be better to look at you. 8 thousand.'
         act'Get away from the clinic':gt'street'
             if money>=100000 and glass!0:
                 act'Pay for laser correction':
                 cls
                 money-=100000
                 minut+=60
                 blizoruk=0
                 glass=0
                 gs'stat'
                 'You paid for laser correction.'
                 act'Get away from the clinic':gt'street'
                 end
             end
             if glass=1:
                 if money>=8000:
					 act'Buy Points':
					 cls
					 money-=8000
					 minut+=60
					 glass=2
					 gs'stat'
					 'You bought a new, more stylish glasses.'
					 act'Get away from the clinic':gt'street'
					 end
				 end
             end
         end
     end

end


if $ARGS[0]='drPP':
cla
*clr
set minut = minut + RAND (3,10)
clr
gs'stat'
'You sit in the corridor among the coughing and ohayuschih old ladies waiting for their turn.'
'At_Last, turn came'
act'Login to Account':
	 cla
	 *clr
	 '<center><img src="add-on/drPP.jpg" ></center>'
	 if drPP = 0:'At the table sat an elderly bald man felicitous appearance. "hello, sick. My name is Peter, I`m your local therapist, - he says, looking at you through his glasses".'
	 if drPP = 1:'At the table sit Peter. He smiles at you and says: "hello, sick.'
	 drPP = 1
	 '(Do_You) - hello, doctor.'
	 '(doctor) - At that complain, sick?'
		 act'complain':
		 cla
		 *clr
		 set minut = minut + 5
		 '(Do_You) - oh, doctor, it looks like I caught a cold - The nose is stuffed, throat aches... And cough.'
		 '(doctor) - so_Much-with... the temperature has?'
		 '(Do_You) - Yes_I_Am, small.'
		 '(doctor) - well-with, let you listen'
			 act'Follow the instructions of the doctor': 
			 cla
			 set minut = minut + 20
			 '<center><img src="inBed/ninel03" ></center>'
			 'The doctor carefully listen to your lungs, looked into the throat, gave thermometer - measure the temperature and, at_last, concluded:'
			 '(doctor) - That`s all right - common cold - SARS. Buy at the pharmacy so these medications, soak a couple of days in bed . point - not supercool.'
			 '(Do_You) - Thank_U, doctor. bye now.'
				 act'go home':gt'street'
			 end
		 end
	 end
end


if $ARGS[0]='ninel':
cla
*clr
set minut = minut + RAND (3,15)
clr
gs'stat'
'You sit in the corridor among the coughing and ohayuschih old ladies waiting for their turn.'
'At_Last, turn came'
	 act'Login to Account':
	 cla
	 *clr
	 if ninelmet = 0:'At the table sits a young pretty girl in a light dressing gown. Robe unbuttoned so, that does not hide its small, but pretty gud. "hello. My name Ninel Pavlovna, I substitute your local therapist, - she says, carefully considering you".'
	 if ninelmet = 1:'At the table sits Ninel. She smiles at you and says: "hello, Sveta.'
		 if horny < 30:
			 act'hello, doctor.':
			 cla
			 *clr
			 set ninelmet = 1
			 set minut = minut + 5
			 '<center><img src="add-on/exam00.jpg" ></center>'
			 '(doctor) good afternoon. At that complain?'
			 '(Do_You) - oh, doctor, it looks like I caught a cold - The nose is stuffed, throat aches... And cough.'
			 '(doctor) - the temperature has?'
			 '(Do_You) - Yes_I_Am, small.'
			 '(doctor) - It_Is_Clear. Undress.'
				 act'Follow the instructions of the doctor': 
				 cla
				 *clr
				 set minut = minut + 20
				 '<center><img src="add-on/exam01.jpg" ></center>'
				 'The doctor listened carefullya your lungs, lookeda in the throat, givea thermometer - measure the temperature and, at_last, concludeda:'
				 '(doctor) - SARS - nothing serious. Comply with bed rest and take these medicines here. A couple of days will be healthy. And avoid hypothermia.'
				 '(Do_You) - Thank_U, doctor. bye now.'
					 act'go home':gt'street'
				 end
			 end
		 end
	  
		 if horny >= 30:
			 act'hello, doctor.': 
			 cla
			 *clr
			 '<center><img src="add-on/exam10.jpg" ></center>'
			 '(doctor) good afternoon. At that complain?'
			 '(Do_You) - oh, doctor, it looks like I caught a cold - The nose is stuffed, throat aches... And cough.'
			 '(doctor) - the temperature has?'
			 '(Do_You) - Yes_I_Am, small.'
			 '(doctor) - It_Is_Clear. Undress. fully'
				 act'undress': 
				 cla
				 *clr
				 set horny = horny + 10
				 '<center><img src="add-on/exam12.jpg" ></center>'
				 'You are standing completely naked perd doctor and confused pytaetel hide behind hands.'
				 'The doctor comes to you and gently hugs the shoulders:'
				 '(doctor) - What are you, sweet - do not be shy. I`m a doctor. What is your name?'
				 '(Do_You, shyly) - Sveta...'
				 '(doctor) - do not worry, Sveta - I heal you. well-Single - breathe deeply.'
					 act'breathe':
					 cla
					 *clr
					 set horny = horny + 10
					 clr
					 gs'stat'
					 '<center><img src="add-on/exam13.jpg" ></center>'
					 'Dr. vylushivaet your lungs. Her hands are light and delicate, stethoscope touching your chest frankly laskiayut.'
					 'Do you feel the growing excitement'
					 '(doctor) - here we go. Taper open your mouth - and-and-and-and...'
						 act'A-and-and':
						 cla
						 *clr
						 '<center><img src="add-on/exam14.jpg" ></center>'
						 'You open your mouth and the doctor examines your reddened throat'
						 '(doctor) - here you go. Now let`s compete temperature. Sit on the couch and push the legs.'
						 '(Do_You) - why?'
						 '(doctor) - Will be measured rectally - so reliable.'
						 '(Do_You) - E-e-e...'
						 '(doctor) - do not be afraid - is not painful.'
							 act'substitute the ass':
							 cla
							 *clr
							 set horny = horny + 10
							 clr
							 gs'stat'
							 '<center><img src="add-on/exam15.jpg" ></center>'
							 'The doctor arranged for you on the couch in this position, that you have reddened, greased lubricated you between the legs and gently introduced the thermometer into the anus. It really does not hurt, understand you - even pleasant.'
							 'The doctor began to slowly move the thermometer back-forward in your ass, and the fingers of the other hand - stroke your pussy. Thanks lbrikantu her fingers sklzyat very easily and gently.'
							 'Do you feel, What excites stronger. Your nipples hardened, pussy hand doctor flowed... '
								 act'doctor, what`s happening?':
								 cla
								 *clr
								 set minut = minut + 10
								 set horny = horny + 10
								 clr
								 gs'stat'
								 '<center><img src="add-on/exam16.jpg" ></center>'
								 'The doctor takes out a thermometer and begins openly caress your pussy moisten with desire.'
								 'Are you confused and frightened by her behavior, but it is so tender, and you are so excited, that you simply can not resist. The_only, that you manage - is choking sprsit:'
								 '(Do_You) - doctor, what you do? what`s happening?'
								 '(doctor) - A - felt! I knew immediately, you`re one of us, and therefore I can take advantage of their power peacefully.'
								 '(Do_You) - So you?!'
								 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
								 '(Do_You) - No, I do not remember...'
								 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
								 '(Do_You) - i.e...?'
								 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
								 '(Do_You) - And in return?'
								 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
								 '(Do_You) - Then of course - I agree.'
								 '(doctor) - Then get on your knees on the couch.'
									 act'Kneel':
									 cla
									 *clr
									 '<center><img src="add-on/exam17.jpg" ></center>'
									 'You knelt down and turned back to Ninel. She took off her robe , remained in her stocking feet and you gasped when he saw her strapon.'
									 'Dr. lubed dildo and your pussy lubricant and grinned:'
									 '(doctor) - well, baby, Come treated!'
										 act'A-and-ah!':
										 cla
										 *clr 
										 set minut = minut + 10
										 set horny = 100
										 clr
										 gs'stat'
										 '<center><img src="add-on/exam18.jpg" ></center>'
										 'With these words she had driven a powerful incentive in you dildo.'
										 'You gasped in surprise, then again, and again, and further - already with pleasure.'
										 'Doctor fucked you familiar confident movements, moaning with every jolt - it seems she is afforded no less pleasure than you - You were just in ecstasy. unusual circumstances, shame and skill Ninel quickly brought you to the peak'
											 act'I `ll finish!':
											 cla
											 *clr
											 '<center><img src="add-on/exam19.jpg" ></center>'
											 '(Do_You) - I `ll finish! - you shout, - You`Re_Welcome, you`re_welcome, you`re_welcome!'
											 'Ninel over on the couch, dragging you along, you find yourself at the top and start frantically jumping on dildo, screaming and vzvizkivaya from acute, almost unbearable pleasure.'
											 'Just a few movements, and you start to finish, screaming and twitching in a paroxysm of incredibly long orgasm.'
											 '(doctor) - Now it`s my turn. Bring_It_On, girl - try.'
												 act'gratify Ninel':
												 cla
												 *clr
												 set horny = 0
												 set orgasm = orgasm + 1
												 set lesbian = lesbian + 1
												 set ninelsex = ninelsex + 1
												 if ninelsex = 1:set girl = girl + 1
												 set SUB = SUB + 1
												 set vagina = vagina + 1
												 set sick = 0
												 set health = vital*10 + stren*5+1000
												 set willpower = intel*5 + will*5+1000
												 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
												 clr
												 gs'stat'
												 '<center><img src="add-on/exam19a.jpg" ></center>'
												 'Ninel tear strap and presses you face to his inflamed, juices flowing pussy. You begin to wield her tongue in and after a few seconds Ninel comes in orgzazme. She screams and beating their breasts and squeezing out of her vagina in your face sprinkles thick whitish fluid'
													 act'dress': 
													 cla
													 *clr
													 '<center><img src="add-on/exam11.jpg" ></center>'
													 'With trembling hands. Ninel already threw robe only her flushed face reminiscent of rough sex, which she had just worked with you.'
													 '(Ninel) - well, how are you feeling?'
													 '(Do_You) - Oh-oh... Just fine, - you answer and only then realize, how you are right - of the disease has disappeared, you are full of health and in good spirits. A sweet exhaustion makes this bouquet of sensations even more enjoyable'
													 '(Ninel) - Well. This is the magic, Babe. M-m-m... You are a miracle - a long time I did not get so much pleasure from his magic. If you get sick again - immediately come to me or calling home. Well - look for me in the clinic.'
													 'You promised to be sure to find it, brought myself up and left'
														 act'Exit from the clinic':gt'street'
													 end
												 end
											 end
										 end
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
     end
end

if $ARGS[0]='ninel2':
cla
*clr
'You come to the office and Ninel, contemptuously throwing old ladies sitting in the hallway: "the queue," - go to the office.'
	 act'Login to Account':
	 cla
	 *clr
	 '<center><img src="add-on/exam00.jpg" ></center>'
	 'Ninel looks up from a-then medical scribbling, know you and smiling:'
	 '(Ninel) - hello, Svetsik. again ill?'
	 '(Do_You, coughing into a fist) - Yup. I `ll fly?'
	 '(Ninel) - Of_Course, Babe. Undress - I`ll listen.'
	 '(Do_You) - why? You sorceress...'
	 '(Ninel laughs) - silly. How could you not know much about magic. I did need to know, from which I will treat, otherwise it will happen as the old song - make like a storm, but I got the goat. magic - fine thing'
	 '(Do_You) - Here`s how... Well then.'
		 act'undress':
		 cla
		 *clr
		 set horny = horny + 10
		 '<center><img src="add-on/exam02.jpg" ></center>'
		 'You undress and Ninel listens to your lungs. as usual, her hands are light and tender and the touch of her stethoscope your breasts fill with sensual warmth'
		 '(Ninel) - Yes_I_Am... You again wheezing. well-ka say "and-and-and"'
			 act'A-a-a':
			 cla
			 *clr
			 '<center><img src="add-on/exam03.jpg" ></center>'
			 'You open your mouth and carefully inspect your Ninel Sore throat'
			 '(Ninel) - Painting friend. What are you so? Absolutely not kept. the temperature has?'
			 '(Do_You, smilingly) - compete.'
			 '(Ninel, archly) - liked? And at times afraid pevy... Lie down on the flank and pull knees to chest.'
				 act'Lie on the couch':
				 cla
				 *clr
				 set horny = horny + 10
				 set minut = minut + 10
				 clr
				 gs'stat'
				 '<center><img src="add-on/exam04.jpg" ></center>'
				 'You take the desired position and Ninel begins to fuck your ass thermometer. You will quickly become excited, your pussy lips are opened, one begins to ooze grease. You moan softly'
				 '(Ninel) - what, baby, Artist? well-ka let`s check - as_far_as.'
					 act'substitute pussy':
					 cla
					 *clr
					 set horny = horny + 10
					 set minut = minut + 5
					 clr
					 gs'stat'
					 '<center><img src="add-on/exam06.jpg" ></center>'
					 'You turn on your back and legs Spreads. Ninel gets Speculum and vvobit it into your vagina flushed. You quietly ohaete from udovolstvaiya and Ninel echoes you passionate heavy sigh. It looks like your kind of wide-open vulva her great -ons'
						 act'Oh-about-x..!':
						 cla
						 *clr
						 set horny = 100
						 set minut = minut + 15
						 clr
						 gs'stat'
						 '<center><img src="add-on/exam05.jpg" ></center>'
						 'impassioned, Ninel quickly takes off robe, demonstrating sticking strap between the legs and stretches to you lips'
						 'You eagerly kissing, while skilled fingers Ninel play with your clitoris excited, forcing the warm waves of pleasure to scatter on your body'
						 '(Do_You) - Fuck me! rather! - ask you. Ninel grins, continuing to tease your clitoris hand'
						 '(Ninel) - ask me'
						 '(Do_You) - Fuck me - you`re_welcome! rather, I ask!'
						 '(Ninel) - ask for better. I can see, as you want it'
						 	 act'Beg and plead':
							 cla
							 *clr
							 set minut = minut + 20
							 '<center><img src="add-on/exam07.jpg" ></center>'
							 '(Do_You) - You`Re_Welcome, you`re_welcome, you`re_welcome! Fuck me! Do with me what you want - i`m all yours! only the most - beseech, rather!!!'
							 'Ninel puts on a strap with a snarl and drives it into your bosom blazing lust. you scream, Put your feet up, trying, to rubber cock entered you as deeply as possible.'
							 'Ninel fuck you faster, moaning and groaning with every jolt, and you groan and podmahivat struggling.'
							 '(Ninel) - on your knees..! Turn_Around! - breathlessly tells Dr.'
								 act'substitute the ass':
								 cla
								 *clr
								 set horny = 0
								 set minut = minut + 10
								 set orgasm = orgasm + 1
								 set lesbian = lesbian + 1
								 set SUB = SUB + 1
								 set vagina = vagina +1 
								 set sick = 0
								 set health = vital*10 + stren*5+1000
								 set willpower = intel*5 + will*5+1000
								 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
								 clr
								 gs'stat'
								 '<center><img src="add-on/exam08.jpg" ></center>'
								 'Moaning with excitement you get on your knees and bulging ass, Ninel it easier to enter, but it is in no hurry'
								 '(Do_You) - Come - faster! - ask you, - I almost..! - but Ninel panting orders:'
								 '(Ninel) - ask! ask, begged me, small mokroschelka!'
								 '(Do_You) - You`Re_Welcome, you`re_welcome, you`re_welcome-and-and-and!!! - you shout, - fuck me, fuck! I want to finish! Yes_I_Am - I`m a slut, I mokroschelka, but please, you`re_welcome, you`re_welcome, let me finish!!! fuck me-and-and-and!!!!'
								 'Strap sticks into your vagina and inflamed nachenaet peck like a jackhammer. Moment and you pierce a wild orgasm. You scream in agony and beats, Vashti knees weaken and you fall on kusheku, shuddering in voluptuous convulsions, Ninel and all stops and orgasm does not end...'
								 'Finally you end and Ninel immediately Command:'
								 '(Ninel) - Come to please me now, little whore. Bring_It_On - how do you know how!'
									 act'...':
									 cla
									 *clr
									 '<center><img src="add-on/exam09.jpg" ></center>'
									 'You `s turnover on the back and Ninel sits on your face. You diligently oruduete tongue and lips, obihazhivaya its jaws wide open and swollen erect clit, and she screaming and sobbing crawl crotch in your face, until he finally comes in and starts to cry finish. She cums long, yelling, shaking like a fever and abundantly filling your face is thick and sticky liquid'
										 act'...':
										 cla
										 *clr
										 set horny = horny + 20
										 '<center><img src="add-on/exam09a.jpg" ></center>'
										 'When_he_had_finished, Ninel gets up and slowly wears, showing you my body perkrasnoe. That`s incredible, but you excitement rises again.'
										 'Ninel how-somehow notices and smiling:'
										 '(Ninel) - Oh - enough is enough. But you come in as-else - fun_too.'
										 'You understand and, which once again will be a little too. you are healthy, satisfied - and thanks for that.'
											 act'Thank Ninel and go':gt'street'
										 end 
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end	

if $ARGS[0]='ninel3':
cla
*clr
'You come to the office and Ninel, contemptuously throwing old ladies sitting in the hallway: "the queue," - go to the office.'
	 act'Login to Account':
	 cla
	 *clr
	 '<center><img src="add-on/exam10.jpg" ></center>'
	 'Ninel looks up from a-then medical scribbling, know you and smiling:'
	 '(Ninel) - hello, Svetsik. again ill?'
	 '(Do_You, with a grimace on his face feigned suffering) - oh, doctor - my pussy is burning, and flowing all. surely, she is seriously ill.'
	 '(Ninel, smiling) - my poor child. Now we are going to fly it.'
		 act'Tearing off her clothes':
		 cla
		 *clr
		 '<center><img src="add-on/polsex01.jpg" ></center>'
		 'Groaning with impatience you tear off her clothes. Ninel also kicked off her robe and front of your face rocked Strap.'
		 '(Ninel) - suck it, Babe. Make it hot and wet, as you yourself'
		 'You bites his lips in a dildo and start to suck, squelching and abundant watering his saliva. you see, as excited looking at this Ninel.'
			 act'Fuck me!':
			 cla
			 *clr
			 set minut = minut + 10
			 '<center><img src="add-on/polsex02.jpg" ></center>'
			 'remembering, Ninel that it loves you begin to beg her to fuck you as soon as possible. You do not even have to pretend to do - desire to literally burn you.'
			 'Finally Ninel listens request. She rudely puts you on your knees and begins to drive the strap and measured in your inflamed vagina. You scream and push each ahaete. Weaken your feet.'
				 act'Fall on the couch':
				 cla
				 *clr
				 set minut = minut + 20
				 '<center><img src="add-on/polsex03.jpg" ></center>'
				 'You fall on the couch. Ninel upsets you to the side and continues to play. You drawl and moan lustfully, from her breast too pulled out a deep groan and growl of a beast'
				 'Christ, how do you good.'
				 '(Ninel, breathless) - I can not - let herself..!'
					 act'Ninel ride':
					 cla
					 *clr
					 set horny = 0
					 set minut = minut + 10
					 set orgasm = orgasm + 1
					 set lesbian = lesbian + 1
					 set SUB = SUB + 1
					 set manna = manna + 15
					 set willpower = willpower + 15
					 set vagina = vagina + 1
					 clr
					 gs'stat'
					 '<center><img src="add-on/polsex04.jpg" ></center>'
					 'You obediently pose mnyaete. Ninel leans back on the couch, and you sit down on top of her and strung on dildo.'
					 'You jump on strapon, squealing and nadrachivaya fingers clit, when Ninel beneath you starts to twitch and moan. do you understand, she cums and it works as a trigger - You go in orgasm.'
					 'A few seconds you with Ninel beats and screaming in paroxysms of passion, and then fall exhausted on the couch'
					 '(Do_You) - Thank_U, sweet. It was great...'
					 '(Ninel) - Oh yeah, Svetsik. Come again.'
						 act'Freshen up and go':gt'street'
					 end
				 end
			 end
		 end
	 end
end



if $ARGS[0] = 'glavdoc':
set minut+=5
'You are logged in and asked, Do you take on the job.'
'The medical director looked at you. "ah yes, you are the girl was talking about Catherine. Ok, Listen working conditions"'
'"Will work on weekdays, Comes with 8 prior_to 9 hours, and come out to replace, going to work 16 hours. do not come, This day you will not be counted in the salary. salary lists 25-th of, for each worked shift - 1000 rubles."'
'"Labor necessary to hand over to the personnel department. You understand, will work?"'
	 if work=0:
		 act 'To get a job':
		 cla
		 set workhosp = 1
		 set work=1
		 'You carried working in the personnel department."'
		 act 'Go_Out':gt'poli','start'
		 end
	 end
     if workhosp=1:act'resign':gt'poli', 'discharge'
act 'Go_Out':gt'poli','start'
end


if $ARGS[0] = 'beginwork':
cla
*clr
'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="img/spaln/hospital.jpg" ></center>'
'You have replaced the clinic.'
act'begin work':
	 set smena+=1
	 gt'WorkHosp','start'
	 end
act'resign':gt'poli','discharge'
end

if $ARGS[0] = 'discharge':
cla
set minut+=10
set workhosp = 0
set work=0
set pay = smena * 1000
set money = money + pay
set smena = 0
'The medical director looked at you: "Here`s your payment <<pay>> rubles and employment history. bye now."'
act 'Get_Away':gt'street'
end

if $ARGS[0] = '0':
cla
*clr
'<center><img src="img/spaln/hospsex1.jpg" ></center>'
'During the examination the doctor starts to stick to you, clearly hinting at an intimate relationship'
act 'Send it':gt'poli','start'
     act 'fun':
	 set picrand=11
	 set guy+=1
	 xgt'sex','var'
	 end
end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/spaln/hospsex2.jpg" ></center>'
'You inspect the two doctors, they touch you everywhere clearly beyond what is permitted'
act 'Send them':gt'poli','start'
     act 'fun':
	 set picrand=11
	 set guy+=2
	 xgt'sexdvoe','var'
	 end
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/spaln/hospsex3.jpg" ></center>'
'By accessing the office you catch nurse African stoyuschuyu kneeling in front of a doctor, with smacking sucking his cock.'
act 'Get_Away':gt'poli','start'
     act 'Login to Account':
	 cla
	 *clr
	 '<center><img src="img/spaln/hospsex4.jpg" ></center>'
	 'When you are logged, doctor jumped out of the office, and ostavshayusya unsatisfied evil nurse looked at you, but after a moment her eyes flashed light and she dropped robe came to you and vskhvativ for one-handed back and the other pressed to his chest drew you to her'
	 act 'Get_Away':gt'poli','start'
	     act 'let her':
		 cla
		 *clr
		 set guy+=1
		 set girl+=1
		 set lesbian+=1
		 '<center><img src="img/spaln/hospsex5.jpg" ></center>'
		 'She prispustila with you pants and bent over the couch, began to process your pussy with his tongue'
		     act 'lick it':
			 cla
			 *clr
			 '<center><img src="img/spaln/hospsex6.jpg" ></center>'
			 'You oprakinuli her on the couch and dug into her lips in black pussy, she smelled that literally drive you crazy, you could not tear myself away from it, licked her pussy thrust tongue inside pussy and anus, in this state you found and returned the doctor.'
			 act 'continue threesome':set picrand=11&gt'podrsex','var'
			 end
		 end
	 end
end


















--- poli ---------------------------------

# rinok
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5

$rinbuy1={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*50 > money:'You do not have enough money.'
if portion*50 <= money:
	 set fairy += portion
	 set money = money - portion*50
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought dishwashing detergent.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy2={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*150 > money:'You do not have enough money.'
if portion*150 <= money:
	 set poroshok += portion
	 set money = money - portion*150
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought laundry detergent.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy3={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*150 > money:'You do not have enough money.'
if portion*150 <= money:
	 set cltarelka += portion*3
	 set money = money - portion*150
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought a plate.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy4={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*500 > money:'You do not have enough money.'
if portion*500 <= money:
	 set kosmetica += portion*25
	 set money = money - portion*500
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought cosmetics.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy5={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*200 > money:'You do not have enough money.'
if portion*200 <= money:
	 set stanok += portion*10
	 set money = money - portion*200
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought a razor.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy6={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*150 > money:'You do not have enough money.'
if portion*150 <= money:
	 set tampon += portion*20
	 set money = money - portion*150
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought tampons.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy7={
cla
*clr
portion = input ("How much you want to buy?")
if portion<=0:portion=1
if portion*200 > money:'You do not have enough money.'
if portion*200 <= money:
	 set clrbelo += portion
	 set money = money - portion*200
	 '<center><img src="pic/kassa2.jpg" ></center>'
	 'You paid the cashier and bought underwear.'
	 end
act 'Move away from the counter':gt'rinok','start'
}
$rinbuy8={
if money >= 1000 and bikini < 1:
 cla
 *clr
 set money = money - 1000
 set bikini = 1
 '<center><img src="pic/kassa2.jpg" ></center>'
 'You paid the cashier and bought a swimsuit.'
 act 'Move away from the counter':gt'rinok','start'
else
'You do not have enough money.'
end
}
$rinbuy9={
if money >= 1000 and umbrella < 1:
cla
*clr
set money = money - 1000
set umbrella = 1
'<center><img src="pic/kassa2.jpg" ></center>'
'You paid the cashier and bought an umbrella.'
act 'Move away from the counter':gt'rinok','start'
else
'You do not have enough money.'
end
}

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
mag=1

'<center><B><font color=maroon>market</font></B></center>'
'<center><img src="pic/rinok.jpg" ></center>'
'<a href="exec: dynamic $rinbuy1 ">dishwashing liquid - 50 r</a>  <a href="exec: dynamic $rinbuy2 ">washing powder - 150 r</a>  <a href="exec: dynamic $rinbuy3 ">a set of 3x plates - 150 r</a>   <a href="exec: dynamic $rinbuy4 ">cosmetics - 500 r</a>   <a href="exec: dynamic $rinbuy5 ">razor - 200 r</a>  <a href="exec: dynamic $rinbuy6 ">tampons - 100 r</a>  <a href="exec: dynamic $rinbuy7 ">linen - 200 r</a>'
if bikini < 1:'<a href="exec: dynamic $rinbuy8 ">swimsuit - 1000r</a>'
if umbrella < 1:'<a href="exec: dynamic $rinbuy9 ">umbrella - 1000r</a>'
'On one of the tents hanging Ads <a href="exec:GT ''loker2'',''start''">"Take things for implementation"</a>'

if analplugIN = 1 and tanga = 0 and ski = 1 or analplugIN = 1 and tanga = 0 and glamur = 1:
	 set nurand = RAND (0,100)
		 if nurand >= 80:
		 set manna = manna - 5
		 set SUB = SUB + 1
		 set horny = horny + SUB
		 set nudity = nudity+1
		 'Do you feel that someone-then gently touched <a href="exec:GT ''etoexhib'',''pos15''">your priests hand!</a>'
		 *nl
		 end
	 end

'<a href="exec:numdres=1&payclo=1500 & GT ''loker'',''jeans''">Inspect jeans number1</a>  <a href="exec:numdres=2&payclo=1500 & GT ''loker'',''jeans''">inspect jeans. number2</a>  <a href="exec:numdres=3&payclo=1500 & GT ''loker'',''jeans''">inspect jeans. number3</a>  <a href="exec:numdres=4&payclo=1500 & GT ''loker'',''jeans''">inspect jeans. number4</a>  <a href="exec:numdres=5&payclo=1500 & GT ''loker'',''jeans''">inspect jeans. number5</a>'
clr
gs'stat'
gs'time'
act 'GO_OUT':
	 cla
	 set minut = minut + 5
	 gt'street'
	 end
if workrin=1:
	 if week=2 or week=4 or week=6:
		 if hour<9:
			 'Arthur item is waiting for you.'
			 act '<B>take goods.</B>':
				 cla
				 *clr
				 hour=9
				 minut=0
				 prodpayum=1200
				 'Arthur unloaded the stuff from his ushatannoy Shokhi to the tray and gave you. You started to hang clothes on the tent.'
				 'Before leaving Arthur gives you instructions. "Sell вЂ‹вЂ‹what you like, but that night I would have given to each item sold on 1000. And to gain by selling no less than <<arturplan>> rubles."'
				 act 'work.':gt'rinwork','start'
				 end
			 end
		 end
	 end
if workrin=1:
	 act 'Dismissed from their jobs':
		 cla
		 work=0
		 workrin=0
		 'You retired from work and took labor.'
		 act 'GO_OUT':gt'rinok','start'
		 end
	 end
if work=0:
	 nl
	 'On one of the tents hanging Ads "Need females sellers. big salaries."'
	 act 'Approach to the owner of the tent ad':
		 cla
		 *clr
		 'hello, My name is Arthur. I am the master of the tent, I need a saleswoman. I do not cope. Well? go?'
		 'Pay a percentage of earned. Work will be on Tuesdays, Thursdays and Saturdays. From 8of up to 14.'
		 'Work on labor.'
		 act 'GO_OUT':gt'rinok','start'
		 act 'To get a job':
			 cla
			 work=1
			 workrin=1
			 arturplan=5000
			 'You got a job to Arthur and gave him a career.'
			 act 'GO_OUT':gt'rinok','start'
			 end
		 end
	 end
if palto<1:
	 'On the market sell down jackets for winter. 5000 RUB'
	 if money>=5000:
		 act 'buy a down jacket':
			 cla
			 money-=5000
			 palto=1
			 $palto='Chinese wear'
			 'You bought a down jacket.'
			 act 'GO_OUT':gt'rinok','start'
			 end
		 end
	 end
end
--- rinok ---------------------------------

# rinwork
if $ARGS[0]='start':

$answerrin={
if tipred=pokti:
	 if pokvnirand=0:
	 pokpay=RAND(1000,1200)
	 end
	 if pokvnirand=1:
	 pokpay=RAND(1200,1500)
	 end
	 if pokvnirand=2:
	 pokpay=RAND(1500,2000)
	 end
else
$rinitog='<<$poktip>> puts thing into place and leaves'
pokupatel=0
end
}
$answerrin2={
act 'call price':
cla
prodpay = input ("Enter the price of things")
     if prodpay<1000:prodpay=prodpayum
'You set a price in <<prodpay>> rubles'

     if prodpay<=pokpay:
     poknorand=RAND(1,100+vnesh)
         if poknorand>=10:
		 rinmon+=prodpay
		 rinvesh+=1
		 'The buyer took the thing and paid <<prodpay>> rubles'
		 act 'trading on':gt'rinwork','start'
		 else
		 'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
		 dynamic $answerrin3
		 act 'I can not less, (pick up a thing)':gt'rinwork','start'
		 end
     end
     if prodpay>pokpay and prodpay<=pokpay+100:
     poknorand=RAND(1,100+vnesh)
         if poknorand>=10:
         'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
         dynamic $answerrin3
         act 'I can not less, (pick up a thing)':gt'rinwork','start'
         else
         'The buyer puts thing into place and leaves'
         act 'trading on':gt'rinwork','start'
         end
     end
     if prodpay>pokpay+100:
     'The buyer puts thing into place and leaves'
     act 'trading on':gt'rinwork','start'
     end
end
}
$answerrin3={

if prodpay>=1100:
	 act 'Reduce the price 100 RUB':
	 cla
     'You have reduced the price to 100 rubles.'
     poknorand=RAND(1,100+vnesh)
         if poknorand>=10:
         rinmon+=prodpay-100
		 rinvesh+=1
		 'The buyer took the thing and paid <<prodpay-100>> rubles'
		 act 'trading on':gt'rinwork','start'
         else
         'The buyer puts thing into place and leaves'
         act 'trading on':gt'rinwork','start'
         end
	 end
end

if prodpay>=1050:
	 act 'Reduce the price 50 RUB':
	 cla
	 'You have reduced the price to 50 rubles.'
     poknorand=RAND(1,100+vnesh)
         if poknorand>=30:
         rinmon+=prodpay-50
		 rinvesh+=1
		 'The buyer took the thing and paid <<prodpay-50>> rubles'
		 act 'trading on':gt'rinwork','start'
         else
         'The buyer puts thing into place and leaves'
         act 'trading on':gt'rinwork','start'
         end
	 end
end
}

cla
*clr
gs'stat'
'<center><B><font color=maroon>market</font></B></center>'
'<center><img src="pic/rinok.jpg" ></center>'
'You stand for the tray with clothes in anticipation of buyers.'
'At the checkout <<rinmon>> rubles, sold_out <<rinvesh>> things.'
'The average price in the market <<prodpayum>>'

     if hour=14:
     'Arthur came to you and you have started to calculate how much you should give Arthur.'
         act 'Give Arthur money':
         cla
         *clr
         rinart=rinvesh*1000
         rinmon=rinmon-rinart
         money+=rinmon
         'You gave Arthur <<rinart>> rubles sold <<rinvesh>> things.'
         'Today you have earned <<rinmon>> rubles'
         gs'stat'
			 if rinart<arturplan:
			 arturnoo+=1
			 'uh, Svetka, bad work, not enough money. You`re so razorish me at all.'
			 else
			 arturyes+=1
			 'Maladets Svetik, good job.'
			 end
		 if arturnoo>arturyes:arturnoo=arturnoo-arturyes&arturyes=0
		 if arturyes>arturnoo:arturyes=arturyes-arturnoo&arturnoo=0
		 if arturnoo=arturyes:arturnoo=0&arturyes=0
         rinmon=0
         rinvesh=0
             if arturnoo>10:
             arturnoo=0
             work=0
             workrin=0
             'uh, Jam you already savsem. Here`s your work. get_out, that I did not see you anymore!'
             act 'Get_Away':gt'street'
             exit
             end
         Set rinrand = RAND (1,100)
             if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
			 '(Arthur) - Wai, Svetik, you and I have not even met good. Come into the container, encroach barbecue, drink, get_acquainted.'
				 act 'Opt_Out':
				 cla
				 'You became otnekivatsya, Arthur told you. Wai, why insult, Here you have the tray removed, dust, dirt, I`m fine and I can take you.'
				 act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
				     act 'No.':
				     cla
				     arturplan+=1000
				         if money>=1000:
				         money-=1000
				         'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
				         else
				         'Fair_Enough, go already.'
				         end
                     act 'Get_Away.':gt 'street'
                     end
				 end
			 act 'Let`S_Go':gt 'RynokHoz','beginning'
			 exit
			 end
			 
			 if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
			 '(Arthur) - Wai, Svetik. Come into the container, encroach barbecue, drink, rest. He walked right up to you and slapped his hand on the pope.'
				 act 'Opt_Out':
				 cla
				 'You became otnekivatsya, Arthur told you. Wai, why insult, Here you have the tray removed, dust, dirt, I`m fine and I can take you.'
				 act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
				     act 'No.':
				     cla
				     arturplan+=1000
				         if money>=1000:
				         money-=1000
				         'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
				         else
				         'Fair_Enough, go already.'
				         end
                     act 'Get_Away.':gt 'street'
                     end
				 end
			 act 'Let`S_Go':gt 'RynokHoz','beginning'
			 exit
			 end
			 
			 
			 
         act 'Leave work':gt'street'
         end 
     exit
     end
     
     if hour<14:
     pokrand=RAND(0,1)
		 if pokrand=0:
		 $pokup='Buyers can not see.'
		 pokupatel=0
		 ''
		 'Market is Aunt Kate with a trolley in which it carries cakes and coffee.'
		 end
     
		 if pokrand=1:
		 poktiprand=RAND(0,7)
		 pokupatel=1
		 if poktiprand=0:$pokup='By tray approached middle-aged man.'&$poktip='The_Man'&pokti=1
		 if poktiprand=1:$pokup='By tray approached by a young man.'&$poktip='guy'&pokti=2
		 if poktiprand=2:$pokup='By tray guy came up teenager.'&$poktip='boy'&pokti=3
		 if poktiprand=3:$pokup='By tray woman came.'&$poktip='woman'&pokti=1
		 if poktiprand=4:$pokup='To the girl came trough.'&$poktip='girl'&pokti=2
		 if poktiprand=5:$pokup='By tray approached teen girl.'&$poktip='Devchenka'&pokti=3
		 if poktiprand=6:$pokup='By tray approached the old man.'&$poktip='old_man'&pokti=0
		 if poktiprand=7:$pokup='Grandma went to the tray.'&$poktip='granny'&pokti=0
		 end
		 '<b><<$pokup>></B>'
			 if pokupatel=1:
				 act 'what would you like?':
				 cla
				 minut+=15
				 pokvnirand=RAND(0,2)
					 if pokvnirand=0:
					 '<<$poktip>> without interest examines Sell items.'
					 
					 end
					 if pokvnirand=1:
					 '<<$poktip>> with interest examines Sell items.'
					 
					 end
					 if pokvnirand=2:
					 '<<$poktip>> picks up a thing.'
					 
					 end
					 
					 
					 !dynamic $answerrin
					 
					 act 'Now it is very fashionable':
					 cla
					 tipred=3
					 dynamic $answerrin
					 '<<$rinitog>>'
						 if pokupatel=0:act 'further':gt'rinwork','start'
						 if pokupatel=1:
						 '<<$poktip>> asks you for a price'
						 dynamic $answerrin2
						 end
					 end
					 
					 act 'Thing is very high-quality and reliable':
					 cla
					 tipred=1
					 dynamic $answerrin
					 '<<$rinitog>>'
						 if pokupatel=0:act 'further':gt'rinwork','start'
						 if pokupatel=1:
						 '<<$poktip>> asks you for a price'
						 dynamic $answerrin2
						 end
					 end
					 
					 act 'Give not expensive':
					 cla
					 tipred=0
					 dynamic $answerrin
					 '<<$rinitog>>'
						 if pokupatel=0:act 'further':gt'rinwork','start'
						 if pokupatel=1:
						 '<<$poktip>> asks you for a price'
						 dynamic $answerrin2
						 end
					 end
					 
					 act 'You really are':
					 cla
					 tipred=2
					 dynamic $answerrin
					 '<<$rinitog>>'
						 if pokupatel=0:act 'further':gt'rinwork','start'
						 if pokupatel=1:
						 '<<$poktip>> asks you for a price'
						 dynamic $answerrin2
						 end
					 end
				 end
			 end
			 
			 act 'laze 15 minutes':
			 minut+=15
			 gt'rinwork','start'
			 end
			 
			 if hour=9:
			 rintakrand=RAND(0,5)
				 if rintakrand=0:
				 $rintak='The tray in front of Hassan unload clothes saleswoman Nadia.'
					 act 'See Hassan and Nadia':
					 cla
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:'Nadia Hassan pronounces. "Today, and then the fine ladies, I need money."'
						 if talkrand=1:'Hassan opens trunks and puts clothes on the counter.'
						 if talkrand=2:'Hassan drags trunks to its tray.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=1:
				 $rintak='In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
					 act 'Look at Abdul and Anna':
					 cla
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:'Abdul swears. "You already Jam, can not sell anything!" Anna parries, "so you tell me rotten crap for sale give, take it no one wants."'
						 if talkrand=1:'Abdul slapped ass Anna, she pretended that nothing had happened.'
						 if talkrand=2:'Abdul drags trunks to its tray.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=2:
				 $rintak='Abdul Hassan and stand next to your tray and guttural than talking.'
					 act 'Look at Caucasians':
					 cla
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:'Abdul Hassan and continue to talk about something, language and you do not know what they say can not understand.'
						 if talkrand=1:'Abdul Hassan pyalyatsya you and discussing something gogochut.'
						 if talkrand=2:'Abdul looks at you and says Hasan, "Look what a girl, sponge persik, Islands."'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=3:
				 $rintak='Anna hanging clothes in the tray and shouting with Nadia.'
					 act 'Chat with sex!':
					 cla
					 annaQW+=1
					 NadiaQW+=1
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:
						 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
						 if clener=0:clener=1
						 end
						 if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=4:
				 $rintak='Arthur talking about something with Abdullah.'
					 act 'Look at Caucasians':
					 cla
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:'Abdul and Arthur continue to talk about something, language and you do not know what they say can not understand.'
						 if talkrand=1:'Abdul and Arthur pyalyatsya you and discussing something gogochut.'
						 if talkrand=2:'Abdul looks at you and says Arthur, "Look what a girl, sponge persik, Islands."'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=5:
				 $rintak='Arthur, Abdul Hassan and neighing loudly and what you do not speak the language they understand.'
					 act 'Look at Caucasians':
					 cla
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:'Caucasians continue to talk about something, language and you do not know what they say can not understand.'
						 if talkrand=1:'Caucasians pyalyatsya you and discussing something gogochut.'
						 if talkrand=2:'Abdul looks at you and says other Caucasians, "Look what a girl, sponge persik, Islands."'
					 act 'further':gt'rinwork','start'
					 end
				 end
			 '<<$rintak>>'
			 end
			 if hour=10:
			  rintakrand=RAND(0,5)
				 if rintakrand=0:
				 $rintak='Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
					 act 'See Hasan':
					 cla
					 minut+=15
					 'Hassan said Nadia "Nadia, zachem minute refuse? encroach Shlikov, drink wine".'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=1:
				 $rintak='The tray sitting in front of Nadia and crossword puzzles.'
					 act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW+=1
					 minut+=15
					 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
						 if clener=0:
						 clener=1
						 'Nadia tells the story of a Jew tailor working in an office building.'
						 end
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=2:
				 $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
					 act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW-=1
					 minut+=15
					 'Nadia is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=3:
				 $rintak='In the next tray Anna drinks coffee.'
					 act 'Chat with Anna':
					 cla
					 annaQW+=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya support a conversation with you and tells you what nonsense.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=4:
				 $rintak='In the next tray Anna tries vtyuhat buyers stale goods.'
					 act 'Chat with Anna':
					 cla
					 annaQW-=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=5:
				 $rintak='Anna talks about trifles with Aunt Katya.'
					 act 'Chat with Anna and Aunt Katya':
					 cla
					 annaQW+=1
					 !NadiaQW+=1
					 tetaKataQW+=1
					 minut+=15
					 'Aunt Kate praises cakes, and Anya complains, it currently has on these pies ass Naela twice more than was..'
					 act 'further':gt'rinwork','start'
					 end
				 end
			 '<<$rintak>>'
			 end
			 if hour=11:
			 rintakrand=RAND(0,5)
				 if rintakrand=0:
				 $rintak='By Nadia came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'
					 act 'Look at Nadia and Caucasians.':
					 cla
					 !annaQW+=1
					 !NadiaQW+=1
					 !tetaKataQW+=1
					 minut+=15
					 'Caucasians seem to be leaning towards sex Nadia.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=1:
				 $rintak='The tray in front of Nadia sits and eats pie.'
					 act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW+=1
					 minut+=15
					 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
						 if clener=0:
						 clener=1
						 'Nadia tells the story of a Jew tailor working in an office building.'
						 end
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=2:
				 $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
					  act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW-=1
					 minut+=15
					 'Nadia is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=3:
				 $rintak='In the next tray Anna reads the newspaper.'
					 act 'Chat with Anna':
					 cla
					 annaQW+=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya support a conversation with you and tells you what nonsense.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=4:
				 $rintak='By Anya from a nearby tray came buyers.'
					 act 'Chat with Anna':
					 cla
					 annaQW-=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=5:
				 $rintak='By Anya came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly silent fright.'
					  act 'Look at Anya and Caucasians.':
					 cla
					 !annaQW+=1
					 !NadiaQW+=1
					 !tetaKataQW+=1
					 minut+=15
					 'Caucasians seem to be leaning towards sex Anya.'
					 act 'further':gt'rinwork','start'
					 end
				 end
			 '<<$rintak>>'
			 end
			 if hour=12:
			 rintakrand=RAND(0,5)
				 if rintakrand=0:
				 $rintak='Hasan bought cheburek and eat it sitting behind Nadia tray.'
					 act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW-=1
					 minut+=15
					 'Nadia shy to talk with Hassan.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=1:
				 $rintak='Nadia Thorog with customers.'
					  act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW-=1
					 minut+=15
					 'Nadia is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=2:
				 $rintak='Nadia talks with Anna.'
					 act 'Chat with sex!':
					 cla
					 annaQW+=1
					 NadiaQW+=1
					 minut+=15
					 talkrand=RAND(0,2)
						 if talkrand=0:
						 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
						 if clener=0:clener=1
						 end
						 if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=3:
				 $rintak='Anya sells clothing buyers.'
					 act 'Chat with Anna':
					 cla
					 annaQW-=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya is not happy, light, do not distract, I have buyers.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=4:
				 $rintak='Anya drinking coffee sitting at his tray.'
					 act 'Chat with Anna':
					 cla
					 annaQW+=1
					 !NadiaQW-=1
					 minut+=15
					 'Anya support a conversation with you and tells you what nonsense.'
					 act 'further':gt'rinwork','start'
					 end
				 end
				 if rintakrand=5:
				 $rintak='Nagy from idleness catches flies.'
					 act 'Chat with Nadia':
					 cla
					 !annaQW+=1
					 NadiaQW+=2
					 minut+=15
					 'Nadia was glad that at least some entertainment and fun to hang out with you.'
					 act 'further':gt'rinwork','start'
					 end
				 end
			 '<<$rintak>>'
			 end
			 if hour=13:
			 rintakrand=RAND(0,5)
				 if rintakrand=0:
				 $rintak='Hassan began to slowly collect the goods from Nadi.'
				 end
				 if rintakrand=1:
				 $rintak='Anya sits and counts the profit per day.'
				 end
				 if rintakrand=2:
				 $rintak='Nadia calculates profit per day.'
				 end
				 if rintakrand=3:
				 $rintak='Abdul began to collect the goods from Ani.'
				 end
				 if rintakrand=4:
				 $rintak='Past your tray was Arthur.'
				 end
				 if rintakrand=5:
				 $rintak='Aunt Katya finishes trade pies and seems about to leave.'
				 end
			 '<<$rintak>>'
			 end
			 
			 
			 if money>=200:
				 act 'have_a_bite 15 minutes (200 RUB)':
				 cla
				 *clr
				 gs'stat'
				 tetaKataQW+=1
				 '<center><img src="pics/food.jpg" ></center>'
				 set minut = minut + 15
				 set health = health + 10
				 set manna = manna + 20
				 money-=200
					 if energy >= 30:
					  set fat = fat + 5
					 'You can no longer have.'
					 end
					 if energy >= 20 and energy < 30:
					 set fat = fat + 3
					 set energy = energy + 10
					 'You pushed through the power of a meal.'
					 end
					 if energy < 20:
					 set energy = energy +20
					 !set fat = fat + 1
					 'You gladly ate cooked food.'
					 end
					 if water >= 20:
					 'Coffee you no longer climbs.'
					 end
					 if water < 20:
					 'You gladly drank a mug of coffee.'
					 set water = water +20
					 end
				 act 'throw leftovers':gt'rinwork','start'
			 end
		 end
	 end


end
--- rinwork ---------------------------------

# sauna
sauna+=1
'<center><B>sauna</B></center>'
'<center><img src="pic/sauna.jpg" ></center>'
'Excellent renovated sauna.'
clr
gs'stat'

act 'Get_Away':minut+=15&gt'street'

!if saunaWorkWhore>0:act 'Go to work':gt'saunawork'
!SaunaWhore
if SaunaWhore>0:act 'Go to work whore':gt'saunawork'

if week=5 and workDisk=2:
'At the entrance you are waiting for a strong man waiting for you to drive.'
     act 'give disk':
     cls
     minut+=20
     workDisk=3
     konvert=1
     gs'stat'
     'You gave the disc and you handed a thick envelope.'
     act 'Get_Away':minut+=15&gt'street'
     end
end

     if hour >= 8 and hour <= 23:act 'Go to the sauna':gt'sauna2'








--- sauna ---------------------------------

# sauna2
set minut = minut + 5
'<center><B><font color=maroon>sauna</font></B></center>'
'<center><img src="pic/sauna1.jpg" ></center>'
'Stay for an hour worth 2000 RUB.'
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'GO_OUT':gt'sauna'


	 if money>= 2000 and saunaday ! day:
		 act 'stay':
		 cls
		 money=money-2000
		 minut+=60
		 fat-=10
		 sweat=-10
		 dynamic $showerdin
		 saunaday = day
		 manna = (intel*magik) + magik*100 + vital*10 + rikudo
		 gs'stat'
		 '<center><img src="pic/sau.jpg" ></center>' 
		 'You are within an hour soared in the sauna, washed in the shower and relax.'
		 act 'Get_Away':gt'sauna'
		 end
	 end
--- sauna2 ---------------------------------

# saunabed
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
'<center><b>bed</b></center>'
'<center><img src="pics/son.jpg" ></center>'
if son < 10:
     if budon=1:
		 act 'Sleep until the alarm clock in <<alarm1>> hours <<alarm2>> minutes':
		 cls
		 inSleep=1
		 :markson
		 needminut=60-minut
		 sec+=needminut*60
		 son+=3
		 gs'stat'
		 if son>=23 or alarm1=hour and alarm2=minut:
		 inSleep=2
		 gt $locBroom, $metkaBroom
		 else
         jump 'markson'
         end
		 end
     end
     
     act 'Sleep as you want':
     cls
     inSleep=1
     :markson
     needminut=60-minut
	 sec+=needminut*60
	 son+=3
	 gs'stat'
     if son<23:jump 'markson'
     inSleep=2
     gt $locBroom, $metkaBroom
     end
end

if budon=1:
'Service on the wound <<alarm1>> hours <<alarm2>> minutes'
     act 'disable Service':budon=0&gt $curloc
else
     act 'enable Service':budon=1&gt $curloc
end

act 'Set the alarm time':gt 'saunabud'


act 'Get out of bed':sec+=5&gt $locBroom, $metkaBroom
--- saunabed ---------------------------------

# saunabud


dynamic $budilnik
act 'enable Service':budon=1&gt 'saunabed'


--- saunabud ---------------------------------

# saunaroom
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom=1
'<center><B><font color=maroon>room</font></B></center>'
'<center><img src="pic/saunaroom.jpg" ></center>'
'The room barely cleaned <a href="exec:sec+=30&GT ''saunabed''">bed</a> and <a href="exec:GT ''loker'',''start''">cupboard</a>.'
'On the wall hangs <a href="exec:GT ''mirror'',''start''">mirror</a>'
if money>0 and workDolg>0:workDolg-=money&money=0
if workDolg>0:'Your duty is <<workDolg>> rubles'

     act 'Go to the sauna':gt 'saunawork'


if workDolg>0:
     act 'There are in debt(5 min)':
     cla
     *clr
     minut+=5
     workDolg+=50
     set health = health + 30
     set manna = manna + 100
     energy = 20
     water = 20
     fat+=50
     salo+=1
     frost=0
     gs'stat'
     '<center><img src="pics/food.jpg" ></center>'
     'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
     act 'Get up from the table':gt $curloc
     end
     
     act 'Borrow cosmetics':
     workDolg+=1000
     set kosmetica = kosmetica + 25
     gt $curloc
     end
end

if water<20:
     act 'drink':
     cla
     set minut = minut + 5
         if water >= 20:
         'Water in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a glass of water.'
         set water = water +20
         end
     act 'Get up from the table':gt $curloc
     end
end

















--- saunaroom ---------------------------------

# saunawhore
set saunaWorkKlient=1
set guy+=1
set slutty+=1
set bj+=1
dynamic $venerasiak
gs'boy'
$namev='customer'
set whorerand=RAND(1,22)
set minut+=15
set SaunaWhore+=1
gs'stat'
'<center><img src="sauna/bj<<whorerand>>.jpg" ></center>'
'You are logged in to the sauna with the client, he undressed, You also Section.'
'You fell on his knees in front of the customer and took in his mouth his flaccid penis, working on your jaw member and quickly rose to become stronger <<dick>> centimeters.'
'You diligently sucking dick clasping his own <<$liptalk>> and felt as if every move hard cock fills your mouth to the throat.'
if dick<=12:'Member is not very large and you are constantly poke his nose into kinky sucking dick pubis to the base and hairy balls hit you on the chin.'
if dick>12 and dick<=15:'Member with every movement pulls up to your throat.'
if dick>15:'Member too big for your mouth and you suck at it so much, how you allowing your mouth sucking it up to the neck and head processing language.'
!dynamic $saunadinsexbefore
if dick>15:saunarand=RAND(0,100)

if dick>15 and saunarand>90:
'The client wanted what would you do to him a deep blowjob.'
     act 'deep throating':
	 cls
	 minut+=45
	 sweat+=1
	 mop=0
	 throat+=1
	 gs'stat'
	 whorerand=RAND(1,34)
	 '<center><img src="sauna/deep<<whorerand>>.jpg" ></center>'
	 'You have become deeply absorb into your mouth dick, member ran into your throat, you tried to expand it and swallowed the dick, there was nothing to breathe and tears flowed, drool and snot, you pulled a member of the throat and rested, and then began again to pull his mouth <<dick>> inch dick, standing as the count, Finally throat slightly adapted and you could find the pace in which swallowed a member. Throat burned with fire, carcasses flowed over his eyes, nose snot ran down the face, Finally the client groaned and finished in a condom.'
	 act 'Take money from a client and go':money+=1500&saunaWorkNow=1&gt'saunawork'
	 end
end

if dick<=15 or saunarand<=90:
'Client distracting you from work and wanted to mouth sex.'
	 act 'further':
	 cls
	 whorerand=RAND(0,100)
		 if whorerand<=80:
		 cls
		 minut+=45
		 sex+=1
		 pose=0
		 sweat+=1
		 gs'stat'
		 whorerand=RAND(1,23)
		 '<center><img src="sauna/sex<<whorerand>>.jpg" ></center>'
		 'The client will put you in position'
		 if prezik<=0:prezik+=1&workDolg+=50&'You took the condom out of the total pack, knowing that in this with you deduct 50 rubles.'
		 gs'orgazm','start'
		 act 'Take money from a client and go':money+=1000&saunaWorkNow=1&gt'saunawork'
		 end
		 if whorerand>80:
		 cls
		 minut+=45
		 sweat+=1
		 gs'stat'
		 whorerand=RAND(1,23)
		 '<center><img src="sauna/anal<<whorerand>>.jpg" ></center>'
		 'The client wanted you in the ass, you smeared with grease points and framed their work back to the client.'
		 if prezik<=0:prezik+=1&workDolg+=50
		 lubonus=5
		 dynamic $analsex
		 'Finally the client groaned and finished in a condom.'
		 prezik-=1
		 act 'Take money from a client and go':money+=2000&saunaWorkNow=1&gt'saunawork'
		 end
	 end
end











--- saunawhore ---------------------------------

# saunawork
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom=1
if paymamka=0:paymamka=300
if workDolg>0:paymamka=300
if workDolg<=0:paymamka=500
gs'stat'
'<center><B><font color=maroon>sauna</font></B></center>'
'<center><img src="pic/sauna1.jpg" ></center>'
'On the walls full of <a href="exec:GT ''mirror'',''start''">mirrors</a>.'
if saunaWorkNow=1:
	 set saunaWorkNow=0
	 set money-=paymamka
	 'To you approached the nurse and took with you <<paymamka>> rubles per customer.'
	 end
if money>0 and workDolg>0:workDolg-=money&money=0
if workDolg>0:'Your duty is <<workDolg>> rubles'
gs'stat'
if workDolg<=0:act 'Get_Away':gt 'sauna'
if workDolg>0:act 'Go to your room':gt 'saunaroom'

if hour>8 and hour<12 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=80:saunaWorkKlient=1
end
if hour>=12 and hour<16 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=50:saunaWorkKlient=1
end
if hour>=16 and hour<21 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=10:saunaWorkKlient=1
end
if hour>=21 and whorehour!hour:
whorehour=hour
saunaWorkKlient=1
end

if saunaWorkKlient=1:
cls
gs'stat'
'<center><img src="pic/saunawhore.jpg" ></center>'
'In the sauna came client, girls lined up whatever the client can choose your favorite.'
     if mop>1 and hapri=1 and sweat<=0 and leghair<=0 and lobok<=0:
     whorerand=RAND(0,25)
         if whorerand<vnesh:
         'Client jabbed a finger at you "Here is the."'
             act 'Go to the sauna with the client':saunaWorkKlient=0&gt 'saunawhore'
         else
         'Client examined critical glance and you turned away chose another girl.'
         act 'Go_Out':saunaWorkKlient=0&gt $curloc
         end
     else
     'Looking at your client immediately turned away and chose another girl.'
     act 'Go_Out':saunaWorkKlient=0&gt $curloc
     end
exit
end

if vnesh=-10 or SLomka>0:
cls
gs'stat'
workDolg+=1500
'You beckoned nurse. "Hey."'
'You approached her and demanded that she expose your hand. You have done the required and she took a syringe with some rubbish. "sit quietly, Now do a shot and bring you to the normal view."'
act 'Go_Out':StrongNarkota+=25&SNarkTimes+=1&minut+=10&gt $curloc
exit
end

	 act 'Sitting on the couch (1 h)':
	 cls
	 minut+=60
	 gs'stat'
	 '<center><img src="pic/saunawork.jpg" ></center>'
	 'You are within an hour sitting on the couch waiting for customers.'
	 act 'Go_Out':gt $curloc
	 end

     if clenerSauna ! day:
         act 'clean toilets (1 h)':
         cla
         *clr
         set minut = minut + 60
         set clenerSauna = day
         set manna = manna - 25
         workDolg-=100
         set sweat = sweat + 3
         '<center><img src="pic/clener2.jpg" ></center>'
         'You are within an hour scrubbed toilets in the sauna to shine.'
         act 'Go_Out':gt $curloc
         end
     end
     
     if clenerSauna2 ! day:
         act 'scrubbing floors (1 h)':
         cla
         *clr
         set minut = minut + 60
         set clenerSauna2 = day
         set manna = manna - 25
         workDolg-=100
         set sweat = sweat + 3
         '<center><img src="pic/clener1.jpg" ></center>'
         'You are within an hour scrubbed floors mop to shine.'
         act 'Go_Out':gt $curloc
         end
     end
     
     act 'take a shower 15 min':
     cla
     *clr
     set minut = minut + 15
     set sweat = -3
     set horny = horny + 1
     set hapri = 0
     set mop = 1
     dynamic $showerdin
     if frost>0:frost=0
     '<center><img src="pics/dush.jpg" ></center>'
     'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
          act 'get razor':dynamic $saunabrit
         
         if horny >= 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = 0
             set minut = minut + 30
             set mastr = mastr + 1
             set orgasm = orgasm + 1
			 set manna = manna + 15
			 set willpower = willpower + 15
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
             act 'Out of the bathroom and get dressed':gt $curloc
             end
         end
         if horny >= 40 and hormy < 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = horny + 5
             set minut = minut + 30
			 set manna = manna + 10
			 set willpower = willpower + 10
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. First, but after a while it became even as it hurts. Excitation asleep and you stop masturbating.'
             act 'Out of the bathroom and get dressed':gt $curloc
             end
         end
         
     act 'Out of the bathroom and get dressed':gt $curloc
     end

$saunabrit={
cls
'You rinsed the razor, blade which will suffice for <<stanok>> time.'
     if leghair > 0:
		 act 'shave your legs 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set leghair = -5
		 set horny = horny + 5
		 '<center><img src="pics/shave.jpg" ></center>'
		 'You lathered up and shaved off the hair with them.'
		 act 'postpone the machine':dynamic $saunabrit
		 end
     end
     if lobok > 0:
		 act 'Shaved 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set lobok = -5
		 set horny = horny + 5
		 '<center><img src="pics/shave3.jpg" ></center>'
		 'You lathered pubis, then shaved off his hair all.'
		 act 'postpone the machine':dynamic $saunabrit
		 end
     end

act 'Out of the bathroom and get dressed':gt $curloc
}











































































--- saunawork ---------------------------------

# shop
if $ARGS[0]='start':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$icecreem={
if hour >= 8 and hour <= 20:
cls
set minut+=3
'Ice cream for the offer 50 rubles.'
act 'Get out of the department':gt'shop','start'
     if money>=50:
         act 'Buy ice cream':
         cls
         money-=50
         fat+=50
         manna+=500
         water= 20
         energy= 20
         perkice+=1
         gs'stat'
         !icecreem
         '<center><img src="pic/icecreem.jpg" ></center>'
         'You bought ice cream and ate it without moving away.'
         act 'Get out of the department':gt'shop','start'
         end
     end
else
'Counter with ice cream closed'
end
}
$sofood={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','food'
else
'The department is closed'
end
}
$socosm={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','cosm'
else
'The department is closed'
end
}
$sohos={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','hos'
else
'The department is closed'
end
}
$soclo={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','clo'
else
'The department is closed'
end
}
$soteh={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','teh'
else
'The department is closed'
end
}
$sobank={
if hour >= 8 and hour <= 20:
	 if karta > 0:
		 act 'To withdraw money':
		 cla
		 set minut = minut + 5
		 kartaOUT = input ("How much money you want to withdraw?")
			 if kartaOUT <= 0 or kartaOUT > karta:
			 'Incorrect operation.'
			 else
			 set karta = karta - kartaOUT
			 set money = money + kartaOUT
			 'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
			 end
			 
		 act 'move_away':gt'shop','start'
		 end
	 else
	 'You do not have a bank card'
	 end
else
'ATM disabled'
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>supermarket</font></B></center>'
'<center><img src="pic/shop.jpg" ></center>'
'In the hall stands <a href="exec: dynamic $sobank ">ATM</a>, from which you can withdraw money unless you have them in the bank.'
'The greatest place in the supermarket occupies <a href="exec: dynamic $sofood ">grocery department</a>, but the store there are departments <a href="exec: dynamic $socosm ">cosmetics</a>, <a href="exec: dynamic $sohos ">economic</a>, <a href="exec: dynamic $soclo ">clothing</a>, and the Department of <a href="exec: dynamic $soteh ">household appliances</a>. Not far from the entrance stands <a href="exec: dynamic $icecreem ">counter with ice cream</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if $loc='gorodok':
     if week<6:
         if hour>=8 and hour<16:
		 'Your sister <a href="exec:SiSonWork=1&GT ''sister''">Anya</a> sits at the checkout.'
		 end
     end
end


if $loc='street':
set evrand = RAND (1,100)
if evrand >= 95 and dimaQW = 0:
     'In the lobby of the store you looking appreciatively what that man.'
     act 'Look at it':gt'event','dima'
     end
     
if evrand >= 95 and dimaQW = 1:
	 'In the lobby of the store you notice Dima and binds you fear, you can not move.'
	 act 'Look at it':gt'event','scoreslut1'
	 end
	 
if evrand>=95 and dimaqw=2:
	 'You met the same Dima who entertained with boyfriend fucking you. Dima arrogant grin came to you and said hello.'
	 act 'Greet':
		 cla
		 'Come to me, I was not at home wife said Dima.'
		 act 'No':gt'shop','start'
		 act 'Let`S_Go':
			 cla
			 *clr
			 Set gostrand = RAND (1,2)
			 if gostrand = 1:
				 cla
				 Set sex = sex + 1
				 Set oral = oral + 1
				 Set throat = throat + 1
				 Set cumlip = cumlip + 1
				 set swallow=swallow+1
				 Set horny = 0
				 'Dima took you to his house and there has ordered you to kneel. You knelt down and he calling you a bitch and huesoska began to fuck you in the mouth.'
				 '<center><img src="pics/gostDT2.jpg" ></center>'
				 'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
				 act 'go home':gt 'street'
				 end
			 if gostrand = 2:
				 cla
				 Set sex = sex + 1
				 Set anal = anal + 1
				 Set cumass = cumass + 1
				 Set spank=spank+1
				 Set boom=5
				 Set horny = 0
				 'Dima took you to his home and straight into the hallway you started kissing and undressing. After he section you he took you to the bathroom. There he sat you in the bathroom and unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema .'
				 '<center><img src="pics/gostAnal2.jpg" ></center>'
				 'Dima long you fucked in the ass and beat palms, you first it was painful, but gradually you are logged in taste and began to catch the buzz, Finally your ass filled with hot liquid and moan Dima grabbed your buttocks.'
				 act 'go home':gt 'street'
				 end
			 end
		 end
	 end
end
     if hour >= 8 and hour <= 20:
     'The store crowds of shoppers.'
         if TorgPredZ>0:
             if $loc='street':
                 if StreetShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     StreetShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
             if $loc='Nord':
                 if nordShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     nordShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
             if $loc='down':
                 if downShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     downShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
         end 
     else
	 'shop is closed.'
     end
     
     act 'Leave the store':gt $loc
end

if $ARGS[0]='food':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buyfood={
if hour >= 8 and hour <= 20:
     if money >= 50:
	 cla
	 *clr
	 set minut = minut + 15
	 portion = input ("How many servings you want to buy?")
		 if portion<=0:portion=1
		 if portion*50 > money:
		 'You do not have enough money.'
		 end
		 if portion*50 <= money:
		 set eda = eda + portion
		 set money = money - portion*50
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought food and paid the money to the cashier.'
		 end
	 act 'Move away from the counter':gt'shop','food'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyfood2={
if hour >= 8 and hour <= 20:
     if money >= 250:
	 cla
	 *clr
	 set minut = minut + 15
	 portion = input ("How many servings you want to buy?")
		 if portion<=0:portion=1
		 if portion*250 > money:
		 'You do not have enough money.'
		 end
		 if portion*250 <= money:
		 set edaD = edaD + portion
		 set money = money - portion*250
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought food and paid the money to the cashier.'
		 end
	 act 'Move away from the counter':gt'shop','food'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>grocery department</font></B></center>'
'<center><img src="pic/shop1.jpg" ></center>'
'<a href="exec: dynamic $buyfood ">One serving food - 50 RUB</a>
<a href="exec: dynamic $buyfood2 ">One serving of dietary food - 250 RUB</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'Get out of the department':gt'shop','start'

     if money>=300:
         act 'Buy biscuits for tea (300 r)':
         cls
         money-=300
         pranik+=10
         'You bought a bag of cookies that will last you ten times.'
         act 'Get out of the department':gt'shop','food'
         end
     end
     if money>=50 and bottle=0 and bag>0:
         act 'Buy a bottle of water (50 r)':
         cls
         money-=50
         bottle=1
         'You bought a bottle of water and put it in her purse.'
         act 'Get out of the department':gt'shop','food'
         end
     end
     if money>=100 and buterbrod=0 and bag>0:
         act 'Buy a sandwich (100 r)':
         cls
         money-=100
         buterbrod=1
         'You bought a sandwich and put it in her purse.'
         act 'Get out of the department':gt'shop','food'
         end
     end
     if money>=500 and wine=0 and bag>0:
         act 'Buy a bottle of wine (500 r)':
         cls
         money-=500
         wine=1
         'You bought a bottle of wine and put it in her purse.'
         act 'Get out of the department':gt'shop','food'
         end
     end
end

if $ARGS[0]='cosm':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buykosm={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*1000 > money:'You do not have enough money.'
	 if portion*1000 <= money:
		 set kosmetica += portion*50
		 set money = money - portion*1000
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You paid the cashier and bought cosmetics.'
		 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buystanok={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set stanok += portion*10
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought razor.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buykrem={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set krem += portion*20
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought sunblock.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buytampon={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*200 > money:'You do not have enough money.'
	 if portion*200 <= money:
	 set tampon += portion*20
	 set money = money - portion*200
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought tampons.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buyshampoo={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set shampoo += portion*30
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought shampoo.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>cosmetics department</font></B></center>'
'<center><img src="pic/shop2.jpg" ></center>'
'<a href="exec: dynamic $buykosm ">cosmetics - 1000RUB</a>
<a href="exec: dynamic $buystanok ">razor - 500 RUB</a>
<a href="exec: dynamic $buykrem ">Suntan cream - 500 RUB</a>
<a href="exec: dynamic $buytampon ">tampons - 200 RUB</a>'
'<a href="exec: dynamic $buyshampoo ">shampoo - 500 RUB</a>'
'handbag - 5sput
napkins 100r
beautician 1000r
comb 150r'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get out of the department':gt'shop','start'
     if money>=100 and bag>0:
         act 'Buy wipes (100 r)':
         cls
         money-=100
         salfetka+=10
         'You bought wipes and put them in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=1000 and bag>0:
         act 'Buy a portable makeup (1000 r)':
         cls
         money-=1000
         kosmetitka+=10
         'You bought a portable makeup bag and put it in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=150 and greben=0 and bag>0:
         act 'Buy a comb (150 r)':
         cls
         money-=150
         greben=1
         'You bought a comb and put it in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=5000 and bag=0:
         act 'Buy a handbag (5000 r)':
         cls
         money-=5000
         bag=1
         'You bought a handbag.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
end

if $ARGS[0]='hos':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buyfairy={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*100 > money:'You do not have enough money.'
	 if portion*100 <= money:
	 set fairy += portion*20
	 set money = money - portion*100
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought dishwashing detergent.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
$buyporoshok={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*250 > money:'You do not have enough money.'
	 if portion*250 <= money:
	 set poroshok += portion*30
	 set money = money - portion*250
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought laundry detergent.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
$buycltarelka={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*300 > money:'You do not have enough money.'
	 if portion*300 <= money:
	 set cltarelka += portion*5
	 set money = money - portion*300
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought a set of 5five plates.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>Household Division</font></B></center>'
'<center><img src="pic/shop3.jpg" ></center>'
'<a href="exec: dynamic $buyfairy ">Dishwashing liquid - 100 RUB</a>
<a href="exec: dynamic $buyporoshok ">washing powder - 250 RUB</a>
<a href="exec: dynamic $buycltarelka ">set of 5five plates - 300 RUB</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get out of the department':gt'shop','start'
end

if $ARGS[0]='clo':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Department of women`s clothing</font></B></center>'
'<center><img src="pic/shop4.jpg" ></center>'
'lingerie - 300 RUB
All women`s clothing on 2500 RUB'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'WITHDRAW FROM THE DIVISION':gt'shop','start'

if money >= 300:
	 act 'Buy lingerie 300 r.':
		 cla
		 *clr
		 portion = input ("How much you want to buy?")
		 if portion<=0:portion=1
		 if portion*300 > money:'You do not have enough money.'
		 if portion*300 <= money:
			 set clrbelo += portion
			 set money = money - portion*300
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You paid the cashier and bought underwear.'
			 end
		 act 'Move away from the counter':gt'shop','clo'
		 end
	 end
     if money >= 2000:
         act 'Buy a set of lingerie "week" 2000 r.':
         cla
         *clr
         set money = money - 2000
         set clrbelo+=7
         '<center><img src="pic/kassa.jpg" ></center>'
         'You paid the cashier and bought underwear.'
         act 'Move away from the counter':gt'shop','clo'
         end
     end
     
     if palto<2:
     'The store sells winter coat. 10000 RUB'
         if money>=10000:
             act 'Buy a winter coat':
             cla
             money-=10000
             palto=2
             $palto='winter coat'
             'You bought a coat.'
             act 'GO_OUT':gt'shop','clo'
             end
         
         end
     end
     
     if money >= 1000 and bikini < 1:
         act 'buy a swimsuit 1000 r.':
         cla
         *clr
         set money = money - 1000
         set bikini = 1
         '<center><img src="pic/kassa.jpg" ></center>'
         'You paid the cashier and bought a swimsuit.'
         act 'Move away from the counter':gt'shop','clo'
         end
     end
	 if money >= 2500:
	 
	     if profi[1] = 0:
			 act 'Inspect office clothes number1':
			 cla
			 *clr
			 '<center><img src="ode/profi1.jpg" ></center>'
			 'office clothes.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set profi[1] = 1
				 set profiH[1] = 60
				 set profiB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 if profi[2] = 0:
			 act 'Inspect office clothes number2':
			 cla
			 *clr
			 '<center><img src="ode/profi2.jpg" ></center>'
			 'office clothes.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set profi[2] = 1
				 set profiH[2] = 60
				 set profiB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if sarafan[1] = 0:
			 act 'Explore the colorful sundress':
			 cla
			 *clr
			 '<center><img src="ode/sarafan1.jpg" ></center>'
			 'simple sundress, its main advantage is its dimensionless.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set sarafan[1] = 1
				 set sarafanH[1] = 60
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if sarafan[2] = 0:
			 act 'Inspect light sundress':
			 cla
			 *clr
			 '<center><img src="ode/sarafan2.jpg" ></center>'
			 'simple sundress, its main advantage is its dimensionless.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set sarafan[2] = 1
				 set sarafanH[2] = 60
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[1] = 0:
			 act 'Inspect Black shorts with a purple T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short1.jpg" ></center>'
			 'Black shorts with a purple T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[1] = 1
				 set shortH[1] = 60
				 set shortB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[2] = 0:
			 act 'Inspect Black shorts with striped T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short2.jpg" ></center>'
			 'Black shorts with striped T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[2] = 1
				 set shortH[2] = 60
				 set shortB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[3] = 0:
			 act 'Inspect Black shorts with a black T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short3.jpg" ></center>'
			 'Black shorts with a black T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[3] = 1
				 set shortH[3] = 60
				 set shortB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[4] = 0:
			 act 'Inspect pink shorts with a pink T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short4.jpg" ></center>'
			 'pink shorts with a pink T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[4] = 1
				 set shortH[4] = 60
				 set shortB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[5] = 0:
			 act 'Inspect white shorts with a white bodice':
			 cla
			 *clr
			 '<center><img src="ode/short5.jpg" ></center>'
			 'white shorts with a white bodice.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[5] = 1
				 set shortH[5] = 60
				 set shortB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[1] = 0:
			 act 'Inspect the white skirt with a colorful blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt1.jpg" ></center>'
			 'White skirt with a colorful blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[1] = 1
				 set skirtH[1] = 60
				 set skirtB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[2] = 0:
			 act 'Inspect the black skirt with a red jacket.':
			 cla
			 *clr
			 '<center><img src="ode/skirt2.jpg" ></center>'
			 'Black skirt with a red jacket.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[2] = 1
				 set skirtH[2] = 60
				 set skirtB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[3] = 0:
			 act 'Inspect the white skirt with a striped T-shirt.':
			 cla
			 *clr
			 '<center><img src="ode/skirt3.jpg" ></center>'
			 'White skirt with a striped T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[3] = 1
				 set skirtH[3] = 60
				 set skirtB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[4] = 0:
			 act 'Inspect the black skirt under the skin, with red blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt4.jpg" ></center>'
			 'Black skirt under the skin, with red blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[4] = 1
				 set skirtH[4] = 60
				 set skirtB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[5] = 0:
			 act 'Inspect the black skirt, with a white blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt5.jpg" ></center>'
			 'black skirt, with a white blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[5] = 1
				 set skirtH[5] = 60
				 set skirtB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[1] = 0:
			 act 'inspect pants, with a blouse. number1':
			 cla
			 *clr
			 '<center><img src="ode/pants1.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[1] = 1
				 set pantsH[1] = 60
				 set pantsB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[2] = 0:
			 act 'inspect pants, with a blouse. number2':
			 cla
			 *clr
			 '<center><img src="ode/pants2.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[2] = 1
				 set pantsH[2] = 60
				 set pantsB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[3] = 0:
			 act 'inspect pants, with a blouse. number3':
			 cla
			 *clr
			 '<center><img src="ode/pants3.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[3] = 1
				 set pantsH[3] = 60
				 set pantsB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[4] = 0:
			 act 'inspect pants, with a blouse. number4':
			 cla
			 *clr
			 '<center><img src="ode/pants4.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[4] = 1
				 set pantsH[4] = 60
				 set pantsB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[5] = 0:
			 act 'inspect pants, with a blouse. number5':
			 cla
			 *clr
			 '<center><img src="ode/pants5.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[5] = 1
				 set pantsH[5] = 60
				 set pantsB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
     
	 end

end

if $ARGS[0]='teh':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buytv={
if hour >= 8 and hour <= 20:
     if money >= 5000 and TV < 1:
	 cla
	 *clr
	 set money = money - 5000
	 set TV = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a TV'
	 act 'Get_Away':gt'shop','teh'
	 elseif TV >0:
	 'Do you already have a TV'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buytv2={
if hour >= 8 and hour <= 20:
     if money >= 35000 and TV < 2:
	 cla
	 *clr
	 set money = money - 35000
	 set TV = 2
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a TV'
	 act 'Get_Away':gt'shop','teh'
	 elseif TV >1:
	 'Do you already have a TV'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buykomp={
if hour >= 8 and hour <= 20:
     if money >= 25000 and komp =0:
	 cla
	 *clr
	 set money = money - 25000
	 set komp = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a computer'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp>0:
	 'Do you already have a computer'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd2={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD2=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD2 = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD2>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd3={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD3=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD3 = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD3>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyposudmoi={
if hour >= 8 and hour <= 20:
     if money >= 50000 and posudomashina=0:
	 cla
	 *clr
	 set money = money - 50000
	 posudomashina=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a dishwasher'
	 act 'Get_Away':gt'shop','teh'
	 elseif posudomashina>0:
	 'You already have a dishwasher'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buystiralka={
if hour >= 8 and hour <= 20:
     if money >= 50000 and stiralka=0:
	 cla
	 *clr
	 set money = money - 50000
	 stiralka=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a washing machine'
	 act 'Get_Away':gt'shop','teh'
	 elseif stiralka>0:
	 'You already have a washing machine'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyzenit={
if hour >= 8 and hour <= 20:
     if money >= 10000 and zenit=0:
	 cla
	 *clr
	 set money = money - 10000
	 zenit=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a camera'
	 act 'Get_Away':gt'shop','teh'
	 elseif zenit>0:
	 'Do you already have a camera'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyminifoto={
if hour >= 8 and hour <= 20:
     if money >= 40000 and minifoto=0:
	 cla
	 *clr
	 set money = money - 40000
	 minifoto=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a mini camera'
	 act 'Get_Away':gt'shop','teh'
	 elseif minifoto>0:
	 'You already have a mini camera'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>Department of home appliances</font></B></center>'
'<center><img src="pic/shop5.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if TV=0:'<a href="exec: dynamic $buytv ">Not a big TV with a kinescope can buy 5000 RUB</a>'
if TV!2:'<a href="exec: dynamic $buytv2 ">Large plasma TV can be bought for 35000 RUB</a>'
if komp=0:'<a href="exec: dynamic $buykomp ">computer costs 25000 RUB</a>'
!'<a href="exec: dynamic $buycd ">Computer game Disopl 500 RUB</a>'
if GameCD2=0:'<a href="exec: dynamic $buycd2 ">Computer game Sunset Dead 500 RUB</a>'
!'<a href="exec: dynamic $buycd3 ">Computer game Albida 500 RUB</a>'
if posudomashina=0:'<a href="exec: dynamic $buyposudmoi ">Dishwasher can buy 50000 RUB</a>'
if stiralka=0:'<a href="exec: dynamic $buystiralka ">Washing machine can be purchased for 50000 RUB</a>'
if zenit=0:'<a href="exec: dynamic $buyzenit ">The camera can be purchased for 10000 RUB</a>'
if minifoto=0:'<a href="exec: dynamic $buyminifoto ">Mini camera disguised as a cigarette pack can be purchased for 40000 RUB</a>'
act 'Get out of the department':gt'shop','start'
end
--- shop ---------------------------------

# trashplace
$bomzstartqwestdi={
'-Well. see, You`re a good man, but with financial problems. I here you have several times seen, and heard, what they say about you. I know one part time. The work is not dusty, but a little risky. Now all I will not tell, just ask: You have your passport with residence permit have local?'
act 'Yes_I_Am, there_is.':
	 cls
	 minut+=15
	 gs'stat'
	 gs'time'
	 'Yes_I_Am, there_is. So when you tell about the work?'
	 '-not here. Drove to the center, there you explain everything.
	 One of the ways to the center passes near the abandoned building, and you are determined to, that if a man will go through it,  once you use the excuse about the iron and hurriedly removed. 
	 But to your surprise. You reminded him, about their financial problems, but he just waved his hand. In the subway , and the cashier start a conversation
	 -hello, uncle Kolya, decided to take a ride - she asked, handing him a badge. 
	 -Yes, affairs, affairs. Here_It_Is, helping people - Uncle Nick nodded at you - you can throw another zhetonchik?
	 -No problem, Only a word to anyone, - she said, wink.
	 -Ok, ok, good_luck, Nastya, Hi Barbara Anikeevne.
	 -Yes_I_Am, give at the meeting.'
	 act 'In the subway.':
		 cls
		 minut+=15
		 gs'stat'
		 'You went down to the subway and get to the center. You walk to porn-studio.'
		 if film>0 and pfilmNO=0:
			 'A, so about the salary I already know
			 -think, porn studio only by a pussy you can trade? - said with a grin Uncle Kolya - there are other ways to earn there.'
			 elseif pfilmNO=1:
			 'I have come here, but I refused
			 -think, porn studio only by a pussy you can trade? - said with a grin Uncle Kolya - there are other ways to earn there. You`re only as an actress begged?'
			 else
			 'Do_Not, porn studio I`m not going, look for another job
			 -think, porn studio only by a pussy you can trade? - said with a grin Uncle Kolya - there are other ways to earn there.'
			 end
		 act 'Log in to the manager.':
			 cls
			 minut+=15
			 if pornstudio=0:pornstudio=1
			 gs'stat'
			 if film>0:
				 'hello <<$pfname>>.'
				 else
			     'You on any issue?'
			     end
			 'Here in the dialogue interrupted Uncle Kolya
  -remember, you have here with delivery problems were
  -Yes_I_Am, were - said manager - and we will still not settled. tax presses, the majority of our people to engage in risky delivery.
  -so, brought this girl, I_think, able to help you with this problem.
  -And what guarantees?
  -so, passport it, and no one bothers you make inquiries.'
			 act 'So what kind of work?':
				 cls
				 minut+=15
				 gs'stat'
				 '-Transportation of goods and to pay for it. show your passport, and come next Thursday. If all goes well, we shall discuss the details. '
				 act 'Show your passport.':
					 cls
					 minut+=15
					 gs'stat'
					 if podozrenie>0:
						 'Uncle Nick comes to the manager and that-whispers something in his ear.'
						 if film>0:
							 'The manager laughed and said
							 -What are you, everything is checked. Normally she still there.'
							 else
							 'The manager looked at you and said
							 -We`ve got one question arose. suspicions have, that you do not quite... girl. produce-Single proofs.'
							 act 'How dare you? (get_away).':gt'down'
							 act 'show pussy.':
								 cls
								 set SUB = SUB + 1
								 set minut+=15
								 gs'stat'
								 if ski>0 or glamur>0:
									 'You lifted her skirt and showed her pussy.'
									 else
									 'You dropped his pants and showed her pussy.'
									 end
								 if tatvag=3:
									 'Loves black dicks, as I can see.'
									 end
								 if lobok<= 0:
									 if ski>0 or glamur>0:
										 '<center><img src="sauna/Lobokmenshe0NetTrusovYubka.jpg" ></center>'
										 else
										 '<center><img src="sauna/LobokMenshe0NetTrusovShtany.jpg" ></center>'
										 end
									 '-as a schoolgirl - remarked manager -everything, checked, Do not forget to come on Thursday. '
									 end
								 if lobok> 0 and lobok<= 2:
									 if ski>0 or glamur>0:
										 '<center><img src="sauna/LobokMenshe2Boloshe0NetTrusov.jpg" ></center>'
										 else
										 '<center><img src="sauna/LobokMenshe2more0EstTrusy.jpg" ></center>'
										 end
									 '-crew_cut, no head, no legs - remarked manager -everything, checked, Do not forget to come on Thursday. '
									 end
								 if lobok> 2:
									 if ski>0 or glamur>0:
										 '<center><img src="sauna/LobokBolshe2skirt.jpg" ></center>'
										 else
										 '<center><img src="sauna/LobokBolshe2pants.jpg" ></center>'
										 end
									 '-jungle name - remarked manager -everything, checked, Do not forget to come on Thursday. '
									 end 
								 act 'Get_Away.':bomzQW=1&gt'down'
								 end
							 end
						 else
						 'Manager override your data and put your passport. all, waiting for you on Thursday.'
						 end
					 act 'Get_Away.':bomzQW=1&gt'down'
				     end
				 act 'Thank_U, but I refuse (get_away).':bomzQW=-1&gt'down'
				 end
			 end
		 end
	 end
act 'uh, better not, she can handle.':bomzQW=-1&gt'street'
}

$workbomzdi={
cls
minut+=15
gs'stat'
'-We made вЂ‹вЂ‹inquiries about you, and decided, you come to us. That is the essence of: We give you a couple of drives, and deliver them to you in the sauna, there you are given an envelope, you bring it immediately to us. On his return get 5000. Shuttling necessary every Friday after the opening of the studio. If you agree, then passes on Friday unacceptable, choose safe mode of transport.'
act 'No, I do not fit (get_away).':bomzQW=-1&gt'down'
act 'Agree to work.':
	 cls
	 minut+=15
	 gs'stat'
	 '-Today you will take it to our people. In the future, t.to. Fridays control us strengthen, but watch out for each lonely girl, leaving us - too costly for them.'
	 act 'Ok, show_it.':
		 cls
		 workDisk=1
		 minut+=15
		 gs'stat'
		 'You slipped into the jeep, standing at the entrance, and you have brought to the sauna.'
		 if saunasex = 1:
			 'you recall, how you were brought into this sauna, but if you were so excited, that they could not remember anything sensible.'
			 elseif sauna>0:
			 'A sauna, you recall it, it is close to your home.'
			 else
			 'This sauna is located near your home, strangely, that you did not notice it before.'
			 end
		 'You went to the sauna, you submitted to local managers. You lucidly explained, who should deliver, and that the return envelope must be in the-day, when you gave him. Do not forget to remind once again about the use of secure transport. On this you goodbye until tomorrow.'
		 act 'Get_Away.':bomzQW=2&gt'street'
		 end
	 end
}

'<center><B>trashcan</B></center>'
'<center><img src="pic/musorka.jpg" ></center>'
'A long line of garbage cans from which carries per kilometer shamefully hidden small iron fence.'
clr
gs'stat'
gs'time'

if bumtolik=2:bumtrand=RAND(0,100)
if bumtolik=2 and bumtrand>=90:
     cls
     gs'stat'
     gs'time'
     '<center><img src="pic/musorka.jpg" ></center>'
     'Do you see a homeless person who gave the last time money. he smiles, hand gesture does not run away and goes to you so that-say something. 
	 -girl, you`ll excuse me, do not be afraid, Hear what I say?'
	 act'hear_out':gt 'musorkaexh','pos8'
	 end

if bumtolik=3:temp=RAND(0,100)
if bumtolik=3 and hour >= 6 and hour <= 20 and temp>=80:
     cls
     gs'stat'
     gs'time'
     '<center><img src="etogame/bumt2.jpg" ></center>'
     'You see a girl feed the homeless.'
     'The_Stranger: - girl, excuse_me, please take a picture for the report, I help the unfortunate.'
     *nl
	 'You have been awkward to refuse and you photographed the girl on her camera.'
	 act'Ask for what she need':gt 'musorkaexh','pos9'	 	
	 end

if musor>0:
	 act 'throw garbage':
		 musor=0
		 cls
		 '<center><img src="pic/musorka.jpg" ></center>'
		 'You throw trash in the trash.'
		 if bumtolik = 0:
			 '"oh, what!" - resounded from-for tanks.'
			 'You were frightened by surprise.'
			 act'See who is said':gt 'musorkaexh','pos2'
		 elseif bumtolik = 1:
			 '"hey, babe, Come here, old man shew service!" - you hear, impudent rattle.'
			 'This is the old bum, you saw the last time.'
			 act 'Look at the homeless':gt 'musorkaexh','pos3'
			 end			
		 act 'Move away from the tank':gt $CURLOC
		 end 	
	 end
if bomzQW=0:bomzrand=RAND(0,100)
if bomzrand>=80 and hour<=16 and bomzQW=0 and week!4:
     cls
     gs'stat'
     gs'time'
     '<center><img src="sauna/bomz.jpg" ></center>'
     'When did you start to move away from tanks, a man came up to you and croaked homelessly form. 
	 -girl, 300 rubles for a cultural holiday not toss?'
	     if money>=300:
		     act 'Yes_I_Am, keep':
             cls
             money-=300
			 gs'stat'
			 'You gave money to the homeless .'
			 act 'Get_Away':gt'street'
             end
         end
         
         act 'No':
         cls
         gs'stat'
		 gs'time'
             if daystart<10 or sex<=2:
			 'I would gladly, but the money and not very. Damn, like already accustomed to the new body, but watch your tongue with difficulty. -himself? Are you, pidorok?'
                 act 'No':
				 cls
				 gs'stat'
				 podozrenie+=1
				 'No, what do you, simply misspoke.A guy looked at you with suspicion.'
				 dynamic $bomzstartqwestdi
				 end
			 else
             'I would gladly, but that kind of money and not very.'
             dynamic $bomzstartqwestdi
             end
         end
         
         act 'Beat_It':
         cls
         bomzQW=-10
         gs'stat'
		 '-In vain you so rude with me. I did a lot of where I go, and I know a lot of things. May come back to haunt you so unresponsive. 
With these words.'
		 act 'Get_Away':gt'street'
		 end
	 exit
     end
act 'Get_Away':gt'street'
--- trashplace ---------------------------------

# torgpred
gs'stat'
'<center><B><font color=maroon>trade mission</font></B></center>'
'<center><img src="pic/clener.jpg" ></center>'
'Not a big room in which there are office desks and other office equipment. In the office there is a door that says "director"'
'One of the tables sits Stas, for other Vitali, for the third table sits a girl Chief Accountant.'

act 'GO_OUT':gt'clener','start'


if SVqw=2:
     if TorgPredDay!day:
         if TorgPredZ=0 and TorgPredZV=0:
             act 'take the job':
             cls
             TorgPredZ=3
             minut+=5
             TorgPredDay=day
             gs'stat'
             '<center><img src="pic/clener.jpg" ></center>'
             'You have come to Stas for job. He smiled and handed you the paper. "do not forget. Supermarkets three pieces. You need to arrange the items in all supermarkets."'
             act 'GO_OUT':gt'clener','start'
             end
         end
     end
     
     
     
	 if TorgPredZ=0 and TorgPredZV=3:
		 act 'get money':
		 cls
		 TorgPredZV=0
		 minut+=5
		 money+=500
		 TPworkTimes+=1
		 gs'stat'
		 '<center><img src="pic/clener.jpg" ></center>'
		 'You have come to Stas for money. He smiled and handed you 500 rubles'
		     if StasikSex=0:
		         if TPworkTimes>=3 and TPmainQW=0 and mesec = 0:
		             if ski>0 or glamur>0:
					 'Stas asked with interest "Well?"'
						 act 'Very_Well!':
						 cls
						 TPmainQW=1
						 minut+=5
						 gs'stat'
						 '<center><img src="pic/clener.jpg" ></center>'
						 'You answered Stas that everything is fine and he smiled. "Our company only develops, and intelligent man there will be a place better. By_The_Way, let`s go to the cafe, you have not stamped for work."'
							 act 'agree':
							 cls
							 minut+=15
							 gs'stat'
							 '<center><img src="pic/clener.jpg" ></center>'
							 'You had to agree, because all of your new job and prospects depend on Stas. Stas and made you happy in the cafe, along the way talking about work. CafГ© Stas gallantly pushed to you chair.'
							 act 'sit':gt'StasQW'
							 end
						 end
						 
						 act 'so-so.':
						 cls
						 TPmainQW=1
						 minut+=5
						 gs'stat'
						 '<center><img src="pic/clener.jpg" ></center>'
						 'You answered Stas that so-so and he grinned. "Our company only develops, and intelligent man there will be a place better. By_The_Way, let`s go to the cafe, you have not stamped for work."'
							 act 'agree':
							 cls
							 minut+=15
							 gs'stat'
							 '<center><img src="pic/clener.jpg" ></center>'
							 'You had to agree, because all of your new job and prospects depend on Stas. Stas and made you happy in the cafe, along the way talking about work. CafГ© Stas gallantly pushed to you chair.'
							 act 'sit':gt'StasQW'
							 end
						 end
					 end
		         exit
		         end
		     end
		     if TPmainQW=1:
				 if StasikSex>0 and StVaGang=0:
				 !Light gave Stas, he did not consider her a whore, and wants to continue the relationship
				 ''
				 
				 end
				 if StasikSex=0:
				 !Light refused Stas, Stas is not happy and is all in the bank
				 ''
				 
				 end
		     end
		     if StVaGang>0:
		     !Stas and Valera believe whore Light
		     ''
		     
		     end
		 act 'GO_OUT':gt'clener','start'
		 end
	 end
	 
	  if TPmainQW=1 and StasikSex>0 and StVaGang=0:
		'In view of Stas clearly glimpsed joy, when he sees you. in_a_low_voice, to not hear his colleagues are busy, it offers you to continue your relationship and start dating.'
		 if bfa >= 1: 'you think, that your current boyfriend is unlikely to please, you accept this offer. Stas, of_course, very nice, but you first need to understand their current relationship.'
		 if bfa < 1:
		     act 'agree':
			 'You answered Stas consent, to which he beamed and promised to call you back shortly.'
			 TPmainQW=2
			 $boy='Stas'
			 boybodyrand = 1
			 $boybody = 'high'
			 boybodrand = 1
			 $boybod = 'thin'
			 boyfacerand = 3
			 $boyface = 'blond'
			 dick=15
			 silavag=1
			 harakBoy=1
			 finance = 1
			 vneshBoy=1
			 $boyClo = 'dressed in jeans and a sweater.'
			 set figurBoy = RAND (0,2)
			 set titBoy = RAND (0,2)
			 set haerBoy = RAND (0,3)
			 izvrat = 0
			 gs'boyfrend','start'
			 stopboy = 0
			 bfa=70
			 boyonceA = 1
			 cla
			 gs'stat'
			 act 'GO_OUT':gt'clener','start'
		     end
		 end
		 
		 act 'I need to think':
		 'You answered Stas, you will find it very much, but you are not ready to give an answer, and ask him a little-just wait. Stas frowns, but accepts your answer.'
		 cla
		 act 'GO_OUT':gt'clener','start'
		 end
		
		 act 'Contribute':
		 TPmainQW=2
		 'You quite sharply denied Stas, what he is offended: "Oh well! I-thought, we have that-something more, than an occasional census."'
		 cla
		 gs'stat'
		 act 'GO_OUT':gt'clener','start'
		 end
	 end

end












--- torgpred ---------------------------------

# StasQW
gs'stat'
if StasKafe=2:
'<center><img src="qwest/sosed/kafe2.jpg"></center>'
'After the dance. He immediately began to kiss you and you feel his hand again penetrated under your skirt began to caress your clitoris. Stas you whispered in your ear "Come to you or can have fun in the toilet?"'
	 act 'Come to me!':
	 cls
	 gs'stat'
	 '<center><img src="qwest/sosed/kafe2.jpg"></center>'
	 'Stas sweeping gesture threw the money to the waitress, then rose from his chair and gave you a hand. Leaning on his hand .'
	     act 'go':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/sosed/go.jpg"></center>'
		 'Not quite sure from drunk step you`re headed home, Stas gallantly picked up under your hand and led you home, You showed him the way home. Finally you come to your home, Stas escort you to the apartment and when you opened the door he literally dragged you in your apartment.'
		 act 'further':SStip=0&gt'StasSex'
		 end
	 end
	 
	 !sex in the toilet with Stas
	 
	 
end
if StasKafe=1:
'<center><img src="qwest/sosed/kafe.jpg"></center>'
'After the dance, The waitress brought the bill. You look at the figure and slightly stunned. five thousand! Stas took the paper out of your hands and you said "do not worry, I will pay."'
     if money>=5000:
         act 'no thanks, I myself pay.':
         cls
         money-=5000
         gs'stat'
         '<center><img src="qwest/sosed/kafe.jpg"></center>'
         'You get the money and paid the waitress. Stas stood up and gave you a hand. Leaning on his hand .'
             act 'go':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/sosed/go.jpg"></center>'
			 'Not quite sure from drunk step you`re headed home, Stas gallantly picked up under your hand and led you home, You showed him the way home. Finally you come to your home, Stas escort you to the apartment and apparently expects, you invite him.'
			     act 'To invite':SStip=0&gt'StasSex'
			     
			     act 'say_goodbye':
			     cls
			     gs'stat'
			     'You said goodbye with Stas and he sighed sadly and went down.'
			     act 'close the door':gt'korr'
			     end
			 end
         end
     end
     
	 act 'Oh this is so cute!':
	 cls
	 gs'stat'
	 '<center><img src="qwest/sosed/kafe.jpg"></center>'
	 'you happy, do not have to pay for a cafe and Stas sweeping gesture threw the money to the waitress, then rose from his chair and gave you a hand. Leaning on his hand .'
	     act 'go':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/sosed/go.jpg"></center>'
		 'Not quite sure from drunk step you`re headed home, Stas gallantly picked up under your hand and led you home, You showed him the way home. Finally you come to your home, Stas escort you to the apartment and apparently expects, you invite him. You get crushed on the doorstep, thinking like otshit Stas, but looking at it you feel indebted to him, he found you a job, he forked over cafe, though it was your duty and put it over the threshold you just can not.'
		 act 'To invite':SStip=0&gt'StasSex'
		 end
	 end
     
end
if StasKafe=0:
'<center><B><font color=maroon>cafe</font></B></center>'
'<center><img src="pic/kafe.jpg" ></center>'
'You sat down on a chair and a master`s Stas beckoned the waitress. When the waitress came . Order quickly and brought Stas poured champagne by the glass. "Come for familiarity."'
	 act 'A toast to familiarity':
	 cls
	 minut+=5
	 horny+=5
	 gs'stat'
     '<center><img src="qwest/sosed/kafe.jpg"></center>'
     'You drank champagne and Stas started telling funny stories pouring champagne in glasses.'
         act 'Drink and chat':
		 cls
		 minut+=60
		 horny+=15
		 water=24
		 energy=24
		 salo+=2
		 fat+=20
		 gs'stat'
		 '<center><img src="qwest/sosed/kafe.jpg"></center>'
		 'You are relaxed and sipping champagne listening to stories which you regaled Stas. for chatter, you do not even notice how Stas ordered another bottle and another. Finally you realize, that already typed decently. Here in the cafe zairala music and Stas rising from his chair gallantly handed you a hand offering dance.'
		     act 'dance':
			 cls
			 minut+=1
			 horny+=10
			 gs'stat'
			 '<center><img src="qwest/sosed/dance.jpg"></center>'
			 'You went to the dance floor and Stas hugged you and you began to dance. His hands while dancing slowly slipped from the waist to the hips and you began to stroke them. Did you feel like your hand Stas squeezed soft ass.'
			     if horny<100:
					 act 'Raise his hands above':
					 cls
					 minut+=1
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/sosed/dance.jpg"></center>'
					 'You took his hands and raised them Stas again to your waist. Stas only smiled wider and again his hands began to crawl to you on the ass.'
					     if horny<100:
							 act 'Again raise his hands above':
							 cls
							 minut+=1
							 horny+=10
							 gs'stat'
							 '<center><img src="qwest/sosed/dance.jpg"></center>'
							 'Once again you have Stas hands and raised them on your waist. Stas apparently only covered by this passion and he began gently stroking your back smoothly down your hands on the ass. Finally the dance ended.'
							 act 'Sit down':StasKafe=1&gt $curloc
							 end
						 end
						 
						 act 'dance':
						 cls
						 minut+=1
						 horny+=20
						 gs'stat'
						 '<center><img src="qwest/sosed/dance2.jpg"></center>'
						 'You continued to dance and Stas became inflamed shove your hands under her skirt. Soon Stas felt your panties and ran my hand. You captured excitement when Stas felt a small bump your clitoris and began to caress him. Suddenly the dance ended, but Stas was not going to sit at the table back'
						     act 'Sit down':StasKafe=2&gt $curloc
						 end
						 
					 end
				 end
				 
				 act 'dance':
				 cls
				 minut+=1
				 horny+=20
				 gs'stat'
				 '<center><img src="qwest/sosed/dance2.jpg"></center>'
				 'You continued to dance and Stas became inflamed shove your hands under her skirt. Soon Stas felt your panties and ran my hand. You captured excitement when Stas felt a small bump your clitoris and began to caress him.'
				 		 if horny<100:
							 act 'Raise his hands above':
							 cls
							 minut+=1
							 horny+=10
							 gs'stat'
							 '<center><img src="qwest/sosed/dance.jpg"></center>'
							 'Once again you have Stas hands and raised them on your waist. Stas apparently only covered by this passion and he began gently stroking your back smoothly down your hands on the ass. Finally the dance ended.'
							 act 'Sit down':StasKafe=2&gt $curloc
							 end
						 end
						 
						 act 'dance':
						 cls
						 minut+=1
						 horny+=20
						 gs'stat'
						 '<center><img src="qwest/sosed/dance2.jpg"></center>'
						 'You continued to dance and Stas became inflamed shove your hands under her skirt. Soon Stas felt your panties and ran my hand. You captured excitement when Stas felt a small bump your clitoris and began to caress him. Suddenly the dance ended, but Stas was not going to sit at the table back'
						     act 'Sit down':StasKafe=2&gt $curloc
						 end
				 end
			 end
		 end
	 end
end










--- StasQW ---------------------------------

# StasSex

if SStip=0:
minut+=5
horny+=10
gs'stat'
'<center><img src="qwest/sosed/stas.jpg"></center>'
'You entered the apartment and Stas razuvshis, immediately dug his lips to yours and you feel his hands covered your breasts started to caress them and compress. He`s not stopping to caress you, led to your bedroom.'
     act 'Go to the bedroom.':
	 cls
	 gs'stat'
	 '<center><img src="qwest/sosed/pov.jpg"></center>'
	 'Stas dropped you on the bed and began to undress you without stopping to caress your breasts and undress himself.'
	     act 'further.':
	     cls
	     if StasikSex>0:StasikSex+=1
		 if StasikSex=0:StasikSex=1&guy+=1
		 !if ValeraSex=0:ValeraSex=1&guy+=1
		 !gang+=1
		 minut+=15
		 gs'stat'
		 '<center><img src="qwest/sosed/sex.jpg"></center>'
		 'You are relaxed and began to enjoy the caress breasts and pussy.'
		 $boy='Stasik'
		 dick=15
		 silavag=1
		 pose = 0
		 !dynamic $sexstart
		 'You feel like a body Stasik expanded the your legs and rested his hard cock into your soft, expiring pussy juice.'
		 dynamic $sexstart2
		 !dynamic $sexcum
		 set cumpussy = cumpussy + 1
         '<<$boy>> groaned and you feel like a jet of sperm hit you inside your body.'
             if tabletki <= 0 and mesec <= 0:
             gs'preg'
             set manna = manna - 15
             set willpower = willpower - 15
             'Damn, because after all, you thought with horror.'
             end 
             
		     act 'breathe.':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/sosed/aftersex.jpg"></center>'
			 'Stas tears with you and is located near stroking your chest hand. From your pussy slowly follows the sperm mixed with your vaginal juices. Stas said apologetically "I`m sorry that you had finished, could not resist." He reached out and began to get out of bed. "Well I have to go Svetsik."'
			 act 'Hold up the door.':gt'korr'
			 end
		 end
	 end
end
--- StasSex ---------------------------------

# billiard
$sexloc = $CURLOC
cla
*clr
gs 'stat'
'<center><B>billiard</B></center>'
'<center><img src="img/centr/bil.jpg" ></center>'
'Quite a large billiard, there are many tables in the hall, but there are tables in separate cubicles.'

act 'Get_Away':gt'torgcentr'
if hour >= 8 and hour <= 20:
if money>=250:
	 act 'play 250 rubles per hour':
		 set money-=250
		 set billiardnav+=rand(0,3)
		 set minut+=60
		 set billrand=rand(0,5)
		 set billvar=0
		 if billrand=0:
			 cla
			 'To the guy for you and offers to play with him'
			 if money>=1000:act 'Play for Money, rate 1000':gt 'billiard','randwin'
			 if DOM>20 and strapon=1:
				 act 'Play on your ass, lose fuck me':
					 set billvar=1
					 gt 'billiard','randwin'
					 end
				 end
			 act 'Get_Away':gt'billiard'
			 end
		 if billrand=1:
			 cla
			 'It is right for you and offer a couple of guys to play with them'
			 if money>=1000:act 'Play for Money, rate 1000':gt 'billiard','randwin'
			 if DOM>20 and strapon=1:
				 act 'Play on your ass, lose fuck me':
					 set billvar=2
					 gt 'billiard','randwin'
					 end
				 end
			 act 'Get_Away':gt'billiard'
			 end
		 if billrand>1:
			 cla
			 'You played billiards'
			 act 'Get_Away':gt'billiard'
			 end
		 end
	 end
if money>=300:
	 act 'Play for Money':
		 set money-=300
		 set minut+=60
		 set billvar=3
		 gt 'billiard','randwin'
		 end
	 end
end

if $ARGS[0] = 'randwin':
cla
if billiardnav<10:set billwin=rand(0,10)
if billiardnav>=10 and billiardnav<20:set billwin=rand(0,12)
if billiardnav>=20 and billiardnav<30:set billwin=rand(0,14)
if billiardnav>=30 and billiardnav<40:set billwin=rand(0,16)
if billiardnav>=40 and billiardnav<50:set billwin=rand(0,18)
if billiardnav>=50 and billiardnav<60:set billwin=rand(0,20)
if billiardnav>=60 and billiardnav<70:set billwin=rand(0,22)
if billiardnav>=70 and billiardnav<80:set billwin=rand(0,24)
if billiardnav>=80 and billiardnav<90:set billwin=rand(0,26)
if billiardnav>=90:set billwin=rand(0,28)
if billwin>10 and billvar=0:
	 set money+=1000
	 'You won and received 1000 RUB.'
	 act 'Get_Away':gt'billiard'
	 end
if billwin>10 and billvar=1:
	 *clr
	 set DOM+=5
	 '<center><img src="img/centr/strapon.jpg" ></center>'
	 'you won, put the strap, and looked at the guy: "Well stand stoop, Today you`re my bitch"
The guy dropped his pants and got cancer, You fucked his threesome.'
	 act 'Get_Away':gt'billiard'
	 end
if billwin>10 and billvar=2:
	 set DOM+=8
	 '<center><img src="img/centr/strapon.jpg" ></center>'
	 'You won clothed strapon, and looked at the guys: "Come on girls get down and get up coward in all"
You fucked them all one by one.'
	 act 'Get_Away':gt'billiard'
	 end
if billwin<=10 and billvar=0:
	 set money-=1000
	 'You lost and paid 1000 RUB.'
	 act 'Get_Away':gt'billiard'
	 end
if billwin<=10 and billvar=1:
	 'you lost, have to push the legs.'
	 set picrand=16
	 act 'pay':xgt'sex','var'
	 end
if billwin<=10 and billvar=2:
	 'you lost, have to push the legs.'
	 act 'pay':gt 'paysex','var'
	 end
if billwin>10 and billvar=3:
	 set money+=300
	 'You won and received 300 RUB.'
	 act 'Get_Away':gt'billiard'
	 end
if billwin<=10 and billvar=3:
	 !set money-=300
	 'You lost and paid 300 RUB.'
	 act 'Get_Away':gt'billiard'
	 end
end

if $ARGS[0] = 'start':
'<center><B>billiard</B></center>'
'<center><img src="img/centr/bil.jpg" ></center>'
act 'Get_Away':gt'billiard'
end

--- billiard ---------------------------------

# billsvid
set minut+=60
set bilrand=0
set manna+=10
set bilsvidukiy=0
set bilsvidkiy=0
gs 'stat'
'<center><B>billiard</B></center>'
'<center><img src="img/bilsvid/0.jpg" ></center>'
'you and <<$telsob>> rented a booth'
act 'play':
	 if $telsob = 'Alla':
		 set alla+=1
		 if alla>=20:
			 set bilrand=RAND(0,10)
			 if bilrand>0 and bilrand<3:gt 'billsvid','1'
			 if bilrand>2 and bilrand<5:gt 'billsvid','2'
			 if bilrand=0 or bilrand>4:gt 'billsvid','3'
			 end
		 if alla<20:gt 'billsvid','3'
		 end
	 if $telsob = 'Masha':
		 set masha+=1
		 if masha>=20:
			 set bilrand=RAND(0,10)
			 if bilrand>0 and bilrand<3:gt 'billsvid','1'
			 if bilrand>2 and bilrand<5:gt 'billsvid','2'
			 if bilrand=0 or bilrand>4:gt 'billsvid','3'
			 end
		 if masha<20:gt 'billsvid','3'
		 end
	 if $telsob = 'katya':
		 set kat+=1
		 if kat>=20:
			 set bilrand=RAND(0,10)
			 if bilrand>0 and bilrand<3:gt 'billsvid','1'
			 if bilrand>2 and bilrand<5:gt 'billsvid','2'
			 if bilrand=0 or bilrand>4:gt 'billsvid','3'
			 end
		 if kat<20:gt 'billsvid','3'
		 end
	 end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/bilsvid/1.jpg" ></center>'
'When you are once again bent over the table to strike, <<$telsob>> podozhla back and slipped her hands on your hips, back and stopped on the chest.'
act 'not now <<$telsob>>':gt 'billsvid','3'
act 'kiss her':
	 cla
	 *clr
	 set lesbian+=1
	 '<center><img src="img/bilsvid/2.jpg" ></center>'
	 'You turned around and kissed her, in reply <<$telsob>> quickly took off her clothes, stole everything from you and throwing you jumped on the table top, continuing to kiss.'
	 act 'Make her Cooney':gt 'billsvid','10'
	 act 'Cooney':gt 'billsvid','11'
	 end
end

if $ARGS[0] = '10':
cla
*clr
'<center><img src="img/bilsvid/4.jpg" ></center>'
'You put her cancer to the table, and themselves opustivshs on his heels pressed his lips to her pussy. You kissed her and caressed the tongue until it is finished.'
act 'Cooney':gt 'billsvid','11'
if bilsvidkiy=0:act 'Play with cue':gt 'billsvid','12'
if bilsvidukiy=0:act 'Ask her to play with cue':gt 'billsvid','13'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="img/bilsvid/3.jpg" ></center>'
'You stood by the table legs spread, and <<$telsob>> dropping to his knees in front of you kissed your pussy, but her tongue could not bring you to the desired state.'
act 'Make her Cooney':gt 'billsvid','10'
if bilsvidkiy=0:act 'Play with cue':gt 'billsvid','12'
if bilsvidukiy=0:act 'Ask her to play with cue':gt 'billsvid','13'
end

if $ARGS[0] = '12':
cla
*clr
set bilsvidkiy=1
'<center><img src="img/bilsvid/6.jpg" ></center>'
'<<$telsob>> climbed on the table and spread her legs wide. Picking up a cue stick and you licked Medley inserted it in her vagina. <<$telsob>> podmahivala carefully to the beat of your movements and a few minutes later collapsed on the table shuddering in orgasm.'
if bilsvidukiy=0:act 'Ask her to play with cue':gt 'billsvid','13'
act 'End_Up':gt 'billsvid','3'
end

if $ARGS[0] = '13':
cla
*clr
set orgasm += 1
set vagina += 1
set bilsvidukiy=1
'<center><img src="img/bilsvid/5.jpg" ></center>'
'You sat on the edge of the table, throwing one leg on the table and handed it to the cue, "Get into the pocket?". <<$telsob>> smiled, and demonstrotivno spending tongue rukoyadke cue, quickly put it to you pussy, You already screamed from surprise. While she diligently fuck you cue, turning it into different directions, you are massaging her clit with a finger. After a few minutes of pleasant languor spread over your body, and for a moment you were disconnected from the cover with your orgasm.'
if bilsvidkiy=0:act 'Play with cue':gt 'billsvid','12'
act 'End_Up':gt 'billsvid','3'
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/bilsvid/10.jpg" ></center>'
'During the game <<$telsob>> constantly trying you hugged, it will hand over the hips, then accidentally touch a breast.'
act 'continue to play':gt 'billsvid','3'
act 'kiss her':
	 cla
	 *clr
	 set lesbian+=1
	 '<center><img src="img/bilsvid/11.jpg" ></center>'
	 'when <<$telsob>> once again put her hand on your stomach, You moved up closer to her and kissed, her hand immediately slid under your clothes and stood on his chest.'
	 act'Resume':
		 cla
		 *clr
		 '<center><img src="img/bilsvid/12.jpg" ></center>'
		 '<<$telsob>> knelt down and taking off your clothes started kissing down below your crotch, while her tongue under your pussy.'
		 act 'lick it':
			 cla
			 *clr
			 '<center><img src="img/bilsvid/13.jpg" ></center>'
			 'Lifting her knees with her вЂ‹вЂ‹face you have deployed to the table and lifted her leg on the table, began to kiss her pussy, then caressing tongue, then sucking in her lips.'
			 act 'Resume':
				 cla
				 *clr
				 '<center><img src="img/bilsvid/14.jpg" ></center>'
				 'Unfolding her to face him, you put it on the table and spread her legs continued to caress pussy tongue until it is finished.'
				 act 'Give her to lick':
					 cla
					 *clr
					 '<center><img src="img/bilsvid/15.jpg" ></center>'
					 'when <<$telsob>> finished, You climbed on the table and positioned her pussy right in front of her face, <<$telsob>> immediately began to caress her, fingers parted lips she tried to thrust deeper language.'
					 act'lick it':
						 cla
						 *clr
						 set orgasm += 1
						 '<center><img src="img/bilsvid/16.jpg" ></center>'
						 'You turned around so that her pussy was over the face, and have started to lick her pussy, after a few minutes you feel as her body trembled and <<$telsob>> groaning, strongly pressed against your pussy, and then you have shrouded pleasant wave of orgasm.'
						 act 'End_Up':gt 'billsvid','3'
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut+=60
gs 'stat'
'When you`re finished playing <<$telsob>> said that she had to flee and left'
act 'Get_Away':gt'torgcentr'
end
--- billsvid ---------------------------------

# bordel
$sexloc = $CURLOC
gs 'stat'
'<center><B>brothel</B></center>'
'<center><img src="img/centr/bordel.jpg" ></center>'
     if vnesh>=0 and vnesh<25:
	 '"You look at yourself, for such a product no one will pay yourself up and return."'
	 act 'Get_Away':gt'down'
	 end
     if vnesh<0:
	 '"Listen, you have some sort of infection, go to undergo treatment."'
	 act 'Get_Away':gt'down'
	 end
if vnesh>=25:act 'In the room':gt 'bordel','start'

if $ARGS[0]='start':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><B>Your room in a brothel</B></center>'
'<center><img src="img/centr/borroom.jpg" ></center>'
'In a brothel and a lot of competition in order to avoid massacre introduced a rule, yet no more than two per day'
'In the middle stands a huge bed, a side door into a small <a href="exec:GT ''bordel'',''dysh''">bath</a>.'
act 'Get_Away':
	 if odetero=0:gt 'down'
	 if odetero>0:
		 cla
		 'You need to change into his clothes.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
	 end
     act 'Go to the gym, wait for customers':
	     if odetero=0:
		 cla
		 'You need to change into-something more suitable, in the cabinet in the bathroom all have.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
		 
	     if cumbelly>0 or cumpussy>0 or cumass>0 or cumlip>0 or cumface>0 or cumfrot>0 or cumanus>0 or mop<2 or leghair>0 or lobok>0 or sweat>0 or hapri=0:
		 cla
		 'You need to freshen up.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
		 
	 if cumbelly=0 and cumpussy=0 and cumass=0 and cumlip=0 and cumface=0 and cumfrot=0 and cumanus=0 and odetero>0 and mop>1 and leghair<1 and lobok<1 and sweat<1 and hapri>0:gt'bordel','var'
	 end
end

if $ARGS[0]='dysh':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><img src="img/centr/bordysh.jpg" ></center>'
act 'In the room':gt 'bordel','start'
     act 'bathroom':
	 set bordysh = 1
	 gt'vann','start'
	 end
	 
     act 'mirror':
	 set borMir = 1
	 gt'mirror','start'
	 end
	 
     act 'Cabinet for clothes':
	 set borLoker = 1
	 gt'loker','start'
	 end
end

if $ARGS[0]='var':
if borsexkol>=2:gt 'bordel','start'
set minut+=30
set borrand=rand(0,10)
     if borrand=0:
	 'Customer ordered a girl, price 1000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sex','start'
		 end
	 end
     if borrand=1:
	 'Customer ordered two girls, price 1000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'podrsex','start'
		 end
	 end
     if borrand=2:
	 'Two customers have ordered one girl, price 1500 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1500
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sexdvoe','start'
		 end
	 end
     if borrand=3:
	 'Two clients have ordered two girls, price 1500 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1500
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sexdvanadva','start'
		 end
	 end
     if borrand=4:
	 'Customer group ordered one girl, price 2000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=2000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'paysex','start'
		 end
	 end
     if borrand>4:
	 'You will not have chosen.'
	 act 'Leave the room':gt 'bordel','start'
	 act 'wait another':gt 'bordel','var'
	 end
end
--- bordel ---------------------------------

# bordelv
cla
*clr
set minut+=30
set horny+=20
gs'stat'
'<center><B><font color=maroon>Room with a mirror</font></B></center>'
'<center><img src="img/centr/bvika1.jpg" ></center>'
'Vick walks you through what that yards, and entered into an inconspicuous door you find a large room vnitri, here scurrying girls dressed as if they were not at all and clothing, not giving you a look around Vic drags you down the hall, Finally she gets you to a small room where. "Stay here" she says.
You sit in a chair and look through the glass is a room with a large bed. "This brothel" flashed through your mind, "And I`m in the room for voyeurs".
While you`re pondering proiskhodyazhee entered the room Wick, dressed in a pink combination, and lay on the bed.
She looked at you through the glass with one hand and massaged her pussy through her panties. Looking at it you feel like you are covers excitement.'
act 'View more':
	 cla
	 *clr
	 set horny+=20
	 set picrand=2
	 '<center><img src="img/centr/bvika2.jpg" ></center>'
	 'A few minutes later entered the room , Vic jumped out of bed and stood up on his knees between them to get them members, continuing to look in your direction . You like zavorezhennaya looked in her mouth then disappears then one other member, she continued to diligently meet men not taking GLA from the mirror, from her view your pussy strongly moisturizing and demand attention.'
	 act 'escape':gt'bordelv','out'
	 act 'View more':gt'bordelv','sex'
	 end

if $ARGS[0]='sex':
cla
*clr
set minut+=10
set picrand=rand(3,7)
set dviksex+=1
horny+=20
gs'stat'
'<center><img src="img/centr/bvika<<picrand>>.jpg"></center>'
'You continued to look like men fuck Vick, They twirled it as something like alternately entering her pussy, then hammering her anus, or included in dvoem. Vic moaned and struggled podmahivala them, she always tried to stay as a mirror to see, even though you knew that she can not see you, but it seemed to you that she is watching you.'
act 'view more':gt'bordelv','sex'
if dviksex>=3:act 'End_Up':gt'bordelv','end'
end

if $ARGS[0]='end':
cla
*clr
set minut+=10
set horny=0
set orgasm+=1
gs'stat'
'<center><img src="img/centr/bvika8.jpg"></center>'
'When the men were satisfied, Vick again knelt down and sperm spurted in her mouth, on the face and chest, In spite of this you feel as your body begins to tremble potemnolo you in the eyes and nice waves you covered. When you re-opened zlaza, men are already out and Wick and sat on the floor flooded with sperm, Now she tried not to look in your direction. Finally sobravis the forces she got up and left the room.'
act 'wait':
	 cla
	 *clr
	 '<center><img src="img/centr/bvika9.jpg"></center>'
	 'A few minutes later the door opened and entered the room Wick, She closed the door and you are left in the dark, you vidili only her silhouette. Vick stood silently waiting for your response.'
	 if slutty=0:
		 act 'called a whore':
			 cla
			 '"slut" it is perhaps the only more or less censorship word that you said, from the rest of the words you are in shock, How do you know all this. When you have finished swear they heard a quiet vskhlypyvanie, Vic crying.'
			 act 'Get_Away':
				 set vika=0
				 set vikaend=1
				 gt'street'
				 end
			 act'calm her':
				 cla
				 set vika+=5
				 'You started to calm her saying, they did not want to hurt her and that have told all this to you because it was a shock. Wick close to you and you hug her, soon she stopped crying and saying that it should be back to work take you to the exit.'
				 act 'Get_Away':gt'street'
				 end
			 end
		 end
	 if slutty>0:
		 act 'reassure':
			 cla
			 set vika+=5
			 '"Why are you so worried, think it works in a brothel, I also earned a couple of times pushing the legs." calmly told you.
			 Vick gasped with relief "And I worried that you do not understand, Well I need to work, go take you" saying it, Vick led you to exit.'
			 act 'Get_Away':gt'street'
			 end
		 act 'Ask about work':
			 cla
			 set vika+=5
			 set bordel=1
			 '"And I arrange to work here, I know how much." asked you.
			 Vick gasped with relief "And I worried that you do not understand, I say good administrator, but I can not guarantee it can not take. And now I need to work, go take you" saying it, Vick led you to exit.'
			 act 'Get_Away':gt'street'
			 end
		 end
	 end
end

if $ARGS[0]='out':
cla
*clr
set minut+=20
gs'stat'
'<center><img src="img/centr/bordel.jpg"></center>'
'You vyskachil out of the room like a scalded and rushed to the door, you thought, but opening the door in another room vidili, which also "worked" girl, slammed the door rushed to the next, and again the room. You were running through the corridors, all doors vygledeli same and you either like it was not possible to find a way, when you `re desperate, who-then put your hand on his shoulder, turned you saw Vic, it just came out of the room and stood naked in front of you, her face and chest were smeared with sperm.
"light wait, you promised to talk"
"Where is the fucking output, slut" you cried.
Vick looked at you, you noticed how her lips and in her eyes zadrazhali navarachivalis tears "Over_There" she said, point you to one of the doors, barely holding back that would not cry.'
act 'Get_Away':
	 set vika=0
	 set vikaend=1
	 gt'street'
	 end
act'calm her':
	 cla
	 set vika+=5
	 'You started to calm her saying, they did not want to hurt her and that have told all this to you because it was a shock. Wick close to you and you hug her, soon she stopped crying and saying that it should be back to work take you to the exit.'
	 act 'Get_Away':gt'street'
	 end
end
--- bordelv ---------------------------------

# bouling
$sexloc = $CURLOC
gs 'stat'
'<center><B>bowling</B></center>'
'<center><img src="img/centr/boul.jpg" ></center>'

act 'Get_Away':gt'torgcentr'
if hour >= 8 and hour <= 20:
act 'play 300 rubles per hour':
	 if money<300:'You have no money'
	 if money>=300:
		 set money-=300
		 set boulingnav+=rand(0,3)
		 set minut+=60
		 set boulrand=rand(0,9)
		 set boulvar=0
		 if boulrand=0:
			 cla
			 'For you fit two guys and offer to play with them'
			 act 'Play for Money, rate 2000':set boulvar=1&gt 'bouling','randwin'
			 act 'Get_Away':gt'torgcentr'
			 end
		 if boulrand=1:
			 cla
			 'For you fit two girls and offer to play with them against two guys, prize 5000, at a loss of sex.'
			 act 'play':set boulvar=2&gt 'bouling','randwin'
			 act 'Get_Away':gt'torgcentr'
			 end
		 if boulrand>1:
			 cla
			 'You played billiards'
			 act 'Get_Away':gt'torgcentr'
			 end
		 end
	 end
if money>=300:
	 act 'Play for Money':
		 set money-=300
		 set minut+=60
		 set boulvar=0
		 gt 'bouling','randwin'
		 end
	 end
end

if $ARGS[0] = 'randwin':
cla
if boulingnav<10:set boulwin=rand(0,10)
if boulingnav>=10 and boulingnav<20:set boulwin=rand(0,12)
if boulingnav>=20 and boulingnav<30:set boulwin=rand(0,14)
if boulingnav>=30 and boulingnav<40:set boulwin=rand(0,16)
if boulingnav>=40 and boulingnav<50:set boulwin=rand(0,18)
if boulingnav>=50 and boulingnav<60:set boulwin=rand(0,20)
if boulingnav>=60 and boulingnav<70:set boulwin=rand(0,22)
if boulingnav>=70 and boulingnav<80:set boulwin=rand(0,24)
if boulingnav>=80 and boulingnav<90:set boulwin=rand(0,26)
if boulingnav>=90:set boulwin=rand(0,28)
if boulwin>10 and boulvar=1:
	 set money+=2000
	 'You won and received 2000 RUB.'
	 act 'Get_Away':gt'torgcentr'
	 end
if boulwin>10 and boulvar=2:
	 set money+=5000
	 'You won and received 5000 RUB.'
	 act 'Get_Away':gt'torgcentr'
	 end
if boulwin<=10 and boulvar=1:
	 set picrand=14
	 if money>=2000:
		 'You lose and have to pay 2000 RUB.'
		 act 'suggest kind': xgt'sexdvoe','var'
		 act 'pay':
			 set money-=2000
			 gt'torgcentr'
			 end
		 end
	 if money<2000:
		 'you lost, but you have no money to pay, only one payment method.'
		 act 'in_kind': xgt'sexdvoe','var'
		 end
	 end
if boulwin<=10 and boulvar=2:
	 set picrand=11
	 'you lost, have to push the legs.'
	 act 'pay':gt 'sexorg','var'
	 end
if boulwin>10 and boulvar=0:
	 set money+=300
	 'You won and received 300 RUB.'
	 act 'Get_Away':gt'torgcentr'
	 end
if boulwin<=10 and boulvar=0:
	 !set money-=300
	 'You lost and paid 300 RUB.'
	 act 'Get_Away':gt'torgcentr'
	 end
end

if $ARGS[0] = 'start':
'<center><B>bowling</B></center>'
'<center><img src="img/centr/boul.jpg" ></center>'
act 'Get_Away':gt'bouling'
end
--- bouling ---------------------------------

# house
$metkaM = $ARGS[0]
$locM = $CURLOC
cla
*clr
'<center><B>apartment</B></center>'
'<center><img src="img/centr/house.jpg" ></center>'
if tanwork=1:'This apartment Tanya stepfather you work here.'
set tanhouse1=1
set minut+=5
gs 'stat'
if nik>30 and niksvid=2 and hour>12 and hour<19:gt 'house','razb'
act 'In the bathroom':gt'vann','start'
act 'the kitchen':gt'kitchen'
act 'In my bedroom':gt'spalnya'
act 'In the master bedroom':gt'hozspal','start'
act 'In the room':gt'housezal'
act 'In room Thani':gt'tanroom','start'
if nude=0:act 'on the street':gt'down'
if tanwork=1:
	 act 'resign':
		 set tanuvol=1
		 set tanwork=0
		 set work=0
		 gt 'down'
		 end
	 end


if $ARGS[0]='razb':
cla
*clr
set minut+=90
set guy+=1
set bj+=1
set sex+=1
set swallow+=1
set cumlip+=1
set cumface+=1
set lesbian+=1
'<center><img src="img/th/h1.jpg" ></center>'
'Walking down the hall  "Light Come here." You enter the room it is worth the hostess. You walk up to it and wait, what she says. Noticing that you looked in the direction of the men she says "This is my personal chauffeur, and part-time security guard". You inspect it and notice sticking out from under his jacket rukoyadku, "Hardly a toy gun" think you, and she continued.
"so, I want that-Would you now carefully remembered, I`ll tell you, but to be sure of this " With these words she vskhvatila you by the hair and pulled her. You first want to sink his nails into her face, but then decided not to risk, not for nothing that she brought the guard, Meanwhile.
"You little whore decided to withdraw my husband. What do you eyes pilkaesh, think I do not know whose ass he fuck. So remember that my purse, not yours and I`ll strangle the bitch. What he fuck my little daughter I do not care let fuck young meat, but still here, but you`re not wanted here. Even know that you give him your point you substitute, you put them in there and shotgun trigger descend. Do you understand the creature?" she finished, you nodded in response.
"Ok, and now I will punish you that I knew how to touch other people`s things." With these words she pulled your hair down, you bent down, and she told you to kneel.'
act'up':
	 cla
	 *clr
	 '<center><img src="img/th/h2.jpg" ></center>'
	 'You knelt down and the hostess said to you "Take off your pants", you pulled to his feet "And not with yourself dumbass, shoot with me and lick" she laughed. You pulled off her panties and when she sat on the couch legs wide apart, started to lick her pussy, you`re really trying, periodically, anxiously glancing at the guard, sitting next to a stony face and staring at you. After a few minutes of your efforts have borne fruit and hostess shuddering all over richly finished, you are not waiting for the order to begin its allocation slichyvat. She looked at you and grinned "Whether you`re a clean Lesbian prices do not you been, that delicious, I see that delicious, Well that all lapped up, and now her ass Turn to, so as to be" she said as she got cancer on the couch, continuing to hold your hair.'
	 act'carry_On':
		 cla
		 *clr
		 '<center><img src="img/th/h3.jpg" ></center>'
		 'You clung to her ass, began to caress her anus language. "Let`s try, inside and do not forget" she laughed. You tried to push his tongue inside, but the move you could not, and you began to push his gradual, when he finally was inside her anus, you start moving them back and forth, literally fucking her ass tongue. On top of her buttocks you saw the guard who has watched with interest for you. You start to initiate an event, you looked at it on the top of the buttocks and the hostess caught myself thinking that you want to-he now came from behind and took you. Seeing your interest hostess stop you. "Now take off your clothes" she commanded.'
		 act'undress':
			 cla
			 *clr
			 '<center><img src="img/th/h4.jpg" ></center>'
			 'You quickly took off his clothes and threw it in the corner sat on the couch. "Now we are going to teach you to do blowjob" she said. She sat back in the seat next to you, the one hand. At first, you immediately grasped his lips and began laskt, then it has introduced more and started to move them back, this_way. You tried licked artificial member, his eyes fixed on the support of the, you thought that you have between your legs fountain, your thighs were wet and sofa under your ass . "Yes" she cried, "But it is too early, you`re still not really learned how to suck" With that. You tried to swallow it, but from the first time you could not, hostess pushed him further and you had no choice but to try again. You swallowed it and she moved it further, He was about one meter in length and in your throat disappeared for a good third of its. She took him by giving you catch my breath again and sent to you in the mouth, this time you swallowed it immediately began to introduce his mistress deeper and deeper, as a result of you sticking only head dildo. "That`s Throat" cried the landlady. She led him so, what-it would vskhvatitsya and started to fuck you to them, you felt like he was moving inside of you and you is only a factory, sometimes it outputs it, giving you breath, and again pounded the entire length and move, not carefully and with decent speed. Finally she got sick "Now check what you have learned. Sergei, Skidan pants, now you will be doing a blowjob with swallow." she said. Security guard did not take long to quickly stood up and unbuttoned his pants pulled has long standing member.'
			 act'Take by mouth.':
				 cla
				 *clr
				 '<center><img src="img/th/h5.jpg" ></center>'
				 'Without waiting for orders you jumped to the floor and vskhvatili his cock mouth. "nimble nipple" said the lady sitting down next, she put her hand on your head and pressed, you will immediately understand what she wants from you, and swallowed it down your throat dick, so that the nose rested in his pubis, and on his balls banging podbordku. "Now take out the tongue and lick eggs" she commanded, lifting his balls to your mouth, you will not be easily taken out a little tongue and began to tickle his balls, until the end of the air. A little breathless again you repeat the whole procedure, but when you swallowed the third time, he took you by the head and began to fuck in the throat, you ran his hand between her legs and began to caress the clitoris. In the process of all this. "And now straddled him and fuck" she commanded, security guard let your head and sat down on the sofa.'
				 act'begin':
					 cla
					 *clr
					 '<center><img src="img/th/h6.jpg" ></center>'
					 'You without hesitation jumped on him, quickly entering his cock in her pussy, you started to move her hips rapidly gaining pace. The hostess posnivala you a couple of minutes and set aside the phone sat down and began to bestow you a spanking on the buttocks, you do not even notice, before the eyes of all swam, you rode out on a limb closer to the coveted orgasm, when you have finished it fell on him and could not continue. "That fizzled slut" she said, you did not care you almost do not hear her voice, naslozhdenie you would not let. "jaws open, trash." she cried.'
					 act'open your mouth':
						 cla
						 *clr
						 '<center><img src="img/th/h7.jpg" ></center>'
						 'You opened your mouth, guard insert the member, while she was holding your head by the hair, but do nothing you could not, and he took a member. "Here is a creature" cursed mistress and taking dick in his hand in his mouth naprvila, she sucked his dildo at the same time keeping your head with a second hand, Soon she released his mouth and sent you on your face. The jet of sperm hit you in the face, part hit in the mouth. Worth it to let your head, you collapsed on the floor, the hostess took the phone, photographed several times you all dressed in semen and went out with security guard. You were left lying on the floor, later kakoeto time you came to their senses and rising Strood, pulled on her clothes.'
						 act 'In the corridor':gt'house'
						 end
					 end
				 end
			 end
		 end
	 end
end

--- house ---------------------------------

# housezal
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>hall</B></center>'
'<center><img src="img/centr/housezal.jpg" ></center>'
set minut+=5
gs 'stat'
act 'In the corridor':gt'house'
set housezalrand=rand(0,10)
if week <6 and hour>8 and hour<20:
	 act 'get_out':
		 cla
		 set minut+=60
		 gs'stat'
		 if hour<14 and housezalrand=1 and houserab=1:
			 cla
			 *clr
			 set SUB+=1
			 '<center><img src="img/centr/gosp6.jpg" ></center>'
			 'The hostess puts you on all fours, and the very top and you soditsya hour kata its room.'
			 act'Get_Away':gt'housezal'
			 end
		 if hour<14 and housezalrand=2 and houserab=1:
			 cla
			 *clr
			 set SUB+=1
			 '<center><img src="img/centr/gosp7.jpg" ></center>'
			 'The hostess lifts her skirt and pulls you whip whips you in the ass'
			 act'Get_Away':gt'housezal'
			 end
		 if hour<14 and housezalrand=3 and houserab=1:
			 cla
			 *clr
			 set SUB+=1
			 '<center><img src="img/centr/gosp8.jpg" ></center>'
			 'The hostess puts you on your knees and pulls a face to her pussy, You dutifully licks its she cums.'
			 act'Get_Away':gt'housezal'
			 end
		 if hour<14 and housezalrand=4 and houserab=1:
			 cla
			 *clr
			 set SUB+=1
			 set sex+=1
			 set orgasm+=2
			 set horny=0
			 '<center><img src="img/centr/gosp9.jpg" ></center>'
			 'The hostess puts you cancer and fuck your pussy threesome, simultaneously calling a whore, you begin to like it and so far it you fuck you several times to finish.'
			 act'Get_Away':gt'housezal'
			 end
		 if hour<14 and housezalrand=0 and houserab=0:
			 cla
			 *clr
			 '<center><img src="img/centr/gosp1.jpg" ></center>'
			 'As long as you remove the hostess tells you where and how to clean, you it is already rather fed up, but she did not let up in the end when you korachkah crawl on the floor with a rag something hurts her foot.
			 "Here you are a fool without rukaya, I soiled boots and well clean them quickly" she cried.
			 You vskhvatili clean rag and rubbed her boots.
			 "That`s stupid brainless, tongue cleaner, Well froze Come on"'
			 if DOM>10:act'silently exit':gt'house'
			 act 'lick':
				 cla
				 *clr
				 set SUB+=5
				 set houserab=1
				 '<center><img src="img/centr/gosp2.jpg" ></center>'
				 'You carefully lick her boots in the hope that these and end.
				 "You did not try to, have you flogged"'
				 act 'Stand in a pose':
					 cla
					 *clr
					 '<center><img src="img/centr/gosp3.jpg" ></center>'
					 'You get up from the couch and cancer lifts up her skirt, hostess begins to whip your ass, and you just squealed with each stroke.'
					 act'further':
						 cla
						 *clr
						 '<center><img src="img/centr/gosp4.jpg" ></center>'
						 'Finally she was tired, but has not yet completed "Here parazitka, from-for you I soiled panties, quickly erased" she said.
						 You vskhvatili soaking wet panties and intended to go to the bathroom when suddenly she stopped you:
						 "Where are you soaped, mouth wash" With these words she took your pants and shoved in your mouth. You diligently pretended that as you `re trying to wash her вЂ‹вЂ‹panties.'
						 act 'further':
							 cla
							 *clr
							 '<center><img src="img/centr/gosp5.jpg" ></center>'
							 '"That is done, you can because if you want to, lick here and now." With these words the mistress opened her legs. You dutifully began to lick her pussy, Soon she had finished and you diligently licked with her вЂ‹вЂ‹all the juice.'
							 act'Get_Away':gt'house'
							 end
						 end
					 end
				 end
			 end
		 if niksvid=1 and hour>17 and hour<20 and housezalrand<3 and niksexday ! day:
			 cla
			 *clr
			 '<center><img src="img/centr/nikzal1.jpg" ></center>'
			 'Get out while you are Nicholas is coming to you from behind and knelt to touch your butt starts.'
			 act'push_off':set nik-=1&gt'house'
			 act 'allow':
				 cla
				 *clr
				 set niksexday = day
				 set bj+=1
				 set anal+=1
				 set guy+=1
				 set nik+=1
				 '<center><img src="img/centr/nikzal2.jpg" ></center>'
				 'Not many polapat your ass he uses the language and you`re feeling as he caresses your anus, when he pushes it inside you relax his ass and wet tongue inside you Shchekotov.'
				 act 'Take by mouth':
					 cla
					 *clr
					 '<center><img src="img/centr/nikzal3.jpg" ></center>'
					 'You turn to him bend down to the crotch, pull out his cock and wrapped around his lips begin to suck, as soon as you feel that he is ready to cum then stop.'
					 act'Lie down on the sofa':
						 cla
						 *clr
						 '<center><img src="img/centr/nikzal4.jpg" ></center>'
						 ' leisurely, gently swinging her hips, you go to the sofa, Nicholas is up to you, You lie on your back and lift the hips, what-it is comfortable to enter you in the ass, his cock is too big for your ass and you still hurt, when he enters into you, but you are struggling trying not to show it .'
						 act 'further':
							 cla
							 *clr
							 '<center><img src="img/centr/nikzal5.jpg" ></center>'
							 'When you are the last effort to hold back screams of pain, his cock before cum blown and you scream in pain, realizing that you hurt Nicholas takes it and fills your ass sperm.'
							 act 'suck':
								 cla
								 *clr
								 '<center><img src="img/centr/nikzal6.jpg" ></center>'
								 'You get up to korachki and begin to lick fading member carefully lick the remnants of sperm, when suddenly he again poured, and once again stands ready for battle.'
								 act 'get cancer':
									 cla
									 *clr
									 '<center><img src="img/centr/nikzal7.jpg" ></center>'
									 'Seeing that he was ready to continue, you get up cancer, hands pushing the buttocks, Nicholas gently introduces cock in your ass and begins to move first Medley, then faster and faster, he no longer pays attention to the groans, it lasted about half an hour, You have already ceased to feel his anus when he finally finished you in the ass. This time vyreshili not take risks and do not clean his cock mouth, and then the third row of the anal you would not have taken out.'
									 act'further':
										 cla
										 *clr
										 set cumlip+=1
										 set cumass+=1
										 '<center><img src="img/centr/nikzal8.jpg" ></center>'
										 'While you were going with the forces still standing cancer, Nicholas came up to you and put in the ass twisted bill'
										     act'Withdraw money':
											 set money+=1000
											 set niksvid=0
											 set nikslut=1
											 gt'house'
											 end
										     act'money back':
											 set niksvid=2
											 '<center><img src="img/centr/nikzal9.jpg" ></center>'
											 'You defiantly removing kupuru from the anus, She licked the sperm and throwing it at his feet.'
											 act'Get_Away':gt'house'
											 end
										 end
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 if niksvid>1 and hour>17 and hour<20 and housezalrand>=3 and housezalrand<=5 and niksexday ! day:
			 cla
			 *clr
			 set niksexday = day
			 '<center><img src="img/th/n2.jpg" ></center>'
			 'As long as you zip over the room with a vacuum cleaner, Nicholas comes and sitting on the sofa reading the newspaper begins. Soon, As you walk around the room with a vacuum cleaner and bend down periodically, that would vacuum under furniture, it is not surprising, because every time he charmed by your bare buttocks, panties then you did not clothe. Do you like that he looks at you, and you have already started to bend especially where already vacuumed and even a couple of times got up on all fours, pretending, that are trying to push away the vacuum cleaner under the cabinet, while your bare ass off in front of him. You nadlyudali sideways as he swallows saliva, looking at you with lust.'
			 act'carry_On':
				 cla
				 *clr
				 set nik+=1
				 '<center><img src="img/th/n3.jpg" ></center>'
				 'You go back to shine in front of Nicholas, pacing the room, until you feel that your pussy is already flowing and juice began to flow from it to the hips. Then you come to the couch and start vacuuming in front of him, so you`re a little bend, your ass is bare back and legs spread slightly fed back, now your pussy just inches from his face and he is perfectly visible, that you already are flowing full. Nicholas did not wait, after a couple of seconds. He buried his face between your buttocks, then kissing your pussy, then the anus, then he began to lick her thighs all that managed to leak out of your pussy. When you have finished with them , forward. You were standing on gave way to pleasure legs, leaning on vacuum cleaner, until his tongue fuck your pussy. Then he turned his attention to the ass, how to brushing her tongue, he launched into it with two fingers and began to push them a little, stretching your anus. When your ass a little accustomed to and no longer closes instantaneous, he took his fingers and their place was taken by his tongue. Nicholas fucked your ass tongue, and hand massaging your clitoris, you moan with pleasure with difficulty holding onto the handle of the vacuum cleaner, Nicholas finally pulled you over and you plopped on the couch, and he sat down beside, widely spread your legs, intending to re-engage your pussy.'
				 set picrand=78
				 act'carry_On':gt'sex','kuni'
				 end
			 act'finish cleaning':gt'house'
			 end
		 'You cleared the room'
		 act'Get_Away':gt'house'
		 end
	 end
if week=6 and hour>5 and hour<10 and niksvid>1 and niksexday ! day and housezalrand<5:
	 cla
	 *clr
	 set minut+=30
	 set niksexday = day
	 '<center><img src="img/th/n0.jpg" ></center>'
	 'Entering the room you see Nicholas lying on the sofa, clothing. It seems that it is a good idea yesterday gulnul, from the smell in the room could get drunk, and little wife sent him to sleep in the living room.
	 "A Light, then pour-some" he said. "it, so you can not drink." he articulated.
	 You poured into a glass of whiskey and handed him. Swallowed in one gulp a glass he again fell back. "you better?" asked you.
	 "A_Little_Bit, thanks Light, Come to Me." he said without opening his eyes. You felt sorry for him, You even remembered how when something, periodically kicking themselves on Fridays and wife sends you to sleep in another room, how long has it been, I think in another life. Then you remembered, if you managed to persuade his wife to have sex in the morning, or simply possess it while it`s still sleeping could you send, it helped quite back to life. "Maybe it will help" flashed in my head crazy idea.'
	 act'try to help':
		 cla
		 *clr
		 set nik+=1
		 '<center><img src="img/th/n1.jpg" ></center>'
		 'You go down next to him on his haunches and unbuttoned his pants pull out member, even raslablenno state it quite a decent size. You spend the language around the trunk and start tickling head, Nicholas suddenly perks up "no light, I am not in a position, and the wife in the bedroom sleeps" he says.
		 "Relax , that will help you, and your wife on Saturdays before noon does not rise" you are responsible and absorbs his mouth already swelling body, you liked it swelled in your mouth, and soon you will have worked diligently mouth, but still tried not to make loud noises, Owned today and suddenly his little wife decides to get up early. You are tired of sucking, you thought, it`s been a couple of hours before a stream of hot, viscous liquid hit you in the mouth. You have already swallowed and intends to release the cooling of the body cavity, Nicholas, has come a bit said "Go_Ahead, I want you all."
		 You still released his cock from his mouth, but taking his hand began to masturbate, not letting it fall. "Ok, but not in the ass" answer You.
		 "Well, floor nubs?" he asked, visibly upset.
		 "Come on, Only when my cries come your little wife, you yourself will be to explain to her, that makes your cock in my ass." answer You. Nicholas agreed with your arguments and you will once again lowered his head to his cock.'
		 set picrand=77
		 act'carry_On':gt'sex','minet'
		 end
	 act'Get_Away':gt'house'
	 end
if niksvid>1 and hour>17 and hour<20 and housezalrand>=3 and housezalrand<=5 and niksexday ! day:
	 cla
	 *clr
	 set minut+=10
	 set niksexday = day
	 '<center><img src="img/th/n4.jpg" ></center>'
	 'Entering the room you see Nicholas, sitting in a chair and talking on the phone. "Sveta, bring a drink" he asked to see you. You brought him a glass of whiskey, He took the glass and motioned for you to linger. You waited until he finished talking on the phone.
	 "Well denС‘k, sit sit with me" he said, slapping his thigh.'
	 act'Get_Away':gt'house'
	 act'stay':
		 cla
		 *clr
		 set nik+=2
		 set minut+=30
		 set picrand=79
		 set niksexday = day
		 '<center><img src="img/th/n5.jpg" ></center>'
		 'You sit down on his leg and one arm around his neck, Nikolai embraces you by the waist and hugged her in the chair reclines. You are almost lying on it, and he was not even trying to get you between the legs, he just pushes you to itself and so is sitting with his eyes closed. Realizing that he was just tired and he wants that-anyone-it was near, you relax and lozhite head on his shoulder. So half an hour passes, Nicholas sits in a chair pressing you to my, and you listen to how he breathes, you like so just relax, head start to climb dreams, that if it was yours and you were like that in the evening and rest. You clung to him more tightly, embracing both hands, Nicholas felt as if your desire and opened his eyes looked at you, after a couple of seconds, but not as much as before, with animal passion, as if about to devour each other, and easily and gently, just kosayas each other`s lips. Soon his hands slipped through your body, He raised you and put it on a chair began to cover your body with kisses, down lower and lower until it reached the hips.'
		 act'carry_On':gt'sex','kuni'
		 end
	 end
if niksvid>1 and hour>17 and hour<20 and housezalrand<3 and niksexday ! day:
	 cla
	 set niksexday = day
	 'Entering the room you see Nicholas, sitting in a chair "Sveta, want to watch TV?" he asked.'
	 act'Opt_Out':gt'house'
	 act'agree':
		 cla
		 *clr
		 set minut+=40
		 set nik+=1
		 set picrand=80
		 set niksexday = day
		 '<center><img src="img/th/n6.jpg" ></center>'
		 'You sit next to him on the sofa, Nicholas priobnimaet you and lozhit one hand on her hip, you are already prepared to, that it will start to stick, but then nothing happened, He just sat there and watched TV pressing you to my. You sit back and resting her head on his shoulder , on the TV show what that nonsense, but you did not care, Yes. So you sat for half an hour, occasionally exchanging short sentences, you suddenly become so good and comfortable next to him, but your idyll interrupted by football and you do not believe yourself when asked Nicholas to change the channel. "can, a little bit of a look?" he asked, as if it is your apartment and your TV.'
		 act'pick up the remote':
			 cla
			 *clr
			 '<center><img src="img/th/n7.jpg" ></center>'
			 '"Do_Not, do not look" you said and snatched the remote from his hand.
			 "Sveta, Return idler" said he was doing a stern voice
			 "Do_Not-and" you responded playfully.
			 "But beware" he said, but you had to remove his hand and he just collapsed on you. You began to rage on the couch grabbing the remote from each other, you laughing and fooling around as children, showing each other languages, when they could snatch control. During the game your breast pops out, but neither you, nor Nicholas did not pay attention to it. When you are tired and collapsed on the bed, He lay down on you and his head was on your chest, you`re both lying and panting. You began to stroke his hair, soon his lips kospulis your chest. He kissed your breasts and nipples, gradually descending lower and lower.'
			 act'allow':set nik+=1&gt'sex','kuni'
			 act'terminate':
				 cla
				 '"No, not here" Say you. Nicholas stopped, kissed you on the lips and left'
				 act'Get_Away':gt'house'
				 end
			 end
		 end
	 end
if nikslut=1 and hour>17 and hour<20 and housezalrand<3 and niksexday ! day:
	 cla
	 *clr
	 set SUB+=1
	 set guy+=1
	 set minut+=20
	 set niksexday = day
	 set money+=2000
	 set picrand=35
	 '<center><img src="img/th/s0.jpg" ></center>'
	 'Entering the room you see Nicholas and another man, they sit having imposed documents and arguing about something. "A Light, Bring us some tea" says he sees you. You go to the kitchen to make tea to go back. When you pour the tea into cups, Nicholas lozhit hand on your buttocks and said "Well?" man shrugs in response "This you know better, she`s at your house to cook and clean."
	 "Yes_I_Am, no, you do not understand, as you her ass, though very best." says Nicholas exposing your buttocks. "Small premium and it is she gets up." Nikolai continues. You , and Nicholas did not let up "Do you want to show it? A Svetsik you do not mind to serve the host along with his guest?" gororit he puts a couple of notes on the table. A man looks at you in his pants and significantly increases the hillock in the groin area.
	 "With joy" you reply, kneeling.'
	 act'begin':xgt'sexdvoe','var'
	 end
if nikslut=1 and hour>17 and hour<20 and housezalrand>8 and niksexday ! day:
	 cla
	 *clr
	 set SUB+=1
	 set guy+=1
	 set minut+=20
	 set niksexday = day
	 set money+=2000
	 set picrand=37
	 '<center><img src="img/th/s2.jpg" ></center>'
	 'Entering the room you see Nicholas and another man, they sit having imposed documents and arguing about something. "A Light, bring me a drink" you leave the bar and while pouring booze hear him talk, Nicholas does not even try to speak more quietly that-have you not heard "This is the light that I love to confess to you."
	 "Yes_I_Am, not bad." meets a man inspecting you from head to toe.
	 "Yup, so that, not far-fetched to relax, and then happily Svetsik you relax" Nikolai continues.
	 "Yes I do not know, wife uchuit, will complete zvizdets, deprive all, go begging in the subway" responsible man.
	 "Yes, thrust took and went, she gave you when, six months ago or a year. Married a rich bitch `s torments" says Nikolai.
	 "To hell with it, Call your slut" agrees man, you just come up with a glass to Nicholas.
	 "Svetsik, help a person relax, I depart for a couple of minutes, and later to join you" said Nicholas, slapped you on the behind and shoving a couple of bills in his hand out of the room.
	 "Come without prilyudy, and to strip naked on the floor" the man said.'
	 act'lie_Down':
		 cla
		 *clr
		 '<center><img src="img/th/s2.jpg" ></center>'
		 'You lay down on the floor and he lay down behind you, slaver fingers he rubbed your pussy and slowly introduced the term in you. You were not excited and a couple of minutes you have been hurt a little vagina until moistened. Entering into a little taste of it you started podmahivat. Once you have gathered momentum in the room returned Nicholas "Yes, I think I almost missed" he said.'
		 act'carry_On':xgt'sexdvoe','var'
		 end
	 end
--- housezal ---------------------------------

# hozspal
if $ARGS[0]='start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>bedroom</B></center>'
'<center><img src="img/centr/hozspaln.jpg" ></center>'
set minut+=5
gs 'stat'
act 'In the corridor':gt'house'
if week <6 and hour>8 and hour<20 and tanwork=1:
	 act 'get_out':
		 set minut+=60
		 gs'stat'
		 set housespalrand=rand(0,4)
		 if nikslut=1 and hour>17 and hour<20 and housespalrand=0 and niksexday ! day:
			 cla
			 *clr
			 set niksexday = day
			 set money+=2000
			 set SUB+=1
			 set guy+=1
			 set picrand=23
			 '<center><img src="img/centr/niks1.jpg" ></center>'
			 'Nicholas and another man discuss something, you saw Nicholas beckons you to her and pulled his dick sticks in your mouth, You dutifully starts sucking. The second man also joins.'
			 act'sex':xgt'sexdvoe','var'
			 end
		 if hour<14 and housespalrand=0 and houserab=1:
			 cla
			 *clr
			 set SUB+=3
			 '<center><img src="img/centr/gosps1.jpg" ></center>'
			 'The hostess tells you to undress and lie on the bed, you dutifully perform, She pulls out a dildo and puts you in the pussy, after a few minutes you orgasm covers. It looks like you squirm on the bed finishing.
			 "Well, pokormlyu you go." she says'
			     act'Go with it':
				 cla
				 *clr
				 '<center><img src="img/centr/gosps2.jpg" ></center>'
				 'You slide off the bed on korachki and hostess leads you to the kitchen. You barge on korachkah trying to keep, that would not irritate her.'
				 act 'the kitchen':
					 cla
					 *clr
					 '<center><img src="img/centr/gosps3.jpg" ></center>'
					 'She pours a bowl of milk and puts on the floor, you vnereshitelnosti fades over the plate, Then she puts the power of your head in a bowl, You literally hammering in her face.
					 "Ah, fast licks that-would have shone." she cried.'
					 act'lick':
						 cla
						 *clr
						 '<center><img src="img/centr/gosps4.jpg" ></center>'
						 'You dutifully start licking milk from the floor, and she presses you face to the floor, saying that you better lick. When you lick the entire floor of the milk, she leaves leaving you naked on the floor.'
						 act 'In the corridor':gt'house'
						 end
					 end
				 end
			 end
		 end
	 end
end
--- hozspal ---------------------------------

# kafesvid
set minut+=60
set manna+=10
gs 'stat'
'<center><B>cafe</B></center>'
'<center><img src="img/kafesvid/0.jpg" ></center>'
'you and <<$telsob>> went into a small cafe in the center'
act 'chat':
	 if $telsob = 'Alla':
		 set alla+=1
		 if alla>=20:
			 set kaferand=RAND(0,10)
			 if kaferand>0 and kaferand<3:gt 'kafesvid','1'
			 if kaferand>2 and kaferand<5:gt 'kafesvid','2'
			 if kaferand=0 or kaferand>4:gt 'kafesvid','3'
			 end
		 if alla<20:gt'kafesvid','3'
		 end
	 if $telsob = 'Masha':
		 set masha+=1
		 if masha>=20:
			 set kaferand=RAND(0,10)
			 if kaferand>0 and kaferand<3:gt 'kafesvid','1'
			 if kaferand>2 and kaferand<5:gt 'kafesvid','2'
			 if kaferand=0 or kaferand>4:gt 'kafesvid','3'
			 end
		 if masha<20:gt'kafesvid','3'
		 end
	 if $telsob = 'katya':
		 set kat+=1
		 if kat>=20:
			 set kaferand=RAND(0,10)
			 if kaferand>0 and kaferand<3:gt 'kafesvid','1'
			 if kaferand>2 and kaferand<5:gt 'kafesvid','2'
			 if kaferand=0 or kaferand>4:gt 'kafesvid','3'
			 end
		 if kat<20:gt'kafesvid','3'
		 end
	 end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/kafesvid/1.jpg" ></center>'
'In malnkom cafe except you nobody was, and you are located in the far corner, shade, during a conversation <<$telsob>> moved to the table in front of you and from under her skirt could see her panties. noticing, that you periodically looked under her skirt. <<$telsob>> prepodnyala skirt, and has got one foot between your and began stroking her your hips.'
act 'move_away':gt 'kafesvid','3'
act 'touch it':
	 cla
	 *clr
	 '<center><img src="img/kafesvid/2.jpg" ></center>'
	 'You ran a hand over her thighs and sent to the hand panties, <<$telsob>> jumped off the table and stood beside, what-would make it easier to stroke her pussy, and running his hand under your clothes began to massage your breasts. A few seconds later she tried to take off your clothes.'
	 act 'Well':gt 'kafesvid','3'
	 act 'let her':
		 cla
		 *clr
		 set lesbian+=1
		 '<center><img src="img/kafesvid/3.jpg" ></center>'
		 '<<$telsob>> pulled off your clothes and kneeling, started to lick your pussy deftly wielding tongue.'
		 act 'get cancer':
			 cla
			 *clr
			 set orgasm += 1
			 '<center><img src="img/kafesvid/5.jpg" ></center>'
			 'You get up from the chair and bend down over the table, <<$telsob>> immediately pushes you buttocks and begins to fuck your tongue, sometimes she misses and her tongue slips you into the anus, you.'
			 act 'Resume':gt 'kafesvid','10'
			 end
		 act 'lick it':
			 cla
			 *clr
			 '<center><img src="img/kafesvid/4.jpg" ></center>'
			 'You raise her from her knees, while they themselves descend on them. <<$telsob>> sits on the desk and spreads her legs to the side, You cling to the lips of her crotch, and start to kiss her and then release the tab and Shchekotov clitoris, periodically running it into the vagina. soon <<$telsob>> shudders and strongly pressed you to pussy, violently ends, from her pussy sees several powerful jets, first you even decide, she wrote to you in the mouth, but having tasted her juices understood that it is not. You repeatedly swallowed her juice before the stream has dried up, but still its juice spilled on her hips and your chest. <<$telsob>> without forces collapsed on the floor and kiss you sent last portion of its juice from his mouth in her, <<$telsob>> swallowed the juice, and began to lick your breasts licking off her own juice droplets.'
			 act 'Resume':gt 'kafesvid','10'
			 end
		 end
	 end
end

if $ARGS[0] = '10':
cla
*clr
'<center><img src="img/kafesvid/6.jpg" ></center>'
'<<$telsob>> found her purse, which in the course flew somewhere under the table, and a little digging it learned to light dildo. Sitting on poluryadom with her handbag she brought a dildo to his lips and began to tickle his head tongue, playfully looking at you.'
act 'Her pussy':gt 'kafesvid','11'
act 'Her ass':gt 'kafesvid','12'
act 'Statement pussy':gt 'kafesvid','13'
act 'End_Up':gt 'kafesvid','3'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="img/kafesvid/8.jpg" ></center>'
'You take a dildo and sat her on a chair, enter it in her vagina. You diligently to fuck her, introducing a dildo until near the end, and <<$telsob>> at the time t handle her clitoris, until cums quietly yelp.'
set kafesvidsex+=1
if kafesvidsex<3:
act 'Her ass':gt 'kafesvid','12'
act 'Statement pussy':gt 'kafesvid','13'
end
act 'End_Up':gt 'kafesvid','3'
end

if $ARGS[0] = '12':
cla
*clr
'<center><img src="img/kafesvid/9.jpg" ></center>'
'Taking dildo you slap a couple of times with his hand on the table, quickly understand what you want <<$telsob>> climbs on the table and gets up on all fours, licking dildo you relish spits on her ass and send dildo after. While you fuck her ass dildo, <<$telsob>> moaning on the table, and you second hand caresses herself trying to achieve orgasm but in vain.'
set kafesvidsex+=1
if kafesvidsex<3:
act 'Her pussy':gt 'kafesvid','11'
act 'Statement pussy':gt 'kafesvid','13'
end
act 'End_Up':gt 'kafesvid','3'
end

if $ARGS[0] = '13':
cla
*clr
set orgasm += 1
set vagina += 1
'<center><img src="img/kafesvid/7.jpg" ></center>'
'You are relying on the table and legs rastavlyaet, <<$telsob>> immediately turns on her knees in front of you with a dildo in his hand, she begins to caress your clitoris tongue, then introduces a dildo in your pussy, continuing to lick clit, Soon you orgasm covers.'
set kafesvidsex+=1
if kafesvidsex<3:
act 'Her pussy':gt 'kafesvid','11'
act 'Her ass':gt 'kafesvid','12'
end
act 'End_Up':gt 'kafesvid','3'
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/kafesvid/10.jpg" ></center>'
'Sitting at the table you made the order, in the cafe seems nobody but you and the waiter was not, The waiter is constantly spinning around your table, every now and then looking at you.
"And you liked it" said <<$telsob>> Catch up on you once his eyes.
"Say also liked, we`re here alone so he rubs close, overhears, to do what he has nothing more." objected to you
And when the waiter once again came to ask you whether you want it-anything else, <<$telsob>> you grabbed one hand on his chest and squeezed her, so you just do not jumped on the chair.
"Are you, that hurts" began to say you trying to unhook her hand.
<<$telsob>> Meanwhile "Do you want to touch second?"
The waiter hesitated looking at you.'
act '"just try, eggs cut off"':gt 'kafesvid','3'
act 'Do not resist':
	 cla
	 *clr
	 '<center><img src="img/kafesvid/11.jpg" ></center>'
	 'Noticing that you stopped struggling, <<$telsob>> let your chest and took the waiter `s hand, put it on your chest "Do not hesitate to see a girl do not mind".
	 He timidly began to feel your breasts, but soon grew bolder and already being squeezed your breasts with both hands.
	 A minute later, <<$telsob>> again began to direct your actions, "Well, paw Woman and her own personal touch not given".
	 The guy pulled his hands away from your chest and again hesitated neznaya what to do.
	 <<$telsob>> rapid movement of the hand unzipped his pants, from which immediately freed his erection "Here`s what you still can touch, the second is not uvidivish?" she asked  "rhetorical question, answer does not necessarily. Well, Help_yourself."'
	 act 'Opt_Out':gt 'kafesvid','3'
	 act 'Take in hand':
		 cla
		 *clr
		 set hj+=1
		 '<center><img src="img/kafesvid/12.jpg" ></center>'
		 'You took his cock in his hand and began to masturbate, <<$telsob>> continued to chat with you without paying any attention to the Man, but after a couple of mine when the guy started to shudder, about to finish, it is re-enabled "You did give him finish on the table, even the taste of the pudding, at least let you finish in her mouth?"'
		 act 'Take in the mouth':
			 cla
			 *clr
			 set SUB+=1
			 set cumlip+=1
			 set swallow+=1
			 '<center><img src="img/kafesvid/16.jpg" ></center>'
			 'You kneels, and <<$telsob>> catching you his cock starts to masturbate quickly aiming your mouth, Within seconds after jet of sperm enters your mouth, and <<$telsob>> continues to play cock trying to squeeze him dry your mouth, when it finally ends and the last drop of warm liquid drops into your mouth, you will quickly swallow it and licked his lips sit at the table and continue to talk as if nothing had happened.'
			 end
		 act 'continue to masturbate':
			 cla
			 *clr
			 '<center><img src="img/kafesvid/12.jpg" ></center>'
			 'You neobraschaya attention to her words and soon the guy is dead on the table.
			 after that <<$telsob>> started up again "Well"'
			 act 'lick cum':
				 cla
				 *clr
				 set SUB+=1
				 set swallow+=1
				 '<center><img src="img/kafesvid/14.jpg" ></center>'
				 'You lean over to the table and begin to lick sperm, tightening it in himself and swallowing.'
				 act 'End_Up':gt 'kafesvid','3'
				 end
			 act 'Do not touch the sperm':
				 cla
				 *clr
				 '<center><img src="img/kafesvid/15.jpg" ></center>'
				 'Seeing that you`re not going to touch cum <<$telsob>> she leaned over the table and rapid movements of the tongue collected all the sperm in her mouth, then play a bit with her mouth, swallowed. "And the taste is not even Duren, knowingly refused."'
				 act 'End_Up':gt 'kafesvid','3'
				 end
			 end
		 end
	 act 'Take by mouth':
		 cla
		 *clr
		 set bj+=1
		 '<center><img src="img/kafesvid/13.jpg" ></center>'
		 'Man you seat in front of him on the table and spent some time tongue from the base of his cock head start to suck, <<$telsob>> at this time is coming to you from behind, and pulling out of vases slul, eliminates the clothes and spreading buttocks slightly tongue bites you in the pussy.
		 A few minutes later <<$telsob>> continued to lead the process "Now fuck her cancer"'
		 act 'get cancer':
			 cla
			 *clr
			 set sex+=1
			 '<center><img src="img/kafesvid/17.jpg" ></center>'
			 'You come off his penis and bent over with his hands on the table, <<$telsob>> sat in front of you and pulled her breasts goliv to your face, should you touch her вЂ‹вЂ‹breasts language, How did you feel as you pussy rested member. The guy lifted your foot and dramatically drove his bolt in you, he started with the power to batter your pussy. soon <<$telsob>> again commanded "And now lie down on the table", you feel on the shooting porn actress, and <<$telsob>> was by producer, but you is only a factory and you readily comply with all of her team.'
			 act 'Lie on a table':
				 cla
				 *clr
				 '<center><img src="img/kafesvid/18.jpg" ></center>'
				 'You lay down on the table and a guy came up to you to take you by the legs and spreading them wide apart, you re-entered into the vagina, hammering her with such force that you slide on the table, <<$telsob>> even put his hand behind you, so you will not have taken off the table, and the second massaging your clitoris. Action Man were inept and even massage the clitoris does not help you finish, eventually a few minutes <<$telsob>> commanded "And now in the ass"'
				 act 'get cancer':
					 cla
					 *clr
					 set cumanus+=1
					 set anal+=1
					 set analorgasm+=1
					 set orgasm+=1
					 '<center><img src="img/kafesvid/19.jpg" ></center>'
					 'You stasis from the table, lie on his stomach and his hands moved apart buttocks, <<$telsob>> several times with relish spits on you ass "Now very gently fuck her ass" drawn to the guy, he carefully collects saliva her head and directs his dildo you in the ass, he moves ahead and carefully, and <<$telsob>> carefully watching the process, periodically spits on his dick, dobovlyaya lubrication, a couple of minutes your ass adapts to your penis, and the guy begins to slowly accelerate, you chuvstvuetekak his cock slides into your ass and how <<$telsob>> navisnuv over you spit you with their breasts, it you strong winds and once dildo inside you starts to swell, Ready to cum, one of you sees a moan of pleasure from the long-awaited orgasm. At the same moment you feel like a warm liquid escaping from his penis fills your ass.
					 "brain, from anal cum, Now get to it, yet he did not fall" cried <<$telsob>>'
					 act 'No, enough':gt 'kafesvid','3'
					 act 'pick_up':
						 cla
						 *clr
						 set bj+=1
						 set cumlip+=1
						 '<center><img src="img/kafesvid/20.jpg" ></center>'
						 'You jump off the table and suck natsinaete yarosno, trying not to let fall a member.'
						 if klismaday ! day:'Do you realize that there `s not doing an enema, you have to lie member izmazany mixture of sperm and the contents of your ass, you barely holding back retching continued to suck, and <<$telsob>> noticing it looks at you with a smile "That`s how important vidish ass to keep clean, for me it`s like brush your teeth."'
						 if klismaday = day:'You suck dick feeling the taste of semen remaining on it, and how out of your ass is not yet closed follows sperm and spreads to the buttocks and thighs'
						 'When a member of the newly gained strength and was ready to continue, <<$telsob>> again commanded "Now the top and butt at full rate"'
						 act 'Jump to the member':
							 cls
							 *clr
							 set analorgasm+=5
							 set orgasm+=5
							 set anus+=1
							 '<center><img src="img/kafesvid/21.jpg" ></center>'
							 'Not waiting until you release his cock from his mouth guy abruptly yanked it and lay down on the table, <<$telsob>> helped you to get on top and put his penis into the anus of you who still leaking cum. Once you have settled as the guy began to move his movements were swift and strong, he fucked your ass so you Vijay, and <<$telsob>> stood beside him and pushing on you with every jolt trying to spread you deeper on his cock, kept_saying "faster, deeper, let`s fuck her point, to sit week could not". And the guy starts to move even faster, smashalas pain with pleasure, you re finished then again and again, you yourself started yelling at the guy that he fucked faster, and at every jolt with the power to sit down on your ass dick. You already struggling to understand how it goes, istupleniya you rode in her ass on a limb, was replaced by another one orgasm in the end you exhausted stretched it, but the guy was not finished and <<$telsob>> vskhvativ your legs lifted them to the top and a few minutes of your already obmyagshee body fucked in the ass. "Well enough" said <<$telsob>> and you pulled on the floor. "Now it is settled in her mouth" she turned to the guy.'
							 act 'open your mouth':
								 cla
								 *clr
								 set cumface+=1
								 set cumlip+=1
								 set swallow+=1
								 '<center><img src="img/kafesvid/21.jpg" ></center>'
								 'You struggled to his knees in front of boyfriend, mouth wide open. <<$telsob>> took his penis in his hand and began to masturbate aiming your mouth, Soon the boy groaned and sperm gushing out of it, filling your mouth, chest and ran down to the stomach.'
								 act 'kiss <<$telsob>>':
									 cla
									 *clr
									 '<center><img src="img/kafesvid/22.jpg" ></center>'
									 'You grab her by the arm and pulled up to his bites her lips, pouring of the sperm in her mouth, <<$telsob>> swallows sperm and reaches out to you for the additive, but you have already swallowed, then she licks the cum from your chest and abdomen, then gently pushing you forward, so you find yourself on all fours, licks all that leaked out of your ass, and lastly kisses your ass passionately trying to suck from it all to the last drop. When she finishes, you dress and sit down to chat while continuing as if nothing had happened.'
									 act 'End_Up':gt 'kafesvid','3'
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0] = '3':
cla
set kafesvidsex=0
set horny = 0
set minut+=60
gs 'stat'
'soon <<$telsob>> said that she had to flee and left'
act 'Get_Away':gt'down'
end
--- kafesvid ---------------------------------

# kamera
set hour+=48
gs 'stat'
'<center><B>camera</B></center>'
'<center><img src="img/police/c1.jpg" ></center>'
'You had one in the chamber for two days . You did not know what to do, went from corner to corner for hours staring at the ceiling while lying on his bunk. When you have already decided that the threats were empty words, the cell door opened and it brought zechku, woman years 40, sees you she grinned. The cell door slammed shut and you were alone.'
act'Greet':
	 cla
	 *clr
	 set girl+=1
	 set lesbian+=1
	 '<center><img src="img/police/c2.jpg" ></center>'
	 'You just open your mouth that would greet, it vskhvatila you by the hair and pulled from the bunk on the floor. She quickly pulled down his pants and in your face appeared impressive size strapon.
	 "Well nipple, suck" she said with a grin.'
	 act'open your mouth':
		 set bj+=1
		 set anal+=1
		 cla
		 *clr
		 '<center><img src="img/police/c3.jpg" ></center>'
		 'You opened her mouth and she had driven strap you in the throat. When you try to pull away zvdyhayas it took him a little by letting you take a sip of air, and then continued to drive it in your throat keeping your hair. Soon she got sick and she pulled your hair up.'
		 act'up':
			 cla
			 *clr
			 '<center><img src="img/police/c5.jpg" ></center>'
			 'You stood up and deploying it to your wall tilted. You hit the wall trying to relax your hands ass, but you have not tried the strap still proved too much, when she drove it with the power of you in the ass, Tears streamed from his eyes and you cried.
			 "Scream all you like, today you are my" said zechka, and began to move quickly, Strap in you will drive the entire length, you could no longer hold back and started yelling, whenever its motion pain pierced you and you cried as I could.
			 "Ori, ori, I like it" she laughed. Have you tried to close his mouth, but still pulled out a cry out of your mouth, It lasted for about half an hour, when you no longer feel pain usche, and felt a tremor, She pulled the strap and began to dress, you slid along the wall to the floor and curled continued to cry. She looked at you and grinned knocked on the door camera. The door opened surprisingly fast.
			 "I graduated" said zechka.
			 "Ok, Take it to the camera" You heard the voice of the girl you interrogated. After that, you barely crawled to the bunk and climbing on them asleep.'
			 act'sleep':
				 cla
				 *clr
				 set vagina+=1
				 set hour+=4
				 gs 'stat'
				 '<center><img src="img/police/c6.jpg" ></center>'
				 'You woke up with pain in the vagina, opened my eyes you saw on a tighter Woman, She poked a club you in the vagina, trying to introduce it, but it did not work. You tried it otolkunut, and received a slap in the face, "lie quietly, now I `ll stick you polish, until you start talking" she said. She moved with the force of a club, obviously trying to make you, as painfully as possible, and you screamed at every jolt. "Well?" she asked?'
				 act'Share':
					 cla
					 set gopdeath=1
					 set minut+=180
					 gs'stat'
					 set vsehsdaladay=day
					 'You told all they knew, and even then only heard about from conversations Gopnik. You will then be released.'
					 act 'Get_Away':gt 'nord'
					 end
				 act'Opt_Out':
					 cla
					 *clr
					 set minut+=90
					 set orgasm+=1
					 set horny=0
					 '<center><img src="img/police/c7.jpg" ></center>'
					 'You did not answer, but only began to try to portray the desire. You moan and her podmahivat, carefully portraying the fun and even stuck a finger in the ass and started massaging her. The maiden looked at you, besyas clearly from it and began to move even faster trying to bludgeon it into vtolkat you whole. Soon you really began to get pleasure from it and groaned in earnest, You move your hips nasazhivayas on the baton. Soon you will feel like an orgasm rolled on you, you vskhvatili girl`s hand and pushed themselves stick so deeply as we could, she looked like you moan, writhing in orgasm, so what-then spoke, but you have not heard anything. When you come to a little then releasing her arm collapsed on the bench, she took the baton and stood over you frantically clutching her. She had not expected this and now frantically trying to figure out, she do now. She stared at you then tried to make that swing-have hit something tugging at his clothes, She was clearly excited, on her pants could be seen distinctly wet spot. You have no choice , or you satisfy it.'
					 act'grin':
						 set over=7
						 gt 'gameover'
						 exit
						 end
					 act'suggest lick':
						 cla
						 *clr
						 set mentovka=1
						 set lesbian+=1
						 '<center><img src="img/police/c8.jpg" ></center>'
						 'You hung his head from the bed, so that it appeared between her legs, and began to kiss her pants, Simultaneity rastegivaya their, she immediately slipped off her top and help you with your pants. Slightly bent legs she pulled your head to his crotch, you bit into her lips and started kissing her pussy, then floated gently tongue licking every inch of her pussy, it no longer presses your head, and stroked your hair. She did not take long, a few minutes later she came, and collapsed on the bench next to you. You silently lay on the bunk Jacks, her hands stroking your thighs, so it took several minutes, Suddenly she jumped up and dressed silently headed for the exit. On the threshold she paused and said "Soon you will release".'
						 act'wait':
							 cla
							 *clr
							 set gnewQW=3
							 '<center><img src="img/police/c1.jpg" ></center>'
							 'You got dressed and began to wait, half an hour later, the door opened you taken from his cell and returned all your stuff.'
							 act 'Get_Away':gt 'nord'
							 end
						 end
					 end
				 end
			 end
		 end
	 if DOM>30:
		 act'hit':
			 cla
			 *clr
			 '<center><img src="img/police/c4.jpg" ></center>'
			 'Have you had the strength embedded her fist between her legs, she screeched collapsed on the floor. You got up and pulled off her strapon, put it themselves. Zechka writhed on the floor, you wait until she wakes up a little, then took off her pants and went into her vagina, At first she cried out in pain, but soon turned into moans screams, she began podmahivat you and soon finished. You have removed the strap and threw her, zechka quickly collect clothes and picked up the strap, start knocking on the door, as soon as the door opened she jumped into the corridor without even dressing.'
			 act'wait':
				 cla
				 *clr
				 set gnewQW=3
				 set hour+=20
				 '<center><img src="img/police/c1.jpg" ></center>'
				 'You sat on the bed and waited, you got scared, that if she now sends more than one but several zechek, then you will not be able to cope with them, Similar thoughts were spinning in your head, but the camera so no one came, you sat almost a day looking at the door, Finally the door opened you taken from his cell and returned all your stuff.'
				 act 'Get_Away':gt 'nord'
				 end
			 end
		 end
	 end

--- kamera ---------------------------------

# kathouse0
set hour=31
!?
set son=20
gs'stat'
'<center><img src="img/Kathouse/slip.jpg"></center>'
'Kate brought you to him and put him to bed and she . Early in the morning you povstvovali as she slipped out of your grasp and opened their eyes.
"Sleep, I need to work on, I`ll leave the keys." said Kate and smacking you ran.
You get enough sleep and began to look around, on the couch opposite the bed lay a guy staring at you. Probably this is one of its many guys of whom you have described it.'
act 'Get_Away':gt 'street'
     act 'seduce':
	 cla
	 *clr
	 '<center><img src="img/Kathouse/kathouse1.jpg"></center>'
	 'You throw off the covers and start stroking yourself, first breast and then her panties in pussy area, when you feel that pussy sufficiently wetted allot panties to the side and tuck a couple of fingers into the vagina, slightly moaning.
	 The guy sat on the couch and looking at you without blinking.'
	     act 'called':
		 set $sexloc = 'katspalnya'
		 gt 'sex','start'
		 end
	 end

--- kathouse0 ---------------------------------

# Katlake
!if $ARGS[0]='start':
!gs 'stat'
cla
gs 'stat'
'<center><img src="img/Lake/kat.jpg"></center>'
'You become bored and you begin to explore the rest of the campers, Close to you is a beautiful girl.'
act 'not suitable':gt 'Nudelake'
     act 'come_Up':
	 cla
	 'You walk up to a girl and trying to start a conversation.'
	 act '"hello."':gt 'Katlake','znakomstvo'
end

if $ARGS[0]='znakomstvo':
gs 'stat'
cla
	 if vnesh < 14:
		 set katday = day
		 '"hello" a little embarrassed you say.
		 The girl looked around you prinebrezhitelnym eyes and said nothing
		 "Talk will not work" flashed through your mind'
		 act 'Get_Away.':gt'Nudelake'
		 end
	 if vnesh >= 14:
		 set katday = day
		 set telkat+=1
		 set kat = 1
		 cla
		 clr
		 set minut+=30
		 '"hello" a little embarrassed you say.
		 The girl looks you up and down, smiles and says "hello".
		 She looks at you with a slight smile and waits. You frantically trying to think of what to say, blush trying to squeeze out a word.
		 The girl says your flour and decides to take matters into their own hands "I Katia, for friends Kat, and what`s your name?"
		 "Sveta" you exhale with relief. Then the conversation went much better and you chatted for half an hour.'
		 act 'Get_Away.':gt'Nudelake'
		 end
end

if $ARGS[0]='kat':
cla
clr
*clr
gs 'stat'
set minut+=30
'<center><img src="img/Lake/kat.jpg"></center>'
'See you smiling Kate "Hi".'
act 'Get_Away':gt 'Nudelake'
act 'Offer to play volleyball':gt 'Katlake','voleybol'
act 'suggest a walk':gt 'Katlake','walk'
act 'chat':
	 cla
	 clr
	 set katday = day
	 set kat += 1
	 set minut+=30
	 'You talked for half an hour.'
	 act 'Get_Away':gt 'Nudelake'
end
end

if $ARGS[0]='voleybol':
gs 'stat'
cla
*clr
clr
set katday = day
set kat += 3
set minut+=30
set agil+=1
set react+=1
set speed+=1
'<center><img src="img/Lake/voleybol.jpg"></center>'
'You go to the Cat volleyball court and playing to Join. When you have that-it does not work Kate encourages you clapping a hand over your naked ass, while her hand a little delayed by slightly squeezing her buttocks.'
act 'End_Up':gt 'Nudelake'
end

if $ARGS[0]='walk':
cla
gs 'stat'
set katday = day
set kat += 2
set minut+=30
'You Kat walk along the beach, fun chatting.'
set kwalrand = RAND (0,100)
     if kwalrand >= 80 and kwalrand < 90 and kat > 20:gt'Kwlake1'
     if kwalrand >= 90 and kat > 20:gt'Kwlake2'

act 'End_Up':gt 'Nudelake'
end

if $ARGS[0]='key':
cla
*clr
clr
gs 'stat'
set katkey = 1
set kat += 10
set minut+=60
'<center><img src="img/Lake/sun.jpg"></center>'
'you sunbathe, suddenly you become ill, dizzy, you nauseated. You tried to get up and lost consciousness.
"At_The_Moment, at_the_moment, a little patience." hear from you out of the darkness a voice Katie.
You feel cool, razveevaetsya darkness slowly and you open your eyes. Before you face Kat.
"Well, woke_up." Kat says. you are viewing, on your head wet towel, And you`re lying in the shade under a tree.
"What happened to me" you ask.
"what, what, sunstroke, that`s what." meets Katya.
"And now comes to life and went to me, today I will stay" she continued.
"I`m better, I `ll go home" You have tried to argue.
"Do_Not, Well, I`m with her noshus like a chicken with egg, three times ran a towel drenched, dragged on his shadow, but it also vykobenivaetsya. All I said to me means to me, I still nurse and I know better"
After this tirade mind you do not become'
act 'Go with Kate.':gt 'kathouse0'
end

--- Katlake ---------------------------------

# katspalnya
$sexloc = $CURLOC
if $ARGS[0]='start':
cls
gs'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B><font color=maroon>Katie room</font></B></center>'
'<center><img src="img/SleepingQuarter/Kathouse/bedroom.jpg"></center>'

if hour >= 18 and hour < 23:'Sitting on the couch <a href="exec:gt''katspalnya'',''kat''">katya</a> watching TV'
if hour >= 23 or hour < 6:'In bed asleep <a href="exec:gt''katspalnya'',''katslip''">katya</a>.'
'The large room in the middle stands a huge bed, with a small side couch.'
act'Get_Away':gt'street'
end

if $ARGS[0]='katslip':
cla
clr
*clr
set minut+=30
if katjob=0 and kat>60:gt 'katspalnya','katjobs'
'<center><img src="img/Kathouse/kat.jpg"></center>'
'Kate rubs his eyes "Hi".'
act 'move_away':gt 'katspalnya','start'
if kat>50: act 'sex':gt 'lezbsex','start'
end

if $ARGS[0]='kat':
cla
clr
*clr
set minut+=30
if katjob=0 and kat>60:gt 'katspalnya','katjobs'
'<center><img src="img/Kathouse/kat.jpg"></center>'
'See you smiling Kate "Hi".'
act 'move_away':gt 'katspalnya','start'
if kat>50: act 'sex':gt 'lezbsex','start'
act 'chat':
	 cla
	 clr
	 if telkat=0: set telkat=1
	 set kat += 1
	 set minut+=30
	 '<center><img src="img/Kathouse/kat.jpg"></center>'
	 'You talked for half an hour.'
	 act 'End_Up':gt 'katspalnya','start'
end
end

if $ARGS[0]='katjobs':
cla
clr
*clr
set katjob=1
set minut+=30
'<center><img src="img/Kathouse/kat.jpg"></center>'
'"Svetsik if you want I can talk to the head doctor and you take a job at the clinic".'
act '"But I`m not a nurse."':
	 cla
	 '"but, I`m not a nurse." You have tried to argue.
	 "oh, Come, you start with what something unpretentious, ligation will do. And there you will learn, Life safety in school because it was."
	 "Yes_I_Am, there_were." otveteli you, Thinking about what you have at that time was not interested in dressing.
	 "Anyway, I`ll talk and you yourself want to see come, want not."'
	 act '"Ok."':gt'katspalnya','start'
end
end

--- katspalnya ---------------------------------

# kazinosvid
set minut+=60
set kisvrand=0
set manna+=10
gs 'stat'
'<center><B>theater</B></center>'
'<center><img src="img/kazinosvid/0.jpg" ></center>'
'you and <<$telsob>> sat down at the table and began to play.'
act 'play':
	 if $telsob = 'Alla':
		 set alla+=1
		 if alla>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kazinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kazinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kazinosvid','3'
			 end
		 if alla<20:gt'kazinosvid','3'
		 end
	 if $telsob = 'Masha':
		 set masha+=1
		 if masha>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kazinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kazinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kazinosvid','3'
			 end
		 if masha<20:gt'kazinosvid','3'
		 end
	 if $telsob = 'katya':
		 set kat+=1
		 if kat>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kazinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kazinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kazinosvid','3'
			 end
		 if kat<20:gt'kazinosvid','3'
		 end
	 end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/kazinosvid/0.jpg" ></center>'
'While you play you two guys sat down and offered to play two by two they have in the room.
<<$telsob>> said that she is not against it.'
act 'Opt_Out':gt 'kazinosvid','3'
act 'agree':
	 cla
	 *clr
	 set pikrand=RAND(14,15)
	 '<center><img src="img/kazinosvid/<<picrand>>.jpg" ></center>'
	 set randkazinv=RAND(0,1)
	 set randkazinvsum=RAND(100,10000)
	 if randkazinv=1:
		 set money+=randkazinvsum
		 'You won and your share <<randkazinvsum>> RUB. you and <<$telsob>> ready to leave, but the guys started to beg you to stay "Come on girls, where can sit in a hurry, drink, take a closer look. Well losers are left reassurance" said one rastegnuv his pants and pulled out a member, clearly implying what he was waiting for the consolation.'
		 set telsobnastr=RAND(0,10)
		 if telsobnastr<4:
			 '"No, it`s time, reassurance themselves." said <<$telsob>> and taking you by the hand brought back into the hall'
			 act 'End_Up':gt 'kazinosvid','3'
			 end
		 if telsobnastr>3:
			 '"I am not opposed to console the losers" said <<$telsob>> lasciviously smiling and looking at a guy who has his fly open from sticking member.'
			 act 'pick_up <<$telsob>> and go.':gt 'kazinosvid','3'
			 act 'to console the losers':
				 set kazsexdva=1
				 set guy+=2
				 set gang+=1
				 xgt'sexdvanadva','var'
				 end
			 end
		 end
	 if randkazinv=0:
		 'You lose and your share of loss <<randkazinvsum>> RUB.'
		 if money<randkazinvsum:
			 'You do not have the money to pay and <<$telsob>> also that no money left to pay, no options have to spread her legs.'
			 act 'pay in kind':
				 set kazsexdva=1
				 set guy+=2
				 set gang+=1
				 xgt'sexdvanadva','var'
				 end
			 end
		 if money>=randkazinvsum:
			 'Do you have enough money to pay and <<$telsob>> too short of money that would pay, but the guys clearly hinted that the pay is not necessarily money, They are happy to take another form of payment.'
			 if telsobnastr<4:
				 set money-=randkazinvsum
				 '"No, it`s time, here is your money." said <<$telsob>> and taking you by the hand brought back into the hall'
				 act 'End_Up':gt 'kazinosvid','3'
				 end
			 if telsobnastr>3:
				 '"I do not mind to use an alternative form of payment" said <<$telsob>> smiling lasciviously.'
				 act 'give money, pick_up <<$telsob>> and go.':
					 set money-=randkazinvsum
					 gt 'kazinosvid','3'
					 end
				 act 'Use an alternative form of payment':
					 set kazsexdva=1
					 set guy+=2
					 set gang+=1
					 xgt'sexdvanadva','var'
					 end
				 end
			 end
		 end
	 end
end


if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/kazinosvid/0.jpg" ></center>'
'While you are playing you hooked guy and offered to play with him in his room.
<<$telsob>> said that she is not against it.'
act 'Opt_Out':gt 'kazinosvid','3'
act 'agree':
	 cla
	 *clr
	 '<center><img src="img/kazinosvid/3.jpg" ></center>'
	 'Arriving at the hotel you are located in the bed and began to play, a few minutes later a guy offered to play strip. <<$telsob>> giggled "And then you will not be ashamed, and that in fact is not yet never won", man grinned "I have nothing to be ashamed of."'
	 act 'Opt_Out, pick_up <<$telsob>> and go':gt 'kazinosvid','3'
	 act 'agree':
		 cla
		 *clr
		 '<center><img src="img/kazinosvid/4.jpg" ></center>'
		 'After a few minutes  <<$telsob>> already removed her panties. "So do not honestly, you spetsalno first succumbed, so we agreed to" said <<$telsob>>, defiantly pouting.
		 "Good girls last game, the two of you against me, can even change cards, win doing that tell, lose full fun?." the guy said.
		 "play" immediately blurted <<$telsob>>'
		 act 'play':
			 cla
			 *clr
			 '<center><img src="img/kazinosvid/5.jpg" ></center>'
			 'A minute later he was standing with his pants down "Well girls, card debt - holy, swoop" he said pointing to his dildo'
			 act 'start':
				 set guy+=1
				 set pikrand=23
				 set kazsexdva=1
				 gt'podrsex','var'
				 end
			 end
		 end
	 end
end


if $ARGS[0] = '3':
cla
set horny = 0
set minut+=90
gs 'stat'
'soon <<$telsob>> said that she had to flee and left'
act 'Get_Away':gt 'nord'
end
--- kazinosvid ---------------------------------

# kino
gs 'stat'
'<center><B>theater</B></center>'
'<center><img src="img/centr/kino.jpg" ></center>'
'small cinema, ticket price 300 RUB.'

act 'Get_Away':gt'torgcentr'
if hour >= 8 and hour <= 20:
     if money>=300:
		 act 'watch movies':
		 cls
		 set money-=300
		 set minut+=60
		 manna+=300
		 gs'stat'
		 set kinorand=rand(0,9)
		     if kinorand=9:
			 'The hall is empty, just sitting beside you one guy.'
			 act 'watch the movie':minut+=60&gt 'kino'
			     act 'seduce':
				 cla
				 *clr
				 '<center><img src="img/centr/kino1.jpg" ></center>'
				     if vnesh<15:
					 'You bare chest demonstrate her boyfriend, but he does not pay attention to you'
					 act 'Get_Away':gt 'kino'
					 end
				     if vnesh>=15:
					 'You bare chest demonstrate her boyfriend, he is clearly interested in and looks at you in looking forward to a'
					     act 'Cooney':
						 cla
						 *clr
						 set guy+=1
						 set kuni+=1
						 set horny+=10
						 '<center><img src="img/centr/kino2.jpg" ></center>'
						 'Put your feet up and you ask him to lick, man quickly dropped to his knees and began to lick you.'
						 act 'Get_Away':set DOM+=1&gt'kino'
						 act 'blow_job':gt'kino','sex'
						 end
					 act 'blow_job':gt'kino','sex'
					 end
				 end
		     exit
			 end
		 set minut+=60
		 gs'stat'
		 'You watched the film'
		 act 'Get_Away':gt 'kino'
		 end
	 end
else
'cinema closed.'
end

if $ARGS[0] = 'sex':
cla
*clr
set bj+=1
'<center><img src="img/centr/kino3.jpg" ></center>'
'You wrapped around his penis excited lips and began to suck his hand while playing with his eggs. Soon you will feel that he is about to finish.'
     act'suck':
	 cla
	 'You continued to suck the guy is dead and your mouth filling it with warm viscous liquid.'
	 act 'Get_Away':set cumlip+=1&gt'kino'
	 end
	 
     act'give':
	 cla
	 *clr
	 set sex+=1
	 set horny+=50
	 '<center><img src="img/centr/kino4.jpg" ></center>'
	 'You stand up knees on the chair, Turning his back to the guy and swaying invitingly ass, He did not wait and quickly came to you in the vagina, after a few seconds he groaned and finished in you, leaving you unsatisfied.'
	 act 'Get_Away':set cumpussy+=1&gt'kino'
	 end
end
--- kino ---------------------------------

# kinosvid
set minut+=60
set kisvrand=0
set manna+=10
gs 'stat'
'<center><B>theater</B></center>'
'<center><img src="img/kinosvid/0.jpg" ></center>'
'you and <<$telsob>> bought tickets and took their seats ready for viewing'
act 'watch movies':
	 if $telsob = 'Alla':
		 set alla+=1
		 if alla>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kinosvid','3'
			 end
		 if alla<20:gt 'kinosvid','3'
		 end
	 if $telsob = 'Masha':
		 set masha+=1
		 if masha>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kinosvid','3'
			 end
		 if masha<20:gt 'kinosvid','3'
		 end
	 if $telsob = 'katya':
		 set kat+=1
		 if kat>=20:
			 set kisvrand=RAND(0,10)
			 if kisvrand>0 and kisvrand<3:gt 'kinosvid','1'
			 if kisvrand>2 and kisvrand<5:gt 'kinosvid','2'
			 if kisvrand=0 or kisvrand>4:gt 'kinosvid','3'
			 end
		 if kat<20:gt 'kinosvid','3'
		 end
	 end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/kinosvid/1.jpg" ></center>'
'By submitting you obediently <<$telsob>> distracted by the screen and wake it on you.'
act 'oh':
	 cla
	 *clr
	 set lesbian+=1
	 '<center><img src="img/kinosvid/2.jpg" ></center>'
	 '"Here I am clumsy" she whispered, her hands glided over your body picking popcorn, when she took off everything c dress her fingers slipped under clothes pulling back from the remnants of popcorn, from her touch you a little excited, <<$telsob>> as you have lifted up the clothes so that it was easier to get the popcorn.
	 Suddenly she lifted her head and looked around the room, in which no one except you nebilo and said with a smile "will treat popkornchikom?" With these words she lowered her head to your chest and balances popcorn became quickly disappears from your body under the influence of its language, Send them to her mouth.'
	 act 'enjoy':gt 'kinosvid','10'
	 act 'fondle her':gt 'kinosvid','11'
	 end
end

if $ARGS[0] = '10':
cla
*clr
set orgasm += 1
'<center><img src="img/kinosvid/3.jpg" ></center>'
'Soon her tongue down below the stomach and here <<$telsob>> already dug tongue in your pussy expertly massaging the clitoris and bringing you to orgasm.'
act 'enjoy':
	 cla
	 *clr
	 set orgasm += 1
	 set vagina += 1
	 '<center><img src="img/kinosvid/4.jpg" ></center>'
	 '<<$telsob>> Suppose that in the course of fingers, continuing to massage the clitoris language, she put her first one, then a second finger , for so she put all her fingers and brush completely entered and you start to move cautiously in continuing to lick clit, after a few seconds of this massage you again covered orgasm.'
	 act 'fondle her':gt 'kinosvid','13'
	 act 'End_Up':gt 'kinosvid','3'
	 end
act 'fondle her':gt 'kinosvid','12'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="img/kinosvid/5.jpg" ></center>'
'You rose from the chair and forcing her to stand glaring lips in her chest, put his hand into her pants, her pussy was already very wet and your fingers easily into proskalznuli. A minute later <<$telsob>> strongly pressed your head to your chest and you feel like all of her body shuddered and in your hand ran down her juices.'
act 'Caressing her pussy':gt 'kinosvid','14'
act 'Fondle her ass':gt 'kinosvid','15'
act 'To its knees':gt 'kinosvid','16'
end

if $ARGS[0] = '12':
cla
*clr
'<center><img src="img/kinosvid/6.jpg" ></center>'
'You slipped lower and taking <<$telsob>> under the arms pulled upward, she understood what you want quickly and zaskachila on chair, placing her oozing pussy on your face. Clinging lips to her crotch you have entered your tongue in her, diligently plying them inside. After a few minutes <<$telsob>> quickly began to rub against your mouth and within seconds.'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '13':
cla
*clr
'<center><img src="img/kinosvid/7.jpg" ></center>'
'Seated in her chair, you knelt down and began to lick her pussy Simultaneity inserting her fingers one by one, when her pussy stretched enough, you with folded hands and gently entered her. soon <<$telsob>> shuddered and pulled out of her mouth moan of pleasure.'
act 'substitute the ass':gt 'kinosvid','110'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '14':
cla
*clr
'<center><img src="img/kinosvid/8.jpg" ></center>'
'Unfolding it back to him you are a bit pushed her forward so that she got her knees on a chair and knelt clung to her pussy, your tongue is dropped into it inside to caress the clitoris, <<$telsob>> moaning with pleasure.'
act 'fondle her':gt 'kinosvid','17'
end

if $ARGS[0] = '15':
cla
*clr
'<center><img src="img/kinosvid/9.jpg" ></center>'
'Unfolding it back to him you are a bit pushed her forward so that she got her knees on a chair and knelt clung to her ass, your tongue is dropped into the inside of the anus is caressed the buttocks, <<$telsob>> moaning with pleasure, trying to run a deeper your language.'
act 'fondle her':gt 'kinosvid','17'
end

if $ARGS[0] = '16':
cla
*clr
'<center><img src="img/kinosvid/11.jpg" ></center>'
'You pressed on her shoulders and <<$telsob>> quickly dropped to his knees in front of you, You arched forward trying to give her maximum access to her crotch, <<$telsob>> pressed her lips to your pussy and then sucks in your sponge is to indulge in language, massaging your clitoris.'
act 'enjoy':gt 'kinosvid','18'
act 'fondle her':gt 'kinosvid','19'
end

if $ARGS[0] = '17':
cla
*clr
'<center><img src="img/kinosvid/10.jpg" ></center>'
'Gradual you have started to enter her pussy fingers, Simultaneity Shchekotov her anus tongue, every time her vagina stretched enough you shoved another finger, a few minutes later your whole hand was inside her pussy. <<$telsob>> moaning and diligently podmahivala to the beat of your hand, a couple of minutes she screamed, strongly gripping the chair and you felt inside her womb spreads heat.'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '18':
cla
*clr
set orgasm += 1
'<center><img src="img/kinosvid/12.jpg" ></center>'
'You killed a leg up on a chair and <<$telsob>> embracing your hip continued to kiss your pussy then penetrates into the language, then kissing her clit, sucked into itself. A few minutes later exhausted and satisfied collapsed on a chair.'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '19':
cla
*clr
'<center><img src="img/kinosvid/13.jpg" ></center>'
'You raised her and helped to get back in his chair, then straddled her legs sat down at her pussy passionately licking her lips and clitoris, after a few minutes <<$telsob>> moaned, grabbing you by the hair and richly finished, you tchatelno licked all that flowed from it Stra not miss not drop.'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '110':
cla
*clr
set orgasm += 1
'<center><img src="img/kinosvid/14.jpg" ></center>'
'You stood knee on a chair, Turning to her ass and began to shake her hips invitingly, <<$telsob>> not long in coming, after a couple of seconds, after a few minutes of this massage you left off, and <<$telsob>> tchatelno lapped up all the juices from your hips.'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '2':
cla
*clr
set lesbian+=1
'<center><img src="img/kinosvid/0.jpg" ></center>'
'During the session <<$telsob>> said that it is necessary to go out and quietly left the room.'
act 'wait':
	 cla
	 *clr
	 '<center><img src="img/kinosvid/20.jpg" ></center>'
	 if kendra = 0:'While it was not nice to you hooked African beztseremonno and putting his hand on her hip you, began stroking it slowly priblezhayas to the perineum and now her fingers naglazhivayut your clitoris. You are confused by such impudence and just sat in a stupor watching namanikyurinye nails penetrate you in the vagina. At this point in the hall back <<$telsob>> and uvidivetu picture, African vskhvatila immediately behind the ear, guys sitting in the audience laughed and returned <<$telsob>> started yelling at them as, that they would prefer to retire. In the hall there were only you and <<$telsob>>.'
	 if kendra > 0:'While she was not addicted to you and Kendra beztseremonno putting his hand on her hip you, began stroking it slowly priblezhayas to the perineum and now her fingers naglazhivayut your clitoris. You are confused by such impudence and just sat in a stupor watching namanikyurinye nails penetrate you in the vagina. At this point in the hall back <<$telsob>> and uvidivetu picture, immediately vskhvatila Kendra `s ear and pulled out of the hall, guys sitting in the audience laughed and returned <<$telsob>> started yelling at them as, that they would prefer to retire. In the hall there were only you and <<$telsob>>.'
	 act'wait':
		 cla
		 *clr
		 '<center><img src="img/kinosvid/21.jpg" ></center>'
		 'when <<$telsob>> calmed down a bit and sat back down next to you, you still and sat with legs wide open and bare wet pussy. Looking at you, <<$telsob>> quietly began to take off with your clothes top'
		 act'wait':
			 cla
			 *clr
			 set vagina += 1
			 set orgasm += 1
			 '<center><img src="img/kinosvid/22.jpg" ></center>'
			 'when <<$telsob>> bared your breasts, you first walked on her tongue, and then you glaring lips, with the force you put two fingers into the vagina and moving them violently pryanyalas, It seems that the anger in her still raged. You flattered that <<$telsob>> jealous and you began to carefully podmahivat, though hardly keep up with her вЂ‹вЂ‹movements, and finished in a few minutes. <<$telsob>> not appeased and tried to turn you.'
			 act 'submit':
				 cla
				 *clr
				 set orgasm += 1
				 '<center><img src="img/kinosvid/23.jpg" ></center>'
				 'You obediently rolled over and got up on the chair cancer, this time four fingers into the vagina you have entered. <<$telsob>> they moved with such speed that soon you become sick, but made вЂ‹вЂ‹its way through the pain and the pleasure you again soon finished.'
				 act 'further':
					 cla
					 *clr
					 '<center><img src="img/kinosvid/24.jpg" ></center>'
					 '<<$telsob>> stood on a nearby chair and poodlokotniki taking your hand put four fingers in the pussy itself, you started to move his hand gently trying not to hurt her, but received ukorizniny view, accelerated as I could. <<$telsob>> Moaned so shouted over film, Soon she went limp vskriknulai, sliding armrest with you and kiss it as if nothing had happened continued to watch the movie.'
					 act 'End_Up':gt 'kinosvid','3'
					 end
				 end
			 act 'fondle her':gt 'kinosvid','22'
			 end
		 act 'fondle her':gt 'kinosvid','21'
		 end
	 end
end

if $ARGS[0] = '21':
cla
*clr
'<center><img src="img/kinosvid/25.jpg" ></center>'
'Without waiting for her to finish in throw off the remnants of clothes and sat on the floor in front of her to throw back his head and draw out the tongue. <<$telsob>> slowly got up off his clothes and stood over you, She shook her hips several times so your protruding tongue walked on her pussy, then stopped by placing her pussy so, your tongue lightly touched her clitoris. You clung to her crotch and then ran into the language that tickled the clitoris, after a few minutes <<$telsob>> finished filling your mouth with their secretions.'
act 'End_Up':
	 cla
	 *clr
	 set orgasm += 1
	 '<center><img src="img/kinosvid/26.jpg" ></center>'
	 'When you `re dressed and sat down to watch the film again, <<$telsob>> suddenly dropped to her knees in your chair and your feet spread wide his lips snapped you in the pussy, zasklzil her tongue on your lips and clitoris then dropping into the vagina then slipped just below the anus. Soon, your body stirred up the skin and chills ran wave of pleasure you covered.'
	 act 'End_Up':gt 'kinosvid','3'
	 end
end

if $ARGS[0] = '22':
cla
*clr
'<center><img src="img/kinosvid/27.jpg" ></center>'
'You gently pushes him away and knelt lifts up her legs up. <<$telsob>> opens her thighs with his hands and you start to caress her tongue, first carried out on the thighs and then lick her lips and tongue akuratno enter it into the vagina, then spiraling back to back thigh, a few such approaches <<$telsob>> begins to tremble .'
act 'End_Up':gt 'kinosvid','3'
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut+=90
gs 'stat'
'When the film ended <<$telsob>> said that she had to flee and left'
act 'Get_Away':gt'torgcentr'
end
--- kinosvid ---------------------------------

# kitchen
'<center><B>kitchen</B></center>'
'<center><img src="img/centr/kitchen.jpg" ></center>'
set minut+=5
gs 'stat'
act 'In the corridor':gt'house'
act 'Is_There':
	 cla
	 *clr
	 gs'stat'
	 frost=0
	 '<center><img src="pics/food.jpg" ></center>'
	 set minut = minut + 30
	 set edahot = 0
	 set health = health + 10
	 set manna = manna + 20
	 if energy >= 30:
		 set fat = fat + 5
		 'You can no longer have.'
		 end
	 if energy >= 20 and energy < 30:
		 set fat = fat + 3
		 set energy = energy + 10
		 'You pushed through the power of a meal.'
		 end
	 if energy < 20:
		 set energy = energy +20
		 set fat = fat + 1
		 'You gladly ate cooked food.'
		 end
	 if water >= 20:
		 'Tea in you no longer climbs.'
		 end
	 if water < 20:
		 'You gladly drank a cup of tea.'
		 set water = water +20
		 end
	 act 'Get up from the table':gt'kitchen'
	 end

if tanwork=1:
	 act 'cook':
		 set minut+=60
		 set nikrand=rand(0,5)
		 if vnesh>20 and nikrand=0 and hour>=6 and hour<=9 and week<6 and niksexday ! day:
			 cla
			 set niksexday = day
			 'The kitchen has breakfast Tannin stepfather, Mamontov'
			 act 'Do their own thing.':gt'kitchen'
			 if niksex=0 and tanga=0:
				 cla
				 'You notice that he is not taking his eyes off your ass, which is not surprising trisikov because you do not have.'
				 act 'Do their own thing.':gt'kitchen'
				 act 'seduce':
					 cla
					 *clr
					 set niksex=1
					 set nik+=1
					 '<center><img src="img/centr/kitchensob.jpg" ></center>'
					 'You bend down so, your bare ass appears before him in all its glory, and continue to do their work, pretending that he did not notice that the skirt rode up and you bare ass, in the end when you once again that you drop or bend down behind it without bending the legs, Nicholas comes to you and gently lozhit hand on your buttocks.'
					 act 'blow_job':
						 cla
						 *clr
						 set nik+=2
						 set cumlip+=1
						 set bj+=1
						 set guy+=1
						 '<center><img src="img/centr/kitchenminet.jpg" ></center>'
						 'You get up on his knees and his pants are releasing rastegnuv his huge cock. Licked the head of his lips grabs you and takes diligently trying to suck tighten it as far as possible, but do not reach even half, and finally he starts to cum in your mouth pouring jet of sperm, you hardly have time to swallow, but she does not end, When she finally came to an end you carefully licked a member of sperm, and removing it back in your pants stood up and turned to the plate without even looking at Nicholas. He put around the plate 1000 and left.'
						 act 'get money':
							 set money+=1000
							 set nikslut=1
							 gt'kitchen'
							 end
						 act 'Do not borrow money':gt'kitchen'
						 end
					 act 'anal':
						 cla
						 *clr
						 set guy+=1
						 set anal+=1
						 set nik+=5
						 set cumassin+=1
						 '<center><img src="img/centr/kitchenanal.jpg" ></center>'
						 'Not turning to him , Spreading the buttocks, a second you in the anus rests his dick, when it starts to go -would not cry out in pain, his cock is too big for your ass. You only slightly moan as his big dildo breaks your anus, Although you want to scream in pain. Finally, it so much that you have to exert much buttocks, what-would not it all spilled out onto the floor. He lozhit about plate 2000 and is.'
						 act 'get money':
							 set money+=2000
							 set nikslut=1
							 gt'kitchen'
							 end
						 act 'Do not borrow money':gt'kitchen'
						 end
					 end
				 end
			 if niksex=1 and nikslut=0 and niksvid=0:
				 cla
				 'He comes to you and his hands once you climb under her skirt'
				 act 'blow_job':
					 cla
					 *clr
					 set bj+=1
					 set guy+=1
					 set nik+=1
					 set cumlip+=1
					 '<center><img src="img/centr/kitchenminet.jpg" ></center>'
					 'You get up on his knees and his pants are releasing rastegnuv his huge cock. Licked the head of his lips grabs you and takes diligently trying to suck tighten it as far as possible, but not even half dostoete, and finally he starts to cum in your mouth pouring jet of sperm, you hardly have time to swallow, but she does not end, When she finally came to an end definitively you licked a member of sperm, and removing it back in your pants stood up and turned to the plate without even looking at Nicholas. He turns to you and stretches itself 1000 RUB.'
					 act 'get money':
						 set money+=1000
						 set nikslut=1
						 gt'kitchen'
						 end
					 act 'Do not borrow money':
						 cla
						 set niksvid=1
						 'You look at the money and then at him vleplyaete slap him with the words, "I`m not a whore, and do not fuck for money".
						 He looks at you a little dumbfounded "Fair_Enough" says Nicholas and out of the kitchen.'
						 act 'Back to business':gt'kitchen'
						 end
					 end
				 act 'anal':
					 cla
					 *clr
					 set nik+=2
					 set cumassin+=1
					 '<center><img src="img/centr/kitchenanal.jpg" ></center>'
					 'Not turning to him , Spreading the buttocks, a second you in the anus rests his dick, he quickly comes into you and you will not hurt so much and even nice when his cock is fucking your ass. You moan and he diligently podmahivat, he soon discharged in you. He hands you 2000 RUB.'
					 act 'get money':
						 set money+=2000
						 set nikslut=1
						 gt'kitchen'
						 end
					     act 'Do not borrow money':
						 set niksvid=1
						 'You look at the money and then at him vleplyaete slap him with the words, "I`m not a whore, and do not fuck for money".
						 He looks at you a little dumbfounded "Fair_Enough" says Nicholas and out of the kitchen.'
						 act 'Back to business':gt'kitchen'
						 end
					 end
				 end
			 if nikslut=1:
				 cla
				 *clr
				 set SUB+=1
				 set nikslutrand=rand(0,1)
				 if nikslutrand=0:
					 set bj+=1
					 set cumlip+=1
					 set money+=500
					 '<center><img src="img/centr/kitchenminet.jpg" ></center>'
					 'He comes to you and put a hand on his shoulder to his knees otuskaet. Quickly realizing that he wants you open your mouth and obediently suck until it fills your mouth with his sperm, it leaves you 500 RUB. and leaves.'
					 if horny>60:
						 cla
						 set orgasm+=1
						 set horny=0
						 'You too excited that-to think about something other than sex, you`ll have to do a'
						 act'hand':
							 cla
							 *clr
							 '<center><img src="img/th/m0.jpg" ></center>'
							 'Lowering his hand to the crotch of a pair palichikov you have inserted themselves in the pussy and began to actively move them to bring themselves to orgasm.'
							 act 'Back to business':gt'kitchen'
							 end
						 act'improvised means':
							 cla
							 *clr
							 '<center><img src="img/th/m1.jpg" ></center>'
							 'You got out of the refrigerator cucumber, lick it on the right itself in the pussy. It was a cold cucumber, and at first you start to disappear excitement, but soon gave chill new sensations and you start to like it, cold cucumber moved in your pussy. You have opened the refrigerator for plowing and settled close to him, chill run you on the back and the skin crawled. Only your pussy remained razgorechennoy and soon enveloped you enjoy. Slightly recovering himself ejecting already warmed cucumber and closed the refrigerator, looking at the cucumber you decide to put it on the salad and even the hostess did not wash, be it a special taste.'
							 act 'Back to business':gt'kitchen'
							 end
						 end
					 act 'Back to business':gt'kitchen'
					 end
				 if nikslutrand=1:
					 set anal+=1
					 set cumass+=1
					 set money+=1000
					 '<center><img src="img/centr/kitchenanal.jpg" ></center>'
					 'He comes to you and you lifted up her skirt pushed the buttocks, you barely have time to lubricate the anus before it with force pushes him his cock, You stand in silence and wait until he finishes, to Nicholas vyterat your body on your ass and leave you 1000 RUB. leaves.'
					 if horny>60:
						 cla
						 set orgasm+=1
						 set horny=0
						 'You too excited that-to think about something other than sex, you`ll have to do a'
						 act'hand':
							 cla
							 *clr
							 '<center><img src="img/th/m0.jpg" ></center>'
							 'Lowering his hand to the crotch of a pair palichikov you have inserted themselves in the pussy and began to actively move them to bring themselves to orgasm.'
							 act 'Back to business':gt'kitchen'
							 end
						 act'improvised means':
							 cla
							 *clr
							 '<center><img src="img/th/m1.jpg" ></center>'
							 'You got out of the refrigerator cucumber, lick it on the right itself in the pussy. It was a cold cucumber, and at first you start to disappear excitement, but soon gave chill new sensations and you start to like it, cold cucumber moved in your pussy. You have opened the refrigerator for plowing and settled close to him, chill run you on the back and the skin crawled. Only your pussy remained razgorechennoy and soon enveloped you enjoy. Slightly recovering himself ejecting already warmed cucumber and closed the refrigerator, looking at the cucumber you decide to put it on the salad and even the hostess did not wash, be it a special taste.'
							 act 'Back to business':gt'kitchen'
							 end
						 end
					 act 'Back to business':gt'kitchen'
					 end
				 end
			 end
		 'You have prepared food'
		 act 'End_Up':gt'kitchen'
		 end
	 end

if pranik>0:
	 act 'Cup of tea with cookies (5 min)':
		 cla
		 *clr
		 minut+=5
		 pranik-=1
		 set health = health + 30
		 set manna = manna + 100
		 energy += 20
		 water += 20
		 fat+=50
		 frost=0
		 gs'stat'
		 '<center><img src="pics/food.jpg" ></center>'
		 'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
		 act 'Get up from the table':gt'kitchen'
		 end
	 end

if edaD > 0:
	 act 'There are diet food (30 min)':
		 cla
		 *clr
		 frost=0
		 '<center><img src="pics/food.jpg" ></center>'
		 set minut = minut + 30
		 set health = health + 10
		 set manna = manna + 20
		 set edaD = edaD - 1
		 if energy >= 30:
			 'You can no longer have.'
			 end
			 if energy >= 20 and energy < 30:
			 set energy = energy + 10
			 'You pushed through the power of a meal.'
			 end
			 if energy < 20:
			 set energy = energy +20
			 'You gladly ate cooked food.'
			 end
			 if water >= 20:
			 'Tea in you no longer climbs.'
			 end
			 if water < 20:
			 'You gladly drank a cup of tea.'
			 set water = water +20
			 end
		 act 'Get up from the table':gt'kitchen'
		 end
	 end

if fatdel > 0:
	 act 'to use fat burners':
		 cla
		 *clr
		 set fatdel = fatdel - 1
		 set fat = fat - 25
		 if fat<0:fat=0
		 'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
		 act 'Get up from the table':gt'kitchen'
		 end
	 end

act 'drink':
	 cla
	 set minut = minut + 5
	 if water >= 20:
		 'Water in you no longer climbs.'
		 end
	 if water < 20:
		 'You gladly drank a glass of water.'
		 set water = water +20
		 end
	 act 'Get up from the table':gt'kitchen'
	 end
if lekarstvo>0:
	 'you have <<lekarstvo>> tablets.'
	 if sick>0 and lekarday!day:
		 act 'take a pill':
			 cla
			 *clr
			 set minut = minut + 5
			 lekarday=day
			 lekarstvo-=1
			 sick-=sick*20/100
			 set lekrand = RAND (0,8)
			 if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
			 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
			 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
			 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
			 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
			 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
			 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
			 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
			 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
			 'You drank the pill'
			 act 'move_away':gt'kitchen'
			 end
		 end
	 end

if vitamin>0:
	 'you have <<vitamin>> vitaminok.'
	 if vitaminday!day:
		 act 'drink Vitaminki':
			 cla
			 *clr
			 set minut = minut + 5
			 set vitaminday=day
			 set vitamin-=1
			 set frost=0
			 set skinvan = skinvan + 1
			 if skinvan = 20:set skinvan = 0&set skin = skin + 1
			 'You drank Vitaminki'
			 act 'move_away':gt'kitchen'
			 end
		 end
	 end
set housekitrand=rand(0,10)
if nikslut=1 and hour>17 and hour<20 and housekitrand>8 and niksexday ! day:
	 cla
	 *clr
	 set SUB+=1
	 set guy+=1
	 set minut+=20
	 set niksexday = day
	 set money+=2000
	 set picrand=36
	 '<center><img src="img/th/s1.jpg" ></center>'
	 'Nicholas went to the kitchen with another man "Sveta, Feed us" he said. You get all warmed up and began to wait when they will eat. When they finished  "Thank_U, Light it was delicious, and where dessert?" You frantically began to think that they give for dessert, because you did not have anything prepared. "Yes you stand" said Nikolai see your throwing the kitchen in search of dessert, "You do not understand, Here come the dessert" he said. You exhaled with relief, so this dessert you always at the ready. You quickly removed everything from the table and do not have got it.'
	 act'begin':xgt'sexdvoe','var'
	 end
--- kitchen ---------------------------------

# Kwlake1
clr
gs 'stat'
'<center><img src="img/Lake/kwlake1/kwlake1.jpg"></center>'
'Walking along the beach you notice an unusual stone forms, resembling a dildo.
"Look how cool" interrupting you Cat story about some guy, pointing to the stone.
Kate picks up a stone, examines and laughing shoves it in his mouth portraying blowjob'
act 'laugh.':gt 'Kwlake1','end'
act 'fondle her.':
	 cla
	 *clr
	 set kat += 5
	 set lesbian+=1
	 '<center><img src="img/Lake/kwlake1/kwlake2.jpg"></center>'
	 'You Spit pubis Katie, Get down and his hand beneath his fingers in her pussy. Kat puts little feet, you go down on your knees and kiss her pubis, slowly moving to pussy and starting to caress her tongue.'
	 act 'lie_Down':
		 cla
		 *clr
		 set kuni+=1
		 '<center><img src="img/Lake/kwlake1/kwlake3.jpg"></center>'
		 'You lie on the sand, Kat gives you the stone, and she spends the language of your razgorechenomu body from neck to crotch and begins to fondle your language. You are so excited, that without noticing take a stone in his mouth and begin to suck it. You Kat so enthusiastic with each other that nazametili approached Man, He , after a few minutes you will notice it.'
		 act 'Get_Away':gt 'Nudelake'
		 act 'called Man':
			 cla
			 *clr
			 set kat += 5
			 set mastr+=1
			 set orgasm+=1
			 '<center><img src="img/Lake/kwlake1/kwlake4.jpg"></center>'
			 'You beckon Man, he comes and stops undecided, not knowing who to approach you or Cat. But Kate did not give him a long time to come in thought, turning to him Kate grabbed his cock with his lips, leaving your expiring pussy alone, but you are not taken aback by inserting a stone at her, began to masturbate, not yet brought herself to orgasm.'
			 act 'Approach the Cat':
				 cla
				 *clr
				 '<center><img src="img/Lake/kwlake1/kwlake5.jpg"></center>'
				 'While you masturbated Katya already saddled Man, you come to it apply the stone to his pubes, Cat with a smile enough Kamet licking lips with him your juices.'
				 act '...':
					 cla
					 *clr
					 set anal+=1
					 '<center><img src="img/Lake/kwlake1/kwlake6.jpg"></center>'
					 'The guy puts on all fours and Kate enters her ass, You also get up on all fours ass turning to Kate and give her the stone. Kate without hesitation stone inserts into your anus.'
					 act '...':
						 cla
						 *clr
						 '<center><img src="img/Lake/kwlake1/kwlake7.jpg"></center>'
						 'Sated Katina ass, the guy puts her on her knees and cums in her mouth'
						 act 'Get_Away':gt 'Nudelake'
						 end
					 end
				 end
			 end
		 end
	 end

if $ARGS[0]='end':
cla
'"pervert" laughing at you
"what, easy blowjob stone god, can make my boyfriend eternal riser." Kate laughs, throws a stone and returns to its raskaz.'
act 'End_Up':gt 'Nudelake'
end
--- Kwlake1 ---------------------------------

# Kwlake2
clr
gs'stat'
'<center><img src="img/Lake/kwlake2/kwlake1.jpg"></center>'
'Walking along the beach .
"Let`s sit here not much" Katya offers.'
act '"No, go from here".':gt 'Nudelake'
act '"Bring_It_On".':
	 cla
	 *clr
	 set kat += 5
	 '<center><img src="img/Lake/kwlake2/kwlake2.jpg"></center>'
	 'You sodites nedoleko from men, Kate begins to stroke your pussy and kissing his chest, you watch the corner of my eye a man, seeing such a representation , rolled over and slid under her arm.'
	 act '"Kat. enough, go here"':gt 'Nudelake'
	 act 'call a man':
		 cla
		 *clr
		 set kat += 5
		 set kuni+=1
		 set bj+=1
		 '<center><img src="img/Lake/kwlake2/kwlake3.jpg"></center>'
		 'When Kate begins to lick your pussy, you beckon man, he quickly jumps up and runs over to you, taking off her pants. Man ran opuskaetsyaryadom with you on your knees, poking his cock in your face. Once you have managed to preotkryt mouth, he immediately put him in his penis and not waiting when you start sucking, began to fuck your mouth.'
		 act '...':
			 cla
			 *clr
			 set sex+=1
			 '<center><img src="img/Lake/kwlake2/kwlake4.jpg"></center>'
			 'When he tired of your mouth, He lay on his back, and you put on yourself, back to itself. Kate stood over you substituting her pussy to your mouth. While the man process your vagina, Kat and you lick it soon bore fruit. Kate hugged you tightly clenched to her pussy and you feel like she shuddered and her juices began to flow into your mouth.'
			 act '...':
				 cla
				 *clr
				 set cumlip+=1
				 set orgasm+=1
				 '<center><img src="img/Lake/kwlake2/kwlake5.jpg"></center>'
				 'Soon. Kate also settled down under you, caressing your clitoris language. Did you feel like your bosom pleasant warmth spreads, you pressed harder to Cat, literally pushing its head in the sand. Dick in your mouth , man poured your mouth with his sperm, and your juices flowed in her mouth Katie.'
				 act 'Get_Away':gt 'Nudelake'
				 end
			 end
		 end
	 end
--- Kwlake2 ---------------------------------

# lezbsex
if $ARGS[0]='start':
gs 'stat'
set picrand = RAND (0,1)
set girl+=1
set lesbian+=1
if tanznak=1:
	 set picrand=12
	 set tanznak=2
	 end
xgt'lezbsex','var'
end

if $ARGS[0]='var':
gs 'stat'
if picrand!11:act 'Cooney':gt'lezbsex','kuni'
act 'make Cooney':gt'lezbsex','ukuni'
if picrand!12 and picrand!13 and picrand!14 and picrand!16 and picrand!17 and picrand!18 and picrand!21:act 'anulingus':gt'lezbsex','anuli'
if picrand!12 and picrand!13 and picrand!14 and picrand!16 and picrand!17 and picrand!18 and picrand!21:act 'make anulingus':gt'lezbsex','uanuli'
if strapon=1 and picrand!11 and picrand!12 and picrand!13 and picrand!14 and picrand!15 and picrand!16 and picrand!17 and picrand!18 and picrand!19 and picrand!20 and picrand!21 and picrand!22:
	 act 'Strap in pussy':gt'lezbsex','svag'
	 act 'Strapon in the ass':gt'lezbsex','sanal'
	 act 'Strap on your pussy':gt'lezbsex','usvag'
	 act 'Strap you in the ass':gt'lezbsex','usanal'
	 end
if dildo=1 and picrand!12 and picrand!19 and picrand!20 and picrand!22:
	 act 'Dildo in pussy':gt'lezbsex','dvag'
	 if picrand!11 and picrand!15 and picrand!16 and picrand!17 and picrand!18 and picrand!21:act 'Dildo in the ass':gt'lezbsex','danal'
	 if picrand!11:act 'Dildo your pussy':gt'lezbsex','udvag'
	 if picrand!11 and picrand!14 and picrand!15 and picrand!16 and picrand!17 and picrand!18 and picrand!21:act 'Dildo you in the ass':gt'lezbsex','udanal'
	 end
end

if $ARGS[0]='ukuni':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/ukuni<<picrand>>.jpg"></center>'
'You kiss her breasts gradual descending lower and lower , you start licking her lips, setting the stage for his tongue between them touch the clitoris, girl spreads her lips with your fingers, that would be nothing stopping you caress the clitoris.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='kuni':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/kuni<<picrand>>.jpg"></center>'
'Girl holds his tongue over your hips, kisses pubis and goes down to the vagina, her tongue slides over your crotch is caressing the clitoris is penetrating the vagina.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='anuli':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/anuli<<picrand>>.jpg"></center>'
'She kisses your buttocks gradual priblezhayas to the center, reaching a goal, displays and again licking anus, then everything is repeated again.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='uanuli':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/uanuli<<picrand>>.jpg"></center>'
'You lick her buttocks gradual priblezhayas to the center, reaching the anus, spend his tongue over his tongue and get inside her priests, removing and re- licking anus.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='svag':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
set DOM+=1
'<center><img src="img/lezbsex/svag<<picrand>>.jpg"></center>'
'You put the strap and insert into her pussy, she yells while you fuck her.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='sanal':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
set DOM+=2
'<center><img src="img/lezbsex/sanal<<picrand>>.jpg"></center>'
'You put the strap and gently insert it into the anus girls, starting to fuck her ass at first hesitates then faster and faster.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='usvag':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/usvag<<picrand>>.jpg"></center>'
'Girl puts strap you in the pussy, it moves back and forth bringing you pleasure.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='usanal':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/usanal<<picrand>>.jpg"></center>'
'Girl spits you on the ass, collects saliva tip of the strap and insert it to you in the ass, you feel like it is moving in your ass, with each thrust faster and deeper.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='dvag':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/dvag<<picrand>>.jpg"></center>'
'You take a dildo and shoves in her pussy, girl kisses you while you are driving with one hand and the second dildo caress her breasts.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='danal':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/danal<<picrand>>.jpg"></center>'
'You take a dildo, lick it, trying to keep it on the maximum amount of saliva, and gently insert into the anus girls, starting to fuck her ass dildo at first hesitates and then faster and faster.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='udvag':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/udvag<<picrand>>.jpg"></center>'
'Girl puts dildo in the pussy you, she moves it back and forth while constantly provarachivaya it, dildo in her hands to get better any member.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='udanal':
cla
*clr
set horny+=10
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=5
'<center><img src="img/lezbsex/udanal<<picrand>>.jpg"></center>'
'Girl spits you on the ass, collects saliva tip of the dildo and inserts it to you in the ass, you feel like it stretches your anus, bringing you pleasure.'
act 'More':xgt'lezbsex','var'
act 'Get_Away':gt 'lezbsex','end'
end

if $ARGS[0]='end':
cla
if picrand=22:gt'down'
if picrand=21:gt'vann','start'
if picrand=19 or picrand=20:gt'office','work'
if tanznak=2:gt'fit','razd'
gt '<<$sexloc>>','start'
end
--- lezbsex ---------------------------------

# masharoom
if $ARGS[0]='start':
cla
*clr
gs 'stat'
if hour>=7 and hour<=20:
	 '<center><img src="img/masha/r1.jpg" ></center>'
	 'Konata Masha, huge room with obsharpannosti wall and lots of all kinds of sex toys and accessories.'
	 'Masha no, and the door of this bungler forgot to close.'
	 act 'wait an hour':
		 set minut+=60
		 if hour>=7 and hour<=20:gt'masharoom','start'
		 if hour<7 or hour>20:gt'masharoom','0'
		 end
	 act 'trying on costumes':
		 cla
		 *clr
		 set minut+=60
		 set mashroomrand=RAND(0,10)
		 if mashroomrand=10:gt'masharoom','1'
		 if mashroomrand=9:gt'masharoom','2'
		 '<center><img src="img/masha/r2.jpg" ></center>'
		 'You more interested suits hanging on the walls and you decide to try a few over.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 act 'Get_Away':gt'sexshop','podval'
	 end
if hour<7 or hour>20:gt'masharoom','0'
end

if $ARGS[0]='0':
gs 'stat'
cla
*clr
'<center><img src="img/masha/r0.jpg" ></center>'
'Konata Masha, huge room with obsharpannosti wall and lots of all kinds of sex toys and accessories.'
'Masha is lying half-naked on the bed.'
if month>5 and temper>20 and osadki<painweather:
	 act 'Even walk on a leash':
		 cla
		 *clr
		 set DOM+=1
		 set minut+=60
		 '<center><img src="img/masha/r30.jpg" ></center>'
		 'You put Masha collar and the back door is displayed on the street to the nearest gateway. Masha seems not even embarrassed that someone-you can see her on a leash briskly paces on all fours and a couple of times even urinating on the sidewalk. Portraying contented dog, it rubs against your legs, then licks shoes.'
		 act 'Force to sweep the streets':
			 cla
			 *clr
			 set DOM+=1
			 '<center><img src="img/masha/r31.jpg" ></center>'
			 'You give her a broom and sweep out order. Masha quickly jumps up and begins to carefully revenge, such janitor perhaps no one has ever seen.'
			 act'compliment':
				 cla
				 *clr
				 '<center><img src="img/masha/r32.jpg" ></center>'
				 '"Good_For_You, good job here is your reward." With these words. Masha quickly came to you and turning gently spread on dildo pussy. You stood propped up on her back and watched as Mary yarosno put on the dildo her hips swaying to the beat of her movements. A few minutes later Mary was startled and jumped off with dildo knelt, his breath she carefully licked all their selections with dildo and began to lick your shoes. "All went home" you said lightly tugging the leash.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'punish':
				 cla
				 *clr
				 '<center><img src="img/masha/r33.jpg" ></center>'
				 '"poorly, too bad you should be punished" these Slovan you took her broom. "stoop" commanded you, Masha obediently turned his back to you and bent. You started whipping her buttocks with a broom, a few strokes you notice that her face streaming tears, but she continued to stand in silence, suffering blows. When you have finished her ass was crimson red, Masha quickly dropped to all fours and cautiously approached the beginning you rub on your feet, "Okay" you said patting her head, Masha immediately perked up and happily went near you.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 end
		 act 'End_Up':gt'masharoom','start'
		 end
	 end
act 'Play with candles':
	 cla
	 *clr
	 set minut+=60
	 set lesbian+=1
	 set DOM+=1
	 '<center><img src="img/masha/r34.jpg" ></center>'
	 'You order Masha licking and she immediately drops to his knees in front of you. Her tongue glides over your crotch almost bringing you to orgasm, you straighten it and order the insert into place the strap candle. Masha little dig deeper, finally adjusts the candle, and puts this design for you.'
	 act'order to suck':
		 cla
		 *clr
		 '<center><img src="img/masha/r35.jpg" ></center>'
		 'You tell her to suck candle, and she passionately jumped on her and began furiously sucking. Masha tries his best then caressing her tongue is setting the stage for a cheek. A few minutes later you get tired of it.'
		 act'Pour the wax into the mouth':
			 cla
			 *clr
			 '<center><img src="img/masha/r36.jpg" ></center>'
			 '"And now I`m going to cum in your mouth" With these words. Masha without waiting for your orders is located under the candle mouth wide open. Wax started to melt and drain it in her mouth. Masha catching every drop with all her body shook with pain, but she continued to. Soon you will notice that her hands were clenched thighs, which have already started to shudder, you understand that she cums, when another drop fell into her mouth, Masha cried, stronger hands gripped her hips and over the whole body spasm probeschala, she came from the pain, "And she really turned on pain and submission." thought you putting out the candle. "rest" you threw it, and she immediately curled up on the floor.'
			 act 'End_Up':gt'masharoom','start'
			 end
		 act'Pour the wax on his chest':
			 cla
			 *clr
			 set orgasm+=1
			 '<center><img src="img/masha/r37.jpg" ></center>'
			 '"And now I`m going to cum on your chest, lay_down." With these words. Masha quickly lay on the floor . Vos started to drip her chest she shuddered every drop and moaning tihoniko. Every time a drop fell on the nipple of her body shook even more and you start it gets, you took aim at her nipples and soon your pussy was very wet, and her whole chest filled with wax on so that others will not drop it Hurts pain.'
			 act'Give her to lick':
				 cla
				 *clr
				 '<center><img src="img/masha/r38.jpg" ></center>'
				 'You threw off their makeshift strap, turning and sat her on the face. Masha did not make them wait immediately set in motion the language. She did not take long, You were so excited that in a few seconds you covered orgasm.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'Meet each other':
				 cla
				 *clr
				 '<center><img src="img/masha/r39.jpg" ></center>'
				 'You threw off their makeshift strap, turning and sat her on the face. Masha did not make them wait immediately set in motion the language, You leaned toward her dripping pussy and her naming conventions in your language. You did not take long, You both were so excited that in a few seconds you both covered orgasm.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 end
		 end
	 act'fuck her':
		 cla
		 *clr
		 '<center><img src="img/masha/r40.jpg" ></center>'
		 'You light a candle and get up over Masha so that the wax dripped on her buttocks. Wax begins to melt and flowing down the candle drips on the car the ass, with every drop of Mary wails, but does not even try to move away. A few minutes later her buttocks are covered with a layer of wax.'
		 act'Enter into it':
			 cla
			 *clr
			 '<center><img src="img/masha/r41.jpg" ></center>'
			 'You extinguish the candle and until the wax candles stood smoothing edges. Masha all this time stands still on his knees waiting for your instructions, You get up on his knees and putting it in back to back rukueС‘ tilt it to the front, then you notice that all of her thighs wet from her secretions, It seems that the pain it only excites, then vyreshaete little to change the target and raises a candle just above, juicy spit you enter a thick candle in her anus. Masha begins to scream and squirm all over, but does not even try to remove you, and you continue to enter. Giving her ass a little privvyknut to the size you start fucking her postepono accelerating, Masha howls in pain but you prodlzhaet diligently podmahivat. a few minutes later Masha loud screams and goes limp, legs she shines her juice. You pull out of her priests candle, Masha and collapses on its side, her face beatific smile. Now she can not do anything you have to remove makeshift strap.'
			 act 'End_Up':gt'masharoom','start'
			 end
		 end
	 end
act 'order lick':
	 cla
	 *clr
	 set minut+=60
	 set lesbian+=1
	 set DOM+=1
	 set orgasm+=1
	 '<center><img src="img/masha/r27.jpg" ></center>'
	 'You lie down on the sofa and calls Masha, you rskidyvaete legs and commanding "lick", Masha immediately crouches lips to your crotch, you shower the leash of her head and are strongly attracted to her pussy. Her tongue glides over your crotch is caressing the clitoris is penetrating the vagina, soon you will feel like an orgasm is getting closer.'
	 act 'carry_On':
		 cla
		 *clr
		 '<center><img src="img/masha/r29.jpg" ></center>'
		 'You jump on the couch and pulls her by the leash to her vagina. A few deft movements of the tongue and your juices filled her mouth.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 act'Ordered to lick ass':
		 cla
		 *clr
		 '<center><img src="img/masha/r28.jpg" ></center>'
		 'You go up on the couch on all fours and spending leash between your legs attracting her to her ass. Masha kiss your buttocks gradual priblezhayas to the center, reaching a goal, displays and again licking anus. After a couple of minutes of such manipulations with your anus, you end.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 end
act'play_a_little':
	 cla
	 *clr
	 set minut+=60
	 set DOM+=1
	 set lesbian+=1
	 '<center><img src="img/masha/r42.jpg" ></center>'
	 'You go to Masha and hugged her from behind starts stroking his chest, then go to the nipples, first pulling them tight squeeze then turning them in different directions. Masha meanders all body, teryas ass on your hips.'
	 act'Continue to play with breasts':
		 cla
		 *clr
		 '<center><img src="img/masha/r44.jpg" ></center>'
		 'You loshites on the bed and Meshe order to kneel at your feet. You rests her feet in the chest and heels start to press on her nipples , then more and more. The harder you pressed the heel in her chest, the more she moans, soon you will notice that her feet already flowing juice, she is so excited that that`s just ending.'
		 act'Activities her pussy':
			 cla
			 *clr
			 set picrand = RAND (49,51)
			 '<center><img src="img/masha/r<<picrand>>.jpg" ></center>'
			 'You grab the whip from the table and literally stabbed her in the car rukoyadkoy pussy, she screams and starts moaning. You force to fuck her rukoyadkoy, Masha soon starts to cum and she poured out a stream of juice.'
			 act'further':
				 cla
				 *clr
				 set orgasm+=1
				 '<center><img src="img/masha/r64.jpg" ></center>'
				 'You do not hold back and cling to her pussy lips starting to lick her release, and you are not expecting it ends.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 end
		 end
	 act'Let kissing your chest':
		 cla
		 *clr
		 '<center><img src="img/masha/r45.jpg" ></center>'
		 'You grab her by the hair and pulls his chest. Masha bites his lips to you in the chest, then kissing her trying to completely tighten in the mouth, that tickles the tongue nipples.'
		 act'order lick':
			 cla
			 *clr
			 set orgasm+=1
			 set picrand = RAND (46,48)
			 '<center><img src="img/masha/r<<picrand>>.jpg" ></center>'
			 'You order Masha licking your pussy and she immediately bites into her his tongue, her nimble tongue a minute later almost brings you to orgasm.'
			 act'Let continues':
				 cla
				 'You did not stop her.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'take strap-on':
				 cla
				 *clr
				 set picrand = RAND (53,54)
				 '<center><img src="img/masha/r<<picrand>>.jpg" ></center>'
				 'You stop it and bring order Strap, Masha brings helps you put it. When you are wearing the strap literally plunges it into his mouth, Masha begins to suck it as if in her mouth real member.'
				 act'In pussy':
					 cla
					 *clr
					 set picrand = RAND (57,63)
					 '<center><img src="img/masha/r<<picrand>>.jpg" ></center>'
					 'Removing it from the machine mouth, you put it in her pussy. Masha moaning and actively podmahivaet to the beat of your movements. Soon she cums violently uttering groan. You end after her making several strong, wide shocks.'
					 act 'End_Up':gt'masharoom','start'
					 end
				 act'In the ass':
					 cla
					 *clr
					 set picrand = RAND (55,56)
					 '<center><img src="img/masha/r<<picrand>>.jpg" ></center>'
					 'Removing it from the machine mouth, you insert it with the force of her anus. Masha moaning and actively podmahivaet to the beat of your movements. Soon she cums violently uttering groan. You end after her making several strong, wide shocks.'
					 act 'End_Up':gt'masharoom','start'
					 end
				 end
			 end
		 end
	 act'Let caress your pussy':
		 cla
		 *clr
		 '<center><img src="img/masha/r43.jpg" ></center>'
		 'You take her hand and napravlete his crotch, Mary began to stroke your pussy fingering clit. Her nimble fingers almost bring you to orgasm'
		 act'Let continues':
			 cla
			 'You did not stop her.'
			 act 'End_Up':gt'masharoom','start'
			 end
		 act'Order to take a dildo':
			 cla
			 *clr
			 '<center><img src="img/masha/r52.jpg" ></center>'
			 'You order Masha take dildo. She takes it and get back to you in the pussy. You do not require a lot of time and your razgorechennaya, her fingers pussy, a few minutes later finished. When you are finished, Masha took the dildo from you and start to suck it, and the other hand to finger her pussy, a few seconds later she came.'
			 act 'End_Up':gt'masharoom','start'
			 end
		 end
	 end
act 'Get_Away':gt'sexshop','podval'
end

if $ARGS[0]='1':
gs 'stat'
cla
*clr
'<center><img src="img/masha/r3.jpg" ></center>'
'Putting another outfit, you feel yourself on someone`s opinion, gently turning his head, you see, that the door is not completely closed .'
act 'close the door':gt'masharoom','start'
act 'tease':
	 cla
	 *clr
	 set horny+=20
	 '<center><img src="img/masha/r4.jpg" ></center>'
	 'You sit back and legs spread wide, so that the crotch was clearly visible from the door, run his hand into her panties and starts stroking herself, soon you will hear the sound of the door unzip and soon heard heavy breathing.'
	 act'carry_On':
		 cla
		 set orgasm+=1
		 'You continue to massage her clit, and the realization that someone-then at that time looking at you and Fingering, only increases your excitement leading to the rapid orgasm. When you end you`ll notice how white liquid jet flew into the room through the gap, your supervisor also finished.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 act'call him':
		 cla
		 *clr
		 set kuni+=1
		 '<center><img src="img/masha/r5.jpg" ></center>'
		 '"hey, want to lick?" asked you look at the door. It was quiet a few seconds, you really think that you thought no one there and no, but soon the door creaked open and a guy came threshold, it was a pimply studentik, He stood on the threshold of not knowing what to do.
		 "My proposals have validity and it is now expired, or you lizhish or went out of here. Well, if it is good lick, I`ll masturbate." Say you, looking at him with a satisfied smile.
		 The guy finally decided to come to you and knelt down and began to lick your pussy, his movements were not nimble and unskillful, he barely keeps you excitement.'
		 act 'Let licks ass':
			 cla
			 *clr
			 '<center><img src="img/masha/r6.jpg" ></center>'
			 'You razvoratsivaetes and substituting his ass, saying that he licked her, the guy starts to drive carefully on the language of your buttocks, one minute you get bored and wc words "point lick" Man you grab his head and pressed his lips to her anus, he starts to kiss him and then floats language. Gradual starts you like it and you let go of his head relax, enjoying. A few minutes later he prekrazhaet and only you are going to yell at him again as you feel that you pussy rested his cock.'
			 act'give':
				 cla
				 *clr
				 set guy+=1
				 set sex+=1
				 '<center><img src="img/masha/r8.jpg" ></center>'
				 '"What do you want an invitation to give a pisminom, input is already." you said and then his cock entered you, but yet not for long. You do not even have time to really feel his cock, Difficult as the guy all and began to finish, you barely have time to jump off his cock and then he is dead on the floor. "Get out, impotent wretch" you cast . The guy ran out of room, FIND wearing pants.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'punish':
				 cla
				 *clr
				 set DOM+=1
				 '<center><img src="img/masha/r9.jpg" ></center>'
				 '"Do not rush, Give first taste try" you say turning her head. Joyful guy runs up to you, jabbing his cock in your face. You take his penis in her hand, language and spend on the head, he relaxes ready to have fun, but a second later, distort his face in pain, you grabbed him by the balls and squeezed them ssiloy. "Well suchenok, decided that you can fuck me like that, I told you that you can only masturbate." With these words. Letting go of his balls you hit in the face with his foot, and when he natsinaet otpolzat to the exit, customize it kicks in the ribs. lastly, when he crawls on all fours through the door you come to him from behind and swung strongly that there are forces beat kicked in the balls, man head over heels continues on his way down the hall screaming loudly.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 end
		 act'Sit on the face':
			 cla
			 *clr
			 set orgasm+=1
			 '<center><img src="img/masha/r7.jpg" ></center>'
			 'When you are tired of his inept actions, we decided to take matters into their own hands, or rather feet, and commanded the boy to go. He quickly decided to lay down what you want it to please, but you sat on his face and began to actively crawl on it pussy. The guy was trying to help you, but could not get into a rhythm, and you end up grabbing his hair and fixed his head that-would not interfere. After a few minutes you managed to finish, You frantically moved his feet almost strangled Man. You moved a little by giving him air, his face dripping drops of your juice.'
			 act'Take by mouth':
				 cla
				 *clr
				 set bj+=1
				 set cumlip+=1
				 '<center><img src="img/masha/r10.jpg" ></center>'
				 'You turn around right on it and vskhvativ his dick hand launch it in his mouth, the guy immediately bites tongue in your pussy, and then you chustvuete his cock in your mouth starts to cum. "Skorostrel fucking" went through your mind when the jet of sperm fill your mouth. You spat out his dick with cum, otplevavshis Man kicked out.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'saddle':
				 cla
				 *clr
				 set guy+=1
				 set sex+=1
				 '<center><img src="img/masha/r11.jpg" ></center>'
				 'You move to his cock, and taking his hand pointing the currently pussy, you do not even have time to enter his penis to the end, as pochuvstovat, that he is about to finish. You jumped off his cock and he came over. Man all blushed and began leptat he perevozbudilsya etc..d. and t.n. you just grinned "Run away from here skorostrel".'
				 act 'End_Up':gt'masharoom','start'
				 end
			 act'hands to masturbate':
				 cla
				 *clr
				 set hj+=1
				 '<center><img src="img/masha/r12.jpg" ></center>'
				 'You sleli with a guy and taking his cock in his hand began to masturbate, you took a few movements and the guy moaned ready to cum.'
				 act'further':
					 cla
					 *clr
					 set cumlip+=1
					 set cumface+=1
					 '<center><img src="img/masha/r14.jpg" ></center>'
					 'You have done a few more movements and spurted from his cock cum, jet was quite powerful and sperm gets into your mouth, on the face and flooded your chest.'
					 act 'End_Up':gt'masharoom','start'
					 end
				 end
			 act'wank -feeding':
				 cla
				 *clr
				 '<center><img src="img/masha/r13.jpg" ></center>'
				 'You squeezed his cock muzhdu her breasts and began to masturbate him with them, a few seconds later you feel that your breasts between his cock already strongly swollen and began to shudder ready to cum.'
				 act'further':
					 cla
					 *clr
					 set cumlip+=1
					 set cumface+=1
					 '<center><img src="img/masha/r14.jpg" ></center>'
					 'You tried to pull away from him-would not get dirty, but it was too late from his cock spurted semen, jet was quite powerful and sperm gets into your mouth, on the face and flooded your chest.'
					 act 'End_Up':gt'masharoom','start'
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='2':
gs 'stat'
cla
*clr
set guy+=1
'<center><img src="img/masha/r20.jpg" ></center>'
'Trying another Machines outfit you put your hands on leather handcuffs fastens between carbine, and behold at fasten it to you but was easily remove it alone does not work, You frantically started trying to break free, when suddenly someone-then you pulled on the leash is attached to the collar on the neck dressed. First you happy even decided that it returned Masha, but turned to see a man and a big kozhzhanaya shovel in his hands suggests that now you will be hurt, and you wonder forgot to close the door. Meanwhile "I see you waiting for me, Well.".
"Please help me to remove it" you started handing him manacled hands, still hoping that he will not touch you. "silent bitch, servant must not speak without permission of the owner, knelt down and opened her mouth, quickly." he cried.'
act'Continue to ask you to release.':
	 cla
	 *clr
	 set mop=0
	 set rape+=1
	 set anal+=1
	 '<center><img src="img/masha/r21.jpg" ></center>'
	 '"Oh. Now I `ll teach you to obey." With these words he threw you on the couch. You were on the couch with his back to him, eyes he nyatyanul you armband and you just heard as behind your back rastegivat belt and falls to the floor, a second you put his ass hard hot cock. "Please do not" reprimand you are aware that your words will not stop him, what happened ssiloy man shoved dildo ass you, you cried out in pain pierced your anus. "Let`s shout louder, Now turn to line up your ass" he said with a grin and continued to drive a screw you in the ass. You gritted his teeth and deprive quietly wept a little squealing at every jolt, knowing that he was right, because you connectivity in the basement of sex-shop, which is full of perverts and your screams can build all.'
	 act'endure':
		 cla
		 set cumanus+=1
		 'Deciding that your prayers only angered him more you gritted his teeth and waited until he had finished. He fucked you for a long time, will drive his dick on the eggs, when you could not weep and couch was wet from your tears , Fill out your ass with his sperm. You collapsed on the couch shivering in mourning. "The next time you`re submissive bitch" threw a man leaving the door and went out to plow, so you had a good view of the corridor. You stood up and limped to the door slammed her. After a while you manage to undo the carabiner and free from handcuffs.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 act'ask for release':
		 cla
		 *clr
		 set cumlip+=1
		 set cumface+=1
		 set spank+=1
		 set bj+=1
		 set swallow+=1
		 '<center><img src="img/masha/r22.jpg" ></center>'
		 '"Please enough, let me go" begged you. "Here you can not tell where you belong, I watch your mouth to do nothing, Now I will correct." With that, began to fuck you in it, and a second hand began to strike you on the buttocks shovel. When he began to finish then stuck my dick you right in the throat, you had to frantically swallow his semen that-would not suffocate. When he was done then wiped his dildo on your face and left, finally causing you such a kick in the ass, that you fell off the couch onto the floor. You stood up and limped to the door slammed her. After a while you manage to undo the carabiner and free from handcuffs.'
		 act 'End_Up':gt'masharoom','start'
		 end
	 end
act'submit':
	 cla
	 *clr
	 set SUB+=2
	 set bj+=1
	 set swallow+=1
	 set cumlip+=1
	 '<center><img src="img/masha/r23.jpg" ></center>'
	 'You obediently knelt down and opened her mouth. He put on a blindfold on you and soon your lips that prikasnulos-something warm and solid. Catching a member of the lips in quickly tightened it in himself and began to suck yarosno all kind portraying a grateful slave. Soon you pochuvsvovali as a member in the mouth began to throb ready to cum. The jet of sperm hit you in the mouth, you immediately swallowed it and continued to suck dick, when he took it out, you opened my mouth and began to try to catch him blindly lips, depicting the passion that-would not anger him.
	 "brain, good slave, And now lie down on the couch" he said.'
	 act 'submit':
		 cla
		 *clr
		 '<center><img src="img/masha/r24.jpg" ></center>'
		 'You blindly moved toward the couch korachkah, finding it difficult to lay down and waited. He sat down on you from above and you`ll feel the touch of his lips to his cock, but this time he was no longer solid, you dragged him into her and started sucking again trying to pick it up, soon you will feel kakon began to increase. "That`s clever, well postorayus, and now turn around on the flank and open ass, and for your efforts we you her little smazhem." With these words he got off and lay down beside you.'
		 act'to_turn':
			 cla
			 *clr
			 set anal+=1
			 set orgasm+=1
			 set analorgasm+=1
			 '<center><img src="img/masha/r25.jpg" ></center>'
			 'You turned on its side, substituting his ass to his cock, he smeared her and lingered introduced his penis into the anus to you, trying not to cause pain. You tried to push the buttocks with his hands, but connectivity hands you could not do it, then he unclasped carbine on handcuffs. His cock was moving in your ass , you diligently podmahivat in time with his movements. Soon you began to accelerate movement and he quickened together with you, penetrating deeper into you. In the process several times he unrolled you, without removing a member from the anus and when he once again began to unwrap you on the other side, You covered the orgasm you shuddered dramatically moved closer to him trying to absorb his cock in itself as far as possible. He made several strong aftershocks and finished rasdeliv sperm so that you poured out of the ass and the rest on the buttocks. "Now quickly open your mouth" he commanded rushing to face vashevu, strongly squeezing his penis hand'
			 act'open your mouth':
				 cla
				 *clr
				 set cumlip+=1
				 set swallow+=1
				 '<center><img src="img/masha/r26.jpg" ></center>'
				 'You have opened my mouth . Wait until you swallow cum , when you carefully licked his dildo, he put his pants and let not the words came out, closing the door.'
				 act 'End_Up':gt'masharoom','start'
				 end
			 end
		 end
	 end
end
--- masharoom ---------------------------------

# Military
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs'stat'
'<center><B><font color=maroon>ground</font></B></center>'
'<center><img src="img/military/military.jpg" ></center>'
'Around full of people, near the tent city, and a lot of guys running around with guns.'

act'Work in the infirmary':
cla
set minut+=60
set sanrand=rand(0,10)
if sanrand=0:gt'Military','san0'
if sanrand=1:gt'Military','san1'
'You worked in the infirmary.'
act 'Go_Out':gt'Military','start'
end

act'Go to his tent':gt 'Palatka','start'

act'Walking in the woods':
cla
set minut+=60
set milprorand=rand(0,10)
if milprorand=0:gt'Military','pro0'
if milprorand=1:gt'Military','pro1'
'you take a walk.'
act 'End_Up':gt'Military','start'
end

act'There is a field kitchen':
	 set minut = minut + 30
     set health = health + 10
     set manna = manna + 20
     set energy = energy +20
     set water = water +20
     gs'stat'
     end

if week<6 or week=7 and hour>=18:
cla
set minut+=60
set money+=5000
act'Go to town':gt'street'
end
end

if $ARGS[0] = 'san0':
cla
*clr
'<center><img src="img/military/san0.jpg" ></center>'
'In the process of inspection, patient shows you your erection and looks at you in anticipation of the reaction.'
act 'drive_away':gt'Military','start'
act 'give':
	 set guy+=1
	 set picrand=41
	 gt 'sex','minet'
	 end
end

if $ARGS[0] = 'san1':
cla
*clr
'<center><img src="img/military/san1.jpg" ></center>'
'While no one in the infirmary, doctor starts to stick to you.'
act 'send':gt'Military','start'
act 'give':
	 set guy+=1
	 set picrand=42
	 gt 'sex','minet'
	 end
end

if $ARGS[0] = 'pro0':
cla
'For you fit two guys and offer to help them in one game, play the role of captive spy.'
act 'Opt_Out':gt'Military','start'
act 'agree':
	 cla
	 *clr
	 '<center><img src="img/military/pro0.jpg" ></center>'
	 'You tie the hands and lead to the headquarters, where they represent long -examination, and then the words "Now we will torture you" take out members. That`s what you thought before allowing two burly men you associate.'
	 act 'submit':
		 set guy+=2
		 set SUB+=1
		 set picrand=21
		 xgt'sexdvoe','var'
		 end
	 end
end

if $ARGS[0] = 'pro1':
cla
'For you several munut is what that guy'
act 'Disregard':gt 'military','rape'
act 'run':
	 if beg<10:set peshimraperand=rand(0,11)
	 if beg>=10 and beg<20:set peshimraperand=rand(0,20)
	 if beg>=20 and beg<30:set peshimraperand=rand(0,30)
	 if beg>=30 and beg<40:set peshimraperand=rand(0,40)
	 if beg>=40 and beg<50:set peshimraperand=rand(0,50)
	 if beg>=50 and beg<60:set peshimraperand=rand(0,60)
	 if beg>=60 and beg<70:set peshimraperand=rand(0,70)
	 if beg>=70 and beg<80:set peshimraperand=rand(0,80)
	 if beg>=80 and beg<90:set peshimraperand=rand(0,90)
	 if beg>=90:set peshimraperand=rand(11,100)
	 if peshimraperand<11:
		 cla
		 'You tried to run away but the guy you caught'
		 act 'further':gt 'military','rape'
		 end
	 if peshimraperand>10:
		 'You are rushing headlong, crashing through the bushes. Finally'
		 act 'further':gt'military','start'
		 end
	 end
end

if $ARGS[0] = 'rape':
cla
*clr
set rape+=1
set bj+=1
set sex+=1
set guy+=1
set anal+=1
'<center><img src="img/military/rape1.jpg" ></center>'
'You woke up in a certain barn with a bag on his head, head ached badly from the impact.'
act 'shout_Out':
	 cla
	 *clr
	 '<center><img src="img/military/rape2.jpg" ></center>'
	 'You started screaming, when suddenly your mouth stuck member.
	 "Here`s a nipple not to scream" came the voice of the rapist.
	 You tried to spit member, but this only became worse, He thrust it in your throat, and began to fuck your mouth.'
	 act 'further':
		 cla
		 *clr
		 '<center><img src="img/military/rape3.jpg" ></center>'
		 'When you have already started to lose consciousness, choking on his cock in the throat, He took it out and threw you on what that box, with the power you entered into the vagina, his cock pecked you nischadno, and you had to look at the leash him through tears.'
		 act 'further':
			 cla
			 *clr
			 '<center><img src="img/military/rape4.jpg" ></center>'
			 'When he was tired of your pussy, he turned you and drove his buttocks apart bolt you in the ass, you cried out in pain, but he did not care , you cried and begged him to even be lubricated, but heard only in response contented wheezing, Mom said you learn to run that would not hurt Ass.'
			 act 'further':
				 cla
				 *clr
				 '<center><img src="img/military/rape5.jpg" ></center>'
				 'You do not remember how much time passed you then fainted again then came a, but in the end he pulled you from the box and you`re exhausted knelt, he again stuck you cock in her mouth, with words "suck", you obediently began to suck his dildo, he has just brutally raped your anus, in my head flashed the thought of his bite, but it knocked a second thought, and suddenly not be able to do it then with my ass, Finally he came to you in the mouth. And once you have lowered his head as once again got hit on the head.'
				 set cumlip+=1
				 set mop=0
				 set minut+=240
				 set SUB+=5
				 act 'further':gt 'military','start'
				 end
			 end
		 end
	 end
end
--- Military ---------------------------------

# Nudelake
gs 'stat'
'<center><B>nude beach</B></center>'
'<center><img src="img/Lake/Nudelake.jpg" ></center>'
'Here you can walk naked and no one will blame you.'
if hour >= 6 and hour <= 20:
'here you can <a href="exec:gt''Nudelake'',''zagarat''">sunbathe</a> and <a href="exec:gt''Nudelake'',''swim''">bathe</a>'
'And <a href="exec:gt''Nudelake'',''voleybol''">beach volleyball</a>'
end

act 'Leave on the main beach':gt'lake','start'
if katday ! day and kat >= 1:
	 'You see at the beach Cat.'
	 act 'Approach the Cat':
		 gt'Katlake','kat'
		 end
	 end

if $ARGS[0] = 'voleybol':
cls
set minut+=1
'<center><img src="img/Lake/voleybol.jpg"></center>'
'You have come to the volleyball court.'
act'watch':gt 'Nudelake','smotr'
act'Get_Away':gt 'Nudelake'
act'play':
	 cla
	 *clr
	 set agil+=1
	 set react+=1
	 set speed+=1
	 set minut+=30
	 '<center><img src="img/Lake/voleybol.jpg"></center>'
	 'You come to play and ask whether it is possible to join, You gladly take the team.'
	 act'End_Up':gt 'Nudelake'
end
end


if $ARGS[0] = 'zagarat':
set minut+=30
cls
gs'stat'
'<center><img src="img/Lake/nudezagarat.jpg"></center>'
set sweat = sweat + 1
set manna = manna + 5
if krem = 0:
	 set tan = tan + 1
	 'You went to the beach to sunbathe.'
	 end
if krem > 0:
	 set krem = krem - 1
	 set tan = tan + 3
	 'You smeared body suntan lotion and went to sunbathe.'
	 end
set nzagrand = RAND (0,100)
if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70:gt'Katlake','key'
if nzagrand >= 80 and nzagrand < 90:gt'Vnlake1'
if nzagrand >= 90:gt'Vnlake2'
if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80:gt'Katlake'
act'End_Up':gt'Nudelake'
end

if $ARGS[0] = 'swim':
cla
*clr
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumlip = 0
set cumface = 0
set cumfrot = 0
set minut = minut + 60
set sweat = -3
set manna = manna + 5
set willpower = willpower + 5
if stren < 30:set stren = stren + 1
'<center><img src="img/Lake/nudeswim.jpg"></center>'
'You went to bathe.'
act'End_Up':gt 'Nudelake'
end

if $ARGS[0] = 'smotr':
set minut+=30
cls
gs'stat'
'<center><img src="img/Lake/voleybol.jpg"></center>'
'You see how others play.'
act'Get_Away':gt 'Nudelake'
end
--- Nudelake ---------------------------------

# obkitchen
gs'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Kitchen in the dorm</B></center>'
'<center><img src="img/centr/obkitchen.jpg" ></center>'

act'In the corridor':gt'dorm','korr'
if eda>0:
act'prepare meals':
cla
*clr
set minut = minut + 60
gs'stat'
set edahot = edahot + 1
set eda = eda - 1
set manna = manna - 5
'<center><img src="pics/cook.jpg" ></center>'
'You cooked food on a plate.'
act 'Move away from the plate':gt'obkitchen'
end
end
 
if edahot>0:
act'Is_There':
cla
*clr
gs'stat'
frost=0
'<center><img src="pics/food.jpg" ></center>'
set minut = minut + 30
set edahot = 0
set health = health + 10
set manna = manna + 20
if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
if energy < 20:
	 set energy = energy +20
	 !set fat = fat + 1
	 'You gladly ate cooked food.'
	 end
if water >= 20:
	 'Tea in you no longer climbs.'
	 end
if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 act 'Get up from the table':gt'obkitchen'
end
end

if pranik>0:
     act 'Cup of tea with cookies (5 min)':
     cla
     *clr
     minut+=5
     pranik-=1
     set health = health + 30
     set manna = manna + 100
     energy += 20
     water += 20
     fat+=50
     frost=0
     gs'stat'
     '<center><img src="pics/food.jpg" ></center>'
     'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
     act 'Get up from the table':gt'obkitchen'
     end
end

if edaD > 0:
     act 'There are diet food (30 min)':
     cla
     *clr
     frost=0
     '<center><img src="pics/food.jpg" ></center>'
     set minut = minut + 30
     set health = health + 10
     set manna = manna + 20
     set edaD = edaD - 1
     if energy >= 30:
         'You can no longer have.'
         end
         if energy >= 20 and energy < 30:
         set energy = energy + 10
         'You pushed through the power of a meal.'
         end
         if energy < 20:
         set energy = energy +20
         'You gladly ate cooked food.'
         end
         if water >= 20:
         'Tea in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a cup of tea.'
         set water = water +20
         end
     act 'Get up from the table':gt'obkitchen'
     end
end

if fatdel > 0:
     act 'to use fat burners':
     cla
     *clr
     set fatdel = fatdel - 1
     set fat = fat - 25
     if fat<0:fat=0
     'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
     act 'Get up from the table':gt'obkitchen'
     end
end

     act 'drink':
     cla
     set minut = minut + 5
         if water >= 20:
         'Water in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a glass of water.'
         set water = water +20
         end
     act 'Get up from the table':gt'obkitchen'
     end
if lekarstvo>0:
'you have <<lekarstvo>> tablets.'
     if sick>0 and lekarday!day:
         act 'take a pill':
		 cla
		 *clr
		 set minut = minut + 5
		 lekarday=day
		 lekarstvo-=1
		 sick-=sick*20/100
		 set lekrand = RAND (0,8)
		 if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
		 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
		 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
		 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
		 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
		 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
		 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
		 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
		 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
		 'You drank the pill'
		 act 'move_away':gt'obkitchen'
		 end
     end
end

if vitamin>0:
'you have <<vitamin>> vitaminok.'
     if vitaminday!day:
         act 'drink Vitaminki':
			 cla
			 *clr
			 set minut = minut + 5
			 vitaminday=day
			 vitamin-=1
			 frost=0
			 set skinvan = skinvan + 1
			 if skinvan = 20:set skinvan = 0&set skin = skin + 1
			 'You drank Vitaminki'
			 act 'move_away':gt'obkitchen'
			 end
		 end
	 end
--- obkitchen ---------------------------------

# obroom
if $ARGS[0]='start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
gs'stat'
cla
*clr
set odkomp=1
'<center><B>Your room</B></center>'
'<center><img src="img/centr/obroom.jpg" ></center>'
'This is your room, with you in it lives another girl Vika'
if hour>14 and hour<20 and vikaend=0:'Lying on his bed your neighbor <a href="exec:gt ''obroom'',''vika''">vetch</a>.'
if hour>3 and hour<8 and vikaslut=0:'Vick is sleeping in her bed, after a night of being like. I wonder where she lost in the night.'
if hour>3 and hour<8 and vikaslut=1:'Vick is sleeping in her bed, after working in a brothel.'
if komp = 1:'<a href="exec:GT ''Komp'',''start''">computer</a>.'
act 'In the corridor':
	 if nude=0:
		 set odkomp=0
		 set minut+=5
		 gt'dorm','korr'
		 end
	 if nude>0:'You have to get dressed'
	 end
act 'do(2 hours)':
	 cla
	 set minut+=120
	 set intel+=1
	 'You prozanimalsya two o`clock, I think in your head that-then postponed'
	 act 'End_Up':gt'obroom','start'
	 end
if student > 0 and kursovik < 100:
     act 'write kursovik 1 h':
		 cla
		 *clr
		 set minut = minut + 60
		 set kursovik = kursovik + RAND (intel/20,intel/10)
		 if kursovik > 100:set kursovik = 100
		 set manna = manna - 10
		 '<center><img src="pic/study.jpg" ></center>'
		 'You sat on coursework and prepare it for <<kursovik>> percent.'
		 act 'End_Up':gt'obroom','start'
		 end
	 end
act 'mirror':
	 set obMir = 1
	 gt'mirror','start'
	 end
act 'cupboard':
	 set obLoker = 1
	 gt'loker','start'
	 end
act 'In bed':
	 set houseob = 1
	 gt'bed','start'
	 end
if tanga=0 and clrbelo>0:
	 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt'obroom','start'
		 end
	 else
	 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt'obroom','start'
		 end
	 end
end

if $ARGS[0]='vika':
cla
gs'stat'
'<center><img src="img/centr/kat.jpg" ></center>'
act 'Get_Away':gt'obroom','start'
     if hour<20:
		 act 'Chat with Vika (1 h)':
		 cla
		 set minut+=60
		 set vika+=1
		 set talkrand = RAND (0,10)
		 if talkrand = 0:'You started talking with Vika, It tells you about the boys she met, about parties, about cosmetics.'
		 if talkrand = 1:'Vic says she was in the cafe and she was invited to dance with a guy who then even paid her bill.'
		 if talkrand = 2:'Vick says that working in a strip club dancer, rather profitable job for students, Although clients are very pristavuchie.'
		 if talkrand = 3:'Vic tells you that some of the sections devchenok run at the university entered the European level sports competitions and earn big money, though of course Vic priznaetsya that her laziness so they plow.'
		 if talkrand = 4:'Vick says that one of her friends flew from a guy who does not have time to get out of it. But Vick smarter, she buys at the pharmacy birth control, 100% guarantee.'
		 if talkrand = 5:'Vick says in the park .'
		 if talkrand = 6:'Vic tells how she acted naked in studio, not dusty work, but the reputation suffers.'
		 if talkrand = 7:'Vic tells a horror story about how a nice girl not washed or shaved legs, then began to so many terrible, its per kilometer all obbegat.'
		 if talkrand = 8:'Vick says that she buys tampons always reserve, and then if they go without a monthly then quickly prevratishsya a slut.'
		 if talkrand = 9:'Vic tells how one of her guys like anal sex, but she was not in possession of Vaseline.'
		 if talkrand = 10:'Vick says as she sunbathed in the summer on the beach, however for this she had to buy a swimsuit, but it is useful in winter and go to the pool. The pool is not a bad tool to keep yourself in good shape.'
		 act 'End_Up':gt'obroom','vika'
		 end
		 
		 act 'Engage with Vika (1 h)':
		 cla
		 set minut+=60
		 set intel+=1
		 set vika+=1
		 'You overlaid textbooks and become engaged with Vika, together all digested twice as fast.'
		 act 'End_Up':gt'obroom','vika'
		 end
		 
	     if vikasex > 0 and vika > 20:
		     act 'suggest fun':
			 set minut+=60
			 gt'lezbsex','start'
			 end
		 end
		 
	     if vika > 70 and vikaslut=0:
		     act 'Ask where it is at night':
			 cla
			 set minut+=30
			 set vikaslut=1
			 'Vic jammed and blushed "I`m just looking."
			 "Yup, she walks, at night on the street, so I believe you and, kolis friend where have you been." neunimalis you.
			 "I work in a club" unsure mumbled Wick.
			 "Many times I was in the club and you were not vidila, Enough already lie." you misbehaved, and a little later added "Do not want to so do not tell, not very much and wanted." and turned away from her.
			 "Well do not be angry, I`ll show you just promise, then you at least talk to me will"
			 You were taken aback by these words, than it can deal with, that you stop talking to her, not with the same dogs in public fucking. "Yes_I_Am, Of course I`ll talk to you, what a stupid question."
			 "Show went well"'
			 act 'Go with Vika':gt 'bordelv','start'
			 end
		 end
		 
	     if vika > 70 and vikaslut=1 and bordel=0:
		     act 'Ask about work':
			 cla
			 set vika+=5
			 set bordel=1
			 set odkomp=0
			 '"And I got a job in a brothel to work, I know how much." asked you.
			 "Well I `ll tell the administrator, but I can not guarantee it can not take."'
			 act 'End_Up':gt'obroom','vika'
			 end
		 end
	 end
end
--- obroom ---------------------------------

# Palatka
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
gs'stat'
set palMir = 1
'<center><B><font color=maroon>tent</font></B></center>'
'<center><img src="img/military/palatka.jpg"></center>'
set palrand=rand(0,10)
if palrand=0:gt'Palatka','pal0'
if palrand=1:gt'Palatka','pal1'
'To your surprise quite spacious tent there is a bed, <a href="exec: gt''mirror'',''start''">mirror</a> and even made вЂ‹вЂ‹improvizorovany <a href="exec: gt''vann'',''start''">shower</a>.'

act 'Go_Out':gt'Military','start'
act 'sleep':
	 set hour+=8
	 set son=24
	 gt'palatka','start'
	 end
end

if $ARGS[0] = 'pal0':
cla
*clr
'<center><img src="img/military/pal0.jpg" ></center>'
'Once you start to dress like a tent includes two soldiers and see you half-naked, run up to you with the members on the edge, you hvaete them for members, but what to do to squeeze harder and bring them out of the tent or relax after a hard day.'
act 'send':gt'palatka','start'
act 'give':
	 set guy+=2
	 set picrand=22
	 xgt'sexdvoe','var'
	 end
end

if $ARGS[0] = 'pal1':
cla
*clr
'<center><img src="img/military/pal1.jpg" ></center>'
'By accessing the tent you stumble and already flying nose to the ground, but then you pick up strong hands, opened his eyes you see a hefty Negro.'
act 'to say thank you':gt'palatka','start'
act 'Repay in full':
	 set guy+=1
	 set picrand=43
	 gt 'sex','minet'
	 end
end
--- Palatka ---------------------------------

# parksvid
set minut+=60
set manna+=10
gs 'stat'
'<center><B>park</B></center>'
'<center><img src="img/parksvid/0.jpg" ></center>'
'you and <<$telsob>> met near the park'
act 'go for a walk':
	 if $telsob = 'Alla':
		 set alla+=1
		 if alla>=20:
			 set parksvidrand=RAND(0,5)
			 if parksvidrand>0 and parksvidrand<3:gt 'parksvid','1'
			 if parksvidrand>=3: gt 'parksvid','3'
			 end
		 if alla<20:gt'parksvid','3'
		 end
	 if $telsob = 'Masha':
		 set masha+=1
		 if masha>=20:
			 set parksvidrand=RAND(0,10)
			 if parksvidrand>0 and parksvidrand<3:gt 'parksvid','1'
			 if parksvidrand>=3: gt 'parksvid','3'
			 end
		 if masha<20:gt'parksvid','3'
		 end
	 if $telsob = 'katya':
		 set kat+=1
		 if kat>=20:
			 set parksvidrand=RAND(0,10)
			 if parksvidrand>0 and parksvidrand<3:gt 'parksvid','1'
			 if parksvidrand>=3: gt 'parksvid','3'
			 end
		 if kat<20:gt'parksvid','3'
		 end
	 end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="img/parksvid/1.jpg" ></center>'
'When you walked through the park we noticed a man in a skirt. <<$telsob>> interested in what he is doing and even in a skirt'
act 'move on':gt 'parksvid','3'
act 'See what he`s doing':
	 cla
	 *clr
	 '<center><img src="img/parksvid/2.jpg" ></center>'
	 'Coming closer -something round, It seems that he is engaged in the shot put.
	 "Girls you have moved a bit and you `ll get it in, sorry to be such beauties" he said, noticing your interest in his studies.
	 "That`s interesting, and they really do not have anything under her skirt" asked <<$telsob>>.
	 "And I know where, Come and ask"
	 "Do_Not, one will not go, went together to ask" said <<$telsob>>, making plaintive eyes.'
	 act 'Refuse and go for a walk on.':gt 'parksvid','3'
	 act 'To go with her':
		 cla
		 *clr
		 '<center><img src="img/parksvid/3.jpg" ></center>'
		 'The two of you come to the guy, and <<$telsob>> begins to push you to the side, whispering in his ear "Well ask."
		 "And it is true that under the kilt did not put." you ask
		 "You want to know, Look and check." smiling guy said.
		 "Well." asked <<$telsob>>
		 "Here" answer You
		 "Well look" said <<$telsob>> defiantly pouting and down on his haunches.
		 When she began to lift the kilt, man quickly threw it on his head.
		 "Wow" heard her voice from under the kilt, and was still, after a few seconds you sick of it "Well?" and then asked you to blissful face guy and head movements under the kilt you understand, what <<$telsob>> does not consider the presence of underwear.
		 A few minutes later <<$telsob>> crawled out from under the kilt wiped his mouth.
		 "Girls and went to me take a closer look." suggested that guy is still standing with a beatific smile'
		 act 'Refuse and go for a walk on.':gt 'parksvid','3'
		 act 'Go to guy':
			 cla
			 *clr
			 set orgasm+=1
			 set lesbian+=1
			 set minut+=30
			 '<center><img src="img/parksvid/4.jpg" ></center>'
			 'When you come to a guy home, the guy at the door lifted kilt, demonstrates his standing dildo, and stated "Well continue acquaintance".
			 Emboldened <<$telsob>> immediately knelt and clasped his lips began to suck dick. You crouched behind and pushing her panties began to fondle her pussy tongue.'
			 act 'further':
				 cla
				 *clr
				 '<center><img src="img/parksvid/5.jpg" ></center>'
				 'He picked it up and put cancer on the bed entered her vagina, you without hesitation lay on the bed putting her pussy right in front of her face. After a moment. After a couple of minutes you left off.'
				 act 'further':
					 cla
					 *clr
					 '<center><img src="img/parksvid/6.jpg" ></center>'
					 'Once you ochuhalis orgasm, the guy took her by the shoulders and pulling back knocked on his back and inserting cock in her mouth cumshot.
					 Came a little you dressed and went back to the park'
					 act 'Get_Away':gt 'parksvid','3'
					 end
				 end
			 end
		 end
	 end
end


if $ARGS[0] = '2':
cla
*clr
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut+=90
gs 'stat'
'When you have finished, <<$telsob>> said that she had to flee and left'
act 'Get_Away':gt'park','start'
end
--- parksvid ---------------------------------

# paysex
if $ARGS[0]='start':
set picrand = RAND (0,1)
set minut+=30
set gang+=1
set sweat+=1
gt'paysex','var'
end

if $ARGS[0]='var':
set paysexrand = RAND (0,2)
set colpaysex+=1
if paysexrand=0:
cla
*clr
set horny+=10
if paysxbj=0:
     set bj+=1
     set paysxbj=1
     end
if paysxsex=0:
     set sex+=1
     set paysxsex=1
     end
set SUB+=1
'<center><img src="img/paysex/vag<<picrand>>.jpg"></center>'
'While one guy fucks your pussy, You sucked the rest.'
act 'More':gt'paysex','var'
if colpaysex>3:
     act 'End_Up.':gt'paysex','end'
     end
end
if paysexrand=1:
cla
*clr
set horny+=10
if paysxbj=0:
     set bj+=1
     set paysxbj=1
     end
if paysxanal=0:
     set anal+=1
     set paysxanal=1
     end
set SUB+=1
'<center><img src="img/paysex/anal<<picrand>>.jpg"></center>'
'While one guy fucks you in the ass, You sucked the rest.'
act 'More':gt'paysex','var'
if colpaysex>3:
     act 'End_Up.':gt'paysex','end'
     end
end
if paysexrand=2:
cla
*clr
set horny+=10
if paysxbj=0:
     set bj+=1
     set paysxbj=1
     end
if paysxsex=0:
     set sex+=1
     set paysxsex=1
     end
if paysxanal=0:
     set anal+=1
     set paysxanal=1
     end
'<center><img src="img/paysex/dp<<picrand>>.jpg"></center>'
'Fuck you into all the cracks.'
act 'More':gt'paysex','var'
if colpaysex>3:
     act 'End_Up.':gt'paysex','end'
     end
end
end
if $ARGS[0]='end':
cla
*clr
set paysxbj=0
set paysxsex=0
set paysxanal=0
set colpaysex=0
set cumbelly=1
set cumpussy=1
set cumass=1
set cumlip=1
set cumface=1
if horny>=80:
set horny=0
set orgasm+=1
end
'<center><img src="img/paysex/cum<<picrand>>.jpg"></center>'
'When they were satisfied that you have filled in all of his sperm.'
act 'Get_Away':
	 if picrand=16 or picrand=17:gt'office','work'
	 if picrand=18:gt'husbSex','dolgend'
	 gt '<<$sexloc>>','start'
	 end
end
--- paysex ---------------------------------

# podrsex
if $ARGS[0]='start':
cla
*clr
gs 'stat'
set picrand = RAND (0,1)
set minut+=30
set sweat+=1
set girl+=1
set guy+=1
set lesbian+=1
gt'podrsex','var'
end

if $ARGS[0]='var':
set podrsexrand = RAND (0,4)
if podrsexrand=0:
	 cla
	 *clr
	 set horny+=10
	 if pdsxbj=0:
		 set bj+=1
		 set pdsxbj=1
		 end
	 set sexvar+=1
	 '<center><img src="img/podrsex/minet<<picrand>>.jpg"></center>'
	 'You two suck his dick, that in turn, then along lick his dildo, languages вЂ‹вЂ‹in contact.'
	 act 'More':gt'podrsex','var'
	 if sexvar>=3:act 'End_Up.':gt'podrsex','end'
	 end
if podrsexrand=1:
	 cla
	 *clr
	 set horny+=10
	 set sexvar+=1
	 '<center><img src="img/podrsex/vag<<picrand>>.jpg"></center>'
	 'While she enjoys the member in her pussy, You also find yourself iteresnoe activity.'
	 act 'More':gt'podrsex','var'
	 if sexvar>=3:act 'End_Up.':gt'podrsex','end'
	 end
if podrsexrand=2:
	 cla
	 *clr
	 set horny+=10
	 if pdsxsex=0:
		 set sex+=1
		 set pdsxsex=1
		 end
	 set sexvar+=1
	 '<center><img src="img/podrsex/uvag<<picrand>>.jpg"></center>'
	 'He comes into you, his cock moving inside your pussy bringing you pleasure, During this time she also did not lose her find things to do.'
	 act 'More':gt'podrsex','var'
	 if sexvar>=3:act 'End_Up.':gt'podrsex','end'
	 end
if podrsexrand=3:
	 cla
	 *clr
	 set horny+=10
	 set sexvar+=1
	 '<center><img src="img/podrsex/anal<<picrand>>.jpg"></center>'
	 'Do you like the look of his cock in her ass and while she sweetly yells trying to absorb all of it you did not lose too.'
	 act 'More':gt'podrsex','var'
	 if sexvar>=3:act 'End_Up.':gt'podrsex','end'
	 end
if podrsexrand=4:
	 cla
	 *clr
	 set horny+=10
	 if pdsxanal=0:
		 set anal+=1
		 set pdsxanal=1
		 end
	 set sexvar+=1
	 '<center><img src="img/podrsex/uanal<<picrand>>.jpg"></center>'
	 'When he enters you in the ass you hurt a little, but soon the pain goes away and its place is taken by a pleasant sensation, until it moves dildo in your ass it is not sitting idly by.'
	 act 'More':gt'podrsex','var'
	 if sexvar>=3:act 'End_Up.':gt'podrsex','end'
	 end
end

if $ARGS[0]='end':
cla
*clr
set pdsxbj=0
set pdsxsex=0
set pdsxanal=0
set sexvar=0
set cumlip=1
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
'<center><img src="img/podrsex/cum<<picrand>>.jpg"></center>'
'When he ends up spilling your cum, you lick it off each other, sharing your kissing and finally swallow.'
act 'Get_Away':
	 if picrand=26 or picrand=27 or picrand=29:gt'office','work'
	 if picrand>=30 and picrand<=32:gt'down'
	 if kazsexdva=1:
		 set kazsexdva=0
		 gt'kazinosvid','3'
		 end
	 gt'<<$sexloc>>','start'
	 end
end

--- podrsex ---------------------------------

# police
if $ARGS[0]='1':
set gopstop=0
set minut+=60
gs 'stat'
'<center><B>police</B></center>'
'<center><img src="img/police/a1.jpg" ></center>'
'The doorbell rings, you open. On the threshold stands simpotichnaya girl "Welcome Svetlana." she says.
"hello, and we are familiar?" you ask.
"While only in absentia, but now personally acquainted" she says .
"what`s happening?" you start.
"arrest, fool." she says, and then there are two men in the form of, they take you by the hand and lead out to the street. You pushed into a car and taken to the department, on arrival she leads you to the office.
"Here is our hooligan" the girl says a man sitting in the office.
"Take care of her own, I still have things" responsible man and out of the cabinet.
"Come on raskazyvat" tells you girl.
"what raskazyvat, I did not do anything" you reply.
"You hymen itself is not operational, who are in the park for the people of money and mobile phones squeezed, you identified a fool, not far from his house to engage in looting, you idiot or something, let raskazyvat. We do not need you, raskazyvat who was with you, many who robbed and where merged, raskazhesh let go, raskazhesh not send in the camera chicken. There you quickly put on his knees." she yelled.
You began frantically thinking, what to do. If you do it all Raskazhite, Gopnik with your skin will descend, and in the literal sense, and if she does not Raskazhite you to send the camera, and there you can also do what the hell.'
act'abut':
	 set minut+=60
	 set anal+=1
	 set guy+=1
	 set cumanus+=1
	 cla
	 *clr
	 '<center><img src="img/police/a2.jpg" ></center>'
	 '"I do not know." Say you.
	 "Here you fool, you have any idea what`s wrong in the chamber will" she began, "Will the clock pissing hole licking, think about it, it`s worth it" she asked.
	 You imagine, as you lie on the floor zaplevanom, and sits on your face carcass, killogram under stopyatdesyat and rubs, his month is not washed crotch of your face. you wince, but the prospect of being raped by a dozen Gopnik and pohoronnenoy in a ditch, scare you more and you reiterated that do not know anything.
	 Maiden sat at the table in front of you and outstretched legs, pushed her panties exposing pussy. "I think about you fool, Here Vidisha Beautiful pure well-groomed pussy, And imagine there will be, not washed for months, overgrown, smelly, here you are my smell, it smacks slightly usche, And I`m only a few hours ago". With these words she took the baton and hooking it over your neck pulled to her crotch. "Here is a little feel smells, and now lick" she said. You hesitated and tutzhe she shrank ssiloy you face in her pussy "lick" she hissed. You began to lick "You see, Gorny shaved, nice lick, and there will be such thickets, that removing the language, you can not get to the clitoris, and then you will beat your head and tucked in sloptank, Here it is necessary to you, Let`s tell." she continued.'
	 act'Opt_Out':
		 cla
		 *clr
		 '<center><img src="img/police/a3.jpg" ></center>'
		 'You refused to speak again, it is the beginning of anger, hand she wiped everything off the table, and roughly pushed you ordered to undress, you took off the handcuffs. When you are left with no clothes, she again handcuffed and ordered you to lie on a table, undressed herself. Once you lay down on the table, she also climbed on him and sat on your face. "Well like, and the camera is the only way you breathe and will, through someone else`s crotch" she continued teryas of your face. A few minutes later you hear the door slam cabinet, You wanted to see who came, but the girl pressed your face all the weight, dent your head on the table. You do not vidili nothing but her ass, only felt, as someone-it took your legs and lifted up, then you feel like you pressed on the anus, that it forces you squeezed anus and your feet are released, but not for long, a few seconds later they again raised, and your anus greased than-then cold, then he entered the finger, followed by the second and third. A minute later removed his fingers into the anus and put her head of the penis, you beztseremonno pushed buttocks and pushed ssiloy member in the ass, not allowing you to get used to, Member began to move dialing crazy pace. You tried to break free , but the girl sat on your face firmly pressing your hands shackled to his chest, and his legs gripped the man, VIOLENCE your anus.
		 "What`s not to like" the girl spoke again "And this is just the beginning, I will be silent on your inmates betray strapon, what-would you round the clock in the ass flogged, will speak scum?" she screamed and sat up a little, what-you could answer.
		 "Give them a bigger size, and this I do not even feel the pipette." answer You, barely holding back that-would not cry out in pain.
		 "bitch!" cried the girl  "Send it to the camera" she said to the man dressed.
		 "Wait, I have not finished" he said. A few minutes later, until I came to you.
		 He undid the handcuffs you, what-you could dress, and taken to a cell.'
		 act'In chamber':gt'kamera'
		 end
	 end
act'Share':
	 cla
	 set gopdeath=1
	 set minut+=180
	 gs'stat'
	 set vsehsdaladay=day
	 'You told all they knew, and even then only heard about from conversations Gopnik. You will then be released.'
	 act 'Get_Away':gt 'nord'
	 end
end
--- police ---------------------------------

# qjob
if $ARGS[0]='var1':
cla
*clr
set var=RAND(0,3)
if var!0:
	 set minut+=180
	 set money+=2000
	 '<center><img src="img/qjob/f0.jpg"></center>'
	 'You come to a small photo studio. You were taken to the dressing room and asked to undress, with you there were a few girls in their underwear , Photographer skeptically examined you from all sides and nodded. You and another girl were carried out in the other room, issued and advertised underwear after you`ve dressed you took up makeup. As a result. Photographer began shooting, telling you what to do, during the next change of posture, britelka you flew off the shoulder bodice and slid down a little baring breasts. You started to correct him, but you are stopped by photographer "stop, leave as is, and you`re close to her breasts with her hands. what-would nipples were visible"'
	 act 'correct':
		 cla
		 '"No, on a shoot I did not sign" you said . photos-grunted to himself, but the shooting continued. Soon it was over and you dressed, took the money and left.'
		 act 'Get_Away':gt'down'
		 end
	 act 'Leave as is':
		 cla
		 *clr
		 '<center><img src="img/qjob/f1.jpg"></center>'
		 'You do not have anything to correct and left with bare chest, girl nakryala her hands and continued shooting. Some time later, He walked right up to you and you put a hand on his buttocks and kissed her on the neck. The girl opened her mouth in surprise, and you were looking at it, not knowing what to do.'
		 act 'stop it':
			 cla
			 *clr
			 '<center><img src="img/qjob/f0.jpg"></center>'
			 'You bounce off of him screaming, photographer began to apologize, you once again put the bodice and continued shooting. Soon it was over and you dressed, took the money and left.'
			 act 'Get_Away':gt'down'
			 end
		 act 'Do nothing':
			 cla
			 *clr
			 set orgasm+=1
			 set kuni+=1
			 set guy+=1
			 '<center><img src="img/qjob/f2.jpg"></center>'
			 'You stood in silence, photographer and seeing that you do not mind continued, He started to kiss your shoulders and back, down below, and now your panties flew down, and his tongue began to wander between your buttocks closer to her pussy. Girl all the time and was stunned with a view, holding your chest, when you started to moan, she came to her senses and tried to move away, but you vskhatili her and pulling her to her started kissing. The first few seconds, timidly trying to push you away, but then her mouth fell open and popped into your language, but the hands are no longer rested on his chest, and caressed her. feeling, that are close to orgasm you release the girl and her hands pressed hard on my head to his buttocks photographer. Soon pleasant shiver ran through your body, you left off. Up from your pussy photographer stood up and said "girls, may continue in the dressing room?"'
			 act 'Opt_Out':
				 cla
				 '"No, good little by little" Answer You dressed and headed to the dressing room. Dressed as you took the money and left.'
				 act 'Get_Away':gt'down'
				 end
			 act 'agree':
				 set picrand=30
				 gt 'podrsex','var'
				 end
			 end
		 end
	 end
if var=0:
	 set minut+=60
	 '<center><img src="img/qjob/f3.jpg"></center>'
	 'You`ve come to the place, there were only girl photographer and another girl model, photographer gave clothes and asked to change clothes and stand in front of the camera with another girl, when you`re all done, She walked around for a long time the two of you, seeing you through the camera. Finally she finished and you obratilask "Generally you come, but there is one detail, with your partner , now with you. Shooting is not quite Advertising, most erotic, you caress each other, and all I do is take off, I warn you once, it will go abroad, so there is no one of these images will not see. Well?"'
	 act'Opt_Out':
		 cla
		 '"No, I`m not a porn star and this does not agree" dressed and gone.'
		 act 'Get_Away':gt'down'
		 end
	 act'agree':
		 cla
		 *clr
		 set minut+=90
		 set money+=2000
		 '<center><img src="img/qjob/f4.jpg"></center>'
		 'You agreed and began shooting, you are hugging each other, kissing, sometimes photographer ostavlivala and showed you how to get better, what-though it looked efektny, soon it again to stop you "Well finished with prilyudiey, and now vstanovis on his knees and caressed her tongue" she said you. You have already decently excited and re- inviting you not required, quickly knelt you release tab and prilbnuli to pussy girl, but the photographer again stop you "No, stand I did not see anything so, take out the language completely and lick her tongue vytenutym, you need not satisfy her and make good pictures" she said. You listened and did everything she said, Woman caressing you most tip of the tongue, in the region of the clitoris, and she diligently buckle depicting what is about to finish. "Ok, and now use this" said photographer taking out a decent size dildo and stretching his girlfriend, "Well, on all fours" she added, referring to you.'
		 act'up':
			 cla
			 *clr
			 '<center><img src="img/qjob/f5.jpg"></center>'
			 'You got up on all fours, but the photographer to stop it "billeting. Now grease the ladies, I look at it here is not needed." she added. The girl introduced you to the vibrator and continued shooting. You moaned and writhed and not on camera, and from the fact that you like it, you were ready to cum, but here again the photographer to stop you "No, stop, Well, who works as a vibrator, See here how to." She took a dildo in hand and began to show a girl, and you start to roll again, tolkochto othlynuvshee naslozhdenie. You were enjoying the process, but then you think, do not hear the camera clicks, you turned around and you will see that the photographer is already completely naked wielding a dildo in your pussy, and the model instrument of the language in its.'
			 act'change position':
				 cla
				 *clr
				 set picrand=RAND(6,10)
				 '<center><img src="img/qjob/f<<picrand>>.jpg"></center>'
				 'Your body swam in kakomto bizarre tangle of women`s bodies, You already struggling to understand who gives naslozhdenievam, and to whom you, but you is madly in love. When it was over . In this shooting and ended, you have a little chat, all dressed and gone.'
				 act 'Get_Away':gt'down'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='var2':
cla
*clr
set minut+=120
set money+=2000
'<center><img src="img/qjob/f11.jpg"></center>'
'You came in a small studio, where you met a girl photographer, she gave you the linen and when you start to shoot dressed. Linen was so clear that he had seen skoz all parts of your body. Deuvshka meanwhile commanded as up and that the bend. You diligently complied with all its instructions, After about an hour of shooting, when she once again put you in position and rearranging underwear, simply bared breasts and you went back to smkam as if nothing had happened. You quickly corrected linen covering her breasts, even through it and everything was perfectly clear. The girl pouted "Well open, it is not for advertising, we finished with advertising, this for me, I like to shoot odnazhennyh beauties, these pictures no one will see" she said.'
act 'Opt_Out':
	 cla
	 '"No, on a shoot I did not sign" you said and went pereodivatsya, she gave you money again asked to take off, but you were not bowed.'
	 act 'Get_Away':gt'down'
	 end
act 'open':
	 cla
	 *clr
	 '<center><img src="img/qjob/f12.jpg"></center>'
	 'You bared breasts and she smiled at the beginning you shoot, she was filming you in tight and not commanded, giving you the choice of poses. As a result, and after that she put the camera and grabbed you in the chest with both hands, soon her hands slid below, and their place was taken by mouth. She caressed you and seeing that you do not soprativlyaetes put her hand into her panties and you start to pull at the clitoris, and soon began to descend there lips, covering your body with kisses.'
	 act 'further':
		 set picrand=22
		 xgt'lezbsex','var'
		 end
	 end
end

if $ARGS[0]='var3':
cla
*clr
set qjobpristrand=RAND(0,5)
set var=RAND(0,5)
if var=0:
	 set minut+=60
	 '<center><img src="img/qjob/n0.jpg"></center>'
	 'You`ve come to the apartment, you opened the young guy and invited to enter, he showed you his long work, and then announced "Voobscheto I have now tvorchisky crisis and I do not need a model, but rather a muse, what-she inspired me."
	 "And how can I help you?" asked you.
	 "Here is the deal, I have always had problems with women, But if you agree to help me relax a little." he mumbled.
	 "What do you want that-I slept with you?" asked you.
	 "You could say that, Do not worry , that`s the day I have a gi." he said pulling money.'
	 act 'Opt_Out':
		 cla
		 '"Whore a challenge, moron, let it inspires you" you said and headed for the exit.'
		 act 'Get_Away':gt'down'
		 end
	 act 'agree':
		 set minut+=60
		 set money+=1000
		 cla
		 *clr
		 '<center><img src="img/qjob/n1.jpg"></center>'
		 '"Fair_Enough, give me the money" you have agreed.
		 "Of_Course, here you go, and I can first consider your vagina, nothing, just want to see close" he said.
		 "Yes_I_Am, See how much you want" Answer You and throwing off his clothes lay down on the bed. The guy lay down beside him and began to look at your pussy, then pushing the sponges inside zaglyudyvaya, simply leading the fingers of your clitoris, you will soon run down and he moistened fingers in your juice put them inside and slightly parted again began to stare into, soon he finally finished and took off his pants.'
		 act 'begin':
			 set picrand=81
			 xgt 'sex','var'
			 end
		 end
	 end
if var=1:
	 set minut+=180
	 set money+=1000
	 '<center><img src="img/qjob/n2.jpg"></center>'
	 'You`ve come to the Estate where you will meet a man, he quickly take you to the room and sat on the couch said, he need only your face and you have to portray passion, as if you end. You two o`clock sat on the couch with his mouth open, frozen in a silent scream of pleasure. When all was ready he called you to the picture, came you saw in the picture Woman narisovvanuyu anime, she had your face . The artist was behind your back and constantly talk describing how she was doing well and compliment you for the excellent otobraschenie passion, soon you will feel his breath on your neck, he approached closer to you in the end "What a pity that women may not be as exciting as passionately and their copies on canvas."'
	 act'Get_Away':
		 cla
		 '"I have to go" Say you and naprvilis to the exit leaving him alone to admire his labor.'
		 act 'Get_Away':gt'down'
		 end
	 act'bring_over':
		 cla
		 '"Well, yet how can, they`re just shy to show it. A picture shows their true passion, that they do not dare to show others. Maybe you just could not wake her up in them" Say you.
		 "No, it is not possible, I had a lot of women ." he said.
		 "Can be checked again, Do I have this stast" you said unbuttoning clothes.'
		 act'begin':
			 set picrand=82
			 xgt 'sex','var'
			 end
		 end
	 end
if var=2:
	 set minut+=180
	 set money+=1000
	 '<center><img src="img/qjob/n3.jpg"></center>'
	 'You`ve come to the Estate where you will meet a man, he quickly take you to the room and gives you a sheet and a vase, as he prepared paint you quickly undressed and turned into a sheet picked up a vase.'
	 if qjobpristrand!0:
		 'So it took a couple of hours, Finally he finished and thanking you, evicted from the apartment.'
		 act 'Get_Away':gt'down'
		 end
	 if qjobpristrand=0:
		 'As long as you stand, artist periodically comes to you and corrects sheet, and every time he accidentally touches you. Each time. As a result, his hands glide over your chest and sink lower and lower.'
		 act'terminate':
			 cla
			 'You make a remark to him and he lets you and returned to the picture, he soon ends and you pack off.'
			 act 'Get_Away':gt'down'
			 end
		 act'allow':
			 set picrand=85
			 gt 'sex','kuni'
			 end
		 end
	 end
if var=3:
	 set minut+=180
	 set money+=1000
	 '<center><img src="img/qjob/n4.jpg"></center>'
	 'You`ve come to the Estate where you will meet a man, he quickly take you to the room and sat on the sofa on which was sitting another girl. You froze waiting when you are told you have to do, but the artist just returned to painting and began to write. "Yes you Relax, We do not care for him , sit and do nothing" told you girl. You lay back on the couch and talking with girl, about any nonsense. You are talking and laughing, and the artist continued his work without paying attention to you, and you`ve completely forgotten about it, and then it can be seen from almost no-for canvas.'
	 if qjobpristrand!0:
		 'So it took a couple of hours, Finally he finished and thanking you, evicted from the apartment.'
		 act 'Get_Away':gt'down'
		 end
	 if qjobpristrand=0:
		 'Soon you already hard besilis on the couch as children. The girl you brought down on the sofa and your clothes slipped baring breasts. She froze over you panting, her face was a few inches from your chest, she looked at you and you notice how on her lips ran smile, She opened her mouth slightly and making a few movements of the tongue without taking it out of his mouth, but so-you would have seen it, froze waiting for your response.'
		 act'correct clothes':
			 cla
			 'You trimmed clothes and the girl got off you, you`re back to chatter. Soon.'
			 act 'Get_Away':gt'down'
			 end
		 act'allow':
			 cla
			 *clr
			 '<center><img src="img/qjob/n5.jpg"></center>'
			 'You smiled at her and held her hand over her thigh, more from you and did not need her lips stuck into your chest, and his hands slid over the body randomly tearing your clothes. Soon you lying naked on the couch srl, her tongue caressing your pussy, and his hands caressing the body. You closed your eyes plunging into the abyss of pleasure when he felt someone above him-then breath, opened his eyes you see in front of his face erection artist. He pulled him closer to you almost resting on the lips, You opened his mouth running it inside and began to caress the head of the language, then absorbed him deeper and began to suck.'
			 act'carry_On':
				 set picrand=31
				 gt 'podrsex','var'
				 end
			 end
		 end
	 end
if var=4:
	 set minut+=180
	 set money+=1000
	 '<center><img src="img/qjob/n6.jpg"></center>'
	 'You have arrived at the apartment, There you will meet a girl and ran to the room where the man was sitting in a sheet, she said that it was her husband. You got cancer before muzhtsinoy and bared buttocks, He put one hand on your buttocks and metering. The girl began to write.'
	 if qjobpristrand!0:
		 'So it took a couple of hours, Finally she finished and thanking you, evicted from the apartment.'
		 act 'Get_Away':gt'down'
		 end
	 if qjobpristrand=0:
		 'You stood so for quite some time and then the man began to stroke your buttocks, first gently, almost imperceptibly, then more and more and soon he was crushed your ass do not hesitate to. You looked at the girl, she pretended that nothing was happening and continued to do their work. At this time.'
		 act'embed':
			 cla
			 'You turned around and as I could slapped him in the face. The girl did not react again, you once again stood in a pose, and he gently put his hand on your ass and it did not move more. Soon she had finished and shoved you.'
			 act 'Get_Away':gt'down'
			 end
		 act'allow':
			 cla
			 *clr
			 '<center><img src="img/qjob/n7.jpg"></center>'
			 'You are a little spread her legs giving him room to maneuver, and he immediately took advantage of this, His fingers ran over your clit fingering pussy first, and when you are wet . You became tihoniko moan, But think about the girl broke off and looked at her, She smiled and continued to write to you. You closed your eyes and become naslozhdatsya proihodyaschim already groaning unashamedly. Soon you heard footsteps girl, and then squish characteristic, turned you saw her doing blowjob to her husband. You turned around and approached them, the guy immediately vskhvatil you and start the one hand you a pussy, began to kiss your breasts'
			 act'carry_On':
				 set picrand=32
				 gt 'podrsex','var'
				 end
			 end
		 end
	 end
if var=5:
	 set minut+=180
	 set money+=1000
	 '<center><img src="img/qjob/n2.jpg"></center>'
	 'You`ve come to the Estate where you will meet a man, he quickly take you to the room. You took a pose, and he began to write, He was quite handsome , but your every move just heard a request not to move. So it took a lot of time, and he had paid any attention to you, you it was even hurt, as it is so you do not pay attention. he soon finished.'
	 act'Get_Away':gt'down'
	 act'covet':
		 set picrand=86
		 gt 'sex','minet'
		 end
	 end
end
--- qjob ---------------------------------

# sex
if $ARGS[0]='start':
set picrand = RAND (0,1)
gs'stat'
xgt'sex','var'
set guy+=1
end

if $ARGS[0]='var':
cla
gs'stat'
set textrand=RAND(1,4)
act 'blow_job':gt'sex','minet'
if picrand!12 and picrand!28 and picrand!29 and picrand!30 and picrand!34 and picrand!35 and picrand!50 and picrand!55 and picrand!76 and picrand!81 and picrand!87:act 'Cooney':gt'sex','kuni'
if picrand!31 and picrand!33 and picrand!36:act 'spread her legs':gt'sex','vag'
if picrand!15 and picrand!28 and picrand!29 and picrand!32:act 'horsewoman':gt'sex','nae'
act 'get cancer':gt'sex','rak'
if picrand!13 and picrand!36 and picrand!39 and picrand!75:act 'on the side':gt'sex','bok'
if picrand!15 and picrand!16 and picrand!22 and picrand!17 and picrand!44 and picrand!51 and picrand!52 and picrand!61 and picrand!74 and picrand!77 and picrand!80:act 'In the ass':gt'sex','anal'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='minet':
cla
*clr
set horny+=10
if sxbj=0:
	 if svidboysex=1:set bja+=1
	 set bj+=1
	 set sxbj=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/minet<<picrand>>.jpg"></center>'
if textrand=1:'You have a member of the hand, delayed the skin, licked his lips and sucked in her mouth naked penis. You vigorously sucking dick her soft wet lips, played with him tongue, played with bridle. he, smiling blissfully, did not take his eyes off you sucking his cock. He was shaking and moaning'
if textrand=2:'You knelt, and took in his hand the large and gentle trunk. Then slowly began to work hand, gradually leading him to my insatiable jaws, and now he was drowned in your mouth.'
if textrand=3:'Your tongue walked around the trunk from the testicles to the end of the head. Your hot lips captured his tender head and your mouth slid down the barrel of his penis. Your palm was a continuation of her mouth and tightly cover the remainder of the phallus. You then accelerated pace, then slowed, your sponge is filled with resilient, it becomes extremely soft.'
if textrand=4:'Taking the hand of his hard dick, You sent him into his hot mouth. Then introducing it to the entire, to the very throat, then caressing one head, you staring him in the face, stretching his pleasure, your hands caressing the body of Man.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='kuni':
cla
*clr
set horny+=10
if sxkuni=0:
	 set kuni+=1
	 set sxkuni=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/kuni<<picrand>>.jpg"></center>'
if textrand=1:'Man holds his tongue over your hips, kisses pubis and goes down to the vagina, his tongue slides over your crotch is caressing the clitoris is getting inside.'
if textrand=2:'you feel, as tongue deep in your pussy wielded, he is there vytvoryayu, you ran like crazy. You had a feeling, he ignored, has not left any zakoulochki, vaey in hot pussy. In this case, that you thought, he choke. But it was not there, his tongue, not only get you deep in pussy, but he also managed to lick it, that tried to flow you thighs'
if textrand=3:'He fell down at your current hole. Nose rested against the clitoris, a large and long tongue plunged inside, whereВ began to lick vagina smazochki with stenochek. You podmahivat, language that popped out of your hole. Then he grabbed your buttocks and squeezed, and stretched the entire length of the language, began to fuck you.'
if textrand=4:'His tongue gently began to lick lips sex, entrance into the fold, touch klitorok. "ah, how cool!" , - You thought. Gradually. his tongue, as easy fast butterfly, fluttering over it.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='vag':
cla
*clr
set horny+=10
if sxsex=0:
	 if svidboysex=1:set sexa+=1
	 set sex+=1
	 set sxsex=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/vag<<picrand>>.jpg"></center>'
if textrand=1:'heВ slowly and deeply entered into you. you were, relaxed. As your body enjoy it, can easily read on his face. he, literally melted, moaning, dissolving in your bosom. How is it, all-still it was cool!'
if textrand=2:'Hard cock hard and deep into the bosom of your. Peel it lifts up and tender moist, but hard head so nice sliding, rubbed against wet cunt'
if textrand=3:'Going to the full depth, he did not stop, and began to move back, smearing the entire length of the accumulated moisture. Afraid to fully withdraw from the cave so desired, he stalled half the length, and at a higher rate, again began to sink into the abyss of inviting. Movement became more intense and deeper. His hips zashlС‘pali on your thighs.'
if textrand=4:'Your pisya squelched and slurp, you С‘rzali and twirled his ass okamenevschem banana, all the more intense and aggressive hammering his bottomless hole.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='nae':
cla
*clr
set horny+=10
if sxsex=0:
	 if svidboysex=1:set sexa+=1
	 set sex+=1
	 set sxsex=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/nae<<picrand>>.jpg"></center>'
if textrand=1:'heВ slowly and deeply entered into you. you were, relaxed. As your body enjoy it, can easily read on his face. he, literally melted, moaning, dissolving in your bosom. How is it, all-still it was cool!'
if textrand=2:'Hard cock hard and deep into the bosom of your. Peel it lifts up and tender moist, but hard head so nice sliding, rubbed against wet cunt'
if textrand=3:'Going to the full depth, he did not stop, and began to move back, smearing the entire length of the accumulated moisture. Afraid to fully withdraw from the cave so desired, he stalled half the length, and at a higher rate, again began to sink into the abyss of inviting. Movement became more intense and deeper. His hips zashlС‘pali on your thighs.'
if textrand=4:'Your pisya squelched and slurp, you С‘rzali and twirled his ass okamenevschem banana, all the more intense and aggressive hammering his bottomless hole.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='rak':
cla
*clr
set horny+=10
if sxsex=0:
	 if svidboysex=1:set sexa+=1
	 set sex+=1
	 set sxsex=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/rak<<picrand>>.jpg"></center>'
if textrand=1:'heВ slowly and deeply entered into you. you were, relaxed. As your body enjoy it, can easily read on his face. he, literally melted, moaning, dissolving in your bosom. How is it, all-still it was cool!'
if textrand=2:'Hard cock hard and deep into the bosom of your. Peel it lifts up and tender moist, but hard head so nice sliding, rubbed against wet cunt'
if textrand=3:'Going to the full depth, he did not stop, and began to move back, smearing the entire length of the accumulated moisture. Afraid to fully withdraw from the cave so desired, he stalled half the length, and at a higher rate, again began to sink into the abyss of inviting. Movement became more intense and deeper. His hips zashlС‘pali on your thighs.'
if textrand=4:'Your pisya squelched and slurp, you С‘rzali and twirled his ass okamenevschem banana, all the more intense and aggressive hammering his bottomless hole.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='bok':
cla
*clr
set horny+=10
if sxsex=0:
	 if svidboysex=1:set sexa+=1
	 set sex+=1
	 set sxsex=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/bok<<picrand>>.jpg"></center>'
if textrand=1:'heВ slowly and deeply entered into you. you were, relaxed. As your body enjoy it, can easily read on his face. he, literally melted, moaning, dissolving in your bosom. How is it, all-still it was cool!'
if textrand=2:'Hard cock hard and deep into the bosom of your. Peel it lifts up and tender moist, but hard head so nice sliding, rubbed against wet cunt'
if textrand=3:'Going to the full depth, he did not stop, and began to move back, smearing the entire length of the accumulated moisture. Afraid to fully withdraw from the cave so desired, he stalled half the length, and at a higher rate, again began to sink into the abyss of inviting. Movement became more intense and deeper. His hips zashlС‘pali on your thighs.'
if textrand=4:'Your pisya squelched and slurp, you С‘rzali and twirled his ass okamenevschem banana, all the more intense and aggressive hammering his bottomless hole.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='anal':
cla
*clr
set horny+=10
if sxanal=0:
	 if svidboysex=1:set anala+=1
	 set anal+=1
	 set sxanal=1
	 end
set minut+=10
set sexvar+=1
'<center><img src="img/sex/anal<<picrand>>.jpg"></center>'
if textrand=1:'You are pushing the buttocks inviting him in his ass, the guy did not hesitate and threw her dildo in your point, you squealing with every jolt, and it is only whet and it moves faster with each thrust penetrating deeper into your anus, making you scream louder.'
if textrand=2:'Cock slowly, but surely making its way into your ass. Now he came to the full depth. Are you struggling compressed login to your ass, and from this member, it_seemed, even more strained, thickens and grows in size. - Yes_I_Am, so very cool! Do not let go!! How can cool!!! - he groaned. His steel member strongly moved there-this_way, bringing you pleasure.'
if textrand=3:'At the same moment, you felt, like what-something big and fat enters your narrow opening. You cried out in pain, but, not paying attention to you, began to peck like a wound. where pain-then disappeared, and you began to receive a fabulous fun.'
if textrand=4:'You are pushing the buttocks inviting him in his ass, the guy did not hesitate and threw her dildo in your point, you squealing with every jolt, and it is only whet and it moves faster with each thrust penetrating deeper into your anus, making you scream louder.'
if sexvar<3:act 'More':xgt'sex','var'
if sexvar>=3:act 'End_Up.':gt'sex','end'
end

if $ARGS[0]='end':
cla
*clr
set svidboysex=0
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=10
set sexvar=0
set sxkuni=0
set sxbj=0
set sxsex=0
set sxanal=0
set cumlip+=1
'<center><img src="img/sex/cum<<picrand>>.jpg"></center>'
'You take his dildo in her mouth and suck rage until he cums.'
act 'Get_Away':
	 if picrand>=54 and picrand<=73:gt'office','work'
	 if picrand>=74 and picrand<=76:gt'vann','start'
	 if picrand>=77 and picrand<=80:gt'house'
	 if picrand>=81 and picrand<=82:gt'down'
	 if picrand>=83 and picrand<=84:gt'korr'
	 if picrand>=85 and picrand<=86:gt'down'
	 if picrand=87 or picrand=90:gt'kuhr'
	 if picrand=88:gt'sitr'
	 if picrand=89:gt'bed','start'
	 if svidboykino=1:
		 set svidboykino=0
		 gt'torgcentr'
		 end
	 if svidboypark=1:
		 set svidboypark=0
		 gt'park','start'
		 end
	 if svidboypark1=1:
		 set svidboypark1=0
		 gt 'svidboy','parksvid21'
		 end
	 if svidboypark2=1:
		 set svidboypark2=0
		 gt 'svidboy','parksvid22'
		 end
	 if svidboykafe=1:
		 set svidboykafe=0
		 gt 'down'
		 end
	 gt'<<$sexloc>>','start'
	 end
end
--- sex ---------------------------------

# sexdvanadva
if $ARGS[0]='start':
cla
*clr
set guy+=2
set girl+=1
set gang+=1
gs 'stat'
set picrand = RAND (0,1)
set minut+=30
set sweat+=1
xgt'sexdvanadva','var'
end

if $ARGS[0]='var':
set sexdvarand = RAND (0,6)
if pikrand=11:set sexdvarand = RAND (0,5)
if pikrand=14:set sexdvarand = RAND (0,4)
if sexdvarand=0:
	 cla
	 *clr
	 set horny+=10
	 if dvdvsxbj=0:
		 set bj+=1
		 set dvdvsxbj=1
		 end
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/minet<<picrand>>.jpg"></center>'
	 'You two suck their members.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=1:
	 cla
	 *clr
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/vag<<picrand>>.jpg"></center>'
	 'While she enjoys the member in her pussy, you will not remain without male attention.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=2:
	 cla
	 *clr
	 set horny+=10
	 if dvdvsxsex=0:
		 set sex+=1
		 set dvdvsxsex=1
		 end
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/uvag<<picrand>>.jpg"></center>'
	 'He comes into you, his cock moving inside your pussy bringing you pleasure, at this time it is also not alone.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=3:
	 cla
	 *clr
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/anal<<picrand>>.jpg"></center>'
	 'Do you like the kind of cock in her ass and sweet as she yells trying to absorb all of it you too busy interestno process.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=4:
	 cla
	 *clr
	 set horny+=10
	 if dvdvsxanal=0:
		 set anal+=1
		 set dvdvsxanal=1
		 end
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/uanal<<picrand>>.jpg"></center>'
	 'When he enters you in the ass you hurt a little, but soon the pain goes away and its place is taken by a pleasant sensation, until it moves dildo in your ass it is not sitting idly by.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=5:
	 cla
	 *clr
	 set horny+=10
	 if dvdvsxsex=0:
		 set sex+=1
		 set dvdvsxsex=1
		 end
	 if dvdvsxanal=0:
		 set anal+=1
		 set dvdvsxanal=1
		 end
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/udp<<picrand>>.jpg"></center>'
	 'Both men belong to you and you moan with pleasure feeling both dildo moving inside.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
if sexdvarand=6:
	 cla
	 *clr
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvanadva/dp<<picrand>>.jpg"></center>'
	 'When they enter into it together you get a little jealous seeing as she enjoys.'
	 if sexvar<3:act 'More':xgt'sexdvanadva','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvanadva','end'
	 end
end

if $ARGS[0]='end':
cla
*clr
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=10
set dvdvsxbj=0
set dvdvsxsex=0
set dvdvsxanal=0
set cumlip=1
set sexvar=0
'<center><img src="img/sexdvanadva/cum<<picrand>>.jpg"></center>'
'When they end up spilling your cum, you lick it off each other, sharing your kissing and finally swallow.'
act 'Get_Away':
	 if kafesexrand=1:
		 set kafesexrand=0
		 gt'kafe','workPred'
		 end
	 if kazsexdva=1:
		 set kazsexdva=0
		 gt'kazinosvid','3'
		 end
	 gt'<<$sexloc>>','start'
	 end
end
--- sexdvanadva ---------------------------------

# sexdvoe
if $ARGS[0]='start':
set picrand = RAND (0,1)
set minut+=30
set sweat+=1
set guy+=2
xgt'sexdvoe','var'
end

if $ARGS[0]='var':
set sexrand = RAND (0,3)
if picrand=12:set sexrand = RAND (0,2)
if picrand=40:set sexrand = RAND (1,2)
if sexrand=0:
	 cla
	 *clr
	 if dvsxbj=0:
		 set bj+=1
		 set dvsxbj=1
		 end
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvoe/minet<<picrand>>.jpg"></center>'
	 'You suck both members, trying to deliver both udovolsvie, but just two in your mouth do not fit.'
	 if sexvar<3:act 'More':xgt'sexdvoe','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvoe','end'
	 end
if sexrand=1:
	 cla
	 *clr
	 if dvsxbj=0:
		 set bj+=1
		 set dvsxbj=1
		 end
	 if dvsxsex=0:
		 set sex+=1
		 set dvsxsex=1
		 end
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvoe/vag<<picrand>>.jpg"></center>'
	 'While one guy fucks your pussy, you diligently sucking second.'
	 if sexvar<3:act 'More':xgt'sexdvoe','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvoe','end'
	 end
if sexrand=2:
	 cla
	 *clr
	 if dvsxbj=0:
		 set bj+=1
		 set dvsxbj=1
		 end
	 if dvsxanal=0:
		 set anal+=1
		 set dvsxanal=1
		 end
	 set horny+=10
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvoe/anal<<picrand>>.jpg"></center>'
	 'While one guy fucks you in the ass, prevomogaya you own moans trying to serve a second mouth.'
	 if sexvar<3:act 'More':xgt'sexdvoe','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvoe','end'
	 end
if sexrand=3:
	 cla
	 *clr
	 set horny+=10
	 if dvsxsex=0:
		 set sex+=1
		 set dvsxsex=1
		 end
	 if dvsxanal=0:
		 set anal+=1
		 set dvsxanal=1
		 end
	 set minut+=10
	 set sexvar+=1
	 '<center><img src="img/sexdvoe/dp<<picrand>>.jpg"></center>'
	 'They both belong to you, you is a great pleasure dostovlyaet, when both members move to the variable vnurti pistons.'
	 if sexvar<3:act 'More':xgt'sexdvoe','var'
	 if sexvar>=3:act 'End_Up.':gt'sexdvoe','end'
	 end
end
if $ARGS[0]='end':
cla
*clr
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
set minut+=10
set dvsxbj=0
set dvsxsex=0
set dvsxanal=0
set sexvar=0
set cumbelly=1
set cumlip=1
set cumface=1
'<center><img src="img/sexdvoe/cum<<picrand>>.jpg"></center>'
'When they were satisfied that you have filled in all of his sperm.'
if picrand=29:'When it ends chief says, what you did well and now you are free and can go.'
if picrand=39:'then <<$boyA>> throws you out of the apartment.'
act 'Get_Away':
	 if picrand>=24 and picrand<=26:gt'office','work'
	 if picrand>=30 and picrand<=34:gt'office','work'
	 if picrand>=35 and picrand<=37:gt'house'
	 if picrand>=40 and picrand<=43:gt'korr'
	 if picrand=38:gt'bed','vorend'
	 if picrand=29 or picrand=39:gt'nord'
	 if kafesexrand=1:
		 set kafesexrand=0
		 gt'kafe','workPred'
		 end
	 gt '<<$sexloc>>','start'
	 end
end

--- sexdvoe ---------------------------------

# spalnya
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>bedroom</B></center>'
'<center><img src="img/centr/spaln.jpg" ></center>'
set minut+=5
set tanhouse1=1
gs 'stat'
if komp = 1:'<a href="exec:GT ''Komp'',''start''">computer</a>.'
act 'In the corridor':gt'house'
act 'do(2 hours)':
	 cla
	 set minut+=120
	 set intel+=1
	 'You prozanimalsya two o`clock, I think in your head that-then postponed'
	 act 'End_Up':gt'spalnya'
	 end
if student > 0 and kursovik < 100:
     act 'write kursovik 1 h':
		 cla
		 *clr
		 set minut = minut + 60
		 set kursovik = kursovik + RAND (intel/20,intel/10)
		 if kursovik > 100:set kursovik = 100
		 set manna = manna - 10
		 '<center><img src="pic/study.jpg" ></center>'
		 'You sat on coursework and prepare it for <<kursovik>> percent.'
		 act 'End_Up':gt'spalnya'
		 end
     end
act 'mirror':gt'mirror','start'
act 'cupboard':gt'loker','start'
act 'In bed':gt'bed','start'
if tanga=0 and clrbelo>0:
	 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt'spalnya'
		 end
else
	 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt'spalnya'
		 end
	 end
--- spalnya ---------------------------------

# svidboy
if $ARGS[0] = 'kinosvid':
cla
*clr
set minut+=60
set manna+=10
set bfA+=3
gs 'stat'
'<center><B>theater</B></center>'
'<center><img src="img/boysvid/kino0.jpg" ></center>'
'<<$boyA>> bought tickets and you take their seats ready for viewing'
act 'watch movies':
	 cla
	 *clr
	 set minut+=90
	 '<center><img src="img/boysvid/kino1.jpg" ></center>'
	 'During the session <<$boyA>> looked around and making sure that other than you in the room is unoccupied, turned to you and started kissing, His hand slid under clothes, began to caress your breasts.'
	 act '"not here"':
		 cla
		 *clr
		 '<center><img src="img/boysvid/kino0.jpg" ></center>'
		 'You have removed his hand "Well"
		 When the film ended <<$boyA>> said that he had to flee and left.'
		 act 'Get_Away':gt'torgcentr'
		 end
	 act 'Unbutton his pants':
		 cla
		 *clr
		 set picrand=48
		 set svidboysex=1
		 set svidboykino=1
		 set bfA+=5
		 '<center><img src="img/boysvid/kino2.jpg" ></center>'
		 'You unbutton his pants and pulled out already erection starts stroking his hand, <<$boyA>> lozhit hands on your shoulders and begins to gently push down, directing your head to its members.'
		 act 'Take by mouth':gt 'sex','minet'
		 end
	 end
end

if $ARGS[0] = 'parksvid':
cla
*clr
set minut+=60
set manna+=10
set bfA+=3
gs 'stat'
'<center><B>park</B></center>'
'<center><img src="img/boysvid/park0.jpg" ></center>'
'<<$boyA>> and you are met at the entrance to the park.'
act 'go for a walk':
	 set parksvidrand=rand(0,1)
	 if parksvidrand=1:gt 'svidboy','parksvid2'
	 cla
	 *clr
	 set minut+=60
	 '<center><img src="img/boysvid/park1.jpg" ></center>'
	 'When you come into the park <<$boyA>> caught you in his arms and began to circle, "enough, stop, more damage" you laughed. <<$boyA>> put you on the ground.'
	 act 'move on':
		 cla
		 *clr
		 '<center><img src="img/boysvid/park0.jpg" ></center>'
		 'You took him by the hand and walked away.
		 soon <<$boyA>> said that he had to flee and left.'
		 act 'Get_Away':gt'park','start'
		 end
	 act 'kiss him':
		 cla
		 *clr
		 '<center><img src="img/boysvid/park2.jpg" ></center>'
		 'You turn to him and kiss on the lips, he hugs you and his hands begin to wander around your body, One stop on the chest, the second is your buttocks squeezes.'
		 act 'terminate':
			 cla
			 *clr
			 '<center><img src="img/boysvid/park0.jpg" ></center>'
			 'You have removed his hands and went on.
			 soon <<$boyA>> said that he had to flee and left.'
			 act 'Get_Away':gt'park','start'
			 end
		 act 'carry_On':
			 cla
			 *clr
			 set horny+=20
			 '<center><img src="img/boysvid/park3.jpg" ></center>'
			 'You keep kissing him, <<$boyA>> passes from your lips on his neck, and hands you bares his chest and starts to squeeze her, it gets you and the hand itself stretches to pussy.'
			 act 'terminate':
				 cla
				 *clr
				 '<center><img src="img/boysvid/park0.jpg" ></center>'
				 'You have removed his hands and chest hidden under clothes back went on.
				 soon <<$boyA>> said that he had to flee and left.'
				 act 'Get_Away':gt'park','start'
				 end
			 act 'carry_On':
				 cla
				 *clr
				 '<center><img src="img/boysvid/park4.jpg" ></center>'
				 'You stand and enjoy caresses, one hand fingering her pussy, suddenly <<$boyA>> bends and you exposing your ass bites into her language, his tongue slips between your buttocks then fondling pussy then Shchekotov anus.'
				 act 'carry_On':
					 set picrand=49
					 set svidboysex=1
					 set svidboypark=1
					 set bfA+=5
					 gt 'sex','kuni'
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0] = 'parksvid2':
cla
*clr
gs 'stat'
'<center><img src="img/boysvid/park5.jpg" ></center>'
'Walking through the park zakaulkam you notice black guy watching you'
if izvrat = 1:
	 '<<$boyA>> also his remarks and turned to you and said rastegivat pants "And let`s arrange a little show for this pervert"'
	 act 'Opt_Out':
		 cla
		 *clr
		 '<center><img src="img/boysvid/park6.jpg" ></center>'
		 '"well, no I will not do that" you reply buttoning his pants ego, take his hand and go on.
		 soon <<$boyA>> said that he had to flee and left.'
		 act 'Get_Away':gt'park','start'
		 end
	 act 'agree':
		 set picrand=50
		 set svidboysex=1
		 set svidboypark1=1
		 set bfA+=5
		 gt 'sex','minet'
		 end
	 end
'You comes to mind crazy idea, to have sex with her boyfriend in front of peeping.'
act 'sex':
	 cla
	 *clr
	 '<center><img src="img/boysvid/park9.jpg" ></center>'
	 'You let go of his hand away a little guy ago, raschityvaya place so that-African would have seen the good and throwing off his clothes covenant of her boyfriend "I want you here and now"
	 "And I do not mind" He goes to meet you and find rastegivaya pants.'
	 act 'blow_job':
		 set picrand=50
		 set svidboysex=1
		 set svidboypark2=1
		 set bfA+=5
		 gt 'sex','minet'
		 end
	 end
act 'Discard this idea and move on.':
	 cla
	 *clr
	 '<center><img src="img/boysvid/park6.jpg" ></center>'
	 'You drop this idea and move on.
	 soon <<$boyA>> said that he had to flee and left.'
	 act 'Get_Away':gt'park','start'
	 end
end


if $ARGS[0] = 'parksvid21':
cla
*clr
'<center><img src="img/boysvid/park7.jpg" ></center>'
'After <<$boyA>> finished, he asks you "Well this little Papuan still here?"
"Yes_I_Am, actively Fingering." you reply, glancing toward African.
"If you want you can suck it, and I look." speaks <<$boyA>>, clearly wanting that-would you agree.'
act 'Opt_Out':
	 cla
	 *clr
	 '<center><img src="img/boysvid/park6.jpg" ></center>'
	 '"Well, I`m not going to suck him, enough with him and watching." you reply dressing, then take his hand and go on.
	 soon <<$boyA>> said that he had to flee and left.'
	 act 'Get_Away':gt'park','start'
	 end
act 'agree':
	 cla
	 *clr
	 set bfA+=5
	 set bj+=1
	 set swallow+=1
	 '<center><img src="img/boysvid/park8.jpg" ></center>'
	 'You beckon African, he is cautious approach with caution posmatrikaya on your guy.
	 "do not be afraid, took out prichindaly, Now my slut will suck you down to the bottom" grinned <<$boyA>>
	 You kneel so that <<$boyA>> was well aware of all the processes, and styanuv Man with pants start to suck, you had to work not long, a minute later he came into your mouth. The guy immediately ran away satisfied.
	 "hey, if money is not a whore takes it could even say thank you" threw him to the trail <<$boyA>>
	 Not paying attention to his words, because you really behave like the last whore, you got dressed and went on.
	 soon <<$boyA>> said that he had to flee and left.'
	 act 'Get_Away':gt'park','start'
	 end
end

if $ARGS[0] = 'parksvid22':
cla
*clr
'<center><img src="img/boysvid/park7.jpg" ></center>'
'After <<$boyA>> finished, he notices you watching African "damn, This pervert spying us" and noticing how your lips to smile slipped asked "Did you know that he is here, are you here specifically decided to fuck off in front of this black man, can you tell him yet otsosesh?"'
act 'calm him down':
	 cla
	 *clr
	 '<center><img src="img/boysvid/park6.jpg" ></center>'
	 '"Of course I did not know anything, do you really think that I could have sex with you in front of the" you do offended face and dressed quickly go, a few seconds <<$boyA>> catches up with you, "forgive me, sun, and did not want to hurt you, I said it sgorecha" izvenyayus it, you take him by the hand, say that you forgive and move on.
	 soon <<$boyA>> said that he had to flee and left.'
	 act 'Get_Away':gt'park','start'
	 end
act 'annoy him':
	 cla
	 *clr
	 set bfa = 0
	 set bj+=1
	 set swallow+=1
	 set eggs+=1
	 '<center><img src="img/boysvid/park8.jpg" ></center>'
	 '"And I want to suck" threw you back.
	 "So what are you waiting for me to call , hey man come here are free whore, sucks for so" cried <<$boyA>>
	 "Come on do not be afraid" shouted the guy you, African timidly walked up to you.
	 You kneel so that <<$boyA>> was well aware of all the processes, and styanuv Man with pants start to suck, you had to work not long, a minute later he came into your mouth. But you`re not going to end so quickly especially well when <<$boyA>> sitting next crimson with anger. You have a guy for a member and continued to masturbate that-he finally fell, and themselves ostentatiously turned to his, now ex-boyfriend, and play a bit with the sperm in the mouth swallow it. Then you turned back and continued to African, not Vysk his penis out of the hands you started to caress his tongue eggs, then took them entirely into his mouth and began to suck it out of his mouth releasing one that again absorbing both, when a member of the African stood again, you switch to it, Medley and metadichno you licked every inch of his dildo, then began to suck on the head, loud smacking, after you calmly and methodically began to suck him trying to absorb it into itself entirely and as a member was a very modest size you manage it, and that would put an end to, you pushed it into his mouth and his balls. In this <<$boyA>> could not help shouting that-what about the fact that you`re a whore and he hates Islands escaped, you quietly completed the guy a blowjob and swallowing cum went away. '
	 act 'Get_Away':gt'park','start'
	 end
end

if $ARGS[0] = 'billsvid':
cla
*clr
set minut+=60
set manna+=10
set bfA+=3
set picrand = RAND (51,52)
gs 'stat'
'<center><img src="img/boysvid/bil<<picrand>>.jpg" ></center>'
'<<$boyA>> pay table in a booth and you went to play'
act 'play':
	 cla
	 *clr
	 set minut+=60
	 '<center><img src="img/boysvid/bil1<<picrand>>.jpg" ></center>'
	 'During the game <<$boyA>> comes to you from behind and his hands glide over your endeavors hips and lips drawn to the neck.'
	 act 'not here':
		 cla
		 *clr
		 '<center><img src="img/boysvid/bil0<<picrand>>.jpg" ></center>'
		 'You have removed his hand "Well".
		 When your time is up <<$boyA>> said that he had to flee and left.'
		 act 'Get_Away':gt'torgcentr'
		 end
	 act 'Let continues':
		 cla
		 *clr
		 '<center><img src="img/boysvid/bil2<<picrand>>.jpg" ></center>'
		 'You lozhite cue on the table and relax allowing him to continue to caress your body, his kisses down lower and lower.'
		 act 'Let continues':
			 set svidboysex=1
			 set svidboykino=1
			 set bfA+=5
			 gt 'sex','kuni'
			 end
		 act 'stop, enough':
			 cla
			 *clr
			 '<center><img src="img/boysvid/bil0<<picrand>>.jpg" ></center>'
			 'You have removed his hand "Well"
			 When your time is up <<$boyA>> said that he had to flee and left.'
			 act 'Get_Away':gt'torgcentr'
			 end
		 end
	 end
end

if $ARGS[0] = 'kafesvid':
cla
*clr
set minut+=60
set manna+=10
set bfA+=3
gs 'stat'
'<center><img src="img/boysvid/kafe0.jpg" ></center>'
'you and <<$boyA>> went into a small cafe in the center, It seems that it does not enjoy popularity, site visitors almost no, you sat at a table in one of the individual booths.'
act 'wait for the order':
	 cla
	 *clr
	 set minut+=60
	 '<center><img src="img/boysvid/kafe1.jpg" ></center>'
	 'Once you have brought order <<$boyA>> began to pester you, he and Nars kiss you, and his hands glided over your body, then fondling breasts, then squeeze your buttocks.'
	 act '"not here"':
		 cla
		 *clr
		 '<center><img src="img/boysvid/kafe0.jpg" ></center>'
		 'You have removed his hand "Well"
		 After a while <<$boyA>> said that he had to flee and left.'
		 act 'Get_Away':gt'down'
		 end
	 act 'Let continues':
		 cla
		 *clr
		 '<center><img src="img/boysvid/kafe2.jpg" ></center>'
		 'Soon you remain almost without clothes, and <<$boyA>> already kissed you underbelly, going down to the pubis.'
		 act 'Let continues':
			 set svidboysex=1
			 set svidboykafe=1
			 set bfA+=5
			 set picrand=53
			 gt 'sex','kuni'
			 end
		 act 'stop, enough':
			 cla
			 *clr
			 '<center><img src="img/boysvid/kafe0.jpg" ></center>'
			 'At the last moment you vsetaki came to their senses and realizing that you are now in a cafe, pushed him "No enough we`re in a cafe, patience home"
			 but soon <<$boyA>> said that he had to flee and left.'
			 act 'Get_Away':gt'down'
			 end
		 end
	 end
end
--- svidboy ---------------------------------

# tanhouse
gs 'stat'
$sexloc = $CURLOC
'<center><B>apartment Thani</B></center>'
'<center><img src="img/centr/house.jpg" ></center>'
'You Tania opens and quickly to my room.'
if tanpred=0:
if tanya<=50:
	 'Nor giving you say a word '
	 set tanday=day
	 set tanya+=3
	 act'sex':xgt'lezbsex','var'
	 end
if tanya>50 and vnesh<=20:
	 'Nor giving you say a word '
	 set tanday=day
	 set tanya+=3
	 act'sex':xgt'lezbsex','var'
	 end
if tanya>50 and vnesh>20:
	 '"Sveta, I have a very best idea, mother had just fired guvernatku, let me take you suggest stepfather, he pays well 25000 month, and the business is in the morning to cook breakfast, evening dinner and clean up well, and going to live right here with us." Tanya protorotorila.
	 "And where did you get, that I will take your stepfather, I had in this field did not work" asked you.
	 "believe, if I say take." Tanya smiled lasciviously'
	 act'Opt_Out':
		 cla
		 '"I OFFER second time will not, you do not want to be with me piss" Tanya furious pushes you out of the apartment.'
		 set tanya=0
		 act 'Get_Away':gt'down'
		 end
	 act'agree':
		 cla
		 if work>0:
			 cla
			 '"Ok, Only I first need to quit"
			 "So what do you expect, already run" joyfully cried Tanya'
			 set tanya+=5
			 set tanpred=1
			 act 'Get_Away':gt'down'
			 end
		 if work=0:
			 cla
			 '"Ok, I agree."
			 "Hooray `ll go and tell her stepfather" joyfully cried Tanya'
			 set tanya+=5
			 set tanwork=1
			 set work=1
			 act 'Get_Away':gt'tanhouse','sex'
			 end
		 end
	 end
end
if tanpred=1:
	 '"Well quit?"'
	 if work=0:
		 '"Yes_I_Am, quit"
		 "Hooray `ll go and tell her stepfather" joyfully cried Tanya'
		 set tanwork=1
		 set work=1
		 act 'Get_Away':gt'tanhouse','sex'
		 end
	 if work>0:
		 '"not yet"
		 "So what do you expect, already run"'
		 act 'Get_Away':gt'down'
		 end
	 end

if $ARGS[0]='sex':
cla
*clr
'<center><img src="img/centr/tananal.jpg" ></center>'
'Walking down the hallway you can hear the groans of one room, slightly opening the door you see Tanya standing against the wall apart buttocks hands, while her stepfather fucked in the ass. So here`s how it achieves that by his stepfather wants.'
act 'Get_Away':gt'down'
end

if $ARGS[0]='start':
'<center><B>apartment Thani</B></center>'
'<center><img src="img/centr/house.jpg" ></center>'
act 'Get_Away':gt'down'
end
--- tanhouse ---------------------------------

# tanroom
if $ARGS[0]='start':
$sexloc = $CURLOC
'<center><B>room Thani</B></center>'
'<center><img src="img/centr/tanroom.jpg" ></center>'
gs 'stat'
act 'In the corridor':gt'house'
if hour>16 and hour<23:
if tanya>50 and strapon>0:
	 act 'Play with strapon':
		 cla
		 *clr
		 set tanya+=2
		 set lesbian+=1
		 set orgasm+=1
		 '<center><img src="img/centr/tanst1.jpg" ></center>'
		 'You put the strap and hiding it under her skirt starts to stick to Tanya, in the process of fondling Tanya starts you hand under her skirt and stumbles upon a strapon. She looks at him admiringly.'
		 act'further':
			 cla
			 *clr
			 '<center><img src="img/centr/tanst2.jpg" ></center>'
			 'Tanya without hesitation snaps at you from above and entering Strap yourself in pussy starts jumping as distraught.'
			 act'further':
				 cla
				 *clr
				 '<center><img src="img/centr/tanst3.jpg" ></center>'
				 'When she cums then exhausted slides with you, you go substituting the strap to her mouth, she eagerly embraces his lips and starts sucking licking their own juices and simultaneously bring you to orgasm fingers.'
				 act 'End_Up':
					 cla
					 *clr
					 if niksvid>2:
						 cla
						 *clr
						 set bj+=1
						 set sex+=1
						 '<center><img src="img/centr/tanst4.jpg" ></center>'
						 'Once you have gathered to finish in the room includes Nikolai, and seeing this picture, took unabashed member mounted to your mouth.'
						 act'further':
							 cla
							 *clr
							 '<center><img src="img/centr/tanst5.jpg" ></center>'
							 'Nicholas lay on the bed, and you planted on your pussy dildo, Tanya same could not tear myself away from the strap, continuing to passionately suck it.'
							 act'insert it':
								 cla
								 *clr
								 '<center><img src="img/centr/tanst6.jpg" ></center>'
								 'You turn to the side and pulled away from Tanya sucking strapon stick it in her pussy, Nicholas at this time continues to fuck your pussy. You have turned svoebrazny sandwich in which you were stuffing, Tanya fucking and taking a Nicholas.'
								 act'further':
									 cla
									 *clr
									 '<center><img src="img/centr/tanst7.jpg" ></center>'
									 'You bet Tanya cancer, and begin to peck her ass, Nicholas at this time gets up and starts to fuck your mouth.'
									 act'further':
										 cla
										 *clr
										 '<center><img src="img/centr/tanst8.jpg" ></center>'
										 'Nicholas lozhit you on the bed and puts dick in your pussy, This amateur anal no choice, in fact closed panties ass strap. Tanya is attached above you substituting you her pussy, You gladly dig into her mouth.'
										 act'further':
											 cla
											 *clr
											 set cumlip+=1
											 set nik+=2
											 '<center><img src="img/centr/tanst9.jpg" ></center>'
											 'Tanya again snaps at you, nasazhivayas pussy on the strap. While she squirms from the orgasm on strapon, Nicholas inserts his penis into your mouth and filling it rapidly kills sperm.'
											 act 'End_Up':gt'house'
											 end
										 end
									 end
								 end
							 end
					 else:
						 gt'house'
						 end
					 end
				 end
			 end
		 end
	 end
if tanya>30:act'sex':gt'lezbsex','start'
act 'chat':
	 cla
	 set tanya += 1
	 set minut+=30
	 'You talked for half an hour.'
	 act 'End_Up':gt'tanroom','start'
	 end
end
if niksvid=2 and tanya>70 and hour>17 and hour<20:
act'ask for help':
	 cla
	 *clr
	 '<center><img src="img/centr/tanr1.jpg" ></center>'
	 'You give Tanya a form and ask the maid to wear. Tanya asks you what surprised me, but you say that then all Explain, Tanya agrees and puts on a uniform.'
	 act'Go to the gym':
		 cla
		 *clr
		 set picrand=19
		 set niksvid=3
		 set nik+=5
		 set tanya+=5
		 set lesbian+=1
		 '<center><img src="img/centr/tanr2.jpg" ></center>'
		 'The hall sits Nicholas and saw his stepdaughter in uniform looking at you in surprise. But you well remember Tanya urged him to take you to work and begin to fondle her in front of him. He comes to you and to the weasel Join.'
		 act'sex':gt'podrsex','var'
		 end
	 end
end
end
--- tanroom ---------------------------------

# vecher
if $ARGS[0]='start':
cla
*clr
'<center><img src="img/centr/vecher.jpg" ></center>'
act 'Get_Away':gt 'dorm','korr'
     act 'light':
	 cla
	 set hour = 23
	 'you have fun, thumps and dance.'
	 Set itrand = RAND (1,11)
	 if itrand = 1:gt'vecher','end'
	 if itrand = 2:gt'vecher','end2'
	 if itrand = 3:gt'vecher','end3'
	 if itrand = 4:gt'vecher','end4'
	 if itrand = 5:gt'vecher','end5'
	 if itrand = 6:gt'vecher','end6'
	 if itrand = 7:gt'vecher','end7'
	 if itrand = 8:gt'vecher','end8'
	 if itrand = 9:gt'vecher','end9'
	 if itrand = 10:gt'vecher','end10'
	 if itrand = 11:gt'vecher','end11'
	 end
end

if $ARGS[0]='end':
cla
*clr
'<center><img src="picparty/itog.jpg" ></center>'
'Gradually you distribute alcohol as hell and you start to feel sick, end vechereniki you spent in the arms of the toilet.'
act 'Get_Away':gt 'dorm','korr'
end

if $ARGS[0]='end2':
cla
*clr
'<center><img src="picparty/itog2.jpg" ></center>'
'You danced and hooligans, you got the idea to dance with Vika, ended your dance light lesbian show with savory lingering kiss.'
act 'Get_Away':gt 'dorm','korr'
act 'Vika leave the room':
	 cla
	 if vikasex = 0:set vikasex = 1
	 set $sexloc = 'obroom'
	 gt'lezbsex','start'
	 end
end

if $ARGS[0]='end3':
cla
*clr
if vnesh<20:
'<center><img src="picparty/itog3.jpg" ></center>'
'You nakiryalis and slept in the next room with several sex!.'
act 'Get_Away':gt 'dorm','korr'
end
if vnesh>=20:
'<center><img src="img/centr/vechend1.jpg" ></center>'
'You nakiryalis and slept in the next room with several sex!. You dream that you have sex with Vika, you literally feel like it pushes your feet, and then hot tongue begins to lick your clit. Opening his eyes you can see how some girls bent over your hands and caress your body, and you have between your legs Vic wielded his tongue, "Here is a prophetic dream" went through your head.'
act 'Get_Away':gt 'dorm','korr'
act 'enjoy':
	 cla
	 *clr
	 if vikasex = 0:set vikasex = 1
	 set orgasm+=1
	 set girl+=4
	 set lesbian+=1
	 '<center><img src="img/centr/vechend2.jpg" ></center>'
	 'You relax allowing the girls to caress your body, they periodically change in your pussy, try giving each yazochok, of these endless caresses you covered orgasm.'
	 act 'carry_On':gt'vecher','end12'
	 end
end
end

if $ARGS[0]='end4':
cla
*clr
'<center><img src="picparty/itog4.jpg" ></center>'
'You get opyaneli and began to molest girls, how come you yourself do not understand, but you have exposed breasts and kiss and lick Vic your nipples in front of everyone.'
act 'Get_Away':gt 'dorm','korr'
	 act 'Vika leave an empty room':
	 cla
	 if vikasex = 0:set vikasex = 1
	 set $sexloc = 'obroom'
	 gt'lezbsex','start'
	 end
end

if $ARGS[0]='end5':
cla
*clr
set guy+=1
set sex+=1
'<center><img src="img/centr/itog5.jpg" ></center>'
'You woke up on the floor in the hallway, half way to your room. Above you puffed what that pimply youth diligently fucking your vagina. Noticing that you woke up , leaving you lying on the dirty floor.'
act 'Get_Away':gt 'dorm','korr'
end

if $ARGS[0]='end6':
cla
*clr
'<center><img src="picparty/itog6.jpg" ></center>'
'You all evening molested the girl with big breasts begging her to kiss her breasts. In the evening .'
act 'Get_Away':gt 'dorm','korr'
end

if $ARGS[0]='end7':
cla
*clr
'<center><img src="img/centr/itog7.jpg" ></center>'
'Natreskavshis in zyuzyu you yourself do not understand how the dance began to undress, but alcohol has done his job and lost his balance and falls down on the guy sitting on the couch, then immediately took advantage of the situation and began to touch your breasts.'
act 'Writing in the balls and go':gt 'dorm','korr'
act 'take off her panties':
	 cla
	 *clr
	 set guy+=1
	 set bj+=1
	 set sex+=1
	 set cumass+=1
	 '<center><img src="img/centr/itog71.jpg" ></center>'
	 'You climb to his feet and shoot the last thing you have left, panties, again almost fell. Seeing your fellow rush immediately releases chleniz pants.'
	 act 'suck':
		 cla
		 *clr
		 '<center><img src="img/centr/itog72.jpg" ></center>'
		 'You go down on his knees and clasped his dick lips retract a, you move smoothly sucking his dildo oblivious to the crowd gathered around you, but it seemed to him that is not enough, he grabbed you by the head and began to literally stick your mouth on my dick.'
		 act'further':
			 cla
			 *clr
			 '<center><img src="img/centr/itog73.jpg" ></center>'
			 'When he became a member of the stone, he put you on the couch with cancer and with force entered your vagina, he did not even try to make you even as it pleased, just fucked, the crowd cheered him around you, shouting that he would fuck you as follows, although how do they know how to. The guy was drunk he could not get to finish.'
			 act'further':
				 cla
				 *clr
				 '<center><img src="img/centr/itog74.jpg" ></center>'
				 'When you have ceased to feel that either he pulled Resko of you cock and you run down to the buttocks. Collecting clothes from the floor.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='end8':
cla
*clr
'<center><img src="picparty/itog8.jpg" ></center>'
'You ran with Vika and Vika became sex with some sort of unknown guy. You lay beside fun chatting with Vika until it tore up drunk in the trash is not familiar guy.'
act 'Get_Away':gt 'dorm','korr'
act 'caress Vic':
	 cla
	 if vikasex = 0:set vikasex = 1
	 set girl+=1
	 set lesbian+=1
     *clr
     '<center><img src="img/centr/itog81.jpg" ></center>'
     'You kiss and caress his chest Wiki, she is very nervous and you decide to give it a lick your pussy.'
     set horny = horny + 60
     if horny < 100:'You started to get tired of licking and wanted to continue'
     if horny >= 100:set horny = 0&set orgasm+=1&'The muscles of the vagina began to decline sharply, the entire abdomen as if covered hot wave of pleasure, you shout from the powerful orgasm.'
     'The guy pulls his penis out of Vicki and lifting it inserts his penis into her mouth.'
         act 'watch':
         cla
         *clr
         '<center><img src="img/centr/itog82.jpg" ></center>'
         'The guy cums in her mouth Vick. Lips Wiki peremazanny in semen and she reaches out to you that would kiss her.'
             act 'Kissing with Vika':
             cla
             *clr
             Set cumlip = cumlip + 1
             '<center><img src="img/centr/itog83.jpg" ></center>'
             'You`re kissing licking each other cum.'
             act 'Get_Away':gt 'dorm','korr'
             end
         end
         act 'Suck together with Vika':
         cla
         *clr
         set bj+=1
         set guy+=1
         set cumface = cumface + 1
         '<center><img src="img/centr/itog84.jpg" ></center>'
         'You aspirated member together with Vika, Perrin finally cums on the face you.'
             act 'Kissing with Vika':
             cla
             *clr
             set cumlip = cumlip + 1
             '<center><img src="img/centr/itog83.jpg" ></center>'
             'You`re kissing licking each other cum.'
             act 'Get_Away':gt 'dorm','korr'
             end
         end
     end
end

if $ARGS[0]='end9':
cla
'<center><img src="picparty/itog9.jpg" ></center>'
'Little girls love to party, you with two girlfriends made вЂ‹вЂ‹a drunken lesbian show right at the party. caressing, squeezing and kissing each other in front of everyone.'
act 'Get_Away':gt 'dorm','korr'
end

if $ARGS[0]='end10':
cla
'<center><img src="picparty/itog10.jpg" ></center>'
'You got drunk and danced with what that guy, that muddy paw you for boobs.'
act 'Get_Away':gt 'dorm','korr'
     act 'Touch for fly':
     set $sexloc = 'obroom'
     gt 'sex','start'
     end
end

if $ARGS[0]='end11':
cla
*clr
set cumfrot+=1
'<center><img src="picparty/skirtcum.jpg" ></center>'
'You woke up in a strange room, lying on his stomach, Glory to God in clothes, then no you are not drunk ripped.'
'what is that? Damn! What a bastard, dragged you into another room and obkonchal your ass.'
act 'Get_Away':gt 'dorm','korr'
end

if $ARGS[0]='end12':
cla
*clr
set picrand=rand(3,9)
set minut+=15
'<center><img src="img/centr/vechend<<picrand>>.jpg" ></center>'
'All mixed up in a big ball of women`s bodies, you will not understand nor anyone and neither now nor does your tongue in your hole whether language, either fingers.'
act'yet':gt'vecher','end12'
act 'Get_Away':gt 'dorm','korr'
end
--- vecher ---------------------------------

# vipclub
if $ARGS[0]='start':
$sexloc = $CURLOC
gs'stat'
'<center><B>Vip-hall</B></center>'
'<center><img src="img/centr/vipclub.jpg" ></center>'
'VIP zone is divided into several separate rooms, with no doors and passing by can be observed such scenes, that would be the envy even porn Directed by.'

act 'Get_Away':gt'club','inside'
if hour >= 15 or hour <= 3:
     act 'cocktails.':
	 *clr
	 set minut+=15
	 set drunk+=1
	 set water = water+5
	 set son = son-5
	 frost=0
	 set horny=horny+rand(10,20)
	 gt'vipclub','start'
	 end
if money>=3000:
	 act 'Order a Woman 3000RUB':
		 set money-=3000
		 set picrand=rand(13,17)
		 set girl+=1
		 set lesbian+=1
		 dynamic $venerasiak
		 xgt'lezbsex','var'
		 end
	 end
if money>=3000:
	 act 'Order Man 3000RUB':
		 set money-=3000
		 set picrand=38
		 set guy+=1
		 dynamic $venerasiak
		 xgt'sex','var'
		 end
	 end
if money>=5000:
	 act 'Order presentation 5000RUB':
		 cla
		 *clr
		 set girl+=1
		 set lesbian+=1
		 dynamic $venerasiak
		 set money-=5000
		 '<center><img src="img/centr/vip1.jpg" ></center>'
		 'You ordered a presentation and a couple of minutes you went into the room boy and girl. Man undid his pants and sat on the couch, she began to make him a blowjob. You were watching intiresom.'
		 act'further':
			 cla
			 *clr
			 '<center><img src="img/centr/vip2.jpg" ></center>'
			 'The guy puts her cancer and fucks her vagina, you push the legs and hips to push up her face, understand your desire she lowered her head to your pussy and lick you nachila.'
			 act'further':
				 cla
				 *clr
				 '<center><img src="img/centr/vip3.jpg" ></center>'
				 'Then she takes a double dildo and insert one end into your vagina, the second takes in her mouth and sucks it while fucking you.'
				 act'further':
					 cla
					 *clr
					 set horny=0
					 set orgasm+=1
					 '<center><img src="img/centr/vip4.jpg" ></center>'
					 'Then she turns around and puts it in her pussy, you begin to move actively trying to take a dildo as deep as possible , it is at this time sucking guy. Soon you covers a wave of orgasm.'
					 act'further':
						 cla
						 *clr
						 '<center><img src="img/centr/vip5.jpg" ></center>'
						 'When you end, guy unwraps her to him and lifting her ass in the upper part of her anus. You watch as the girl moans when healthy dildo fucks her in the ass.'
						 act'further':
							 cla
							 *clr
							 '<center><img src="img/centr/vip6.jpg" ></center>'
							 'When a guy sated her ass, He put her on the sofa and began to finish standing on top. You tongue hanging out, watched the sperm flies out of his cock filling her mouth and chest.'
							 act'End_Up':gt'vipclub','start'
							 act'Lick her breasts':
								 cla
								 *clr
								 set cumlip+=1
								 '<center><img src="img/centr/vip7.jpg" ></center>'
								 'You began to lick the drops of sperm with her вЂ‹вЂ‹breasts, trying not to miss an inch of her body.'
								 act'End_Up':gt'vipclub','start'
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end
end


--- vipclub ---------------------------------

# Vnlake1
'<center><img src="img/Lake/Vnlake1/vnlake1.jpg"></center>'
'While you are sunbathing you came tipsy girl with a bottle of wine under, sat down next to you and start stroking your back.'
act 'drive_away':gt 'Nudelake'
act 'kiss':
	 cla
	 *clr
	 set lesbian+=1
	 set girl+=1
	 '<center><img src="img/Lake/Vnlake1/vnlake2.jpg"></center>'
	 'You povarachivaetsya to her and bites her lips in, girl starts licking your chest, and hand massages you pussy.'
	 act 'Resume':gt 'Vnlake1','variant'
end

if $ARGS[0]='variant':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake0.jpg"></center>'
'The girl looks at you in anticipation of your actions'
act 'lick it':gt'Vnlake1','ukuni'
act 'Ask you to lick':gt'Vnlake1','kuni'
act 'Ask lick your anus':gt'Vnlake1','anuli'
act 'Insert the bottle in her pussy':gt'Vnlake1','bvag'
act 'Insert the bottle in her ass':gt'Vnlake1','banal'
act 'Ask you to insert a bottle in pussy':gt'Vnlake1','ubvag'
act 'Ask you to insert a bottle in the ass':gt'Vnlake1','ubanal'
act 'Sit on the bottle.':gt'Vnlake1','ubsit'
act 'rubbing pussies.':gt'Vnlake1','sex'
end

if $ARGS[0]='ukuni':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake4.jpg"></center>'
'You kiss her breasts gradual descending lower and lower , you start licking her lips, setting the stage for his tongue between them touch the clitoris, girl spreads her lips with your fingers, that would be nothing stopping you caress the clitoris.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='kuni':
cla
*clr
set kuni+=1
'<center><img src="img/Lake/Vnlake1/vnlake5.jpg"></center>'
'Girl holds his tongue over your hips, kisses pubis and goes down to the vagina, her tongue slides over your crotch is caressing the clitoris is penetrating the vagina.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='anuli':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake6.jpg"></center>'
'She kisses your buttocks gradual priblezhayas to the center, reaching a goal, displays and again licking anus, then everything is repeated again.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='bvag':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake7.jpg"></center>'
'You take a bottle neck and shoves in her pussy, girl kisses you while you are driving with one hand and the second bottle caress her breasts.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='banal':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake8.jpg"></center>'
'You take a bottle, lick the neck, trying to keep it on the maximum amount of saliva, and gently insert it into the anus girls, starting to fuck her ass bottle first hesitates then faster and faster.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='ubvag':
cla
*clr
set sex+=1
set orgasm+=1
'<center><img src="img/Lake/Vnlake1/vnlake9.jpg"></center>'
'Girl puts bottle in pussy you, she moves it back and forth while constantly provarachivaet, neck of the bottle in her hands to get better any member .'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='ubanal':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake10.jpg"></center>'
'Girl spits you on the ass, collects saliva bottle neck and inserts it to you in the ass, you feel as glass slides in your ass, bringing you pleasure.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='ubsit':
cla
*clr
'<center><img src="img/Lake/Vnlake1/vnlake11.jpg"></center>'
'You put the bottle and sit down at her his anus, you like the feeling of sliding, girls caress your breasts language, until you jumped on the bottle.'
act 'More':gt 'Vnlake1','variant'
act 'Get_Away':gt 'Nudelake'
end

if $ARGS[0]='sex':
cla
*clr
set orgasm+=1
'<center><img src="img/Lake/Vnlake1/vnlake12.jpg"></center>'
'You sat across from each other, woven so that your feet would touch pussy and began to move her hips caressing each other, until the wave of pleasure is not covered both of you.'
act 'Get_Away':gt 'Nudelake'
end
--- Vnlake1 ---------------------------------

# Vnlake2
'<center><img src="img/Lake/Vnlake2/vnlake1.jpg"></center>'
'Tan you slumbered, and you dream of as a caress your breasts, as someone-then licking your pussy, you open HVAs and understand that this is not a dream, next to you , the second is already fixed his lips to you between the legs.'
act 'alienate them':gt 'Nudelake'
act 'touch member':
	 cla
	 *clr
	 set guy+=2
	 set bj+=1
	 '<center><img src="img/Lake/Vnlake2/vnlake2.jpg"></center>'
	 'You Spit member of one of them kneels, men rise and stand up next to you, their members Paul on you, you take them in hand and starts to suck alternately.'
	 act 'To stand on all fours':
		 cla
		 *clr
		 set sex+=1
		 '<center><img src="img/Lake/Vnlake2/vnlake3.jpg"></center>'
		 'Plenty sucked you get up on all fours, one of the men in front of you lies a member -to-face, second knelt behind, and entered into your vagina.'
		 act 'change position':
			 cla
			 *clr
			 set anal+=1
			 set orgasm+=3
			 '<center><img src="img/Lake/Vnlake2/vnlake4.jpg"></center>'
			 'Sitting on a dildo, you hands pushed buttocks inviting you to enter the second ass, which he did. They fuck you in two trunk, and you moan and finishing. You left off so many times that lost count, and men are kept, Finally one pulled out a member of your ass, you have decided that it is now finished but it was not there.
			 "sit ass" said the man from the bottom'
			 act 'seats':
				 cla
				 *clr
				 set cumass+=1
				 '<center><img src="img/Lake/Vnlake2/vnlake5.jpg"></center>'
				 'You weighed a member, turned her back on him and planted his ass on his dildo, the second went to your face and put his penis in your mouth. Soon you povstvovali in your ass flooded with sperm, and a member in your mouth is about to finish.'
				 act 'Remove the mouth':
					 cla
					 *clr
					 set cumface+=1
					 '<center><img src="img/Lake/Vnlake2/vnlake6.jpg"></center>'
					 'You spat member of his mouth and the man is dead on your face.'
					 act 'Stay at the beach':gt 'Nudelake'
					 end
				 end
			 end
		 end
	 end
--- Vnlake2 ---------------------------------

# WorkHosp
if $ARGS[0]='start':
$sexloc = $CURLOC
gs'stat'
set jobhosprand=rand(0,9)

'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="img/spaln/hospital.jpg" ></center>'
'In the clinic are hard at work, Patients sit in queues, doctors are receiving, nurses rush from office to office.'

act'Work in the procedural':
set minut+=60
if jobhosprand=0:gt 'WorkHosp','2'
'You worked in the procedural.'
cla
act 'move_away':gt'WorkHosp','start'
end

act'Helps doctors at the reception':
set minut+=60
if jobhosprand=0:gt 'WorkHosp','3'
'You helped a doctor at the reception.'
cla
act 'move_away':gt'WorkHosp','start'
end

act'Relax in nursing':
set minut+=30
'you relax.'
cla
act 'masturbate 15 min':
	 set minut+=15
	 set mastrrand=rand(0,2)
	 if mastrrand=0:
		 gt 'WorkHosp','1'
	 else:
		 set picrand=11
		 cla
		 *clr
		 set mastr += 1
		 '<center><img src="img/mastr/mastr<<picrand>>.jpg" ></center>'
		 'you matrubiruete.'
		 set horny = 0
		 set orgasm+=1
		 'Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm'
		 end
	 act 'Go_Out':gt'WorkHosp','start'
	 end
act 'move_away':gt'WorkHosp','start'
end

act'There is a cafeteria':
	 set minut = minut + 30
	 set health = health + 10
	 set manna = manna + 5
	 set willpower = willpower + 5
	 if energy >= 30:
		  set fat = fat + 5
		 'You can no longer have.'
		 end
	 if energy >= 20 and energy < 30:
		 set fat = fat + 3
		 set energy = energy + 10
		 'You pushed through the power of a meal.'
		 end
	 if energy < 20:
		 set energy = energy +20
		 set fat = fat + 1
		 'You gladly ate food.'
		 end
	 if water >= 20:
		 'Tea in you no longer climbs.'
		 end
	 if water < 20:
		 'You gladly drank a cup of tea.'
		 set water = water +20
		 end
	 end

act'Chat with Kate':
set minut+=30
kat = kat + 1
if kat > 60 and military = 0:gt 'WorkHosp','milit'
'You chatted with Kate.'
cla
if kat>50:
	 act 'suggest uedinitsa':gt 'WorkHosp','0'
	 end
act 'move_away':gt'WorkHosp','start'
end

if hour >= 16:
cls
'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="img/spaln/hospital.jpg" ></center>'
'Your shift ended.'
act 'go home':gt'street'
end
end

if $ARGS[0] = 'milit':
military = 1
'"Listen, I then offered to earn weekend, but I have plans. In the general case is close to the city often hold war games, Well. Do not be afraid you will be there with you doctor, so that the maximum that you have to do is stick plasters. In short if you decide on a Saturday bus at clinic, He waits with 6 prior_to 9 hours. Yes 5 thousand."'
cla
act 'move_away':gt'WorkHosp','start'
end

if $ARGS[0] = '0':
cla
*clr
set katprorand=rand(0,2)
if katprorand=0:
	 set girl+=1
	 set lesbian+=1
	 set picrand=11
	 xgt'lezbsex','var'
	 end
if katprorand=1:
	 '<center><img src="img/spaln/hospsex7.jpg" ></center>'
	 'Once you Kat began to fondle each other as to the treatment the patient is entered. You recoiled from it trying to pretend that nothing happened, Kate , proudly showing off her wet pussy on your language, and invitingly looked at the guy, look inviting him prisoedinitsa.'
	 act 'Go_Out':gt'WorkHosp','start'
	 act 'amuse':
		 set girl+=1
		 set guy+=1
		 set lesbian+=1
		 set picrand=12
		 gt'podrsex','var'
		 end
	 end
if katprorand=2:
	 '<center><img src="img/spaln/hospsex8.jpg" ></center>'
	 'When your game has been in full swing in the procedural included two doctors, but you were already so excited that not paying any attention to them continued, and when men began to caress you, you only degradability wider radvinuli feet, inviting them into your vagina.'
	 act 'have_a_good_time':
		 set gang+=1
		 set picrand=11
		 xgt'sexdvanadva','var'
		 end
	 end
end

if $ARGS[0] = '1':
cla
*clr
set mastrrand=rand(0,1)
if mastrrand=0:
	 '<center><img src="img/spaln/hospsex9.jpg" ></center>'
	 'While you masturbate samozabveno, trying to bring herself to orgasm, enters the room doctor, you are so passionate about a notice that it is only when his hand starts to pull your head to the standing member.'
	 if horny<50:act 'To escape and run away':gt'WorkHosp','start'
	 act 'amuse':
		 set guy+=1
		 set picrand=12
		 gt'sex','minet'
		 end
	 end
if mastrrand=1:
	 '<center><img src="img/spaln/hospsex10.jpg" ></center>'
	 'While you masturbate samozabveno, trying to bring herself to orgasm, the room included two doctors, you are so passionate that only notice them when they stand in front of you with the members and masturbate shaved.'
	 if horny<50:act 'escape':gt'WorkHosp','start'
	 set picrand=rand(12,13)
	 act 'amuse':set guy+=2&xgt'sexdvoe','var'
	 end
end

if $ARGS[0] = '2':
cla
*clr
set picrand=rand(13,15)
'<center><img src="img/spaln/hospsex11.jpg" ></center>'
'To you and the patient comes to the threshold of taking his pants showing his flaccid penis and asks you to help him as you see him not worth it. Mind you understand, it`s all just a silly gimmick that would fuck you, but still you feel sorry for him. What if he really is not worth, and you will be able to pick it up, What if he just unlucky with girls and if not lucky today, He jumps out of the window.'
act 'oust him':gt'WorkHosp','start'
act 'pick_up':set guy+=1&gt'sex','minet'
end

if $ARGS[0] = '3':
cla
*clr
'<center><img src="img/spaln/hospsex12.jpg" ></center>'
'It comes to you pretty patient, until the doctor is trying to explore it, she kept touching his pants member in the area, doctor glances at you with a question in his eyes.'
act 'Make her a comment':gt'WorkHosp','start'
act 'amuse':
	 set guy+=1
	 set girl+=1
	 set lesbian+=1
	 set picrand=13
	 gt'podrsex','var'
	 end
end
--- WorkHosp ---------------------------------

# worksalon
if $ARGS[0]='start':
$sexloc = $CURLOC
gs'stat'
set salonjobrand=rand(0,10)
'<center><B><font color=maroon>beauty salon</font></B></center>'
'<center><img src="img/centr/salon.jpg" ></center>'
'Inside.'
if salonjobrand=2 and vnesh>20 and alla=0:gt'worksalon','2'
if salonslut=1 and salonjobrand=3:
	 cla
	 'It suits you administrator "Well slut went into the back room, billeting crustaceans"'
	 if DOM>=10:
		 act '"Get out utyrok"':set salonslut=0&gt'worksalon','start'
		 act 'Go with him':gt'worksalon','3'
		 end
	 if DOM<10:
		 act 'Go with him':gt'worksalon','3'
		 end
	 end
act'massage':
set minut+=120
if salonjobrand=0:gt'worksalon','0'
if salonjobrand=1:gt'worksalon','1'
'You have a massage client.'
gt'worksalon','start'
end
act'have_a_bite':
	 set minut = minut + 30
	 set health = health + 10
	 set manna = manna + 5
	 set willpower = willpower + 5
	 if energy >= 30:
		  set fat = fat + 5
		 'You can no longer have.'
		 end
	 if energy >= 20 and energy < 30:
		 set fat = fat + 3
		 set energy = energy + 10
		 'You pushed through the power of a meal.'
		 end
	 if energy < 20:
		 set energy = energy +20
		 set fat = fat + 1
		 'You gladly ate food.'
		 end
	 if water >= 20:
		 'Tea in you no longer climbs.'
		 end
	 if water < 20:
		 'You gladly drank a cup of tea.'
		 set water = water +20
		 end
	 gs'stat'
	 end
if masha>0:
	 act'Chattering with Masha':
		 set minut+=30
		 set masha+=1
		 'You chatted with Masha.'
		 cla
		 act 'move_away':gt'worksalon','start'
		 end
	 if masharab=1:
		 act'Masha order a massage':
			 cla
			 *clr
			 set DOM+=1
			 set minut+=30
			 set manna+=10
			 set horny+=10
			 set willpower+=10
			 '<center><img src="img/masha/s7.jpg" ></center>'
			 'You go to Masha and commanding manner say that-she was behind you, entering the booth you undress and lie down on the table, "Well, bitch is not hasty" you are in command. Masha immediately jumps up to you and starts massaging.'
			 act'Order to massage the body':
				 cla
				 *clr
				 set minut+=30
				 set manna+=10
				 set horny+=10
				 set willpower+=10
				 set picrand = RAND (8,9)
				 '<center><img src="img/masha/s<<picrand>>.jpg" ></center>'
				 if picrand=8:
					 'Mary takes off her clothes and leaping nimbly on the table naginaet slide on you you massaging her breasts.'
					 end
				 if picrand=9:
					 'Mary takes off her clothes and leaping nimbly on the table to sit down on you from above you starts massaging her buttocks.'
					 end
				 act'Order licking pussy':
					 cla
					 *clr
					 set DOM+=1
					 set lesbian+=1
					 set orgasm+=1
					 set horny=0
					 '<center><img src="img/masha/s10.jpg" ></center>'
					 'You push the legs, and order her to lick your pussy. Masha immediately runs up to you and with a joyful smile pripadaet your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, She walks away with his head on.'
					 act 'End_Up':gt'worksalon','start'
					 end
				 act'Ordered to lick ass':
					 cla
					 *clr
					 set DOM+=1
					 set lesbian+=1
					 set orgasm+=1
					 set horny=0
					 '<center><img src="img/masha/s11.jpg" ></center>'
					 'You get up on the table cancer, and order her to lick your ass. Masha immediately runs up to you and with a joyful smile to your anus pripadaet, her nimble tongue that would deprive him of something snaps inside kogdavy start to moan with pleasure it bites you in the ass yaykom and literally starts to fuck his tongue trying to sink it as deep as possible, a few minutes later you end, and Masha naachinaet beg you to lick her Rares your hips, She received permission then quickly licks them with your jet juice and finishing moves in the direction of his head bowed.'
					 act 'End_Up':gt'worksalon','start'
					 end
				 act 'End_Up':gt'worksalon','start'
				 end
			 act'Order licking pussy':
				 cla
				 *clr
				 set DOM+=1
				 set lesbian+=1
				 set orgasm+=1
				 set horny=0
				 '<center><img src="img/masha/s10.jpg" ></center>'
				 'You push the legs, and order her to lick your pussy. Masha immediately runs up to you and with a joyful smile pripadaet your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, She walks away with his head on.'
				 act 'End_Up':gt'worksalon','start'
				 end
			 act'Ordered to lick ass':
				 cla
				 *clr
				 set DOM+=1
				 set lesbian+=1
				 set orgasm+=1
				 set horny=0
				 '<center><img src="img/masha/s11.jpg" ></center>'
				 'You get up on the table cancer, and order her to lick your ass. Masha immediately runs up to you and with a joyful smile to your anus pripadaet, her nimble tongue that would deprive him of something snaps inside kogdavy start to moan with pleasure it bites you in the ass yaykom and literally starts to fuck his tongue trying to sink it as deep as possible, a few minutes later you end, and Masha naachinaet beg you to lick her Rares your hips, She received permission then quickly licks them with your jet juice and finishing moves in the direction of his head bowed.'
				 act 'End_Up':gt'worksalon','start'
				 end
			 act 'End_Up':gt'worksalon','start'
			 end
		 end
	 if masha>5 and masharab=0:
		 act'Ask Masha massages':
			 cla
			 'You go to Masha and ask her "Masha, I`m so tired I can do a little massage, you`re_welcome"
			 "Yes of course, whatever you want" she says
			 "I, Now nepoyala it was sarcasm?" You ask why neponyal Mary talks to you as if you are client initially.
			 "Forgive me if I do not say so, Please go through the booth I`ll do what you want" she says, taking her eyes and bowed his head as a naughty child'
			 act'Nafig this sick':gt'worksalon','start'
			 act'Go into the booth':
				 cla
				 *clr
				 set masharab=1
				 set minut+=30
				 set manna+=10
				 set horny+=10
				 set willpower+=10
				 '<center><img src="img/masha/s1.jpg" ></center>'
				 'You undress and lie down on the table, Masha begins to make you a massage, her soft hands glide over your body, chustvuete you like your whole body relaxes, you get very good. A few minutes later Masha begins to speak "please forgive me, Sorry that disturbed, Let us help you roll over on your back.", you understand that she wants-Would you rolled over, but why is it still says and bowing his head so that her chin almost touching the breast.'
				 act'roll':
					 cla
					 *clr
					 '<center><img src="img/masha/s2.jpg" ></center>'
					 set manna+=10
					 set horny+=10
					 set willpower+=10
					 'You silently flip and eyes closed, continue to enjoy, after a couple of minutes you feel like you Masha strongly compresses the chest and begins to lick her nipples. You open your eyes, Mary noticed this immediately let your chest and fell to the floor on his knees, begins to ask forgiveness for what fascinated and could not resist, slowly backing away. That you begin to realize that she just likes to obey, so she dwelleth between and leads, seeing you in her mistress, after the conditions of your acquaintance is not surprising.'
					 act 'Talk to her':
						 cla
						 *clr
						 '<center><img src="img/masha/s5.jpg" ></center>'
						 '"Masha I realized you love to obey, but do not always do it, in humans it looks pretty weird." you started.
						 "I`m sorry I will not" Masha said almost crying.
						 "I`m not saying that you never did it just let`s agree when I want you to be a slave I`ll start command, and while I`m not a team we are friends. And for such games need another place, imagine what will happen if we caught" You tried to calm her.
						 "I can, I work at night sex-Shope, and the owner handed me there room in the basement, I live there and." happy Masha
						 "Well, went okay until we did not have" you have finished'
						 act 'Get_Away':gt'worksalon','start'
						 end
					 act'Order licking pussy':
						 cla
						 *clr
						 set DOM+=1
						 set lesbian+=1
						 set orgasm+=1
						 set horny=0
						 '<center><img src="img/masha/s6.jpg" ></center>'
						 'You shower yourself legs behind your head . Masha immediately runs up to you and with a joyful smile pripadaet your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, She walks away with his head on.'
						 act 'Talk to her':
							 cla
							 *clr
							 '<center><img src="img/masha/s5.jpg" ></center>'
							 '"Masha I realized you love to obey, but do not always do it, in humans it looks pretty weird." you started.
							 "I`m sorry I will not" Masha said almost crying.
							 "I`m not saying that you never did it just let`s agree when I want you to be a slave I`ll start command, and while I`m not a team we are friends. And for such games need another place, imagine what will happen if we caught" You tried to calm her.
							 "I can, I work at night sex-Shope, and the owner handed me there room in the basement, I live there and." happy Masha
							 "Well, went okay until we did not have" you have finished'
							 act 'Get_Away':gt'worksalon','start'
							 end
						 end
					 end
				 act'Ask why she says':
					 cla
					 '"Why are you doing this to me razgovarivash?" you ask.
					 Masha little steps back and begins to babble "please forgive me, I say horrible, tell me how to talk, I immediately corrected"
					 "Yes you stop talking like ..." you pick off the floor word, "Well, she talks like a slave" it dawned on you because when you first met her then forced to fuck with administrators and she dutifully did everything that you told her.'
					 act'Talk to her':
						 cla
						 '<center><img src="img/masha/s5.jpg" ></center>'
						 '"Masha I realized you love to obey, but do not always do it, in humans it looks pretty weird." you started.
						 "Excuse me " Masha said almost crying.
						 "I`m not saying that you never did it just let`s agree when I want you to be a slave I`ll start command, and while I`m not a team we are friends. And for such games need another place, imagine what will happen if we caught" You tried to calm her.
						 "I can, I work at night sex-Shope, and the owner handed me there room in the basement, I live there and." happy Masha
						 "Well, went okay until we did not have" you have finished'
						 act 'Get_Away':gt'worksalon','start'
						 end
					 act'Order licking pussy':
						 cla
						 *clr
						 set DOM+=1
						 set lesbian+=1
						 set orgasm+=1
						 set horny=0
						 '<center><img src="img/masha/s3.jpg" ></center>'
						 'You get up on the table cancer, and order her to lick your pussy. Masha immediately runs up to you and with a joyful smile pripadaet your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, She walks away with his head on.'
						 act 'Talk to her':
							 cla
							 *clr
							 '<center><img src="img/masha/s5.jpg" ></center>'
							 '"Masha I realized you love to obey, but do not always do it, in humans it looks pretty weird." you started.
							 "I`m sorry I will not" Masha said almost crying.
							 "I`m not saying that you never did it just let`s agree when I want you to be a slave I`ll start command, and while I`m not a team we are friends. And for such games need another place, imagine what will happen if we caught" You tried to calm her.
							 "I can, I work at night sex-Shope, and the owner handed me there room in the basement, I live there and." happy Masha
							 "Well, went okay until we did not have" you have finished'
							 act 'Get_Away':gt'worksalon','start'
							 end
						 end
					 act'Ordered to lick ass':
						 cla
						 *clr
						 set DOM+=1
						 set lesbian+=1
						 set orgasm+=1
						 set horny=0
						 '<center><img src="img/masha/s4.jpg" ></center>'
						 'You get up on the table cancer, and order her to lick your ass. Masha immediately runs up to you and with a joyful smile to your anus pripadaet, her nimble tongue that would deprive him of something snaps inside kogdavy start to moan with pleasure it bites you in the ass yaykom and literally starts to fuck his tongue trying to sink it as deep as possible, a few minutes later you end, and Masha naachinaet beg you to lick her Rares your hips, She received permission then quickly licks them with your jet juice and finishing moves in the direction of his head bowed.'
						 act 'Talk to her':
							 cla
							 *clr
							 '<center><img src="img/masha/s5.jpg" ></center>'
							 '"Masha I realized you love to obey, but do not always do it, in humans it looks pretty weird." you started.
							 "I`m sorry I will not" Masha said almost crying.
							 "I`m not saying that you never did it just let`s agree when I want you to be a slave I`ll start command, and while I`m not a team we are friends. And for such games need another place, imagine what will happen if we caught" You tried to calm her.
							 "I can, I work at night sex-Shope, and the owner handed me there room in the basement, I live there and." happy Masha
							 "Well, went okay until we did not have" you have finished'
							 act 'Get_Away':gt'worksalon','start'
							 end
						 end
					 end
				 end
			 end
		 end
	 end
if hour>=19:
cls
'<center><B><font color=maroon>salon</font></B></center>'
'<center><img src="img/centr/salon.jpg" ></center>'
'Your shift ended.'
act 'go home':gt'down'
end
end

if $ARGS[0] = '0':
cla
*clr
salonpicrand=rand(0,4)
set picrand=salonpicrand+30
'<center><img src="img/centr/wmass<<salonpicrand>>.jpg"></center>'
'During the massage guy rolls over on his back and sticking out from under the towels large standing member. He looks at you in anticipation of your actions'
act 'finish the massage':gt'worksalon','start'
act 'Take by mouth':set guy+=1&gt'sex','minet'
end

if $ARGS[0] = '1':
'While you are doing massage, Is the client asks erotic massage breasts two girls, at extra charge 1000RUB. each.'
act 'Opt_Out':gt'worksalon','start'
act 'Go for the second girl':
	 cla
	 *clr
	 set money+=1000
	 '<center><img src="img/centr/wmass5.jpg"></center>'
	 'You brought one of the girls undressed and began to crawl together by a man stroking him with her breasts. You got to the bottom part, so your chest is constantly rubbing his dick vobuzhdenny. And you have not noticed how his cock positioned between her breasts and not just massaged his chest, and almost jerked off his cock breast. Looking up , and she contentedly stroking his chest.'
	 act 'Stop and masturbate quietly finish massage':
		 cla
		 'You stopped to caress his dildo, quietly massaged a little more of his thighs and stomach, got up and left the room'
		 act 'Go_Out':gt'worksalon','start'
		 end
	 act 'Take by mouth':
		 set girl+=1
		 set guy+=1
		 set lesbian+=1
		 set picrand=14
		 gt 'podrsex','var'
		 end
	 end
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/centr/ira1.jpg"></center>'
'You send a client to wash head, do you attach it to a separate booth and sits in a chair, you should look away as she draws you to him and as long as you do not come to their senses begins to fondle your breasts'
act 'Otolknut and go':gt'worksalon','start'
act 'let her':
	 cla
	 *clr
	 set girl+=1
	 set lesbian+=1
	 '<center><img src="img/centr/ira2.jpg"></center>'
	 'Realizing that you do not mind a girl seats you in the chair, and she goes down on all fours and starts so deftly wield language that in ten minutes you end three, but she continues to eagerly lick your pussy trying to drink all the juice out of your womb.
	 When she finishes it gives you a business card with a number and the name of Allah and going away.'
	 set telalla=1
	 set alla+=1
	 set orgasm+=3
	 act 'let go':gt'worksalon','start'
	 act 'thank':
		 cla
		 *clr
		 '<center><img src="img/centr/ira3.jpg"></center>'
		 'You stop the girl and her usashivaete in a chair, and you`re on Kolyanu diligently working language of trying to repeat it for all she did to you, and a few minutes later you do it, she shudders and you feel like a warm liquid fills your mouth. Do you want to continue when suddenly hear in his voice behind Administrator, overtake you. Girl jumps up and runs away, and you stay on the floor naked, lick the remnants of its juice from his lips.
		 "Well" asks the administrator
		 "Client`s desire is my command" you reply
		 "You do ohrenela, girls fucking straight to work, as well come with me into the back room, so do not understand, understand by a pussy."'
		 if DOM>=10:
			 act '"Get out utyrok, with whom I want so and fuck"':gt'worksalon','start'
			 act 'Go with him':set salonslut=1&gt'worksalon','3'
			 end
		 if DOM<10:
			 act 'Go with him':set salonslut=1&gt'worksalon','3'
			 end
		 end
	 end
end
if $ARGS[0] = '3':
set minut+=15
set SUB+=1
set guy+=1
set sex+=1
set cumass+=1
'<center><img src="img/centr/raks.jpg"></center>'
'The administrator gets you into the back room and put cancer on the couch. Fuck your vagina it ends you on your ass and go.'
act 'Get_Away':gt'worksalon','start'
end
--- worksalon ---------------------------------

# zal
if $ARGS[0]='start':
$sexloc = $CURLOC
gs'stat'
'<center><B><font color=maroon>fitness center</font></B></center>'
'<center><img src="pic/fit.jpg" ></center>'
act 'Get_Away':gt'fit','razd'
end

if $ARGS[0] = '0':
$sexloc = $CURLOC
cla
*clr
'<center><img src="img/centr/zal1.jpg" ></center>'
'Next to you has been a nice guy.'
act 'Get_Away':gt'fit','razd'
     if dom>0:
		 act 'covet':
		 cla
		 *clr
		 set guy+=1
		 set picrand=17
		 '<center><img src="img/centr/zal2.jpg" ></center>'
		 'You walk up to a guy lying on the simulator, squats and starts stroking his cock through his pants, man rises kisses you on the lips, then lower a little pants freeing his impressive size dildo.'
		 act 'suck':gt'sex','minet'
		 end
	 end
end

if $ARGS[0] = '1':
$sexloc = $CURLOC
cla
*clr
'<center><img src="img/centr/zal3.jpg" ></center>'
'As long as you do, suited to you from behind the guy and you vskhvativ breasts kissing in the ear, sucking the lobe.'
if dom>0:act 'Writing in the balls':gt'fit','razd'
     act 'enjoy':
	 cla
	 *clr
	 set guy+=1
	 set picrand=18
	 '<center><img src="img/centr/zal4.jpg" ></center>'
	 'Man avoids you, pulled out his penis and lozhit it on your chest, moving eventually head to your mouth.'
	 act 'suck':gt'sex','minet'
	 end
end

if $ARGS[0] = '2':
$sexloc = $CURLOC
cla
'As long as you do, a girl for you and offers to play with her squash, while her boyfriend did not come.'
act 'Opt_Out':gt'fit','razd'
     act 'agree':
	 cla
	 *clr
	 set picrand=15
	 '<center><img src="img/centr/zal5.jpg" ></center>'
	 'You play fun playing with girl, you, as well, get pretty bad, but it amuses you only. After some time there and her boyfriend looking at your clumsy attempts nachinnaet show how to play correctly. He comes to you from behind priobnimaet and one hand on your arm with roketkoy shows how to beat, and the second hand starts stroking your thighs gradually approaching the perineum. You feel like you are in the back rests his dick, looking for a Woman, understand that she is well aware of what is happening and do not want less than men.'
	 act 'Send perverts':gt'fit','razd'
	     act 'enjoy':
		 set guy+=1
		 set girl+=1
		 gt'podrsex','var'
		 end
	 end
end

if $ARGS[0] = '3':
$sexloc = $CURLOC
cla
*clr
'<center><img src="img/centr/zal6.jpg" ></center>'
'Next to you has been one girl hedgehog, suited to you two guys, apparently mistook you for girlfriends, and try to start a conversation.'
act 'send':gt'fit','razd'
     act 'flirt':
	 cla
	 *clr
	 set picrand=12
	 '<center><img src="img/centr/zal7.jpg" ></center>'
	 'You chat with a guy, and notice that he was very excited and constantly glancing behind you, turned you see that she is already on his haunches and with gusto sucking the second guy.'
	 act 'Get_Away':gt'fit','razd'
	 act 'suck':
		 set guy+=2
		 set girl+=1
		 set gang+=1
		 xgt'sexdvanadva','var'
		 end
	 end
end
--- zal ---------------------------------

# loker
if $ARGS[0]='start':
gs'stat'
cla
set mag=0
if bikini > 0:'The top shelf is a swimsuit.'
if vatnik < 2:'tattered, rustic jacket <a href="exec:GT ''loker'',''vatnik''">see</a>'

if odetjeans=1 and numdress!1 and jeans[1]=1 or odetjeans=0 and jeans[1]=1:'jeans 1 (remaining strength <<jeansH[1]>> , The size of the hips <<jeansB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''jeans''">see</a>'
if odetjeans=1 and numdress!2 and jeans[2]=1 or odetjeans=0 and jeans[2]=1:'jeans 2 (remaining strength <<jeansH[2]>> , The size of the hips <<jeansB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''jeans''">see</a>'
if odetjeans=1 and numdress!3 and jeans[3]=1 or odetjeans=0 and jeans[3]=1:'jeans 3 (remaining strength <<jeansH[3]>> , The size of the hips <<jeansB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''jeans''">see</a>'
if odetjeans=1 and numdress!4 and jeans[4]=1 or odetjeans=0 and jeans[4]=1:'jeans 4 (remaining strength <<jeansH[4]>> , The size of the hips <<jeansB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''jeans''">see</a>'
if odetjeans=1 and numdress!5 and jeans[5]=1 or odetjeans=0 and jeans[5]=1:'jeans 5 (remaining strength <<jeansH[5]>> , The size of the hips <<jeansB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''jeans''">see</a>'

if odetyoga=1 and numdress!1 and yoga[1]=1 or odetyoga=0 and yoga[1]=1:'sportswear 1(remaining strength <<yogaH[1]>>) <a href="exec:set numdres=1&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!2 and yoga[2]=1 or odetyoga=0 and yoga[2]=1:'sportswear 2(remaining strength <<yogaH[2]>>) <a href="exec:set numdres=2&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!3 and yoga[3]=1 or odetyoga=0 and yoga[3]=1:'sportswear 3(remaining strength <<yogaH[3]>>) <a href="exec:set numdres=3&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!4 and yoga[4]=1 or odetyoga=0 and yoga[4]=1:'sportswear 4(remaining strength <<yogaH[4]>>) <a href="exec:set numdres=4&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!5 and yoga[5]=1 or odetyoga=0 and yoga[5]=1:'sportswear 5(remaining strength <<yogaH[5]>>) <a href="exec:set numdres=5&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!6 and yoga[6]=1 or odetyoga=0 and yoga[6]=1:'sportswear 6(remaining strength <<yogaH[6]>>) <a href="exec:set numdres=6&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!7 and yoga[7]=1 or odetyoga=0 and yoga[7]=1:'sportswear 7(remaining strength <<yogaH[7]>>) <a href="exec:set numdres=7&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!8 and yoga[8]=1 or odetyoga=0 and yoga[8]=1:'sportswear 8(remaining strength <<yogaH[8]>>) <a href="exec:set numdres=8&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!9 and yoga[9]=1 or odetyoga=0 and yoga[9]=1:'sportswear 9(remaining strength <<yogaH[9]>>) <a href="exec:set numdres=9&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!10 and yoga[10]=1 or odetyoga=0 and yoga[10]=1:'sportswear 10(remaining strength <<yogaH[10]>>) <a href="exec:set numdres=10&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!11 and yoga[11]=1 or odetyoga=0 and yoga[11]=1:'sportswear 11(remaining strength <<yogaH[11]>>) <a href="exec:set numdres=11&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!12 and yoga[12]=1 or odetyoga=0 and yoga[12]=1:'sportswear 12(remaining strength <<yogaH[12]>>) <a href="exec:set numdres=12&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!13 and yoga[13]=1 or odetyoga=0 and yoga[13]=1:'sportswear 13(remaining strength <<yogaH[13]>>) <a href="exec:set numdres=13&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!14 and yoga[14]=1 or odetyoga=0 and yoga[14]=1:'sportswear 14(remaining strength <<yogaH[14]>>) <a href="exec:set numdres=14&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!15 and yoga[15]=1 or odetyoga=0 and yoga[15]=1:'sportswear 15(remaining strength <<yogaH[15]>>) <a href="exec:set numdres=15&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!16 and yoga[16]=1 or odetyoga=0 and yoga[16]=1:'sportswear 16(remaining strength <<yogaH[16]>>) <a href="exec:set numdres=16&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!17 and yoga[17]=1 or odetyoga=0 and yoga[17]=1:'sportswear 17(remaining strength <<yogaH[17]>>) <a href="exec:set numdres=17&GT ''loker'',''yoga''">see</a>'
if odetyoga=1 and numdress!18 and yoga[18]=1 or odetyoga=0 and yoga[18]=1:'sportswear 18(remaining strength <<yogaH[18]>>) <a href="exec:set numdres=18&GT ''loker'',''yoga''">see</a>'

if odetsarafan=1 and numdress!1 and sarafan[1]=1 or odetsarafan=0 and sarafan[1]=1:'colorful, free sundress (remaining strength <<sarafanH[1]>>) <a href="exec:set numdres=1&GT ''loker'',''sarafan''">see</a>'
if odetsarafan=1 and numdress!2 and sarafan[2]=1 or odetsarafan=0 and sarafan[2]=1:'light, free sundress (remaining strength <<sarafanH[2]>>) <a href="exec:set numdres=2&GT ''loker'',''sarafan''">see</a>'
if odetsarafan=1 and numdress!3 and sarafan[3]=1 or odetsarafan=0 and sarafan[3]=1:'Simple sundress from cheap fabric (remaining strength <<sarafanH[3]>>) <a href="exec:set numdres=3&GT ''loker'',''sarafan''">see</a>'

if odetshort=1 and numdress!1 and short[1]=1 or odetshort=0 and short[1]=1:'Black shorts with a purple T-shirt (remaining strength <<shortH[1]>>, The size of the hips <<shortB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''short''">see</a>'
if odetshort=1 and numdress!2 and short[2]=1 or odetshort=0 and short[2]=1:'Black shorts with striped T-shirt (remaining strength <<shortH[2]>>, The size of the hips <<shortB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''short''">see</a>'
if odetshort=1 and numdress!3 and short[3]=1 or odetshort=0 and short[3]=1:'Black shorts with a black T-shirt (remaining strength <<shortH[3]>>, The size of the hips <<shortB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''short''">see</a>'
if odetshort=1 and numdress!4 and short[4]=1 or odetshort=0 and short[4]=1:'Pink shorts with pink favorite topics (remaining strength <<shortH[4]>>, The size of the hips <<shortB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''short''">see</a>'
if odetshort=1 and numdress!5 and short[5]=1 or odetshort=0 and short[5]=1:'Sexy white shorts (remaining strength <<shortH[5]>>, The size of the hips <<shortB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''short''">see</a>'

if odetskirt=1 and numdress!1 and skirt[1]=1 or odetskirt=0 and skirt[1]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[1]>>, The size of the hips <<skirtB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''skirt''">see</a>'
if odetskirt=1 and numdress!2 and skirt[2]=1 or odetskirt=0 and skirt[2]=1:'Black leather skirt with a red jacket (remaining strength <<skirtH[2]>>, The size of the hips <<skirtB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''skirt''">see</a>'
if odetskirt=1 and numdress!3 and skirt[3]=1 or odetskirt=0 and skirt[3]=1:'White skirt with a striped blouse (remaining strength <<skirtH[3]>>, The size of the hips <<skirtB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''skirt''">see</a>'
if odetskirt=1 and numdress!4 and skirt[4]=1 or odetskirt=0 and skirt[4]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[4]>>, The size of the hips <<skirtB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''skirt''">see</a>'
if odetskirt=1 and numdress!5 and skirt[5]=1 or odetskirt=0 and skirt[5]=1:'Black leather skirt with a red blouse (remaining strength <<skirtH[5]>>, The size of the hips <<skirtB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''skirt''">see</a>'

if odetdress=1 and numdress!1 and dress[1]=1 or odetdress=0 and dress[1]=1:'Black dress (remaining strength <<dressH[1]>>, The size of the hips <<dressB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!2 and dress[2]=1 or odetdress=0 and dress[2]=1:'yellow dress (remaining strength <<dressH[2]>>, The size of the hips <<dressB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!3 and dress[3]=1 or odetdress=0 and dress[3]=1:'blue dress (remaining strength <<dressH[3]>>, The size of the hips <<dressB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!4 and dress[4]=1 or odetdress=0 and dress[4]=1:'Black short dress (remaining strength <<dressH[4]>>, The size of the hips <<dressB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!5 and dress[5]=1 or odetdress=0 and dress[5]=1:'Red long dress (remaining strength <<dressH[5]>>, The size of the hips <<dressB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!6 and dress[6]=1 or odetdress=0 and dress[6]=1:'Red polka dot dress (remaining strength <<dressH[6]>>, The size of the hips <<dressB[6]>>) <a href="exec:set numdres=6&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!7 and dress[7]=1 or odetdress=0 and dress[7]=1:'brown dress (remaining strength <<dressH[7]>>, The size of the hips <<dressB[7]>>) <a href="exec:set numdres=7&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!8 and dress[8]=1 or odetdress=0 and dress[8]=1:'dress 8(remaining strength <<dressH[8]>>, The size of the hips <<dressB[8]>>) <a href="exec:set numdres=8&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!9 and dress[9]=1 or odetdress=0 and dress[9]=1:'dress 9(remaining strength <<dressH[9]>>, The size of the hips <<dressB[9]>>) <a href="exec:set numdres=9&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!10 and dress[10]=1 or odetdress=0 and dress[10]=1:'dress 10(remaining strength <<dressH[10]>>, The size of the hips <<dressB[10]>>) <a href="exec:set numdres=10&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!11 and dress[11]=1 or odetdress=0 and dress[11]=1:'dress 11(remaining strength <<dressH[11]>>, The size of the hips <<dressB[11]>>) <a href="exec:set numdres=11&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!12 and dress[12]=1 or odetdress=0 and dress[12]=1:'dress 12(remaining strength <<dressH[12]>>, The size of the hips <<dressB[12]>>) <a href="exec:set numdres=12&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!13 and dress[13]=1 or odetdress=0 and dress[13]=1:'dress 13(remaining strength <<dressH[13]>>, The size of the hips <<dressB[13]>>) <a href="exec:set numdres=13&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!14 and dress[14]=1 or odetdress=0 and dress[14]=1:'dress 14(remaining strength <<dressH[14]>>, The size of the hips <<dressB[14]>>) <a href="exec:set numdres=14&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!15 and dress[15]=1 or odetdress=0 and dress[15]=1:'dress 15(remaining strength <<dressH[15]>>, The size of the hips <<dressB[15]>>) <a href="exec:set numdres=15&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!16 and dress[16]=1 or odetdress=0 and dress[16]=1:'dress 16(remaining strength <<dressH[16]>>, The size of the hips <<dressB[16]>>) <a href="exec:set numdres=16&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!17 and dress[17]=1 or odetdress=0 and dress[17]=1:'dress 17(remaining strength <<dressH[17]>>, The size of the hips <<dressB[17]>>) <a href="exec:set numdres=17&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!18 and dress[18]=1 or odetdress=0 and dress[18]=1:'dress 18(remaining strength <<dressH[18]>>, The size of the hips <<dressB[18]>>) <a href="exec:set numdres=18&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!19 and dress[19]=1 or odetdress=0 and dress[19]=1:'dress 19(remaining strength <<dressH[19]>>, The size of the hips <<dressB[19]>>) <a href="exec:set numdres=19&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!20 and dress[20]=1 or odetdress=0 and dress[20]=1:'dress 20(remaining strength <<dressH[20]>>, The size of the hips <<dressB[20]>>) <a href="exec:set numdres=20&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!21 and dress[21]=1 or odetdress=0 and dress[21]=1:'dress 21(remaining strength <<dressH[21]>>, The size of the hips <<dressB[21]>>) <a href="exec:set numdres=21&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!22 and dress[22]=1 or odetdress=0 and dress[22]=1:'dress 22(remaining strength <<dressH[22]>>, The size of the hips <<dressB[22]>>) <a href="exec:set numdres=22&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!23 and dress[23]=1 or odetdress=0 and dress[23]=1:'dress 23(remaining strength <<dressH[23]>>, The size of the hips <<dressB[23]>>) <a href="exec:set numdres=23&GT ''loker'',''dress''">see</a>'
if odetdress=1 and numdress!24 and dress[24]=1 or odetdress=0 and dress[24]=1:'dress 24(remaining strength <<dressH[24]>>, The size of the hips <<dressB[24]>>) <a href="exec:set numdres=24&GT ''loker'',''dress''">see</a>'

if odetprofi=1 and numdress!1 and profi[1]=1 or odetprofi=0 and profi[1]=1:'office clothes 1(remaining strength <<profiH[1]>>, The size of the hips <<profiB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''profi''">see</a>'
if odetprofi=1 and numdress!2 and profi[2]=1 or odetprofi=0 and profi[2]=1:'office clothes 2(remaining strength <<profiH[2]>>, The size of the hips <<profiB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''profi''">see</a>'

if odetpants=1 and numdress!1 and pants[1]=1 or odetpants=0 and pants[1]=1:'Tight black leggings with black top (remaining strength <<pantsH[1]>>, The size of the hips <<pantsB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''pants''">see</a>'
if odetpants=1 and numdress!2 and pants[2]=1 or odetpants=0 and pants[2]=1:'Tight black leggings with red blouse (remaining strength <<pantsH[2]>>, The size of the hips <<pantsB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''pants''">see</a>'
if odetpants=1 and numdress!3 and pants[3]=1 or odetpants=0 and pants[3]=1:'Purple skintight leggings with black top (remaining strength <<pantsH[3]>>, The size of the hips <<pantsB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''pants''">see</a>'
if odetpants=1 and numdress!4 and pants[4]=1 or odetpants=0 and pants[4]=1:'Black tight leggings with a black short topic (remaining strength <<pantsH[4]>>, The size of the hips <<pantsB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''pants''">see</a>'
if odetpants=1 and numdress!5 and pants[5]=1 or odetpants=0 and pants[5]=1:'White skinny jeans with black top (remaining strength <<pantsH[5]>>, The size of the hips <<pantsB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''pants''">see</a>'

if odetlatex=1 and numdress!1 and latex[1]=1 or odetlatex=0 and latex[1]=1:'Black latex jumpsuit (remaining strength <<latexH[1]>>, The size of the hips <<latexB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''latex''">see</a>'
if odetlatex=1 and numdress!2 and latex[2]=1 or odetlatex=0 and latex[2]=1:'Purple latex dress (remaining strength <<latexH[2]>>, The size of the hips <<latexB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''latex''">see</a>'

if odethooker=1 and numdress!1 and hooker[1]=1 or odethooker=0 and hooker[1]=1:'Prostitute outfit number1 (remaining strength <<hookerH[1]>>, The size of the hips <<hookerB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''hooker''">see</a>'
if odethooker=1 and numdress!2 and hooker[2]=1 or odethooker=0 and hooker[2]=1:'Prostitute outfit number2 (remaining strength <<hookerH[2]>>, The size of the hips <<hookerB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''hooker''">see</a>'
if odethooker=1 and numdress!3 and hooker[3]=1 or odethooker=0 and hooker[3]=1:'Prostitute outfit number3 (remaining strength <<hookerH[3]>>, The size of the hips <<hookerB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''hooker''">see</a>'
if odethooker=1 and numdress!4 and hooker[4]=1 or odethooker=0 and hooker[4]=1:'Prostitute outfit number4 (remaining strength <<hookerH[4]>>, The size of the hips <<hookerB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''hooker''">see</a>'
if odethooker=1 and numdress!5 and hooker[5]=1 or odethooker=0 and hooker[5]=1:'Prostitute outfit number5 (remaining strength <<hookerH[5]>>, The size of the hips <<hookerB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''hooker''">see</a>'

if odetkis=1 and numdress!1 and odekis[1]=1 or odetkis=0 and odekis[1]=1:'Youth outfit number1 (remaining strength <<odekisH[1]>>, The size of the hips <<odekisB[1]>>) <a href="exec:set numdres=1&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!2 and odekis[2]=1 or odetkis=0 and odekis[2]=1:'Youth outfit number2 (remaining strength <<odekisH[2]>>, The size of the hips <<odekisB[2]>>) <a href="exec:set numdres=2&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!3 and odekis[3]=1 or odetkis=0 and odekis[3]=1:'Youth outfit number3 (remaining strength <<odekisH[3]>>, The size of the hips <<odekisB[3]>>) <a href="exec:set numdres=3&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!4 and odekis[4]=1 or odetkis=0 and odekis[4]=1:'Youth outfit number4 (remaining strength <<odekisH[4]>>, The size of the hips <<odekisB[4]>>) <a href="exec:set numdres=4&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!5 and odekis[5]=1 or odetkis=0 and odekis[5]=1:'Youth outfit number5 (remaining strength <<odekisH[5]>>, The size of the hips <<odekisB[5]>>) <a href="exec:set numdres=5&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!6 and odekis[6]=1 or odetkis=0 and odekis[6]=1:'Youth outfit number6 (remaining strength <<odekisH[6]>>, The size of the hips <<odekisB[6]>>) <a href="exec:set numdres=6&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!7 and odekis[7]=1 or odetkis=0 and odekis[7]=1:'Youth outfit number7 (remaining strength <<odekisH[7]>>, The size of the hips <<odekisB[7]>>) <a href="exec:set numdres=7&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!8 and odekis[8]=1 or odetkis=0 and odekis[8]=1:'Youth outfit number8 (remaining strength <<odekisH[8]>>, The size of the hips <<odekisB[8]>>) <a href="exec:set numdres=8&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!9 and odekis[9]=1 or odetkis=0 and odekis[9]=1:'Youth outfit number9 (remaining strength <<odekisH[9]>>, The size of the hips <<odekisB[9]>>) <a href="exec:set numdres=9&GT ''loker'',''odekis''">see</a>'
if odetkis=1 and numdress!10 and odekis[10]=1 or odetkis=0 and odekis[10]=1:'Youth outfit number10 (remaining strength <<odekisH[10]>>, The size of the hips <<odekisB[10]>>) <a href="exec:set numdres=10&GT ''loker'',''odekis''">see</a>'

if odetnewclo=1 and numdress!1 and newclo[1]=1 or odetnewclo=0 and newclo[1]=1:'Clothing from Fashionistas number1 (remaining strength <<newcloH[1]>>, The size of the hips <<newcloB[1]>>) <a href="exec:numdres=1&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!2 and newclo[2]=1 or odetnewclo=0 and newclo[2]=1:'Clothing from Fashionistas number2 (remaining strength <<newcloH[2]>>, The size of the hips <<newcloB[2]>>) <a href="exec:numdres=2&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!3 and newclo[3]=1 or odetnewclo=0 and newclo[3]=1:'Clothing from Fashionistas number3 (remaining strength <<newcloH[3]>>, The size of the hips <<newcloB[3]>>) <a href="exec:numdres=3&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!4 and newclo[4]=1 or odetnewclo=0 and newclo[4]=1:'Clothing from Fashionistas number4 (remaining strength <<newcloH[4]>>, The size of the hips <<newcloB[4]>>) <a href="exec:numdres=4&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!5 and newclo[5]=1 or odetnewclo=0 and newclo[5]=1:'Clothing from Fashionistas number5 (remaining strength <<newcloH[5]>>, The size of the hips <<newcloB[5]>>) <a href="exec:numdres=5&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!6 and newclo[6]=1 or odetnewclo=0 and newclo[6]=1:'Clothing from Fashionistas number6 (remaining strength <<newcloH[6]>>, The size of the hips <<newcloB[6]>>) <a href="exec:numdres=6&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!7 and newclo[7]=1 or odetnewclo=0 and newclo[7]=1:'Clothing from Fashionistas number7 (remaining strength <<newcloH[7]>>, The size of the hips <<newcloB[7]>>) <a href="exec:numdres=7&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!8 and newclo[8]=1 or odetnewclo=0 and newclo[8]=1:'Clothing from Fashionistas number8 (remaining strength <<newcloH[8]>>, The size of the hips <<newcloB[8]>>) <a href="exec:numdres=8&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!9 and newclo[9]=1 or odetnewclo=0 and newclo[9]=1:'Clothing from Fashionistas number9 (remaining strength <<newcloH[9]>>, The size of the hips <<newcloB[9]>>) <a href="exec:numdres=9&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!10 and newclo[10]=1 or odetnewclo=0 and newclo[10]=1:'Clothing from Fashionistas number10 (remaining strength <<newcloH[10]>>, The size of the hips <<newcloB[10]>>) <a href="exec:numdres=10&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!11 and newclo[11]=1 or odetnewclo=0 and newclo[11]=1:'Clothing from Fashionistas number11 (remaining strength <<newcloH[11]>>, The size of the hips <<newcloB[11]>>) <a href="exec:numdres=11&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!12 and newclo[12]=1 or odetnewclo=0 and newclo[12]=1:'Clothing from Fashionistas number12 (remaining strength <<newcloH[12]>>, The size of the hips <<newcloB[12]>>) <a href="exec:numdres=12&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!13 and newclo[13]=1 or odetnewclo=0 and newclo[13]=1:'Clothing from Fashionistas number13 (remaining strength <<newcloH[13]>>, The size of the hips <<newcloB[13]>>) <a href="exec:numdres=13&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!14 and newclo[14]=1 or odetnewclo=0 and newclo[14]=1:'Clothing from Fashionistas number14 (remaining strength <<newcloH[14]>>, The size of the hips <<newcloB[14]>>) <a href="exec:numdres=14&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!15 and newclo[15]=1 or odetnewclo=0 and newclo[15]=1:'Clothing from Fashionistas number15 (remaining strength <<newcloH[15]>>, The size of the hips <<newcloB[15]>>) <a href="exec:numdres=15&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!16 and newclo[16]=1 or odetnewclo=0 and newclo[16]=1:'Clothing from Fashionistas number16 (remaining strength <<newcloH[16]>>, The size of the hips <<newcloB[16]>>) <a href="exec:numdres=16&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!17 and newclo[17]=1 or odetnewclo=0 and newclo[17]=1:'Clothing from Fashionistas number17 (remaining strength <<newcloH[17]>>, The size of the hips <<newcloB[17]>>) <a href="exec:numdres=17&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!18 and newclo[18]=1 or odetnewclo=0 and newclo[18]=1:'Clothing from Fashionistas number18 (remaining strength <<newcloH[18]>>, The size of the hips <<newcloB[18]>>) <a href="exec:numdres=18&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!19 and newclo[19]=1 or odetnewclo=0 and newclo[19]=1:'Clothing from Fashionistas number19 (remaining strength <<newcloH[19]>>, The size of the hips <<newcloB[19]>>) <a href="exec:numdres=19&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!20 and newclo[20]=1 or odetnewclo=0 and newclo[20]=1:'Clothing from Fashionistas number20 (remaining strength <<newcloH[20]>>, The size of the hips <<newcloB[20]>>) <a href="exec:numdres=20&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!21 and newclo[21]=1 or odetnewclo=0 and newclo[21]=1:'Clothing from Fashionistas number21 (remaining strength <<newcloH[21]>>, The size of the hips <<newcloB[21]>>) <a href="exec:numdres=21&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!22 and newclo[22]=1 or odetnewclo=0 and newclo[22]=1:'Clothing from Fashionistas number22 (remaining strength <<newcloH[22]>>, The size of the hips <<newcloB[22]>>) <a href="exec:numdres=22&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!23 and newclo[23]=1 or odetnewclo=0 and newclo[23]=1:'Clothing from Fashionistas number23 (remaining strength <<newcloH[23]>>, The size of the hips <<newcloB[23]>>) <a href="exec:numdres=23&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!24 and newclo[24]=1 or odetnewclo=0 and newclo[24]=1:'Clothing from Fashionistas number24 (remaining strength <<newcloH[24]>>, The size of the hips <<newcloB[24]>>) <a href="exec:numdres=24&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!25 and newclo[25]=1 or odetnewclo=0 and newclo[25]=1:'Clothing from Fashionistas number25 (remaining strength <<newcloH[25]>>, The size of the hips <<newcloB[25]>>) <a href="exec:numdres=25&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!26 and newclo[26]=1 or odetnewclo=0 and newclo[26]=1:'Clothing from Fashionistas number26 (remaining strength <<newcloH[26]>>, The size of the hips <<newcloB[26]>>) <a href="exec:numdres=26&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!27 and newclo[27]=1 or odetnewclo=0 and newclo[27]=1:'Clothing from Fashionistas number27 (remaining strength <<newcloH[27]>>, The size of the hips <<newcloB[27]>>) <a href="exec:numdres=27&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!28 and newclo[28]=1 or odetnewclo=0 and newclo[28]=1:'Clothing from Fashionistas number28 (remaining strength <<newcloH[28]>>, The size of the hips <<newcloB[28]>>) <a href="exec:numdres=28&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!29 and newclo[29]=1 or odetnewclo=0 and newclo[29]=1:'Clothing from Fashionistas number29 (remaining strength <<newcloH[29]>>, The size of the hips <<newcloB[29]>>) <a href="exec:numdres=29&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!30 and newclo[30]=1 or odetnewclo=0 and newclo[30]=1:'Clothing from Fashionistas number30 (remaining strength <<newcloH[30]>>, The size of the hips <<newcloB[30]>>) <a href="exec:numdres=30&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!31 and newclo[31]=1 or odetnewclo=0 and newclo[31]=1:'Clothing from Fashionistas number31 (remaining strength <<newcloH[31]>>, The size of the hips <<newcloB[31]>>) <a href="exec:numdres=31&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!32 and newclo[32]=1 or odetnewclo=0 and newclo[32]=1:'Clothing from Fashionistas number32 (remaining strength <<newcloH[32]>>, The size of the hips <<newcloB[32]>>) <a href="exec:numdres=32&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!33 and newclo[33]=1 or odetnewclo=0 and newclo[33]=1:'Clothing from Fashionistas number33 (remaining strength <<newcloH[33]>>, The size of the hips <<newcloB[33]>>) <a href="exec:numdres=33&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!34 and newclo[34]=1 or odetnewclo=0 and newclo[34]=1:'Clothing from Fashionistas number34 (remaining strength <<newcloH[34]>>, The size of the hips <<newcloB[34]>>) <a href="exec:numdres=34&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!35 and newclo[35]=1 or odetnewclo=0 and newclo[35]=1:'Clothing from Fashionistas number35 (remaining strength <<newcloH[35]>>, The size of the hips <<newcloB[35]>>) <a href="exec:numdres=35&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!36 and newclo[36]=1 or odetnewclo=0 and newclo[36]=1:'Clothing from Fashionistas number36 (remaining strength <<newcloH[36]>>, The size of the hips <<newcloB[36]>>) <a href="exec:numdres=36&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!37 and newclo[37]=1 or odetnewclo=0 and newclo[37]=1:'Clothing from Fashionistas number37 (remaining strength <<newcloH[37]>>, The size of the hips <<newcloB[37]>>) <a href="exec:numdres=37&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!38 and newclo[38]=1 or odetnewclo=0 and newclo[38]=1:'Clothing from Fashionistas number38 (remaining strength <<newcloH[38]>>, The size of the hips <<newcloB[38]>>) <a href="exec:numdres=38&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!39 and newclo[39]=1 or odetnewclo=0 and newclo[39]=1:'Clothing from Fashionistas number39 (remaining strength <<newcloH[39]>>, The size of the hips <<newcloB[39]>>) <a href="exec:numdres=39&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!40 and newclo[40]=1 or odetnewclo=0 and newclo[40]=1:'Clothing from Fashionistas number40 (remaining strength <<newcloH[40]>>, The size of the hips <<newcloB[40]>>) <a href="exec:numdres=40&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!41 and newclo[41]=1 or odetnewclo=0 and newclo[41]=1:'Clothing from Fashionistas number41 (remaining strength <<newcloH[41]>>, The size of the hips <<newcloB[41]>>) <a href="exec:numdres=41&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!42 and newclo[42]=1 or odetnewclo=0 and newclo[42]=1:'Clothing from Fashionistas number42 (remaining strength <<newcloH[42]>>, The size of the hips <<newcloB[42]>>) <a href="exec:numdres=42&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!43 and newclo[43]=1 or odetnewclo=0 and newclo[43]=1:'Clothing from Fashionistas number43 (remaining strength <<newcloH[43]>>, The size of the hips <<newcloB[43]>>) <a href="exec:numdres=43&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!44 and newclo[44]=1 or odetnewclo=0 and newclo[44]=1:'Clothing from Fashionistas number44 (remaining strength <<newcloH[44]>>, The size of the hips <<newcloB[44]>>) <a href="exec:numdres=44&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!45 and newclo[45]=1 or odetnewclo=0 and newclo[45]=1:'Clothing from Fashionistas number45 (remaining strength <<newcloH[45]>>, The size of the hips <<newcloB[45]>>) <a href="exec:numdres=45&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!46 and newclo[46]=1 or odetnewclo=0 and newclo[46]=1:'Clothing from Fashionistas number46 (remaining strength <<newcloH[46]>>, The size of the hips <<newcloB[46]>>) <a href="exec:numdres=46&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!47 and newclo[47]=1 or odetnewclo=0 and newclo[47]=1:'Clothing from Fashionistas number47 (remaining strength <<newcloH[47]>>, The size of the hips <<newcloB[47]>>) <a href="exec:numdres=47&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!48 and newclo[48]=1 or odetnewclo=0 and newclo[48]=1:'Clothing from Fashionistas number48 (remaining strength <<newcloH[48]>>, The size of the hips <<newcloB[48]>>) <a href="exec:numdres=48&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!49 and newclo[49]=1 or odetnewclo=0 and newclo[49]=1:'Clothing from Fashionistas number49 (remaining strength <<newcloH[49]>>, The size of the hips <<newcloB[49]>>) <a href="exec:numdres=49&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!50 and newclo[50]=1 or odetnewclo=0 and newclo[50]=1:'Clothing from Fashionistas number50 (remaining strength <<newcloH[50]>>, The size of the hips <<newcloB[50]>>) <a href="exec:numdres=50&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!51 and newclo[51]=1 or odetnewclo=0 and newclo[51]=1:'Clothing from Fashionistas number51 (remaining strength <<newcloH[51]>>, The size of the hips <<newcloB[51]>>) <a href="exec:numdres=51&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!52 and newclo[52]=1 or odetnewclo=0 and newclo[52]=1:'Clothing from Fashionistas number52 (remaining strength <<newcloH[52]>>, The size of the hips <<newcloB[52]>>) <a href="exec:numdres=52&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!53 and newclo[53]=1 or odetnewclo=0 and newclo[53]=1:'Clothing from Fashionistas number53 (remaining strength <<newcloH[53]>>, The size of the hips <<newcloB[53]>>) <a href="exec:numdres=53&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!54 and newclo[54]=1 or odetnewclo=0 and newclo[54]=1:'Clothing from Fashionistas number54 (remaining strength <<newcloH[54]>>, The size of the hips <<newcloB[54]>>) <a href="exec:numdres=54&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!55 and newclo[55]=1 or odetnewclo=0 and newclo[55]=1:'Clothing from Fashionistas number55 (remaining strength <<newcloH[55]>>, The size of the hips <<newcloB[55]>>) <a href="exec:numdres=55&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!56 and newclo[56]=1 or odetnewclo=0 and newclo[56]=1:'Clothing from Fashionistas number56 (remaining strength <<newcloH[56]>>, The size of the hips <<newcloB[56]>>) <a href="exec:numdres=56&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!57 and newclo[57]=1 or odetnewclo=0 and newclo[57]=1:'Clothing from Fashionistas number57 (remaining strength <<newcloH[57]>>, The size of the hips <<newcloB[57]>>) <a href="exec:numdres=57&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!58 and newclo[58]=1 or odetnewclo=0 and newclo[58]=1:'Clothing from Fashionistas number58 (remaining strength <<newcloH[58]>>, The size of the hips <<newcloB[58]>>) <a href="exec:numdres=58&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!59 and newclo[59]=1 or odetnewclo=0 and newclo[59]=1:'Clothing from Fashionistas number59 (remaining strength <<newcloH[59]>>, The size of the hips <<newcloB[59]>>) <a href="exec:numdres=59&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!60 and newclo[60]=1 or odetnewclo=0 and newclo[60]=1:'Clothing from Fashionistas number60 (remaining strength <<newcloH[60]>>, The size of the hips <<newcloB[60]>>) <a href="exec:numdres=60&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!61 and newclo[61]=1 or odetnewclo=0 and newclo[61]=1:'Clothing from Fashionistas number61 (remaining strength <<newcloH[61]>>, The size of the hips <<newcloB[61]>>) <a href="exec:numdres=61&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!62 and newclo[62]=1 or odetnewclo=0 and newclo[62]=1:'Clothing from Fashionistas number62 (remaining strength <<newcloH[62]>>, The size of the hips <<newcloB[62]>>) <a href="exec:numdres=62&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!63 and newclo[63]=1 or odetnewclo=0 and newclo[63]=1:'Clothing from Fashionistas number63 (remaining strength <<newcloH[63]>>, The size of the hips <<newcloB[63]>>) <a href="exec:numdres=63&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!64 and newclo[64]=1 or odetnewclo=0 and newclo[64]=1:'Clothing from Fashionistas number64 (remaining strength <<newcloH[64]>>, The size of the hips <<newcloB[64]>>) <a href="exec:numdres=64&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!65 and newclo[65]=1 or odetnewclo=0 and newclo[65]=1:'Clothing from Fashionistas number65 (remaining strength <<newcloH[65]>>, The size of the hips <<newcloB[65]>>) <a href="exec:numdres=65&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!66 and newclo[66]=1 or odetnewclo=0 and newclo[66]=1:'Clothing from Fashionistas number66 (remaining strength <<newcloH[66]>>, The size of the hips <<newcloB[66]>>) <a href="exec:numdres=66&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!67 and newclo[67]=1 or odetnewclo=0 and newclo[67]=1:'Clothing from Fashionistas number67 (remaining strength <<newcloH[67]>>, The size of the hips <<newcloB[67]>>) <a href="exec:numdres=67&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!68 and newclo[68]=1 or odetnewclo=0 and newclo[68]=1:'Clothing from Fashionistas number68 (remaining strength <<newcloH[68]>>, The size of the hips <<newcloB[68]>>) <a href="exec:numdres=68&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!69 and newclo[69]=1 or odetnewclo=0 and newclo[69]=1:'Clothing from Fashionistas number69 (remaining strength <<newcloH[69]>>, The size of the hips <<newcloB[69]>>) <a href="exec:numdres=69&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!70 and newclo[70]=1 or odetnewclo=0 and newclo[70]=1:'Clothing from Fashionistas number70 (remaining strength <<newcloH[70]>>, The size of the hips <<newcloB[70]>>) <a href="exec:numdres=70&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!71 and newclo[71]=1 or odetnewclo=0 and newclo[71]=1:'Clothing from Fashionistas number71 (remaining strength <<newcloH[71]>>, The size of the hips <<newcloB[71]>>) <a href="exec:numdres=71&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!72 and newclo[72]=1 or odetnewclo=0 and newclo[72]=1:'Clothing from Fashionistas number72 (remaining strength <<newcloH[72]>>, The size of the hips <<newcloB[72]>>) <a href="exec:numdres=72&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!73 and newclo[73]=1 or odetnewclo=0 and newclo[73]=1:'Clothing from Fashionistas number73 (remaining strength <<newcloH[73]>>, The size of the hips <<newcloB[73]>>) <a href="exec:numdres=73&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!74 and newclo[74]=1 or odetnewclo=0 and newclo[74]=1:'Clothing from Fashionistas number74 (remaining strength <<newcloH[74]>>, The size of the hips <<newcloB[74]>>) <a href="exec:numdres=74&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!75 and newclo[75]=1 or odetnewclo=0 and newclo[75]=1:'Clothing from Fashionistas number75 (remaining strength <<newcloH[75]>>, The size of the hips <<newcloB[75]>>) <a href="exec:numdres=75&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!76 and newclo[76]=1 or odetnewclo=0 and newclo[76]=1:'Clothing from Fashionistas number76 (remaining strength <<newcloH[76]>>, The size of the hips <<newcloB[76]>>) <a href="exec:numdres=76&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!77 and newclo[77]=1 or odetnewclo=0 and newclo[77]=1:'Clothing from Fashionistas number77 (remaining strength <<newcloH[77]>>, The size of the hips <<newcloB[77]>>) <a href="exec:numdres=77&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!78 and newclo[78]=1 or odetnewclo=0 and newclo[78]=1:'Clothing from Fashionistas number78 (remaining strength <<newcloH[78]>>, The size of the hips <<newcloB[78]>>) <a href="exec:numdres=78&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!79 and newclo[79]=1 or odetnewclo=0 and newclo[79]=1:'Clothing from Fashionistas number79 (remaining strength <<newcloH[79]>>, The size of the hips <<newcloB[79]>>) <a href="exec:numdres=79&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!80 and newclo[80]=1 or odetnewclo=0 and newclo[80]=1:'Clothing from Fashionistas number80 (remaining strength <<newcloH[80]>>, The size of the hips <<newcloB[80]>>) <a href="exec:numdres=80&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!81 and newclo[81]=1 or odetnewclo=0 and newclo[81]=1:'Clothing from Fashionistas number81 (remaining strength <<newcloH[81]>>, The size of the hips <<newcloB[81]>>) <a href="exec:numdres=81&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!82 and newclo[82]=1 or odetnewclo=0 and newclo[82]=1:'Clothing from Fashionistas number82 (remaining strength <<newcloH[82]>>, The size of the hips <<newcloB[82]>>) <a href="exec:numdres=82&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!83 and newclo[83]=1 or odetnewclo=0 and newclo[83]=1:'Clothing from Fashionistas number83 (remaining strength <<newcloH[83]>>, The size of the hips <<newcloB[83]>>) <a href="exec:numdres=83&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!84 and newclo[84]=1 or odetnewclo=0 and newclo[84]=1:'Clothing from Fashionistas number84 (remaining strength <<newcloH[84]>>, The size of the hips <<newcloB[84]>>) <a href="exec:numdres=84&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!85 and newclo[85]=1 or odetnewclo=0 and newclo[85]=1:'Clothing from Fashionistas number85 (remaining strength <<newcloH[85]>>, The size of the hips <<newcloB[85]>>) <a href="exec:numdres=85&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!86 and newclo[86]=1 or odetnewclo=0 and newclo[86]=1:'Clothing from Fashionistas number86 (remaining strength <<newcloH[86]>>, The size of the hips <<newcloB[86]>>) <a href="exec:numdres=86&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!87 and newclo[87]=1 or odetnewclo=0 and newclo[87]=1:'Clothing from Fashionistas number87 (remaining strength <<newcloH[87]>>, The size of the hips <<newcloB[87]>>) <a href="exec:numdres=87&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!88 and newclo[88]=1 or odetnewclo=0 and newclo[88]=1:'Clothing from Fashionistas number88 (remaining strength <<newcloH[88]>>, The size of the hips <<newcloB[88]>>) <a href="exec:numdres=88&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!89 and newclo[89]=1 or odetnewclo=0 and newclo[89]=1:'Clothing from Fashionistas number89 (remaining strength <<newcloH[89]>>, The size of the hips <<newcloB[89]>>) <a href="exec:numdres=89&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!90 and newclo[90]=1 or odetnewclo=0 and newclo[90]=1:'Clothing from Fashionistas number90 (remaining strength <<newcloH[90]>>, The size of the hips <<newcloB[90]>>) <a href="exec:numdres=90&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!91 and newclo[91]=1 or odetnewclo=0 and newclo[91]=1:'Clothing from Fashionistas number91 (remaining strength <<newcloH[91]>>, The size of the hips <<newcloB[91]>>) <a href="exec:numdres=91&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!92 and newclo[92]=1 or odetnewclo=0 and newclo[92]=1:'Clothing from Fashionistas number92 (remaining strength <<newcloH[92]>>, The size of the hips <<newcloB[92]>>) <a href="exec:numdres=92&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!93 and newclo[93]=1 or odetnewclo=0 and newclo[93]=1:'Clothing from Fashionistas number93 (remaining strength <<newcloH[93]>>, The size of the hips <<newcloB[93]>>) <a href="exec:numdres=93&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!94 and newclo[94]=1 or odetnewclo=0 and newclo[94]=1:'Clothing from Fashionistas number94 (remaining strength <<newcloH[94]>>, The size of the hips <<newcloB[94]>>) <a href="exec:numdres=94&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!95 and newclo[95]=1 or odetnewclo=0 and newclo[95]=1:'Clothing from Fashionistas number95 (remaining strength <<newcloH[95]>>, The size of the hips <<newcloB[95]>>) <a href="exec:numdres=95&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!96 and newclo[96]=1 or odetnewclo=0 and newclo[96]=1:'Clothing from Fashionistas number96 (remaining strength <<newcloH[96]>>, The size of the hips <<newcloB[96]>>) <a href="exec:numdres=96&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!97 and newclo[97]=1 or odetnewclo=0 and newclo[97]=1:'Clothing from Fashionistas number97 (remaining strength <<newcloH[97]>>, The size of the hips <<newcloB[97]>>) <a href="exec:numdres=97&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!98 and newclo[98]=1 or odetnewclo=0 and newclo[98]=1:'Clothing from Fashionistas number98 (remaining strength <<newcloH[98]>>, The size of the hips <<newcloB[98]>>) <a href="exec:numdres=98&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!99 and newclo[99]=1 or odetnewclo=0 and newclo[99]=1:'Clothing from Fashionistas number99 (remaining strength <<newcloH[99]>>, The size of the hips <<newcloB[99]>>) <a href="exec:numdres=99&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!100 and newclo[100]=1 or odetnewclo=0 and newclo[100]=1:'Clothing from Fashionistas number100 (remaining strength <<newcloH[100]>>, The size of the hips <<newcloB[100]>>) <a href="exec:numdres=100&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!101 and newclo[101]=1 or odetnewclo=0 and newclo[101]=1:'Clothing from Fashionistas number101 (remaining strength <<newcloH[101]>>, The size of the hips <<newcloB[101]>>) <a href="exec:numdres=101&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!102 and newclo[102]=1 or odetnewclo=0 and newclo[102]=1:'Clothing from Fashionistas number102 (remaining strength <<newcloH[102]>>, The size of the hips <<newcloB[102]>>) <a href="exec:numdres=102&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!103 and newclo[103]=1 or odetnewclo=0 and newclo[103]=1:'Clothing from Fashionistas number103 (remaining strength <<newcloH[103]>>, The size of the hips <<newcloB[103]>>) <a href="exec:numdres=103&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!104 and newclo[104]=1 or odetnewclo=0 and newclo[104]=1:'Clothing from Fashionistas number104 (remaining strength <<newcloH[104]>>, The size of the hips <<newcloB[104]>>) <a href="exec:numdres=104&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!105 and newclo[105]=1 or odetnewclo=0 and newclo[105]=1:'Clothing from Fashionistas number105 (remaining strength <<newcloH[105]>>, The size of the hips <<newcloB[105]>>) <a href="exec:numdres=105&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!106 and newclo[106]=1 or odetnewclo=0 and newclo[106]=1:'Clothing from Fashionistas number106 (remaining strength <<newcloH[106]>>, The size of the hips <<newcloB[106]>>) <a href="exec:numdres=106&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!107 and newclo[107]=1 or odetnewclo=0 and newclo[107]=1:'Clothing from Fashionistas number107 (remaining strength <<newcloH[107]>>, The size of the hips <<newcloB[107]>>) <a href="exec:numdres=107&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!108 and newclo[108]=1 or odetnewclo=0 and newclo[108]=1:'Clothing from Fashionistas number108 (remaining strength <<newcloH[108]>>, The size of the hips <<newcloB[108]>>) <a href="exec:numdres=108&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!109 and newclo[109]=1 or odetnewclo=0 and newclo[109]=1:'Clothing from Fashionistas number109 (remaining strength <<newcloH[109]>>, The size of the hips <<newcloB[109]>>) <a href="exec:numdres=109&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!110 and newclo[110]=1 or odetnewclo=0 and newclo[110]=1:'Clothing from Fashionistas number110 (remaining strength <<newcloH[110]>>, The size of the hips <<newcloB[110]>>) <a href="exec:numdres=110&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!111 and newclo[111]=1 or odetnewclo=0 and newclo[111]=1:'Clothing from Fashionistas number111 (remaining strength <<newcloH[111]>>, The size of the hips <<newcloB[111]>>) <a href="exec:numdres=111&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!112 and newclo[112]=1 or odetnewclo=0 and newclo[112]=1:'Clothing from Fashionistas number112 (remaining strength <<newcloH[112]>>, The size of the hips <<newcloB[112]>>) <a href="exec:numdres=112&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!113 and newclo[113]=1 or odetnewclo=0 and newclo[113]=1:'Clothing from Fashionistas number113 (remaining strength <<newcloH[113]>>, The size of the hips <<newcloB[113]>>) <a href="exec:numdres=113&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!114 and newclo[114]=1 or odetnewclo=0 and newclo[114]=1:'Clothing from Fashionistas number114 (remaining strength <<newcloH[114]>>, The size of the hips <<newcloB[114]>>) <a href="exec:numdres=114&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!115 and newclo[115]=1 or odetnewclo=0 and newclo[115]=1:'Clothing from Fashionistas number115 (remaining strength <<newcloH[115]>>, The size of the hips <<newcloB[115]>>) <a href="exec:numdres=115&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!116 and newclo[116]=1 or odetnewclo=0 and newclo[116]=1:'Clothing from Fashionistas number116 (remaining strength <<newcloH[116]>>, The size of the hips <<newcloB[116]>>) <a href="exec:numdres=116&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!117 and newclo[117]=1 or odetnewclo=0 and newclo[117]=1:'Clothing from Fashionistas number117 (remaining strength <<newcloH[117]>>, The size of the hips <<newcloB[117]>>) <a href="exec:numdres=117&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!118 and newclo[118]=1 or odetnewclo=0 and newclo[118]=1:'Clothing from Fashionistas number118 (remaining strength <<newcloH[118]>>, The size of the hips <<newcloB[118]>>) <a href="exec:numdres=118&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!119 and newclo[119]=1 or odetnewclo=0 and newclo[119]=1:'Clothing from Fashionistas number119 (remaining strength <<newcloH[119]>>, The size of the hips <<newcloB[119]>>) <a href="exec:numdres=119&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!120 and newclo[120]=1 or odetnewclo=0 and newclo[120]=1:'Clothing from Fashionistas number120 (remaining strength <<newcloH[120]>>, The size of the hips <<newcloB[120]>>) <a href="exec:numdres=120&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!121 and newclo[121]=1 or odetnewclo=0 and newclo[121]=1:'Clothing from Fashionistas number121 (remaining strength <<newcloH[121]>>, The size of the hips <<newcloB[121]>>) <a href="exec:numdres=121&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!122 and newclo[122]=1 or odetnewclo=0 and newclo[122]=1:'Clothing from Fashionistas number122 (remaining strength <<newcloH[122]>>, The size of the hips <<newcloB[122]>>) <a href="exec:numdres=122&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!123 and newclo[123]=1 or odetnewclo=0 and newclo[123]=1:'Clothing from Fashionistas number123 (remaining strength <<newcloH[123]>>, The size of the hips <<newcloB[123]>>) <a href="exec:numdres=123&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!124 and newclo[124]=1 or odetnewclo=0 and newclo[124]=1:'Clothing from Fashionistas number124 (remaining strength <<newcloH[124]>>, The size of the hips <<newcloB[124]>>) <a href="exec:numdres=124&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!125 and newclo[125]=1 or odetnewclo=0 and newclo[125]=1:'Clothing from Fashionistas number125 (remaining strength <<newcloH[125]>>, The size of the hips <<newcloB[125]>>) <a href="exec:numdres=125&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!126 and newclo[126]=1 or odetnewclo=0 and newclo[126]=1:'Clothing from Fashionistas number126 (remaining strength <<newcloH[126]>>, The size of the hips <<newcloB[126]>>) <a href="exec:numdres=126&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!127 and newclo[127]=1 or odetnewclo=0 and newclo[127]=1:'Clothing from Fashionistas number127 (remaining strength <<newcloH[127]>>, The size of the hips <<newcloB[127]>>) <a href="exec:numdres=127&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!128 and newclo[128]=1 or odetnewclo=0 and newclo[128]=1:'Clothing from Fashionistas number128 (remaining strength <<newcloH[128]>>, The size of the hips <<newcloB[128]>>) <a href="exec:numdres=128&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!129 and newclo[129]=1 or odetnewclo=0 and newclo[129]=1:'Clothing from Fashionistas number129 (remaining strength <<newcloH[129]>>, The size of the hips <<newcloB[129]>>) <a href="exec:numdres=129&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!130 and newclo[130]=1 or odetnewclo=0 and newclo[130]=1:'Clothing from Fashionistas number130 (remaining strength <<newcloH[130]>>, The size of the hips <<newcloB[130]>>) <a href="exec:numdres=130&GT ''loker'',''newclo''">see</a>'
if odetnewclo=1 and numdress!131 and newclo[131]=1 or odetnewclo=0 and newclo[131]=1:'School uniforms <a href="exec:numdres=131&GT ''loker'',''newclo''">see</a>'

if borLoker=1:
	 *nl
	 '<center><B>Clothing brothel</B></center>'
	 '<a href="exec:set numdress=1 & gt''loker'',''ero1''">Netted white jacket with denim skirt</a>'
	 '<a href="exec:set numdress=2 & gt''loker'',''ero1''">Net blue dress</a>'
	 '<a href="exec:set numdress=3 & gt''loker'',''ero1''">Transparent white dress</a>'
	 '<a href="exec:set numdress=4 & gt''loker'',''ero1''">Small transparent white dress</a>'
	 '<a href="exec:set numdress=5 & gt''loker'',''ero1''">Latex corset with skirt</a>'
	 '<a href="exec:set numdress=6 & gt''loker'',''ero1''">Short transparent black dress</a>'
	 '<a href="exec:set numdress=7 & gt''loker'',''ero1''">Mesh black dress</a>'
	 '<a href="exec:set numdress=8 & gt''loker'',''ero1''">Long transparent black dress</a>'
	 '<a href="exec:set numdress=9 & gt''loker'',''ero1''">Transparent leopard dress</a>'
	 '<a href="exec:set numdress=10 & gt''loker'',''ero1''">Black top with mesh tights</a>'
	 '<a href="exec:set numdress=11 & gt''loker'',''ero1''">Mesh black jacket with black shorts</a>'
	 '<a href="exec:set numdress=12 & gt''loker'',''ero1''">Transparent red dress</a>'
	 '<a href="exec:set numdress=13 & gt''loker'',''ero1''">Transparent pink shorts with topom</a>'
	 '<a href="exec:set numdress=14 & gt''loker'',''ero1''">Small mesh black dress</a>'
	 '<a href="exec:set numdress=15 & gt''loker'',''ero1''">Little black skirt with a transparent topom</a>'
	 '<a href="exec:set numdress=16 & gt''loker'',''ero1''">Net white dress</a>'
	 '<a href="exec:set numdress=17 & gt''loker'',''ero1''">Little pink skirt with a transparent topom</a>'
	 '<a href="exec:set numdress=18 & gt''loker'',''ero1''">what-then net</a>'
	 end
act 'Go_Out':gt'loker','fin'
end

if $ARGS[0] = 'ero1':
cla
*clr
'<center><img src="img/dress/ero<<numdress>>.jpg" ></center>'
act 'ago':gt'loker','start'
act 'Put_On':
	 set odetjeans=0
	 set odetyoga=0
	 set odetsarafan=0
	 set odetshort=0
	 set odetskirt=0
	 set odetdress=0
	 set odetprofi=0
	 set odetpants=0
	 set odetlatex=0
	 set odethooker=0
	 set odetkis=0
	 set odetnewclo=0
	 set odetero=1
	 set vatnik=0
	 set glamur = 0
	 set sport = 0
	 set ski = 0
	 set hook = 0
	 set ofclo = 0
	 set sexual = 0
	 if cumfrot > 0:set cumfrot = 0
	 set nude = 0
	 set odevnesh+=10
	 set odetero=numdress
	 gt'loker','start'
	 end
end

if $ARGS[0]='jeans':
cla
'<center><img src="ode/jeans<<numdres>>.jpg" ></center>'
'(remaining strength <<jeansH[numdres]>>, The size of the hips <<jeansB[numdres]>>)'
if mag=1:
	 'price <<payclo>>'
	 act 'remove item.':GOTO $loc, $metka
	 if jeans[numdres]=0 and money>=payclo:
		 act 'buy':
			 money-=payclo
			 jeans[numdres]=1
			 jeansH[numdres]=60
			 jeansB[numdres]=bedra
			 GOTO $loc, $metka
			 end
		 end
	 end
if mag=0:
	 act 'In the closet':gt'loker','start'
	 if jeansH[numdres] > 0 and jeansB[numdres] >= bedra - 8 and jeansB[numdres] <= bedra + 8:
		 act 'Put_On':
			 set numdress=numdres
			 set odetjeans=1
			 set odetyoga=0
			 set odetsarafan=0
			 set odetshort=0
			 set odetskirt=0
			 set odetdress=0
			 set odetprofi=0
			 set odetpants=0
			 set odetlatex=0
			 set odethooker=0
			 set odetkis=0
			 set odetnewclo=0
			 set odetero=0
			 set vatnik=0
			 set glamur = 0
			 set sport = 0
			 set ski = 0
			 set hook = 0
			 set ofclo = 0
			 set sexual = 0
			 if cumfrot > 0:set cumfrot = 0
			 set nude = 0
			 set odevnesh = 1
			 gt'loker','start'
			 end
		 end
	 if jeansH[numdres] <= 0:
		 'This thing is worn and is not suitable for further wear.'
		 set jeans[numdres] = 0
		 set jeansH[numdres] = 0
		 set nude = 1
		 act 'Select another thing':gt'loker','start'
		 end
	 if jeansB[numdres] < bedra - 8 or jeansB[numdres] > bedra + 8:
		 'This thing is you no longer have the right size and not suitable for further wear.'
		 act 'Select another thing':gt'loker','start'
		 end
	 end
end

if $ARGS[0]='yoga':
cla
'<center><img src="ode/yoga<<numdres>>.jpg" ></center>'
'(remaining strength <<yogaH[numdres]>>)'
if mag=1:
	 'price <<payclo>>'
	 act 'remove item.':GOTO $loc, $metka
	 if yoga[numdres]=0 and money>=payclo:
		 act 'buy':
			 money-=payclo
			 yoga[numdres]=1
			 yogaH[numdres]=80
			 GOTO $loc, $metka
			 end
		 end
	 end
if mag=0:
	 act 'In the closet':gt'loker','start'
	 if yogaH[numdres] > 0:
		 act 'Put_On':
			 set numdress=numdres
			 set odetjeans=0
			 set odetyoga=1
			 set odetsarafan=0
			 set odetshort=0
			 set odetskirt=0
			 set odetdress=0
			 set odetprofi=0
			 set odetpants=0
			 set odetlatex=0
			 set odethooker=0
			 set odetkis=0
			 set odetnewclo=0
			 set odetero=0
			 set vatnik=0
			 set glamur = 0
			 set sport = 1
			 set ski = 0
			 set hook = 0
			 set ofclo = 0
			 set sexual = 0
			 if cumfrot > 0:set cumfrot = 0
			 set nude = 0
			 set odevnesh = 1
			 gt'loker','start'
			 end
		 end
	 if yogaH[numdres] <= 0:
		 'This thing is worn and is not suitable for further wear.'
		 set yoga[numdres] = 0
		 set yogaH[numdres] = 0
		 set nude = 1
		 act 'Select another thing':gt'loker','start'
		 end
	 end
end

if $ARGS[0]='sarafan':
cla
'<center><img src="ode/sarafan<<numdres>>.jpg" ></center>'
'(remaining strength <<sarafanH[numdres]>>'
act 'In the closet':gt'loker','start'
if sarafanH[numdres] > 0:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=1
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 1
		 set hook = 0
		 set ofclo = 0
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 1
		 gt'loker','start'
		 end
	 end
if sarafanH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set sarafan[numdres] = 0
	 set sarafanH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='short':
cla
'<center><img src="ode/short<<numdres>>.jpg" ></center>'
'(remaining strength <<shortH[numdres]>>, The size of the hips <<shortB[numdres]>>)'
act 'In the closet':gt'loker','start'
if shortH[numdres] > 0 and shortB[numdres] >= bedra - 8 and shortB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=1
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 0
		 set hook = 0
		 set ofclo = 0
		 set sexual = 0
		 set cumfrot = 0
		 set nude = 0
		 set odevnesh = 2
		 gt'loker','start'
		 end
	 end
if shortH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set short[numdres] = 0
	 set shortH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if shortB[numdres] < bedra - 8 or shortB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='skirt':
cla
'<center><img src="ode/skirt<<numdres>>.jpg" ></center>'
'(remaining strength <<skirtH[numdres]>>, The size of the hips <<skirtB[numdres]>>)'
act 'In the closet':gt'loker','start'
if skirtH[numdres] > 0 and skirtB[numdres] >= bedra - 8 and skirtB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=1
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 1
		 set hook = 0
		 set ofclo = 0
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 5
		 gt'loker','start'
		 end
	 end
if skirtH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set skirt[numdres] = 0
	 set skirtH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if skirtB[numdres] < bedra - 8 or skirtB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='dress':
cla
'<center><img src="ode/dress<<numdres>>.jpg" ></center>'
'(remaining strength <<dressH[numdres]>>, The size of the hips <<dressB[numdres]>>)'
if mag=1:
	 'price <<payclo>>'
	 act 'remove item.':GOTO $loc, $metka
	 if dress[numdres]=0 and money>=payclo:
		 act 'buy':
			 money-=payclo
			 dress[numdres]=1
			 dressH[numdres]=160
			 dressB[numdres]=bedra
			 GOTO $loc, $metka
			 end
		 end
	 end
if mag=0:
	 act 'In the closet':gt'loker','start'
	 if dressH[numdres] > 0 and dressB[numdres] >= bedra - 8 and dressB[numdres] <= bedra + 8:
		 act 'Put_On':
			 set numdress=numdres
			 set odetjeans=0
			 set odetyoga=0
			 set odetsarafan=0
			 set odetshort=0
			 set odetskirt=0
			 set odetdress=1
			 set odetprofi=0
			 set odetpants=0
			 set odetlatex=0
			 set odethooker=0
			 set odetkis=0
			 set odetnewclo=0
			 set odetero=0
			 set vatnik=0
			 set glamur = 1
			 set sport = 0
			 set ski = 0
			 set hook = 0
			 set ofclo = 0
			 set sexual = 0
			 if cumfrot > 0:set cumfrot = 0
			 set nude = 0
			 set odevnesh = 10
			 gt'loker','start'
			 end
		 end
	 if dressH[numdres] <= 0:
		 'This thing is worn and is not suitable for further wear.'
		 set dress[numdres] = 0
		 set dressH[numdres] = 0
		 set nude = 1
		 act 'Select another thing':gt'loker','start'
		 end
	 if dressB[numdres] < bedra - 8 or dressB[numdres] > bedra + 8:
		 'This thing is you no longer have the right size and not suitable for further wear.'
		 act 'Select another thing':gt'loker','start'
		 end
	 end
end

if $ARGS[0]='profi':
cla
'<center><img src="ode/profi<<numdres>>.jpg" ></center>'
'(remaining strength <<profiH[numdres]>>, The size of the hips <<profiB[numdres]>>)'
act 'In the closet':gt'loker','start'
if profiH[numdres] > 0 and profiB[numdres] >= bedra - 8 and profiB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=1
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 0
		 set hook = 0
		 set ofclo = 1
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 5
		 gt'loker','start'
		 end
	 end
if profiH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set profi[numdres] = 0
	 set profiH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if profiB[numdres] < bedra - 8 or profiB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='pants':
cla
'<center><img src="ode/pants<<numdres>>.jpg" ></center>'
'(remaining strength <<pantsH[numdres]>>, The size of the hips <<pantsB[numdres]>>)'
act 'In the closet':gt'loker','start'
if pantsH[numdres] > 0 and pantsB[numdres] >= bedra - 8 and pantsB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=1
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 0
		 set hook = 0
		 set ofclo = 0
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 3
		 gt'loker','start'
		 end
	 end
if pantsH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set pants[numdres] = 0
	 set pantsH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if pantsB[numdres] < bedra - 8 or pantsB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='latex':
cla
'<center><img src="ode/latex<<numdres>>.jpg" ></center>'
'(remaining strength <<latexH[numdres]>>, The size of the hips <<latexB[numdres]>>)'
act 'In the closet':gt'loker','start'
if latexH[numdres] > 0 and latexB[numdres] >= bedra - 8 and latexB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=1
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 0
		 set hook = 0
		 set ofclo = 0
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 1
		 gt'loker','start'
		 end
	 end
if latexH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set latex[numdres] = 0
	 set latexH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if latexB[numdres] < bedra - 8 or latexB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='hooker':
cla
'<center><img src="ode/hooker<<numdres>>.jpg" ></center>'
'(remaining strength <<hookerH[numdres]>>, The size of the hips <<hookerB[numdres]>>)'
act 'In the closet':gt'loker','start'
if hookerH[numdres] > 0 and hookerB[numdres] >= bedra - 8 and hookerB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=1
		 set odetkis=0
		 set odetnewclo=0
		 set odetero=0
		 set vatnik=0
		 set glamur = 0
		 set sport = 0
		 set ski = 0
		 set hook = 1
		 set ofclo = 0
		 set sexual = 0
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 1
		 gt'loker','start'
		 end
	 end
if hookerH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set hooker[numdres] = 0
	 set hookerH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if hookerB[numdres] < bedra - 8 or hookerB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='odekis':
cla
'<center><img src="kis/k<<numdres>>.jpg" ></center>'
'(remaining strength <<odekisH[numdres]>>, The size of the hips <<odekisB[numdres]>>)'
if mag=1:
	 'price <<payclo>>'
	 act 'remove item.':GOTO $loc, $metka
	 if odekis[numdres]=0 and money>=payclo:
		 act 'buy':
			 money-=payclo
			 odekis[numdres]=1
			 odekisH[numdres]=100
			 odekisB[numdres]=bedra
			 GOTO $loc, $metka
			 end
		 end
	 end
if mag=0:
	 act 'In the closet':gt'loker','start'
	 if odekisH[numdres] > 0 and odekisB[numdres] >= bedra - 8 and odekisB[numdres] <= bedra + 8:
		 act 'Put_On':
			 set numdress=numdres
			 set odetjeans=0
			 set odetyoga=0
			 set odetsarafan=0
			 set odetshort=0
			 set odetskirt=0
			 set odetdress=0
			 set odetprofi=0
			 set odetpants=0
			 set odetlatex=0
			 set odethooker=0
			 set odetkis=1
			 set odetnewclo=0
			 set odetero=0
			 set vatnik=0
			 set glamur = 1
			 set sport = 0
			 set ski = 0
			 set hook = 0
			 set ofclo = 0
			 set sexual = 1
			 		 Sforma = 0
			 if cumfrot > 0:set cumfrot = 0
			 set nude = 0
			 set odevnesh = 5
			 gt'loker','start'
			 end
		 end
	 if odekisH[numdres] <= 0:
		 'This thing is worn and is not suitable for further wear.'
		 set odekis[numdres] = 0
		 set odekisH[numdres] = 0
		 set nude = 1
		 act 'Select another thing':gt'loker','start'
		 end
	 if odekisB[numdres] < bedra - 8 or odekisB[numdres] > bedra + 8:
		 'This thing is you no longer have the right size and not suitable for further wear.'
		 act 'Select another thing':gt'loker','start'
		 end
	 end
end

if $ARGS[0]='newclo':
cla
if numdres=131:newcloB[131] = bedra&newcloH[131]=100
'<center><img src="ode/newclo/<<numdres>>.jpg" ></center>'
'(remaining strength <<newcloH[numdres]>>, The size of the hips <<newcloB[numdres]>>)'
act 'In the closet':gt'loker','start'
if newcloH[numdres] > 0 and newcloB[numdres] >= bedra - 8 and newcloB[numdres] <= bedra + 8:
	 act 'Put_On':
		 set numdress=numdres
		 set odetjeans=0
		 set odetyoga=0
		 set odetsarafan=0
		 set odetshort=0
		 set odetskirt=0
		 set odetdress=0
		 set odetprofi=0
		 set odetpants=0
		 set odetlatex=0
		 set odethooker=0
		 set odetkis=0
		 set odetnewclo=1
		 set odetero=0
		 set vatnik=0
		 set glamur = 1
		 set sport = 0
		 set ski = 0
		 Sforma = 0
		 
		 if numdress<90:set ski = 1
		 if numdress=131:set Sforma = 1&glamur=0&ski = 1
		 set hook = 0
		 set ofclo = 0
		 set sexual = 1
		 if cumfrot > 0:set cumfrot = 0
		 set nude = 0
		 set odevnesh = 5
		 gt'loker','start'
		 end
	 end
if newcloH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set newclo[numdres] = 0
	 set newcloH[numdres] = 0
	 set nude = 1
	 act 'Select another thing':gt'loker','start'
	 end
if newcloB[numdres] < bedra - 8 or newcloB[numdres] > bedra + 8:
	 'This thing is you no longer have the right size and not suitable for further wear.'
	 act 'Select another thing':gt'loker','start'
	 end
end

if $ARGS[0]='vatnik':
cla
'<center><img src="ode/vatnik.jpg" ></center>'
'rustic tattered jacket.'
act 'In the closet':gt'loker','start'
act 'Put_On':
	 set numdress=0
	 set odetjeans=0
	 set odetyoga=0
	 set odetsarafan=0
	 set odetshort=0
	 set odetskirt=0
	 set odetdress=0
	 set odetprofi=0
	 set odetpants=0
	 set odetlatex=0
	 set odethooker=0
	 set odetkis=0
	 set odetnewclo=0
	 set odetero=0
	 set glamur = 0
	 set sport = 0
	 set ski = 0
	 set hook = 0
	 set ofclo = 0
	 set sexual = 0
	 set cumfrot = 0
	 set nude = 0
	 set vatnik = 2
	 set odevnesh = -10
	 gt'loker','start'
	 end
end

if $ARGS[0]='fin':
gt $locM, $metkaM
end
--- loker ---------------------------------

# loker2
if $ARGS[0]='start':
gs'stat'
cla

if odetjeans=1 and numdress!1 and jeans[1]=1 or odetjeans=0 and jeans[1]=1:'jeans 1 (remaining strength <<jeansH[1]>> , The size of the hips <<jeansB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!2 and jeans[2]=1 or odetjeans=0 and jeans[2]=1:'jeans 2 (remaining strength <<jeansH[2]>> , The size of the hips <<jeansB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!3 and jeans[3]=1 or odetjeans=0 and jeans[3]=1:'jeans 3 (remaining strength <<jeansH[3]>> , The size of the hips <<jeansB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!4 and jeans[4]=1 or odetjeans=0 and jeans[4]=1:'jeans 4 (remaining strength <<jeansH[4]>> , The size of the hips <<jeansB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!5 and jeans[5]=1 or odetjeans=0 and jeans[5]=1:'jeans 5 (remaining strength <<jeansH[5]>> , The size of the hips <<jeansB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''jeans''">pass</a>'

if odetyoga=1 and numdress!1 and yoga[1]=1 or odetyoga=0 and yoga[1]=1:'sportswear 1(remaining strength <<yogaH[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!2 and yoga[2]=1 or odetyoga=0 and yoga[2]=1:'sportswear 2(remaining strength <<yogaH[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!3 and yoga[3]=1 or odetyoga=0 and yoga[3]=1:'sportswear 3(remaining strength <<yogaH[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!4 and yoga[4]=1 or odetyoga=0 and yoga[4]=1:'sportswear 4(remaining strength <<yogaH[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!5 and yoga[5]=1 or odetyoga=0 and yoga[5]=1:'sportswear 5(remaining strength <<yogaH[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!6 and yoga[6]=1 or odetyoga=0 and yoga[6]=1:'sportswear 6(remaining strength <<yogaH[6]>>) <a href="exec:set numdres=6&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!7 and yoga[7]=1 or odetyoga=0 and yoga[7]=1:'sportswear 7(remaining strength <<yogaH[7]>>) <a href="exec:set numdres=7&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!8 and yoga[8]=1 or odetyoga=0 and yoga[8]=1:'sportswear 8(remaining strength <<yogaH[8]>>) <a href="exec:set numdres=8&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!9 and yoga[9]=1 or odetyoga=0 and yoga[9]=1:'sportswear 9(remaining strength <<yogaH[9]>>) <a href="exec:set numdres=9&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!10 and yoga[10]=1 or odetyoga=0 and yoga[10]=1:'sportswear 10(remaining strength <<yogaH[10]>>) <a href="exec:set numdres=10&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!11 and yoga[11]=1 or odetyoga=0 and yoga[11]=1:'sportswear 11(remaining strength <<yogaH[11]>>) <a href="exec:set numdres=11&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!12 and yoga[12]=1 or odetyoga=0 and yoga[12]=1:'sportswear 12(remaining strength <<yogaH[12]>>) <a href="exec:set numdres=12&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!13 and yoga[13]=1 or odetyoga=0 and yoga[13]=1:'sportswear 13(remaining strength <<yogaH[13]>>) <a href="exec:set numdres=13&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!14 and yoga[14]=1 or odetyoga=0 and yoga[14]=1:'sportswear 14(remaining strength <<yogaH[14]>>) <a href="exec:set numdres=14&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!15 and yoga[15]=1 or odetyoga=0 and yoga[15]=1:'sportswear 15(remaining strength <<yogaH[15]>>) <a href="exec:set numdres=15&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!16 and yoga[16]=1 or odetyoga=0 and yoga[16]=1:'sportswear 16(remaining strength <<yogaH[16]>>) <a href="exec:set numdres=16&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!17 and yoga[17]=1 or odetyoga=0 and yoga[17]=1:'sportswear 17(remaining strength <<yogaH[17]>>) <a href="exec:set numdres=17&GT ''loker2'',''yoga''">pass</a>'
if odetyoga=1 and numdress!18 and yoga[18]=1 or odetyoga=0 and yoga[18]=1:'sportswear 18(remaining strength <<yogaH[18]>>) <a href="exec:set numdres=18&GT ''loker2'',''yoga''">pass</a>'

if odetsarafan=1 and numdress!1 and sarafan[1]=1 or odetsarafan=0 and sarafan[1]=1:'colorful, free sundress (remaining strength <<sarafanH[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''sarafan''">pass</a>'
if odetsarafan=1 and numdress!2 and sarafan[2]=1 or odetsarafan=0 and sarafan[2]=1:'light, free sundress (remaining strength <<sarafanH[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''sarafan''">pass</a>'

if odetshort=1 and numdress!1 and short[1]=1 or odetshort=0 and short[1]=1:'Black shorts with a purple T-shirt (remaining strength <<shortH[1]>>, The size of the hips <<shortB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!2 and short[2]=1 or odetshort=0 and short[2]=1:'Black shorts with striped T-shirt (remaining strength <<shortH[2]>>, The size of the hips <<shortB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!3 and short[3]=1 or odetshort=0 and short[3]=1:'Black shorts with a black T-shirt (remaining strength <<shortH[3]>>, The size of the hips <<shortB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!4 and short[4]=1 or odetshort=0 and short[4]=1:'Pink shorts with pink favorite topics (remaining strength <<shortH[4]>>, The size of the hips <<shortB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!5 and short[5]=1 or odetshort=0 and short[5]=1:'Sexy white shorts (remaining strength <<shortH[5]>>, The size of the hips <<shortB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''short''">pass</a>'

if odetskirt=1 and numdress!1 and skirt[1]=1 or odetskirt=0 and skirt[1]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[1]>>, The size of the hips <<skirtB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!2 and skirt[2]=1 or odetskirt=0 and skirt[2]=1:'Black leather skirt with a red jacket (remaining strength <<skirtH[2]>>, The size of the hips <<skirtB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!3 and skirt[3]=1 or odetskirt=0 and skirt[3]=1:'White skirt with a striped blouse (remaining strength <<skirtH[3]>>, The size of the hips <<skirtB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!4 and skirt[4]=1 or odetskirt=0 and skirt[4]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[4]>>, The size of the hips <<skirtB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!5 and skirt[5]=1 or odetskirt=0 and skirt[5]=1:'Black leather skirt with a red blouse (remaining strength <<skirtH[5]>>, The size of the hips <<skirtB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''skirt''">pass</a>'

if odetdress=1 and numdress!1 and dress[1]=1 or odetdress=0 and dress[1]=1:'Black dress (remaining strength <<dressH[1]>>, The size of the hips <<dressB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!2 and dress[2]=1 or odetdress=0 and dress[2]=1:'yellow dress (remaining strength <<dressH[2]>>, The size of the hips <<dressB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!3 and dress[3]=1 or odetdress=0 and dress[3]=1:'blue dress (remaining strength <<dressH[3]>>, The size of the hips <<dressB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!4 and dress[4]=1 or odetdress=0 and dress[4]=1:'Black short dress (remaining strength <<dressH[4]>>, The size of the hips <<dressB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!5 and dress[5]=1 or odetdress=0 and dress[5]=1:'Red long dress (remaining strength <<dressH[5]>>, The size of the hips <<dressB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!6 and dress[6]=1 or odetdress=0 and dress[6]=1:'Red polka dot dress (remaining strength <<dressH[6]>>, The size of the hips <<dressB[6]>>) <a href="exec:set numdres=6&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!7 and dress[7]=1 or odetdress=0 and dress[7]=1:'brown dress (remaining strength <<dressH[7]>>, The size of the hips <<dressB[7]>>) <a href="exec:set numdres=7&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!8 and dress[8]=1 or odetdress=0 and dress[8]=1:'dress 8(remaining strength <<dressH[8]>>, The size of the hips <<dressB[8]>>) <a href="exec:set numdres=8&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!9 and dress[9]=1 or odetdress=0 and dress[9]=1:'dress 9(remaining strength <<dressH[9]>>, The size of the hips <<dressB[9]>>) <a href="exec:set numdres=9&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!10 and dress[10]=1 or odetdress=0 and dress[10]=1:'dress 10(remaining strength <<dressH[10]>>, The size of the hips <<dressB[10]>>) <a href="exec:set numdres=10&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!11 and dress[11]=1 or odetdress=0 and dress[11]=1:'dress 11(remaining strength <<dressH[11]>>, The size of the hips <<dressB[11]>>) <a href="exec:set numdres=11&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!12 and dress[12]=1 or odetdress=0 and dress[12]=1:'dress 12(remaining strength <<dressH[12]>>, The size of the hips <<dressB[12]>>) <a href="exec:set numdres=12&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!13 and dress[13]=1 or odetdress=0 and dress[13]=1:'dress 13(remaining strength <<dressH[13]>>, The size of the hips <<dressB[13]>>) <a href="exec:set numdres=13&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!14 and dress[14]=1 or odetdress=0 and dress[14]=1:'dress 14(remaining strength <<dressH[14]>>, The size of the hips <<dressB[14]>>) <a href="exec:set numdres=14&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!15 and dress[15]=1 or odetdress=0 and dress[15]=1:'dress 15(remaining strength <<dressH[15]>>, The size of the hips <<dressB[15]>>) <a href="exec:set numdres=15&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!16 and dress[16]=1 or odetdress=0 and dress[16]=1:'dress 16(remaining strength <<dressH[16]>>, The size of the hips <<dressB[16]>>) <a href="exec:set numdres=16&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!17 and dress[17]=1 or odetdress=0 and dress[17]=1:'dress 17(remaining strength <<dressH[17]>>, The size of the hips <<dressB[17]>>) <a href="exec:set numdres=17&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!18 and dress[18]=1 or odetdress=0 and dress[18]=1:'dress 18(remaining strength <<dressH[18]>>, The size of the hips <<dressB[18]>>) <a href="exec:set numdres=18&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!19 and dress[19]=1 or odetdress=0 and dress[19]=1:'dress 19(remaining strength <<dressH[19]>>, The size of the hips <<dressB[19]>>) <a href="exec:set numdres=19&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!20 and dress[20]=1 or odetdress=0 and dress[20]=1:'dress 20(remaining strength <<dressH[20]>>, The size of the hips <<dressB[20]>>) <a href="exec:set numdres=20&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!21 and dress[21]=1 or odetdress=0 and dress[21]=1:'dress 21(remaining strength <<dressH[21]>>, The size of the hips <<dressB[21]>>) <a href="exec:set numdres=21&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!22 and dress[22]=1 or odetdress=0 and dress[22]=1:'dress 22(remaining strength <<dressH[22]>>, The size of the hips <<dressB[22]>>) <a href="exec:set numdres=22&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!23 and dress[23]=1 or odetdress=0 and dress[23]=1:'dress 23(remaining strength <<dressH[23]>>, The size of the hips <<dressB[23]>>) <a href="exec:set numdres=23&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!24 and dress[24]=1 or odetdress=0 and dress[24]=1:'dress 24(remaining strength <<dressH[24]>>, The size of the hips <<dressB[24]>>) <a href="exec:set numdres=24&GT ''loker2'',''dress''">pass</a>'

if odetprofi=1 and numdress!1 and profi[1]=1 or odetprofi=0 and profi[1]=1:'office clothes 1(remaining strength <<profiH[1]>>, The size of the hips <<profiB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''profi''">pass</a>'
if odetprofi=1 and numdress!2 and profi[2]=1 or odetprofi=0 and profi[2]=1:'office clothes 2(remaining strength <<profiH[2]>>, The size of the hips <<profiB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''profi''">pass</a>'

if odetpants=1 and numdress!1 and pants[1]=1 or odetpants=0 and pants[1]=1:'Tight black leggings with black top (remaining strength <<pantsH[1]>>, The size of the hips <<pantsB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!2 and pants[2]=1 or odetpants=0 and pants[2]=1:'Tight black leggings with red blouse (remaining strength <<pantsH[2]>>, The size of the hips <<pantsB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!3 and pants[3]=1 or odetpants=0 and pants[3]=1:'Purple skintight leggings with black top (remaining strength <<pantsH[3]>>, The size of the hips <<pantsB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!4 and pants[4]=1 or odetpants=0 and pants[4]=1:'Black tight leggings with a black short topic (remaining strength <<pantsH[4]>>, The size of the hips <<pantsB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!5 and pants[5]=1 or odetpants=0 and pants[5]=1:'White skinny jeans with black top (remaining strength <<pantsH[5]>>, The size of the hips <<pantsB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''pants''">pass</a>'

if odetlatex=1 and numdress!1 and latex[1]=1 or odetlatex=0 and latex[1]=1:'Black latex jumpsuit (remaining strength <<latexH[1]>>, The size of the hips <<latexB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''latex''">pass</a>'
if odetlatex=1 and numdress!2 and latex[2]=1 or odetlatex=0 and latex[2]=1:'Purple latex dress (remaining strength <<latexH[2]>>, The size of the hips <<latexB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''latex''">pass</a>'

if odethooker=1 and numdress!1 and hooker[1]=1 or odethooker=0 and hooker[1]=1:'Prostitute outfit number1 (remaining strength <<hookerH[1]>>, The size of the hips <<hookerB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''hooker''">pass</a>'
if odethooker=1 and numdress!2 and hooker[2]=1 or odethooker=0 and hooker[2]=1:'Prostitute outfit number2 (remaining strength <<hookerH[2]>>, The size of the hips <<hookerB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''hooker''">pass</a>'
if odethooker=1 and numdress!3 and hooker[3]=1 or odethooker=0 and hooker[3]=1:'Prostitute outfit number3 (remaining strength <<hookerH[3]>>, The size of the hips <<hookerB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''hooker''">pass</a>'
if odethooker=1 and numdress!4 and hooker[4]=1 or odethooker=0 and hooker[4]=1:'Prostitute outfit number4 (remaining strength <<hookerH[4]>>, The size of the hips <<hookerB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''hooker''">pass</a>'
if odethooker=1 and numdress!5 and hooker[5]=1 or odethooker=0 and hooker[5]=1:'Prostitute outfit number5 (remaining strength <<hookerH[5]>>, The size of the hips <<hookerB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''hooker''">pass</a>'

if odetkis=1 and numdress!1 and odekis[1]=1 or odetkis=0 and odekis[1]=1:'Youth outfit number1 (remaining strength <<odekisH[1]>>, The size of the hips <<odekisB[1]>>) <a href="exec:set numdres=1&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!2 and odekis[2]=1 or odetkis=0 and odekis[2]=1:'Youth outfit number2 (remaining strength <<odekisH[2]>>, The size of the hips <<odekisB[2]>>) <a href="exec:set numdres=2&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!3 and odekis[3]=1 or odetkis=0 and odekis[3]=1:'Youth outfit number3 (remaining strength <<odekisH[3]>>, The size of the hips <<odekisB[3]>>) <a href="exec:set numdres=3&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!4 and odekis[4]=1 or odetkis=0 and odekis[4]=1:'Youth outfit number4 (remaining strength <<odekisH[4]>>, The size of the hips <<odekisB[4]>>) <a href="exec:set numdres=4&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!5 and odekis[5]=1 or odetkis=0 and odekis[5]=1:'Youth outfit number5 (remaining strength <<odekisH[5]>>, The size of the hips <<odekisB[5]>>) <a href="exec:set numdres=5&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!6 and odekis[6]=1 or odetkis=0 and odekis[6]=1:'Youth outfit number6 (remaining strength <<odekisH[6]>>, The size of the hips <<odekisB[6]>>) <a href="exec:set numdres=6&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!7 and odekis[7]=1 or odetkis=0 and odekis[7]=1:'Youth outfit number7 (remaining strength <<odekisH[7]>>, The size of the hips <<odekisB[7]>>) <a href="exec:set numdres=7&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!8 and odekis[8]=1 or odetkis=0 and odekis[8]=1:'Youth outfit number8 (remaining strength <<odekisH[8]>>, The size of the hips <<odekisB[8]>>) <a href="exec:set numdres=8&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!9 and odekis[9]=1 or odetkis=0 and odekis[9]=1:'Youth outfit number9 (remaining strength <<odekisH[9]>>, The size of the hips <<odekisB[9]>>) <a href="exec:set numdres=9&GT ''loker2'',''odekis''">pass</a>'
if odetkis=1 and numdress!10 and odekis[10]=1 or odetkis=0 and odekis[10]=1:'Youth outfit number10 (remaining strength <<odekisH[10]>>, The size of the hips <<odekisB[10]>>) <a href="exec:set numdres=10&GT ''loker2'',''odekis''">pass</a>'

if odetnewclo=1 and numdress!1 and newclo[1]=1 or odetnewclo=0 and newclo[1]=1:'Clothing from Fashionistas number1 (remaining strength <<newcloH[1]>>, The size of the hips <<newcloB[1]>>) <a href="exec:numdres=1&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!2 and newclo[2]=1 or odetnewclo=0 and newclo[2]=1:'Clothing from Fashionistas number2 (remaining strength <<newcloH[2]>>, The size of the hips <<newcloB[2]>>) <a href="exec:numdres=2&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!3 and newclo[3]=1 or odetnewclo=0 and newclo[3]=1:'Clothing from Fashionistas number3 (remaining strength <<newcloH[3]>>, The size of the hips <<newcloB[3]>>) <a href="exec:numdres=3&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!4 and newclo[4]=1 or odetnewclo=0 and newclo[4]=1:'Clothing from Fashionistas number4 (remaining strength <<newcloH[4]>>, The size of the hips <<newcloB[4]>>) <a href="exec:numdres=4&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!5 and newclo[5]=1 or odetnewclo=0 and newclo[5]=1:'Clothing from Fashionistas number5 (remaining strength <<newcloH[5]>>, The size of the hips <<newcloB[5]>>) <a href="exec:numdres=5&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!6 and newclo[6]=1 or odetnewclo=0 and newclo[6]=1:'Clothing from Fashionistas number6 (remaining strength <<newcloH[6]>>, The size of the hips <<newcloB[6]>>) <a href="exec:numdres=6&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!7 and newclo[7]=1 or odetnewclo=0 and newclo[7]=1:'Clothing from Fashionistas number7 (remaining strength <<newcloH[7]>>, The size of the hips <<newcloB[7]>>) <a href="exec:numdres=7&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!8 and newclo[8]=1 or odetnewclo=0 and newclo[8]=1:'Clothing from Fashionistas number8 (remaining strength <<newcloH[8]>>, The size of the hips <<newcloB[8]>>) <a href="exec:numdres=8&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!9 and newclo[9]=1 or odetnewclo=0 and newclo[9]=1:'Clothing from Fashionistas number9 (remaining strength <<newcloH[9]>>, The size of the hips <<newcloB[9]>>) <a href="exec:numdres=9&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!10 and newclo[10]=1 or odetnewclo=0 and newclo[10]=1:'Clothing from Fashionistas number10 (remaining strength <<newcloH[10]>>, The size of the hips <<newcloB[10]>>) <a href="exec:numdres=10&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!11 and newclo[11]=1 or odetnewclo=0 and newclo[11]=1:'Clothing from Fashionistas number11 (remaining strength <<newcloH[11]>>, The size of the hips <<newcloB[11]>>) <a href="exec:numdres=11&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!12 and newclo[12]=1 or odetnewclo=0 and newclo[12]=1:'Clothing from Fashionistas number12 (remaining strength <<newcloH[12]>>, The size of the hips <<newcloB[12]>>) <a href="exec:numdres=12&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!13 and newclo[13]=1 or odetnewclo=0 and newclo[13]=1:'Clothing from Fashionistas number13 (remaining strength <<newcloH[13]>>, The size of the hips <<newcloB[13]>>) <a href="exec:numdres=13&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!14 and newclo[14]=1 or odetnewclo=0 and newclo[14]=1:'Clothing from Fashionistas number14 (remaining strength <<newcloH[14]>>, The size of the hips <<newcloB[14]>>) <a href="exec:numdres=14&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!15 and newclo[15]=1 or odetnewclo=0 and newclo[15]=1:'Clothing from Fashionistas number15 (remaining strength <<newcloH[15]>>, The size of the hips <<newcloB[15]>>) <a href="exec:numdres=15&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!16 and newclo[16]=1 or odetnewclo=0 and newclo[16]=1:'Clothing from Fashionistas number16 (remaining strength <<newcloH[16]>>, The size of the hips <<newcloB[16]>>) <a href="exec:numdres=16&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!17 and newclo[17]=1 or odetnewclo=0 and newclo[17]=1:'Clothing from Fashionistas number17 (remaining strength <<newcloH[17]>>, The size of the hips <<newcloB[17]>>) <a href="exec:numdres=17&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!18 and newclo[18]=1 or odetnewclo=0 and newclo[18]=1:'Clothing from Fashionistas number18 (remaining strength <<newcloH[18]>>, The size of the hips <<newcloB[18]>>) <a href="exec:numdres=18&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!19 and newclo[19]=1 or odetnewclo=0 and newclo[19]=1:'Clothing from Fashionistas number19 (remaining strength <<newcloH[19]>>, The size of the hips <<newcloB[19]>>) <a href="exec:numdres=19&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!20 and newclo[20]=1 or odetnewclo=0 and newclo[20]=1:'Clothing from Fashionistas number20 (remaining strength <<newcloH[20]>>, The size of the hips <<newcloB[20]>>) <a href="exec:numdres=20&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!21 and newclo[21]=1 or odetnewclo=0 and newclo[21]=1:'Clothing from Fashionistas number21 (remaining strength <<newcloH[21]>>, The size of the hips <<newcloB[21]>>) <a href="exec:numdres=21&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!22 and newclo[22]=1 or odetnewclo=0 and newclo[22]=1:'Clothing from Fashionistas number22 (remaining strength <<newcloH[22]>>, The size of the hips <<newcloB[22]>>) <a href="exec:numdres=22&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!23 and newclo[23]=1 or odetnewclo=0 and newclo[23]=1:'Clothing from Fashionistas number23 (remaining strength <<newcloH[23]>>, The size of the hips <<newcloB[23]>>) <a href="exec:numdres=23&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!24 and newclo[24]=1 or odetnewclo=0 and newclo[24]=1:'Clothing from Fashionistas number24 (remaining strength <<newcloH[24]>>, The size of the hips <<newcloB[24]>>) <a href="exec:numdres=24&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!25 and newclo[25]=1 or odetnewclo=0 and newclo[25]=1:'Clothing from Fashionistas number25 (remaining strength <<newcloH[25]>>, The size of the hips <<newcloB[25]>>) <a href="exec:numdres=25&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!26 and newclo[26]=1 or odetnewclo=0 and newclo[26]=1:'Clothing from Fashionistas number26 (remaining strength <<newcloH[26]>>, The size of the hips <<newcloB[26]>>) <a href="exec:numdres=26&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!27 and newclo[27]=1 or odetnewclo=0 and newclo[27]=1:'Clothing from Fashionistas number27 (remaining strength <<newcloH[27]>>, The size of the hips <<newcloB[27]>>) <a href="exec:numdres=27&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!28 and newclo[28]=1 or odetnewclo=0 and newclo[28]=1:'Clothing from Fashionistas number28 (remaining strength <<newcloH[28]>>, The size of the hips <<newcloB[28]>>) <a href="exec:numdres=28&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!29 and newclo[29]=1 or odetnewclo=0 and newclo[29]=1:'Clothing from Fashionistas number29 (remaining strength <<newcloH[29]>>, The size of the hips <<newcloB[29]>>) <a href="exec:numdres=29&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!30 and newclo[30]=1 or odetnewclo=0 and newclo[30]=1:'Clothing from Fashionistas number30 (remaining strength <<newcloH[30]>>, The size of the hips <<newcloB[30]>>) <a href="exec:numdres=30&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!31 and newclo[31]=1 or odetnewclo=0 and newclo[31]=1:'Clothing from Fashionistas number31 (remaining strength <<newcloH[31]>>, The size of the hips <<newcloB[31]>>) <a href="exec:numdres=31&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!32 and newclo[32]=1 or odetnewclo=0 and newclo[32]=1:'Clothing from Fashionistas number32 (remaining strength <<newcloH[32]>>, The size of the hips <<newcloB[32]>>) <a href="exec:numdres=32&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!33 and newclo[33]=1 or odetnewclo=0 and newclo[33]=1:'Clothing from Fashionistas number33 (remaining strength <<newcloH[33]>>, The size of the hips <<newcloB[33]>>) <a href="exec:numdres=33&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!34 and newclo[34]=1 or odetnewclo=0 and newclo[34]=1:'Clothing from Fashionistas number34 (remaining strength <<newcloH[34]>>, The size of the hips <<newcloB[34]>>) <a href="exec:numdres=34&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!35 and newclo[35]=1 or odetnewclo=0 and newclo[35]=1:'Clothing from Fashionistas number35 (remaining strength <<newcloH[35]>>, The size of the hips <<newcloB[35]>>) <a href="exec:numdres=35&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!36 and newclo[36]=1 or odetnewclo=0 and newclo[36]=1:'Clothing from Fashionistas number36 (remaining strength <<newcloH[36]>>, The size of the hips <<newcloB[36]>>) <a href="exec:numdres=36&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!37 and newclo[37]=1 or odetnewclo=0 and newclo[37]=1:'Clothing from Fashionistas number37 (remaining strength <<newcloH[37]>>, The size of the hips <<newcloB[37]>>) <a href="exec:numdres=37&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!38 and newclo[38]=1 or odetnewclo=0 and newclo[38]=1:'Clothing from Fashionistas number38 (remaining strength <<newcloH[38]>>, The size of the hips <<newcloB[38]>>) <a href="exec:numdres=38&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!39 and newclo[39]=1 or odetnewclo=0 and newclo[39]=1:'Clothing from Fashionistas number39 (remaining strength <<newcloH[39]>>, The size of the hips <<newcloB[39]>>) <a href="exec:numdres=39&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!40 and newclo[40]=1 or odetnewclo=0 and newclo[40]=1:'Clothing from Fashionistas number40 (remaining strength <<newcloH[40]>>, The size of the hips <<newcloB[40]>>) <a href="exec:numdres=40&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!41 and newclo[41]=1 or odetnewclo=0 and newclo[41]=1:'Clothing from Fashionistas number41 (remaining strength <<newcloH[41]>>, The size of the hips <<newcloB[41]>>) <a href="exec:numdres=41&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!42 and newclo[42]=1 or odetnewclo=0 and newclo[42]=1:'Clothing from Fashionistas number42 (remaining strength <<newcloH[42]>>, The size of the hips <<newcloB[42]>>) <a href="exec:numdres=42&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!43 and newclo[43]=1 or odetnewclo=0 and newclo[43]=1:'Clothing from Fashionistas number43 (remaining strength <<newcloH[43]>>, The size of the hips <<newcloB[43]>>) <a href="exec:numdres=43&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!44 and newclo[44]=1 or odetnewclo=0 and newclo[44]=1:'Clothing from Fashionistas number44 (remaining strength <<newcloH[44]>>, The size of the hips <<newcloB[44]>>) <a href="exec:numdres=44&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!45 and newclo[45]=1 or odetnewclo=0 and newclo[45]=1:'Clothing from Fashionistas number45 (remaining strength <<newcloH[45]>>, The size of the hips <<newcloB[45]>>) <a href="exec:numdres=45&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!46 and newclo[46]=1 or odetnewclo=0 and newclo[46]=1:'Clothing from Fashionistas number46 (remaining strength <<newcloH[46]>>, The size of the hips <<newcloB[46]>>) <a href="exec:numdres=46&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!47 and newclo[47]=1 or odetnewclo=0 and newclo[47]=1:'Clothing from Fashionistas number47 (remaining strength <<newcloH[47]>>, The size of the hips <<newcloB[47]>>) <a href="exec:numdres=47&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!48 and newclo[48]=1 or odetnewclo=0 and newclo[48]=1:'Clothing from Fashionistas number48 (remaining strength <<newcloH[48]>>, The size of the hips <<newcloB[48]>>) <a href="exec:numdres=48&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!49 and newclo[49]=1 or odetnewclo=0 and newclo[49]=1:'Clothing from Fashionistas number49 (remaining strength <<newcloH[49]>>, The size of the hips <<newcloB[49]>>) <a href="exec:numdres=49&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!50 and newclo[50]=1 or odetnewclo=0 and newclo[50]=1:'Clothing from Fashionistas number50 (remaining strength <<newcloH[50]>>, The size of the hips <<newcloB[50]>>) <a href="exec:numdres=50&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!51 and newclo[51]=1 or odetnewclo=0 and newclo[51]=1:'Clothing from Fashionistas number51 (remaining strength <<newcloH[51]>>, The size of the hips <<newcloB[51]>>) <a href="exec:numdres=51&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!52 and newclo[52]=1 or odetnewclo=0 and newclo[52]=1:'Clothing from Fashionistas number52 (remaining strength <<newcloH[52]>>, The size of the hips <<newcloB[52]>>) <a href="exec:numdres=52&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!53 and newclo[53]=1 or odetnewclo=0 and newclo[53]=1:'Clothing from Fashionistas number53 (remaining strength <<newcloH[53]>>, The size of the hips <<newcloB[53]>>) <a href="exec:numdres=53&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!54 and newclo[54]=1 or odetnewclo=0 and newclo[54]=1:'Clothing from Fashionistas number54 (remaining strength <<newcloH[54]>>, The size of the hips <<newcloB[54]>>) <a href="exec:numdres=54&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!55 and newclo[55]=1 or odetnewclo=0 and newclo[55]=1:'Clothing from Fashionistas number55 (remaining strength <<newcloH[55]>>, The size of the hips <<newcloB[55]>>) <a href="exec:numdres=55&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!56 and newclo[56]=1 or odetnewclo=0 and newclo[56]=1:'Clothing from Fashionistas number56 (remaining strength <<newcloH[56]>>, The size of the hips <<newcloB[56]>>) <a href="exec:numdres=56&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!57 and newclo[57]=1 or odetnewclo=0 and newclo[57]=1:'Clothing from Fashionistas number57 (remaining strength <<newcloH[57]>>, The size of the hips <<newcloB[57]>>) <a href="exec:numdres=57&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!58 and newclo[58]=1 or odetnewclo=0 and newclo[58]=1:'Clothing from Fashionistas number58 (remaining strength <<newcloH[58]>>, The size of the hips <<newcloB[58]>>) <a href="exec:numdres=58&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!59 and newclo[59]=1 or odetnewclo=0 and newclo[59]=1:'Clothing from Fashionistas number59 (remaining strength <<newcloH[59]>>, The size of the hips <<newcloB[59]>>) <a href="exec:numdres=59&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!60 and newclo[60]=1 or odetnewclo=0 and newclo[60]=1:'Clothing from Fashionistas number60 (remaining strength <<newcloH[60]>>, The size of the hips <<newcloB[60]>>) <a href="exec:numdres=60&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!61 and newclo[61]=1 or odetnewclo=0 and newclo[61]=1:'Clothing from Fashionistas number61 (remaining strength <<newcloH[61]>>, The size of the hips <<newcloB[61]>>) <a href="exec:numdres=61&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!62 and newclo[62]=1 or odetnewclo=0 and newclo[62]=1:'Clothing from Fashionistas number62 (remaining strength <<newcloH[62]>>, The size of the hips <<newcloB[62]>>) <a href="exec:numdres=62&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!63 and newclo[63]=1 or odetnewclo=0 and newclo[63]=1:'Clothing from Fashionistas number63 (remaining strength <<newcloH[63]>>, The size of the hips <<newcloB[63]>>) <a href="exec:numdres=63&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!64 and newclo[64]=1 or odetnewclo=0 and newclo[64]=1:'Clothing from Fashionistas number64 (remaining strength <<newcloH[64]>>, The size of the hips <<newcloB[64]>>) <a href="exec:numdres=64&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!65 and newclo[65]=1 or odetnewclo=0 and newclo[65]=1:'Clothing from Fashionistas number65 (remaining strength <<newcloH[65]>>, The size of the hips <<newcloB[65]>>) <a href="exec:numdres=65&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!66 and newclo[66]=1 or odetnewclo=0 and newclo[66]=1:'Clothing from Fashionistas number66 (remaining strength <<newcloH[66]>>, The size of the hips <<newcloB[66]>>) <a href="exec:numdres=66&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!67 and newclo[67]=1 or odetnewclo=0 and newclo[67]=1:'Clothing from Fashionistas number67 (remaining strength <<newcloH[67]>>, The size of the hips <<newcloB[67]>>) <a href="exec:numdres=67&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!68 and newclo[68]=1 or odetnewclo=0 and newclo[68]=1:'Clothing from Fashionistas number68 (remaining strength <<newcloH[68]>>, The size of the hips <<newcloB[68]>>) <a href="exec:numdres=68&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!69 and newclo[69]=1 or odetnewclo=0 and newclo[69]=1:'Clothing from Fashionistas number69 (remaining strength <<newcloH[69]>>, The size of the hips <<newcloB[69]>>) <a href="exec:numdres=69&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!70 and newclo[70]=1 or odetnewclo=0 and newclo[70]=1:'Clothing from Fashionistas number70 (remaining strength <<newcloH[70]>>, The size of the hips <<newcloB[70]>>) <a href="exec:numdres=70&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!71 and newclo[71]=1 or odetnewclo=0 and newclo[71]=1:'Clothing from Fashionistas number71 (remaining strength <<newcloH[71]>>, The size of the hips <<newcloB[71]>>) <a href="exec:numdres=71&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!72 and newclo[72]=1 or odetnewclo=0 and newclo[72]=1:'Clothing from Fashionistas number72 (remaining strength <<newcloH[72]>>, The size of the hips <<newcloB[72]>>) <a href="exec:numdres=72&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!73 and newclo[73]=1 or odetnewclo=0 and newclo[73]=1:'Clothing from Fashionistas number73 (remaining strength <<newcloH[73]>>, The size of the hips <<newcloB[73]>>) <a href="exec:numdres=73&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!74 and newclo[74]=1 or odetnewclo=0 and newclo[74]=1:'Clothing from Fashionistas number74 (remaining strength <<newcloH[74]>>, The size of the hips <<newcloB[74]>>) <a href="exec:numdres=74&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!75 and newclo[75]=1 or odetnewclo=0 and newclo[75]=1:'Clothing from Fashionistas number75 (remaining strength <<newcloH[75]>>, The size of the hips <<newcloB[75]>>) <a href="exec:numdres=75&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!76 and newclo[76]=1 or odetnewclo=0 and newclo[76]=1:'Clothing from Fashionistas number76 (remaining strength <<newcloH[76]>>, The size of the hips <<newcloB[76]>>) <a href="exec:numdres=76&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!77 and newclo[77]=1 or odetnewclo=0 and newclo[77]=1:'Clothing from Fashionistas number77 (remaining strength <<newcloH[77]>>, The size of the hips <<newcloB[77]>>) <a href="exec:numdres=77&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!78 and newclo[78]=1 or odetnewclo=0 and newclo[78]=1:'Clothing from Fashionistas number78 (remaining strength <<newcloH[78]>>, The size of the hips <<newcloB[78]>>) <a href="exec:numdres=78&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!79 and newclo[79]=1 or odetnewclo=0 and newclo[79]=1:'Clothing from Fashionistas number79 (remaining strength <<newcloH[79]>>, The size of the hips <<newcloB[79]>>) <a href="exec:numdres=79&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!80 and newclo[80]=1 or odetnewclo=0 and newclo[80]=1:'Clothing from Fashionistas number80 (remaining strength <<newcloH[80]>>, The size of the hips <<newcloB[80]>>) <a href="exec:numdres=80&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!81 and newclo[81]=1 or odetnewclo=0 and newclo[81]=1:'Clothing from Fashionistas number81 (remaining strength <<newcloH[81]>>, The size of the hips <<newcloB[81]>>) <a href="exec:numdres=81&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!82 and newclo[82]=1 or odetnewclo=0 and newclo[82]=1:'Clothing from Fashionistas number82 (remaining strength <<newcloH[82]>>, The size of the hips <<newcloB[82]>>) <a href="exec:numdres=82&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!83 and newclo[83]=1 or odetnewclo=0 and newclo[83]=1:'Clothing from Fashionistas number83 (remaining strength <<newcloH[83]>>, The size of the hips <<newcloB[83]>>) <a href="exec:numdres=83&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!84 and newclo[84]=1 or odetnewclo=0 and newclo[84]=1:'Clothing from Fashionistas number84 (remaining strength <<newcloH[84]>>, The size of the hips <<newcloB[84]>>) <a href="exec:numdres=84&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!85 and newclo[85]=1 or odetnewclo=0 and newclo[85]=1:'Clothing from Fashionistas number85 (remaining strength <<newcloH[85]>>, The size of the hips <<newcloB[85]>>) <a href="exec:numdres=85&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!86 and newclo[86]=1 or odetnewclo=0 and newclo[86]=1:'Clothing from Fashionistas number86 (remaining strength <<newcloH[86]>>, The size of the hips <<newcloB[86]>>) <a href="exec:numdres=86&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!87 and newclo[87]=1 or odetnewclo=0 and newclo[87]=1:'Clothing from Fashionistas number87 (remaining strength <<newcloH[87]>>, The size of the hips <<newcloB[87]>>) <a href="exec:numdres=87&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!88 and newclo[88]=1 or odetnewclo=0 and newclo[88]=1:'Clothing from Fashionistas number88 (remaining strength <<newcloH[88]>>, The size of the hips <<newcloB[88]>>) <a href="exec:numdres=88&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!89 and newclo[89]=1 or odetnewclo=0 and newclo[89]=1:'Clothing from Fashionistas number89 (remaining strength <<newcloH[89]>>, The size of the hips <<newcloB[89]>>) <a href="exec:numdres=89&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!90 and newclo[90]=1 or odetnewclo=0 and newclo[90]=1:'Clothing from Fashionistas number90 (remaining strength <<newcloH[90]>>, The size of the hips <<newcloB[90]>>) <a href="exec:numdres=90&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!91 and newclo[91]=1 or odetnewclo=0 and newclo[91]=1:'Clothing from Fashionistas number91 (remaining strength <<newcloH[91]>>, The size of the hips <<newcloB[91]>>) <a href="exec:numdres=91&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!92 and newclo[92]=1 or odetnewclo=0 and newclo[92]=1:'Clothing from Fashionistas number92 (remaining strength <<newcloH[92]>>, The size of the hips <<newcloB[92]>>) <a href="exec:numdres=92&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!93 and newclo[93]=1 or odetnewclo=0 and newclo[93]=1:'Clothing from Fashionistas number93 (remaining strength <<newcloH[93]>>, The size of the hips <<newcloB[93]>>) <a href="exec:numdres=93&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!94 and newclo[94]=1 or odetnewclo=0 and newclo[94]=1:'Clothing from Fashionistas number94 (remaining strength <<newcloH[94]>>, The size of the hips <<newcloB[94]>>) <a href="exec:numdres=94&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!95 and newclo[95]=1 or odetnewclo=0 and newclo[95]=1:'Clothing from Fashionistas number95 (remaining strength <<newcloH[95]>>, The size of the hips <<newcloB[95]>>) <a href="exec:numdres=95&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!96 and newclo[96]=1 or odetnewclo=0 and newclo[96]=1:'Clothing from Fashionistas number96 (remaining strength <<newcloH[96]>>, The size of the hips <<newcloB[96]>>) <a href="exec:numdres=96&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!97 and newclo[97]=1 or odetnewclo=0 and newclo[97]=1:'Clothing from Fashionistas number97 (remaining strength <<newcloH[97]>>, The size of the hips <<newcloB[97]>>) <a href="exec:numdres=97&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!98 and newclo[98]=1 or odetnewclo=0 and newclo[98]=1:'Clothing from Fashionistas number98 (remaining strength <<newcloH[98]>>, The size of the hips <<newcloB[98]>>) <a href="exec:numdres=98&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!99 and newclo[99]=1 or odetnewclo=0 and newclo[99]=1:'Clothing from Fashionistas number99 (remaining strength <<newcloH[99]>>, The size of the hips <<newcloB[99]>>) <a href="exec:numdres=99&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!100 and newclo[100]=1 or odetnewclo=0 and newclo[100]=1:'Clothing from Fashionistas number100 (remaining strength <<newcloH[100]>>, The size of the hips <<newcloB[100]>>) <a href="exec:numdres=100&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!101 and newclo[101]=1 or odetnewclo=0 and newclo[101]=1:'Clothing from Fashionistas number101 (remaining strength <<newcloH[101]>>, The size of the hips <<newcloB[101]>>) <a href="exec:numdres=101&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!102 and newclo[102]=1 or odetnewclo=0 and newclo[102]=1:'Clothing from Fashionistas number102 (remaining strength <<newcloH[102]>>, The size of the hips <<newcloB[102]>>) <a href="exec:numdres=102&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!103 and newclo[103]=1 or odetnewclo=0 and newclo[103]=1:'Clothing from Fashionistas number103 (remaining strength <<newcloH[103]>>, The size of the hips <<newcloB[103]>>) <a href="exec:numdres=103&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!104 and newclo[104]=1 or odetnewclo=0 and newclo[104]=1:'Clothing from Fashionistas number104 (remaining strength <<newcloH[104]>>, The size of the hips <<newcloB[104]>>) <a href="exec:numdres=104&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!105 and newclo[105]=1 or odetnewclo=0 and newclo[105]=1:'Clothing from Fashionistas number105 (remaining strength <<newcloH[105]>>, The size of the hips <<newcloB[105]>>) <a href="exec:numdres=105&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!106 and newclo[106]=1 or odetnewclo=0 and newclo[106]=1:'Clothing from Fashionistas number106 (remaining strength <<newcloH[106]>>, The size of the hips <<newcloB[106]>>) <a href="exec:numdres=106&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!107 and newclo[107]=1 or odetnewclo=0 and newclo[107]=1:'Clothing from Fashionistas number107 (remaining strength <<newcloH[107]>>, The size of the hips <<newcloB[107]>>) <a href="exec:numdres=107&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!108 and newclo[108]=1 or odetnewclo=0 and newclo[108]=1:'Clothing from Fashionistas number108 (remaining strength <<newcloH[108]>>, The size of the hips <<newcloB[108]>>) <a href="exec:numdres=108&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!109 and newclo[109]=1 or odetnewclo=0 and newclo[109]=1:'Clothing from Fashionistas number109 (remaining strength <<newcloH[109]>>, The size of the hips <<newcloB[109]>>) <a href="exec:numdres=109&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!110 and newclo[110]=1 or odetnewclo=0 and newclo[110]=1:'Clothing from Fashionistas number110 (remaining strength <<newcloH[110]>>, The size of the hips <<newcloB[110]>>) <a href="exec:numdres=110&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!111 and newclo[111]=1 or odetnewclo=0 and newclo[111]=1:'Clothing from Fashionistas number111 (remaining strength <<newcloH[111]>>, The size of the hips <<newcloB[111]>>) <a href="exec:numdres=111&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!112 and newclo[112]=1 or odetnewclo=0 and newclo[112]=1:'Clothing from Fashionistas number112 (remaining strength <<newcloH[112]>>, The size of the hips <<newcloB[112]>>) <a href="exec:numdres=112&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!113 and newclo[113]=1 or odetnewclo=0 and newclo[113]=1:'Clothing from Fashionistas number113 (remaining strength <<newcloH[113]>>, The size of the hips <<newcloB[113]>>) <a href="exec:numdres=113&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!114 and newclo[114]=1 or odetnewclo=0 and newclo[114]=1:'Clothing from Fashionistas number114 (remaining strength <<newcloH[114]>>, The size of the hips <<newcloB[114]>>) <a href="exec:numdres=114&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!115 and newclo[115]=1 or odetnewclo=0 and newclo[115]=1:'Clothing from Fashionistas number115 (remaining strength <<newcloH[115]>>, The size of the hips <<newcloB[115]>>) <a href="exec:numdres=115&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!116 and newclo[116]=1 or odetnewclo=0 and newclo[116]=1:'Clothing from Fashionistas number116 (remaining strength <<newcloH[116]>>, The size of the hips <<newcloB[116]>>) <a href="exec:numdres=116&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!117 and newclo[117]=1 or odetnewclo=0 and newclo[117]=1:'Clothing from Fashionistas number117 (remaining strength <<newcloH[117]>>, The size of the hips <<newcloB[117]>>) <a href="exec:numdres=117&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!118 and newclo[118]=1 or odetnewclo=0 and newclo[118]=1:'Clothing from Fashionistas number118 (remaining strength <<newcloH[118]>>, The size of the hips <<newcloB[118]>>) <a href="exec:numdres=118&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!119 and newclo[119]=1 or odetnewclo=0 and newclo[119]=1:'Clothing from Fashionistas number119 (remaining strength <<newcloH[119]>>, The size of the hips <<newcloB[119]>>) <a href="exec:numdres=119&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!120 and newclo[120]=1 or odetnewclo=0 and newclo[120]=1:'Clothing from Fashionistas number120 (remaining strength <<newcloH[120]>>, The size of the hips <<newcloB[120]>>) <a href="exec:numdres=120&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!121 and newclo[121]=1 or odetnewclo=0 and newclo[121]=1:'Clothing from Fashionistas number121 (remaining strength <<newcloH[121]>>, The size of the hips <<newcloB[121]>>) <a href="exec:numdres=121&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!122 and newclo[122]=1 or odetnewclo=0 and newclo[122]=1:'Clothing from Fashionistas number122 (remaining strength <<newcloH[122]>>, The size of the hips <<newcloB[122]>>) <a href="exec:numdres=122&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!123 and newclo[123]=1 or odetnewclo=0 and newclo[123]=1:'Clothing from Fashionistas number123 (remaining strength <<newcloH[123]>>, The size of the hips <<newcloB[123]>>) <a href="exec:numdres=123&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!124 and newclo[124]=1 or odetnewclo=0 and newclo[124]=1:'Clothing from Fashionistas number124 (remaining strength <<newcloH[124]>>, The size of the hips <<newcloB[124]>>) <a href="exec:numdres=124&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!125 and newclo[125]=1 or odetnewclo=0 and newclo[125]=1:'Clothing from Fashionistas number125 (remaining strength <<newcloH[125]>>, The size of the hips <<newcloB[125]>>) <a href="exec:numdres=125&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!126 and newclo[126]=1 or odetnewclo=0 and newclo[126]=1:'Clothing from Fashionistas number126 (remaining strength <<newcloH[126]>>, The size of the hips <<newcloB[126]>>) <a href="exec:numdres=126&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!127 and newclo[127]=1 or odetnewclo=0 and newclo[127]=1:'Clothing from Fashionistas number127 (remaining strength <<newcloH[127]>>, The size of the hips <<newcloB[127]>>) <a href="exec:numdres=127&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!128 and newclo[128]=1 or odetnewclo=0 and newclo[128]=1:'Clothing from Fashionistas number128 (remaining strength <<newcloH[128]>>, The size of the hips <<newcloB[128]>>) <a href="exec:numdres=128&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!129 and newclo[129]=1 or odetnewclo=0 and newclo[129]=1:'Clothing from Fashionistas number129 (remaining strength <<newcloH[129]>>, The size of the hips <<newcloB[129]>>) <a href="exec:numdres=129&GT ''loker2'',''newclo''">pass</a>'
if odetnewclo=1 and numdress!130 and newclo[130]=1 or odetnewclo=0 and newclo[130]=1:'Clothing from Fashionistas number130 (remaining strength <<newcloH[130]>>, The size of the hips <<newcloB[130]>>) <a href="exec:numdres=130&GT ''loker2'',''newclo''">pass</a>'

act 'Go_Out':gt'loker2','fin'
end

if $ARGS[0]='jeans':
cla
'<center><img src="ode/jeans<<numdres>>.jpg" ></center>'
'(remaining strength <<jeansH[numdres]>>, The size of the hips <<jeansB[numdres]>>)'
act 'To Top':gt'loker2','start'
if jeansH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set jeans[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if jeansH[numdres]<=45 and jeansH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set jeans[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if jeansH[numdres]<=30 and jeansH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set jeans[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if jeansH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set jeans[numdres] = 0
	 set jeansH[numdres] = 0
	 end
end

if $ARGS[0]='yoga':
cla
'<center><img src="ode/yoga<<numdres>>.jpg" ></center>'
'(remaining strength <<yogaH[numdres]>>)'
act 'To Top':gt'loker2','start'
if yogaH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set yoga[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if yogaH[numdres]<=45 and yogaH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set yoga[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if yogaH[numdres]<=30 and yogaH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set yoga[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if yogaH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set yoga[numdres] = 0
	 set yogaH[numdres] = 0
	 end
end

if $ARGS[0]='sarafan':
cla
'<center><img src="ode/sarafan<<numdres>>.jpg" ></center>'
'(remaining strength <<sarafanH[numdres]>>'
act 'To Top':gt'loker2','start'
if sarafanH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set sarafan[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if sarafanH[numdres]<=45 and sarafanH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set sarafan[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if sarafanH[numdres]<=30 and sarafanH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set sarafan[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if sarafanH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set sarafan[numdres] = 0
	 set sarafanH[numdres] = 0
	 end
end

if $ARGS[0]='short':
cla
'<center><img src="ode/short<<numdres>>.jpg" ></center>'
'(remaining strength <<shortH[numdres]>>, The size of the hips <<shortB[numdres]>>)'
act 'To Top':gt'loker2','start'
if shortH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set short[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if shortH[numdres]<=45 and shortH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set short[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if shortH[numdres]<=30 and shortH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set short[numdres] = 0
		 set money+=100
		 end
	 end
if shortH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set short[numdres] = 0
	 set shortH[numdres] = 0
	 end
end

if $ARGS[0]='skirt':
cla
'<center><img src="ode/skirt<<numdres>>.jpg" ></center>'
'(remaining strength <<skirtH[numdres]>>, The size of the hips <<skirtB[numdres]>>)'
act 'To Top':gt'loker2','start'
if skirtH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set skirt[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if skirtH[numdres]<=45 and skirtH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set skirt[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if skirtH[numdres]<=30 and skirtH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set skirt[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if skirtH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set skirt[numdres] = 0
	 set skirtH[numdres] = 0
	 end
end

if $ARGS[0]='dress':
cla
'<center><img src="ode/dress<<numdres>>.jpg" ></center>'
'(remaining strength <<dressH[numdres]>>, The size of the hips <<dressB[numdres]>>)'
act 'To Top':gt'loker2','start'
if dressH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set dress[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if dressH[numdres]<=45 and dressH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set dress[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if dressH[numdres]<=30 and dressH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set dress[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if dressH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set dress[numdres] = 0
	 set dressH[numdres] = 0
	 end
end

if $ARGS[0]='profi':
cla
'<center><img src="ode/profi<<numdres>>.jpg" ></center>'
'(remaining strength <<profiH[numdres]>>, The size of the hips <<profiB[numdres]>>)'
act 'To Top':gt'loker2','start'
if profiH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set profi[numdres] = 0
		 set money+=500
		 gt'loker2','start'
		 end
	 end
if profiH[numdres]<=45 and profiH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set profi[numdres] = 0
		 set money+=300
		 gt'loker2','start'
		 end
	 end
if profiH[numdres]<=30 and profiH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set profi[numdres] = 0
		 set money+=100
		 gt'loker2','start'
		 end
	 end
if profiH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set profi[numdres] = 0
	 set profiH[numdres] = 0
	 
	 end
end

if $ARGS[0]='pants':
cla
'<center><img src="ode/pants<<numdres>>.jpg" ></center>'
'(remaining strength <<pantsH[numdres]>>, The size of the hips <<pantsB[numdres]>>)'
act 'To Top':gt'loker2','start'
if pantsH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set pants[numdres] = 0
		 set money+=500
		 
		 gt'loker2','start'
		 end
	 end
if pantsH[numdres]<=45 and pantsH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set pants[numdres] = 0
		 set money+=300
		 
		 gt'loker2','start'
		 end
	 end
if pantsH[numdres]<=30 and pantsH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set pants[numdres] = 0
		 set money+=100
		 
		 gt'loker2','start'
		 end
	 end
if pantsH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set pants[numdres] = 0
	 set pantsH[numdres] = 0
	 
	 end
end

if $ARGS[0]='latex':
cla
'<center><img src="ode/latex<<numdres>>.jpg" ></center>'
'(remaining strength <<latexH[numdres]>>, The size of the hips <<latexB[numdres]>>)'
act 'To Top':gt'loker2','start'
if latexH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set latex[numdres] = 0
		 set money+=500
		 
		 gt'loker2','start'
		 end
	 end
if latexH[numdres]<=45 and latexH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set latex[numdres] = 0
		 set money+=300
		 
		 gt'loker2','start'
		 end
	 end
if latexH[numdres]<=30 and latexH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set latex[numdres] = 0
		 set money+=100
		 
		 gt'loker2','start'
		 end
	 end
if latexH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set latex[numdres] = 0
	 set latexH[numdres] = 0
	 
	 end
end

if $ARGS[0]='hooker':
cla
'<center><img src="ode/hooker<<numdres>>.jpg" ></center>'
'(remaining strength <<hookerH[numdres]>>, The size of the hips <<hookerB[numdres]>>)'
act 'To Top':gt'loker2','start'
if hookerH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set hooker[numdres] = 0
		 set money+=500
		 
		 gt'loker2','start'
		 end
	 end
if hookerH[numdres]<=45 and hookerH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set hooker[numdres] = 0
		 set money+=300
		 
		 gt'loker2','start'
		 end
	 end
if hookerH[numdres]<=30 and hookerH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set hooker[numdres] = 0
		 set money+=100
		 
		 gt'loker2','start'
		 end
	 end
if hookerH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set hooker[numdres] = 0
	 set hookerH[numdres] = 0
	 
	 end
end

if $ARGS[0]='odekis':
cla
'<center><img src="ode/k<<numdres>>.jpg" ></center>'
'(remaining strength <<odekisH[numdres]>>, The size of the hips <<odekisB[numdres]>>)'
act 'To Top':gt'loker2','start'
if odekisH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set odekis[numdres] = 0
		 set money+=500
		 
		 gt'loker2','start'
		 end
	 end
if odekisH[numdres]<=45 and odekisH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set odekis[numdres] = 0
		 set money+=300
		 
		 gt'loker2','start'
		 end
	 end
if odekisH[numdres]<=30 and odekisH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set odekis[numdres] = 0
		 set money+=100
		 
		 gt'loker2','start'
		 end
	 end
if odekisH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set odekis[numdres] = 0
	 set odekisH[numdres] = 0
	 
	 end
end

if $ARGS[0]='newclo':
cla
'<center><img src="ode/<<numdres>>.jpg" ></center>'
'(remaining strength <<newcloH[numdres]>>, The size of the hips <<newcloB[numdres]>>)'
act 'To Top':gt'loker2','start'
if newcloH[numdres]>45:
	 'you offer 500 RUB. for this thing'
	 act 'Rent_out':
		 set newclo[numdres] = 0
		 set money+=500
		 
		 gt'loker2','start'
		 end
	 end
if newcloH[numdres]<=45 and newcloH[numdres]>30:
	 'you offer 300 RUB. for this thing'
	 act 'Rent_out':
		 set newclo[numdres] = 0
		 set money+=300
		 
		 gt'loker2','start'
		 end
	 end
if newcloH[numdres]<=30 and newcloH[numdres]>0:
	 'you offer 100 RUB. for this thing'
	 act 'Rent_out':
		 set newclo[numdres] = 0
		 set money+=100
		 
		 gt'loker2','start'
		 end
	 end
if newcloH[numdres] <= 0:
	 'This thing is worn and is not suitable for further wear.'
	 set newclo[numdres] = 0
	 set newcloH[numdres] = 0
	 
	 end
end

if $ARGS[0]='fin':
gt $locM, $metkaM
end
--- loker2 ---------------------------------

# bedr
ACT 'In the corridor':
	!if nude = 0:
	gt'korr'
	!end
	
	!'if nude = 1:
	cla
	'You`re looking at underwear.'
	     act 'Dress Underwear':
	     cla
	     set tanga = 1
	     gt'loker','start'
	     end
	     
	     act 'Do not wear underwear':
	     cla
	     set tanga = 0
	     gt'loker','start'
	     end
	end'
END
$metkaM = $ARGS[0]
$locM = $CURLOC

!The new menu: end


if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>bedroom</font></B></center>'
if rembedr = 0:'<center><img src="pic/bedr.jpg" ></center>'
if rembedr = 1:'<center><img src="pic/bedr2.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
set housrA = 1
set housrMir = 1
set elektro = elektro + 1
if nude = 0:set $nude = 'In the corridor'
if nude = 1:set $nude = 'get_dressed'
if rembedr = 0:'Tight little room in which the main and almost the only place takes <a href="exec:GT ''bed'',''start''">Double</a>. At the entrance stands a small wooden <a href="exec:GT ''loker'',''start''">cupboard</a> clothes. The window is closed with heavy curtains Fade.'
if rembedr = 1:'Bright and beautiful room, with modern furniture, is dominated by <a href="exec:GT ''bed'',''start''">Double</a>. At the entrance stands a modern <a href="exec:GT ''loker'',''start''">cupboard</a> clothes. Against the wall and table <a href="exec:GT ''mirror'',''start''">mirror</a>'

if husbandrinkday=day:
if husbanstrapon=1:'Drunk husband sleeps on the bed with an anal plug in the ass.'
if husbanstrapon=2:'Drunk husband sleeps on the bed after you have developed his ass dildo.'
if husbanstrapon=3:'Drunk husband sleeps on the bed after you fucked his threesome.'
end

if husband>0 and husbandrink!10 and husbandrinkday!day:
	 if hour>22 or hour<7:
	 '<a href="exec: gt''husb'',''start'' ">On the bed sleeping husband.</a>'
	 end
end
if husbandrink=11 and husbanstrapon>0 and husbandrinkday!day:
	 cla
	 'To you approached my husband and asked "Dear my ass hurts something you do not know maybe I fell yesterday failed"'
	 act'to_lie':
		 cla
		 set husbanstrapon=0
		 '"No dear " Say you`re making an innocent person. Husband shrugged and walked away'
		 act'End_Up':gt'bedr'
		 end
	 act'confess':
		 cla
		 if husbanstrapon=1:'"Dear yesterday you got so drunk, I decided to teach a lesson to you. But I `ll never, please forgive me" Say you.'
		 if husbanstrapon=2:'"Dear , but you did not finish and then I put you finger in the ass, but again you did not finish and I took the dildo, here you burst, I even made вЂ‹вЂ‹you a blowjob again, forgive me, but you were so good that I could not stop, I just wanted to give you a nice way" Say you invent much of its history.'
		 if husbanstrapon=3:'Dear , but you did not finish and then I put you finger in the ass, but again you did not finish and I put in a second if you start moving towards my ass Palchikov and much moaning, you were so good that I decided, What did you like and put them strapon. You really were very good, you finished over and over again, but I still continued to, I was tired then licked all, all the sperm from your body and went to bed, I just wanted to give you a pleasant and you were nice though and you do not remember, please forgive me" Say you invent much of its history.'
		 if harakHusb=2:
			 set husbizvradd=0
			 set husbharmin=0
			 set husbandMark=0
			 set husband=0
			 set divorced+=1
			 set fingal+=1
			 set minut+=120
			 'The next thing you feel is a powerful slap in the face. When you came to their senses we realized that neither her husband, nor his things no. He filed for divorce.'
			 end
		 if harakHusb=1:
			 if husbanstrapon=1:'"Look, do not mess it anymore" he said.'
			 if husbanstrapon=2:set husbizvradd+=1&'"Well, but see no joke so more, I`m still a man " he said.'
			 if husbanstrapon=3:
				 if intel>40 or izvratH=1:set husbharmin+=1&'"Are you quite ohrenela, I`m that bitch, what-I would fuck" he shouted, but then you let the tears and began to lament that only wanted to please him, He looked at you and said "Yes_I_Am, I believe , I wanted to make nice, but more so do not do."'
				 if intel<=40:
					 set husbizvradd=0
					 set husbharmin=0
					 set husbandMark=0
					 set husband=0
					 set divorced+=1
					 set fingal+=1
					 set minut+=120
					 'The next thing you feel is a powerful slap in the face. When you came to their senses we realized that neither her husband, nor his things no. He filed for divorce.'
					 end
				 end
			 end
		 if harakHusb=0:
			 if husbanstrapon=1:'"I`m sorry I will not be so drunk" he said.'
			 if husbanstrapon=2:set husbizvradd+=1&'"You`re so thoughtful, Instead of scolding me, you still nice I do, thank you dear" he said.'
			 if husbanstrapon=3:set husbizvradd+=1&'"I really liked it?" he asked, you nodded affirmatively, "Well then, but the next time you still ask my consent" he said'
			 end
		 act'End_Up':set husbanstrapon=0&gt'bedr'
		 end
	 end
if husbandrink=10 and hour>20 and hour<23 and husbanstrapon=0:
	 '<<$husName>> keeled home very drunk and crashing on the bed fell asleep in clothes.
	 "That is a pig" swore you and then you head climbed bad thoughts "Can teach him a lesson, that would not get drunk before bezchuvstviya"'
	 if analplug = 1:
		 act 'Paste it anal plug':
			 set husbandrinkday=day
			 set husbandrink=11
			 set husbanstrapon=1
			 set minut+=10
			 cla
			 *clr
			 '<center><img src="img/hasb/h0.jpg" ></center>'
			 if analplugin=1:'You pull the plug out of his ass and enter it akuratno, husband in the ass.'
			 if analplugin=0:'You go to take a bath tube and enter it akuratno, his anus.'
			 '<<$husName>> moved, but did not wake up, see hard plucked'
			 if dildo>0:
				 act'insert dildo':
					 cla
					 *clr
					 set minut+=20
					 set husbanstrapon=2
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 set horny+=30
					 '<center><img src="img/hasb/h1.jpg" ></center>'
					 'You pull out the plug and insert in its place dildo, <<$husName>> did not even budge. You began to slowly move the dildo trying not to wake her husband. Shortly before your face began to climb his cock, and <<$husName>> began to softly moan, but never woke up. You already being wielded dildo in his anus, and it started to throb dildo ready to cum. You wrapped around his cock with his lips and tongue to touch you should head in the mouth you hit the jet of sperm, you swallow it and carefully cleared his cock from the remnants of sperm, pulled on his pants.'
					 act'End_Up':gt'bedr'
					 end
				 end
			 if strapon>0:
				 act'dress strap':
					 cla
					 *clr
					 set minut+=20
					 set husbanstrapon=3
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 set horny+=30
					 '<center><img src="img/hasb/h2.jpg" ></center>'
					 'You put the strap and pulling out the plug Medley enter it into the anus of her husband, <<$husName>> stirred, but did not wake up. You began to slowly move her hips trying not to wake her husband. Shortly before your face began to climb his cock, and <<$husName>> began to softly moan, but never woke up. Realizing that in this state . His cock stood up and you vskhativ his hand, began to masturbate feeling, that he is about to finish . As soon as you touch the tongue into the mouth of the head as you hit the jet of sperm, you swallow it and carefully cleared his cock from the remnants of sperm, pulled on his pants.'
					 act'End_Up':gt'bedr'
					 end
				 end
			 act'End_Up':gt'bedr'
			 end
		 end
	 end
if tanga=0 and clrbelo>0:
	 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt'bedr'
		 end
     else
		 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt'bedr'
		 end
     end

if saveday ! day:
set saveday = day
SAVEGAME 'avtosave.sav'
end

 if sick >= 1:
	 act 'Go to bed rest (disease)':
	 cla
	 *clr
	 set minut = minut + 240
	 set sick = sick - 1 
	 if sick<0:sick=0
	 set picrand = RAND (0,6)
	 gs'stat'
	 if picrand = 0:'<center><img src="inBed/sick17.jpg" ></center>'
	 if picrand = 1:'<center><img src="inBed/sick11.jpg" ></center>'
	 if picrand = 2:'<center><img src="inBed/sick12.jpg" ></center>'
	 if picrand = 3:'<center><img src="inBed/sick13.jpg" ></center>'
	 if picrand = 4:'<center><img src="inBed/sick14.jpg" ></center>'
	 if picrand = 5:'<center><img src="inBed/sick15.jpg" ></center>'
	 if picrand = 6:'<center><img src="inBed/sick16.jpg" ></center>'
	 'You lie in bed, coughing, sneezing and blowing her nose'
	 act 'Pomeroy temperature':gt'bedr'
	 end
 end

if dur > 0:
'You have hidden <<dur>> doses pale lady'
end
if dur > 0 and narkday ! day:
     act 'Nyuhnut pale lady 5 min':
     cla
     *clr
     set minut = minut + 5
     set narkday = day
     set health = vital*10 + stren*5
	 set willpower = intel*5 + will*5
	 set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
	 set horny = 100
	 set nark = nark + 10
	 set dur = dur - 1
     '<center><img src="pic/dur.jpg" ></center>'
     'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
     act 'Go_Out':gt $curloc
     end
end

--- bedr ---------------------------------

# sitr
ACT 'In the corridor':
	gt'korr'
END
$metkaM = $ARGS[0]
$locM = $CURLOC

$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>hall</font></B></center>'
if remsitr = 0 and TV = 0 or komp = 0 and remsitr = 0:'<center><img src="pic/sitr.jpg" ></center>'
if remsitr = 0 and TV > 0 and komp > 0:'<center><img src="pic/sitr1.jpg" ></center>'
if remsitr = 1:'<center><img src="pic/sitr2.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
set housrA = 1
set elektro = elektro + 1
if TV = 0:set $TV = 'the perfect place for your TV, which you do not'
if TV = 1:set $TV = 'ancient <a href="exec:GT ''TV'',''start''">tv_set</a>'
if TV = 2:set $TV = 'huge plasma <a href="exec:GT ''TV'',''start''">tv_set</a>'
if divan = 0:set $divan = '<a href="exec:GT ''divan'',''start''">old sofa</a>'
if divan = 1:set $divan = 'luxurious <a href="exec:GT ''divan'',''start''">leather sofa</a>'
if komp = 0:set $komp = ''
if komp = 1:set $komp = 'which is <a href="exec:GT ''Komp'',''start''">computer</a>.'
if remsitr = 0:set $zal = 'tight room'&set $zal2 = 'shabby wall stands'
if remsitr = 1:set $zal = 'modern, bright room'&set $zal2 = 'walls with light-colored wallpaper worth'
if stol = 0:set $stol = 'decrepit <a href="exec:GT ''stol'',''start''">table</a>'
if stol = 1:set $stol = 'new <a href="exec:GT ''stol'',''start''">table</a>'

if obruch > 0:'In one corner stands a hoop.'
if skak > 0:'On a shelf is a jump rope.'
if bookYog > 0:'In the closet benefit of yoga and meditation'
'<<$zal>> at <<$zal2>> <<$divan>>. In front of the sofa <<$TV>>. Not podaleku from the window worth <<$stol>> <<$komp>>'
if mishka > 0:'On a shelf is <<mishka>> teddy bear'
*nl

if obruch > 0 and obruchday ! day:
$sitrobr='<a href="exec: dynamic $sitrobrd ">twist hoop</a>'
else
$sitrobr=''
end
if bookYog > 0 and bookYogday ! day:
$sitryog='<a href="exec: dynamic $sitryogd ">meditation</a>'
else
$sitryog=''
end
if skak > 0 and skakday ! day:
$sitrskak='<a href="exec: dynamic $sitrskakd ">jumping rope</a>'
else
$sitrskak=''
end
if pressday ! day:
$sitrpress='<a href="exec: dynamic $sitrpressd ">abdominal exercises</a>'
else
$sitrpress=''
end
if pushday ! day:
$sitrpush='<a href="exec: dynamic $sitrpushd ">such as push-ups</a>'
else
$sitrpush=''
end
$sportsitr='<<$sitrpush>> <<$sitrpress>> <<$sitrskak>> <<$sitryog>> <<$sitrobr>>'
'The hall is enough space for a variety of sports exercises <<$sportsitr>>'

!set housegostrand=RAND(1,20)
!if husband>0 and husbandrink!10 and week=5 and hour>17 and hour<21 and housegostrand>15:gt'sitr','guest'
if suhbelo2 > 0:'On the table <<suhbelo2>> pieces of dried clothes, you want <a href="exec: dynamic $gladbelo ">stroke</a>.'
*nl
if husband>0 and husbandrink!10 and husbandrinkday!day:
	 if week<6:
		 if hour>17 and hour<=22:
		 '<a href="exec: gt''husb'',''start'' ">Husband sits on the couch watching TV.</a>'
		 end
	 else
		 if hour>7 and hour<17:
		 '<a href="exec: gt''husb'',''start'' ">Husband sits on the couch watching TV.</a>'
		 end
		 if hour>17 and hour<=22:
		 '<a href="exec: gt''husb'',''start'' ">Husband sits on the couch watching TV.</a>'
		 end
	 end
end
gs'subkid'

if student > 0 and kursovik < 100:
     act 'write kursovik 1 h':
     cla
     *clr
     set minut = minut + 60
     set kursovik = kursovik + RAND (intel/20,intel/10)
     if kursovik > 100:set kursovik = 100
     set manna = manna - 10
     '<center><img src="pic/study.jpg" ></center>'
     'You sat on coursework and prepare it for <<kursovik>> percent.'
     act 'Go_Out':gt'sitr'
     end
end
if zoo >= 6:
	 if husband>0 and husbandrink!10:
		 if week>5 or week<6 and hour>17:
			 act 'call <<$namesob>>':
				 cla
				 *clr
				 set minut+=30
				 '<center><img src="zoo/z1.jpg" ></center>'
				 'You call the dog and that the move pushes his wet nose between your legs and lick accepted.'
				 if harakHusb = 0:
					 set zoo+=1
					 set horny=0
					 set orgasm+=1
					 '"What is he doing expensive, stop him" cries husband
					 "I can not, he try" you reply.'
					 set husband-=1
					 '<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away, what to do expensive?" he asks.
					 "Think of-some." you reply, already slightly moaning with pleasure. <<$husName>> begins to pace the room, periodically approached the dog, but hearing him growl departs. So_Long <<$husName>> dog around the room began to jump on you.
					 "dear God, that he was going to do?" yelped <<$husName>>, Seeing the dog attempts to jump on you.
					 "And what you do not clear, he wants to fuck me" answer You.
					 "Dear try again to free" pleaded husband.'
					 act'try':
						 cla
						 *clr
						 '<center><img src="zoo/z2.jpg" ></center>'
						 'You reluctantly start trying to push the dog and move, But it appears to him backwards <<$namesob>> bore down on you all the weight is on top and. You feel his cock rubbing against your thighs ischya hole.'
						 if izvratH=0:
							 '"dear God, I can not look at it" husband shouted and ran out the door slamming. Meanwhile. You moan and he podmahivat, Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. husband returned, and you and were cancer, and dog sperm flowed out of your pussy.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 end
						 if izvratH=1:
							 '"Well get off it" shouts <<$husName>> PSA, but close to it is not appropriate. Meanwhile. You moan and he podmahivat, and your husband decided that your movement is an attempt to free cheered you "Yes Svetsik wiggle so more can happen to lose it". Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. The husband looked at you standing cancer, with hips peremazanymi sobacheС‘ sperm derived from your pussy.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 end
						 act'allow':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 act'Do not allow':
							 cla
							 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
							 "good roads, how can you say."'
							 act 'End_Up':gt'sitr'
							 end
						 end
					 end
				 if harakHusb = 1:
					 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
					 "I can not, he try" you reply.'
					 if izvratH=0:
						 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
						 "I `ll take it right now on euthanasia" said <<$husName>>'
						 act'allow':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 act'Do not allow':
							 cla
							 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
							 "Fair_Enough, see itself, your dog."'
							 act 'End_Up':gt'sitr'
							 end
						 end
					 if izvratH=1:
						 set zoo+=1
						 set bj+=1
						 set swallow+=1
						 set cumlip+=1
						 '"If you can not or do not want to" asked <<$husName>> smiling and continues to sit back and watch as your dog licks.
						 "Already probably do not want to" you are responsible and defiantly Spreading legs wider. <<$husName>> looks like you moan, until the dog licks you and suddenly gets up and pulls member brings it to your mouth.'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="zoo/z3.jpg" ></center>'
							 'You grab his cock sucking mouth and takes, Soon you begin to cover and you end sodragayas whole body, a second <<$husName>> cums in your mouth. You swallow sperm and continue to suck his dick fading. Get drunk dog began naprygivat you with nedvuhslyslennymi intentions.
							 "But it is already too" said <<$husName>> and tried ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 act'allow':
								 set sobaka=0
								 set zoo=0
								 gt'sitr'
								 end
							 act'Do not allow':
								 cla
								 '"No, dear it `s not my fault, his instincts, besides from trying so hard" Say you.
								 "Well" ironically husband.'
								 act'masturbate dog':
									 cla
									 *clr
									 set husband-=1
									 '<center><img src="zoo/z6.jpg" ></center>'
									 'You take the dog dick in hand and begin to masturbate, after a few minutes you dog cums in his hand.'
									 act'End_Up':gt'sitr'
									 end
								 act'suck dog':
									 cla
									 *clr
									 set swallow+=1
									 set husband-=40
									 '<center><img src="zoo/z7.jpg" ></center>'
									 'You loshite dog on the floor and take his cock in her mouth, husband looks at you with disgust while you sucking dog, a couple of minutes dog diluted into your mouth and you swallow sperm.
									 "Well" husband says with obvious disgust.'
									 act'End_Up':gt'sitr'
									 end
								 act'End_Up':gt'sitr'
								 end
							 end
						 end
					 end
				 if harakHusb = 2:
					 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
					 "I can not, he try" you reply.'
					 if izvratH=0:
						 set manna-=15
						 set willpower-=15
						 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he smashes the dog leg in the ribs and the squealing flies into a corner, dog did not have time to rise as the husband begins to kick even more, Seeing his condition you score in the corner and covering his head with hands close your eyes. A few minutes later the dog stops.
						 "What are you hiding there tidy here, and then krovischi from your skunk" said <<$husName>>. Opening his eyes you see a dead dog in a pool of blood.
						 "Well then froze, tidy you say, I do this on a dog I`ll take the trash." he takes the dog, wrap in a sheet and makes the trash. And you have some time to scour the blood from the floor.'
						 act'End_Up':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 end
					 if izvratH=1:
						 set zoo+=1
						 set bj+=1
						 set swallow+=1
						 set cumlip+=1
						 set SUB+=1
						 '"What do you mean I can not, that you like the way he licks you" shouts <<$husName>>.
						 "No, what do you, of course not" you start making excuses.
						 "And I look at you taschishsya slut, you`re all techesh, Or do you think I do not see, and once you like it so thank him" he says, "Well, vividly."'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="zoo/z4.jpg" ></center>'
							 '<<$husName>> missing dog `s collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding their lust take by mouth and takes dick sucking dog, Husband watching you and encourages saying that the dog really liked your mouth. Soon he was tired of just watching and he dropped his pants says "Well Spreading Legs."'
							 act'allow':
								 cla
								 *clr
								 set suprdolg+=1
								 set sex+=1
								 set anal+=1
								 '<center><img src="zoo/z5.jpg" ></center>'
								 'You dutifully spreads her legs and her husband enters you in the pussy, he hews you while you suck at dog, but you do not dostovlyaet fun. Soon my husband finishes and stands "A dog that has not yet finished, what-then you`re not trying, Well cup your point."'
								 act 'substitute the ass':
									 cla
									 *clr
									 set analorgasm+=1
									 set orgasm+=1
									 set horny=0
									 '<center><img src="zoo/z8.jpg" ></center>'
									 'You go up to her knees and immediately dog jumps on you. without giving kneel. With one hand, and the second point it MEMBER his ass, fingering hole dog comes in and quickly taken to peck your anus. The husband looked at it a little and throwing "Go for otmoyus, by whores" out. Left with a dog for a single podmahivat you start it and soon oschuzaete tide excitation, seems in sex dog exceeds husband, his cock in your ass moving so deftly that after the excitement comes orgasm, and you fall on korachki no longer able to stand, dog makes a few movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
									 act'End_Up':gt'sitr'
									 end
								 end
							 end
						 end
					 end
				 end
			 else
			 act 'call <<$namesob>> ':gt 'soba', 'zoof30'
			 end
		 end
	 if husband=0 or husbandrink=10:
		 act 'call <<$namesob>> ':gt 'soba', 'zoof30'
		 end
	 end
if dildo > 0 and horny >= 50:
	 act 'masturbate':
		 cla
		 *clr
		 set minut+=30
		 set mastr+=1
		 set manna+=15
		 set willpower+=15
		 set vagina+=1
		 if husband>0 and husbandrink!10:
			 if week>5 or week<6 and hour>16:
				 cla
				 *clr
				 '<center><img src="img/hasb/m11.jpg" ></center>'
				 'You sit down on the sofa and enter yourself dildo in pussy'
				 if hour>17 and hour<=22:'<<$husName>> looking at you, obviously a little dumbfounded.'
				 if hour=16 or hour>22:'Once you get a taste of how the room included <<$husName>>'
				 if harakHusb = 0:
					 '"What are you doing dear?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "And often you do that" he asks.
					 "Owned since, often, less in the ass, want to see?" asked you'
					 if izvratH=0:
						 set husband-=1
						 '"I `d rather wait outside the door until you finish" he said. You continue to satisfy itself rapidly and soon finished.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'sitr'
						 end
					 if izvratH=1:
						 '"Well" he hesitated.
						 "So you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m12.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Can I join?" a little embarrassed he asks.'
							 act'solve':
								 cla
								 *clr
								 set analorgasm+=1
								 set orgasm+=1
								 set horny=0
								 '<center><img src="img/hasb/m13.jpg" ></center>'
								 '<<$husName>> gets dick and starts masturbating, this is not what you expected and at first you even felt a little sorry that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at, as you drive the dildo his popkui be covered and you enjoy, you screamed and fell to the table, orgasm, Dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you removed the dildo from ass and began to lick his, Despite her husband `s eyes, from such a spectacle it once discharged on the floor. You reached out to him sticking out his lips, a second later he was passionately kissing you.'
								 act 'End_Up':gt'sitr'
								 end
							 end
						 end
					 end
				 if harakHusb = 1:
					 '"That`s number and I mean you do not have enough?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "Well then" he says.
					 "And as I have in the ass to do the show?" asked you'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"No, do not, and yet this is enough" he said. You continue to satisfy itself rapidly and soon finished in front of husband. <<$husName>> stood up and began to applaud "bravo, as an encore once more?" he said laughing.
						 "For such a wonderful audience anything, but only after intermission" you laughed. <<$husName>> helped you to get off the table.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'sitr'
						 end
					 if izvratH=1:
						 set husband+=1
						 '"And how is it, Demonstrate necessarily" he said.
						 "Whatever you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m12.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Do not just want but do" he said, unbuttoning his pants and substitute member to your face.'
							 act'Take by mouth':
								 cla
								 *clr
								 '<center><img src="img/hasb/m14.jpg" ></center>'
								 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "Well."'
								 act 'substitute the ass':
									 set picrand=88
									 gt'sex','anal'
									 end
								 end
							 end
						 end
					 end
				 if harakHusb = 2:
					 '"That the hole was combed?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"Well then opens her mouth" he said pulling member and roughly pushing it in your mouth, he held your hair and fucked in the mouth, saying that-you would not stop masturbating. Soon he was tired of your mouth "Now take out of this hole rubber trash, now I `ll fuck you"'
						 act 'spread her legs':
							 set picrand=88
							 gt'sex','vag'
							 end
						 end
					 if izvratH=1:
						 set husband+=1
						 set SUB+=1
						 '"Embed this crap yourself in the ass and mash, I soon his popolzuetsya, and while pine Quick" he said, pulling member. You will quickly rearrange dildo pussy of the anus and humbly open your mouth.'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="img/hasb/m14.jpg" ></center>'
							 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "all, cup your point now I`m ass Flare."'
							 act 'substitute the ass':
								 set picrand=88
								 gt'sex','anal'
								 end
							 end
						 end
					 end
				 else
				 set horny=0
				 set orgasm+=1
				 '<center><img src="pics/mastr.gif" ></center>'
				 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
				 act 'breathe.':gt'sitr'
				 end
			 else
			 set horny=0
			 set orgasm+=1
			 '<center><img src="pics/mastr.gif" ></center>'
			 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
			 act 'breathe.':gt'sitr'
			 end
		 end
	 end

!'if $ARGS[0]='guest':
gs 'stat'
cla
*clr
set minut+=30
'<center><img src="img/house/g0.jpg" ></center>'
'Husband came home and you covenant, you go to him and see him with another man, he presents it as a Kolegov. You go in the room and sit down on the sofa, They both have fun on, husband went to the store, what-to buy a drink and leave you alone. You are chatting for a while, but quickly running out of topics, then the man says, that he tried to persuade your husband to go to the club, but he did not agree, and then I want to dance. You do not think of anything better, offers him to dance here and he readily agrees.'
act'play music':
	 cla
	 *clr
	 if vnesh<15:
		 set husbandrink=10
		 '<center><img src="img/house/g1.jpg" ></center>'
		 'You turn on the music and start dancing, man gets up and joins you. you dance, until the neighbors start banging on the wall, laughing you turn off the music and sit down on the sofa, it takes about half an hour, and her husband still no, Guest says that while it will go away will look at'
		 act 'up':gt'sitr'
		 end
	 if vnesh>=15:
		 '<center><img src="img/house/g2.jpg" ></center>'
		 'You turn on the music and start dancing, man gets up and joins you. You dance with him and with each movement he becomes closer to you, eventually it starts to hurt you at first as if by chance, then more openly, eventually he presses you to her and his hands start to wander through your body, frankly you lapaya.'
		 if horny<80:
			 act'step_back':
				 cla
				 set husbandrink=10
				 'You step back from it and turn off the music sit down on the sofa, it takes about half an hour, and her husband still no, Guest says that while it will go away will look at'
				 act 'up':gt'sitr'
				 end
			 end
		 act'allow':
			 cla
			 *clr
			 set horny+=20
			 '<center><img src="img/house/g3.jpg" ></center>'
			 'You do not resist , soon you is the third of it while he caresses your bare chest, you no longer restrain himself vsilu and turned to him, run his hand into his pants and pulled out a member. He sticks out his tongue and around his lips , simultaneously masturbate him.'
			 act'Take by mouth':
				 cla
				 *clr
				 '<center><img src="img/house/g4.jpg" ></center>''
--- sitr ---------------------------------

# vanr
ACT 'In the corridor':
	gt'korr'
END
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
$stirkad={
cla
*clr
 set minut = minut + dirtbelo*5
 set suhbelo = suhbelo + dirtbelo
 set poroshok = poroshok - 1
 set dirtbelo = 0
 set manna = manna - 10
 '<center><img src="pic/stir.jpg" ></center>'
 'You soaked clothes in the basin and poured the powder there, then you become a wash clothes, until it finally became clear.'
 act 'Hang the laundry out to dry':gt'korr'
}



'<center><B><font color=maroon>bathroom</font></B></center>'
if remvanr = 0:'<center><img src="pic/vanr.jpg" ></center>'
if remvanr = 1:'<center><img src="pic/vanr2.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
set housrA = 1
set elektro = elektro + 1

if stiralka>0:
     if husband>0 and husbanday>0 and husporday!day and poroshok>=2:
	 husband+=5
	 set poroshok = poroshok - 2
	 husporday=day
	 'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
	 end
     if dirtbelo>0 and poroshok>=dirtbelo:
     clrbelo+=dirtbelo
     poroshok-=dirtbelo
     dirtbelo=0
     'Washer washed the your laundry'
     elseif poroshok<dirtbelo:
     'You run out of powder for washing machine.'
     end
end

if tampon > 0:
'On a shelf is packing tampons. It will suffice for <B><<tampon>></B> time'
else
'<B><font color=red>You do not have tampons.</font></B>'
end
if stanok > 0:'On a shelf is a machine for shaving, it will have the blades out, that would shave <B><<stanok>></B> time.'
if dirtbelo>0:'Your cart is <font color=red><B><<dirtbelo>></B></font> Power. dirty laundry.'
if poroshok>0:
if dirtbelo=0:$stirka=''
if dirtbelo>0:$stirka='<a href="exec: dynamic $stirkad ">You can do your laundry</a>'
'Under the bath worth can for washing powder, which is enough for <B><<poroshok>></B> washings. <<$stirka>>'
else
'<B><font color=red>You do not have washing powder and nothing to wash clothes.</font></B>'
end
if clrbelo > 0:
'In the locker is <font color=blue><B><<clrbelo>></B></font>Power. clean linen.'
else
'<B><font color=red>You do not have clean linen.</font></B>'
end
if shampoo>0:
'Do you have enough shampoo <<shampoo>> time. you can <a href="exec: gt''vann'',''start'' ">have_a_wash</a>.'
else
'You ran out of shampoo, therefore problems with washing.'
end
if mosolmaz>0:'On a shelf is a tube of ointment protivomozolnoy, which will suffice for <<mosolmaz>> applications.'
if stiralka>0:'In the bathroom a washing machine.'

     !'if tanga=0 and clrbelo>0:
		 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt'vanr'
		 end
     end
     if tanga=1:
		 act 'Do not wear underwear':
		 cla
		 set tanga = 0
		 gt'vanr'
		 end
     end'

if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="picb/tampon.jpg" ></center>'
		 'You change a tampon.'
		 act 'Go_Out':gt'vanr'
		 end
	 end


if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
     act 'substitution 5 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumlip = 0
     set cumface = 0
     set cumanus = 0
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 5
     set clrbelo = clrbelo - 1
     set dirtbelo = dirtbelo + 1
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm in the bathroom.'
     act 'Go_Out':gt'vanr'
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 5 min':
     cla
     *clr
     set mop=1
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 5
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':gt'vanr'
     end

end

if mop ! 1:
     act 'wash off cosmetics':
     cla
     set mop = 1
     set minut = minut + 15
     'You have washed off cosmetics.'
     act 'Go_Out':gt'vanr'
     end
end


if klisma = 1 and klismaday ! day:
     act 'Make yourself an enema 5 min':
     cla
     *clr
     set minut = minut + 5
     set klismaday = day
     set klismaday1= 1
     '<center><img src="picV/klisma.jpg" ></center>'
     'You have set yourself an enema and clean the intestines, now your ass ready for anal sex.'
     act 'Go_Out':gt $curloc
     end
end

if vibrator = 1 and vibratorIN=0:
     act 'insert the vibrator 5 min':
     cla
     *clr
     set minut = minut + 5
     set vibratorIN = 1
     if vagina < 30:set vagina = vagina + 2
     '<center><img src="pic/vibrator.jpg" ></center>'
     'You leaned over and put in a phallic object currently in the pussy.'
     act 'Go_Out':gt'vanr'
     end
end

if vibrator = 1 and vibratorIN=1:
     act 'Remove the vibrator 5 min':
     cla
     *clr
     set minut = minut + 5
     set vibratorIN = 0
     if vagina < 30:set vagina = vagina + 1
     '<center><img src="pic/vibrator.jpg" ></center>'
     'You bent down and took out a vibrator from the vagina.'
     act 'Go_Out':gt'vanr'
     end
end


if analplug = 1 and analplugin=0 and klismaday1= 1 and plugday!daystart:
     act 'Insert a butt plug 5 min':
     cla
     *clr
     plugday=daystart
     set minut = minut + 5
     set analplugIN = 1
     if anus < 10:set anus = anus + 5
     if anus >= 10 and anus<20:anus+=rand(1,2)
     if anus >= 20 and anus<30:anus+=rand(0,1)
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
     if butpluguse = 0:set butpluguse = 1&'You tried to relax as much as possible the ass and began to insert the plug itself, biting her lip from feeling, your ass is about to burst you gently pushed in the thickest part of his ass and finally plug into place.'
     act 'Go_Out':gt $curloc
     end
end

if analplug = 1 and analplugin=1:
     act 'Remove the butt plug 5 min':
     cla
     *clr
     set minut = minut + 5
     set analplugIN = 0
     if anus < 30:set anus = anus + 1
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'
     act 'Go_Out':gt $curloc
     end
end

if husband>0 and husbanday>0 and husporday!day and poroshok>=2:
     act 'Wash clothes husband 1 h (2 units of washing powder)':
     cla
     *clr
     husband+=5
     set poroshok = poroshok - 2
     set minut = minut + 60
     husporday=day
     manna-=25
     '<center><img src="pic/stir.jpg" ></center>'
     'You hour washes smelly socks husband and his prossannye and properdannye truselya.'
     act 'Move away from the bathroom':gt'vanr'
     end
end

if husband>0 and husbanday>0 and huspolday!day:
     act 'Ubiratsya apartment 1 h':
     cla
     *clr
     husband+=5
     set minut = minut + 60
     huspolday=day
     manna-=25
     !'<center><img src="pics/cook.jpg" ></center>'
     'You took a rag and started to get out of the apartment.'
     act 'Get_Away':gt'vanr'
     end
end

if pregtest>0:
     act 'Do a pregnancy test':
     pregtest-=1
     cla
     gs'stat'
		if preg=1:
		'The test showed the two strips. you are pregnant.'
		!'father - <<$father>>.'
		else:
		'The test showed one band.'
		end
     act 'further': gt $curloc
     end
end
--- vanr ---------------------------------

# kuhr
ACT 'In the corridor':
	gt'korr'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$dirtarm={
if fairy > 0:
 cla
 *clr
 set waterhouse = waterhouse - dirttarelka
 set fairy = fairy - 1
 set minut = minut + dirttarelka*3
 gs'stat'
 set cltarelka = cltarelka + dirttarelka
 set dirttarelka = 0
 set manna = manna - 5
 '<center><img src="pics/dirt.jpg" ></center>'
 'Using the detergent you washed the dishes.'
 act 'wipe your hands':gt $locM, $metkaM
 else
 '<B><font color=red>You have no detergent.</font></B>'
 end
}
$edagotd={
 cla
 *clr
 set minut = minut + 60
 gs'stat'
 set edahot = edahot + 1
 set eda = eda - 1
 set waterhouse = waterhouse - 1
 set kuhdrova = 0
 musor+=1
 set cltarelka = cltarelka - 1
 set manna = manna - 5
 '<center><img src="pics/cook.jpg" ></center>'
 'You cooked food on a plate.'
 act 'Is_There':dynamic $edahotd
 act 'Move away from the plate':gt $locM, $metkaM
}
$edahotd={
 cla
 *clr
 gs'stat'
 frost=0
 '<center><img src="pics/food.jpg" ></center>'
 set minut = minut + 30
 set edahot = 0
 set dirttarelka = dirttarelka + 1
 set health = health + 10
 set manna = manna + 20
	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 if energy < 20:
	 set energy = energy +20
	 !set fat = fat + 1
	 'You gladly ate cooked food.'
	 end
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 act 'Get up from the table':gt $locM, $metkaM
}
$santehnikgr={
cls
ransloman=0
minut+=25
gs'stat'
'<center><img src="img/house/s3.jpg" ></center>'
'You call the plumber Grisha and he came to you in just a 15 minutes. Quickly found the cause and correct the problem, repair your faucet.'
act'further.':dynamic $santehnikend
}
$santehnikend3={
cls
ransloman=0
bj+=1
SUB+=1
facial+=1
cumface+=1
if GrishaSex=0:GrishaSex=1&guy+=1
if mop > 1:set mop = 0
gs'stat'
'<center><img src="qwest/grisha/bj2.jpg" ></center>'
'You felt like you slapped in the face warm and viscous liquid. Then another and another, covering your face with white seed. Cum began to flow from the face on the lips, chin and cheeks. Finally plumber dried up and stopped the flow of sperm. You could not open my eyes because they felt, that they are sperm, from which matted eyelashes. Plumber laughed and said. "cool Vidocq. This slut." His words touched you and you feel like your cheeks flushed with shame. You have become washed sperm from the face, trying to unstick my eyes, but you receive only to smear her face. Finally, He grins buttoning his pants. After that.'
act'carry out plumbing.':gt $curloc
}
$santehnikend1={
cls
kransloman=0
minut+=1
gs'stat'
'<center><img src="img/house/s3.jpg" ></center>'
'You confused shrugged and mumbled that have no idea, what to do. Plumber examined you with oily eyes and told you with the infamous smirk "Maybe on another thank? I can get to work not only with money."'
act'Let`s borrow.':dynamic $santehnikend2
     act'it`s like, in another?':
     cls
     minut+=1
     gs'stat'
     '<center><img src="img/house/s3.jpg" ></center>'
     'You asked the plumber, what he has in mind. But instead of answering it, took you by the shoulders and attracted. You have rested their soft breasts against his chest and felt like you in the stomach rests, something solid. He easily pushed you on his shoulders and whispered "Come on baby do not be shy."'
     
         act'Kneel':
		 cls
		 minut+=1
		 gs'stat'
		 '<center><img src="qwest/grisha/bj.jpg" ></center>'
		 'You slowly knelt before then smelling plumber. He unzipped his fly and front of your face turned his cock.'
		 if bj=0:
         'You have not yet had to take by mouth and you looked with horror on the device which you had to suck. Plumber seeing your confusion you took his head and pulled to the member. Your lips involuntarily touched purple head.'
         else
         'You tilt your head slightly forward and kissed the purple head of the penis.'
         end
		     act'suck':
			 cls
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/grisha/bj1.jpg" ></center>'
			 'You wrapped around a warm and hard cock with his lips and began to absorb his mouth uttering sucking sounds. Plumber began to move her hips trying to drive his cock deeper into your mouth. Its solid body fills almost the entire space of your mouth stuck in your throat and choke you involuntarily. From your eyes to tears, but the plumber had already fallen into a rage, and not paying attention to you, fucked your mouth you for holding my head. Finally.'
			 act'Close your eyes.':dynamic $santehnikend3
			 
			 end
		 
		 end
     end
}
$santehnikend2={
cls
kransloman=0
minut+=15
santehnikDolg=1500
if Grisha>=1:$textsan='Grisha you smile. "We do not whose first and last work with you. Write a receipt, I `ll come as something to you for money."'
if Grisha=0:Grisha=1&$textsan='I `m way Grisha, as you like?" You smiled feeling, that the storm had passed , that your name is Light.'
gs'stat'
'<center><img src="img/house/s3.jpg" ></center>'
'You are offered a job in plumbing issue debt. He thought for a moment and said "Fair_Enough. Just write a receipt. I `ll drop like something and you give me the money. <<$textsan>> Then took a pen and paper and began to write plumbing receipt of, that you have it 1500 rubles. Gregory took the paper and put it in your pocket. "If that again slomaetsya, Call, here is my business card."'
act'carry out plumbing.':gt $curloc
}
$santehnikend={
cla
*clr
kransloman=0
set minut+=30
gs'stat'
'<center><img src="img/house/s3.jpg" ></center>'
'Half an hour later he said that the finished, and you 1500 RUB'
     if money<1500:
	 'Do you lack the money'
	 if money+stolmoney>=1500:'But at the table have a stash .'
	 end
	 
     if money+stolmoney>=1500:
	     act'pay':
		 if money<1500:set money=money+stolmoney&stolmoney=0
		 set money-=1500
		 gt 'kuhr'
		 end
	 end
	 
	 if money+stolmoney<1500:
	     act'I did not have enough money':
		 cls
		 gs'stat'
		 '<center><img src="img/house/s3.jpg" ></center>'
		 'You embarrassed and said the plumber, that you do not have enough money. He was visibly angry. "What do you call a plumber girl without even money? And what am I supposed to do now?"'
		     act'I do not know.':dynamic $santehnikend1
		     act'Can borrow? I then give.':dynamic $santehnikend2
		 end
	 end
	 
	 !'if shameless>15:
		 act'Offer other options (do blowjob)':
		 cla
		 *clr
		 set horny+=40
		 gs'stat'
		 '<center><img src="img/house/s4.jpg" ></center>'
		 'I did not have enough money, but can you accept another form of payment? you say, dropping to her knees and starting to unbutton his pants. The guy obviously has no objection and watching your actions. You get it yet flaccid penis and tightly gripping his hand, head start kissing, gradual sucking it into his mouth.'
			 act'carry_On':
				 if vnesh<15:
				 cla
				 *clr
				 set guy+=1
				 set bj+=1
				 '<center><img src="img/house/s5.jpg" ></center>'
				 'You carefully suck his dick, between his legs itched all the desire to, you break off a couple of times to stop and go to sex, but he took you by the head and continued to fuck your mouth, Soon he came into your mouth and only you are going to swallow and bump his cock, as he put on his pants and went to the door silently, sleep with you . From rastrojstva you spit out the sperm on the floor, It seems you do not attract even plumbing.'
				 act 'Get_Away':gt 'korr'
				 end
				 
				 if vnesh>=15:set picrand=90&gt'sex','minet'
			 end
		 end
	 end
	 '
	 
}
$santehnik1={
kransloman=0
set minut+=20
gs'stat'
'<center><img src="img/house/s0.jpg" ></center>'
'You have reached clock repair service. through 20 minutes came Plumber.'
'You followed him into the kitchen, and started to involve themselves in the affairs. When you reached out to one of the shelves, we noticed that he was staring at your ass.'
act'become_confused':dynamic $santehnikend
if shameless>5:act'Disregard':dynamic $santehnikend
}
$santehnik={
cla
*clr
set kransloman=0
if husband=0 or husbandrink=10:dynamic $santehnik1&exit
if husband>0 and week<6 and hour<17 and hour>7:dynamic $santehnik1&exit
if husband>0 and husbandrink!10:
	 cla
	 *clr
	 set minut+=20
	 '<center><img src="img/house/s7.jpg" ></center>'
	 'You told her husband about the crane and he called the clock repair service. through 20 minutes came Plumber.'
	 'Husband took him to the kitchen and the two of you began to observe his actions, you are tired of listening to as a plumber blogged about Chinese seals and valves that people pushed into the shell, and you decided to go to the gym.'
	 act'Get_Away':
		 cla
		 *clr
		 set minut+=20
		 set horny+=50
		 gs'stat'
		 '<center><img src="img/house/s8.jpg"></center>'
		 'You went into the room and sat down on the sofa, soon came and sat down beside her husband. One hand you OD A Y, and the second run you into her panties and began to massage the clitoris you.
		 "Are you, and if the plumber will" Say you.
		 "Yes it there for another hour poking around" he said "Come Quick mouth you will work."
		 "Ok, come_on" answer You, the more you have , His hand has done its job.'
		 act'begin':
			 cla
			 *clr
			 '<center><img src="img/house/s9.jpg"></center>'
			 'The husband stood up and unbuttoned his pants pulled member, You dropped to her knees and only his cock was in your mouth, came into the room Plumber "I finished" he said and paused, Seeing this picture.'
			 if izvratH=0:
				 'Husband tried to remove a member from your mouth'
				 if horny<80:
					 act'terminate':
						 cla
						 'The husband quickly put the dick in his pants and with a plumber out into the corridor'
						 act'Get_Away':gt'sitr'
						 end
					 end
				 act'Do not stop':
					 cla
					 set orgasm+=1
					 set bj+=1
					 'You vskhvatili husband hips and continued to work his mouth, He twitched a couple of times to try to free, but you could not stop and just absorbed the deeper his dick. When he stopped twitching . But the excitement did not sleep, You want even more, and look observing plumbing more excited you. You could not control myself.'
					 act'ride the husband':
						 cla
						 *clr
						 set orgasm+=1
						 set cumpussy+=1
						 set sex+=1
						 set suprdolg+=1
						 set husband+=1
						 set husbizvradd+=1
						 set horny=0
						 '<center><img src="img/house/s12.jpg"></center>'
						 'You released a member of her husband`s mouth and quickly pushed him standing on the sofa, themselves and jumped on top, quickly planted a pussy on his dick. You jumped on it like crazy, ignoring the plumbing that all this time and was on the verge, watching you. When you were again close to orgasm , and making a few movements uvedayuschem already a member , You gave a cry and fell limp on her husband. He took you still quaking with yourself and wearing pants went out with a plumber in the corridor.'
						 act'Get_Away':gt'sitr'
						 end
					 end
				 end
			 if izvratH!0:
				 'The husband did not even try to stop you'
				 if horny<80:
					 act'terminate':
						 if harakHusb!2:
							 cla
							 'You released a member of her husband, and he quickly hid it in his pants '
							 act'Get_Away':gt'sitr'
							 end
						 if harakHusb=2:
							 cla
							 set guy+=1
							 'You tried to spit out a member of the mouth, but her husband vskhvatil you for head and began to fuck you himself in the mouth, obnovremenno talking to the plumber "We`re a little busy, wait a little, Now zhenushku feed" he laughed, "How much do I owe you" he continued.
							 "fifteen hundred" replied the plumber.
							 "Well, may agree, that if you feed it too and disperse?" he asked.
							 "Well I do not know, blowjob is a discount if only pull, But if you try it all, then yes" replied the plumber.
							 "And you know how to bargain" replied the husband "Okay" he added almost without thinking. Knowing the character of her husband you have decided that object will be a more expensive.'
							 act'serve both':set picrand=43&gt'sexdvoe','var'
							 end
						 end
					 end
				 act'Do not stop':
					 cla
					 set bj+=1
					 'You continued to suck ignoring watching you plumbing.'
					 if harakHusb=0:'Husband tried not to look in the direction of plumbing, clearly embarrassed, but he did not hesitate to follow your every movement.'
					 if harakHusb=1:'The husband stood naslozhdaytes process without paying attention to plumbing.'
					 if harakHusb=2:'Husband chatted with plumber did not hesitate even a little turned to what was best seen.'
					 act'carry_On':
						 cla
						 set swallow+=1
						 set suprdolg+=1
						 set husband+=1
						 set horny+=20
						 'You continue to make her husband a blowjob, and soon a stream of hot fluid sprayed into your mouth, swallowing sperm you licked the remnants of his seed with the term. Husband removed the dick in his pants and walked out into the hallway with a plumber. And you were sitting on the floor exhausted from desire.'
						 act'Get_Away':gt'sitr'
						 end
					 if horny>70:
						 act'suggest a threesome':
							 cla
							 'You come off the member, and whispered to her husband, if he wanted to try threesome.'
							 if harakHusb=0:
								 *clr
								 set houseslut+=1
								 set husband+=2
								 '<center><img src="img/house/s11.jpg"></center>'
								 'Husband a bit swept the answer, then what-to convince him you`re in a loud voice continued "Let him polizhet I, while I caress you".
								 Plumber readily stiffened, waiting for her husband`s reaction, "Well." said the husband. Plumbing did not have to persuade, husband should sit on the sofa, and you get on your knees and stuck out his ass, his tongue in your pussy penetrated. At first, but soon relaxed, no sound, you decide that it is not against separate you from others.'
								 act'serve both':set picrand=43&gt'sexdvoe','var'
								 end
							 if harakHusb=1:
								 set husband-=5
								 '"You do sbrendila, what-I had my wife with some sort of plumber shared, Cool pussy fool, think it is necessary to head." cried the husband and removing the term in the pants out of the room with a plumber.'
								 act'Get_Away':gt'sitr'
								 end
							 if harakHusb=2:
								 *clr
								 set houseslut+=1
								 set husband+=2
								 '<center><img src="img/house/s10.jpg"></center>'
								 '"That`s no wonder they say all women are whores, hey guy want this whore for two write out, but then the repair free of charge" said the husband. Plumbing twice OFFER did not have, He quickly went over and took out his dick Framed to your face, You clung to him and began to suck both alternately, and her husband stood komentirovat your actions "Here suck, for fresh meat, Do not forget about me, like this fellow, deeply swallows, deeper."'
								 act'serve both':set picrand=43&gt'sexdvoe','var'
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
}
$metka = $ARGS[0]
$loc = $CURLOC
set polomka=rand(1,100)
'<center><B><font color=maroon>kitchen</font></B></center>'
if remkuhr = 0:'<center><img src="pic/kuhr.jpg" ></center>'
if remkuhr = 1:'<center><img src="pic/kuhr2.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
set housrA = 1
set elektro = elektro + 1
if kransloman=1:
	 cla
	 'You have broken faucet, need to call a plumber'
	 if Grisha=0:act 'cause':dynamic $santehnik
	 if Grisha>0:act 'Call a plumber Grisha':dynamic $santehnikgr
	 act 'Get_Away':gt 'korr'
	 exit
	 end
if polomka > 99 and santehnikDolg=0:set kransloman=1&gt 'kuhr'
if posudomashina>0:
     if dirttarelka>0 and fairy>=dirttarelka:
		 cltarelka+=dirttarelka
		 fairy-=dirttarelka
		 dirttarelka=0
		 'Dishwasher washed the dirty dishes.'
		 elseif fairy<dirttarelka:
		 'It ended with dishwashing detergent.'
		 end
	 end

if cltarelka>0:
'Standing over the sink <B><<cltarelka>></B> pieces of clean plates'
else
'<B><font color=red>You have not left clean dishes.</font></B>'
end
if dirttarelka > 0:'In the sink are <B><<dirttarelka>></B> pieces of dirty dishes. <a href="exec: dynamic $dirtarm ">That can be washed and</a>.'
if fairy>0:
'Standing over the sink dishwashing detergent, which is enough for <B><<fairy>></B> time.'
else
'<B><font color=red>You do not have to wash the dishes than, need to buy dishwashing detergent.</font></B>'
end
if eda>0:
if cltarelka=0 or edahot > 0:$edagot=''
if cltarelka>0 and edahot = 0:$edagot='<a href="exec: dynamic $edagotd ">It can be prepared</a>'
'The refrigerator kept food that will last for <B><<eda>></B> servings. <<$edagot>>'
end
if edaD=0 and eda=0:
'<B><font color=red>The refrigerator ball Roll, generally have nothing to eat.</font></B>'
end
if edaD>0:
'The refrigerator is kept healthy meal that will last for <B><<edaD>></B> servings.'
end
if posudomashina>0:'The kitchen includes a dishwasher.'

if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal.</a>'
if husband>0 and husbandrink!10:
	 if hour=7 or hour=17:
	 '<a href="exec: gt''husb'',''start'' ">At the table eating husband.</a>'
	 end
end

if pranik>0:
'Cookie will suffice for <<pranik>> time.'
     act 'Cup of tea with cookies (5 min)':
     cla
     *clr
     minut+=5
     pranik-=1
     set health = health + 30
     set manna = manna + 100
     energy += 20
     water += 20
     fat+=50
     frost=0
     gs'stat'
     '<center><img src="pics/food.jpg" ></center>'
     'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
     act 'Get up from the table':gt'kuhr'
     end
end

if edaD > 0:
     act 'There are diet food (30 min)':
     cla
     *clr
     frost=0
     '<center><img src="pics/food.jpg" ></center>'
     set minut = minut + 30
     set health = health + 10
     set manna = manna + 20
     set edaD = edaD - 1
         if energy >= 30:
         'You can no longer have.'
         end
         if energy >= 20 and energy < 30:
         set energy = energy + 10
         'You pushed through the power of a meal.'
         end
         if energy < 20:
         set energy = energy +20
         'You gladly ate cooked food.'
         end
         if water >= 20:
         'Tea in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a cup of tea.'
         set water = water +20
         end
     act 'Get up from the table':gt'kuhr'
     end
end

if fatdel > 0:
     act 'to use fat burners':
     cla
     *clr
     if fat>salo:fat=salo
     set fatdel = fatdel - 1
     set fat = fat - 25
     if fat<0:fat=0
     'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
     act 'Get up from the table':gt'kuhr'
     end
end

     act 'drink':
     cla
     set minut = minut + 5
         if water >= 20:
         'Water in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a glass of water.'
         set water = water +20
         end
     act 'Get up from the table':gt'kuhr'
     end

if husband>0 and husbanday>0 and huseatday!day and eda>=2:
     act 'Cook a meal for her husband 1 h (2 unit of food)':
     cla
     *clr
     husband+=5
     set eda = eda - 2
     set minut = minut + 60
     huseatday=day
     manna-=25
     '<center><img src="pics/cook.jpg" ></center>'
     'You cooked food on a plate for her husband.'
     act 'Move away from the stove':gt'kuhr'
     end
end

if lekarstvo>0:
'you have <<lekarstvo>> tablets.'
     if sick>0 and lekarday!day:
         act 'take a pill':
		 cla
		 *clr
		 set minut = minut + 5
		 lekarday=day
		 lekarstvo-=1
		 sick-=sick*20/100
		 set lekrand = RAND (0,8)
		 if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
		 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
		 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
		 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
		 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
		 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
		 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
		 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
		 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
		 'You drank the pill'
		 act 'move_away':gt'kuhr'
		 end
     end
end

if vitamin>0:
'you have <<vitamin>> vitaminok.'
     if vitaminday!day:
         act 'drink Vitaminki':
		 cla
		 *clr
		 if fat>salo:fat=salo
		 set minut = minut + 5
		 vitaminday=day
		 vitamin-=1
		 frost=0
		 if KandidozOnce=1:Kandidoz-=2
		 if GerpesOnce=1:Gerpes-=2
		 if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
		 set skinvan = skinvan + 1
         if skinvan = 20:set skinvan = 0&set skin = skin + 1
		 'You drank Vitaminki'
		 act 'move_away':gt'kuhr'
		 end
     end
end
if zoo >= 6:
	 if husband>0 and husbandrink!10:
		 if hour=7 and hour=17:
			 act 'call <<$namesob>>':
				 cla
				 *clr
				 set minut+=30
				 '<center><img src="zoo/z1.jpg" ></center>'
				 'You call the dog and that the move pushes his wet nose between your legs and lick accepted.'
				 if harakHusb = 0:
					 set zoo+=1
					 set horny=0
					 set orgasm+=1
					 '"What is he doing expensive, stop him" cries husband
					 "I can not, he try" you reply.'
					 set husband-=1
					 '<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away, what to do expensive?" he asks.
					 "Think of-some." you reply, already slightly moaning with pleasure. <<$husName>> begins to pace the room, periodically approached the dog, but hearing him growl departs. So_Long <<$husName>> dog around the room began to jump on you.
					 "dear God, that he was going to do?" yelped <<$husName>>, Seeing the dog attempts to jump on you.
					 "And what you do not clear, he wants to fuck me" answer You.
					 "Dear try again to free" pleaded husband.'
					 act'try':
						 cla
						 *clr
						 '<center><img src="zoo/z2.jpg" ></center>'
						 'You reluctantly start trying to push the dog and move, But it appears to him backwards <<$namesob>> bore down on you all the weight is on top and. You feel his cock rubbing against your thighs ischya hole.'
						 if izvratH=0:
							 '"dear God, I can not look at it" husband shouted and ran out the door slamming. Meanwhile. You moan and he podmahivat, Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. husband returned, and you and were cancer, and dog sperm flowed out of your pussy.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 end
						 if izvratH=1:
							 '"Well get off it" shouts <<$husName>> PSA, but close to it is not appropriate. Meanwhile. You moan and he podmahivat, and your husband decided that your movement is an attempt to free cheered you "Yes Svetsik wiggle so more can happen to lose it". Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. The husband looked at you standing cancer, with hips peremazanymi sobacheС‘ sperm derived from your pussy.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 end
						 act'allow':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 act'Do not allow':
							 cla
							 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
							 "good roads, how can you say."'
							 act 'End_Up':gt'sitr'
							 end
						 end
					 end
				 if harakHusb = 1:
					 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
					 "I can not, he try" you reply.'
					 if izvratH=0:
						 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
						 "I `ll take it right now on euthanasia" said <<$husName>>'
						 act'allow':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 act'Do not allow':
							 cla
							 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
							 "Fair_Enough, see itself, your dog."'
							 act 'End_Up':gt'sitr'
							 end
						 end
					 if izvratH=1:
						 set zoo+=1
						 set bj+=1
						 set swallow+=1
						 set cumlip+=1
						 '"If you can not or do not want to" asked <<$husName>> smiling and continues to sit back and watch as your dog licks.
						 "Already probably do not want to" you are responsible and defiantly Spreading legs wider. <<$husName>> looks like you moan, until the dog licks you and suddenly gets up and pulls member brings it to your mouth.'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="zoo/z3.jpg" ></center>'
							 'You grab his cock sucking mouth and takes, Soon you begin to cover and you end sodragayas whole body, a second <<$husName>> cums in your mouth. You swallow sperm and continue to suck his dick fading. Get drunk dog began naprygivat you with nedvuhslyslennymi intentions.
							 "But it is already too" said <<$husName>> and tried ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
							 "I `ll take it right now on euthanasia" said <<$husName>>'
							 act'allow':
								 set sobaka=0
								 set zoo=0
								 gt'sitr'
								 end
							 act'Do not allow':
								 cla
								 '"No, dear it `s not my fault, his instincts, besides from trying so hard" Say you.
								 "Well" ironically husband.'
								 act'masturbate dog':
									 cla
									 *clr
									 set husband-=1
									 '<center><img src="zoo/z6.jpg" ></center>'
									 'You take the dog dick in hand and begin to masturbate, after a few minutes you dog cums in his hand.'
									 act'End_Up':gt'sitr'
									 end
								 act'suck dog':
									 cla
									 *clr
									 set swallow+=1
									 set husband-=40
									 '<center><img src="zoo/z7.jpg" ></center>'
									 'You lozhite dog on the floor and take his cock in her mouth, husband looks at you with disgust while you sucking dog, a couple of minutes dog diluted into your mouth and you swallow sperm.
									 "Well" husband says with obvious disgust.'
									 act'End_Up':gt'sitr'
									 end
								 act'End_Up':gt'sitr'
								 end
							 end
						 end
					 end
				 if harakHusb = 2:
					 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
					 "I can not, he try" you reply.'
					 if izvratH=0:
						 set manna-=15
						 set willpower-=15
						 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he smashes the dog leg in the ribs and the squealing flies into a corner, dog did not have time to rise as the husband begins to kick even more, Seeing his condition you score in the corner and covering his head with hands close your eyes. A few minutes later the dog stops.
						 "What are you hiding there tidy here, and then krovischi from your skunk" said <<$husName>>. Opening his eyes you see a dead dog in a pool of blood.
						 "Well then froze, tidy you say, I do this on a dog I`ll take the trash." he takes the dog, wrap in a sheet and makes the trash. And you have some time to scour the blood from the floor.'
						 act'End_Up':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 end
					 if izvratH=1:
						 set zoo+=1
						 set bj+=1
						 set swallow+=1
						 set cumlip+=1
						 set SUB+=2
						 '"What do you mean I can not, that you like the way he licks you" shouts <<$husName>>.
						 "No, what do you, of course not" you start making excuses.
						 "And I look at you taschishsya slut, you`re all techesh, Or do you think I do not see, and once you like it so thank him" he says, "Well, vividly."'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="zoo/z4.jpg" ></center>'
							 '<<$husName>> missing dog `s collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding their lust take by mouth and takes dick sucking dog, Husband watching you and encourages saying that the dog really liked your mouth. Soon he was tired of just watching and he dropped his pants says "Well Spreading Legs."'
							 act'allow':
								 cla
								 *clr
								 set suprdolg+=1
								 set sex+=1
								 set anal+=1
								 '<center><img src="zoo/z5.jpg" ></center>'
								 'You dutifully spreads her legs and her husband enters you in the pussy, he hews you while you suck at dog, but you do not dostovlyaet fun. Soon my husband finishes and stands "A dog that has not yet finished, what-then you`re not trying, Well cup your point."'
								 act 'substitute the ass':
									 cla
									 *clr
									 set analorgasm+=1
									 set orgasm+=1
									 set horny=0
									 '<center><img src="zoo/z8.jpg" ></center>'
									 'You go up to her knees and immediately dog jumps on you. without giving kneel. With one hand, and the second point it MEMBER his ass, fingering hole dog comes in and quickly taken to peck your anus. The husband looked at it a little and throwing "Go for otmoyus, by whores" out. Left with a dog for a single podmahivat you start it and soon oschuzaete tide excitation, seems in sex dog exceeds husband, his cock in your ass moving so deftly that after the excitement comes orgasm, and you fall on korachki no longer able to stand, dog makes a few movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
									 act'End_Up':gt'sitr'
									 end
								 end
							 end
						 end
					 end
				 end
			 else
			 act 'call <<$namesob>> ':gt 'soba', 'zoof27'
			 end
		 end
	 if husband=0 or husbandrink=10:
		 act 'call <<$namesob>> ':gt 'soba', 'zoof27'
		 end
	 end

if musor>3 and nude=1:act'throw out the trash':'I can not go to the trash naked!'
if musor>3 and nude=0:act'throw out the trash':gt'trashplace'

if dildo > 0 and horny >= 50:
	 act 'masturbate':
		 cla
		 *clr
		 set minut+=30
		 set mastr+=1
		 set manna+=15
		 set willpower+=15
		 set vagina+=1
		 if husband>0 and husbandrink!10:
			 if week>5 or week<6 and hour>16:
				 cla
				 *clr
				 '<center><img src="img/hasb/m1.jpg" ></center>'
				 'You climb up on the table and enter yourself in the pussy dildo'
				 if hour=7 or hour=17:'<<$husName>> looking at you, obviously a little dumbfounded.'
				 if hour!7 or hour!17:'Once you get a taste of how the kitchen is included <<$husName>>'
				 if harakHusb = 0:
					 '"What are you doing dear?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "And often you do that" he asks.
					 "Owned since, often, less in the ass, want to see?" asked you'
					 if izvratH=0:
						 set husband-=1
						 '"I `d rather wait outside the door until you finish" he said. You continue to satisfy itself rapidly and soon finished.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'kuhr'
						 end
					 if izvratH=1:
						 '"Well" he hesitated.
						 "So you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m2.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Can I join?" a little embarrassed he asks.'
							 act'solve':
								 cla
								 *clr
								 set analorgasm+=1
								 set orgasm+=1
								 set horny=0
								 '<center><img src="img/hasb/m3.jpg" ></center>'
								 '<<$husName>> gets dick and starts masturbating, this is not what you expected and at first you even felt a little sorry that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at, as you drive the dildo his popkui be covered and you enjoy, you screamed and fell to the table, orgasm, Dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you removed the dildo from ass and began to lick his, Despite her husband `s eyes, from such a spectacle it once discharged on the floor. You reached out to him sticking out his lips, a second later he was passionately kissing you.'
								 act 'End_Up':gt'kuhr'
								 end
							 end
						 end
					 end
				 if harakHusb = 1:
					 '"That`s number and I mean you do not have enough?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "Well then" he says.
					 "And as I have in the ass to do the show?" asked you'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"No, do not, and yet this is enough" he said. You continue to satisfy itself rapidly and soon finished in front of husband. <<$husName>> stood up and began to applaud "bravo, as an encore once more?" he said laughing.
						 "For such a wonderful audience anything, but only after intermission" you laughed. <<$husName>> helped you to get off the table.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'kuhr'
						 end
					 if izvratH=1:
						 set husband+=1
						 '"And how is it, Demonstrate necessarily" he said.
						 "Whatever you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m2.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Do not just want but do" he said, unbuttoning his pants and substitute member to your face.'
							 act'Take by mouth':
								 cla
								 *clr
								 '<center><img src="img/hasb/m4.jpg" ></center>'
								 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "Well."'
								 act 'substitute the ass':
									 set picrand=87
									 gt'sex','anal'
									 end
								 end
							 end
						 end
					 end
				 if harakHusb = 2:
					 '"That the hole was combed?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"Well then opens her mouth" he said pulling member and roughly pushing it in your mouth, he held your hair and fucked in the mouth, saying that-you would not stop masturbating. Soon he was tired of your mouth "Now take out of this hole rubber trash, now I `ll fuck you"'
						 act 'spread her legs':
							 set picrand=87
							 gt'sex','vag'
							 end
						 end
					 if izvratH=1:
						 set SUB+=1
						 set husband+=1
						 '"Embed this crap yourself in the ass and mash, I soon his popolzuetsya, and while pine Quick" he said, pulling member. You will quickly rearrange dildo pussy of the anus and humbly open your mouth.'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="img/hasb/m4.jpg" ></center>'
							 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "all, cup your point, and this crap yourself in pussy zasun, like you to fuck Two Smoking Barrels"'
							 act 'substitute the ass':
								 set picrand=87
								 gt'sex','anal'
								 end
							 end
						 end
					 end
				 else
				 set horny=0
				 set orgasm+=1
				 '<center><img src="pics/mastr.gif" ></center>'
				 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
				 act 'breathe.':gt'kuhr'
				 end
			 else
			 set horny=0
			 set orgasm+=1
			 '<center><img src="pics/mastr.gif" ></center>'
			 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
			 act 'breathe.':gt'kuhr'
			 end
		 end
	 end
--- kuhr ---------------------------------

# korr
ACT 'In the bedroom':
	gt'bedr'
END
ACT 'In the bathroom':
	gt'vanr'
END
ACT 'the kitchen':
	gt'kuhr'
END
ACT 'In the room':
	gt'sitr'
END
ACT '<font color=maroon>In the staircase</font>':
	cls
	if sick<=72 and nude = 0:
	xgt'etoexhib','pos51'
	elseif nude = 0:
	'<B><font color=red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
	xgt $curloc
	else
	'<B><font color=red>You have to get dressed.</font></B>'
	xgt $curloc
	end
END
ACT '<B><font color=maroon>outdoors</font></B>':
	cls
	if sick<=72 and nude = 0:
	xgt'street'
	elseif nude = 0:
	'<B><font color=red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
	xgt $curloc
	else
	'<B><font color=red>You have to get dressed.</font></B>'
	xgt $curloc
	end
	
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
set popolaini=0
set saunaYouRoom=0
set boycherdaksex=0
'<center><B><font color=maroon>corridor</font></B></center>'
if remkorr = 0:'<center><img src="pic/korr.jpg" ></center>'
if remkorr = 1:'<center><img src="pic/korr2.jpg" ></center>'
clr
gs'stat'
bonusZ=0
music_on=0
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
set housrA = 1
set housrMir = 0
set elektro = elektro + 1
if ring = 1:'<B><font color=red>The phone rings</font></B>'
if remkorr = 0:'In the hallway where some wallpaper away from the wall and have long faded. At the entrance hangs outerwear and costs shelf for shoes. On the wall hangs <a href="exec:GT ''mirror'',''start''">mirror</a>, near hanging <a href="exec:GT ''telefon'',''start''">phone</a>'
if remkorr = 1:'Modern hall with stylish furniture, on the wall hangs a large <a href="exec:GT ''mirror'',''start''">mirror</a>, near hanging <a href="exec:GT ''telefon'',''start''">phone</a>'
if suhbelo > 0:'Dried on the clothesline <<suhbelo>> units linen.'
if umbrella > 0:'On the hook hanging umbrella.'
if palto>0:'Hanging on a hook <<$palto>>'
if sobaka = 1: 'Near the entrance to the bedroom is your <a href="exec:GT ''soba'',''start''"><<$namesob>></a>'
if krolik = 1: 'Resting on the floor <a href="exec:GT ''krol'',''start''"><<$namekrol>></a>'
if popugai = 1: 'In the cage sits <a href="exec:GT ''popu'',''start''"><<$namepopu>></a>'
if parkday ! day and parkblackmail = 1:
	 'You come in the mail manila envelope, opening it you see the pictures. Damn, pictures is how you do a blowjob to two guys in the park.'
	 'A small note says:'
	 'If you do not want to have these pictures were raskleiny on your porch and sent to your job, come at (In the address specified Studio)'
	 'PS, if you do not come today, tomorrow photos will hang you in the stairwell.'
	 Set parkblackmail = 2
	 Set parkday = day
	 end

if parkday ! day and parkblackmail = 2:
'Damn, your photos smeared with sperm in the face and with two huyami mouth raskleiny around porch.'
Set parkblackmail = 0
fotoyousuck=1
end

if bfA < 0:
'<B><font color=red>Your guy does not call you, apparently he threw you.</font></B>'
set bfA = 0
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyA:
set ring = 1
set ringA = 1
'<B><font color=red>The phone rings</font></B>'
end 
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyB:
set ring = 1
set ringB = 1
'<B><font color=red>The phone rings</font></B>'
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyC:
set ring = 1
set ringC = 1
'<B><font color=red>The phone rings</font></B>'
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyA:
'<B><font color=red>Your guy does not call you, apparently he threw you.</font></B>'
set bfA = 0
end 
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyB:
'<B><font color=red><<$boyB>> you do not call, apparently he threw you.</font></B>'
set bfB = 0
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyC:
'<B><font color=red><<$boyC>> you do not call, apparently he threw you.</font></B>'
set bfC = 0
end

if vladimirday!day and vladimirQW=20 and hour>= 15 and hour<=17:'<a href="exec:GT ''qwloc2''"><font color=red><B>The phone rings</B></font></a>.'
if vladimirday!day and vladimirQW=25 and hour>= 15 and hour<=17 and week=6:'<a href="exec:GT ''qwloc3''"><font color=red><B>The phone rings</B></font></a>.'
if vladimirday!day and vladimirQW=35 and hour>= 15 and hour<=17 and week=6:'<a href="exec:GT ''qwloc4''"><font color=red><B>The phone rings</B></font></a>.'
if QWdogreiqTimer=0 and QWdogReiq=2 and week=7 and qwdogiventday!day and hour>=12:'<a href="exec:GT ''qwlocdog''"><font color=red><B>The phone rings</B></font></a>.'

if bfA = 1 or bfB = 1 or bfC = 1:
     if bfA = 1 and boydayA ! day and hour > 5 and hour < 20 and ringA = 0:
         if bfb = 1:set bfb = 0
         if bfc = 1:set bfc = 0
         
         if vnesh < vneshBoyA:
         'Your guy will not call back.'
         set bfA = 0
         end
         
         if vnesh >= vneshBoyA:
         set ring = 1
         set ringA = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end
     if bfB = 1 and boydayB ! day and hour > 5 and hour < 20 and ringB = 0:
         if bfa = 1:set bfa = 0
         if bfc = 1:set bfc = 0
         
         if vnesh < vneshBoyB:
         '<<$boyB>> you do not call back.'
         set bfB = 0
         end
         
         if vnesh >= vneshBoyB:
         set ring = 1
         set ringB = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end
     if bfC = 1 and boydayC ! day and hour > 5 and hour < 20 and ringC = 0:
         if bfa = 1:set bfa = 0
         if bfb = 1:set bfb = 0
         
         if vnesh < vneshBoyC:
         'Your guy will not call back.'
         set bfC = 0
         end
         
         if vnesh >= vneshBoyC:
         set ring = 1
         set ringC = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end

end

if hour>=9 and hour<=20 and santehnikDolg>0 and money>=santehnikDolg:
'<B><font color=red>The doorbell rings</font></B>'
     act 'Come to the door':
     cls
     gs'stat'
     'You came to the door and looked through the peephole. On the site you see the dark figure of a man. Apparently the man heard you and told you through the door. "this is me. plumber Grisha. You have my money."'
         act 'answer the door':
		 cls
		 money-=santehnikDolg
		 santehnikDolg=0
		 gs'stat'
		 'You opened the door plumbing and Grisha smiled. "I thought you were hiding from me now will. Well? There is nothing to pay?" You nodded and climbed for purse. Counting fifteen hundred you gave money Grisha and he put them in his pocket. Then say goodbye and left.'
		 act 'close the door':gt $curloc
		 end
     end
end

if IvanPodstavaQW=3 and hour>=9 and hour<=20:
cls
IvanPodstavaQW=4
	 if DolgRS<=moneySUM:
	 money=moneySUM-650000
	 karta=0
	 stolmoney=0
	 minut+=120
	 'For you came up the police and took you to court. You were able to pay your debt and you will go to reconcile the parties.'
	 act 'Get out of the courthouse':gt 'down'
	 end
	 if DolgRS>moneySUM:
	 DolgRS=650000-moneySUM-60000
	 money=0
	 karta=0
	 stolmoney=0
	 age+=5
	 vidage+=7
	 year+=5
	 money=2000
	 
	 'For you came up the police and took you to court. At trial, obliged to pay debt <<DolgRS>>.'
	     act 'Sitting on the zone':
	     cls
	     srok_kolvo=1
	     srok_otsidki+=5
	     salo=10
	     fat=10
	     curly=0
	     mop=1
	     skin=0
	     tan=0
	     leghair=6
	     lobok=3
	     bfa=0
	     narkoman = 0
	     nark = 0
	     SLomka=0
	     work = 0
	     workKafe = 0
	     workhosp =0
	     worksalon =0
	     tanwork =0
	     workSec =0
	     stipuha =0
	     preg = 0
	     young_shop_work = 0
	     set student = 0
		 set kurs = 0
		 set semestr = 0
		 set abiturient = 0
		 set stipuha = 0
		 set lektor = 0
	     gs'stat'
	     'Time dragged on for a long time. Your life and work was tedious and monotonous. You five years sewed quilted jackets, dinner in the dining room and went to sleep in the barracks surrounded by other women inmates. With your salary 2000 rubles a month listed 1000 debt repayment. But time does not stand still and still come to the end of your torment. You let go and gave 2000 rubles. You took the train and came back to the city.'
	     act 'Get off the train':gt'vokzal'
	     end
	 end

exit
end

if IvanPodstavaDay!day and IvanPodstavaQW=1 and hour>=8 and hour<=20:
'<B><font color=red>The doorbell rings</font></B>'
     act 'Come to the door':
     cls
     gs'stat'
     'You came to the door and looked through the peephole. On the site you will see a few men. In the dark you looked at them cap. One of the men said to you through the door. <<$name>> <<$surname>> open, militia.'
         act 'answer the door':
		 cls
		 minut+=60
		 IvanPodstavaQW=2
		 gs'stat'
		 'You opened the door to police puzzled, what they want from you. In the room were several men in uniform and with them several men in civilian clothes. Lean and skinny guy with stubble week and a pistol in a holster on a belt tied armpit said. "witnesses, take your seats. Who will search in the apartment of the citizen, who is accused of stealing." The investigator turned to you. "Here warrant, this for your arrest, the search warrant. can be found." Policemen full searched your apartment. Soon one of them came out and said. Here are found the keys, judging by the description is just the keys to the office and safe, from where they were stolen money. Witnesses signed the protocol that gave them the investigator. He scowled at you and nodded policeman, he has got your hands behind your back and on your wrists snap handcuffs.'
		     act 'To go with the police':
		     cls
		     minut+=60
		     gs'stat'
		     'You brought in handcuffs from the house and put him in a police UAZ. after, steel door slams and UAZ car started shaking and growling at each bump. Finally you come somewhere and you took out UAZ conducted in the office of the already familiar to the investigator. He took off the handcuffs and asked you to sit down. You sat on the hard and uncomfortable chair, and the investigator in the meantime turned on the TV and set up a video cassette. On the screen was a picture with the camera in bystroeshke. There I could see the corridor. Soon appeared in the corridor you. You came to the door and opened it entered the office. After a while. The investigator turned off the VCR and took the tape, then he put another tape. On the next drawer cabinet was Anatoly Borisovich. The front door opened and it included you, Keep your keys in the hands of. You have come to the safe and opened it with the key. got an envelope. <<$burgerIvanText>>. The investigator turned the TV off and pulled out a plastic bag table with keys. He threw them on the table and finally spoke. "The examination found, it`s really the keys to the office and the safe owner bystroezhki. During the search they were found in your apartment. On the recording surveillance cameras can clearly see how you entered the office and stole 650 thousand." He took the protocol and taking pen in hand he began to write. Scribbled floor sheet he raised his gloomy eyes on you and said. "Sincere confession will help you in court. All the same, that you return the money, you may be given a conditional sentence, if you admit guilt."'
		         act 'sign recognition':
				 cls
				 minut+=60
				 gs'stat'
				 'You signed a confession and an investigator barked "duty." Policeman entered the room. The investigator nodded showing him you, Take her.'
				 act 'go':gt'kameraKPZ'
				 end
				 
				 act 'Tell how it was':
				 cls
				 minut+=60
				 gs'stat'
				 'You were telling the investigator how it was. As a manager you Ivan Framed. But the investigator listened to you on the floor of the ear. Finally "I was not born yesterday, that would make me such nonsense feed! If you do not cooperate, I`ll rot!" Policeman entered the room. The investigator nodded showing him you, Take her.'
				 act 'go':gt'kameraKPZ'
				 end
		     end
		 end
     end
exit
end

if gopstop>30:gt 'police','1'


if sick>0 and doktorday!day:
	 !'act 'Call a physician':
	 cla
	 *clr
	 set minut = minut + 15
	 doktorday=day
	 sick-=5
	 if sick<1:sick=1
	 if sickstage=1:sicktimer+=5
	 'To you the doctor came out and inspected the clinic you. After examination.'
	 act 'move_away':gt'korr'
	 end'
	 
	 act 'Call a physician':doktorday=day&dynamic $polidin
end

$ninel0={
cla
*clr
'<center><img src="inBed/ninel00.jpg" ></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim traveling bag in his hand.'
'(Do_You) - hello, doctor'
'(doctor) - hello. My name Ninel Pavlovna - I substitute your local therapist. where the patient?'
'(Do_You) - this is me... kha-kha-kha.'
'(doctor) - It_Is_Clear. Then come - you need to go back to bed.'
	 act'To carry out the doctor `s bedroom and lie down':
	 cla
	 *clr
	 set ninelmet = 1
	 '<center><img src="inBed/nadom0.jpg" ></center>'
	 'The doctor sat on the edge of your bed and sprsil:'
	 '(doctor)- At that complain, Sveta? Can I call you?'
	 '(Do_You) - Of_Course... Kha, kha, kha... oh, doctor, surely, i have the flu - cough just kills and very sore throat. And the temperature is high.'
	 '(doctor) - runny nose there? headaches? Aching bones?'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 '(doctor) - Now I will examine you. Undress.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5 
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="inBed/nadom1.jpg" ></center>'
		 'You undressed and listened to the doctor for a long time your lungs. Her hands cool and gentle touch and a stethoscope like a weasel...'
		 '(doctor) - Yes_I_Am, crepitation... Now open your mouth. here we go - "and-and-and"...'
			 act'A-a-a':
			 cla 
			 *clr
			 '<center><img src="inBed/ninel03.jpg" ></center>'
			 'You have opened my mouth and the doctor examined your sore throat'
			 '(doctor) - hmmm... throat blushed and inflamed... Now it is necessary to measure the temperature.'
				 act'Stick a thermometer in her mouth':
				 cla
				 *clr
				 '<center><img src="inBed/ninel04.jpg" ></center>'
				 '(doctor) No, not. The temperature should be measured rectally.'
				 '(Do_You) - E-e-e...'
				 '(doctor) - do not be afraid, Sveta, is not painful.' 
				 '(Do_You) - Well...'
				 '(doctor) - I`m_sure. Come - lie down on his stomach and spread your arms buttocks.'
					 act'substitute the ass':
					 cla
					 *clr
					 set minut = minut + 10
					 set horny = horny + 10
					 clr
					 gs'stat'
					 '<center><img src="inBed/nadom2.jpg" ></center>'
					 'You obediently flips and substitute the ass. Dr. lubricate your anus lubricant and deft movement introduces a thermometer. you flinch, but no pain, and pleasure. The doctor does not leave the thermometer just stick in your ass, and slowly moves it there-here and it is very nice. Do you feel the growing excitement.'
					 
						 if horny >= 50:
							 act'Moan with pleasure':
							 cla 
							 *clr 
							 '<center><img src="inBed/nadom3.jpg" ></center>'
							 'The doctor takes out a thermometer from your priests and checks'
							 '(doctor) 39,2... very bad. Turn, you`re_welcome, on the back - you need to palpate lymph nodes.'
								 act'Roll over on his back':
								 cla
								 *clr
								 set minut = minut + 15
								 set horny = horny + 10
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom5.jpg" ></center>'
								 'The doctor began to stroke and knead your stomach and thighs. You are not sure, it is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.' 
								 'excitation, meanwhile, all increases, you feel, as your pussy moistened and begins to whine sweet...'
									 act'Blush with embarrassment': 
									 cla
									 *clr
									 set horny = horny + 15
									 !set time = time + 15
									 clr
									 gs'stat'
									 '<center><img src="inBed/nadom6.jpg" ></center>'
									 'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									 '(Do_You) - doctor, what you do?! - simultaneously embarrassed, indignant and frightened screams you.'
									 '(doctor) - I treat you, stupid. I feel your magic, which means you`re one of us.'
									 '(Do_You) - So you?!'
									 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
									 '(Do_You) - No, I do not remember...'
									 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
									 '(Do_You) - i.e...?'
									 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
									 '(Do_You) - And in return?'
									 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
									 '(Do_You) - Then of course - I agree.'
										 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
									 end
								 end
							 end
						 end 
					 
						 act'rebel':
						 cla
						 *clr
						 '<center><img src="inBed/nadom3.jpg" ></center>'
						 '(Do_You) - doctor, what you do?'
						 'The doctor takes out a thermometer from your priests and calmly answers:'
						 '(doctor) - You measure the temperature. 39,2 - very bad.'
							 act'doctor, that with me?':
							 cla 
							 '(Do_You, fright) - doctor, that with me?' 
							 '(doctor) Do you really have the flu. Now I `ll give you an injection of antibiotic and antipyretic .'
								 act'Lie on your stomach and bare ass':
								 cla
								 *clr
								 set minut = minut + 10
								 set sick = sick - 2
								 set lekar = lekar + 3
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom4.jpg" ></center>'
								 'The doctor give you an injection in the ass - you cried'
								 '(doctor) - already all, already all.  You prescribe bed rest, hot drink, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
								 '(Do_You) - thanks you, doctor - necessarily.'
								 'The doctor said goodbye and left.'	
									 act'Back to bed':gt'bedr'
								 end
							 end
						 end
					 
						 act'doctor, that with me?':
						 cla
						 '(Do_You, fright) - doctor, that with me?' 
						 '(doctor) - I`M_Afraid, that you have a sore throat, Sveta. I would advise you to inpatient treatment'
						 '(Do_You) - This is what - hospitalized, what-whether?'
						 '(doctor) - Well yes'
							
							 act'Opt_Out':
							 cla
							 *clr
							 '(Do_You, sobbing) - oh, doctor, I do not want to hospital...'
							 '(doctor, reflectively) - well-at... probably all-still possible. Then I `ll give you a couple of jabs - for a start...'
							 '(Do_You) - oh, thank_you, doctor!'
								 act'Lie on your stomach and bare ass': 
								 cla
								 set minut = minut + 15
								 set horny = 100
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom9.jpg" ></center>'
								 'The doctor made вЂ‹вЂ‹you a few shots in the ass, and you suddenly seized incredible sexual arousal. Between her thighs as if you fire broke out, sweet pussy ache and flowed, breasts grew heavy, nipples stiffened and hardened...'
								 '(Do_You) - doctor, what`s happening? - you scream in fright and embarrassment, but your voice treacherously broken on voluptuous groan'
								 '(doctor) - Yup! I knew - I feel your magic, which means you`re one of us.'
								 '(Do_You) - So you?!.'
								 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
								 '(Do_You) - No, I do not remember...'
								 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
								 '(Do_You) - i.e...?'
								 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
								 '(Do_You) - And in return?'
								 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
								 '(Do_You) - Then of course - I agree.'
									 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
								 end
							 end 
						 end
					 end
				 end
			 end
		 end
	 end
}

$drPP={
cla
*clr
'You open the door. Stands on the threshold of an elderly man with a bald meitsinskim traveling bag in his hand.'
'(Do_You) - Kha-kha... hello, doctor'
'(doctor) - hello, sick - I Peter, your primary care physician. Go back to bed - do not stand in a draft.'
	 act'Hold doctorate in bedroom.':
	 cla
	 *clr
	 '<center><img src="inBed/drPP1.jpg" ></center>'
	 'You came back into the bedroom with Dr.. He sat on the edge of the bed and felt your forehead'
	 '(doctor) - well-with, sick, to complain that?'
	 '(Do_You) - Kha, kha, kha... oh, doctor, surely, I have a sore throat - very sore throat and high temperature.'
	 '(doctor) - And cough, as I see it. And, judging by your voice, nose you, sick, laid.'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 '(doctor) - well-with, sick, Dwight you hear. Undress.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5
		 clr
		 gs'stat'
		 '<center><img src="inBed/drPP2.jpg" ></center>'
		 'You undressed and Dr. long vysnushival your lungs'
		 '(doctor) - so_Much-with. Now let`s look at the neck. Open your mouth wide and say "A-and-and" '
			 act'A-a-a':
			 cla
			 *clr
			 '<center><img src="inBed/drPP3.jpg" ></center>'
			 'You have opened my mouth and the doctor looked at your red sore throat'
			 '(doctor) - ouch-yay-yay... How is it that you are so? must be tempered, sick - harden. well-with, let you measure the temperature.'
				 act'Put a thermometer armpit':
				 cla
				 *clr
				 '<center><img src="inBed/drPP4.jpg" ></center>'
				 'The doctor looked at the thermometer and shook his head'
					 act'doctor, that with me?':
					 cla 
					 '(doctor) You have the flu, sick. That`s all right - I `ll give you a shot and you will feel better soon. Soak a couple of days in bed, drinks of drugs, and it becomes easier - to me at the reception'
						 act'substitute the ass':
						 cla
						 *clr
						 set minut = minut + 10
						 set sick = sick - 2
						 lekarstvo+=3
						 gs'stat'
						 '<center><img src="inBed/drPP5.jpg" ></center>'
						 'The doctor made вЂ‹вЂ‹you a shot in the ass - you cried'
						 '(doctor) - well-well, sick, nothing wrong. And remember - bed rest, regular meals and medication. And do not forget to come to the reception.'
						 '(Do_You) - thanks you, doctor - necessarily.'
						 'The doctor said goodbye and left, and you venules in bed.'
							 act'Back to bed':gt'bedr'
						 end
					 end
				 end 
			 end 
		 end
	 end
}

$polidin={
cla
*clr
set minut = minut + 15
set callrand = RAND (0,2)
if callrand = 0:'<center><img src="inBed/housecall.jpg" ></center>'
if callrand = 1:'<center><img src="inBed/housecall1.jpg" ></center>'
if callrand = 2:'<center><img src="inBed/housecall2.jpg" ></center>'
'You dial the number several times clinics - there all the time busy.'
	 act 'To call again and again':
	 cla
	 'Finally. Tired voice answered the nurse in the tube:'
	 '(nurse) - Hello - registry...'
		 act 'hello...':
		 cla
		 '(Do_You) - hello. Kha-kha... Can I call the doctor at home?'
		 '(nurse) - Your name and address?'
			 act 'introduce':
			 cla
			 '(Do_You) - E... Kha-kha! Excuse_Me... Svetlana Lebedeva. Park Street home 4 apartment 69... A-and-pchhi-and!!!'
			 '(nurse) - That`s all right. Wait_a_minute.'
				 act 'wait':
				 cla
				 set minut = minut + 5
				 clr
				 gs'stat'
				 'Five minutes you waiting, occasionally coughing into a tube and finally hear:'
				 '(nurse) - so_Much - Svetlana Lebedeva. here`s your card... What ails you?'
				 '(Do_You) - Kha-kha-kha... Excuse_Me... I have a fever and sore throat are very. And cough and runny nose.'
				 '(nurse) - the temperature is high?'
				 '(Do_You) - Yes_I_Am, very_much - 39,2... A-and-pchhi!'
				 '(nurse) - I_Get_It. wait - Doctor will come to you.'
				 '(Do_You) - And soon?'
				 '(nurse) - Once able to. your challenge - not only.'
				 '(Do_You) - save... Kha-kha! ...thank_you...'
					 if ninelsex = 1:
						 act 'Is it possible to call Ninel Pavlovna?':
						 cla
						 '(Do_You) - Is it possible to call Ninel Pavlovna? She gave me a regular osmatrivat.'
						 '(nurse) - I recognize, Is it free.'
						 '(Do_You) - Once again.'
						 act '...':gt'housecall','ninel3'
						 end
					 end
					 
					 act 'Back to bed':
					 cla
					 *clr
					 set picrand = RAND (0,6)
					 if picrand = 0:'<center><img src="inBed/sick27.jpg" ></center>'
					 if picrand = 1:'<center><img src="inBed/sick21.jpg" ></center>'
					 if picrand = 2:'<center><img src="inBed/sick22.jpg" ></center>'
					 if picrand = 3:'<center><img src="inBed/sick23.jpg" ></center>'
					 if picrand = 4:'<center><img src="inBed/sick24.jpg" ></center>'
					 if picrand = 5:'<center><img src="inBed/sick25.jpg" ></center>'
					 if picrand = 6:'<center><img src="inBed/sick26.jpg" ></center>'
					 set timerand = RAND (0,5)
					 if timerand = 0:set minut = minut + 30
					 if timerand = 1:set minut = minut + 60
					 if timerand = 2:set minut = minut + 90
					 if timerand = 3:set minut = minut + 120
					 if timerand = 4:set minut = minut + 150
					 if timerand = 5:set minut = minut + 180
					 'You lie in bed, shivering in the chill and wrapped in a blanket. Time drags painfully slow - you can not say, how much time passed, before the doorbell rang.'
						 act 'answer the door':
						 if ninel > 0 and sick=<50:gt'housecall','ninel1'
							 if ninel=0 or sick>50:
							 set doctrnd = RAND (0,1)
							 if doctrnd = 0:dynamic $drPP
							 if doctrnd = 1:gt'housecall','ninel0'
							 end 
						 end
					 end
				 end
			 end
		 end
	 end 
}
--- korr ---------------------------------

# housecall
if $ARGS[0]='ninel0':
cla
*clr
'<center><img src="inBed/ninel00.jpg" ></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim traveling bag in his hand.'
'(Do_You) - hello, doctor'
'(doctor) - hello. My name Ninel Pavlovna - I substitute your local therapist. where the patient?'
'(Do_You) - this is me... kha-kha-kha.'
'(doctor) - It_Is_Clear. Then come - you need to go back to bed.'
	 act'To carry out the doctor `s bedroom and lie down':
	 cla
	 *clr
	 set ninelmet = 1
	 '<center><img src="inBed/nadom0.jpg" ></center>'
	 'The doctor sat on the edge of your bed and sprsil:'
	 '(doctor)- At that complain, Sveta? Can I call you?'
	 '(Do_You) - Of_Course... Kha, kha, kha... oh, doctor, surely, i have the flu - cough just kills and very sore throat. And the temperature is high.'
	 '(doctor) - runny nose there? headaches? Aching bones?'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 '(doctor) - Now I will examine you. Undress.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5 
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="inBed/nadom1.jpg" ></center>'
		 'You undressed and listened to the doctor for a long time your lungs. Her hands cool and gentle touch and a stethoscope like a weasel...'
		 '(doctor) - Yes_I_Am, crepitation... Now open your mouth. here we go - "and-and-and"...'
			 act'A-a-a':
			 cla 
			 *clr
			 '<center><img src="inBed/ninel03.jpg" ></center>'
			 'You have opened my mouth and the doctor examined your sore throat'
			 '(doctor) - hmmm... throat blushed and inflamed... Now it is necessary to measure the temperature.'
				 act'Stick a thermometer in her mouth':
				 cla
				 *clr
				 '<center><img src="inBed/ninel04.jpg" ></center>'
				 '(doctor) No, not. The temperature should be measured rectally.'
				 '(Do_You) - E-e-e...'
				 '(doctor) - do not be afraid, Sveta, is not painful.' 
				 '(Do_You) - Well...'
				 '(doctor) - I`m_sure. Come - lie down on his stomach and spread your arms buttocks.'
					 act'substitute the ass':
					 cla
					 *clr
					 set minut = minut + 10
					 set horny = horny + 10
					 clr
					 gs'stat'
					 '<center><img src="inBed/nadom2.jpg" ></center>'
					 'You obediently flips and substitute the ass. Dr. lubricate your anus lubricant and deft movement introduces a thermometer. you flinch, but no pain, and pleasure. The doctor does not leave the thermometer just stick in your ass, and slowly moves it there-here and it is very nice. Do you feel the growing excitement.'
						 if horny >= 50:
							 act'Moan with pleasure':
							 cla 
							 *clr 
							 '<center><img src="inBed/nadom3.jpg" ></center>'
							 'The doctor takes out a thermometer from your priests and checks'
							 '(doctor) 39,2... very bad. Turn, you`re_welcome, on the back - you need to palpate lymph nodes.'
								 act'Roll over on his back':
								 cla
								 *clr
								 set minut = minut + 15
								 set horny = horny + 10
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom5.jpg" ></center>'
								 'The doctor began to stroke and knead your stomach and thighs. You are not sure, it is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.' 
								 'excitation, meanwhile, all increases, you feel, as your pussy moistened and begins to whine sweet...'
									 act'Blush with embarrassment': 
									 cla
									 *clr
									 set horny = horny + 15
									 set time = time + 15
									 clr
									 gs'stat'
									 '<center><img src="inBed/nadom6.jpg" ></center>'
									 'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									 '(Do_You) - doctor, what you do?! - simultaneously embarrassed, indignant and frightened screams you.'
									 '(doctor) - I treat you, stupid. I feel your magic, which means you`re one of us.'
									 '(Do_You) - So you?!'
									 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
									 '(Do_You) - No, I do not remember...'
									 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
									 '(Do_You) - i.e...?'
									 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
									 '(Do_You) - And in return?'
									 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
									 '(Do_You) - Then of course - I agree.'
										 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
									 end
								 end
							 end
						 end 
					 
						 act'rebel':
						 cla
						 *clr
						 '<center><img src="inBed/nadom3.jpg" ></center>'
						 '(Do_You) - doctor, what you do?'
						 'The doctor takes out a thermometer from your priests and calmly answers:'
						 '(doctor) - You measure the temperature. 39,2 - very bad.'
							  if sick< 48:
								 act'doctor, that with me?':
								 cla 
								 '(Do_You, fright) - doctor, that with me?' 
								 '(doctor) Do you really have the flu. Now I `ll give you an injection of antibiotic and antipyretic .'
									 act'Lie on your stomach and bare ass':
									 cla
									 *clr
									 set minut = minut + 10
									 set sick = sick - 2
									 set lekar = lekar + 3
									 clr
									 gs'stat'
									 '<center><img src="inBed/nadom4.jpg" ></center>'
									 'The doctor give you an injection in the ass - you cried'
									 '(doctor) - already all, already all.  You prescribe bed rest, hot drink, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
									 '(Do_You) - thanks you, doctor - necessarily.'
									 'The doctor said goodbye and left.'	
										 act'Back to bed':gt'bedr'
									 end
								 end
							 end
							 
							 if sick >= 48:
								 act'doctor, that with me?':
								 cla
								 '(Do_You, fright) - doctor, that with me?' 
								 '(doctor) - I`M_Afraid, that you have a sore throat, Sveta. I would advise you to inpatient treatment'
								 '(Do_You) - This is what - hospitalized, what-whether?'
								 '(doctor) - Well yes'
									 !'act'agree':
									 cla 
									 '(Do_You, sobbing) - oh... Kha-kha-kha... If you think, that it is really necessary...'
									 '(doctor) - I`M_Afraid, yes - this is a serious disease... But do not be afraid - we have a good hospital.'
									 '(Do_You) - well, I agree.' 
										 act'Go to hospital':
										 cla
										 *clr
										 set minut = minut + 120
										 gt'hospital','start'
										 end
									 end' 
									 
									 act'Opt_Out':
									 cla
									 *clr
									 '(Do_You, sobbing) - oh, doctor, I do not want to hospital...'
									 '(doctor, reflectively) - well-at... probably all-still possible. Then I `ll give you a couple of jabs - for a start...'
									 '(Do_You) - oh, thank_you, doctor!'
										 act'Lie on your stomach and bare ass': 
										 cla
										 set minut = minut + 15
										 set horny = 100
										 clr
										 gs'stat'
										 '<center><img src="inBed/nadom9.jpg" ></center>'
										 'The doctor made вЂ‹вЂ‹you a few shots in the ass, and you suddenly seized incredible sexual arousal. Between her thighs as if you fire broke out, sweet pussy ache and flowed, breasts grew heavy, nipples stiffened and hardened...'
										 '(Do_You) - doctor, what`s happening? - you scream in fright and embarrassment, but your voice treacherously broken on voluptuous groan'
										 '(doctor) - Yup! I knew - I feel your magic, which means you`re one of us.'
										 '(Do_You) - So you?!.'
										 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
										 '(Do_You) - No, I do not remember...'
										 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
										 '(Do_You) - i.e...?'
										 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
										 '(Do_You) - And in return?'
										 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
										 '(Do_You) - Then of course - I agree.'
											 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
										 end
									 end 
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='ninel1':
cla
*clr
'<center><img src="inBed/ninel10.jpg" ></center>'
'Thank you in advance opened the door once again to not get up, that_is_why, when the phone rang, You hoarse voice shouted:'
'(Do_You) - open! Kha-kha... I`m in the bedroom!'
'Young cute girl with meitsinskim traveling bag in his hand goes into your bedroom and stopped by the bed, carefully considering you'
'(Do_You) - hello, doctor'
'(doctor) - hello. My name Ninel Pavlovna - I substitute your local therapist. This you call a doctor?'
'(Do_You) - this is me... kha-kha-kha.' 
'(doctor)- At that complain, Sveta? Can I call you?'
	 act'complain':
	 cla
	 *clr
	 set ninelmet = 1
	 '<center><img src="inBed/ninel11.jpg" ></center>'
	 '(Do_You) - Of_Course... Kha, kha, kha... oh, doctor, surely, i have the flu - cough just kills and very sore throat. And the temperature is high.'
	 '(doctor) - runny nose there? headaches? Aching bones?'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 'The doctor sat on the edge of your bed and took you by the wrist, listening to the pulse.'
	 'you thought, that emanates from her fingers a force, but decided, it`s you from the heat of imagining'
	 '(doctor) - Undress - let you listen.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5 
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="inBed/ninel12.jpg" ></center>'
		 'You undressed and listened to the doctor for a long time your lungs. Her hands cool and gentle touch and a stethoscope like a weasel...'
		 'Do you feel the growing excitement'
		 '(doctor) - Rattling very unpleasant... Now open your mouth. here we go - "and-and-and"...'
			 act'A-a-a':
			 cla 
			 *clr
			 '<center><img src="inBed/ninel03.jpg" ></center>'
			 'You have opened my mouth and the doctor examined your sore throat'
			 '(doctor) - Yes_I_Am... throat blushed and inflamed... Now it is necessary to measure the temperature.'
				 act'Stick a thermometer in her mouth':
				 cla
				 *clr
				 '<center><img src="inBed/ninel04.jpg" ></center>'
				 '(doctor) No, not. The temperature should be measured rectally.'
				 '(Do_You) - E-e-e...'
				 '(doctor) - do not be afraid, Sveta, is not painful.' 
				 '(Do_You) - Well...'
				 '(doctor) - I`m_sure. Come - lie down on his stomach and spread your arms buttocks.'
					 act'substitute the ass':
					 cla
					 *clr
					 set minut = minut + 10
					 set horny = horny + 10
					 clr
					 gs'stat'
					 '<center><img src="inBed/rectaltemp.jpg" ></center>'
					 'You obediently flips and substitute the ass. Dr. lubricate your anus lubricant and deft movement introduces a thermometer. you flinch, but no pain, and pleasure. The doctor does not leave the thermometer just stick in your ass, and slowly moves it there-here and it is very nice.'
					 'Do you feel, it`s cool excited - your breasts were filled with sweet and aching, and wet pussy.'
					 'And - again you feel, both at the hands of Ninel apply force'
						 act'doctor, what`s happening?':
						 cla
						 *clr
						 set minut = minut + 10
						 set horny = horny + 10
						 clr
						 gs'stat'
						 '<center><img src="inBed/ninel13.jpg" ></center>'
						 'Ninel lies down next to you and starts hugging and frankly caress your half-naked body.'
						 'Are you confused and frightened by her behavior, but it is so tender, and you are so excited, that you simply can not resist. The_only, that you manage - is choking sprsit:'
						 '(Do_You) - doctor, what you do? what`s happening?'
						 '(doctor) - A - felt! I knew immediately, you`re one of us, and therefore I can take advantage of their power peacefully.'
						 '(Do_You) - So you?!'
						 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
						 '(Do_You) - No, I do not remember...'
						 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
						 '(Do_You) - i.e...?'
						 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
						 '(Do_You) - And in return?'
						 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
						 '(Do_You) - Then of course - I agree.'
							 act'Surrender caresses Ninel':
							 cla
							 *clr
 							 set minut = minut + 10
							 set horny = horny + 10
							 clr
							 gs'stat'
							 '<center><img src="inBed/ninel14.jpg" ></center>'
							 'Ninel opens his robe, exposing beautiful breasts with nipples strained. do you understand, that she too excited.'
							 'She caresses your breasts with her hands, then his lips, tugging and sucking nipples. You moan softly and it inflames her even more.'
							 'Ninel lifts the hem - underwear on it there - and runs fingers between her legs.'
								 act'enjoy':
								 cla
								 *clr
								 set minut = minut + 10
								 set horny = horny + 10
								 clr
								 gs'stat'
								 '<center><img src="inBed/ninel15.jpg" ></center>'
								 'You groan under its ability to caress her lips and Ninel - Oh dear! - glide over your body lower and lower...'
								 'minute, and she crouches to your burning, juices flowing pussy and her tongue out at her wet depths'
								 'You pass voluptuous cry, then another and another... Waves of pleasure pierce your body trembling from the womb to the fingertips. You are incredibly well!'
								 'ah, A-and-x! yet, yet-about-about-about! - pray you.'
									 act'change position':
									 cla
									 *clr
									 set horny = 100
									 set kuni = kuni + 1
									 clr
									 gs'stat'
									 '<center><img src="inBed/ninel16.jpg" ></center>'
									 'Sharp movement Ninel leans forward and sits on top of you. Do you feel, as her pussy juices flowing out of your rubs. you moan, clenches his hands firm buttocks and the doctor held her. Harder! even more! Oh - what bliss!!'
									 'Ninel rubs on you faster, powerful, almost masculine tolchkakmi, voluptuously groaning with every movement - it`s crazy!'
	 								 '- oh, Sveta, Sveta! - doctor exhales: - I want you! caress me, weasel-and-and-ouch!'
										 act'caress Ninel':
										 cla
										 *clr
										 set ninelsex = ninelsex + 1
										 set lesbian = lesbian + 1
										 '<center><img src="inBed/ninel17.jpg" ></center>'
										 'Ninel you put on your knees and shoves his fingers into her vagina inflamed. She is so abundantly flowing, in that it comprises fingers with a loud squelch.'
										 'doctor screams, flex, ottopyrivaya his magnificent ass and she is placed on your fingers. her scent, her moans, her delightful body circling your head. You furiously fuck Ninel hand, and she squirms beneath you and begs:'
										 '- You`Re_Welcome, do not stop! here we go! that is the-and-ak! Yes_I_Am-and-and! Oh yeah-and-and!!!'
											 act'...':
											 cla
											 *clr
											 if ninelsex = 1:set girl = girl + 1
											 set orgasm = orgasm + 1
											 set sick = 0
											 set horny = 0
											 set health = vital*10 + stren*5+1000
											 set willpower = intel*5 + will*5+1000
											 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
											 clr
											 gs'stat'
											 '<center><img src="inBed/ninel18.jpg" ></center>'
											 'Do you feel, that here-about to explode and how Ninel-somehow gets it. It upsets you on the back and down the top, dropping to your languishing pussy and inserting itself you my wet, with wide-open jaws, vagina.'
											 'Without hesitation, you run into it again and start furiously fingers her nadrachivat, while Ninel instrument of the language you have between your legs. another minute, vagina and the doctor convulsively compressed, of it on your face and hands thick white liquid spills. The whole body is shaking in spasms Ninel, She muffled grunts, burying his tongue between his legs you. do you understand, she cums and it pulls like a spring'
											 'You pierces stunning force orgasm. You shout from the incredible, almost unbearable pleasure, frantically bending, thirds of the crotch of the person Ninel and ends - long, painfully slow. Orgasm lasts and lasts without end.'
												 act'Lie in exhaustion': 
												 cla
												 *clr
												 set minut = minut + 30
												 clr
												 gs'stat'
												 '<center><img src="inBed/ninel19.jpg" ></center>'
												 'You go down on the bed in the sweet exhaustion, still hugging Ninel. She opusketsya close and gently kissed you, asks:'
												 '(Ninel) - well, how are you feeling?'
												 '(Do_You) - Oh-oh... Just fine, - you answer and only then realize, how you are right - of the disease has disappeared, you are full of health and a great mood. A sweet exhaustion makes this bouquet of sensations even more enjoyable'
												 '(Ninel) - Well. This is the magic, Babe. M-m-m... You are a miracle - a long time I did not get so much pleasure from his magic. If you get sick again - immediately call me. Well - look for me in the clinic.'
												 'You promised to be sure to find it, closed his eyes and fell asleep. While you were sleeping, Ninel quietly dressed and went.'
													 act'sleep':gt'bed2'
												 end
											 end
										 end
									 end
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='ninel2':
cla
*clr
 set minut = minut + 10
set horny = horny + 10
clr
gs'stat'
'<center><img src="inBed/ninel13.jpg" ></center>'
'Ninel lies down next to you and starts hugging and frankly caress your half-naked body.'
	 act'Surrender caresses Ninel':
	 cla
	 *clr
	 set minut = minut + 10
	 set horny = horny + 10
	 clr
	 gs'stat'
	 '<center><img src="inBed/ninel14.jpg" ></center>'
	 'Ninel opens his robe, exposing beautiful breasts with nipples strained. do you understand, that she too excited.'
	 'She caresses your breasts with her hands, then his lips, tugging and sucking nipples. You moan softly and it inflames her even more.'
	 'Ninel lifts the hem - underwear on it there - and runs fingers between her legs.'
		 act'enjoy':
		 cla
		 *clr
		 set minut = minut + 10
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="inBed/ninel15.jpg" ></center>'
		 'You groan under its ability to caress her lips and Ninel - Oh dear! - glide over your body lower and lower...'
		 'minute, and she crouches to your burning, juices flowing pussy and her tongue out at her wet depths'
		 'You pass voluptuous cry, then another and another... Waves of pleasure pierce your body trembling from the womb to the fingertips. You are incredibly well!'
		 'ah, A-and-x! yet, yet-about-about-about! - pray you.'
			 act'change position':
			 cla
			 *clr
			 set horny = 100
			 set kuni = kuni + 1
			 clr
			 gs'stat'
			 '<center><img src="inBed/ninel16.jpg" ></center>'
			 'Sharp movement Ninel leans forward and sits on top of you. Do you feel, as her pussy juices flowing out of your rubs. you moan, clenches his hands firm buttocks and the doctor held her. Harder! even more! Oh - what bliss!!'
			 'Ninel rubs on you faster, powerful, almost masculine tolchkakmi, voluptuously groaning with every movement - it`s crazy!'
			 '- oh, Sveta, Sveta! - doctor exhales: - I want you! caress me, weasel-and-and-ouch!'
				 act'caress Ninel':
				 cla
				 *clr
				 set ninelsex = ninelsex + 1
				 set lesbian = lesbian + 1
				 '<center><img src="inBed/ninel17.jpg" ></center>'
				 'Ninel you put on your knees and shoves his fingers into her vagina inflamed. She is so abundantly flowing, in that it comprises fingers with a loud squelch.'
				 'doctor screams, flex, ottopyrivaya his magnificent ass and she is placed on your fingers. her scent, her moans, her delightful body circling your head. You furiously fuck Ninel hand, and she squirms beneath you and begs:'
				 '- You`Re_Welcome, do not stop! here we go! that is the-and-ak! Yes_I_Am-and-and! Oh yeah-and-and!!!'
					 act'...':
					 cla
					 *clr
					 if ninelsex = 1:set girl = girl + 1
					 set orgasm = orgasm + 1
					 set sick = 0
					 set horny = 0
					 set health = vital*10 + stren*5+1000
					 set willpower = intel*5 + will*5+1000
					 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
					 clr
					 gs'stat'
					 '<center><img src="inBed/ninel18.jpg" ></center>'
					 'Do you feel, that here-about to explode and how Ninel-somehow gets it. It upsets you on the back and down the top, dropping to your languishing pussy and inserting itself you my wet, with wide-open jaws, vagina.'
					 'Without hesitation, you run into it again and start furiously fingers her nadrachivat, while Ninel instrument of the language you have between your legs. another minute, vagina and the doctor convulsively compressed, of it on your face and hands thick white liquid spills. The whole body is shaking in spasms Ninel, She muffled grunts, burying his tongue between his legs you. do you understand, she cums and it pulls like a spring'
					 'You pierces stunning force orgasm. You shout from the incredible, almost unbearable pleasure, frantically bending, thirds of the crotch of the person Ninel and ends - long, painfully slow. Orgasm lasts and lasts without end.'
						 act'Lie in exhaustion': 
						 cla
						 *clr
						 set minut = minut + 30
						 clr
						 gs'stat'
						 '<center><img src="inBed/ninel19.jpg" ></center>'
						 'You go down on the bed in the sweet exhaustion, still hugging Ninel. She opusketsya close and gently kissed you, asks:'
						 '(Ninel) - well, how are you feeling?'
						 '(Do_You) - Oh-oh... Just fine, - you answer and only then realize, how you are right - of the disease has disappeared, you are full of health and a great mood. A sweet exhaustion makes this bouquet of sensations even more enjoyable'
						 '(Ninel) - Well. This is the magic, Babe. M-m-m... You are a miracle - a long time I did not get so much pleasure from his magic. If you get sick again - immediately call me. Well - look for me in the clinic.'
						 'You promised to be sure to find it, closed his eyes and fell asleep. While you were sleeping, Ninel quietly dressed and went.'
							 act'sleep':gt'bedr'
						 end
					 end
				 end
			 end
		 end
	 end
end 



if $ARGS[0]='ninel3':
cla
*clr
set horny = 50
clr
gs'stat'
'<center><img src="inBed/ninel20.jpg" ></center>'
'You `re lying in bed waiting for Ninel and gently caress her fingers her pussy, to prepare themselves for the arrival of her, so when the bell rings .'
	 act'Come - openly!':
	 cla
	 *clr
	 '<center><img src="inBed/ninel21.jpg" ></center>'
	 '(Do_You) - Come - openly! - Rattling you my sore throat and enters the room Ninel.'
	 '(Ninel) - hello, Svetsik. again ill?'
	 '(Do_You, coughing into a fist) - Yup. I `ll fly?'
	 '(Ninel) - Of_Course, Babe. Undress - I`ll listen.'
	 '(Do_You) - why? You sorceress...'
	 '(Ninel laughs) - silly. How could you not know much about magic. I did need to know, from which I will treat, otherwise it will happen as the old song - make like a storm, but I got the goat. magic - fine thing'
	 '(Do_You) - Here`s how... Well then.'
		 act'undress':
		 cla
		 *clr
		 set horny = 75
		 clr
		 gs'stat'
		 '<center><img src="inBed/ninel22.jpg" ></center>'
		 'You undress and Ninel listens to your lungs. as usual, her hands are light and tender and the touch of her stethoscope your breasts fill with sensual warmth'
		 '(Ninel) - Yes_I_Am... You again wheezing. And much. the temperature is high?'
		 '(Do_You) - A-Sneezy-and! Yes_I_Am - 39,6...'
		 '(Ninel) - Oh, poor_little_soul. Bring_It_On-ka Pomeroy.'
		 '(Do_You, winking) - as usual?'
		 '(Ninel, smiling) - Well. You`re so excited and overthrowing measures - and look cum.'
		 '(Do_You) - Do-at-at...'
		 '(Ninel) - what - liked? A first feared... It`S_Nothing - another time'
			 act'Pomeroy temperature':
			 cla
			 *clr
			 '<center><img src="inBed/ninel23.jpg" ></center>'
			 'Ninel looking at the thermometer and shakes his head:'
			 '(Ninel) - Yes_I_Am... things are bad. Well nothing - This will help us grief.'
			 'She slowly pulls down your blanket...'
				 act'Unbutton his robe Ninel':
				 cla
				 *clr
				 set horny = 100
				 clr
				 gs'stat'
				 '<center><img src="inBed/ninel24.jpg" ></center>'
				 'You can no longer hold back - rather, rather enjoy caresses Ninel. Poryvstym movement to unbutton her gown'
				 'Skillful hands of the doctor slide on your body, but not in a hurry to the most desirable townships'
				 '(Do_You) - caress me - I`m burnin! I want you! - breathless whisper you, but your cruel mistress just grins:'
				 '(Ninel) - ask me - show me, how much you want.'
				 '(Do_You) - Ninel, native, sweet, you`re_welcome - caress me! take me - i`m all yours! I beg you! I beg you - rather!!!'
				 '(Ninel) - ask for more! begged me!'
				 '(Do_You, almost crying) - You`Re_Welcome, you`re_welcome, you`re_welcome! I beg you, I pray thee - caress me!!! I`m dying to!!!'
					 act'Beg and plead':
					 cla
					 *clr
					 '<center><img src="inBed/ninel25.jpg" ></center>'
					 'You beg and plead Ninel pity and finally it comes down to your pleas and her tongue flows into a sweet journey of your bosom'
					 'You scream and moan, heat wave voluptuous body diverge, your pussy expires lustful juice and Ninel guzzles the juice'
					 'You are coming to an end, Ninel when suddenly interrupted and broken voice commands:'
					 '(Ninel) - now I. appease me'
						 act'Ninel pleasing language':
						 cla
						 *clr
						 '<center><img src="inBed/ninel26.jpg" ></center>'
						 'Ninel spreads on the bed and you start to fondle and lick her vagina. Ninel incensed as you are - she shrieks and groans of your touch, out of her pussy oozing thick goo, you eagerly licks her but she flows and flows, zalivvaya your face and thigh'
						 '(Ninel, through groans) - Good_For_You... A-ah! The Good Girl... come here-and-and..!'
							 act'69':
							 cla
							 *clr
							 '<center><img src="inBed/ninel27.jpg" ></center>'
							 'You go into the pose "69" and lachinaete greedily lick each other, alternating affection cries and groans.'
							 'You are getting closer and closer to the peak, and Ninel, It seems too, but then it stops again'
							 '(Do_You) - You`Re_Welcome, you`re_welcome, go_ahead! I`ve been-about to finish! - pray you, and caressed her insistently, hoping for a reaction ontvetnuyu, but Ninel strongly otrvyaet you from yourself'
							 '(Ninel) - No... not so! I want to, you to death itself.'
								 act'masturbate pussy':
								 cla
								 *clr
								 '<center><img src="inBed/ninel29.jpg" ></center>'
								 'With a groan. Near Ninel does the same thing. view, which spreads through the room spicy languid smell your juices, your mistress moans and furious work fingers elevate you to the peak of bliss. You scream and squirm in orgasm and Neiel under you also beats and shouts - it also ends'
									 act'Fall in exhaustion':
									 cla
									 *clr
									 set horny = 0
									 set minut = minut + 40
									 set orgasm = orgasm + 1
									 set lesbian = lesbian + 1
									 set ninelsex = ninelsex + 1
									 set SUB = SUB + 1
									 set sick = 0
									 set health = vital*10 + stren*5+1000
									 set willpower = intel*5 + will*5+1000
									 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
									 clr
									 gs'stat'
	 								 '<center><img src="inBed/ninel28.jpg" ></center>'
									 'You are lying in the arms of Ninel and pant, departing from a crushing orgasm'
									 'You chuvstuete polnosyu yourself healthy, Only extremely frazzled'
									 '(Do_You) - Thank_U, sweet. - you whisper.'
									 '(Ninel) - Pozhluysta. See me as-something in the clinic. With you I am particularly well.'
									 'you promise, exhausted lean on wet crumpled sheet and go to sleep, Ninel and quietly dressed and leaves'
										 act'sleep':gt'bedr'
									 end
								 end 
							 end 
						 end
					 end
				 end
			 end
		 end
	 end
end

--- housecall ---------------------------------

# bedrPar
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>Your bedroom</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'A small room in which barely squeezed <a href="exec:GT ''loker'',''start''">cupboard</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> Bed and sisters.'

if tanga = 0:tanga = 1

gs'family'

	 	 act 'Exit the room':
		 gt'korrPar'
		 end

if student > 0 and kursovik < 100:
     act 'write kursovik 1 h':
     cla
     *clr
     set minut = minut + 60
     set kursovik = kursovik + RAND (intel/20,intel/10)
     if kursovik > 100:set kursovik = 100
     set manna = manna - 10
     '<center><img src="pic/study.jpg" ></center>'
     'You sat on coursework and prepare it for <<kursovik>> percent.'
     act 'Go_Out':gt $curloc
     end
end

	 if horny>=50 and sisterHere=0:
	 	 act 'mastrubirovat':
		 gt'selfplay'
		 end
	 end
if pornMagazine>0:
'Under the mattress you have hidden pornozhurnal.'
end
if sisterHere=0 and pornMagazine>0:
dynamic $d_read_porn
end

dynamic $d_read_book


if tovarL>0:'You have kept <<tovarL>> One unit of small goods. The maximum you can keep in your room 30 One unit of product.'



if card>0:
	 act 'Take a deck of cards':
	 gt'card'
	 end
end


if dur > 0:
'You have hidden <<dur>> doses pale lady'
end
if dur > 0 and narkday ! day:
     act 'Nyuhnut pale lady 5 min':
     cla
     *clr
     set minut = minut + 5
     set narkday = day
     set health = vital*10 + stren*5
	 set willpower = intel*5 + will*5
	 set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
	 set horny = 100
	 set nark = nark + 10
	 set dur = dur - 1
     '<center><img src="pic/dur.jpg" ></center>'
     'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
     act 'Go_Out':gt $curloc
     end
end



--- bedrPar ---------------------------------

# bedrPar2
ACT 'Exit the room':
	gt'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>Master bedroom</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'The room in which the parents live. In the center stands a double bed and large wardrobe against the wall.'


gs'family'

if hour=21 and parsexrand=5 and parentsexday!daystart:gt'seeparentsex'
--- bedrPar2 ---------------------------------

# sitrPar
ACT 'Exit the room':
	gt'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>hall</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'In the window is <a href="exec:GT ''tvPar''">tv_set</a>. Front of the TV is a sofa, which sleeps at night your brother. The wall is a wall with utensils and books.'

gs'family'
--- sitrPar ---------------------------------

# vanrPar
ACT 'Exit the room':
	gt'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>bathtub</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Bathroom close and very unpretentious.'
if stanok>0:'Your razor will suffice for <<stanok>> time.'

act 'Wash in the shower 15 min':
cls
dynamic $showerdin
minut+=15
set horny = horny + 1
set hapri = 0
set mop = 1
set sweat = -3
if frost>0:frost=0
gs'stat'
'<center><img src="pics/dush.jpg" ></center>'
'You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
act 'Get out of the bath':gt $locM, $metkaM
end

act 'Wash in the bathroom 1 h':
cls
dynamic $showerdin
minut+=60
set sweat = -3
set horny = horny + 3
set hapri = 0
set mop = 1
set manna = manna + 10
if frost>0:frost=0
set skinvan = skinvan + 1
if skinvan >= 20:set skinvan = 0&set skin = skin + 1
gs'stat'
'<center><img src="pics/wash4.jpg" ></center>'
'including water, you got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body washcloth and shampoo. Then you are washed with water.'
act 'Get out of the bath':gt $locM, $metkaM
	 if horny >= 90:
		 act 'Direct water on pussy':
		 cla
		 *clr
		 set horny = 0
		 set minut = minut + 30
		 set mastr = mastr + 1
		 set orgasm = orgasm + 1
		 set manna = manna + 15
		 set willpower = willpower + 15
		 '<center><img src="pics/wash7.jpg" ></center>'
		 'You sent a water tap on the pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
		 act 'Out of the bathroom and get dressed':gt $locM, $metkaM
		 end
	 end
	 if horny >= 40 and horny < 90:
		 act 'Direct water on pussy':
		 cla
		 *clr
		 set horny = horny + 5
		 set minut = minut + 30
		 set manna = manna + 10
		 set willpower = willpower + 10
		 '<center><img src="pics/wash7.jpg" ></center>'
		 'You sent a water tap on the pussy and tight jet of warm water began to caress you. At first it was not even very bad, but then the excitement subsided and became even as it is not nice. Therefore.'
		 act 'Out of the bathroom and get dressed':gt $locM, $metkaM
		 end
	 end

	 if horny>=50:
	 	 act 'mastrubirovat':
		 gt'selfplay'
		 end
	 end
end

 if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
	 cla
	 *clr
	 set tampon = tampon - 1
	 set isprok = 1
	 set minut = minut + 5
	 set manna = manna - 5
	 gs'stat'
	 '<center><img src="picb/tampon.jpg" ></center>'
	 'You change a tampon.'
	 act 'End_Up':gt $curloc
	 end
end

 if mop ! 1:
     act 'wash off cosmetics':
	 cla
	 set mop = 1
	 set minut = minut + 15
	 gs'stat'
	 '<center><img src="pic/facesp.jpg" ></center>'
	 'You have washed off cosmetics.'
	 act 'End_Up':gt $curloc
	 end
 end
 
 if cumfrot>0:
     act 'Scour sperm from clothes':
	 cla
	 set cumfrot = 0
	 set minut = minut + 15
	 gs'stat'
	 '<center><img src="pic/frotsp.jpg" ></center>'
	 'You zamyli semen stains on your clothes.'
	 act 'End_Up':gt $curloc
	 end
 end
 
 
 if leghair > 0 and stanok > 0:
	 act 'shave your legs 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set leghair = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 '<center><img src="pics/shave.jpg" ></center>'
        'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
		 !'You lathered up and shaved off the hair with them.'
		 act 'postpone the machine':gt $curloc
		 end
	 end
if lobok > 0 and stanok > 0:
	 act 'Shaved 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set lobok = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 '<center><img src="pics/shave3.jpg" ></center>'
         'You lathered pubis and taking a razor deft movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was over and you washed foam with pussy.'
		 !'You lathered pubis, then shaved off his hair all.'
		 act 'postpone the machine':gt $curloc
		 end
	 end
	 
if analplug = 1 and analplugin=0 and klismaday1= 1 and plugday!daystart:
     act 'Insert a butt plug 5 min':
     cla
     *clr
     plugday=daystart
     set minut = minut + 5
     set analplugIN = 1
     if anus < 10:set anus = anus + 5
     if anus >= 10 and anus<20:anus+=rand(1,2)
     if anus >= 20 and anus<30:anus+=rand(0,1)
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
     if butpluguse = 0:set butpluguse = 1&'You tried to relax as much as possible the ass and began to insert the plug itself, biting her lip from feeling, your ass is about to burst you gently pushed in the thickest part of his ass and finally plug into place.'
     act 'Go_Out':gt $curloc
     end
end

if analplug = 1 and analplugin=1:
     act 'Remove the butt plug 5 min':
     cla
     *clr
     set minut = minut + 5
     set analplugIN = 0
     if anus < 30:set anus = anus + 1
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'
     act 'Go_Out':gt $curloc
     end
end

if klisma = 1 and klismaday ! day:
     act 'Make yourself an enema 5 min':
     cla
     *clr
     set minut = minut + 5
     set klismaday = day
     set klismaday1= 1
     '<center><img src="picV/klisma.jpg" ></center>'
     'You have set yourself an enema and clean the intestines, now your ass ready for anal sex.'
     act 'Go_Out':gt $curloc
     end
end


if pregtest>0:
     act 'Do a pregnancy test':
     pregtest-=1
     cla
     gs'stat'
		if preg=1:
		'The test showed the two strips. you are pregnant.'
		'you think, that the father <<$father>>.'
		else:
		'The test showed one band.'
		end
     act 'further': gt $curloc
     end
end
--- vanrPar ---------------------------------

# kuhrPar
ACT 'Exit the room':
	gt'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>kitchen</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'In the kitchen next to the stove is washing. Large refrigerator in the corner and a kitchen table with chairs is located near the wall.'

gs'family'


 act 'Is_There':
 cla
 *clr
 gs'stat'
 frost=0
 '<center><img src="pics/food.jpg" ></center>'
 set minut = minut + 30
 set health = health + 10
 set manna = manna + 20
	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 if energy < 20:
	 set energy = energy +20
	 !set fat = fat + 1
	 'You gladly ate cooked food.'
	 end
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 gs'stat'
 act 'Get up from the table':gt $locM, $metkaM
 end
 
  act 'have_a_bite':
 cla
 *clr
 gs'stat'
 frost=0
 '<center><img src="pics/food.jpg" ></center>'
 set minut = minut + 15
 set health = health + 10
 set manna = manna + 20
	 if energy >= 30:
	  set fat = fat + 3
	 'You can no longer have.'
	 end
	 if energy >= 20 and energy < 30:
	 set fat = fat + 1
	 set energy = energy + 5
	 'You pushed through the power of a meal.'
	 end
	 if energy < 20:
	 set energy = energy +10
	 !set fat = fat + 1
	 'You gladly ate cooked food.'
	 end
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 gs'stat'
 act 'Get up from the table':gt $locM, $metkaM
 end
 
 
 act 'drink':
 cls
 	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 gs'stat'
 act 'Get up from the table':gt $locM, $metkaM
 end
 
 
 if pranik>0:
'Cookie will suffice for <<pranik>> time.'
     act 'Cup of tea with cookies (5 min)':
     cla
     *clr
     minut+=5
     pranik-=1
     set health = health + 30
     set manna = manna + 100
     energy += 20
     water += 20
     fat+=50
     frost=0
     gs'stat'
     '<center><img src="pics/food.jpg" ></center>'
     'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
     act 'Get up from the table':gt $curloc
     end
end

if edaD > 0:
     act 'There are diet food (30 min)':
     cla
     *clr
     frost=0
     '<center><img src="pics/food.jpg" ></center>'
     set minut = minut + 30
     set health = health + 10
     set manna = manna + 20
     set edaD = edaD - 1
         if energy >= 30:
         'You can no longer have.'
         end
         if energy >= 20 and energy < 30:
         set energy = energy + 10
         'You pushed through the power of a meal.'
         end
         if energy < 20:
         set energy = energy +20
         'You gladly ate cooked food.'
         end
         if water >= 20:
         'Tea in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a cup of tea.'
         set water = water +20
         end
     act 'Get up from the table':gt $curloc
     end
end

if fatdel > 0:
     act 'to use fat burners':
     cla
     *clr
     if fat>salo:fat=salo
     set fatdel = fatdel - 1
     set fat = fat - 25
     if fat<0:fat=0
     'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
     act 'Get up from the table':gt $curloc
     end
end

if lekarstvo>0:
'you have <<lekarstvo>> tablets.'
     if sick>0 and lekarday!day:
         act 'take a pill':
		 cla
		 *clr
		 set minut = minut + 5
		 lekarday=day
		 lekarstvo-=1
		 sick-=sick*20/100
		 set lekrand = RAND (0,8)
		 if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
		 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
		 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
		 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
		 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
		 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
		 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
		 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
		 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
		 'You drank the pill'
		 act 'move_away':gt $curloc
		 end
     end
end

if vitamin>0:
'you have <<vitamin>> vitaminok.'
     if vitaminday!day:
         act 'drink Vitaminki':
		 cla
		 *clr
		 if fat>salo:fat=salo
		 set minut = minut + 5
		 vitaminday=day
		 vitamin-=1
		 frost=0
		 if KandidozOnce=1:Kandidoz-=2
		 if GerpesOnce=1:Gerpes-=2
		 if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
		 set skinvan = skinvan + 1
         if skinvan = 20:set skinvan = 0&set skin = skin + 1
		 'You drank Vitaminki'
		 act 'move_away':gt $curloc
		 end
     end
end
--- kuhrPar ---------------------------------

# korrPar
ACT 'Go to your room':
	gt'bedrPar'
END
ACT 'Go to the parents` room':
	gt'bedrPar2'
END
ACT 'Go to the gym':
	gt'sitrPar'
END
ACT 'Go to the bathroom':
	gt'vanrPar'
END
ACT 'Go to the kitchen':
	gt'kuhrPar'
END
ACT '<b>Go to the street</b>':
	if nude=0:
	gt'gorodok'
	else
	msg'You do not wear'
	gt $curloc
	end
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
music_on=0
set popolaini=0
set saunaYouRoom=0
set boycherdaksex=0
'<center><B><font color=maroon>corridor</font></B></center>'
'<center><img src="qwest/alter/korrPar.jpg" ></center>'
clr
frost=0
set minut = minut + 1
gs'stat'
bonusZ=0
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'On the wall near the front door hanging <a href="exec:GT ''mirror'',''start''">mirror</a>.'
if palto>0:'Hanging on a hook <<$palto>>'

gs'family'

if hour>=16 and hour<=20 and indorf=0:

     if artomvbrosvid=1 and artomhakday!daystart and mothervideotalk=0:
     cls
     BJvideoPublic=1
     manna=0
     gs'stat'
     '<center><B><font color=maroon>mom</font></B></center>'
     '<center><img src="qwest/alter/mother.jpg" ></center>'
     'Mom backed hips hands В« I then tossed a video with you ....... I never smacked you ....yes see in vain ... You realize that maybe this video is not only my? What about you now will speak.. What about you ... about all our family ... I guess you need to teach you a lesson. Volodya!В»'
     
         if momslut<2:
			 act'Beg to do nothing.':
			 cls
			 mothervideotalk=2
			 minut+=5
			 sub+=50
			 gs'stat'
			 '<center><B><font color=maroon>mom</font></B></center>'
             '<center><img src="qwest/alter/mother.jpg" ></center>'
			 'you burst into tears:В«mammy !forgive! This will never happen again! I made вЂ‹вЂ‹a fool that `s what I `ll never..never_...В» You weep and kneel. Mother looks at you and shakes his head out.'
			 act 'move_away':gt $curloc
			 end
		 
			 act'to_be_silent.':
			 cls
			 mothervideotalk=3
			 minut+=5
			 dom+=10
			 spank+=1
			 gs'stat'
			 '<center><img src="qwest/alter/artom/spank.jpg" ></center>'
			 'You stand staring at the floor. And what can I say?
	Mother takes you by the hand and leads into the room : В« Take off your pants and bend over!В» You shake my head. В« Volodya - keep it!В»Stepfather grabs you and keeps .mother pulls your underwear takes the belt and starts to flog you. Gritting her teeth . Lifting his head as you see through the open door behind it to watch your brother and sister.
	'
			 act 'move_away':gt $curloc
			 end
		 end
     
         if momslut>=2:
			 act'threaten':
			 cls
			 mothervideotalk=1
			 minut+=5
			 gs'stat'
			 '<center><B><font color=maroon>mom</font></B></center>'
             '<center><img src="qwest/alter/mother.jpg" ></center>'
			 'В« Come on -come_on - call the father! I`ll tell you what his daughter! And who went!В»
Mother is looking at you and spit on the floor leaves.'
			 act 'move_away':gt $curloc
			 end
		 end
     
     exit
     end

     if schoolprogul>2 and SchoolAtestat=0:
     cls
     gs'stat'
     '<center><B><font color=maroon>mom</font></B></center>'
     '<center><img src="qwest/alter/mother.jpg" ></center>'
         if schoolPredupr=2:
         schoolPredupr=3
         SchoolBlock=1
         ParHomeBlock=1
         schoolprogul=0
         'In the hallway you vsrechaet mother, her eyes thunder. "doprygat? You kicked out of school. all, Live as you like, I am no longer a mother!" Mother gathered your belongings in a bag, thrust you into the hands of the bag and thrown by the scruff of the apartment.'
         act 'Get_Away':gt 'gorodok'
         exit
         end
         if schoolPredupr=1:
         schoolPredupr=2
         schoolprogul=0
         Suspeh-=40
         'In the hallway you vsrechaet mother, her eyes thunder. "A call from the school. You again truancy. You would already be excluded from school, I was literally on my knees begging the director does not exclude you and give you one last chance to improve. More because of you I will not stoop, and remember. The next time you fly out of school! And if you fly out of school, I`ll personally will kick home, If you do not understand a normal relationship, then piss, one does not keep you here!" Mother angrily left the room.'
         end
         if schoolPredupr=0:
         schoolPredupr=1
         mother=0
         schoolprogul=0
         Suspeh-=20
         'In the hallway you vsrechaet mother, her eyes thunder. "A call from the school. You have solid truancy. For the first time you have forgiven, but the next you just kicked. What are you doing, balbeska?" Mother angrily left the room.'
         
         end
     act 'move_away':gt $curloc
     exit
     end

end


if hour>=15 and hour<20: 
     if Gcall=0:
	 numnpcboy=0
	 :markboyfrendcall
	 numnpcboy+=1
		 if otnBoyFrend[numnpcboy]>=20 and boyinday[numnpcboy]!day:
		 Gcall=1
		 jump'markboyfrendcall2'
		 end
	 if numboyFrend>numnpcboy:jump'markboyfrendcall'
     end
else
if Gcall>0:Gcall=0
end
:markboyfrendcall2
if Gcall>0:'In the hallway rings <a href="exec:GT ''gtelefon''">phone</a>.'


if motherWorry=1:gt 'mother'



--- korrPar ---------------------------------

# selfplay
$d_self_ass_fingering={


}


$d_self_fingering={
act 'Poke a finger in the vagina':
cls
minut+=2
selfplaytime+=2
'<center><img src="qwest/selfplay/finger.jpg" ></center>'
     if vagina = 0 and mesec <= 0:
     'You caress her fingers on his lips soft and wet pussy and began to gradually introduce his finger in the pussy, but you stumble upon its elastic barrier hymen.'
         act 'pierce the hymen':
         cls
         horny-=25
         vagina+=1
         minut+=5
         selfplaytime+=5
         manna-=100
         gs'stat'
         '<center><img src="qwest/selfplay/finger.jpg" ></center>'
         'You stuck his finger in the pussy and forcefully pressed on Worthless, it`s a little bent inside your body and suddenly broke your finger and went inside completely. Inside was a little painful pussy, you got yourself out of your finger and saw, he blood.'
         act 'rest':gt $curloc
         gs'stat'
         end
     end
     if vagina > 0:
     'You entered my finger into the vagina and then another.'
         if vagina<5:
         horny+=rand(2,5)
         'Slippery walls of your pussy very tightly clasped fingers.'
         end
         if vagina>=5 and vagina<10:
         horny+=rand(5,10)
         'You feel your pussy slippery wall around your fingers.'
         end
         if vagina>=10:
         horny+=rand(2,5)
         'Your pussy is quite spacious for a couple of fingers sliding your fingers and you feel slippery walls of your pussy.'
         end
         
         if vagina<5:vaginaTemp+=1
         
         act 'Fuck yourself with your fingers':
         cls
         minut+=5
         selfplaytime+=5
         if vagina<=10:horny+=rand(5,10)
         if vagina>10:horny+=rand(2,5)
         '<center><img src="qwest/selfplay/finger.jpg" ></center>'
         'You started to fuck her pussy fingers typing them in his bosom .'
         if vagina<=10:'Your pussy gently covers your fingers and you feel pleasant warmth spreads in the abdomen.'
         if vagina>10:'Vagina quite spacious and you have quite work, that would at least feel something from their fingers.'
         gs'stat'
             if vagina<10:vaginaTemp+=1
              if horny>=100:
			 orgasm+=1
			 horny=0
			 manna=mannamax
			 'Suddenly you would like electric shock and abdomen began pleasant spasms ,you squirm biting her lip, that would not scream with pleasure.'
			 end
         if horny>0:dynamic $d_self_fingering2
         act 'rest':gt $curloc
         end
     end
     if mesec > 0:
     manna-=5
     'The vagina slightly covered with dried blood on your monthly. Have you tried to shove a finger, but you immediately became not nice.'
     end
gs'stat'
act 'rest':gt $curloc
end
}
$d_self_fingering2={
act 'Thrust his hand into the vagina':
cls
minut+=2
selfplaytime+=2
'<center><img src="qwest/selfplay/hand.jpg" ></center>'
     if vagina > 0:
     'You introduced yourself all the hand into the vagina.'
         if vagina<10:
         if vgape=2:vgape=3
         if vgape=1:vgape=2
         if vgape=0:vgape=1
         vgapetime=totminut
         horny-=10
         manna-=10
         'You have thrust their fingers in the pussy and you immediately become very painful.'
         end
         if vagina>=10 and vagina<15:
         horny+=rand(1,3)
         'You have thrust their fingers in your pussy and felt like your vagina is very tight wraps her fingers, seems just a little bit and you have something breaks.'
         end
         if vagina>=15 and vagina<20:
         horny+=rand(3,6)
         'You have thrust their fingers in your pussy and felt like your vagina tight wraps his fingers hot and wet walls.'
         end
         if vagina>=20:
         horny+=rand(6,12)
         'You have thrust their fingers in your pussy and felt like your vagina wraps his fingers hot and wet walls. You covered a pleasant feeling of fullness.'
         end
         
         if vagina<15:vaginaTemp+=1
         
         act 'Fuck his palm':
         cls
         minut+=5
         selfplaytime+=5
             if vagina<10:
			 if vgape=2:vgape=3
			 if vgape=1:vgape=2
			 if vgape=0:vgape=1
			 vgapetime=totminut
			 horny-=10
			 manna-=10
			 end
         '<center><img src="qwest/selfplay/hand.jpg" ></center>'
         'You started to fuck her pussy fingers typing them in his bosom .'
         if vagina<=15:horny-=10&manna-=10&'Hurt you when you are trying to fuck her pussy with his palm.'
         if vagina>10:horny+=rand(10,20)&'Vagina quite spacious and you have quite work, that would at least feel something from their fingers.'
         gs'stat'
             if vagina<20:vaginaTemp+=1
             
             if horny>=100:
			 orgasm+=1
			 horny=0
			 manna=mannamax
			 'Suddenly you would like electric shock and abdomen began pleasant spasms ,you squirm biting her lip, that would not scream with pleasure.'
			 end
         dynamic $d_self_fingering2
         act 'rest':gt $curloc
         end
     end
gs'stat'
act 'rest':gt $curloc
end
}
$d_van_vtor={
if indorf=0:
cls
horny-=50
manna-=10
gs'stat'
'In the bathroom chattering "Sveta! Are you, drowned or something? Get out of the bath!"'
act 'Get out of the bath':
analplay=0
selfplaytime=0
mastrOnce=0
proverkasisterhere=0
if vaginaTemp>vagina*2:vagina+=1&vaginaTemp=0
gt $loc, $metka
end
exit
end
}
!if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
!dynamic $d_sis_prov
$d_sis_prov={
if sister_indorf=0:
	 if $loc='bedrPar':
	 gs'family'
		 if sisterHere=0 and proverkasisterhere=0:proverkasisterhere=1
		 if sisterHere>0 and proverkasisterhere=2:gt $curloc
	 end
end
}

if mastrOnce=0:mastr+=1&mastrOnce=1

gs'stat'
if $loc='bedrPar' or $loc='Gadsarai':'<center><img src="qwest/selfplay/start.jpg" ></center>'
if $loc='vanrPar':'<center><img src="qwest/selfplay/startvann.jpg" ></center>'
!then the calculation invasion
if $loc='vanrPar':
     if selfplaytime>=60:
     
     end
end
if $loc='bedrPar':
gs'family'
     if sister_indorf=0:
		 if sisterHere=0 and proverkasisterhere=0:proverkasisterhere=1
		 
		 if sisterHere>0:
		 cls
		 gs'stat'
		 !if $loc='bedrPar':'<center><img src="qwest/selfplay/start.jpg" ></center>'
		 if $loc='vanrPar':
         '<center><img src="qwest/selfplay/startvann.jpg" ></center>'
         else
         '<center><img src="qwest/selfplay/start.jpg" ></center>'
         end
			 if proverkasisterhere=2:
			 SisterKnowMastr+=1
			 '<font color=red><b>Anya saw, you mastrubiruete.</b></font>'
			 end
			 if proverkasisterhere=1:
			 proverkasisterhere=2
			 '<font color=red><b>You hear footsteps approaching your room.</b></font>'
			 end
		 end
     end
end


if dildo=1:'Do you have a small long dildo 10 cm.'
if middildo=1:'Do you have a long dildo 15 cm.'
if largedildo=1:'Do you have a long dildo 20 cm.'
if bigdildo=1:'Do you have a long dildo 25 cm.'
if extradildo=1:'Do you have a long dildo 30 cm.'
if superdildo=1:'Do you have a long dildo 35 cm.'
if maddildo=1:'Do you have a long dildo 40 cm.'



if horny>0:
	act 'caress the clitoris':
	cls
	minut+=5
	selfplaytime+=5
	!if $loc='bedrPar':'<center><img src="qwest/selfplay/klit.jpg" ></center>'
	if $loc='vanrPar':
     '<center><img src="qwest/selfplay/klitvann.jpg" ></center>'
     else
     '<center><img src="qwest/selfplay/klit.jpg" ></center>'
     end
		 if manna>=mannamax/2:
		 horny+=rand(5,10)
		 'You put his hand between her legs and groped in the folds of her soft and wet pussy small bump touches which are very pleasant, you started to caress her fingers the hump and enjoy the feeling of pleasant warmth cover you between the legs.'
		 end
		 if manna<mannamax/2:
		 horny+=rand(0,1)
		 'You caress her fingers clit, you feel good and nice, but your bad mood affects, you just can not escape from his thoughts .'
		 end
		 if horny>=100:
		 orgasm+=1
		 horny=0
		 manna=mannamax
		 'Suddenly you would like electric shock and abdomen began pleasant spasms ,you squirm biting her lip, that would not scream with pleasure.'
		 end
		 
	gs'stat'
	act 'rest':gt $curloc

	if horny>0:dynamic $d_self_fingering
	end
end

if horny>0 and agape<3:
	 act 'Poke a finger in the ass':
	 cls
	 minut+=5
	 selfplaytime+=5
	 !if $loc='bedrPar':'<center><img src="qwest/selfplay/klit.jpg" ></center>'
	 !if $loc='vanrPar':'<center><img src="qwest/selfplay/klitvann.jpg" ></center>'
	 '<center><img src="qwest/selfplay/1.jpg" ></center>'
	     if anus>=3:
	     'You stuck a finger in his ass and he freely slipped into your anus.'
	     end
	     if anus>=1 and anus<3:
	     anus+=1
	     'You stuck a finger in his ass and felt as tight ass grabbed your finger.'
	     end
         if anus=0:
         anus=1
         'You stuck a finger in her virgin ass and felt as tight ass grabbed your finger.'
         end
	 if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
	 dynamic $d_sis_prov
	 gs'stat'
	 act 'rest':gt $curloc
	     act 'Stick two fingers':
	     cls
	     minut+=5
	     selfplaytime+=5
	     '<center><img src="qwest/selfplay/2.jpg" ></center>'
	         if anus>=5:
	         'You calmly stuck two fingers in your ass.'
	             if agape>0:
			     if agape=2:agape=3
			     if agape=1:agape=2
			     agapetime=totminut
			     horny-=50
			     if anus>1:anus-=1
			     'Do you have a sore ass and shoved two fingers you even more damage it.'
			     end
	         end
	     	 if anus>=3 and anus<5:
	     	 analplay+=1
			 'You stuck two fingers in his ass and your anus tightly clasped their.'
			     if agape>0:
			     if agape=2:agape=3
			     if agape=1:agape=2
			     agapetime=totminut
			     horny-=50
			     anus+=1
			     'Do you have a sore ass and shoved two fingers you even more damage it.'
			     end
			 end
			 if anus>=1 and anus<3:
			 anus+=1
			     if agape=2:agape=3
			     if agape=1:agape=2
			 	 if agape=0:agape=1
			 	 horny-=50
             agapetime=totminut
			 'You stuck two fingers in his ass and felt a sharp pain in your anus.'
			 end
		 gs'stat'
	     act 'rest':gt $curloc
	     if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
	     dynamic $d_sis_prov
	         if horny>0 and agape<3:
	             act 'Thrust three fingers':
				 cls
				 minut+=5
				 selfplaytime+=5
				 '<center><img src="qwest/selfplay/3.jpg" ></center>'
				 	 if anus>=10:
					 'You quietly shoved three fingers in your ass.'
						 if agape>0:
						 if agape=2:agape=3
						 if agape=1:agape=2
						 agapetime=totminut
						 horny-=50
						 if anus>1:anus+=1
						 'Do you have a sore ass and shoved three fingers you even more damage it.'
						 end
					 end
				 	 if anus>=5 and anus<10:
				 	 analplay+=1
					 'You stuck three fingers in his ass and your ass grabbed them tightly.'
						 if agape>0:
						 if agape=2:agape=3
						 if agape=1:agape=2
						 agapetime=totminut
						 horny-=50
						 anus+=1
						 'Do you have a sore ass and shoved three fingers you even more damage it.'
						 end
					 end
				 	 if anus<5:
					 anus+=1
						 if agape=2:agape=3
						 if agape=1:agape=2
						 if agape=0:agape=1
						 horny-=50
					 agapetime=totminut
					 'You stuck three fingers in his ass and felt a sharp pain in your anus.'
					 end
				 act 'rest':gt $curloc
				 if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
				 dynamic $d_sis_prov
				 gs'stat'
				     if horny>0 and agape<3:
				         act 'Stick four fingers':
						 cls
						 minut+=5
						 selfplaytime+=5
						 '<center><img src="qwest/selfplay/4.jpg" ></center>'
						 	 if anus>=15:
							 'You quietly stuck his hand in your ass.'
								 if agape>0:
								 if agape=2:agape=3
								 if agape=1:agape=2
								 agapetime=totminut
								 horny-=50
								 if anus>1:anus-=1
								 'Do you have a sore ass and thrust four fingers you even more damage it.'
								 end
							 end
							 if anus>=10 and anus<15:
							 analplay+=1
							 'You have thrust his hand into his ass and your anus tightly clasped their.'
								 if agape>0:
								 if agape=2:agape=3
								 if agape=1:agape=2
								 agapetime=totminut
								 horny-=50
								 anus+=1
								 'Do you have a sore ass and thrust his hand you even more damage it.'
								 end
							 end
							 if anus<10:
							 anus+=1
								 if agape=2:agape=3
								 if agape=1:agape=2
								 if agape=0:agape=1
								 horny-=50
							 agapetime=totminut
							 'You have thrust his hand into his ass and felt a sharp pain in your anus.'
							 end
						 act 'rest':gt $curloc
						 if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
						 dynamic $d_sis_prov
						 gs'stat'
						     if horny>0 and agape<3:
								 act 'Stick your whole hand':
								 cls
								 SelfFisting+=1
								 minut+=5
								 selfplaytime+=5
								 '<center><img src="qwest/selfplay/5.jpg" ></center>'
									 if anus>=20:
									 'You quietly put his hand in your ass.'
										 if agape>0:
										 if agape=2:agape=3
										 if agape=1:agape=2
										 agapetime=totminut
										 horny-=50
										 if anus>1:anus-=1
										 'Do you have a sore ass and thrust his hand you even more damage it.'
										 end
									 end
									 if anus>=15 and anus<20:
									 analplay+=1
									 'You reached into his ass and your anus tightly clasped their.'
										 if agape>0:
										 if agape=2:agape=3
										 if agape=1:agape=2
										 agapetime=totminut
										 horny-=50
										 anus+=1
										 'Do you have a sore ass and thrust his hand you even more damage it.'
										 end
									 end
									 if anus<15:
									 anus+=1
										 if agape=2:agape=3
										 if agape=1:agape=2
										 if agape=0:agape=1
										 horny-=50
									 agapetime=totminut
									 'You reached into his ass and felt a sharp pain in your anus.'
									 end
								 act 'rest':gt $curloc
								 if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor
								 dynamic $d_sis_prov
								 gs'stat'
								 end
							 end
						 end
				     end
				 end
	         end
	     end
	 end
end

if horny>10:
	if dildo>=1 or middildo=1 or largedildo=1 or bigdildo=1 or extradildo=1 or superdildo=1 or maddildo=1:
	     if dildohand>0:
	         
	         if vgape<=0:
				 act 'Dildo in pussy':
				 cls
				 minut+=15
				 selfplaytime+=15
				 dick=dildohand
				 !if $loc='bedrPar':'<center><img src="qwest/selfplay/dildo.jpg" ></center>'
				 if $loc='vanrPar':
                 '<center><img src="qwest/selfplay/dildovann.jpg" ></center>'
                 else
                 '<center><img src="qwest/selfplay/dildo.jpg" ></center>'
                 end
				 dynamic $d_vag_sex_dildo
				 gs'stat'
				 act 'rest':gt $curloc
				 end
			 end
			 
			 if agape<=0:
				 act 'Dildo in the ass':
				 cls
				 minut+=15
				 selfplaytime+=15
				 dick=dildohand
				 !if $loc='bedrPar':'<center><img src="qwest/selfplay/dildoanal.jpg" ></center>'
				 if $loc='vanrPar':
                 '<center><img src="qwest/selfplay/dildovann.jpg" ></center>'
                 else
                 '<center><img src="qwest/selfplay/dildoanal.jpg" ></center>'
                 end
				 dynamic $d_analsex_dildo
				 gs'stat'
				 act 'rest':gt $curloc
				 end
			 end
		 end
		 
		 if dildohand=0:
		 'You do not have a dildo in hand'
		     if dildo=1:
		     act 'take 10five inch dildo':dildohand=10&gt $curloc
		     end
             if middildo=1:
             act 'take 15five inch dildo':dildohand=15&gt $curloc
             end
             if largedildo=1:
             act 'take 20five inch dildo':dildohand=20&gt $curloc
             end
			 if bigdildo=1:
			 act 'take 25five inch dildo':dildohand=25&gt $curloc
			 end
			 if extradildo=1:
			 act 'take 30five inch dildo':dildohand=30&gt $curloc
			 end
			 if superdildo=1:
			 act 'take 35five inch dildo':dildohand=35&gt $curloc
			 end
			 if maddildo=1:
			 act 'take 40five inch dildo':dildohand=40&gt $curloc
			 end
		 else
		 act 'Put dildo in place':dildohand=0&gt $curloc
		 end
	end
end

if horny>0:dynamic $d_self_fingering


act 'Abandon this venture':
analplay=0
selfplaytime=0
mastrOnce=0
proverkasisterhere=0
if vaginaTemp>vagina*2:vagina+=1&vaginaTemp=0
gt $loc, $metka
end


if $loc='vanrPar' and selfplaytime>=60:dynamic $d_van_vtor


if $loc='Gadsarai':
piratHorny+=1
'Dog named Pirate with curiosity looks at ,what you do.'
end




--- selfplay ---------------------------------

# gtelefon
boyinday[numnpcboy]=day
Gcall=0
minut+=3
gs'stat'
'You take the phone "Hello."'
if boyvstre[numnpcboy]>0:
'Male voice on the phone says "Hi, <<$nameBoyfrend[numnpcboy]>>, let`s go for a walk to somewhere."'
end
if boyvstre[numnpcboy]=0:
'In the tube male voice says "hello. Light can be?"'
'You are responsible interlocutor, that you are the Light. The stranger was delighted "I <<$nameBoyfrend[numnpcboy]>>, you and I met at the disco. remember? Let`s go for a walk."'
end


act 'I`m busy today':
cls
minut+=3
if boyvstre[numnpcboy]=0:otnBoyFrend[numnpcboy]-=10
if boyvstre[numnpcboy]>0:otnBoyFrend[numnpcboy]-=5
gs'stat'
''
     if otnBoyFrend[numnpcboy]>20:
     !otnBoyFrend[numnpcboy]=0
     '<<$nameBoyfrend[numnpcboy]>> upset. "Well then."'
     end
     if otnBoyFrend[numnpcboy]<=20:
     otnBoyFrend[numnpcboy]=0
     '<<$nameBoyfrend[numnpcboy]>> angry. "Well." And hung up.'
     end
act 'Hang up':gt'korrPar'
end

if GvstreBoy=0:
	 act 'Let`s meet in the park':
	 cls
	 minut+=3
	 GvstreBoy=1
	 GvstreBoyAfter[numnpcboy]=1
	 SkverBoy=numnpcboy
	 gs'stat'
	 'You are invited to meet in the park.'
	 act 'Hang up':gt'korrPar'
	 end
end









--- gtelefon ---------------------------------

# tvPar
gs'stat'
'<center><img src="pics/telek.jpg" ></center>'
'You turn on the TV and comfortably ensconced on the couch.'


$din_wath_tv_h={
cls
minut+=60
willpower+=RAND(5,10)
manna+=RAND(10,50)
gs'stat'
'<center><img src="pics/telek.jpg" ></center>'
'You see the central channel lying on the couch. Look almost nothing, solid advertising and cheesy program.'
act 'watching TV 1 h':dynamic $din_wath_tv_h
act 'Get up from the couch':gt $locM, $metkaM
}

act 'watching TV 1 h':dynamic $din_wath_tv_h

act 'Get up from the couch':gt $locM, $metkaM
--- tvPar ---------------------------------

# bedPar
gs'stat'

if nude = 0:'<center><img src="pics/bed.jpg" ></center>'
if nude = 1:'<center><img src="pics/son.jpg" ></center>'
'You `re lying on the bed. Service on the wound <<timer>> hours, <<timerM>> minutes.'

     act 'Free Service':gt'budilnik','start'
     
     !if son < 10:
		 act 'Undress and go to bed':
		 SAVEGAME 'altavtosave.sav'
		 cls
		 '<center><img src="pics/son.jpg" ></center>'
		 if analplugIN = 1:set analplugIN = 0&'Before going to bed you remove a butt plug.'
		 if vibratorIN=1:set vibratorIN=0&'Before going to bed .'
		 if mop > 1:set mop = 0&set vidageday = vidageday - 1&'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
		 set health = health + 5
		 set hapri = 0
		 InSleep=1
		 'You sleep and you dream about nothing.'
		 :loopson
		 set minut = minut + 1
		 set stime = stime + 1
		 if stime = 60:set stime = 0&set son = son + 3
		 clr
		 gs'stat'
			 if hour = timer and minut = timerM:
			 'alarm goes off'
			 set manna = manna - 10
				 act 'Get out of bed and get dressed (15 minutes)':
				 cla
				 !set numdress=odedosna
				 set InSleep=0
				 set minut+=15
				 set tanga = 1
				 !set nude=0
				 gt $locM, $metkaM
				 end
			 exit
			 end
			 if son > 23 and dosip = 0:
			 'You woke up on, that slept'
			 	 act 'Get out of bed and get dressed (15 minutes)':
				 cla
				 !set numdress=odedosna
				 set InSleep=0
				 set minut+=15
				 set tanga = 1
				 !set nude=0
				 gt $locM, $metkaM
				 end
			 exit
			 end
		 jump 'loopson'
		 end
     !end


	 act 'Get out of bed':
	 cla
	 gt $locM, $metkaM
	 end










--- bedPar ---------------------------------

# stolPar
gs'stat'
!'<center><img src="pics/telek.jpg" ></center>'
'You sat down at the desk.'


act 'Get up from the table':gt $locM, $metkaM

if lernHome>0:
     act 'teach lessons':
     cls
		 if lernHome<=2:
		 minut+=60*lernHome
		 lernHome=0
		 lern+=1
		 end
		 if lernHome>2:
		 minut+=60*2
		 lernHome=0
		 end
     gs'stat'
     'Sitting for a long time for the lessons you yet they were able to learn.'
     act 'Get up from the table':gt $locM, $metkaM
     end

end
--- stolPar ---------------------------------

# father
fatherAge=age+30
gs'stat'
'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
'<center><img src="qwest/alter/father.jpg" ></center>'
'Your stepfather gray and a little flabby man worked as a driver. him <<fatherAge>> year_old. Your mother and your father divorced and married Vladimir Mikhailovich when you were one year. Your real father you do not remember and have never seen.'
if father<20:'You stepfather scandal.'
if father>=20 and father<40:'You stepfather tensions.'
if father>=40 and father<60:'You have a normal relationship with her stepfather.'
if father>=60 and father<80:'You have a good relationship with his stepfather.'
if father>=80:'You have a great relationship with his stepfather.'

act 'move_away':gt $locM, $metkaM

act 'ask for money':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
'<center><img src="qwest/alter/father.jpg" ></center>'
'You asked for money stepfather, He shook his head. "I bring all salary mother, Come here and ask her."'
act 'move_away':gt $loc, $metka
end

act 'Ask about his mother and':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
'<center><img src="qwest/alter/father.jpg" ></center>'
'You asked her stepfather as he met with his mother. Stepfather scratched his bald head and begins to answer. "I then worked as a taxi driver. A ride like that Natasha, your mom. She had then been quite soplyushkoy, but has managed to marry the husband of the class-mate and give birth to you with Anya. Your father , only saw a couple of times. I know that his name was Mikhail Kuznetsov. He went somewhere, in another city."'
act 'move_away':gt $loc, $metka
end

act 'Ask about his work':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
'<center><img src="qwest/alter/father.jpg" ></center>'
'You asked about his stepfather`s work. Stepfather reached crunching joints. "previously takseril. now tired. And dangerous and old. Gazelle bought and now I`m on the pickup truck breed products hucksters. know yourself, I have two garages, in one of our Volga worth, in another ."'
act 'move_away':gt $loc, $metka
end

if motherKnowSpravka=1:
cla
father=0
motherKnowSpravka=2
'Stepfather angrily walked up to you "Oh damn! Did not have time to get off the pot, pussy and already someone sprained! Bring in lap, who will educate?"'
act 'move_away':gt $loc, $metka
end

if alko>0 and alkoday!day:
alkoday=day
father-=1
'stepfather sniffed "Sveta, you smell of alcohol! that hideousness? You are still too young, what to drink!"'
end

if TorgVokzalTimes>0 and YouCanGar=0:
	 act 'Ask for permission to store goods in the garage':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	 '<center><img src="qwest/alter/father.jpg" ></center>'
	 'You asked for permission to store his stepfather in the garage items.'
	     if father+dom>=80:
	     YouCanGar=1
	     'Stepfather hesitated still allow you to use it for garage storage of goods for sale.'
	     else
	     'Stepfather shook his head "No Light. I have ."'
	     end
	 act 'move_away':gt $loc, $metka
	 end
end



--- father ---------------------------------

# mother
motherAge=age+19
!Model Olga Kabaeva
if momslut>=2 and mother<40:mother=40

gs'stat'
'<center><B><font color=maroon>mom</font></B></center>'
'<center><img src="qwest/alter/mother.jpg" ></center>'
'Your mother Natasha is still quite young and attractive. she is only <<motherAge>> year_old. She works in the station cafe.'
if mother<20:'You and your mom scandal.'
if mother>=20 and mother<40:'You and your mom tensions.'
if mother>=40 and mother<60:'You have a normal relationship with her mother.'
if mother>=60 and mother<80:'You have a good relationship with his mother.'
if mother>=80:'You have a great relationship with my mother.'

act 'move_away':gt $loc, $metka

if motherWorry=1 and indorf=0:
motherWorry=0
mother-=1
'The mother is awake and standing in the hallway waiting for you. "Where are you shlyaeshsya? You know what hour in the yard?"'
end
if motherWorry=1 and indorf>0:
motherWorry=0
end

     if SchoolAtestat=1 and SAtestatGift=0:
     SAtestatGift=1
     money+=5000
     gs'stat'
     'mom happy "Now you graduated from high school and I want to give you five thousand rubles. You can buy myself a gift."'
     end
     
     

if hour>5:

     if abort=1 and pregTalkFamily=1:
     pregTalkFamily=2
     mother=0
     'Mother looked sadly at you "What are you still a fool! Still had an abortion, and if now you will not have children? What do you think will be forever young and whole life will be held in gladness?"'
     end
     
     if momslut=1:
         act 'say, you vidili mother fucking master cafe':
		 cls
		 minut+=5
		 momslut=2
		 gs'stat'
		 '<center><B><font color=maroon>mom</font></B></center>'
	     '<center><img src="qwest/alter/mother.jpg" ></center>'
		 'You said the mother, you`ve seen it in stock cafe with a host of cafes. Mother noticeably pale and sat down on a stool. "And what you saw?" You answered it, they saw as she sucked in a host cafes, and then he fucked her doggy style. Mother lowered her eyes "Well yes, I sleep with Slava. But I want to warn you, blackmail me you did not get." The mother looked into your eyes "All what you can is achieved, is to destroy the family."'
		 act 'move_away':gt $loc, $metka
		 end
     end
     
	 if preg=1 and pregTalkFamily=0:
	 	 act 'tell her mother, you are pregnant':
		 cls
		 minut+=5
		 mother=20
		 pregTalkFamily=1
		 gs'stat'
		 '<center><B><font color=maroon>mom</font></B></center>'
	     '<center><img src="qwest/alter/mother.jpg" ></center>'
		 'You said the mother, you are pregnant. Mother with wide-eyed helplessly sat on a stool. She said sadly "Well. I was afraid of this. Now do not try to have an abortion, if you do an abortion, in the future is unlikely you manage to have children. You`ll have to have a child."'
		 act 'move_away':gt $loc, $metka
		 end
	 end
	 
	 act 'ask for money':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><B><font color=maroon>mom</font></B></center>'
	 '<center><img src="qwest/alter/mother.jpg" ></center>'
	 'You asked my mother for money.'
		 if SchoolAtestat=0:
		     if mother>=80:
		     	 if motherPayDay=day:
				 'mother frowned "Dochura, I told you already gave money!"'
				 end
				 if motherPayDay!day:
				 mother-=1
				 motherPayDay=day
					 if Suspeh>=70:
						 if Suspeh<90:
						 money+=150
						 'Mother gave you frown 150 rubles "You will learn better, I will give more. In the meantime, that`s all, that you deserve!"'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
						 if Suspeh>=90:
						  money+=300
						 'The mother smiled and gave you 300 rubles "Fair_Enough, money."'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
					 else
					 'mother frowned "You will learn better, will be money, as long as you deserve only the belt, instead of money!"'
					 end
				 end
		     end
		     
		     if mother>=60 and mother<80:
		     	 if motherPayDay=day:
				 'mother frowned "No docha. I`ve already gave money. Enough for today."'
				 end
				 if motherPayDay!day:
				 mother-=1
				 motherPayDay=day
					 if Suspeh>=70:
						 if Suspeh<90:
						 money+=100
						 'Mother gave you frown 100 rubles "You will learn better, I will give more. In the meantime, that`s all, that you deserve!"'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
						 if Suspeh>=90:
						  money+=250
						 'The mother smiled and gave you 250 rubles "Fair_Enough, money."'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
					 else
					 'mother frowned "You will learn better, will be money, as long as you deserve only the belt, instead of money!"'
					 end
				 end
		     end
		     
			 if mother>=40 and mother<60:
				 if motherPayDay=day:
				 'mother frowned "Here are you velcro. Get nothing!"'
				 end
				 if motherPayDay!day:
				 mother-=1
				 motherPayDay=day
					 if Suspeh>=70:
						 if Suspeh<90:
						 money+=50
						 'Mother gave you frown 50 rubles "You will learn better, I will give more. In the meantime, that`s all, that you deserve!"'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
						 if Suspeh>=90:
						  money+=200
						 'The mother smiled and gave you 200 rubles "Fair_Enough, money."'
						 act 'move_away':gt $loc, $metka
						 exit
						 end
					 else
					 'mother frowned "You will learn better, will be money, as long as you deserve only the belt, instead of money!"'
					 end
				 end
			 end
			 
			 if mother<40 and motherKnowWhore=0 and  motherKnowSpravka=0:
			 'mother frowned "You do not deserve the money!"'
			 end
			 
			 if motherKnowWhore=>1 and mother<40 or motherKnowSpravka=>1 and mother<40:
			 '-You `re asking for more money, slut? Go here, scram their С‘baryam beg money'
			 end
		 end
		 if SchoolAtestat>0:
		 'You`re old enough, earn itself.'
		 end
	 act 'move_away':gt $loc, $metka
	 end
	 
	 act 'Ask about the real father':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><B><font color=maroon>mom</font></B></center>'
	 '<center><img src="qwest/alter/mother.jpg" ></center>'
		 if mother<80:
		 'You asked his mother about his real father. Mother pulled a face not happy and answered. "Sveta, I`m not going to discuss this topic now. only know, that Vova, Your stepfather growth you with Anya as their native daughters."'
		 end
		 if mother>=80:
	     'You asked his mother about his real father. Mother pulled a face not happy and answered. "I have no idea where he is and what makes. We were at school together. He made me your sister Anka. Our parents were married us. Michael, your father, I made вЂ‹вЂ‹you and zabuhal. We divorced and I married Vovka. Kolka already born by Vova. But Vova brought you to Anya as their native daughters. Soul in you looked for, and bathed you, and went for a walk with you for a walk. And tales told you at night."'
	     end
	 act 'move_away':gt $loc, $metka
	 end
	 
	 act 'Ask for new clothes':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><B><font color=maroon>mom</font></B></center>'
	 '<center><img src="qwest/alter/mother.jpg" ></center>'
	 'You asked for new clothes.'
		 if SchoolAtestat=0:
		     if mother>=80:
		         if motherClotheMonth!month:
		         'Mom sighed "Well. You`re my world is empty. Let`s go to the store, Mount onion."'
		             act 'Go to the store':
					 cls
					 mother=70
					 motherClotheMonth=month
					 minut+=30
					 gs'stat'
					 'You went to the store with his mother and began to choose. With her вЂ‹вЂ‹mother to go shopping quite interesting to do, she will never give you choose yourself and be sure to buy clothes for your taste.'
					     act 'choose clothes':
					     cls
					     gs'stat'
					     :markbuyclomother
					     numrand=rand(1,130)
							 if newclo[numrand]=0:
							 newclo[numrand]=1
							 newcloH[numrand]=50
							 newcloB[numrand]=bedra
							 '<center><img src="ode/newclo/<<numrand>>.jpg" ></center>'
							 else
							 jump'markbuyclomother'
							 end
						 
						 'Mom bought you clothes.'
						 act 'Get_Away':gt $loc, $metka 
					     end
					     
					     if newclo[131]=0:
							 act 'Select a school uniform':
							 cls
							 gs'stat'
							 newclo[131]=1
							 'Mom bought you a school uniform.'
							 act 'Get_Away':gt $loc, $metka
							 end
					     end
					     
					 end
		         exit
		         else
		         'Mom shook her head "Dochura, our budget is not rubber, this month we have already bought your clothes. Now wait for the next month."'
		         end
		     else
		     'Mom shook her head "No money."'
		     end
		 else
		 'Mom shook her head "You`re an adult, should make itself."'
		 end
	 act 'move_away':gt $loc, $metka
	 end
end


if $loc='kuhrPar':
     act 'offer help':
     cls
     minut+=60
     mother+=RAND(1,5)
     manna-=10
     TotalMomPom+=1
     gs'stat'
     'You offered to help his mother with the housework.'
     MomPom+=1
     if MomPom=8:MomPom=1
         if MomPom=1:
         'Mom asked you to wash the dishes. You are within an hour wash dishes in the kitchen.'
         end
         if MomPom=2:
         'Mom asked you to peel the potatoes. You are within an hour peeling potatoes in the kitchen.'
         end
         if MomPom=3:
         'Mom asked you to clean the floor. You are within an hour washed the floors in the apartment.'
         end
         if MomPom=4:
         'Mom asked you to do your laundry. You are within an hour wash clothes in the bathroom.'
         end
         if MomPom=5:
         'Mom asked you to pat underwear. You are within an hour was ironing in the room.'
         end
         if MomPom=6:
         sdacharand=RAND(10,50)
         money+=sdacharand
         gs'stat'
         'Mom asked you to run to the grocery store. You walked for an hour for food, you got change for a purchase <<sdacharand>> rubles.'
         end
         if MomPom=7:
         'Mom asked you to run to the pharmacy for drugs. My mother`s sister works there and she will give Ludmila pharmaceuticals free, Mom then she deems to Aunt Luda. Mom wrote a list and you went to the pharmacy, in pharmacy as always sat behind the counter Aunt Luda. "Hello Svetulechka. what is up? How are you?" You are greeted by her aunt and gave her a piece of paper in which the mother wrote drugs. Aunt Luda quickly gathered the necessary and gave you. You came back to the apartment and gave her mother medication.'
         end
     act 'move_away':gt $loc, $metka
     end
end


if $loc='gkafe':
'Mom saw you and frowned "what came? I said many times, Do not go to my office. There`s nothing to do young devchenke!"'
end

if SchoolAtestat=0:
	 if GspravkaT=0 and GspravkaTimes>=3 and hour>=6 and hour<=21:
	 cla
	 mother-=1
	 'mother frowned "How much can you pull out the FAQ? You will have the most to the gynecologist conduct!" Mother took you by the hand and led him to the clinic, to the gynecologist.'
		 act 'Go to the gynecologist for help':
		 cla
		 set minut = minut + 15
		 'You lay down on the examination table and pushed his feet. The gynecologist has viewed your vagina.'
			 if vagina > 0:
			 Gspravka=7
			 GspravkaT=2
			 'Gynecologist wrote Help, that you are not a virgin.'
			 end
			 if vagina = 0:
			 Gspravka=7
			 GspravkaT=1
			 'Gynecologist wrote Help, that you are a virgin.'
			 end
		 act 'GO_OUT':gt $curloc
		 end
	 exit
	 end


	 if GspravkaT=0 and GspravkaTimes<3:
	 GspravkaTimes+=1
	 '"You need to go to the clinic. to the gynecologist, refer to the school."'
	 end


	 if GspravkaT=2 and motherKnowSpravka=0:
	 cla
	 mother=0
	 motherKnowSpravka=1
	     if momslut<2:
	     'Mother grabbed you by the ear "Oh blyadischa! My father screamed, what would one of you people do Putney, find you worthy men, and you`re a whore has already Mandu someone tuck! Get out of my sight!"'
	     else
	     'Mother shook her head sadly "Well. Look no zalet."'
	     end
	 act 'move_away':gt $loc, $metka
	 exit
	 end
end

if alko>0 and alkomday!day:
alkomday=day
mother-=1
'mom sniffed "Sveta, you smell of alcohol! that hideousness? You are still too young, what to drink!"'
end

if cumlip > 1 or cumface > 0 or cumfrot > 0:
cla
set mother=0
set motherKnowWhore=1
     if momslut<2:
     'The mother looked at you, bulged eyes and blushed. You was noticeable sperm.'
     '-Oh, What is that on you? All say that the daughter of a decent, and she fucking somewhere. Blyadina! went here, do not get caught up in my eyes!'
	 else
	 'Mother shook her head sadly "You would then wiped the sperm, and then the whole town will know, you whore."'
	 end
act 'move_away':gt $loc, $metka
exit
end

if glamur>0 and hour>9:
'Mom looked at you "Where are you so dressed up?"'
end

if week=5 and dostupindorf=1:
     if hour>9:
     'Mom continued to go about their business tells you "Sveta, tomorrow we will go to the village, in 12 hours. If you want us then come to me to 12 ti."'
     end
end
if week=6 and dostupindorf=1:
     if hour>9 and hour<12:
     'Mom asks you "Sveta, well? Come with us to the village?"'
     act 'Go to the country':hour=12&minut=0&indorf=1&gt'famdorfride'
     end
end







--- mother ---------------------------------

# sister
sisterAge=age+3
!model Megan Vale Valentina Azarov

gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sister.jpg" ></center>'
'Your Setra Anya bit older than you. her <<sisterAge>> year_old. She graduated from high school, but was unable to go to university and now works at the store clerk.'
if sister<20:'You and your sister scandal.'
if sister>=20 and sister<40:'You and your sister tensions.'
if sister>=40 and sister<60:'You and your sister a normal relationship.'
if sister>=60 and sister<80:'You have a good relationship with her sister.'
if sister>=80:'You have a great relationship with my sister.'

if cumlip>1 or cumface>0 or cumfrot>0:
'Sister eyeing you "light, and that it?" Suddenly her eyes rounded "light, yes the same sperm! That`s how little sister, phew. Look, If the nurse finds, you do not sdobrovat."'
end

if SiSonWork=1:
!at work
'Light does not bother me, I do not see buyers.'
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
exit
end

if SiSgdk=1:
!Outside the club with friends
	 
     if sister<40:
     '"What do you want? Wali let!" Anya told you under the laughter of her friends.'
     else
     'Anya sits now devchenok and guys drinking beer "Hi sister." Anya told you smile. "want pivasom?"'
         act 'drink beer':
         cls
         minut+=60
         sister+=5
         alko+=3
         salo+=1
         fat+=2
         energy+=10
         gs'stat'
             if AniaFrends>=1:
             gt'annafrends'
             end
             if AniaFrends=0:
             AniaFrends=1
             'You meet with friends Ani. They are all former classmates. Little Lena and mobile, constantly confuses Ira, High athletic guy whose name is Rex and all red-haired skinny guy named Roman. Looking after you sat drinking beer and chatted with friends Ani.'
             end 
         act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
         end
     end
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
exit
end

act 'Ask about the real father':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sister.jpg" ></center>'
'You asked about the real father Ani. she grinned. "light. I was 4 the year when they parted. I do not remember him ever vidila. Mother does not like to talk details. But it seems like you and I ."'
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
end

act 'Ask about the university':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sister.jpg" ></center>'
'You asked about Anna University. she grinned. "I almost came, gleaning points. Who scored, the fig is it for the whole university. What will I get this piece of paper?"'
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
end

act 'Ask about her boyfriend':
cls
minut+=5
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sister.jpg" ></center>'
'You asked Anya about her boyfriend. she smiled. "Well. Although nothing serious. He told me one more."'
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
end

act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka

if SisterKnowMastr>0 and sisterQW=0:
cls
sisterQW=1
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sister.jpg" ></center>'
'Anya looks at you and laughs "Well Sveta, and you give! I come into the room, and she`d play. Man himself Establishments, whether that."'
act 'move_away':SiSonWork=0&SiSgdk=0&gt $loc, $metka
end


--- sister ---------------------------------

# sistersleep
if lesbian>0:horny+=10&siswath+=1
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/Ev/sleep.jpg" ></center>'
'on the bed, Anya is putting the ass'

act 'move_away':gt $loc, $metka
--- sistersleep ---------------------------------

# brother
brotherAge=age-2

gs'stat'
'<center><B><font color=maroon>Kolka</font></B></center>'
'<center><img src="qwest/alter/brother.jpg" ></center>'
'Your brother Kolka younger than you and he <<brotherAge>> year_old. Kolka was born . He is studying in the same school as you and enjoys football.'
if brother<20:'You and your brother scandal.'
if brother>=20 and brother<40:'You and your brother tensions.'
if brother>=40 and brother<60:'You and your brother a normal relationship.'
if brother>=60 and brother<80:'You and your brother a good relationship.'
if brother>=80:'You and your brother a great relationship.'

!'
if cumface>0 or cumfrot>0 or cumlip>1:
     if GorSlut>0:
     'Kolka looking at you "Slysh <<$gnikname>>. After service necessary to wash cocks, but not to run in struhne."'
     end
     if GorSlut=0:
         if motherKnowSpravka=>1 or motherKnowWhore=>1:
         'Kolka looking at you "Listen, I understand that the mother in the course of, you whore. But will run in struhne, the whole town knows, you whore."'
         end
         if motherKnowSpravka=0 and motherKnowWhore=0:
         'Kolka looking at you "And what is it?" His eyes are rounded "Yes this is sprma. Here is the number, my sister approximate slut."'
         end
     end
act 'move_away':gt $loc, $metka
exit
end


act 'move_away':gt $loc, $metka

if GorSlut>0:
'Kolka wrinkled "What do you want <<$gnikname>>."'
end

if motherKnowSpravka=>1 or motherKnowWhore=>1:
'You came to my brother. He laughed and began to poke a finger at you "slut. slut. slut."'
else
'
act 'move_away':gt $loc, $metka

if $loc='gschool':
     if brother<40:
     'brother frowns "Get off me pridurochnaya!"'
     else
     'brother grins "Hi Sveta. Play football?"'
         act 'Play soccer':
         cls
         minut+=60
         brother+=5
         agil+=RAND(0,2)
         speed+=RAND(0,2)
         set sweat = sweat + 3
		 set beg = beg + RAND(2,5)
         gs'stat'
         'You are within an hour running around chasing the ball across the field with his brother and his friends Bear and Zhendosom.'
         ivrand=rand(0,1)
         act 'move_away':gt $loc, $metka
             if ivrand=0 and seepornofut=0:
             'Boys whispering among themselves discussing something.'
                 act 'You are talking about here?':
                 cls
                 gs'stat'
                 'boys hesitated, so much so, nothing.'
                     if dom>0:
                     'You`re a bit pressed on them "Are you as malyshnya, sekretiki what that you." One of the boys immediately split "Yes."'
                     act 'move_away':gt $loc, $metka
                         act 'take me':
						 cls
						 gs'stat'
						 'you asked, what would you also have to look porn. Guys nemnog oposmuschalis, but agreed.'
						 act 'Go watch porn':minut+=5&gt'seeporn'
						 end
                     else
                     act 'move_away':gt $loc, $metka
                     end
                 end
                 
             end
             if ivrand=0 and seepornofut>=1:
             'Guys poshushukavshis together tell you "Sveta, go look porn?"'
             act 'Go watch porn':minut+=5&gt'seeporn'
             end
         end
     end
end



!end
--- brother ---------------------------------

# family
!!!!!!!!!!!!
if day!m_day:
m_day=day
father_go=rand(0,1)
mother_go=rand(0,1)
end
indorf=0

if indorf_month!month:
!monthly
indorf_month=month
dostupindorf=1
end
if week=1 and dostupindorf=1:
dostupindorf=0
end

if week=6 and hour>=12 and dostupindorf=1:
!go to the village
indorf=1
father_go=0
mother_go=0
end
if week=7 and hour<20 and dostupindorf=1:
!go to the village
indorf=1
father_go=0
mother_go=0
end

if indorf=1 and sister_opr_indorf=0:
sister_opr_indorf=1
sister_indorf=rand(0,1)
end
if indorf=0:
sister_opr_indorf=0
sister_indorf=0
end
if sister_indorf=1:sisterHere=0
''
''
if StoryLine>0:
     if sister_indorf=0:
		if $loc='bedrPar':
		sisterHere=0
			 if hour<7:
			 sisterHere=1
			 'Your sister <a href="exec:GT ''sistersleep''">Anya</a> asleep in bed.'
			 end
			 
			 if week<6:
				 if hour=7:
				 sisterHere=2
				 'Your sister <a href="exec:GT ''sistersobir''">Anya</a> going to work.'
				 end
			 end
			 if week>=6:
				 if hour>=7 and hour<10:
				 sisterHere=1
				 'Your sister <a href="exec:GT ''sistersleep''">Anya</a> asleep in bed.'
				 end
				 if hour=10:
				 sisterHere=2
				 'Your sister <a href="exec:GT ''sisterprogulka''">Anya</a> going for a walk.'
				 end
				 
			 end
			 if hour>=18:
			 sisterHere=2
			 'Your sister <a href="exec:GT ''sister''">Anya</a> sitting on the bed and reading a book.'
			 end
		end
	end
	 if indorf=0:
		if $loc='bedrPar2':
			 if hour<6 or hour>=21:
			 'On the bed sleeping mother and stepfather.'
			     if hour=21:
			     parsexrand=rand(0,5)
			     
			     end
			 end
			 if week<6:
			 end
			 if week>=6:
			 end
		end
		if $loc='sitrPar':
			 if hour<7 or hour>=21:
			 'Sleeping on the couch your younger brother Kolka.'
			 end
			 if week<6:
				 if father_go=0:
					 if hour>=16 and hour<21:
					 'Sitting on the couch <a href="exec:GT ''father''">stepfather</a> watching TV.'
					 end
				 end
				 if hour>=18 and hour<20:
				 'Sitting at the table your younger brother <a href="exec:GT ''brother''">Kolka</a> and teaches lessons.'
				 end
				 if hour=20:
				 'Sitting on the couch your younger brother <a href="exec:GT ''brother''">Kolka</a> watching TV.'
				 end
			 end
			 if week>=6:
				 if father_go=0:
					 if hour>=7 and hour<21:
					 'Sitting on the couch <a href="exec:GT ''father''">stepfather</a> watching TV.'
					 end
				 end
				 if father_go=1:
					 if hour>=7 and hour<16:
					 'Sitting on the couch <a href="exec:GT ''father''">stepfather</a> watching TV.'
					 end
				 end
				 if hour>=18 and hour<=20:
				 'Sitting on the couch your younger brother <a href="exec:GT ''brother''">Kolka</a> watching TV.'
				 end
			 end
		end
		if $loc='kuhrPar':
			 if week<6:
				 if mother_go=0:
					 if hour>=16 and hour<21:
					 'Near the stove stands <a href="exec:GT ''mother''">mom</a> and that it is preparing.'
					 end
				 end
				 if mother_go=1:
					 if hour>=17 and hour<21:
					 'Near the stove stands <a href="exec:GT ''mother''">mom</a> and that it is preparing.'
					 end
				 end
			 end
			 if week>=6:
				 if mother_go=0:
					 if hour>=7 and hour<21:
					 'Near the stove stands <a href="exec:GT ''mother''">mom</a> and that it is preparing.'
					 end
				 end
				 if mother_go=1:
					 if hour>=7 and hour<16:
					 'Near the stove stands <a href="exec:GT ''mother''">mom</a> and that it is preparing.'
					 end
					 if hour>=17 and hour<21:
					 'Near the stove stands <a href="exec:GT ''mother''">mom</a> and that it is preparing.'
					 end
				 end
			 end
		end
		if $loc='korrPar':
			 if week<6:
			 end
			 if week>=6:
			 end
		end

		if $loc='vokzalG':
			 if week<6:
			 end
			 if week>=6:
			 end
		end

		if $loc='gdk':
			 if week<6:
				 if hour>=16 and hour<18:
				 'Your sister <a href="exec:GT ''sister''">Anya</a> sitting in the company of boys and devchenok and drinks beer.'
				 end
			 end
			 if week>=6:
				 if hour>=11 and hour<18:
				 'Your sister <a href="exec:GT ''sister''">Anya</a> sitting in the company of boys and devchenok and drinks beer.'
				 end
			 end
			 
		end

		if $loc='gschool':
			 if week<6:
				 if hour>=15 and hour<=17:
				 'On the football field near the school your <a href="exec:GT ''brother''">brother</a> drove in football.'
				 end
			 end
			 if week>=6:
				 if hour>=7 and hour<=17:
				 'On the football field near the school your <a href="exec:GT ''brother''">brother</a> drove in football.'
				 end
			 end
		 end
	 end
end




--- family ---------------------------------

# Snpc
!'
$npcName[numnpc]=''
$npcSurName[numnpc]=''
$npcText[numnpc]=''
grupNPC[numnpc]=
npcPol[numnpc]
grupTipe[numnpc]
'
gs'dinnpc'


gs'stat'
'<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
'<<$npcText[numnpc]>>'
if grupTipe[numnpc]=-1:'<<$npcName[numnpc]>> refers to a group of outcasts.'
if grupTipe[numnpc]=0:''
if grupTipe[numnpc]=1:'<<$npcName[numnpc]>> refers to a group of botanists.'
if grupTipe[numnpc]=2:'<<$npcName[numnpc]>> refers to a group sportikov.'
if grupTipe[numnpc]=3:'<<$npcName[numnpc]>> refers to the group steep.'
if grupTipe[numnpc]=4:'<<$npcName[numnpc]>> refers to a group Gopnik.'
if grupNPC[numnpc]<20:'You have a bad attitude.'
if grupNPC[numnpc]>=20 and grupNPC[numnpc]<40:'You tensions.'
if grupNPC[numnpc]>=40 and grupNPC[numnpc]<60:'You have a normal relationship.'
if grupNPC[numnpc]>=60 and grupNPC[numnpc]<80:'You have a good relationship.'
if grupNPC[numnpc]>=80:'You have a great relationship.'
if numnpc=14 and KatjaOTN>0:
if KatjaHorny<20:'Katya looks calm and indifferent.'
if KatjaHorny>=20 and KatjaHorny<40:'Katya in the eyes jump merry twinkle.'
if KatjaHorny>=40 and KatjaHorny<60:'Katya slight blush on her cheeks and she playfully looks at you.'
if KatjaHorny>=60 and KatjaHorny<80:'Kate blushed and languidly looks at you.'
if KatjaHorny>=80:'Katya all red as a lobster and her chest heaving from deep breathing.'
'KatjaLust - <<KatjaLust>>'
'KatjaSlut - <<KatjaSlut>>'
'KatjaDom - <<KatjaDom>>'
'KatjaMastr - <<KatjaMastr>>'
end
''
''
!act 'move_away':gt $locM, $metkaM
!reaction to sperm
gs'cumreaction'
!bullying
gs'izdevat'
!Krutyshi
gs'krutishi'

if numnpc=23 and albinaQWdance>0 and AlbinaBlokDance=0 and ZvezdEnd=0:
'Albina easy smiles at you "Sveta, you well in training spravlyaeshsya, Do not forget to come to it."'
if GorSlut>0:'By_The_Way, about you go disgusting rumors.'
end
if AlbFrend=1 and numnpc=23:
AlbFrend=2
grupNPC[numnpc]=100
'Albina smiling at you "Thank Light, correctly say, a friend in need is a friend indeed. You rescued me very warning of Zvezdushkah, unfortunately have to close our team, that would not run into trouble."'
end
if AlbFather=2 and numnpc=23 and AlbEnemy=0:
grupNPC[numnpc]=0
AlbEnemy=1
'Albina angrily glared "Oh! Claim to write me taken in head. Well."'
end

!Shoutbox with Kotov
if numnpc=9:gs'kotovtalker'
!!!!!!!!!!!!!!!!!!!!!!!!!gopota!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if grupTipe[numnpc]=4:
     if $loc='gdkin':
         if GorSlut<2:
             if numnpc!9:
				 if npcPol[numnpc]=0:
				 '<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something as dumb.' 
				 else
				 '<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something as dumb.' 
				 end
				 
				 act 'drink beer':
				 cls
				 minut+=5
				 grupNPC[numnpc]+=5
				 alko+=1
				 salo+=1
				 fat+=2
				 energy+=10
				 gs'stat'
				 'You drank beer in the company of friends.'
				 act 'move_away':gt $loc, $metka
				 end
				 
				 
				 act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
			 end
         end
         if GorSlut>=2:
         	 if npcPol[numnpc]=0:
			 '<<$npcName[numnpc]>> - Cho priperlas, vaflersha. Huytsa want to nap or something?' 
			 
			 else
			 '<<$npcName[numnpc]>> - Hey huesoska, sebi here. Are you standing next to something dumb.' 
			 end
			 
			 act 'Get_Away':grupNPC[numnpc]-=5&gt $loc, $metka
         end
     exit
     end
     
end

	 act 'chat':
	 cls
	 if $loc='gdkin':minut+=5
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	     if numnpc=1 and grupNPC[numnpc]=0:
	     'Dima sniffed. "Get off my pimply pig."'
	     if $loc!'gdkin':dynamic $din_sekondparturok
         if $loc='gdkin':act 'move_away':gt $loc, $metka
	     exit
	     end
	     !if decent
	     gs'nogorslut'
	     !if not respectable
         gs'yesgorslut'
	 if $loc!'gdkin':dynamic $din_sekondparturok
     if $loc='gdkin':act 'move_away':gt $loc, $metka
	 end
	 
	 
	 !!!!!!!!!!!!!!!!!!!Artem CHEBOTAREV Botha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	 if numnpc=2:
	     if dom>0 and artomLernQW=0:
	         act 'You could not pull my little study?':
			 cls
			 if $loc='gdkin':minut+=5
			 grupNPC[numnpc]+=5
			 sub+=1
			 if GorSlut<3:artomLernQW=1
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			 if GorSlut<3:'You came to Artem and asked him to help you to study. Artem was a little surprised and replied to you "Well. Let`s go after school to my home, work_out."'
			 if GorSlut>=3:'You came to Artem and asked him to help you to study. Artem outraged "Here are, I `ll spend my time on such as you, No."'
			 if $loc!'gdkin':dynamic $din_sekondparturok
			 if $loc='gdkin':act 'move_away':gt $loc, $metka
			 end
	     end
	 end
	 !!!!!!!!!!!!!!!!!!!JULIA mil bot!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	 if numnpc=12:
	     if dom>0 and JuliaMilLernQW=0 and grupNPC[numnpc]>=80:
	         act 'You could not pull my little study?':
			 cls
			 if $loc='gdkin':minut+=5
			 grupNPC[numnpc]+=5
			 sub+=1
			 JuliaMilLernQW=1
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			 if GorSlut<1:'You came to Julia and asked you to pull up a little learning, She thought agreed.'
			 if GorSlut>=1:'You came to Julia and asked you to pull up a little learning, she snorted indignantly, well, and then think, we are friends.'
			 if $loc!'gdkin':dynamic $din_sekondparturok
			 if $loc='gdkin':act 'move_away':gt $loc, $metka
			 end
	     end
	 end
	 
	 !!!!!!!!!!!!!!!Katya MEYNOLD!!!!!!!!!!!!!!!!!!!!!!!
	 if numnpc=14 and meynoldQW=1:
	     act 'Thank you for, that you took away from the disco.':
		 cls
		 if $loc='gdkin':minut+=5
		 grupNPC[numnpc]+=5
		 meynoldQW=2
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
		 'You have come to Kate and thanked her for, she stole you from the disco home, when you have touched. Kate smiled at you. "It`s my pleasure, only you do not get drunk. Drunkenness could end badly."'
		 if $loc!'gdkin':dynamic $din_sekondparturok
		 if $loc='gdkin':act 'move_away':gt $loc, $metka
		 end
	 end
	 if numnpc=14 and meynoldQW>1 and mop<=1:
	 'Kate looks at you with a smile "Sveta, I give you at least touched up eyes."'
	     act 'cosmetics.':
		 cls
		 hapri = 1
		 if $loc='gdkin':minut+=5
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
		 'Katya quickly straightened your hair and asked. "you like? a little touch up, usually distribute or shovel?"'
		     act 'light makeup':
             cla
             set mop = 2 
             'Kate lightly summarized your eyes and a little lipstick.'
             if KatjaOTN>0:KatjaHorny+=10&'Katya blushes and depart from your eyes.'
             if $loc!'gdkin':dynamic $din_sekondparturok
		     if $loc='gdkin':act 'move_away':gt $loc, $metka
             end
             
			 act 'normal makeup':
			 cla
			 set mop = 3
			 'Kate has made up your lips, summed up the eyes and eyelids.'
			 if KatjaOTN>0:KatjaHorny+=10&'Katya blushes and depart from your eyes.'
			 if $loc!'gdkin':dynamic $din_sekondparturok
		     if $loc='gdkin':act 'move_away':gt $loc, $metka
			 end
			 
			 act 'bright makeup':
			 cla
			 set mop = 4
			 'Kate has made up your lips bright lipstick, has made up his eyes and thick eyelashes, summed up his eyebrows and left a thick shade.'
			 if KatjaOTN>0:KatjaHorny+=10&'Katya blushes and depart from your eyes.'
			 if $loc!'gdkin':dynamic $din_sekondparturok
		     if $loc='gdkin':act 'move_away':gt $loc, $metka
			 end
		 end
	 end
	 if numnpc=14 and meynoldQW>1 and mop>1:
	     if $loc!'gdkin':
	     !school
	         if KatjaHorny>=50:
	         
	         end
	         if KatjaHorny<50:
	         end
	     end
	     if $loc='gdkin':
	     !at the disco
	     	 if KatjaHorny>=50:
	         end
	         if KatjaHorny<50:
	         end
	     end
	 end
	 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	 !!!!!!!!!!!!!!!!!!!Natasha Belova Botha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	 if numnpc=16:
	     if dom>0 and NatBelLernQW=0 and grupNPC[numnpc]>=80:
	         act 'You could not pull my little study?':
			 cls
			 if $loc='gdkin':minut+=5
			 grupNPC[numnpc]+=5
			 sub+=1
			 NatBelLernQW=1
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			 if GorSlut<1:'You came to Natasha and asked you to pull up a little learning, She thought agreed.'
			 if GorSlut>=1:'You came to Natasha and asked you to pull up a little learning, she snorted indignantly, well, and then think, we are friends.'
			 if $loc!'gdkin':dynamic $din_sekondparturok
			 if $loc='gdkin':act 'move_away':gt $loc, $metka
			 end
	     end
	 end


if $loc!'gdkin':dynamic $din_sekondparturok
if $loc='gdkin':act 'move_away':gt $loc, $metka




--- Snpc ---------------------------------

# cumreaction
if cumface>0 or cumfrot>0:
grupNPC[numnpc]-=10
if GorSlut=0:GorSlut=1
'<<$npcName[numnpc]>> looking at you "And this, what? Yes this is the sperm! phew. Would you even spoofing."'
	 if $loc='gschool':
     dynamic $din_sekondparturok
     else
	 act 'move_away':gt $loc, $metka
	 end
exit
end
if cumlip>1:
grupNPC[numnpc]-=10
if GorSlut<2:GorSlut=2
'<<$npcName[numnpc]>> looking at you "What have you got out of his mouth smells? phew! It also carries sperm. Would you even myself up resulted after extraction."'
	 if $loc='gschool':
     dynamic $din_sekondparturok
     else
	 act 'move_away':gt $loc, $metka
	 end
exit
end
--- cumreaction ---------------------------------

# izdevat
if grupTipe[numnpc]=-1 and GorSlut<2:
	 act 'mock':
	 cls
	 grupNPC[numnpc]-=5
	 dom+=1
	 gs'stat'
	 'You mocked the school outcast feeling of a strength and support classmates.'
	 if $loc!'gdkin':dynamic $din_sekondparturok
	 if $loc='gdkin':act 'move_away':gt $loc, $metka
	 end
end
if grupTipe[numnpc]=-1 and GorSlut>=2:
	 act 'mock':
	 cls
	 sub+=1
	 gs'stat'
	 'You began to mock, but <<$npcName[numnpc]>> you said. "Mouth shut huesoska, Conch stinks." All those present began to laugh at you. You are confused and not knowing what to say, that they began to mumble.'
	 if $loc!'gdkin':dynamic $din_sekondparturok
	 if $loc='gdkin':act 'move_away':gt $loc, $metka
	 end
end
--- izdevat ---------------------------------

# kotovtalker
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Vitek Cats!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if numnpc=9 and grupNPC[numnpc]>=80 and GorSlut=0 and kotovLoveQW>=0:
     if $loc='gdkin':
         if alko<2:
         '<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something as dumb.'
         	 act 'drink beer':
			 cls
			 minut+=5
			 grupNPC[numnpc]+=5
			 alko+=2
			 salo+=1
             fat+=2
             energy+=10
			 gs'stat'
			 'Vitek poured you a beer and you have been with him drink. Vitek staring at you eye and tells you what you are cool girl.'
			 act 'move_away':gt $loc, $metka
			 end
			 
			 act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
		 exit
		 end
		 
         if alko>=2:
         '<<$npcName[numnpc]>> - Hey Svetsik, Shall We Dance.'
         act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
             act 'dance':
			 cls
			 minut+=5
			 grupNPC[numnpc]+=5
			 dance+=RAND(1,3)
			 horny+=10
			 kotovQW+=1
			 gs'stat'
			 'You went to the dance floor and started dancing with Vityok. Vitek paw you on the ass with his strong hands, are more similar to pliers.'
			     if kotovLoveQW=0:
					 if kotovQW<5 or grupTipe[25]=0:act 'move_away':gt $loc, $metka
					 if kotovQW>=5 and grupTipe[25]!0:
					 'The dance ends and Vitek took you by the hand steers you to the wall. "Slysh, Svetsik, Let`s stir up, you will type my chick. I any of you unscrewed Bosko"'
						 act 'Opt_Out':
						 cls
						 grupNPC[numnpc]=0
						 gs'stat'
						 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
						 'You refused and Vitek looks totally confused, but he was immediately covered anger. "Well!"'
						 act 'move_away':gt $loc, $metka
						 end
						 
						 act 'agree':
						 cls
						 kotovLoveQW=1
						 gs'stat'
						 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
						 'You Vitek and happy "ohuet. I myself do not believe, that you will agree with me roil."'
						 act 'move_away':gt $loc, $metka
						 end
					 end
			     end
			     if kotovLoveQW>0:
			     'The dance ends and Vitek took you by the hand removes the wall.'
			     'Vitek embraces you "Svetsik, go to my home."'
			     act 'move_away':gt $loc, $metka
			         act 'Go to Vit`ka.':
					 cls
					 minut+=15
					 gs'stat'
					 '<center><img src="qwest/alter/npc/9.jpg" ></center>'
					 'You came out of the disco and went in the direction where he lives with him Vitek, while holding his arm. Soon you with Vityok approached the dilapidated house , where lay crumpled heaps of clothes on the floor littered with empty bottles.'
					 act 'further.':gt'kotovSex'
					 end
			     end
			 end
		 
         end
     exit
     end
     '<<$npcName[numnpc]>> - Hey Svetsik, who will get. tell me, I for you any wring the neck.'
     dynamic $din_sekondparturok
exit
end
if numnpc=9 and kotovLoveQW>0 and GorSlut>0:
'Vitek nabychilsya and tells you "Slysh Svetsik, Th for garbage? We`re mutim, and then you tell me about, what do you <<$gnikname>>. The whole town is already up to date, boys with me neigh area. You ohuevshaya creature!"'
	 act 'create a scandal':
	 cls
	 grupNPC[9]=0
	 kotovLoveQW=-1
	 gs'stat'
	 'You started yelling at Vic, that he had already Jam. Vitek started yelling at you and suddenly you have a ringing in your head and you were on the floor. Standing over you Vitek. Severely burned cheek, you do not understand, what happened, but it seems he slapped you podschechinu. "All creature! Most do not come to me! We`re through!"'
	 if $loc='gschool':dynamic $din_sekondparturok
     if $loc='gdkin':act 'move_away':gt $loc, $metka
	 end
	 
	 if dom>=20:
	 	 act 'convince, that all this gossip':
		 cls
		 sub+=20
		 GorSlut=0
		 gs'stat'
		 'You have begun to convince Vic, that all this gossip, no unfounded. Vitek frowned "I `ll knock your teeth these talkers, if ever even some garbage about you hear. do not worry, I pozatykayu these yapping mouths."'
		 if $loc='gschool':dynamic $din_sekondparturok
		 if $loc='gdkin':act 'move_away':gt $loc, $metka
		 end
	 end
exit
end
 if $loc='gdkin':
	 if GorSlut<2:
		 '<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something as dumb.' 
		 
		 act 'drink beer':
		 cls
		 minut+=5
		 grupNPC[numnpc]+=5
		 alko+=1
		 salo+=1
		 fat+=2
		 energy+=10
		 gs'stat'
		 'You drank beer in the company of friends.'
		 act 'move_away':gt $loc, $metka
		 end
		 
		 
		 act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
	 end
	 if GorSlut>=2:
		 '<<$npcName[numnpc]>> - Cho priperlas, vaflersha. Huytsa want to nap or something?' 
		 
		 act 'Get_Away':grupNPC[numnpc]-=5&gt $loc, $metka
	 end
 exit
 end








--- kotovtalker ---------------------------------

# nogorslut
 if GorSlut<=0:
 bonusotnG=vnesh/2
 if bonusotnG<=0:bonusotnG=1
 grupNPC[numnpc]+=bonusotnG
 talkmarkeronce=0
	 if grupNPC[numnpc]<20 and talkmarkeronce=0:
	 talkmarkeronce=1
	 'You are chatting about any nonsense and <<$npcName[numnpc]>> listens to you on the floor of the ear.'
	 end
	 if grupNPC[numnpc]<80 and grupNPC[numnpc]>=20 and talkmarkeronce=0:
	 talkmarkeronce=2
	 'You are chatting about any nonsense and <<$npcName[numnpc]>> readily assents to you.'
	 end
	 if grupNPC[numnpc]>=80 and talkmarkeronce=0:
	 talkmarkeronce=3
	 'You are chatting about nonsense and <<$npcName[numnpc]>> with a smile communicates with you, also telling all sorts of stories.'
		 if numnpc=1:
		 Mud=totminut+60
		 !Dima steep Nosov
			 if DimaRudeQW>0 and DimaRudeBlock=0:
			 'Dima looks at you gaze detached "After high school. I `ll wait for you at the entrance."'
			 end
		 end
		 if numnpc=2:
		 !nerdy Artem Chebotarev
		 ''
		 end
		 if numnpc=3:
		 Mud=totminut+60
		 !sportik Ivan Prokhorov
			 if IvanShowerQW=1:
			 IvanShowerQW=2
			 'Ivan smiling "light, I`m sorry for what happened in the shower. Just decided to make a row, nothing."'
			 end
			 if IvanShowerQW=10:
			 IvanShowerQW=11
			 manna=0
			 Mud=0
			 'Ivan thinks "light, I would like to speak to an account of what happened in the shower. You Devchenka cool and everything was great, but I`m not ready to relations, I now need to vigorously engage in sports, that would get to the championship of Russia. I can not be distracted by girls, even such attractive as you. That_Is_Why, let`s just forget about what happened and be friends."'
			 end
		 end
		 if numnpc=4:
		 !Igor Kruglov
		 ''
		 end
		 if numnpc=5:
		 !Fedor goats
		 ''
		 end
		 if numnpc=6:
		 !Peter Klyuyev
		 ''
		 end
		 if numnpc=7:
		 !Leszek Tsarev
		 ''
		 end
		 if numnpc=8:
		 !Svyatoslav soldiers
		 ''
		 end
		 if numnpc=9:
		 !Vitek Cats
		 ''
		 end
		 if numnpc=10:
		 !Gopnik Dan Ryzhov
		 ''
		 end
		 if numnpc=11:
		 !Gopnik Bob Shulgin
		 ''
		 end
		 if numnpc=12:
		 !Julia Milov
		 ''
		 end
		 if numnpc=13:
		 !Lariska Gruzdeva
		 ''
		 end
		 if numnpc=14:
		 !Katya Meynold
		 ''
		 if KatjaOTN>0:KatjaHorny+=10&'Katya blushes and depart from your eyes.'
		 end
		 if numnpc=15:
		 !Vic Meynold
		 ''
		 end
		 if numnpc=16:
		 !Natasha Belova
		 ''
		 end
		 if numnpc=17:
		 !Inna Devyatova
		 ''
		 end
		 if numnpc=18:
		 !Christina Zvereva
			 if kristinaSex=0 and swinbeggor=0 and kristinaSex=0:
			 ''
			 end
			 if kristinaSex=0 and swinbeggor>0 and kristinaSex=0:
			 grupNPC[numnpc]=20
			 'Christina hate looking at you. "You`re already tired bitch under my feet dangle!"'
			 end
			 if kristinaSex>0:
			 ''
			 end
		 end
		 if numnpc=19:
		 !Length Starov
		 ''
		 end
		 if numnpc=20:
		 !Lena Kotova
		 ''
		 end
		 if numnpc=21:
		 !Lera Tsar
		 ''
		 end
		 if numnpc=22:
		 !Bella Artamonov
		 ''
		 end
		 if numnpc=23:
		 !Albina Barlovskaya
		 ''
		 end
		 if numnpc=24:
		 !Pauline sebagotulina
		 ''
		 end
		 if numnpc=25:
		 !Sonia Ivanko
		 ''
		 end
	 end
 end
--- nogorslut ---------------------------------

# yesgorslut
 if GorSlut>0:
	 if grupTipe[numnpc]=-1:
	 !rogue
	 bonusotnG=vnesh/2
	 if bonusotnG<=0:bonusotnG=1
	 grupNPC[numnpc]+=bonusotnG
		 if npcPol[numnpc]=0:
		 !guy
		 'You are chatting about any nonsense and <<$npcName[numnpc]>> readily assents to you.'
		 end
		 if npcPol[numnpc]>0:
		 !girl
		 'You are chatting about any nonsense and <<$npcName[numnpc]>> readily assents to you.'
		 end
	 end
	 if grupTipe[numnpc]=0:
	 !norm
		 if npcPol[numnpc]=0:
		 !guy
		 'You are trying to talk to the guy, but <<$npcName[numnpc]>> with an absent expression on his face looking at you.'
		 end
		 if npcPol[numnpc]>0:
		 !girl
		 'You are trying to talk to a girl, but <<$npcName[numnpc]>> turns away and does not want to talk to you. "Get_out! And something else think, we are friends."'
		 end
	 end
	 if grupTipe[numnpc]=1:
	 !nerdy
		 if npcPol[numnpc]=0:
		 !guy
		 'You are trying to talk to the guy, but <<$npcName[numnpc]>> you stare at boobs. And chuckles.'
		 end
		 if npcPol[numnpc]>0:
		 !girl
		 'You are trying to talk to a girl, but <<$npcName[numnpc]>> turns away and does not want to talk to you.'
		 end
	 end
	 if grupTipe[numnpc]=2:
	 !sportiki
		 if numnpc=18:
		 !Christina Zvereva
			 if kristinaSex=0 and swinbeggor=0:
			 'You are trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Get out of here <<$gnikname>>!"'
			 end
			 if kristinaSex=0 and swinbeggor>0:
			 'Christina hate looking at you. "You filthy slut has zadolbala spinning beneath my feet!"'
			 end
			 if kristinaSex>0:
			 'Christina smiles at you and says quietly "Not bad the last time we entertained, you are so sexy, just zakachaeshsya."'
			 end
		 end
		 
		 if npcPol[numnpc]=0:
		 !guy
		 'You are trying to talk to a guy, but <<$npcName[numnpc]>> shrugs off you. "I `m busy right now."'
		 end
		 if npcPol[numnpc]>0 and numnpc!18:
		 !girl
		 'You are trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Get out of here <<$gnikname>>!"'
		 end
	 end
	 if grupTipe[numnpc]=3:
	 !steep
		 if numnpc!14:
			 if npcPol[numnpc]=0:
			 !guy
			 'You are trying to talk to a guy, but <<$npcName[numnpc]>> shrugs off you. "Listen, I `m busy right now. Come back later or never."'
			 end
			 if npcPol[numnpc]>0:
			 !girl
			     if AlbFrend>=1 and numnpc=23:
			     '<<$npcName[numnpc]>> with a smile communicates with you.'
			     else
			 'You are trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Get out of here!"'
			     end
			 end
		 end
		 if numnpc=14:
		 !Katya Meynold
		 'You chat with Kate and she brings your entire conversation to the rumors about you and your reputation. Rumor_Has_It, what do you <<$gnikname>>.'
		 end
	 end
	 if grupTipe[numnpc]=4:
	 !Gopnik
		 if npcPol[numnpc]=0:
		 !guy
			 if numnpc=9:
			 !cats
			 'You are trying to talk to Vityok, but he responds to you "Slysh! Beat_It."'
			 end
			 if numnpc!9:
			 '<<$npcName[numnpc]>> laughing at you "ha ha <<$gnikname>> came. Still want huytsa?"'
			 
			 end
		 end
		 if npcPol[numnpc]>0:
		 !girl
		 '<<$npcName[numnpc]>> disgust face contorts "phew, <<$gnikname>>. Get off the creature!"'
		 end
	 end
 end
--- yesgorslut ---------------------------------

# Gnpc
!guys
GvstreBoyAfter[numnpc]=0
GvstreBoy=0
boyvstre[numnpc]+=1
gs'stat'
'<center><B><font color=maroon><<$nameBoyfrend[numnpc]>></font></B></center>'
!'<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
'<<$nameBoyfrend[numnpc]>> your boyfriend.'
if otnBoyFrend[numnpc]<20:'You have a bad attitude.'
if otnBoyFrend[numnpc]>=20 and otnBoyFrend[numnpc]<40:'You tensions.'
if otnBoyFrend[numnpc]>=40 and otnBoyFrend[numnpc]<60:'You have a normal relationship.'
if otnBoyFrend[numnpc]>=60 and otnBoyFrend[numnpc]<80:'You have a good relationship.'
if otnBoyFrend[numnpc]>=80:'You have a great relationship.'
''
''

if preg=1 and pregtime<=80 and pregTalk[numnpc]=0 and gnpcSex[numnpc]=1:
     act 'tell a guy, you have flown away.':
     cls
     gs'stat'
     'You said the guy, that become pregnant by him. He just did not come out of the eye orbits.'
         if $father=$nameBoyfrend[numnpc]:
         'The guy thought. "Listen, I`m not ready to be a father, and even marry you." He handed you 5five thousand. "money, and let us part."'
             act 'Throw a guy and take the money':
			 cls
			 dom+=5
			 pregTalk[numnpc]=1
			 otnBoyFrend[numnpc]=0
			 money+=5000
			 gs'stat'
			 'You covered the rage and you sent the guy on the dick. At still snatched the bill from him and left.'
			 act 'Get_Away':gt $loc, $metka
			 end
			 
			 act 'Throw a guy throwing him the money in the face':
			 cls
			 dom+=10
			 pregTalk[numnpc]=1
			 otnBoyFrend[numnpc]=0
			 gs'stat'
			 'You covered the rage and you sent the guy on the dick and tossed him the money in the face. And then went.'
			 act 'Get_Away':gt $loc, $metka
			 end
			 
			 
         else
         'The guy was troubled "Yes you ohuel slut! Someone held up her pussy, and now will be with me grandmother swing? Fuck you on the dick!"'
             act 'quit Man':
			 cls
			 dom+=10
			 pregTalk[numnpc]=1
			 otnBoyFrend[numnpc]=0
			 gs'stat'
			 'You covered the rage and you sent the guy on the dick. And then went.'
			 act 'Get_Away':gt $loc, $metka
			 end
         end
     
     end
end

if GboyBalabol[numnpc]=1:
     act 'Man accused, in, he yap':
     cls
     gs'stat'
     'Man accused you in, he blabbed about your relationships all around and now believe that you <<$gnikname>>'
     reaktrand=RAND(0,2)
         if reaktrand=0:
         '<<$nameBoyfrend[numnpc]>> began to apologize for it , and he blabbed all bitch. <<$nameBoyfrend[numnpc]>> solemnly promises, that more of this does not happen again.'
         end
         if reaktrand=1:
         '<<$nameBoyfrend[numnpc]>> began to soothe you, say nothing terrible happened, chat and forget.'
         end
         if reaktrand=2:
         '<<$nameBoyfrend[numnpc]>> said with a grin. Yes Relax, you are the same and there is a real <<$gnikname>>, is such that?'
         end
         
         act 'quit Man':
         cls
         dom+=10
         GboyBalabol[numnpc]=2
         otnBoyFrend[numnpc]=0
         gs'stat'
         'You covered the rage and you sent the guy on the dick. And then went.'
         act 'Get_Away':gt $loc, $metka
         end
         
         act 'just a guy':
         cls
         sub+=10
         GboyBalabol[numnpc]=2
         gs'stat'
         'You thought a bit and decided to forgive Man.'
         act 'Get_Away':gt $loc, $metka
         end
         
     end
end

act 'Walking through the square':
cls
if hapri=0:otnBoyFrend[numnpc]-=5
if hapri=1:otnBoyFrend[numnpc]+=1
if mop=2:otnBoyFrend[numnpc]+=1
if mop=3:otnBoyFrend[numnpc]+=2
if mop=4:otnBoyFrend[numnpc]-=5
if sweat>0:otnBoyFrend[numnpc]-=5
if ski>0 or glamur>0:otnBoyFrend[numnpc]+=2
minut+=15
!number of meetings
boytimes[numnpc]+=1
gs'stat'
'You walk with a guy on the square .'
	 if kotovLoveQW>0:
	 otnBoyFrend[numnpc]=0
	 'Suddenly you see is what you go to a meeting Vitek Kotov he comes to the guy and silently slap in his face. <<$nameBoyfrend[numnpc]>> falls to the ground. Vitek naklonyaetsya over it "Hey you uebok, this is my Devchenka, Once again I see you with her, bury alive in the woods, got_it?" The guy nods his head and says that he understood.'
	 act 'Get_Away':gt $loc, $metka
	 exit
	 end
gboyrand=RAND(0,1)
     if gboyrand=0:
     '<<$nameBoyfrend[numnpc]>> offered to go to the movies.'
     act 'Apologize and withdraw':otnBoyFrend[numnpc]-=5&gt $loc, $metka
         act 'Go to the movies':
         cls
         minut+=15
         gs'stat'
         'You went with a guy in a movie theater located in the park. <<$nameBoyfrend[numnpc]>> buy movie tickets. You entered together in a small cinema and found their seats.'
             act 'watch movies':
			 cls
			 manna+=100
			 minut+=100
			 otnBoyFrend[numnpc]+=5
			 gs'stat'
			 'You got a guy on a chair placed in the back row. Soon the lights dimmed and the screen began movies.'
				 if otnBoyFrend[numnpc]<80:
				 'You watched the movie a couple of hours sitting in a chair next to a guy.'
				 act 'Go to the exit':gt'Gnpc2'
				 end
				 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]=0:
				 'You began to look at the film and suddenly felt a hand on my knee Man.'
				     act 'Remove his hands':
					 cls
					 dom+=1
					 otnBoyFrend[numnpc]-=20
					 gs'stat'
					 'You have removed his hand Man with his knees and continued to watch the movie. Movie finally ended. In the hall lights went on and the screen went titles.'
					 act 'Go to the exit':gt'Gnpc2'
					 end
					 
					 act 'ignore':
					 cls
					 otnBoyFrend[numnpc]+=5
					 gs'stat'
					 'You pretended, that nothing happens and the guy started still active stroke your leg. Movie finally ended. In the hall lights went on and the screen went titles.'
					 act 'Go to the exit':gt'Gnpc2'
					 end
				 end
				 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]>0:
				 'You became watch movies, and <<$nameBoyfrend[numnpc]>> put his hand on your leg and began to stroke your knee. Movie finally ended. In the hall lights went on and the screen went titles.'
				 act 'Go to the exit':gt'Gnpc2'
				 end
			 end
         end
     end
     if gboyrand=1:
     '<<$nameBoyfrend[numnpc]>> suggested to drink beer in the park.'
     act 'Apologize and withdraw':otnBoyFrend[numnpc]-=5&gt $loc, $metka
         act 'Go for a beer':
         cls
         manna+=100
         minut+=15
         gs'stat'
         'You went with the guy to the nearest kiosk. <<$nameBoyfrend[numnpc]>> bought beer and snacks. Then you went on a bench at the far corner of the square.'
             act 'drink':
			 cls
			 manna+=100
			 minut+=30
			 alko+=2
			 fat+=2
			 salo+=1
			 energy+=10
			 otnBoyFrend[numnpc]+=5
			 gs'stat'
			 '<<$nameBoyfrend[numnpc]>> poured the beer into glasses and you began to drink beer. <<$nameBoyfrend[numnpc]>> telling different stories funny.'
			 	 if otnBoyFrend[numnpc]<80:
			 	 'You drank beer with a guy and plenty of fun.'
			 	 act 'further':gt'Gnpc2'
				 end
				 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]=0:
				 'You drank beer with a guy and plenty of fun.'
				 act 'further':gt'Gnpc2'
				 end
				 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]>0:
				 'You drank beer with a guy and plenty of fun.'
				 act 'further':gt'Gnpc2'
				 end
			 end
         end
     end
end

act 'Apologize and withdraw':otnBoyFrend[numnpc]-=5&gt $loc, $metka



--- Gnpc ---------------------------------

# Gnpc2
$din_gboy_end_to_disco={
!:markgoondisco
discofirsttime+=1
gs'stat'
gdeystboyrand=RAND(0,1)
     if gnpcSex[numnpc]=0:
		 if gdeystboyrand=0:
		 '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
		 dynamic $din_gboy_go_to_boyhome
		 act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
		 end
		 if gdeystboyrand=1:
		 '<<$nameBoyfrend[numnpc]>> offered to take you home.'
		 act 'go home':gt'gorodok'
		 end
	 end
	 if gnpcSex[numnpc]>0:
	 '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
	 dynamic $din_gboy_go_to_boyhome
	 act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	 end
	 
end

}


$din_gboy_go_to_disco={
act 'Go to the disco':
cls
minut+=120
if dance<50 and agil>=dance:dance+=1
manna+=10
gs'stat'
'<<$nameBoyfrend[numnpc]>> paid an entrance fee and you came along to the disco. Together with her boyfriend you went to the dance floor and started dancing together.'
diskoIvRand=rand(0,100)
if discofirsttime=0:diskoIvRand=0
     if diskoIvRand>=80:
     diskoIvTipeRand=rand(0,1)
         if diskoIvTipeRand=0:
         'You dance with her boyfriend, suited to you drunk kid in sweatpants and sweatshirts.'
             if GorSlut<3:
             'Gopnik pushes your guy aside and grabs you by the waist. "Shall We Dance, chikulya."'
                 act 'escape':
                 cls
                 dom+=1
                 gs'stat'
                 'You became escape from the clutches of Gopnik. <<$nameBoyfrend[numnpc]>> pushed a drunken boy . began Bazaar. Gopnik began to show your boyfriend, he bykuet.'
                 tiprand=rand(0,100)
                     if tiprand<=70:
                     '<<$nameBoyfrend[numnpc]>> managed to get out of the match winner verbally, accusing Gopnik in, that he began to pester his girlfriend. But the evening was completely ruined and <<$nameBoyfrend[numnpc]>> offered to leave the disco.'
                     act 'go home':gt'gorodok'
                     end
                      if tiprand>70 and tiprand<90:
                      otnBoyFrend[numnpc]-=20
                     'Gopnik quickly downloaded to your guy and lit it on the headstock. <<$nameBoyfrend[numnpc]>> gave all the money Gopnik and even apologized to them. whereupon <<$nameBoyfrend[numnpc]>> suggested that you spend.'
                     act 'go home':gt'gorodok'
                     end
                     
                     if tiprand>=90:
                     'Talk quickly escalated into a fight and three Gopnik began to beat your guy in the middle of the disco.'
                         act 'Watch the fight by':
                         cls
                         otnBoyFrend[numnpc]-=20
                         gs'stat'
                         '<<$nameBoyfrend[numnpc]>> could oppose three Gopnik nothing and soon fell under a barrage of punches. Gopari dragged him into the street where the seized money, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                         act 'go home':gt'gorodok'
                         end
                         
                         act 'separate fighting':
                         cls
                         gs'stat'
                             if stren<90:
                             'You tried to push Gopnik, but someone pushed you and you will fly away from the fighting a few meters from all force crashed on the floor. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                             act 'go home':gt'gorodok'
                             end
                             if stren>=90:
                             'You Gopnik pushed with all his strength . But the second Gopnik turned to you and you saw how he punches you in the face.'
                                 if agil<90:
                                 zub+=1
                                 gs'stat'
                                 'In my head rang and you understand, that lie on the floor. Severe pain in the teeth and mouth was full of brackish liquid. You spit on the floor and saw, you knocked out a tooth. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                 act 'go home':gt'gorodok'
                                 end
                                 if agil>=90:
                                 'You abruptly pulled his head to the side and a fist Gopnik cut the air near your head.'
                                     act 'Hit in the face with his fist Gopnik':
                                     cls
                                     gs'stat'
                                         if speed>=50:
                                         zub+=1
                                         gs'stat'
                                         'You hit Gopnik and hit him right on the nose. The guy yelled "Oh!" and lashed out at you. In my head rang and you understand, that lie on the floor. Severe pain in the teeth and mouth was full of brackish liquid. You spit on the floor and saw, you knocked out a tooth. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                         act 'go home':gt'gorodok'
                                         end
                                         if speed<50:
                                         'You tried to hit hooligan punched in the face, but your blow was too slow. Gopnik pushed you and you flew away from him for a few meters and with a sweep crashed on the dance floor. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                         act 'go home':gt'gorodok'
                                         end
                                     end
                                     
                                     act 'Hooligan leg kick in the head':
                                     cls
                                     gs'stat'
                                         if speed>=90:
                                         'You loaded a good kick in the face hooligan. Gopnik `s head swung heavily and he grabbed his face. "shit! fucking bitch! You broke my nose! I`ll now break all the fucking mouth, creature!" Your guy at this point punched hooligan with a broken nose and he was leaving for a couple of meters down on the dance floor. Two other goparey hanging on your guy trying to twist his hands.'
                                             act 'Grab one of Gopnik `s face':
                                             cls
                                             gs'stat'
                                             GopWin[numnpc]+=1
                                             'You have seized nails hooligan in the face and began to scratch him and tear his skin. Gopnik would break down and cry with unhooked from your guy. Embroidery guy meanwhile getting rid of one of Gopnik manages to embed the second, then again and again. Gopnik fell on the dance floor like a sack. Gopnik with scratched muzzle attacked your guy, but without success, Blood flooded his eyes and your guy punched him in the face of what Gopnik plopped down on his ass. In the meantime. "Okay bastard, Wali with his bitch! We `ll still find!"'
                                             act 'go home':gt'gorodok'
                                             end
                                         end
                                         if speed<90:
                                         'You tried to kick in the head hooligan foot but he managed to push you before you even have time to do something. You flew away from him for a few meters and with a sweep crashed on the dance floor. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                         act 'go home':gt'gorodok'
                                         end
                                     end
                                     
                                     act 'Hooligan kick in the balls':
                                     cls
                                     gs'stat'
                                         if speed>=70:
                                         bollrand=rand(0,1)
                                             if bollrand=0:
                                             'You hit the balls Gonick and he flopped down on his knees howling clamping sore hands. Two other Gopnik hanging on your guy trying to twist his hands.'
                                                 act 'Grab one of Gopnik `s face':
												 cls
												 gs'stat'
												 GopWin[numnpc]+=1
												 'You have seized nails hooligan in the face and began to scratch him and tear his skin. Gopnik would break down and cry with unhooked from your guy. Embroidery guy meanwhile getting rid of one of Gopnik manages to embed the second, then again and again. Gopnik fell on the dance floor like a sack. Gopnik with scratched muzzle attacked your guy, but without success, Blood flooded his eyes and your guy punched him in the face of what Gopnik plopped down on his ass. In the meantime. "Okay bastard, Wali with his bitch! We `ll still find!"'
												 act 'go home':gt'gorodok'
												 end
                                             end
                                             if bollrand=1:
                                             'You tried to kick between the legs hooligan but he ducked and shoved you. You flew away from him for a few meters and with a sweep crashed on the dance floor. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                             act 'go home':gt'gorodok'
                                             end
                                         end
                                         if speed<70:
                                         'You tried to kick between the legs hooligan but he ducked and shoved you. You flew away from him for a few meters and with a sweep crashed on the dance floor. Gopari meanwhile, stripped off his sneakers, and thrown into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
                                         act 'go home':gt'gorodok'
                                         end
                                     end
                                 end
                             end
                         end
                         
                         
                     end
                 end
                 
                 act 'dance':
                 cls
                 sub+=1
                 otnBoyFrend[numnpc]=0
                 DPtipe=2
                 gs'BnameGen'
                 gs'stat'
                 'You danced with Gopnik. <<$nameBoyfrend[numnpc]>> went up to him and grabbed him by the shoulder. "Slysh you! This is my Devchenka!" For your guy approached a couple of Gopnik and steel grind with him, without giving the approach you and hooligan dancing with you. soon <<$nameBoyfrend[numnpc]>> spat and send you on the dick left the disco. Gopnik suggested you plunk him.'
                 act 'go thump':gt'EvgopBuh'
                 end
             end
             if GorSlut>=3:
             otnBoyFrend[numnpc]=0
             'Gopnik looks at you and then starts laughing "Slysh, potsik. Why are you with her dance? This is Sveta <<$gnikname>>. Take her into the bushes, yes Navali in her mouth. You know how she smacked his lips sweet, when dick sucking." You flushed from the words Gopnik and confused. <<$nameBoyfrend[numnpc]>> began to run into Gopnik "What did you say? Well repeat!" By hooligan immediately approached his friends. "Slysh boy. not bykuy. Svetku for all the boys in the neighborhood know, she <<$gnikname>>." <<$nameBoyfrend[numnpc]>> looks at you with surprise. "the truth?" The boys laugh "Well." <<$nameBoyfrend[numnpc]>> beats you to hand over his face "You went on dick, slut!" whereupon <<$nameBoyfrend[numnpc]>> leaves the dance floor.'
             act 'rubbing the cheek':gt'gdkin'
             end
         end
         if diskoIvTipeRand=1:
         '<<$nameBoyfrend[numnpc]>> said, he wants a beer and asked you to go with him to drink beer.'
             act 'Refuse to dance and one':
             cls
             if dance<50 and agil>=dance:dance+=1
             minut+=3
             gs'stat'
             'Your guy went out with disco, that would buy beer and drink it, Meanwhile.'
                 if GorSlut>=3:
                 'To the guy for you "Heh. I`ve been watching as <<$gnikname>> Light fun with a guy. He still does not know who you are? Can I tell him?"'
                     act 'Send it':
                     cls
                     dom+=1
                     otnBoyFrend[numnpc]=0
                     gs'stat'
                     'You will send the guy to go to hell and he`s not a good smile stepped aside. At this point <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "wanted to dance, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while you went <<$nameBoyfrend[numnpc]>> and said "I`ll throw. It turns out you`re a real whore! I`m out of the garbage found, that would waste their time on such a whore!"'
                     act 'move_away':gt'gdkin'
                     end
                     
                     act 'Ask him not to tell':
                     cls
                     sub+=1
                     gs'stat'
                     'You have been asking for a Man does not say anything, his young man. he grinned. "Well, then so be it, do not tell."'
                         act 'Send it':
						 cls
						 dom+=1
						 otnBoyFrend[numnpc]=0
						 gs'stat'
						 'You will send the guy to go to hell and he`s not a good smile stepped aside. At this point <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "wanted to dance, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while you went <<$nameBoyfrend[numnpc]>> and said "I`ll throw. It turns out you`re a real whore! I`m out of the garbage found, that would waste their time on such a whore!"'
						 act 'move_away':gt'gdkin'
						 end
						 
						 act 'agree':
						 cls
						 sub+=1
						 gs'stat'
						 'You agreed and the guy told you, go to the toilet. You will immediately depressed. Toilet in the club was something like a thoroughfare, someone out there smoking, someone defecate, in a stall door was not half. The guy took you to the men`s room. When you opened the door there, we saw, that some drunk guys standing in the doorway smoking. In one of the booths heard as someone pukes. Guys with puzzled look on you "Babe, You do not mistake? This men`s toilet." The guy who brought you smile "She`s with me." He turned his head to you "Well huesoska. Take it in your mouth." You looked at the guys and asked "That right there or something?" The guys laughed "C`mon. What do you smuschaeshsya?"'
						     act 'Send it':
							 cls
							 dom+=1
							 otnBoyFrend[numnpc]=0
							 gs'stat'
							 'You will send the guy to go to hell and he`s not a good smile stepped aside. At this point <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "wanted to dance, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while you went <<$nameBoyfrend[numnpc]>> and said "I`ll throw. It turns out you`re a real whore! I`m out of the garbage found, that would waste their time on such a whore!"'
							 act 'move_away':gt'gdkin'
							 end
							 
							 act 'suck':
							 cls
							 sub+=5
							 guy+=1
							 bj+=1
							 cumlip+=1
							 swallow+=1
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/public.jpg" ></center>'
							 'You sat on his haunches guy unbuttoned his pants and pulled out his standing member. Other boys were smoked and watched the scene. You have opened my mouth and licked burgundy penis, then cupped her own <<$liptalk>> and took the cock in her mouth. The guys started laughing then komentirovat, what they see "See how vaflersha smacked his lips." another echoed "Where you just found a huesoska" Even someone recognized you "So it`s Sveta Lebedev. She damn down and out." You blushed and burned with shame sucking dick in front of the other guys. Finally the guy started to cum in your mouth and you tried as quickly as possible to swallow cum. Finally cock went limp and he tucked in his pants. You get up off the floor and began to wipe his mouth, feeling like out of your mouth smells like sperm. One of the boys giggled "Hey star blowjob, suck and I."'
							     act 'Slip out of the closet':
							     cls
							     gs'stat' 
							     'You are trying to ignore the guys, slipped out of the toilet back to the dance floor. <<$nameBoyfrend[numnpc]>> already looking for you, he came to you and asked "Where are you gone? I`m looking for you everywhere here." You sovreali first, that came to mind "Went to the toilet." <<$nameBoyfrend[numnpc]>> asked "A mouth, that wipes?"'
							         act 'suggest to leave':
									 cls
									 gs'stat' 
									 'You offered her boyfriend to leave the disco. <<$nameBoyfrend[numnpc]>> shrugged and you went to the output.'
									     act 'Get_Away':
									     cls
									     dynamic $din_gboy_end_to_disco
									     end
									 end
									 
									 act 'dance':
									 cls
									 otnBoyFrend[numnpc]=0
									 gs'stat' 
									 'You continued to dance with her boyfriend and suddenly saw how out of the toilet guys who witnessed, how are you doing blowjob. They also see you and guffawed, something noisily discussing. <<$nameBoyfrend[numnpc]>> puzzled look on them, "What are they?" The boys shouted to him, "until you wandered somewhere, your teen in the men`s toilet sucks dicks!" <<$nameBoyfrend[numnpc]>> approached them "You bazaar?" The boys began to tell him how you just suck dick in front of them. <<$nameBoyfrend[numnpc]>> came up to you and slapped you podschechinu "Uebyvay slut! And so I did not see you anymore!"'
									 act 'move_away':gt'gdkin'
									 end
							     end
							 end
						 end
                     end
                 end
                 if GorSlut<3:
                 'As long as your boyfriend went for a beer to you approached what is not familiar guy and began to dance with you.'
					 act 'dance':
					 cls
					 otnBoyFrend[numnpc]-=20
					 gs'stat' 
					 'You danced with the unfamiliar man and at this moment entered the hall <<$nameBoyfrend[numnpc]>> He came up to you and pulled you by the hand to pull from another guy. "You do something ohrenela? can not move, and you have already found someone!" He was offended at you and walked away from the disco.'
					 act 'move_away':gt'gdkin'
					 end
					 
					 act 'Refuse to dance with a stranger':
					 cls
					 otnBoyFrend[numnpc]+=5
					 gs'stat' 
					 'You refused to dance with a stranger and noticed that <<$nameBoyfrend[numnpc]>> come back to the club. You have a little dance with her boyfriend and he offered to leave.'
						 act 'Get_Away':
						 cls
						 dynamic $din_gboy_end_to_disco
						 end
					 end
                 end
             end
             
             act 'Go Man and drink beer':
             cls
             alko+=2
             minut+=3
             horny+=5
             gs'stat'
             'You came out of the disco and found a secluded place where he started to drink beer with her boyfriend.'
				 act 'Get_Away':
				 cls
				 dynamic $din_gboy_end_to_disco
				 end
				 
				 act 'kiss':
				 cls
				 minut+=5
				 kissBoyFrend[numnpc]+=1
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
				 '<<$nameBoyfrend[numnpc]>> gently hugged you and started to kiss your lips.'
				     if gnpcSex[numnpc]>0:
				     '<<$nameBoyfrend[numnpc]>> whispered in your ear, "Svetsik, can go do something right here?"'
				         act 'jerk guy':
						 cls
						 minut+=5
						 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
						 dick=dickBoyFrend[numnpc]
						 hj+=1
						 hja+=1
						 sub+=1
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
						 'You got it hard and hot cock out of his pants and took his hand. You started kissing Man, while masturbate his penis. Finally the guy strangled groan and you will see how a member of his sperm flies.'
						     act 'further':
						     cls
                             dynamic $din_gboy_end_to_disco
                             end
						 end
						 
						 act 'Take by mouth':
						 cls
						 minut+=5
						 horny+=10
						 bj+=1
						 bja+=1
						 dick=dickBoyFrend[numnpc]
						 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
							 if GorSlut<2:
							 resultrand=RAND(0,100)
								 if resultrand>=100:
								 GorSlut=2
								 GboyBalabol[numnpc]=1
								 end
							 end
						 sub+=1
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/cocksucker.jpg" ></center>'
						 'You sit down in front of a guy and brought his face to his cock.'
						 dynamic $dinrandbj
						 'soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I `ll finish."'
							 act 'suck on':
							 cls
							 minut+=5
							 horny+=10
							 cumlip+=1
							 swallow+=1
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/cocksuckerSwallow.jpg" ></center>'
							 dynamic $dinrandswallow
								 act 'further':
								 cls
								 dynamic $din_gboy_end_to_disco
								 end
							 end
							 
							 act 'Remove the mouth':
							 cls
							 minut+=5
							 horny+=10
							 cumface+=1
							 facial+=1
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/cocksuckerFacial.jpg" ></center>'
							 'You took out his dick and then hit you in the face jet of hot cum, then another and another .'
								 act 'further':
								 cls
								 dynamic $din_gboy_end_to_disco
								 end
							 end
						 end
						 
						 
				     end
				     if gnpcSex[numnpc]=0:
				     'Did you feel like your guy hands caress your breasts.'
				     	 act 'terminate':
						 cls
						 dynamic $din_gboy_end_to_disco
						 end
						 
						 act 'let him':
						 cls
						 horny+=10
						 minut+=3
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/tits.jpg" ></center>'
						 '<<$nameBoyfrend[numnpc]>> pulls your chest <<tits>> size outside and begins to knead your breasts and kiss them. The guy takes your hand and puts it on the groin, you feel that he`s got a hard cock.'
							 act 'Fondle his penis through his pants':
							 cls
							 horny+=5
							 minut+=3
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/cock.jpg" ></center>'
							 'You started stroking a guy crotch, feeling the firmness of his risen member through matter.'
								 if horny<80:
									 act 'remove hands':
									 cls
									 minut+=5
									 otnBoyFrend[numnpc]-=10
									 dom+=1
									 gs'stat'
									 'You have removed his hands from his chest guy and he lost his head, not knowing what to do.'
										 act 'further':
										 cls
										 dynamic $din_gboy_end_to_disco
										 end
									 end
								 end
						 
								 act 'Climb to the guy in pants':
								 cls
								 horny+=10
								 minut+=3
								 gs'stat'
								 '<center><img src="qwest/alter/Ev/cock2.jpg" ></center>'
								 'You put his hand to the guy `s pants and felt his fingers and his hard hot cock.'
									 if dom>0:
										 act 'jerk guy':
										 cls
										 minut+=5
										 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
										 dick=dickBoyFrend[numnpc]
										 hj+=1
										 hja+=1
										 sub+=1
										 gs'stat'
										 '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
										 'You got it hard and hot cock out of his pants and took his hand. You started kissing Man, while masturbate his penis. Finally the guy strangled groan and you will see how a member of his sperm flies.'
											 act 'further':
											 cls
											 dynamic $din_gboy_end_to_disco
											 end
										 end
									 end
									 
									 act 'Take by mouth':
									 cls
									 minut+=5
									 horny+=10
									 bj+=1
									 bja+=1
									 dick=dickBoyFrend[numnpc]
									 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
										 if GorSlut<2:
										 resultrand=RAND(0,100)
											 if resultrand>=100:
											 GorSlut=2
											 GboyBalabol[numnpc]=1
											 end
										 end
									 sub+=1
									 gs'stat'
									 '<center><img src="qwest/alter/Ev/cocksucker.jpg" ></center>'
									 'You sit down in front of a guy and brought his face to his cock.'
									 dynamic $dinrandbj
									 'soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I `ll finish."'
										 act 'suck on':
										 cls
										 minut+=5
										 horny+=10
										 cumlip+=1
										 swallow+=1
										 gs'stat'
										 '<center><img src="qwest/alter/Ev/cocksuckerSwallow.jpg" ></center>'
										 dynamic $dinrandswallow
											 act 'further':
											 cls
											 dynamic $din_gboy_end_to_disco
											 end
										 end
										 
										 act 'Remove the mouth':
										 cls
										 minut+=5
										 horny+=10
										 cumface+=1
										 facial+=1
										 gs'stat'
										 '<center><img src="qwest/alter/Ev/cocksuckerFacial.jpg" ></center>'
										 'You took out his dick and then hit you in the face jet of hot cum, then another and another .'
											 act 'further':
											 cls
											 dynamic $din_gboy_end_to_disco
											 end
										 end
									 end
								 end
							 end
							 
							 
							 if horny<=90:
								 act 'resist':
								 cls
								 horny+=10
								 minut+=3
								 gs'stat'
								 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
								 'You have removed his hand from his pants and the guy stuck his hand in your pants, You felt his fingers caress your wet pussy.'
									 if horny<70:
										 act 'Remove his hand':
										 cls
										 minut+=5
										 otnBoyFrend[numnpc]-=10
										 dom+=1
										 gs'stat'
										 'You have removed his hands from the guy himself and he lost his head, not knowing what to do.'
											 act 'further':
											 cls
											 dynamic $din_gboy_end_to_disco
											 end
										 end
									 end
									 
									 act 'enjoy':
									 cls
									 minut+=5
									 sub+=1
									 horny+=10
									 gs'stat'
									 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
									 'You stop resisting and just relaxed feeling of pleasant warmth, as a guy caresses your pussy. <<$nameBoyfrend[numnpc]>> began to undress you and soon you were naked.'
										 act 'surrender':
										 cls
										 minut+=5
										 horny+=10
										 sexa+=1
										 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
										 $boy=$nameBoyfrend[numnpc]
										 dick=dickBoyFrend[numnpc]
										 silavag=silavagBoyFrend[numnpc]
											 if GorSlut=0:
											 resultrand=RAND(0,100)
												 if resultrand>=100:
												 GorSlut=1
												 GboyBalabol[numnpc]=1
												 end
											 end
										 gs'stat'
										 '<center><img src="picV/vag.jpg" ></center>'
										 'The guy quickly took off his clothes and lay down on you from above.'
										 dynamic $sexstart
										 dynamic $sexstart2
										 dynamic $sexcum
											 act 'further':
											 cls
											 dynamic $din_gboy_end_to_disco
											 end
										 end
										 
										 if dom>0 or anal>0:
											 act 'substitute the ass':
											 cls
											 minut+=30
											 cumanus+=1
											 anala+=1
											 $boy=$nameBoyfrend[numnpc]
					                         dick=dickBoyFrend[numnpc]
				                             silavag=silavagBoyFrend[numnpc]
											 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
												 if GorSlut=0:
												 resultrand=RAND(0,100)
													 if resultrand>=100:
													 GorSlut=1
													 GboyBalabol[numnpc]=1
													 end
												 end
											 gs'stat'
											 '<center><img src="qwest/alter/Ev/anal.jpg" ></center>'
											 dynamic $sexstart
											 dynamic $analsex
											 'Finally the guy dies and you feel like something warm fills your ass.'
												 act 'further':
												 cls
												 dynamic $din_gboy_end_to_disco
												 end
											 end
										 end
										 
										 
									 end
								 end
							 end
							 
							 
							 
						 end
				     end
				 end
             end
         end
         if diskoIvTipeRand=2:
         ''
         end
         if diskoIvTipeRand=3:
         ''
         end
     exit
     end

if kissBoyFrend[numnpc]>0:
''
end
if kissBoyFrend[numnpc]=0:
''
end

dynamic $din_gboy_end_to_disco
end


}
$din_gboy_tits={
'<<$nameBoyfrend[numnpc]>> began to get your breasts <<tits>> the size of a garment.'
	 act 'let him':
	 cls
	 horny+=10
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/tits.jpg" ></center>'
	 '<<$nameBoyfrend[numnpc]>> pulls your chest <<tits>> size outside and begins to knead your breasts and kiss them. The guy takes your hand and puts it on the groin, you feel that he`s got a hard cock.'
		 act 'Fondle his penis through his pants':
		 cls
		 horny+=5
		 minut+=3
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/cock.jpg" ></center>'
		 'You started stroking a guy crotch, feeling the firmness of his risen member through matter.'
		 	 if horny<80:
				 act 'remove hands':
				 cls
				 minut+=5
				 otnBoyFrend[numnpc]-=10
				 dom+=1
				 gs'stat'
				 'You have removed his hands from his chest guy and he lost his head, not knowing what to do.'
				 act 'go home':gt'gorodok'
				 end
			 end
	 
			 act 'Climb to the guy in pants':
			 cls
			 horny+=10
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/cock2.jpg" ></center>'
			 'You put his hand to the guy `s pants and felt his fingers and his hard hot cock.'
				 if dom>0:
					 act 'jerk guy':
					 cls
					 minut+=5
					 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
					 dick=dickBoyFrend[numnpc]
					 hj+=1
					 hja+=1
					 sub+=1
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
					 'You got it hard and hot cock out of his pants and took his hand. You started kissing Man, while masturbate his penis. Finally the guy strangled groan and you will see how a member of his sperm flies.'
					 act 'go home':gt'gorodok'
					 end
				 end
				 
				 act 'Take by mouth':
				 cls
				 minut+=5
				 horny+=10
				 bj+=1
				 bja+=1
				 dick=dickBoyFrend[numnpc]
				 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
					 if GorSlut<2:
					 resultrand=RAND(0,100)
						 if resultrand>=100:
						 GorSlut=2
						 GboyBalabol[numnpc]=1
						 end
					 end
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/cocksucker.jpg" ></center>'
				 'You sit down in front of a guy and brought his face to his cock.'
				 dynamic $dinrandbj
				 'soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I `ll finish."'
				 	 act 'suck on':
					 cls
					 minut+=5
					 horny+=10
					 cumlip+=1
					 swallow+=1
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/cocksuckerSwallow.jpg" ></center>'
					 dynamic $dinrandswallow
					 act 'go home':gt'gorodok'
					 end
					 
					 act 'Remove the mouth':
					 cls
					 minut+=5
					 horny+=10
					 cumface+=1
					 facial+=1
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/cocksuckerFacial.jpg" ></center>'
					 'You took out his dick and then hit you in the face jet of hot cum, then another and another .'
					 act 'go home':gt'gorodok'
					 end
					 
					 act 'surrender':
					 cls
					 minut+=5
					 horny+=10
					 sexa+=1
					 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
					 $boy=$nameBoyfrend[numnpc]
					 dick=dickBoyFrend[numnpc]
				     silavag=silavagBoyFrend[numnpc]
						 if GorSlut=0:
						 resultrand=RAND(0,100)
							 if resultrand>=100:
							 GorSlut=1
							 GboyBalabol[numnpc]=1
							 end
						 end
					 gs'stat'
					 '<center><img src="picV/vag.jpg" ></center>'
					 'The guy quickly took off his clothes and lay down on you from above.'
					 dynamic $sexstart
					 dynamic $sexstart2
					 dynamic $sexcum
					 act 'go home':gt'gorodok'
					 end
					 
					 if dom>0 or anal>0:
					 	 act 'substitute the ass':
						 cls
						 minut+=30
						 cumanus+=1
						 anala+=1
						 $boy=$nameBoyfrend[numnpc]
					     dick=dickBoyFrend[numnpc]
				         silavag=silavagBoyFrend[numnpc]
						 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
						 	 if GorSlut=0:
							 resultrand=RAND(0,100)
								 if resultrand>=100:
								 GorSlut=1
								 GboyBalabol[numnpc]=1
								 end
							 end
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/anal.jpg" ></center>'
						 dynamic $sexstart
						 dynamic $analsex
						 'Finally the guy dies and you feel like something warm fills your ass.'
						 act'Get_Away.':gt'gorodok'
						 end
					 end
				 end
			 end
		 end
		 
		 if horny<=90:
			 act 'resist':
			 cls
			 horny+=10
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
			 'You have removed his hand from his pants and the guy stuck his hand in your pants, You felt his fingers caress your wet pussy.'
			 	 if horny<70:
					 act 'Remove his hand':
					 cls
					 minut+=5
					 otnBoyFrend[numnpc]-=10
					 dom+=1
					 gs'stat'
					 'You have removed his hands from the guy himself and he lost his head, not knowing what to do.'
					 act 'go home':gt'gorodok'
					 end
				 end
				 
				 act 'enjoy':
				 cls
				 minut+=5
				 sub+=1
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
				 'You stop resisting and just relaxed feeling of pleasant warmth, as a guy caresses your pussy. <<$nameBoyfrend[numnpc]>> began to undress you and soon you were naked.'
					 act 'surrender':
					 cls
					 minut+=5
					 horny+=10
					 sexa+=1
					 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
					 $boy=$nameBoyfrend[numnpc]
					 dick=dickBoyFrend[numnpc]
				     silavag=silavagBoyFrend[numnpc]
						 if GorSlut=0:
						 resultrand=RAND(0,100)
							 if resultrand>=100:
							 GorSlut=1
							 GboyBalabol[numnpc]=1
							 end
						 end
					 gs'stat'
					 '<center><img src="picV/vag.jpg" ></center>'
					 'The guy quickly took off his clothes and lay down on you from above.'
					 dynamic $sexstart
					 dynamic $sexstart2
					 dynamic $sexcum
					 act 'go home':gt'gorodok'
					 end
					 
					 if dom>0 or anal>0:
					 	 act 'substitute the ass':
						 cls
						 minut+=30
						 cumanus+=1
						 anala+=1
						 $boy=$nameBoyfrend[numnpc]
					     dick=dickBoyFrend[numnpc]
				         silavag=silavagBoyFrend[numnpc]
						 if gnpcSex[numnpc]=0:gnpcSex[numnpc]=1&guy+=1
						 	 if GorSlut=0:
							 resultrand=RAND(0,100)
								 if resultrand>=100:
								 GorSlut=1
								 GboyBalabol[numnpc]=1
								 end
							 end
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/anal.jpg" ></center>'
						 dynamic $sexstart
						 dynamic $analsex
						 'Finally the guy dies and you feel like something warm fills your ass.'
						 act'Get_Away.':gt'gorodok'
						 end
					 end
					 
					 
				 end
			 end
		 end
	 end
	 
	 if horny<90:
	 	 act 'Remove his hand':
		 cls
		 minut+=5
		 otnBoyFrend[numnpc]-=10
		 dom+=1
		 gs'stat'
		 'You have removed his hands from his chest guy and he lost his head, not knowing what to do.'
		 act 'go home':gt'gorodok'
		 end
	 end
}
$din_gboy_kiss={
act 'kiss':
cls
minut+=5
kissBoyFrend[numnpc]+=1
horny+=10
gs'stat'
'<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
'You turned your head to the guy and your lips met. <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body and kiss you.'
dynamic $din_gboy_tits
end
}
$din_gboy_knee={
if horny<75 or dom>0:
	 act 'Remove his hand':
	 cls
	 minut+=5
	 otnBoyFrend[numnpc]-=10
	 if dom>0 and horny>=75:dom-=1
	 if horny<75:dom+=1
	 gs'stat'
	 'You removed the hand guy and he lost his head, not knowing what to do.'
	 act 'go home':gt'gorodok'
	 end
end

act 'pretend, that nothing happens':
cls
minut+=5
gs'stat'
'<center><img src="qwest/alter/groped.jpg" ></center>'
'You pretended, that nothing is happening and <<$nameBoyfrend[numnpc]>> do not hesitate vengeance fumbled with his hands on your feet. <<$nameBoyfrend[numnpc]>> tilted towards your face trying to kiss you.'
dynamic $din_gboy_kiss
	 if horny<75 or dom>5:
		 act 'Remove his hand':
		 cls
		 minut+=5
		 otnBoyFrend[numnpc]-=10
		 if dom>0 and horny>=75:dom-=5
		 if horny<75:dom+=5
		 gs'stat'
		 'You removed the hand guy and he lost his head, not knowing what to do.'
		 act 'go home':gt'gorodok'
		 end
	 end
end

if dom>0 or horny>=75:
	 act 'kiss Man':
	 cls
	 minut+=5
	 dom+=1
	 kissBoyFrend[numnpc]+=1
	 horny+=10
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
	 'You turned your head to the guy and leaned his face. Then you kissed and <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body.'
	 dynamic $din_gboy_tits
	 end
end
}
$din_gboy_go_to_boyhome={
act 'Go-to guy home':
cls
minut+=15
gs'stat'
boyhouserand=rand(0,2)
'<<$nameBoyfrend[numnpc]>> led you to your home. You come to a small two-story house, in which there were several apartments and <<$nameBoyfrend[numnpc]>> guide you to your apartment. He opened the door with the key and let you.'
     if boyhouserand=0:
     'House guy was nobody and he suggested you go to the gym and see Vidic.'
         act 'See Vidic':
         cls
         minut+=30
         gs'stat'
         'You have settled on comfortably on the couch and <<$nameBoyfrend[numnpc]>> rummaging in the drawers put one of them in the video player and turn it sat next to you.'
         boyvideorand=rand(0,3)
             if boyvideorand=0:
             'When did the movie you saw, it porn. The main characters do not have time to exchange a few sentences and the girl was already naked and kneeling in front of a guy with his cock in her mouth.'
                 act 'watch porn':
				 cls
				 minut+=30
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/alter/groped.jpg" ></center>'
				 'You have become with a guy watching porn and what is happening gradually began to excite you. You feel like <<$nameBoyfrend[numnpc]>> put his hand on your knee and began to stroke.'
				 dynamic $din_gboy_knee
				 end
				 
				 act 'create a scandal':
				 cls
				 minut+=30
				 dom+=1
				 otnBoyFrend[numnpc]-=20
				 gs'stat'
				 'You get up off the couch and a scandal guy claiming, so that you do not and it you need only one. <<$nameBoyfrend[numnpc]>> embarrassed and blushing began bubnet apology.'
				 act 'go home':gt'gorodok'
				 end
             end
             if boyvideorand>0:
             'Started Hollywood thriller in which the protagonist to destroy everything around him at the same time managed to not even scratched. In the film, after which the hero on his knees near the body screamed NO!!! in the rain. Finally got to the hero and the villain after a difficult battle killed them, the film ended as expected explosion in the background from which the hero escaped.'
             boyprirand=rand(0,2)
                 if boyprirand=0:
                 'You felt like you lay Man hand on his knee and began to stroke.'
                 dynamic $din_gboy_knee 
                 	 if horny<75 or dom>5:
						 act 'Remove his hand':
						 cls
						 minut+=5
						 otnBoyFrend[numnpc]-=10
						 if dom>0 and horny>=75:dom-=5
						 if horny<75:dom+=5
						 gs'stat'
						 'You removed the hand guy and he lost his head, not knowing what to do.'
						 act 'go home':gt'gorodok'
						 end
					 end
                 else
                  act 'go home':gt'gorodok'
                     if dom>0 or horny>=75:
						 act 'kiss Man':
						 cls
						 minut+=5
						 dom+=1
						 gs'stat'
						 'You turned your head to the guy and leaned his face. Then you kissed and <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body.'
						 dynamic $din_gboy_tits
						 end
					end
                 end
             end
         end
     end
     if boyhouserand=1:
     '<center><img src="qwest/alter/groped.jpg" ></center>'
     'House guy was nobody and he suggested you to go to his room. In his room.'
     dynamic $din_gboy_knee
     end
     if boyhouserand=2:
     '<center><img src="qwest/alter/groped.jpg" ></center>'
     'Houses guy turned out to be parents and he quickly walks you to your room. In his room.'
     dynamic $din_gboy_knee
     end
!act 'go home':gt'gorodok'
end

}

gs'stat'
'<center><B><font color=maroon><<$nameBoyfrend[numnpc]>></font></B></center>'
!'<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
'<<$nameBoyfrend[numnpc]>> your boyfriend.'
if otnBoyFrend[numnpc]<20:'You have a bad attitude.'
if otnBoyFrend[numnpc]>=20 and otnBoyFrend[numnpc]<40:'You tensions.'
if otnBoyFrend[numnpc]>=40 and otnBoyFrend[numnpc]<60:'You have a normal relationship.'
if otnBoyFrend[numnpc]>=60 and otnBoyFrend[numnpc]<80:'You have a good relationship.'
if otnBoyFrend[numnpc]>=80:'You have a great relationship.'
''
''

if hour<20:
	 if otnBoyFrend[numnpc]<80:
	 '<<$nameBoyfrend[numnpc]>> offered to take you home.'
	 act 'go home':gt'gorodok'
	 end
	 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]=0:
	 gdeystboyrand=RAND(0,1)
	     if gdeystboyrand=0:
	     '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
	     dynamic $din_gboy_go_to_boyhome
	     act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	     end
	     if gdeystboyrand=1:
	     '<<$nameBoyfrend[numnpc]>> offered to take you home.'
	     act 'go home':gt'gorodok'
	     end
	 
	 end
	 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]>0:
	 '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
	 dynamic $din_gboy_go_to_boyhome
	 act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	 end
end
if hour>=20 and hour<23:
	 if otnBoyFrend[numnpc]<80:
	 '<<$nameBoyfrend[numnpc]>> offered to take you home.'
	 act 'go home':gt'gorodok'
	 end
	 
	 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]=0:
	 tipgbrand=rand(0,1)
	     if tipgbrand=0:
	     '<<$nameBoyfrend[numnpc]>> offered to go to the disco.'
	     dynamic $din_gboy_go_to_disco
	     act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	     end
	     
	     if tipgbrand=1:
	     '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
	     dynamic $din_gboy_go_to_boyhome
	     act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	     end
	 end
	 
	 if otnBoyFrend[numnpc]>=80 and gnpcSex[numnpc]>0:
	 gdeystboyrand=RAND(0,1)
	     if gdeystboyrand=0:
	     '<<$nameBoyfrend[numnpc]>> offered to go to his home.'
	     dynamic $din_gboy_go_to_boyhome
	     act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	     end
	     
	     if gdeystboyrand=1:
	     '<<$nameBoyfrend[numnpc]>> offered to go to the disco.'
	     dynamic $din_gboy_go_to_disco
	     act 'And refuse to go home':otnBoyFrend[numnpc]-=10&gt'gorodok'
	     end
	 
	 end
end
if hour>=23:
	 '<<$nameBoyfrend[numnpc]>> offered to take you home.'
	 act 'go home':gt'gorodok'
end













--- Gnpc2 ---------------------------------

# Sgrup1
gs'stat'
'botany'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=1:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup1 ---------------------------------

# Sgrup2
gs'stat'
'Sportiki'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=2:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup2 ---------------------------------

# Sgrup3
gs'stat'
'steep'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=3:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup3 ---------------------------------

# Sgrup4
gs'stat'
'Gopnik'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=4:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup4 ---------------------------------

# Sgrup5
gs'stat'
'outcasts'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=-1:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup5 ---------------------------------

# Sgrup
gs'stat'
'single'
$textgrup=''
i=0
:markgruploop
i+=1
if grupTipe[i]=0:$textgrup+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'<<$textgrup>>'


dynamic $din_sekondparturok



















--- Sgrup ---------------------------------

# SgrupDisco
gs'stat'
$textgrup=''
$textgrup2=''
i=0
:markgruploop
i+=1
if grupTipe[i]=3:$textgrup+='
'+$npcGo[i]
if grupTipe[i]=4:$textgrup2+='
'+$npcGo[i]
if i<26:jump'markgruploop'


'Dancing on the dance floor
<<$textgrup>>'

'In one corner stand
<<$textgrup2>>'








act 'move_away':gt $loc, $metka
--- SgrupDisco ---------------------------------

# dimaRudeEv
dimarudeday=day
gs'stat'
'<center><B><font color=maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
'<center><img src="qwest/alter/npc/1.jpg" ></center>'
if dimarudorient=0:
'Dima seeing you turned and said quietly "what, go to my, fun_too."'
if fedorKozlovQW>=10:
'To you and Dima suitable Fedor. "Sveta, well, let`s_go?" Dima looked at Fedor "Fed, What you need to? This is my Devchenka." Fyodor frowned "What zanchit your dvechenka? It occurs to me." Dima grinned "So let`s ask her the most, with whom she meets?"'
     act 'Sorry Fyodor, I meet with Dima':
     cls
     minut+=15
     fedorKozlovQW=-1
     gs'stat'
     'You chose Dima and Fedor disappointed shrugged and walked away.'
     'You went to the house of Dima. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden.'
     act 'Go into the room Dima':dimarudorient=1&gt $curloc
     end
     
     act 'Sorry Dima, but I`ll throw':
     cls
     minut+=15
     gs'stat'
     'You have decided to choose Fedor. At that Dima disgusting grinned and turned to the Fed said "Fed, what for you need this huesoska? I personally met her just because she sucks fucking." Fedka nabychilsya "What are you talkin `about, uebok?"'
         if dimaFilm=1:
         fedorKozlovQW=-1
         GorSlut=2
         'Dima said Fedor looked evil in the eye "And if I have proof, she huesoska? What do you say when." Fedor little embarrassed but said firmly "This can not be!" Dima grinned, "can not? Look here." Dima took out his phone and turned on the video. You blushed as cancer, understanding, that for the video Dima included Fedor. The video clearly be seen, as you have inserted the ring in his mouth and a hard cock enters your mouth getting into the throat. Do you drooling and tears, but you will not resist and readily inserts his mouth. Fedor turned red and looked at you "Oh!" He turned away from you. Dima glared at you "I decided to quit huesoska? Dick in your mouth, I`ll throw it. And today, everyone will know, you imagine yourself." Dima laughed and walked away from you.'
         act 'Get_Away':gt'gorodok'
         end
         if dimaFilm=0:
         'Dima said "Yes." Fedka even stronger nabychilsya and walked right up to the Dime "Well ka yet again, what did you say?" Dima visibly frightened "Yes it`s true, I have it near the disco sucked." Fyodor strongly pushed Dima, Dima flew from him and began to speak inconsistent "Get off me! Want to meet her, come_on." Fyodor came to Dima and grabbed him by the shirt "Once again hear, that you are of the Light, You talk all garbage, sorry." Dimo fidgeted nervously trying to escape from the grip of steel Fedor "C`mon, calm_down, I understood everything." Fyodor Dima pushed and pulled you aside.'
         act 'Go with Fedor':DimaRudeBlock=1&gt 'FedorEv'
         end
     
     end
exit
end
     act 'Go to the Dime':
     cls
     minut+=15
     gs'stat'
     'You went to the house of Dima. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden.'
     act 'Go into the room Dima':dimarudorient=1&gt $curloc
     end
     
     act 'Get_Away':gt'gschool'
end
if dimarudorient=1:
'Dima closed the door of his room at the castle and turned to you "Undress."'
     act 'undress':
     if dimaFilm=0:dimarudorient=2
     if dimaFilm=1:dimarudorient=3
     gt $curloc
     end
end
if dimarudorient=2:
'Dima indifferent grin looked at your naked body and went to the table. Have you seen, that he included a small camera and picked it up. He sat on the couch and pointing the camera at you said "If otsosesh front of the camera, then I will not tell anyone how to fuck you in the mouth at the disco."'
     act 'dress':
     cls
     minut+=5
     if GorSlut<2:GorSlut=2
     gs'stat'
     'You grabbed the clothes and trying to hide her face from the camera started to dress as soon as possible. Dima continued to shoot it all on camera.'
         act 'escape':
         cls
         minut+=15
         DimaRudeBlock=1
         gs'stat'
         'You opened the door and went to the door of the house. Following heard a voice Dima "fire_away, run a pig. Tomorrow everyone will know, you huesoska."'
         act 'Get_Away':gt'gorodok'
         end
     end
     
     act 'Suck on camera':
     cls
     minut+=15
     bj+=1
     cumlip+=1
     swallow+=1
     dimaFilm=1
     sub+=5
     gs'stat'
     '<center><img src="qwest/alter/evdima/filming.jpg" ></center>'
     'You sit in front of Dima and began sucking his cock. Dima intently filming you for your camera. His cock quickly grew stronger and soon cum spurted into your mouth. You diligently swallowing front of the camera. Dima turned off the camera and put it aside. "awesome. You`re a great huesoska."'
     act 'Get_Away':gt'gorodok'
     end
end
if dimarudorient=3:
'Dima indifferent grin examined your body. He walked over to the closet and rummaged in it taking out some things. He came up to you and roughly wrapped your hands behind your back. There was a click is handcuffs and you feel the cold steel on his wrists. He came up to you from behind and shoved in your mouth ring to which prikrepeleny belts, then he buckled the belt behind your head'
     act 'further':
     cls
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/evdima/ogag.jpg" ></center>'
     'Your mouth is widely opened with rings, Dima seems a little blurry ring located in your mouth lemon juice and now you saliva flowing from the mouth of the creek . Dima little to admire you and your iron sole person got dick.'
         act 'further':
		 cls
		 minut+=5
		 bj+=1
		 cumlip+=1
		 swallow+=1
		 throat+=1
		 sub+=5
		 gs'stat'
		 '<center><img src="qwest/alter/evdima/gagbj.jpg" ></center>'
		 'Member of unopposed went through the ring in your mouth and ran into your throat. You`re a little choked, Dima took the cock and with all his strength drove it to you in the throat. Do you drool flowed, tears and snot on the face. Dima fiercely drives the his penis in your mouth, fucking your throat burning fire. Finally. You almost fainted from suffocation and spasms in the throat of any member who has clamped tighter inside you. Finally became a member of Dima fall off and he took it out of you. After that he took the gag out of your mouth and your hands are untied.'
		 act 'Get_Away':gt'gorodok'
		 end
     end
end





--- dimaRudeEv ---------------------------------

# dimaHome
Mud=totminut+120
if DimaBeHomeOnce=0:DimaBeHomeOnce=1
gs'stat'
'<center><B><font color=maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
'<center><img src="qwest/alter/npc/1.jpg" ></center>'
if dimaFilm=0:
'Dima took some white powder from his desk and nyuhnul. After that "smell, cool thing! Excellent relaxing!"'
     act 'nyuhnut':
     cls
     set minut = minut + 15
     set narkday = day
     set health = vital*10 + stren*5
	 set willpower = intel*5 + will*5
	 set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
	 set horny = 100
	 set nark = nark + 10
	 gs'stat'
     '<center><img src="pic/dur.jpg" ></center>'
     'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
         act 'further':
         cls
         bj+=1
         bja+=1
		 cumlip+=1
		 swallow+=1
		 dimaFilm=1
		 sub+=1
		 minut+=15
		 dimasexday=daystart
		 gs'stat'
		 '<center><img src="qwest/alter/evdima/filming.jpg" ></center>'
		 'My head swam . You seem to be flying above the floor. Dima smiled at you and unbuttoned his pants taking out a flaccid penis "crawl here!" You why it was very funny . You sit in front of Dima and kissed his dick, then you started to lick his dick carefully his tongue, Finally a member of Dima got completely. You cupped member Dima his lips and took it in her mouth, suddenly looked up you saw, Dima takes you on camera. you giggled, presenting some stupid you face with a member in the mouth. Are you sexually licked cock and began to suck it in front of the camera, trying to act in the most beautiful, Dima soon groaned slightly and your mouth spurted jet of sperm, you immediately started to swallow. Dima turned off the camera and put it aside. "awesome. You`re a great huesoska."'
		 act 'Get_Away':gt'gorodok'
         end
     end
     
     act 'Opt_Out':
     cls
     dom+=1
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/evdima/pre.jpg" ></center>'
     'You refused to use powder. Dima chuckled "Well, thing is really cool." He unbuttoned his pants and pulled out a member. "Come here baby."'
         act 'Approach the Dime':
         cls
         bj+=1
         bja+=1
         minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/evdima/cock.jpg" ></center>'
		 'You came to Dima and he took you by the hand, strong but gentle , while you are fascinated looking at his dick. Dick was getting closer to your face and you feel like a hot head touched your lips.'
		     act 'suck':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/cock2.jpg" ></center>'
			 'Clasping his lips a member you took it in her mouth. Member of the slides in your mouth when you wet it absorbs up to the throat. Dima whispered "Undress."'
			 	 act 'undress':
				 cls
				 minut+=5
				 gs'stat'
				 '<center><img src="qwest/alter/evdima/cock3.jpg" ></center>'
				 'Trying not to break away from a member you undressed exposing her breasts. Once you were naked you continue to absorb member in her mouth. Suddenly you hear, Dima began to move . You looked up and saw, he picked up a camera.'
				     act 'dress':
					 cls
					 minut+=5
					 if GorSlut<2:GorSlut=2
					 gs'stat'
					 'You grabbed the clothes and trying to hide her face from the camera started to dress as soon as possible. Dima continued to shoot it all on camera.'
						 act 'escape':
						 cls
						 minut+=15
						 DimaRudeBlock=1
						 gs'stat'
						 'You opened the door and went to the door of the house. Following heard a voice Dima "fire_away, run a pig. Tomorrow everyone will know, you huesoska."'
						 act 'Get_Away':gt'gorodok'
						 end
					 end
					 
					 act 'Suck on camera':
					 cls
					 minut+=15
					 cumlip+=1
					 swallow+=1
					 dimaFilm=1
					 sub+=5
					 dimasexday=daystart
					 gs'stat'
					 '<center><img src="qwest/alter/evdima/filming.jpg" ></center>'
					 'You continued to suck dick Dima and he shot you intently at his camera. His cock quickly grew stronger and soon cum spurted into your mouth. You diligently swallowing front of the camera. Dima turned off the camera and put it aside. "awesome. You`re a great huesoska."'
					 act 'Get_Away':gt'gorodok'
					 end
				 end
			 end
         end
     end
end
if dimaFilm>0:

     if narkday ! day:
     'Dima took some white powder from his desk and nyuhnul. After that "smell, cool thing! Excellent relaxing!"'
         act 'nyuhnut':
		 cls
		 set minut = minut + 15
		 set narkday = day
		 set health = vital*10 + stren*5
		 set willpower = intel*5 + will*5
		 set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
		 set horny = 100
		 set nark = nark + 10
		 gs'stat'
		 '<center><img src="pic/dur.jpg" ></center>'
		 'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
		 act 'catch a buzz':gt $curloc
		 end
		 
		 act 'Opt_Out':
		 cls
		 dom+=1
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/evdima/pre.jpg" ></center>'
		 'You refused to use powder. Dima chuckled "Well, thing is really cool. Without it" He unbuttoned his pants and pulled out a member. "Come here baby."'
		 
		     act 'Take by mouth':
			 cls
			 bj+=1
			 bja+=1
			 if maxdra=0:maxdra=1
			 minut+=15
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/minet.jpg" ></center>'
			 'You came to Dima and arranged for convenient took it hard and hot cock in her mouth. Your lips slide down the barrel member and you absorb it to the throat.'
			 dimadalrand=rand(0,maxdra)
			     if dimadalrand=0:
			         act 'further':
			         cls
			         cumlip+=1
					 swallow+=1
					 dimasexday=daystart
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/cum.jpg" ></center>'
			         'Suddenly a member of Dima cums in your mouth and you continue sucking mouth full of sperm. Finally Dia ceases to finish and you swallow his cum.'
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			     if dimadalrand=1:
			     	 act 'further':
			         cls
			         cumface+=1
			         facial+=1
			         if maxdra=1:maxdra=2
			         dimasexday=daystart
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/face.jpg" ></center>'
			         'Dima suddenly pulls his dick out of your mouth and then ends up on your face. Warm jet of sperm land you on the cheek, nose and lips. Soon almost all your face is covered with warm and sticky cumshot.'
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			     if dimadalrand=2:
			     	 act 'further':
			         cls
			         cumlip+=1
					 swallow+=1
					 if throat<16:throat+=1
					 if mop ! 1:mop=0
					 if maxdra=2:maxdra=3
					 dimasexday=daystart
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/deep.jpg" ></center>'
			             if throat<16:
			             'Dima grabs you by the hair and starts to pull you to the member. Hard cock enters your throat, you davites and tears flow from his eyes. Dima not paying any attention to you just fucked your mouth with his hard cock. Finally torture ends and your mouth shoots sperm you immediately swallow.'
			             else
			             'Dima grabs you by the hair and starts to pull you to the member. Hard cock enters your throat, you bite vomiting and feel like your eyes moistened. Dima not paying any attention to you just fucked your mouth with his hard cock. Finally torture ends and your mouth shoots sperm you immediately swallow.'
			             end
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			     if dimadalrand=3:
			     	 act 'further':
			         cls
			         if maxdra=3:maxdra=4
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/sit.jpg" ></center>'
			         'Dima took his dick out of your mouth and put you on the bed. He climbed up on your chest and his cock was on your face. You started to lick his balls and Dima masturbate dick in your face'
			         	 act 'further':
						 cls
						 cumface+=1
			             facial+=1
			             dimasexday=daystart
						 gs'stat'
						 '<center><img src="qwest/alter/evdima/sitcum.jpg" ></center>'
						 'Suddenly a member of Dima began to fly jets of hot cum and prezemlyatsya your face covering it viscous Concha.'
						 act 'Get_Away':gt'gorodok'
						 end
			         end
			     end
			     if dimadalrand=4:
			     	 act 'further':
			         cls
			         $boy='Dima'
			         silavag = 1
			         dick=16
			         if maxdra=4:maxdra=5
			         sexa+=1
			         dimasexday=daystart
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/sex.jpg" ></center>'
			         'Dima puts you on the sofa.'
			         dynamic $sexstart
			         dynamic $sexstart2
			         dynamic $sexcum
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			     if dimadalrand=5:
			     	 act 'further':
			         cls
			         $boy='Dima'
			         silavag = 1
			         dick=16
			         anala+=1
			         dimasexday=daystart
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/anal.jpg" ></center>'
			         'Dima cancer puts you on the sofa.'
			         dynamic $analsexrude
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			     if dimadalrand=6:
			     	 act 'further':
			         cls
			         gs'stat'
			         '<center><img src="qwest/alter/evdima/cum.jpg" ></center>'
			         ''
			         act 'Get_Away':gt'gorodok'
			         end
			     end
			 end
		 end
     
     end
     if narkday = day:
     if maxdradrug=0:maxdradrug=1
     'Dima aloof you smiling "what, fun_too?"'
       dimadalrand=rand(0,maxdradrug)
		 if dimadalrand=0:
			 act 'further':
			 cls
			 gs'stat'
			 'Dima indifferent grin examined your body. He walked over to the closet and rummaged in it taking out some things. He came up to you and roughly wrapped your hands behind your back. There was a click is handcuffs and you feel the cold steel on his wrists. He came up to you from behind and shoved in your mouth ring to which prikrepeleny belts, then he buckled the belt behind your head'
				 act 'further':
				 cls
				 minut+=5
				 gs'stat'
				 '<center><img src="qwest/alter/evdima/ogag.jpg" ></center>'
				 'Your mouth is widely opened with rings, Dima seems a little blurry ring located in your mouth lemon juice and now you saliva flowing from the mouth of the creek . Dima little to admire you and your iron sole person got dick.'
					 act 'further':
					 cls
					 minut+=15
					 bj+=1
					 bja+=1
					 cumlip+=1
					 swallow+=1
					 if throat<16:throat+=1
					 sub+=1
					 if mop ! 1:mop=0
					 dimasexday=daystart
					 gs'stat'
					 '<center><img src="qwest/alter/evdima/gagbj.jpg" ></center>'
					 'Member of unopposed went through the ring in your mouth and ran into your throat. You`re a little choked, Dima took the cock and with all his strength drove it to you in the throat. Do you drool flowed, tears and snot on the face. Dima fiercely drives the his penis in your mouth, fucking your throat burning fire. Finally. You almost fainted from suffocation and spasms in the throat of any member who has clamped tighter inside you. Finally became a member of Dima fall off and he took it out of you. After that he took the gag out of your mouth and your hands are untied.'
					 act 'Get_Away':gt'gorodok'
					 end
				 end
			 end
		 end  
		 if dimadalrand=1:
			 act 'further':
			 cls
			 if maxdradrug=1:maxdradrug=2
			 minut+=15
			 bj+=1
			 bja+=1
			 cumlip+=1
			 swallow+=1
			 if throat<16:throat+=1
			 if mop ! 1:mop=0
			 sub+=1
			 dimasexday=daystart
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/ab.jpg" ></center>'
			 'Dima roughly ripped off your pants and pulled them on your head, then he inserted his penis into your mouth and began to fuck you hard in the mouth. Your throat burning with fire from the fact that a member with every movement enters your mouth to the most eggs. Dima growls at you "Huesoska mouth is her second pussy, and what should be done with by a pussy? Rigidly to fuck her, to the uterus!" Dima beats you on the cheek with his hand "Get struhnyu creature in her pussy!" Dick in your mouth starts to cum and fills your mouth with sperm, you swallow.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end  
		 if dimadalrand=2:
			 act 'further':
			 cls
			 $boy='Dima'
			 silavag = 1
			 dick=16
			 sexa+=1
			 sub+=5
			 if maxdradrug=2:maxdradrug=3
			 dimasexday=daystart
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/car.jpg" ></center>'
			 'Dima bound and tied you to your knees a little cart with roliuami, so he put in your mouth clown horn and tied it with tape for you to face.'
			 dynamic $sexstart
			 dynamic $sexstart2
			 'Dima fuck you, and you instead of moaning makes funny clown sounds.'
			 dynamic $sexcum
			 act 'Get_Away':gt'gorodok'
			 end
		 end  
		 if dimadalrand=3:
			 act 'further':
			 cls
			 $boy='Dima'
			 silavag = 1
			 dick=16
			 anala+=1
			 sub+=5
			 if maxdradrug=3:maxdradrug=4
			 dimasexday=daystart
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/car.jpg" ></center>'
			 'Dima bound and tied you to your knees a little cart with casters, so he put in your mouth clown horn and tied it with tape for you to face.'
			 dynamic $analsexrude
			 act 'Get_Away':gt'gorodok'
			 end
		 end  
		 if dimadalrand=4:
			 act 'further':
			 cls
			 if mop!1:mop=0
			 throat+=5
			 dimasexday=daystart
			 minut+=15
			 sub+=5
			 if maxdradrug=4:maxdradrug=5
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/nar.jpg" ></center>'
			 'Dima your hands tied behind your back, then tied the legs so, that would vvy could only sit on his lap ,then he put the collar and dragged you to the post to which the tape was attached dildo, inserting it into your mouth Dima your collar tied to the pillar so, that you could not spit dildo mouth. When you think, Dima has Najran with you, he is using a rope on your collar pulled her so, that dildo entered your throat. After that Dima began to enjoy the sight of your face reddened by suffocation, current snot, saliva and tears from the eyes. You choked with dildo in her throat and tried to keep vomiting, so how exactly would be drowned and died right on this dildo. And when you have already started to lose consciousness, Dima finally freed you and you were able to finally breathe freely.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end  
		 if dimadalrand=5:
			 act 'further':
			 cls
			 spank+=1
			 dimasexday=daystart
			 minut+=15
			 sub+=5
			 if maxdradrug=5:maxdradrug=6
			 if mop!1:mop=0
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/spank.jpg" ></center>'
			 'Dima you tied to a pole and took the whip began to smack your ass. Immolation hit a sharp flashes penetrated through drug intoxication and you were screaming and moaning. Dima finally played enough and you unleashed.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
		 if dimadalrand=6:
			 act 'further':
			 cls
			 if pirsF > 0:$text='Dima pulled out of your nipples needles and set you free'
			 if pirsF = 0:pirsF = 1&$text='Dima put in punctures piercing, then set you free'
			 nippain=2
			 nippainday=daystart
			 if maxdradrug=6:maxdradrug=7
			 if mop!1:mop=0
			 sub+=5
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/nip.jpg" ></center>'
			 'Dima you connected and fully obezdvizhel. Then your nipples clamped in the jaws and suddenly you stuck a needle into the nipple. You howled in pain, but Dima spit on your cries and stuck the needle next forcing you to howl again. You yelled and swore at this fucking sadist, but Dima -eyed needle stuck you more and more. When he was tired <<$text>>.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
		 if dimadalrand=7:
			 act 'further':
			 cls
			 if pirsA=1:$text='Dima pulled out of you and set you free needles'
			 if pirsA=0:pirsA = 1&$text='Dima pulled out of your needles, put you in a puncture in the language bar and set you free'
             pirs_pain_ton=7
             if maxdradrug=7:maxdradrug=8
             if mop!1:mop=0
             sub+=5
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/ton.jpg" ></center>'
			 'Dima you connected and fully obezdvizhel. Then his fingers got your tongue and suddenly stuck a needle in it. You whined and twitched from a sharp pain. Dima fun you stuck a needle into his cheek, you again howled in pain. <<$text>>.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
		 if dimadalrand=8:
			 act 'further':
			 cls
			 if pirsG>0:$text='Dima pulled out of your pussy pins and untied you'
			 if pirsG=0:pirsG = 1&$text='Dima pulled out of your pussy pins and put you in a puncture piercing. After that'
			 painpub=2
			 painpubday=daystart
			 if mop!1:mop=0
             sub+=5
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/vag.jpg" ></center>'
			 'Dima you connected and fully obezdvizhel. Then he picked up a pin and pricked your labia. You howled with sharp pain and not sterpimoy steel dergatsya, but Dima did not calm down until all your istykal suffered vlagilische pins. <<$text>>.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
		 if dimadalrand=9:
			 act 'further':
			 cls
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/cum.jpg" ></center>'
			 ''
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
		 if dimadalrand=10:
			 act 'further':
			 cls
			 gs'stat'
			 '<center><img src="qwest/alter/evdima/cum.jpg" ></center>'
			 ''
			 act 'Get_Away':gt'gorodok'
			 end
		 end 
     end
end























--- dimaHome ---------------------------------

# dimaGoHome
Mud=totminut+120
dimarudeday=day
gs'stat'
'<center><B><font color=maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
'<center><img src="qwest/alter/npc/1.jpg" ></center>'
'Dima came to you and you looked up and down. "what, go to my?"'





     act 'Go to the Dime':
     cls
     minut+=30
     gs'stat'
     'You went to the house of Dima. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden. With Dima you have gone to his room and he closed the door with a key.'
     act 'Go into the room Dima':gt 'dimaHome'
     end










--- dimaGoHome ---------------------------------

# dimaGoHome2
gs'stat'

if dimaGohomeday=day:
'You come to a beautiful private home and rang the bell. You opened the door to a pretty blonde of about forty years, apparently the mother of Dima. She looked at you and smiled "Dima is not at home."'
act 'Get_Away':gt 'gorodok'
end
if dimaGohomeday!day:
'You come to a beautiful private home and rang the bell. You opened the door to a pretty blonde of about forty years, apparently the mother of Dima. She looked at you and smiled "You Dima?" You nodded and mother of Dima let you in the house.'
act 'Go into the room Dima':dimaGohomeday=day&gt 'dimaHome'
end
--- dimaGoHome2 ---------------------------------

# dinnpc
$din_predlog_dima_bj={
	 act 'To squat':
	 cls
	 DimaRudeQW+=1
	 sub+=1
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	 'Embarrassed and blushing you sat down in front of Dima, took the dick and put it in front of your face.'
		 act 'Take by mouth':
		 cls
		 minut+=5
		 horny+=10
		 bj+=1
		 bja+=1
		 dick=16
		 if npcSex[numnpc]=0:npcSex[numnpc]=1&guy+=1
		 sub+=1
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/cocksucker2.jpg" ></center>'
		 'You gently kissed the purple head of the penis and Dima said taking your hair. "Come suck." You wrapped around her lips and took his dick in her mouth. You began to move his lips on his hard cock absorbing into your mouth as deeply as possible. Dima moaned and grabbed your head in his hands "suck deeper."'
		  	 act 'suck':
			 cls
			 minut+=5
			 throat+=2
			 dick=16
			 sub+=1
			 if mop>1:mop=0
			 hapri=0
			 manna=0
			 horny=0
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/cocksucker3.jpg" ></center>'
			 'Dima firmly grabbed you by the hair and body suddenly moved vperet, from what his hard cock flying in your throat, you choked and tears flowed from his eyes. Dima took the cock out of your throat and you coughed struggling with bouts of vomiting. Dima gave you a little breather . He began literally to fuck you in the mouth and his cock every time you flew deeper into the throat. You have flowed from the nose snot on her lips, Eye of the creek run down with tears and drool running down her lips, dripping on your clothes. Dima did not let up and fucked your mouth is already in full force. Soon you will become studded with his crotch with his nose. Dima pressed your face to his groin, You struggled to relax ablaze throat. "what a pig, please? Taschishsya when you roughly fucked? Now you will be my pig. Will grunt and squeal on my cock." Suddenly he pulled his dick out of your mouth. And he began to masturbate in front of your face.'
			     act 'Trying to catch my breath':
				 cls
				 minut+=5
				 cumlip+=1
				 cumface+=1
				 cumfrot+=1
				 dimasexday=daystart
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/cocksucker4.jpg" ></center>'
				 'You sit down in front of Dima panting, all in your face smeared with snot, tears and saliva. Suddenly a member of Dima flies jet of sperm and gets you on the face, then another and another jet. Your whole face is covered with a layer of mucus that mixes all. Dima cleans cock in his pants and says "It was not bad. I`ll have a repeat. Well, as_long_as, see you again." Dima turns around and goes to the disco leaving you alone.'
				 act 'Get_Away':gt 'gdk'
				 end
			 end
		 end
	 end

}

 $din_dima_predlog={
	 act 'Give him podschechinu':
	 cls
	 dom+=1
	 grupNPC[numnpc]=0
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	 'You cracked the face Dima and grabbed the cheek. "Well. And do not come near me."'
	 act 'Get_Away':gt $loc, $metka
	 end
	 
	 act 'become_confused':
	 cls
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	 'You have eyes widened and you were red with such a proposal. Dima unbuttoned his pants. "Come, bolder, I can not stand here all night."'
	 	 act 'Give him podschechinu':
		 cls
		 dom+=1
		 grupNPC[numnpc]=0
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
		 'You cracked the face Dima and grabbed the cheek. "Well. And do not come near me."'
		 act 'Get_Away':gt $loc, $metka
		 end
		 
		 act 'And you will not tell anyone?':
		 cls
		 dom+=1
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
		 'You asked Dima "And you will not tell anyone?" Dima smiled at you "No, You `ll be my Devchenka."'
		 dynamic $din_predlog_dima_bj
		 end
	 dynamic $din_predlog_dima_bj
	 end
	 
	 dynamic $din_predlog_dima_bj
 }
 
$din_igor_disco_bj={
	 act 'To squat':
	 cls
	 if npcSex[numnpc]=0:npcSex[numnpc]=1&guy+=1
	 dick=6
	 bj+=1
	 gs'stat'
     '<center><img src="qwest/alter/Ev/cocksucker5.jpg" ></center>'
	 'You sat on his haunches and Igor pulled out of his pants his dick. You looked at the tiny fungus and nearly laughed. Member Igor was really small and thin and stuck among hair like a mushroom in a meadow. You gently wrapped around his baby lips and began to suck, the normal sucking a small dick you can not and you began to fondle him clenching his lips and licking tongue. Soon Igor groaned and stood out in your mouth drop of sperm that you barely feel.'
	 act 'Get_Away':gt $loc, $metka
	 end
}
$din_igor_dima_disco_bj={
	 act 'To squat':
	 cls
	 if npcSex[numnpc]=0:npcSex[numnpc]=1&guy+=1
	 dick=6
	 bj+=2
	 cumlip+=1
	 swallow+=1
	 gs'stat'
     '<center><img src="qwest/alter/Ev/cocksucker6.jpg" ></center>'
	 'You sat on his haunches and Igor pulled out of his pants his dick. You looked at the tiny fungus and nearly laughed. Member Igor was really small and thin and stuck among hair like a mushroom in a meadow. 16five inch dick Dima looked a real giant in the background of this silicula. You took the cock in hand and began to suck them one by one. Finally the guys started to cum in your mouth. Sperm from Igor almost never was, Dima but you almost poured a mouthful. You swallowed the sperm and wiped his lips. Satisfied guys buttoned his pants and went to the disco.'
	 act 'Get_Away':gt $loc, $metka
	 end

}
$din_igor__disco={
	 act 'Go to the street':
	 cls
	 gs'stat'
     '<center><img src="qwest/alter/npc/4.jpg" ></center>'
	 'You went out with Igor. Igor passionately took you by the hand and began to speak "Sveta, you`re such a pretty girl, when I see you, then I immediately podnimaetsya mood. I like you very nravishsya. I `d really like to start a relationship with you."'
	     act 'Opt_Out':gt $loc, $metka
	     
	     act 'agree':
	     cls
	     IgorLoverQW=1
	     gs'stat'
	     '<center><img src="qwest/alter/npc/4.jpg" ></center>'
	     'You agreed to meet with Igor and he blossomed smile "Sveta, You can get a kiss?"'
	         if dom>0:
	             act 'perebesh':
	             cls
	             dom+=5
	             IgorDominaQW=1
	             gs'stat'
	             '<center><img src="qwest/alter/npc/4.jpg" ></center>'
	             'You grin skazale Igor, that he would kill. Igor blushed and got on his knees "Svetochka, I beg you as a slave, on his knees, just one kiss!"'
	                 if dom>=10:
	                 	 act 'You can kiss my feet':
						 cls
						 dom+=5
						 IgorLove+=20
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/leg.jpg" ></center>'
						 'You smiled looking at Igor top to the bottom , that he can kiss your foot. Igor kissed your foot and began to lick your toes, tickling you with his tongue. Igor took his tiny pisyun and began to masturbate on her knees in front of you and licking your feet, Finally he came to earth.'
						 act 'Get_Away':gt $loc, $metka
						 end
	                 end
	                 
	                 act 'kiss':
					 cls
					 IgorLove+=10
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
					 'You Igor kissed, Igor kissed your lips passionately, but gently.'
					 act 'Get_Away':gt $loc, $metka
					 end
	             end
	         end
	         
			 act 'kiss':
			 cls
			 IgorLove+=5
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
			 'You Igor kissed, Igor kissed your lips passionately, but gently.'
			 act 'Get_Away':gt $loc, $metka
			 end
	     end
	 end
	 
	 act 'Opt_Out':gt $loc, $metka

}














--- dinnpc ---------------------------------

# krutishi
if grupTipe[numnpc]=3:
     if npcPol[numnpc]=0 and hapri=0:
     grupNPC[numnpc]-=5
     '<<$npcName[numnpc]>> with a smile looking at your messy hair.'
     end
     if npcPol[numnpc]=1 and hapri=0:
     grupNPC[numnpc]-=5
     '<<$npcName[numnpc]>> with a smile looking at your messy hair.'
     end
     if npcPol[numnpc]=0 and hapri>0 and $loc='gdkin' and grupNPC[numnpc]>=40:
         if glamur>0 or ski>0:
         cla
		 '<<$npcName[numnpc]>> - can Dance?'
			 act 'dance':
			 cls
			 minut+=5
			 grupNPC[numnpc]+=5
			 dance+=RAND(1,3)
			     if numnpc=1:
			     Mud=totminut+120
			     end
			 gs'stat'
			 'You danced to old Hit the dance floor with a guy.'
			 act 'move_away':gt $loc, $metka
			     if numnpc=4 and grupNPC[numnpc]>=80:
			     !Igor Kruglov
			     horny+=10
			     gs'stat'
			         if IgorLoverQW>0 and IgorDominaQW=0:
			         'Igor whispers to you "Svetulechka, i love you so. Come to me."'
			         act 'Go to Igor':gt 'IgorEv'
			         end
			         
			         if IgorLoverQW>0 and IgorDominaQW>0:
			         'Igor whispers to you "My mistress, I love you. Come to me."'
			         act 'Go to Igor':gt 'IgorEv'
			         end
			         
			         if IgorLoverQW=0:
					 'During the dance.'
						 if DimaRudeQW>0:
						 'Igor whispers in your ear "Dimka told me what you`re cool huesoska. Come on street, show me your class."'
							 act 'Go to the street':
							 cls
							 gs'stat'
							 'You together with Igor slipped out of discotheques. Tucked away in a secluded corner of Igor began to kiss and caress you. There was the sound unbuttoned his pants and Igor pushed you on the shoulders.'
							 dynamic $din_igor_disco_bj
							 end
							 
							 act 'Turn_Down':
							 cls
							 gs'stat'
							 'You refused to go with Igor on street. Dima came to you and asked you what`s going on. Igor shrugged "Your huesoska does not want me to suck." Dimka frowned "Sveta, he is my best friend, because there would be nothing wrong, if you had otsosesh." Guys took you by the hand and led him to the street.'
							 dynamic $din_igor_dima_disco_bj
							 end
						 exit
						 end
						 if grupNPC[1]=0:
						 'Igor whispers in your ear "Dimka told me how you dumped him. Good_For_You, he sometimes behaves like a pig. By_The_Way, Svetsik, go to the street, get some air."'
						 dynamic $din_igor__disco
						 exit
						 end
						 cla
						 'Igor whispers in your ear "Come on out Svetsik. Enjoy the fresh air."'
						 dynamic $din_igor__disco
						 exit
                     end
			     end
			     
			     
			     if numnpc=1 and grupNPC[numnpc]>=80 and DimaRudeQW>0:
			     'After the dance. "Come on street."'
			         act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
			         
			         act 'Go to the street with Dima':
			         cls
			         gs'stat'
			         'You left the club together with Dima on street. "what, pig, take it in your mouth."'
			         act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
			         dynamic $din_predlog_dima_bj
			         end
			     end
			     if numnpc=1 and grupNPC[numnpc]>=80 and DimaRudeQW=0:
			     'After the dance. "Come on street, Enjoy the fresh air."'
			         act 'Go to the street with Dima':
			         cls
			         gs'stat'
			         'You went out with Dima and departed for the club. Dima came up to you and hugged you tight. "Sveta, you do Devchenka. Do you want to meet me?"'
			             act 'No':
			             cls
			             gs'stat'
			             '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
                         '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			             'You replied in the negative and Dima grinned. "do not be shy, Of course you want. Otherwise."'
			             	 act 'Well':
							 cls
							 gs'stat'
							 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
							 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
							 'You embarrassed and said, you do not know, but may be. Dima grinned and hugged you. "Of_Course. I knew it from the start. know, I do not need some sort of nun, I need a girl without complexes. In general, we`re going to meet, if you, Now I otsosesh."'
							 
							 dynamic $din_dima_predlog
							 
							 end
							 
							 act 'Get_Away':gt $loc, $metka
			             end
			             
			             act 'Yes_I_Am':
			             cls
			             gs'stat'
			             '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
                         '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			             'You are embarrassed by the question of integrity and confirmed. Dima grinned. "Of_Course. I knew it from the start. know, I do not need some sort of nun, I need a girl without complexes. In general, we`re going to meet, if you, Now I otsosesh."'
			             dynamic $din_dima_predlog
			             
			             end
			         end
			     end
			 end
			 
			 
			 act 'Opt_Out':grupNPC[numnpc]-=5&gt $loc, $metka
		 exit
         end
     end
end
--- krutishi ---------------------------------

# artemEv
$din_artom_bj={
	 act 'suck':
	 cls
	 minut+=5
	 horny+=10
	 bj+=1
	 if npcSex[2]=0:npcSex[2]=1&guy+=1
	 if artomBJQW=0:artomBJQW=1
	 sub+=1
	 swallow+=1
	 cumlip+=1
	 dick=16
	 artompower-=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/artomBJ.jpg" ></center>'
	 dynamic $dinrandbj
	 dynamic $dinrandswallow
	 act 'go home':gt'gorodok'
	 end

}
$din_artom_leghump={
	 act 'Let Artem caress your ass.':
	 cls
	 minut+=5
	 horny+=10
	 hump+=1
	 if npcSex[2]=0:npcSex[2]=1&guy+=1
	 leghumpArtom+=1
	 dom+=1
	 dick=16
	 cumfrot+=1
	 artompower-=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/artomHump.jpg" ></center>'
	 'You do not undressing got on all fours in front of Artem and offered him my ass. Artem began to stroke your ass handed, for a while he hesitated and turned to you. Artem took penis and began to rub them on your ass. You felt through clothes between your buns moving solid barrel member. Artem moaned and jet of sperm flew out to you on the ass. You turned around and you will see, that Artem pytaetsya cum in hand, but the sperm of his overexcited member still scatters on your clothes. After he had finished Artem fidgeted "Sorry Svetulechka, I did not want to stain you, I`ll erase all." He began to wash semen stains on your clothes. After some time on the clothes were only wet spots.'
	 act 'go home':cumfrot=0&gt'gorodok'
	 end
}
$din_artom_leghump2={
     if dom>0:
		 act 'Take off your clothes and let Artem rub on you.':
		 cls
		 minut+=5
		 horny+=10
		 hump+=1
		 if npcSex[2]=0:npcSex[2]=1&guy+=1
		 leghumpArtom+=1
		 dom+=1
		 dick=16
		 cumass+=1
		 artompower-=1
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/artomHump2.jpg" ></center>'
		 'You undressed and lay on his stomach on the bed. Artem sat on top of your legs and pulls cock was rubbing against your soft ass and masturbate to it. Soon you Artem finished panties.'
		 act 'go home':gt'gorodok'
		 end
	 end
}
$din_artom_lern={
	 act 'Engage with Artem':
	 cls
	 minut+=60
	 grupNPC[2]+=10
	 lernHome=0
	 lern+=RAND(3,6)
	 intel+=RAND(1,2)
	 gs'stat'
	 '<center><img src="qwest/alter/npc/<<2>>.jpg" ></center>'
	 'Did you do with Artem in under an hour, During this time he helped you with homework and explained something of the studied material.'
	     if grupNPC[2]>=90:
	     artomLernQW+=1
	     'As long as you do with Artem you catch his eye on himself. He glances furtively to you on foot and on chest.'
	         if artomQW>0:
	             if GorSlut<2:
				 'After training with Artem , that would kiss you.'
					 act 'kiss Artem':
					 cls
					 horny+=10
					 !artomQW=1
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
					 'You smiled Artem and his face a little closer to him. Artem approached you and kissed you. You started kissing. Finally ending the kiss shyly said Artem. "Sveta, I like you very nravishsya."'
					     if artomLernQW>=20 and leghumpArtom=0:
					     'Artem muttered sheepishly. "Svetulya. I really want you, maybe we could... well... You can touch your ass?"'
					     dynamic $din_artom_leghump
					     end
					     if leghumpArtom>=1:
					     'Artem said shyly. "Svetulya, you are such a wonderful. I enjoyed it so much last time. Can we play one more time?"'
					     dynamic $din_artom_leghump
					     dynamic $din_artom_leghump2
					     end
					     
					 act 'go home':gt'gorodok'
					 end
	             end
	             if GorSlut>=2:
	                 if artomBJQW=0:
	                 'After classes, "Sveta, everyone in the school is talking about, you huesoska. I think it would be fair if you have me for otsosesh, I will help thee."'
	                     dynamic $din_artom_bj
	                     
	                     
	                 	 act 'No':
						 cls
						 dom+=1
						 artomLernQW=-1
						 grupNPC[2]=0
						 gs'stat'
						 'You were denied Artem, he frankly offended "Listen, I am with you as much time and effort spent, and you... you suck all the Streak, and I do not want... More to me you can not approach."'
						 act 'go home':gt'gorodok'
						 end
	                 end
	                 if artomBJQW>0:
	                 'Artem unbuttoned his pants and pulled out a member of his pants. "on Svetsik, suck."'
	                 dynamic $din_artom_bj
	                 end
	             end
	         exit
	         end
	         
	         if artomLernQW>=10 and artomQW=0:
	         'Artem stumbles, as if he wants you, say something, but not solved. But then mustered determined asks. "Sveta, I like you. Can I kiss you?"'
	             act 'kiss Artem':
	             cls
	             horny+=10
	             artomQW=1
	             gs'stat'
	             '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
	             'You smiled Artem and his face a little closer to him. Artem approached you and kissed you. You started kissing. Finally ending the kiss shyly said Artem. "It was great, Sveta, I like you very nravishsya."'
	             act 'go home':gt'gorodok'
	             end
	             
	             act 'No':
	             cls
	             dom+=1
	             artomLernQW=-1
	             grupNPC[2]=0
	             gs'stat'
	             'You were denied Artem, he frankly offended "Listen, I am with you as much time and effort spent, and you... you are using just me. all. You can no longer come to me!"'
	             act 'go home':gt'gorodok'
	             end
	         exit
	         end
	     end
	 act 'Say goodbye and go home':gt'gorodok'
	 end

}


gs'stat'
'<center><B><font color=maroon><<$npcName[2]>> <<$npcSurName[2]>></font></B></center>'
'<center><img src="qwest/alter/npc/2.jpg" ></center>'

if kotovLoveQW>0 and artomVitokQW=0:
'You are out of school and went to Artem. Artem asked "what, let`s_go?" You nodded. Once you have gathered with Artem leave the school yard when suddenly came up to meet you Vitek Cats. He came up to you and smeryav contemptuous look said Artyom "You where it went with the four eyes jerk?" You answered Vit`ka, that you went to teach lessons, Artem helps you pull up study. Vitek frowned "I do not trust this freak. He has written on the face, he laid eyes on you." Artem visibly frightened and began to mumble. "Vitek, What do you mean? I would never. We just teach lessons." Have you noticed how tense nodules in Vic.'
     if dom>=10:
         act 'Vitek. Get off him!':
         cls
         sub+=10
         artomVitokQW=1
         gs'stat'
         'You said Vit`ka fork from Artem. And Vitek slightly wilted, but went to Artem and lightly punched him in the shoulder with his fist "Slysh uebok. If I even suspect that some, will be at least some hint, I love you so otpizzhu, that you will not recognize my own mother. You have me in a wheelchair will sit rest of his life and piss blood. Do you understand?" Artem nodded repulsed rubbing shoulder "Yes_I_Am, yes_they_are. all clear." After that Vitek turned around and went the other way. You scared Artem went to his home.'
         dynamic $din_artom_lern
         end
     end
     
	 act 'to_be_silent':
	 cls
	 artomVitokQW=2
	 gs'stat'
	 'You said nothing thinking, What to do. And then there was cotton and Artem fell to the ground. You do not understand, what happened but obviously Vitek punched Artem. Artem closed his hands and screamed like a little girl "Vitek, Well!" Vitek bent over Artem "Once again I see you together, teeth `ll beat. understood?" Artem wailed "Got it figured." Vitek gave a kick in the ass rises from the ground Artem. "Now sebis in horror, pimple!" Artem grabbed a bunch of their stuff drapanul run by Vic. Vitek spat on the ground and turned around went somewhere.'
	 act 'Get_Away':gt'gschool'
	 end
     
exit
end
if fedorKozlovQW>=10 and FedorArtomTalk=0:
FedorArtomTalk=1
'To you and Artem suitable Fedor. "Artem, Would you go... library, Light my girl." Artem blushed "Fed, yes nothing, we just teach lessons together, I am the light pull-up on study. She has come to the institute, by the way!" You also inserted mot, Artem for you that only one and you only learn lessons together, nothing, between you no. Theodore sighed and said "Well, I do not like it all, yes figs with him. I believe you Light." After that Fedor oteshel from you.'
dynamic $din_artom_lern
exit
end
'You are out of school and went to Artem. Artem asked "what, let`s_go?" You nodded. All the way to his house you walked in silence.'

act'Go to Artem':gt'artemhome'
!dynamic $din_artom_lern




















--- artemEv ---------------------------------

# artemhome
gs'stat'

$boy='Artem'
dick=16
silavag=0

if artemhomemark=0:
'You came to the house Artem Chebotarev.'
act 'Get_Away':minut+=15&gt'gorodok'
     if week<6:
         if hour<16 and hour>=7:
         'Artem not at home.'
         end
         if hour>=16 and hour<20:
         'The door you opened Artem and invited to enter.'
         act'Login':artemhomemark=1&gt $curloc
         end
         if hour>=20 or hour<7:
         'Too late, that would go to visit.'
         end
     end
     if week>=6:
         if hour<10:
         'Too early time, that would go to visit.'
         end
         if hour>=10 and hour<20:
         'The door you opened Artem and invited to enter.'
         act'Login':artemhomemark=1&gt $curloc
         end
         if hour>=20 or hour<5:
         'Too late, that would go to visit.'
         end
     end
end
if artemhomemark=1:

     if arthakQW=1 and artomhakday!daystart:
     !tell_a_lie
     DimaRudeBlock=1
     'Artem tells you В«There are no words - well.I was ready to do anything for you .I think after that I saw our relationship will move to another plane. A record pobudet let me - so that your head is not climbed all sorts of nonsense.  And now ON KNEES BITCH! Exhaustion - it`s the least you can do that I have not used this entry.В»Artem very disappointed and angry.It seems he began to despise you.'
         act'on your knees':
		 cls
		 minut+=5
		 bj+=1
         if npcSex[2]=0:npcSex[2]=1&guy+=1
         swallow+=1
		 cumlip+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artom/facefuck.jpg" ></center>'
		 'After these words, you choke, you are sick and flow snot, tears and saliva, Artem not stand for a long time and ends you right in the throat. You choking convulsively swallow sperm.'
		     act'breath':
		     cls
		     gs'stat'
		     'Artem takes you by the hand and says В«I think that this bitch what are you showed not mind to devote my friend into the secrets of the female body.В» You shakes his head. В«Well then .. And if you `re obedient bitch - I promise - that no one is going to show her and eventually destroy. So do not speak and go.В»
'
             	 act'To escape and run away':
				 artemblok=1
				 artomhakday=daystart
				 artomvbrosvid=1
				 gt'gorodok'
				 end
				 
				 act'Go with Artem':
				 cls
				 minut+=15
				 gs'stat'
				 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
				 'You go to the garage with Artem. In the garage you see Pete Klyueva.
Artem: В«Look who I have here. As I promised you Svetochka kindly agreed to teach us all the secrets of the female body. Anatomy lessons will be held on Mondays. And today`s lesson we will start with the vagina ...!В»
Artem: "Stretch ka pussy. I can imagine what else you got up with Nosov!"
'
				     act'stretch':
					 cls
					 minut+=15
					 vagina+=3
					 gs'stat'
					 '<center><img src="qwest/alter/artom/fist.jpg" ></center>'
					 'Artem :"Here Petruchio see what her capacious pussy. Yes stronger Do not be afraid - I know what you`re capable!"
You stretch even further.
Artem:"And not to be unfounded zasun a hand."
Have you tried but did not get: В« Give Vaseline please .Does not work.В» Artem gets what that oil and throws you В«For such a whore .В» You lubricate the hands of those that have and shove it in yourself.Oddly but you chustvuete excited that start from these humiliations.
Artem:"That`s how come there -here until the end of!"
You do not have to say anything  .
Under the comments guys В«Bring_It_On! come_on!В» you end exhausted and lie down on the floor.
'
					     act'open your eyes':
						 cls
						 minut+=15
						 bj+=2
						 if npcSex[2]=0:npcSex[2]=1&guy+=1
						 if npcSex[6]=0:npcSex[6]=1&guy+=1
						 gang+=1
						 cumface+=2
						 facial+=1
						 arthakQW=10
						 artemblok=1
						 gs'stat'
						 '<center><img src="qwest/alter/artom/doublebj.jpg" ></center>'
						 'You open your eyes and see how Peter and Artem surrounded you masturbate their cocks.
Artem: В«That stared - Get direct their work - you know how it is good. Petya now you enjoy all the pleasures of professional blow job!В»
You remove the hand from the vagina and begins to suck alternately guys and they end up on your face.
Do_You:" You erase record?В»
Artem : В«Erase ... but not today ... we Petka at you a lot of plans. Do not roar.
It will be our little secret. Fair_Enough - until next week."
'
						 act'Get_Away':gt'garmassiv'
						 end
					 end
				 end
             end
		 end
		 
		 act'To escape and run away':
		 artomvbrosvid=1
		 artemblok=1
		 artomhakday=daystart
		 gt'gorodok'
		 end
     
     end
     if arthakQW=2 and artomhakday!daystart:
     arthakQW=7
     !the_truth
     DimaRudeBlock=1
     'Artem tells you "all, I Rushed comp bow and destroyed records."'
     end


if artemtimes>=15 and artQW=0 and lernHome>0:artQW=1&gt'artemev2'
'Artem sits in his room on the bed.'
     if artQW=2:
     !took the flowers but not wanker Artem
     artcooldown+=1
     if artcooldown>=10:artcooldown=0&artQW=1&gt'artemev2'
     end
     if artQW=3 and artomkissday!daystart:
     !wanker Artem
     'Artem hugs you and kisses'
         act'tselovatsya':
		 cls
		 minut+=5
		 horny+=10
		 artomkissday=daystart
		 gs'stat'
		 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
		 'You kiss with Artem and his arms around you and caress your breasts'
		     if horny<50:
				 if lernHome>0:
				 act'teach lessons':artemhomemark=2&gt $curloc
				 else
				 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
				 end
				 
				 act'Artem reluctantly masturbate':
				 cls
				 sub+=1
				 manna=manna/2
				 minut+=15
				 hj+=1
			     hja+=1
			     if npcSex[2]=0:npcSex[2]=1&guy+=1
				 gs'stat'
				 '<center><img src="qwest/alter/artom/hj.jpg" ></center>'
				 'You got a reluctant member of Artyom of his pants and began to gently move the skin up and down then revealing crimson head then closing it. Artem soon broke down and finished in your hands. You went to the bathroom and washed his hands.'
				 	 if lernHome>0:
					 act'teach lessons':artemhomemark=2&gt $curloc
					 else
					 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
					 end
				 end
				 
             end
             if horny>=50:
                 act'wank Artem':
				 cls
				 minut+=15
				 hj+=1
			     hja+=1
			     if npcSex[2]=0:npcSex[2]=1&guy+=1
			     dom+=1
				 gs'stat'
				 '<center><img src="qwest/alter/artom/hj.jpg" ></center>'
				 'You got Artem member of his pants and began to gently move the skin up and down then revealing crimson head then closing it. Artem soon broke down and finished in your hands. You went to the bathroom and washed his hands.'
				 	 if lernHome>0:
					 act'teach lessons':artemhomemark=2&gt $curloc
					 else
					 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
					 end
				 end
             end
		 end
     end
     if artQW>=2 and artQW<=3 and artemtimes>=30 and Suspeh>=90:
     artQW=10
     gt'artemev2'
     end
     
     if artQW=4:
     !refused Artem
     end
     
     if artQW=20 and artomkissday!daystart:
     'Artem hugs you and kisses'
         act'tselovatsya':
		 cls
		 artomkissday=daystart
		 minut+=5
		 horny+=10
		 gs'stat'
		 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
		 'You kiss with Artem and his arms around you and caress your breasts'
		     if horny<30:
				 if lernHome>0:
				 act'teach lessons':artemhomemark=2&gt $curloc
				 else
				 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
				 end
             end
             if horny>=30:
                 act'wank Artem':
				 cls
				 minut+=15
				 hj+=1
			     hja+=1
			     if npcSex[2]=0:npcSex[2]=1&guy+=1
				 gs'stat'
				 '<center><img src="qwest/alter/artom/hj.jpg" ></center>'
				 'You got Artem member of his pants and began to gently move the skin up and down then revealing crimson head then closing it. Artem soon broke down and finished in your hands. You went to the bathroom and washed his hands.'
				 	 if lernHome>0:
					 act'teach lessons':artemhomemark=2&gt $curloc
					 else
					 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
					 end
				 end
				 
				 act'Take by mouth':
				 cls
				 minut+=5
				 bj+=1
				 bja+=1
				 if npcSex[2]=0:npcSex[2]=1&guy+=1
				 gs'stat'
				 '<center><img src="qwest/alter/artom/bj.jpg" ></center>'
				 'You keep kissing and unbutton the dress so it was convenient .Take it out and put it on his chest. You feel his caresses excite you. 
			 continuing to kiss , you put his hand into his pants and felt his cock is ready to fight.  You unbutton his pants and start to unbutton his shirt . You take the hand of his cock and start stroking it .Your excitement is growing with every second you take a cock in her mouth and start sucking vigorously . 
			В« I want you ...В»Hear the voice of Artem.
			'
			         
			         if mesec > 0:
			         
			             if artomanal>0:
			             'You do not remain isolated for long member said Artem, that you have a monthly, Artem immediately offered you anal.'
			             	 act'Agree to anal':
							 cls
							 minut+=15
							 anala+=1
							 artomanal+=1
							 gs'stat'
							 '<center><img src="qwest/alter/artom/anal.jpg" ></center>'
							 'You went to the bathroom and made themselves an enema, then came into the room and undressed Artem got cancer.'
							 dynamic $analsexrude
							 
								 if lernHome>0:
								 act'teach lessons':artemhomemark=2&gt $curloc
								 else
								 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
								 end
							 end
			             end
			             
			             if artomsex>=10 and artomanal=0:
			                 act'I month':
							 cls
							 minut+=5
							 gs'stat'
							 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
							 'Do_You: В« I`d love to but I started ... red days.. WellВ»
A.blushing and strongly: В«Or maybe try in the ass?В»
'
							 	 act'Unsubscribe and to continue to suck':
								 cls
								 minut+=5
								 swallow+=1
								 cumlip+=1
								 gs'stat'
								 '<center><img src="qwest/alter/artom/bjcum.jpg" ></center>'
								 'You looked at him wide-eyed В«I understand that you are bolder - but not too much you want?I went home.В»
Artem: В«Sorry! Please do not go.В»He grabs you by the hand and starts to kiss them gradually rising higher. You melts from his kisses kneel and take a cock in her mouth and starts to suck . With one hand. Artem is discharged into your mouth and you will quickly swallow all.
Artem: В«Forgive me - I`ll never never talk about it ...В»
Do_You: В«Well ,when I`m ready and in the mood.В»
'
								 	 if lernHome>0:
									 act'teach lessons':artemhomemark=2&gt $curloc
									 else
									 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
									 end
								 end
								 
								 act'agree':
								 cls
								 minut+=15
								 anala+=1
								 artomanal+=1
								 gs'stat'
								 '<center><img src="qwest/alter/artom/anal.jpg" ></center>'
								 'Do_You: В« Yes_I_Am . But first you need to clean yourself ... in short it is necessary to do an enema. You have?В»
Artem: В«Yes.В»
Artem brings enema .You go to the bathroom and make yourself an enema.
Having come into the room you get cancer and you say: В«So now need grease or petroleum jelly -Do you have? Look in the medicine cabinet.В»'
                                 dynamic $analsexrude
                                 
								 	 if lernHome>0:
									 act'teach lessons':artemhomemark=2&gt $curloc
									 else
									 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
									 end
								 end
							 end
			             end
			         else
			         
						 act'Otdatsya':
						 cls
						 minut+=5
						 sexa+=1
						 if artomsex=1:artomsex+=1
						 gs'stat'
						 '<center><img src="qwest/alter/artom/sex.jpg" ></center>'
						 'You undressed and lay on his back.'
						 dynamic $sexstart
						 dynamic $sexstart2
						 dynamic $sexcum
						 if artomsex=0:artomsex=1&'В«Here you are the manВ»-Say you smile.
				Artem: В«Light ... I ... my I love you ....В»
				In response. 
				'
						 	 if lernHome>0:
							 act'teach lessons':artemhomemark=2&gt $curloc
							 else
							 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
							 end
						 end
					 
					 end
					 
					 
					 
					 act'continue to suck':
					 cls
					 minut+=5
					     if horny<90:
					     $timeorgart='In swallow all his sperm and carefully lick dick.'
					     end
					     if horny>=90:
					     $timeorgart='Without removing a member from the mouth you bring themselves to orgasm. During orgasm you swallow all his sperm and carefully lick dick.'
					     horny=0
					     orgasm+=1
					     end
					 swallow+=1
					 cumlip+=1
					 gs'stat'
					 '<center><img src="qwest/alter/artom/bjcum.jpg" ></center>'
					 'You accelerate the pace of not paying attention to the words of one hand caressing herself.
			В«Now I finishВ»-Artem said. <<$timeorgart>>
			Do_You: В«did you like it?В»
			Artem: В«very_Much. It was really coolВ»
			'
					 	 if lernHome>0:
						 act'teach lessons':artemhomemark=2&gt $curloc
						 else
						 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
						 end
					 end
					 
					 
				 end
             end
		 end
     end
     
     if dimaFilm>0 and arthakQW=0 and vagina>0:
         act'Ask Artem steal video filmed Dima with you':
         cls
         minut+=15
         gs'stat'
         '<center><img src="qwest/alter/artom/2.jpg" ></center>'
         'Do_You: В«Artem we`re more than friends?В»
Artem: В« Of_Course.В»
Do_You: В«Could you help me with one simple fact is not? After all, well versed in computers?В».
Artem: В« certainly help. tell .В»
Do_You: В«promise? Well. It stores it on your computer. Could you hack it and destroy this computer record. Just do not see it pozhalusta! В»
Artem : В«Okay. And that on the record?В»
'
             act'to_lie':
			 cls
			 minut+=5
			 artomhakday=daystart
			 arthakQW=1
			 gs'stat'
			 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
			 'В«YesВ» you lied.'
				 if lernHome>0:
				 act'teach lessons':artemhomemark=2&gt $curloc
				 else
				 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
				 end
			 end
			 
             act'tell the truth':
			 cls
			 minut+=5
			 artomhakday=daystart
			 arthakQW=2
			 gs'stat'
			 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
			 'В« It seemed to me that I love him and he took off like I`m doing him a blow job - now he is blackmailing me this.В» you said Artem downcast eyes.'
			 	 if lernHome>0:
				 act'teach lessons':artemhomemark=2&gt $curloc
				 else
				 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
				 end
			 end
         end
     end
     
     
     if lernHome>0:act'teach lessons':artemhomemark=2&gt $curloc
     
     act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
     
     if talkartemday!daystart:
         act'Chat with Artem':
         cls
         artemtimes+=1
         talkartemday=daystart
         lern+=RAND(3,6)
	     intel+=RAND(1,2)
         minut+=60
         manna+=10
         gs'stat'
         '<center><img src="qwest/alter/npc/<<2>>.jpg" ></center>'
         'You talked for an hour with Artem. Rather you are talking, and Artem listened to your stream of consciousness.'
         act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
         end
     end
end
if artemhomemark=2:
	 minut+=60
	 grupNPC[2]+=10
	 lernHome=0
	 lern+=RAND(3,6)
	 intel+=RAND(1,2)
	 artemtimes+=1
	 if ArtomBeInHome=0:ArtomBeInHome=1
	 gs'stat'
	 '<center><img src="qwest/alter/npc/<<2>>.jpg" ></center>'
	 'Did you do with Artem in under an hour, During this time he helped you with homework and explained something of the studied material.'
	 act'rest':artemhomemark=1&gt $curloc
end







--- artemhome ---------------------------------

# katjaEv
$din_katja_kiss={
act 'kiss':
cls
minut+=5
manna+=100
horny+=10
KatjaHorny+=10
     if katjaFirstKiss=0:
     katjaFirstKiss=1
     KatjaLust=10
     KatjaSlut=10
     KatjaDom=50
     KatjaOTN=1
     end
gs'stat'
gs'katjaEvDin'
gs'KatjaHomeDin'
'<center><img src="qwest/alter/katja/kiss.jpg" ></center>'
'You have brought her face -to-face and Katie felt her hot breath on his lips. Kate closed her eyes and touched his lips to your lips. In your mouth penetrated nimble tongue Katie that you started to suck, then your tongue entered her mouth and Katin it very gently caressing it with his tongue and sucked. Kate finally pushed you to his flushed face and licked.'
     if KatjaHorny>=75:
     'Kate handed the pen to your chest and gently stroked her finger.'
         act 'touch the breast':
         cls
         minut+=5
         horny+=10
         KatjaHorny+=10
         KatjaLust+=1
         gs'stat'
         '<center><img src="qwest/alter/katja/touch.jpg" ></center>'
         'You touched the tender breast Katie and Kate took a deep breath biting her lip.'
         katjalustrand=rand(0,30)
             if KatjaLust<katjalustrand:
             'You touched a little chest of each other and Kate moved away from you.'
             act 'further':gt'KatjaHomeTalk'
                 if dom>0:
                     act 'grab it':
					 cls
					 minut+=5
					 horny+=10
					 dom-=1
					 KatjaDom-=5
					 KatjaHorny-=10
					 KatjaLust+=1
					 gs'stat'
					 '<center><img src="qwest/alter/katja/grab.jpg" ></center>'
					 'You grabbed Katya not giving her wriggle.'
						 if dom<KatjaDom:
						 'Katya firmly took your hand and remove them from themselves, allowing you to understand, that you have already completed.'
						 act 'Say goodbye and go home':minut+=15&gt'gorodok'
						 else
						 'Kate stopped in your hands, while you stroked her body and kissed her neck.'
						     act 'Lick her breasts':
							 cls
							 minut+=5
							 horny+=10
							 KatjaDom-=1
							 KatjaHorny+=10
							 KatjaLust+=1
							 gs'stat'
							 '<center><img src="qwest/alter/katja/tits.jpg" ></center>'
							 'You got a big but not strong chest Katie out of their clothes and began to lick her tongue. Kate closed her eyes in pleasure and bit her lip.'
							     if npcSex[14]=0:
							     'After a while Katya clean your hands away from you.'
							     act 'further':gt'KatjaHomeTalk'
							     end
							     if npcSex[14]>0:
							     dynamic $d_katja_sex
							     end
							 end
						 end
					 end
                 end
             else
             'Katya started stronger stroking your chest and you feel as it removes your bra trying to get to your breasts.'
                 act 'let her':
				 cls
				 minut+=5
				 horny+=10
				 KatjaDom+=1
				 KatjaHorny+=10
				 KatjaLust+=1
				 gs'stat'
				 '<center><img src="qwest/alter/katja/tits.jpg" ></center>'
				 'Kate bared your breasts and touched her with his fingers, then she bent her head and began to lick your nipple.'
				     if npcSex[14]=0: 
				     'Lick your breasts while Kate stood up and turned away started to clean the room.'
				     act 'further':gt'KatjaHomeTalk'
				     end
					 if npcSex[14]>0:
					 dynamic $d_katja_sex
					 end
				 end
				 
				 act 'Remove her hands':
				 cls
				 dom+=1
				 minut+=5
				 horny+=10
				 KatjaDom-=1
				 KatjaHorny-=10
				 KatjaLust+=1
				 gs'stat'
				 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
				 'You have removed her hands and smiled Katya fun.'
				 act 'further':gt'KatjaHomeTalk'
				 end
             end
         end
     else
     'Kate turned and began to collect books pretending, that there was nothing.'
     act 'Say goodbye and go home':gt'gorodok'
     
     end
end
}


katjaMeynoldday=day
gs'stat'
gs'KatjaHomeDin'
gs'katjaEvDin'
'<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
'<center><img src="qwest/alter/npc/14.jpg" ></center>'
'Kate looks at you smiling. "light, go to my, together learn the lessons."'
if fedorKozlovQW>=10:
'To you and Katya fits Fedor. "Hi girls, that they have devised?" Katya hesitate to tell "Here we want to go together to teach lessons." Fedor much thought and said "Well. Then before the meeting." Then turned and walked away.'
end

'KatjaLust - <<KatjaLust>>'
'KatjaSlut - <<KatjaSlut>>'
'KatjaDom - <<KatjaDom>>'
'KatjaMastr - <<KatjaMastr>>'

act 'Say goodbye and go home':gt'gorodok'


act 'Go with Kate':
cls
minut+=15
manna+=100
gs'stat'
'<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
'<center><img src="qwest/alter/npc/14.jpg" ></center>'
'You walk through the streets of the town . You and chatted about all sorts of trivia and have fun.'
if albinaQWdance>0 and AlbinaBlokDance=0:'Katya keenly interested how are you doing with Zvezdushkami. In her opinion it is a very private team, wander in a variety of rumors about the team Albina.'
if kotovLoveQW>0:'Kate asks you about your relationship with Vityok Kotov, simultaneously expressing an opinion about it. According to her Vitek rough and he`s a real gangster.'
if pirsA = 1 and KatjaKnowPirsA=0:
KatjaKnowPirsA=1
KatjaLust+=5
'Kate noticed you have a pierced tongue and chattered all the way to finding out you details.'
end
'Finally you come to her house. private, two storey house, with attached garage and a fairly large garden gives the impression of grooming and order. Katia shows you the way to your room'
     act 'Go into the room Katie':
	 cls
	 minut+=15
	 manna+=100
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
	 'The room Katya did not quite clean and all around her are things. Katya throws his ryukzachek on the floor and pulls textbooks and notebooks.'
		 act 'Engage with Kate':
		 cls
		 minut+=30
		 grupNPC[14]+=10
		 lernHome=0
		 lern+=RAND(2,4)
		 intel+=RAND(0,1)
		 katjaLernTimes+=1
		 gs'stat'
		 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
		 'For half an hour, what did you do with Kate you are fully learned the lessons and not quite bad learned material.'
		     if katjaLernTimes>=10:
		     katjaLernQW+=1
		         if katjaLernQW<5:
		         katrand=rand(0,3)
		         if katrand=0:'You notice that Kate stares into your eyes, as if to, that is to ask, but turns.'
		         if katrand=1:'You notice that Kate blushed and turned away from you.'
		         if katrand=2:'Kate accidentally puts his palm on your knee, then quickly removes her.'
		         if katrand=3:'Kate smiles at you completely stupid smile, then turns.'
		         end
		         if katjaLernQW=5:
		         'Kate thinks about something, then embarrassed and blushing asks you "light, and you have kissed boys?"'
		             act 'Yes_I_Am':
		             cls
		             gs'stat'
		             '<center><img src="qwest/alter/npc/14.jpg" ></center>'
		             'You smiled and said Katya, which of course you kissing boys. Katya shy even stronger. "You see the Light, I like a guy, He is older than me, and I`m afraid, that when we start kissing, I will, something wrong. Could you teach me how to kiss?"'
		             dynamic $din_katja_kiss
		                 act 'No':
						 cls
						 katjaLernQW=0
						 katjaLernTimes=1
						 gs'stat'
						 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
						 'You refused to kiss with Kate and she was mad at you.'
						 act 'Say goodbye and go home':minut+=15&gt'gorodok'
						 end
		             end
		             
		             act 'No':
		             cls
		             gs'stat'
		             '<center><img src="qwest/alter/npc/14.jpg" ></center>'
		             'You shook his head and said, not kissing. Katya shy even stronger. "You see the Light, I like a guy, He is older than me, and I`m afraid, that when we start kissing, I will, something wrong. Maybe we could try to kiss, what to learn?"'
		             dynamic $din_katja_kiss
		             	 act 'No':
						 cls
						 katjaLernQW=0
						 katjaLernTimes=1
						 gs'stat'
						 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
						 'You refused to kiss with Kate and she was mad at you.'
						 act 'Say goodbye and go home':minut+=15&gt'gorodok'
						 end
		             end
		         exit
		         end
		         if katjaLernQW>=6:
		         katjaDeystRand=rand(0,2)
					 if katjaDeystRand=0:
						 dynamic $d_katjahornykiss
						 act 'Say goodbye and go home':minut+=15&KatjaHorny-=5&gt'gorodok'
					 exit
					 end
					 
					 if katjaDeystRand=1:
					     if npcSex[14]=1:
						 'Katya invited you to take a walk in the park.'
						 
						 act 'Go to the park':
						 minut+=15
						 KatjaHorny+=5
						 $ev_name='katya'
						 $ev_name_a='Katya'
						 $ev_name_om='Katya'
						 dick=0
						 place=1
						 Frend_num=14
						 p_lust=KatjaLust
						 p_slut=KatjaSlut
						 p_dom=KatjaDom
						 p_horny=KatjaHorny
						 p_alko=0
						 gt'placer'
						 end
						 
						 act 'And refuse to go home':minut+=15&KatjaHorny-=5&gt'gorodok'
						 exit
					     end
					     
					     if npcSex[14]=0:
					     KatjaHorny+=5
					     KatjaLust+=1
					     'Kate started chatting about boys, cosmetics and school with you.'
					     act 'Say goodbye and go home':minut+=15&gt'gorodok'
					     end
					 end
					 
					 if katjaDeystRand=2 and sweat>0:
					 'Kate wrinkled her nose "Sveta, you`re all sweaty, go to the shower?"'
					     act 'Go to the shower':
					     cls
					     minut+=15
					     gs'stat'
					         if KatjaHorny>=50:
					         'Kate held you in the shower. She blushed and said "I, Come join Pomo."'
					         	 act 'one wash':
					             cls
					         	 dynamic $showerdin
								 minut+=15
								 set horny = horny + 1
								 set hapri = 1
								 set mop = 1
								 set sweat = -3
								 if frost>0:frost=0
								 gs'stat'
								 '<center><img src="pics/dush.jpg" ></center>'
								 'You kicked out of the shower and Kate closed the door. You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
									 act 'Get out of the shower':
									 cls
									 gs'stat'
									 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
									 'You came out of the shower and walked into the room to Katya. You have chatted and Katya said, what she was doing.'
									 act 'Say goodbye and go home':minut+=15&gt'gorodok'
									 end
									
								 end
								 
								 act 'bathe together':
					             cls
					         	 dynamic $showerdin
								 minut+=15
								 set horny = horny + 1
								 set hapri = 1
								 set mop = 1
								 set sweat = -3
								 if frost>0:frost=0
								 horny+=10
								 KatjaHorny+=10
								 KatjaLust+=1
								 gs'stat'
								 '<center><img src="qwest/alter/katja/shower.jpg" ></center>'
								 'You undressed and climbed together with Katya in the shower.'
								 	 if lobok <= 0:
								     'Katie eyes slid over your body a little lingering on your breasts and pussy. Kate took a shower together and you became watered.'
								     
								         act 'further':
					                     cls
					                     gs'stat'
					                     '<center><img src="qwest/alter/katja/shower2.jpg" ></center>'
					                     'Kate gently shampooed you gel and rinse with warm shower jets.'
					                     	 if KatjaLust>=10 and KatjaHorny>=90:
					                         'Kate washed with soap your pussy and breasts gentle stroking his little palms. Her cheeks were flushed and her eyes glistened.'
					                         dynamic $katja_shower_kiss
					                         else
					                         'Kate finally finished and you wash herself pomylas.'
					                         	 act 'Get out of the shower':
												 cls
												 gs'stat'
												 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
												 'You came out of the shower and walked into the room to Katya. You have chatted and Katya said, what she was doing.'
												 act 'Say goodbye and go home':minut+=15&gt'gorodok'
												 end
					                         end
					                     end
								     end
								     if lobok > 0:
								     'Katie eyes slid over your body a little lingering on her breasts and pubic hair. Kate smiled "Svetulya, you got such vegetation, it is no longer fashionable, I`ll let sbreyu hair."'
								     	 act 'Shave the hair between her legs':
					                     cls
					                     minut+=5
					                     lobok=-3
					                     KatjaHorny+=10
								         KatjaLust+=1
					                     gs'stat'
					                     '<center><img src="qwest/alter/katja/lobok.jpg" ></center>'
					                     'Kate sat in the bathroom and you lathered your crotch passing lathered his stomach and chest. She took a razor and began to gently shave your hairs between her legs.'
					                         if KatjaLust>=10 and KatjaHorny>=90:
					                         'Kate washed with soap your pussy and breasts gentle stroking his little palms. Her cheeks were flushed and her eyes glistened.'
					                         dynamic $katja_shower_kiss
					                         else
					                         'Kate finally shaved all your hair between her legs and began to wash off with soap you.'
					                         	 act 'Get out of the shower':
												 cls
												 gs'stat'
												 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
												 'You came out of the shower and walked into the room to Katya. You have chatted and Katya said, what she was doing.'
												 act 'Say goodbye and go home':minut+=15&gt'gorodok'
												 end
					                         end
					                     end
								     end
								     
									
								 end
					         end
					         
					         if KatjaHorny<50:
					         dynamic $showerdin
							 minut+=15
							 set horny = horny + 1
							 set hapri = 1
							 set mop = 1
							 set sweat = -3
							 if frost>0:frost=0
							 gs'stat'
							 '<center><img src="pics/dush.jpg" ></center>'
							 'Kate showed you where the toiletries and came out of the shower. You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
								 act 'Get out of the shower':
								 cls
								 gs'stat'
								 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
								 'You came out of the shower and walked into the room to Katya. You have chatted and Katya said, what she was doing.'
								 act 'Say goodbye and go home':minut+=15&gt'gorodok'
								 end
								
					         end
					     end
					     
					 act 'And refuse to go home':minut+=15&KatjaHorny-=5&gt'gorodok'
					 exit
					 end
					 
					 if katjaDeystRand=2 and sweat<=0:
                     dynamic $d_katjaSextalk
					 exit
					 end
		         end
		     end
		 act 'Say goodbye and go home':minut+=15&gt'gorodok'
		 end
	 end
end





--- katjaEv ---------------------------------

# katjaEvDin
$katja_shower_kiss={
cls
horny+=10
KatjaLust+=10
KatjaSlut+=1
KatjaHorny+=10
gs'stat'
'<center><img src="qwest/alter/katja/showerkiss.jpg" ></center>'
'Kate gently hugged you with one hand and kissed him on the lips, you feel her soft palm lay naked on your pubis and her thin finger fingering your clitoris began to caress him.'
     if KatjaSlut>=10:
     'Kate gently, but firmly puts you on the edge of the tub.'
     end
     if KatjaSlut<10:
     'Kate gently caresses your clitoris with your fingers and her lips begin to kiss your neck, wading all below.'
     end
     
     act 'Sit on the edge of the tub':
	 cls
	 minut+=5
	 horny+=10
	 KatjaHorny-=10
	 KatjaLust+=1
	 KatjaSlut+=1
	 if npcSex[14]=0:npcSex[14]=1&girl+=1&KatjaSlut+=5&KatjaLust+=5
	 lesbian+=1
	 orgasm+=1
	 horny=0
	 gs'stat'
	 '<center><img src="qwest/alter/katja/showersex.jpg" ></center>'
	 'You sat on the edge of the tub and pushed open his feet wet pussy. Katya vsala on his knees in front of you and gently licked your swollen red petals. Her tongue began briskly caress your pussy do not forget about the clitoris. Soon bliss enveloped your entire body. Have you noticed how Katie sklznula hand between her legs and began to move there. Suddenly you covered powerful orgasm from kotorgo you almost lose consciousness, your whole body bends in convulsions and hot wave blazhnstva cover you.'
	 act 'Say goodbye and go home':gt'gorodok'
	 end
     
     
	 act 'Remove her hands':
	 cls
	 dom+=1
	 minut+=5
	 horny+=10
	 KatjaDom-=1
	 KatjaHorny-=10
	 KatjaLust+=1
	 gs'stat'
	 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
	 'You have removed her hands and smiled Katya fun. You domylis Katya shyly looked away and left the bathroom.'
	 act 'Say goodbye and go home':gt'gorodok'
	 end
}
$d_katja_sex={
	 act 'relax':
	 cls
	 if horny<50:horny=50
	 gs'stat'
	     if KatjaSlut>=20:
	         KatjaSlut+=1
	         
	         'Kate put her pen between your legs and you become easily compress your small lips.'
	         dynamic $d_katja_kuni_p
	     else
	     KatjaLust+=1
	     'Katya embarrassed and pulled away from you.'
	     act 'Say goodbye and go home':gt'gorodok'
	     end
	 end
	 
	 act 'Katja touch between her legs':
	 cls
	 if horny<50:horny=50
	 gs'stat'
	     if KatjaSlut>=20:
	         KatjaSlut+=1
	         KatjaLust+=1
	         'You put your hand between her legs Katie feeling her hot and wet pussy under panties.'
	         dynamic $d_katja_kuni
	     else
	         if dom>0:
	         KatjaSlut+=1
	         KatjaLust+=1
	         'You put your hand between her legs Katie feeling her hot and wet pussy under panties.'
	         dynamic $d_katja_kuni
	         else
	         KatjaSlut+=1
	         KatjaLust+=1
	         'Katya embarrassed and clean your hands.'
	         act 'Say goodbye and go home':gt'gorodok'
	         end
	     end
	 end

}
$d_katja_kuni={
	 act 'Katya licking':
	 cls
	 KatjaSlut+=1
	 KatjaLust+=1
	 lesbian+=1
	 KatjaHorny=0
	 if npcSex[14]=0:npcSex[14]=1&girl+=1&KatjaSlut+=5&KatjaLust+=5
	 gs'stat'
	 '<center><img src="qwest/alter/katja/kuni2.jpg" ></center>'
	 'You leaned Katya between his legs and began to lick her pussy, Kate moaned and closed her eyes enjoying your tongue, after a while Kate shivered and her pussy start to contract rhythmically, Kate clutched in your hair and not holding back moaning. Then she pushed your head away from you.'
	     if horny>=50:
	     'Kate smiled at you "It was great Svetulya, Spread your legs."'
	     dynamic $d_katja_kuni_p
	     else
	     act 'Say goodbye and go home':gt'gorodok'
	     end
	 end
}
$d_katja_kuni_p={
	 act 'spread her legs':
	 cls
	 KatjaSlut+=1
	 KatjaLust+=1
	 lesbian+=1
	 orgasm+=1
	 horny=0
	 if npcSex[14]=0:npcSex[14]=1&girl+=1&KatjaSlut+=5&KatjaLust+=5
	 gs'stat'
	 '<center><img src="qwest/alter/katja/kuni.jpg" ></center>'
	 'Kate bowed his gololovu between your legs and you felt something like her tongue began to slide on your clitoris, You captured a pleasant bliss. After a while a nice fire in the bottom zhivyota sterpimy not become clogged and you`re in the throes of orgasm, after a while the feeling became too painful and you moved away from Katie.'
	     if KatjaHorny>0:
	     'Kate smiled at you "It was great Svetulya, come on now you tell me."'
	     dynamic $d_katja_kuni
	     else
	     act 'Say goodbye and go home':gt'gorodok'
	     end
	 end
}
















--- katjaEvDin ---------------------------------

# famdorfride
hour=12
minut=0
gs'stat'
minut+=60
gs'stat'
'You got into the Volga and an hour reached the village in which they live Gadyukino your grandparents.'


act'Going into the house':gt'Gadhouse'













--- famdorfride ---------------------------------

# annafrends
gs'stat'
'Around the house drinking beer culture your sister Anya, Lena, Ira, Rex and Roman.'
dialogstartrand=rand(0,4)
if dialogstartrand=0:
!Anya
'Anya outraged polutoralitrovye grabbing a bottle of beer "boys! Well you pour beer today or not?"'
tipDSrand=rand(0,1)
     if tipDSrand=0:
     'Rex took poltorashku from the hands of Ani.'
         tipDSrand2=rand(0,4)
         if tipDSrand2=0:
         *nl'"And why not to shout! now pour!"'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya giggles "I have not yet started to yell, if I start, you oglohnesh."'
             end
             if tipDSrand3=1:
             'Lena resounding slaps on the shoulder Rex "Hurry! And with a hop dog shit, with a hop!"'
             end
             if tipDSrand3=2:
             'Ira smiling "not perturbed, Reksik."'
             tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Anya sprinkles in cam "And then put him on a chain."'
             end
         end
         if tipDSrand2=1:
         *nl'"Well. Relax rolls. Now everything will be."'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya giggles "I have not yet started to yell, if I start, you oglohnesh."'
             end
             if tipDSrand3=1:
             'Lena resounding slaps on the shoulder Rex "Hurry! And with a hop dog shit, with a hop!"'
             end
             if tipDSrand3=2:
             'Roma giggles "Here and so it stinks. And if it rolls and relax, we run the risk of suffocation!"'
             tipDSrand4=rand(0,2)
                 if tipDSrand4=0:
                 'Anya quips "You will forever remain a virgin, Roma."'
                 tipDSrandA=rand(0,10)
                     if tipDSrandA=0:
                     'Roma grins "It was an offer?"'
                     tipDSrand5=rand(0,2)
                         if tipDSrand5=0:
                         'Anya laughs "dream on, saffron_milk_cap."'
                         end
                         if tipDSrand5=1:
                         'Anya laughs "Only in your dreams, saffron_milk_cap."'
                         end
                         if tipDSrand5=2:
                         'Anya laughs "Yup, schazz. hear the tramp? Already ran to give."'
                         end
                     end
                 end
                 if tipDSrand4=1:
                 'Anya quips "And you udivlyaeshsya, what do you girls do not give Roma."'
                 tipDSrandA=rand(0,10)
                     if tipDSrandA=0:'Rex grins "Yeah, our eternal virgin Roma is able to revive the conversation on the topic of anal gases."'
                 end
                 if tipDSrand4=2:
                 'Anya quips "It`s the smell of you."'
                 tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Roma grins "yes no, it is sobachatiny."'
                 end
             end
         end
         if tipDSrand2=2:
         *nl'"Th, hand unscrew the cork no?"'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya giggles "And then what for you need?"'
              tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Rex with mock indignation "Around one operation."'
             end
             if tipDSrand3=1:
             'Lena resounding slaps on the shoulder Rex "You`re like a girl talking?"'
             tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Rex with mock indignation "According to Russian I talking to her."'
             end
             if tipDSrand3=2:
             'Ira smiling "not perturbed, Reksik."'
             tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Anya sprinkles in cam "And then put him on a chain."'
             end
         end
         if tipDSrand2=3:
         *nl'"Let blown, madam."'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya giggles "authorize, monsieur."'
             end
             if tipDSrand3=1:
             'Anya with mock indignation says "not Madame, and Mademoiselle!"'
              tipDSrandA=rand(0,10)
                 if tipDSrandA=0:'Rex bowing gallantly "Miles sorry Mademoiselle."'
             end
             if tipDSrand3=2:
             'Anya says impatiently "pour already, clown."'
             end
         end
         if tipDSrand2=4:
         *nl'"shit!!! where cups? We did not buy their?"'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya takes cups "Here they are, blind beast."'
             end
             if tipDSrand3=1:
             'Roma notices "Rex, you yourself would take them in the store, absolutely no memory or something?"'
             end
             if tipDSrand3=2:
             'Lena enough cups "Rex, do not pull the rubber."'
             end
         end
     end
     if tipDSrand=1:
     'Roma took the bottle out of the hands polutoralitrovye Ani and began to print. "Hold somebody cups."'
      tipDSrand2=rand(0,2)
         if tipDSrand2=0:
         'Rex took the cups and Roma began to pour beer on plastic glasses.'
         end
         if tipDSrand2=1:
         'Rex took cups "That`s the same armless horseradish. Itself can not or something?"'
         end
         if tipDSrand2=2:
         'Ira took cups "pour already, Mount onion."'
         end
     tipDSrandA=rand(0,3)
         if tipDSrandA=0:
         'Beer spilling from a cup and rushed to the ground.'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
			 'Rex protested. "Here are you armless horseradish! Nothing can you trust!"'
			 end
			 if tipDSrand3=1:
			 'Rex protested. "No, Well?"'
			 end
			 if tipDSrand3=2:
			 'Anya was indignant. "Always the same, if saffron pours, be sure to spill."'
			 end
         end
     end
end
if dialogstartrand=1:
!Lena
'Lena indignantly "We came to drink beer or enjoy them?"'
dialogstartrand=rand(3,4)
end
if dialogstartrand=2:
!Ira
'Ira flirting and clapping eyes "Boys, and today we are going to drink beer?"'
dialogstartrand=rand(3,4)
end
if dialogstartrand=3:
!Rex
tipDSrand=rand(0,1)
     if tipDSrand=0:
     'Rex took poltorashku beer and unscrewed the cap.'
     tipDSrand2=rand(0,2)
         if tipDSrand2=0:
         *nl'"shit!!! where cups? We did not buy their?"'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
             'Anya takes cups "Here they are, blind beast."'
             end
             if tipDSrand3=1:
             'Roma notices "Rex, you yourself would take them in the store, absolutely no memory or something?"'
             end
             if tipDSrand3=2:
             'Lena enough cups "Rex, do not pull the rubber."'
             end
         end
         if tipDSrand2=1:
         *nl'"Romka, Hold cups, while I pour."'
         end
     end
     if tipDSrand=1:
     'Rex took poltorashku beer and handed it to Roma. "pour, which froze."'
     'Roma took polutoralitrovye beer bottle and began to print. "Hold somebody cups."'
      tipDSrand2=rand(0,2)
         if tipDSrand2=0:
         'Rex took the cups and Roma began to pour beer on plastic glasses.'
         end
         if tipDSrand2=1:
         'Rex took cups "That`s the same armless horseradish. Itself can not or something?"'
         end
         if tipDSrand2=2:
         'Ira took cups "pour already, Mount onion."'
         end
     tipDSrandA=rand(0,3)
         if tipDSrandA=0:
         'Beer spilling from a cup and rushed to the ground.'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
			 'Rex protested. "Here are you armless horseradish! Nothing can you trust!"'
			 end
			 if tipDSrand3=1:
			 'Rex protested. "No, Well?"'
			 end
			 if tipDSrand3=2:
			 'Anya was indignant. "Always the same, if saffron pours, be sure to spill."'
			 end
         end
     end
end
if dialogstartrand=4:
!Roma Meynold
'Roma took polutoralitrovye beer bottle and began to print. "Hold somebody cups."'
      tipDSrand2=rand(0,2)
         if tipDSrand2=0:
         'Rex took the cups and Roma began to pour beer on plastic glasses.'
         end
         if tipDSrand2=1:
         'Rex took cups "That`s the same armless horseradish. Itself can not or something?"'
         end
         if tipDSrand2=2:
         'Ira took cups "pour already, Mount onion."'
         end
     tipDSrandA=rand(0,3)
         if tipDSrandA=0:
         'Beer spilling from a cup and rushed to the ground.'
         tipDSrand3=rand(0,2)
             if tipDSrand3=0:
			 'Rex protested. "Here are you armless horseradish! Nothing can you trust!"'
			 end
			 if tipDSrand3=1:
			 'Rex protested. "No, Well?"'
			 end
			 if tipDSrand3=2:
			 'Anya was indignant. "Always the same, if saffron pours, be sure to spill."'
			 end
         end
end
'Finally. You drank beer together with all.'

act 'further':SiSonWork=0&SiSgdk=0&gt 'annafrends2'






--- annafrends ---------------------------------

# annafrends2
gs'stat'
'Poltorashka beer was drunk and the guys quickly got a new bottle.'
temarand=rand(0,1)
if temarand=0:
gennpc=rand(0,2)
     if gennpc=0:
     'Anya came to you. "light, go to the toilet."'
     end
     if gennpc=1:
     'Lena came to you. "light, you do not want the toilet?"'
     end
     if gennpc=2:
     'Ira came to you. "Sveta, you do not want to go some where?"'
     end
     act 'go together':gt'annafrendtoilet'
end
if temarand=1:
'The boys went to the corner of the club, that would empty the bladder leaving some devchenok.'
end
if temarand=2:
''
end
if temarand=3:
''
end
if temarand=4:
''
end
if temarand=5:
''
end
if temarand=6:
''
end
if temarand=7:
''
end


act 'Get_Away':SiSonWork=0&SiSgdk=0&gt 'gdk'











--- annafrends2 ---------------------------------

# annafrendtoilet
minut+=5
gs'stat'
if gennpc=0:$annafrendname='Anya'&$annafrendname2='Anya'
if gennpc=1:$annafrendname='Lena'&$annafrendname2='Lena'
if gennpc=2:$annafrendname='Ira'&$annafrendname2='Ira'
'<center><img src="qwest/alter/Ev/piss.jpg" ></center>'
'You went to the <<$annafrendname>> in the bushes behind the club. <<$annafrendname2>> looked, lifted her skirt, pulled the tights and squatted. Between the legs by a gushing stream jet on the ground.'


act 'Get_Away':SiSonWork=0&SiSgdk=0&gt 'gdk'
--- annafrendtoilet ---------------------------------

# placer
!$ev_name='Fedor'
!$ev_name_a='Fedor'
!$ev_name_om='Fedor'
!dick=17
!silavag=0
!gnpcSex[numnpc] - sex
!grupNPC[numnpc] - relationship

!the presence of NPC theoretically able to meet
mass_ver_zn=0
!want or do not meet NPCs
ver_zn=0
!the number of men
kol_man=0
!greeting text
$text_znak=''
!the possibility of knowledge turnip years
know_status=0
!identified reputation or not
know_gor_slut=0
!reset text
$kol_man_text_no=''

plact=0

gs'stat'
$textEvent=''
if place=0:
!street
     if litltown=1:$numplace='gorodok'
end
if place=1:
!square
$numplace='gskver'
end
if place=2:
!movie

end
if place=3:
!home to the guy. preposition Vidic

end
if place=4:
!disco in town

end

gt'placer_<<$numplace>>'
--- placer ---------------------------------

# placer_gskver
 if hour >=22 or hour <8:
 encounter=0
 else
 encounter=rand(0,5)
 end
 
 if encounter=0:
 !no one in the park
 $textEvent='In the park is quiet and deserted. No one in sight.'
 end
 if encounter=1:
 !people in the park 1mother walking with a baby 2old_man 3woman with shopping bags 4two young girls
 encrand=rand(0,4)
 if encrand=0:$textEvent='In a park on the sidewalk walking young mother with a stroller.'
 if encrand=1:$textEvent='In a park on the sidewalk walking a lonely old man with a newspaper in his hand.'
 if encrand=2:$textEvent='In a park on the sidewalk is a woman with shopping bags chooses to shorten the route passing through the Square.'
 if encrand=3:$textEvent='In a park on the sidewalk walking two young girls.'
	 if encrand=4:
	 kol_man=rand(1,5)
	 if kol_man=1:$textSub='is a guy'
	 if kol_man=2:$textSub='are two guys'
	 if kol_man=3:$textSub='are three guys'
	 if kol_man=4:$textSub='four guys'
	 if kol_man=5:$textSub='five guys'         
	 $textEvent='In a park on the sidewalk <<$textSub>>.'
	 mass_ver_zn=1
	 know_status=1
	 end
 end
 if encounter=2:
 !dog in the park
 $textEvent='In the park is quiet and deserted only a solitary dog sniffing for something near the sidewalk.'
 end
 if encounter=3:
 !young people in the park company
 $textEvent='In the park sits on a bench youth campaign.'
 kol_man=rand(2,6)
 mass_ver_zn=1
 know_status=1
 end
 if encounter=4:
 !Gopnik in the park
 kol_man=rand(3,6)
 $textEvent='In the park sitting on his haunches Gopnik and drink beer.'
 mass_ver_zn=1
 know_status=2
 end
 if encounter=5:
 !couple in love in the park
 $textEvent='In the park walking in love couple.'
 end
 if encounter=6:
 !in the square of the familiar class
 end
 if dickfrend>0:ver_zn=0
 gs'placer_man'

 
if hour >= 8 and hour <22:'<center><img src="gevent/skver.jpg" ></center>'
if hour >=22 or hour <8:'<center><img src="gevent/skver.jpg" ></center>'
 if Frend_num>0:
 'along with <<$ev_name_om>> you come to a quiet park. <<$textEvent>>'
	 if dickfrend>0:
	 !your friend guy
	 	 if kol_man=1 and $text_znak='':$kol_man_text_no='after, the guy looked at you, he turned away.'
	     if kol_man>1 and $text_znak='':$kol_man_text_no='after, as you guys have examined, they turned away.'
	 if kol_man>0:'You looked<<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'+$text_znak
	 
	 !!!!!!!!!!action with a guy whom came to the square
	 end
	 if dickfrend=0:
	 !your friend girl
	     if ver_zn=1:
	     'At you with his girlfriend looked<<$kol_man_prefiks>> appreciatively <<$kol_man_text>>.'
	     if kol_man=1:'A guy came up to you and said "<<$text_znak>>"'
	     if kol_man>1:'Guys come to you and one of the guys said "<<$text_znak>>"'
	         act 'meet':
	         cls
	             if p_dom<80:
                 gt'placer_act'
                 end
                 if p_dom>=80:
                 gs'stat'
                 '<<$ev_name>> hissed in your ear "I`m not acquainted with someone on the street. If you want to, stay, and I will go."'
                 act 'Go with a friend':gt'placer_end'
                     act 'can you go, and I`ll stay':
                     Frend_num=0
                     gt'placer_act'
                     end
                 end
             end
	     end
	     
	     if ver_zn=0 and kol_man>0:
	     if kol_man=1:$kol_man_text_no='after, the guy looked at you, he turned away.'
	     if kol_man>1:$kol_man_text_no='after, as you guys have examined, they turned away.'
	     'At you with his girlfriend looked<<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'
	     end
	     
	     !!!!!!!!!!!!!acts with the girl you came
	     
	 end
	 
	 act 'continue to walk':gt'placer_end'
 end
 if Frend_num=0:
 'You walk through the quiet the square. <<$textEvent>>'
	 if ver_zn=1:
	 'You looked<<$kol_man_prefiks>> appreciatively <<$kol_man_text>>.'
	 	 if kol_man=1:'A guy came up to you and said "<<$text_znak>>"'
	     if kol_man>1:'Guys come to you and one of the guys said "<<$text_znak>>"'
	     act 'meet':gt'placer_act'
	 end
	 if ver_zn=0 and kol_man>0:
	 if kol_man=1:$kol_man_text_no='after, the guy looked at you, he turned away.'
	 if kol_man>1:$kol_man_text_no='after, as you guys have examined, they turned away.'
	 'You looked<<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'
	 end
	 
	 
	 
 act 'Get_Away':gt'gskver'
 end
 
gs'stat'
--- placer_gskver ---------------------------------

# placer_man
if mass_ver_zn>0:
	 !calculation of the probability of dating
	 ver_zn=0
	 vn_ver=rand(0,30)
	 rand_vero=rand(0,1)
	 if vn_ver<vnesh and rand_vero=0:ver_zn=1
	 if dickfrend>0:ver_zn=0
	 if kol_man=1:$kol_man_text='guy'&$kol_man_text_a='Man'&$kol_man_prefiks=''&$kol_man_prefiks_he='he'
	 if kol_man=2:$kol_man_text='two guys'&$kol_man_text_a='guys'&$kol_man_prefiks='and'&$kol_man_prefiks_he='they_Are'
	 if kol_man=3:$kol_man_text='three guys'&$kol_man_text_a='guys'&$kol_man_prefiks='and'&$kol_man_prefiks_he='they_Are'
	 if kol_man=4:$kol_man_text='four Man'&$kol_man_text_a='guys'&$kol_man_prefiks='and'&$kol_man_prefiks_he='they_Are'
	 if kol_man=5:$kol_man_text='five guys'&$kol_man_text_a='guys'&$kol_man_prefiks='and'&$kol_man_prefiks_he='they_Are'
	 if kol_man=6:$kol_man_text='six guys'&$kol_man_text_a='guys'&$kol_man_prefiks='and'&$kol_man_prefiks_he='they_Are'
	 
$text_znak=''
!iconic moments
!

	 if GorSlut>0:
		 if know_status=0:
		 end
		 if know_status=1:
		 knowrand=rand(0,1)
		 end
		 if know_status=2:
		 knowrand=rand(0,4)
		 end
		 if knowrand>=1:know_gor_slut=1
	 end
     
     
     
     if ver_zn=0:
         if know_gor_slut=1:
             if kol_man=1:
             $text_znak=' The guy smiled significantly.'
             end
             if kol_man>1:
             $text_znak=' The boys began to whisper "hey, yes it is Sveta <<$gnikname>>"'
             end
         end
     end
     if ver_zn=1:
         if Frend_num=0:
         slut_vid=0
			 if mop=4:
			 slut_vid+=1
			 end
			 if pirsA>0:
			 slut_vid+=1
			 end
			 if pirsB>0:
			 slut_vid+=1
			 end
			 if tits>2:
			 
			 end
			 if bedra-talia>30:
			 
			 end
			 if glamur>0 or ski>0:
			 
			 end
			 if sport>0:
			 
			 end
			 $txt_a='hello'
			 $txt_b='beauty'
			 if know_status=2:
			 textrand=rand(0,1)
			 if textrand=0:$txt_a='Hallow'
			 if textrand=1:$txt_a='healthy'
			 textrand2=rand(0,1)
			 if textrand2=0:$txt_b='beauty'
			 if textrand2=1:$txt_b='chikulya'
			 end
		 $text_znak='<<$txt_a>> <<$txt_b>>' 
		 end
		 if Frend_num>0 and dick=0:
		 $text_znak='Hi girls!' 
		 if know_status=2:$text_znak='Hello chikuli!'
		 end
     end
     
	 if odethooker=1:
	 randtext=rand(0,5)
	 if randtext=0:$txt_a='hey, Shmarev'
	 if randtext=1:$txt_a='hey, slut'
	 if randtext=2:$txt_a='hey, nipple'
	 if randtext=3:$txt_a='hey, girl'
	 if randtext=4:$txt_a='cool chick, hey'
	 if randtext=5:$txt_a='Oh! prostitute,'
	 randtext2=rand(0,5)
	 if randtext2=0:$txt_b='how do blowjob?'
	 if randtext2=1:$txt_b='for the steward take cheek?'
	 if randtext2=2:$txt_b='cool you zhopets'
	 if randtext2=3:$txt_b='not bad you have boobs'
	 if randtext2=4:$txt_b='you are at work?'
	 if randtext2=5:$txt_b='I look at you working mouth'
	 $text_znak='<<$txt_a>> <<$txt_b>>'
	 end
end





--- placer_man ---------------------------------

# placer_act
gs'stat'
gs'skverdin'
if plact=0:
gs'BnameGen'
if Frend_num>0:$text_mod=' Your girlfriend is also presented as <<$ev_name>>'
if Frend_num=0:$text_mod=''
'You stopped and looked at the guy who approached you, he in turn introduced "my name is <<$bname>>" You answered it "Sveta."'+$text_mod
if know_status=2:
!gopa
'<<$bname>> offered you to join and to drink beer.'
	 if Frend_num=0:
	 end
	 if Frend_num>0:
	 '<<$ev_name>> whispers to you "Yah they nafik, let`s get out."'
	 end
else
!norms
'<<$bname>> offered you to join and to drink beer.'
	 if kol_man=1:
	 	 if Frend_num=0:
	 	 
	     end
	     if Frend_num>0:
	     '<<$ev_name>> whispers to you "interestingly, who he liked, you or me."'
	     end
	 end
	 if kol_man>1:
	 'You vied with each other to invite <<$kol_man_text>> join.'
	     if Frend_num=0:
	     
	     end
	     if Frend_num>0:
	     '<<$ev_name>> whispers to you "Come sit with them a little."'
	     end
	 end
end
act 'drink beer':plact=1&gt $curloc
if Frend_num=0:act 'Get_Away':gt'gskver'
     if Frend_num>0:
         act 'Go with a friend':
         cls
         gs'stat'
             if p_slut<80:
             gt'placer_end'
             end
             if p_slut>=80:
             '<<$ev_name>> whispers to you "Do not be such a bore, sit, fun_too."'
             act 'drink beer':plact=1&gt $curloc
             act 'leave one':gt'gskver'
                 if dom>p_dom/2:
                 act 'drag girlfriend':gt'placer_end'
                 end
             end
         end
     
     end
end
!if slut_vid>0:
!know_gor_slut=1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!drink beer
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if plact=1:
alko+=rand(1,3)
minut+=5
gs'stat'
if Frend_num>0:$textsub=' with a friend '
if Frend_num=0:$textsub=''
if kol_man=1:$textsub2='guy'
if kol_man>1:$textsub2='guys'
'Do_You <<$textsub>> joined <<$textsub2>>. <<$bname>> Beer poured into cups. you drank, <<$kol_man_text>> chatting gaily<<$kol_man_prefiks>> about various trifles and entertained<<$kol_man_prefiks>> you <<$textsub>>.'
	 if know_status=2:
	 !gopa
		 if Frend_num=0:
		     if know_gor_slut=0: 
		     horny+=5
		     'One of the guys came up to you from behind and put his arm around her waist kissed her neck. Other drinking beer and talking among themselves without paying attention to you.'
		         act 'kiss':
		         cls
		         horny+=5
		         minut+=5
		         gs'stat'
		         '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
		         'You kissed a man and his hands began to stroke your body. "In_short, chikul, let`s go to a secluded place, dobuhaem there" tells you gopar.'
					 if dom>0:
					 act 'Refuse to drink and go':gt'gskver'
					 end
					 
					 act 'Go with the guys':
					 cls
					 minut+=5
					 alko+=3
					 gs'stat'
					 'Together with the guys you went down the street to what that shabby house. There`s one of the guys spent the whole company to the apartment. The apartment boys quickly set the table, putting vodka and artful snacks. Vodka poured into glasses and handed one of the glasses you. You drink cheap vodka from which disgusted bore rubber and ate anchovies from banks.'
					 act 'further':gt'gopnik_house'
					 end
		         end
		         
		         act 'Step_back':
		         cls
		         minut+=5
		         gs'stat'
		         'You have stepped back from the guy avoiding kiss and removed his hands.'
		         tiprand=rand(0,2)
		             if tiprand=0:
		             'One of the guys said "In short boys, we all like children, beer, yes beer, let`s take vodyary?" Other enthusiastically supported this idea and soon one of the guys ran somewhere and brought a package with vodka and snack. The boys began to pour vodka into plastic cups. One of these cups held out to you.'
		                 act 'drink':
						 cls
						 minut+=5
						 alko+=3
						 gs'stat'
						 'You drink cheap vodka from which disgusted bore rubber and ate anchovies from banks. You immediately poured another glass of vodka. And the boys began to persuade you to drink.'
						 
						     if dom>0:
						     act 'Refuse to drink and go':gt'gskver'
						     end
						     
						     act 'drink':
							 cls
							 minut+=5
							 alko+=3
							 gs'stat'
							 'You drank another cup of cheap vodka which is contrary to bore rubber and ate anchovies from banks.'
							 
								 if alko<6:
								 'you feel, that very drunk, but are still able to think. A few guys have picked up under your arms and led from the square, soon the whole company came to what that house and you have spent in the basement and put on a dirty mattress.'
                                 end
                                 if alko>=6:
                                 'You feel like the beginning of dizzy and the earth started to slip away from under the feet. Several strong hands gripped you and you somewhere dragged. You could not get to focus vision and you just realized, that you have somewhere to bring. In this place so much bore sewerage, that you start to feel sick.'
                                 end
								 act 'further':gt'podval_rape'
							 end
						 end
						 
						 act 'Get_Away':gt'gskver'
		             end
		             if tiprand=1:
		             'One of the guys said "In_short, boys, that we here in the square hang, I hata free, let`s go back to thump." Were enthusiastically supported this idea.'
		                 act 'Go with the guys':
						 cls
						 minut+=5
						 alko+=3
						 gs'stat'
						 'Together with the guys you went down the street to what that shabby house. There`s one of the guys spent the whole company to the apartment. The apartment boys quickly set the table, putting vodka and artful snacks. Vodka poured into glasses and handed one of the glasses you. You drink cheap vodka from which disgusted bore rubber and ate anchovies from banks.'
						 act 'further':gt'gopnik_house'
						 end
						 
						 act 'Get_Away':gt'gskver'
		             end
		             if tiprand=2:
		             'One of the guys said "In_short, boys, that we here in the square hang, I know there is one place, let`s go back to thump." Were enthusiastically supported this idea.'
		             	 act 'Go with the guys':
						 cls
						 minut+=5
						 gs'stat'
						 'Together with the guys you went down the street to what that shabby house. There`s one of the guys went to the basement door and opened it.'
						     act 'Go to the basement':
							 cls
							 minut+=5
							 gs'stat'
							 'You went into the dark basement floor and damp smelling sewage. In the basement you saw shabby mattress and a bunch of empty bottles. All friendliness guys somewhere disappeared and one of them splashing into a glass of vodka and a glass of handing you said roughly "Pei let."'
								 act 'drink':
								 cls
								 minut+=5
								 alko+=3
								 gs'stat'
								 'You drank all covered in mist and the ground began to shake and rumble underfoot. You helped to sit down on a dirty mattress on the floor.'
								 act 'further':gt'podval_rape'
								 end
								 
								 act 'refuse to drink':
								 cls
								 minut+=5
								 manna=0
								 gs'stat'
								 'You refused to drink and then one of the guys grabbed you and pulled tossed on the mattress.'
								 act 'further':gt'podval_rape'
								 end
							 end
							 
							 act 'Get_Away':
							 cls
							 minut+=5
							 manna=0
							 gs'stat'
							 'You refused to go to the basement and decided to leave. But as soon as you turned around you grabbed by the arm and dragged by force into the basement. In the floor of a dark basement smelled of damp and sewage. You threw on a dirty mattress on the floor .'
								 act 'further':gt'podval_rape'
							 end
						 end
						 
						 act 'Get_Away':gt'gskver'
		             end
		         end
		     end
		     if know_gor_slut=1: 
		     'One of the guys said "Slysh Svetsik, we`re up to date, what do you <<$gnikname>>". Another guy came up to you "In_short, nipple, Now let`s go to one place and will show you where your skills. Will balk, get the teeth, all clear?"'
		     	 act 'Go with the guys':
		         cls
		         gs'stat'
		         'You went with the guys , where one of the guys opened the basement door and looked in, then you took the floor in a dark basement. You saw the empty bottles and dirty mattress on the ground. One of the guys came to you "Well nipple, Come to work." and began to unbutton his pants.'
		             act 'To squat':
		             cls
		             bj+=kol_man
		             guy+=kol_man
		             cumlip+=kol_man/2
		             cumface+=kol_man/2
		             gang+=1
		             gs'stat'
		             '<center><img src="qwest/alter/placer/blowbang.jpg" ></center>'
		             'You sat on his haunches and surrounded you guys took out their members, you started sucking them like a real nadrachivat mnogostanochnitsa. The guys did not last long and took turns to finish on your face covering his sperm.'
		             act 'Get_Away':gt'gskver'
		             end
		         end
		     end
		 
		 end
		 if Frend_num>0:
		     if know_gor_slut=0: 
		     horny+=5
		     'One of the guys came up to your friend and hugged her. Another guy pretty Unleashed came up to you and grabbed your waist.'
		     	 act 'kiss':
		         cls
		         gs'stat'
		         'You began to kiss a guy and he started to touch you. Other guys have offered to go to the hut continue the fun.'
		         act 'Go with the guys':gt 'placer_gop_orgy'
		         end
		         
		         act 'Go with a friend':
		         cls
		         gs'stat'
		         'You are estranged from Gopnik and skazale girlfriend, that are on the go. <<$ev_name>> also became a going away.'
		         act 'Get_Away':gt 'placer_end'
		         end
		         
		     exit
		     end
		     if know_gor_slut=1: 
		     'One of the guys said "Slysh Svetsik, we`re up to date, what do you <<$gnikname>>, polyubasu your girlfriend too." Another guy came up to you. "In short nipples, Now let`s go to one place, and there you are with a friend show their skills. will abut, get the teeth, all clear?"'
		     	 act 'Go with the guys':gt 'placer_gop_orgy'
		         
		         act 'Go with a friend':
		         cls
		         gs'stat'
		         'You stated that Gopnik not going anywhere, guys started coming to you threateningly "Hey sheep, ohuel you something? You nicho not beguiled? You eblische something break?" One of them grabbed you by the hand.'
		         act 'Go with the guys':gt 'placer_gop_orgy'
		             if dom>20:
		                 act 'Get_Away':gt 'placer_end'
		             end
		         end
		         
		     exit
		     end
		 
		 end
	 end
	 if know_status<2:
	 tiprand=rand(0,1)
	 tiploverand=rand(0,1)
	 !norms
		 if kol_man=1:
			 if Frend_num=0 and kol_man=1:
			     if slut_vid>0::
			     'A guy came up to you and hug you.'
			     	 act 'kiss':
					 cls
					 gs'stat'
					 'You began to kiss a guy, he took you by the hand and led somewhere, you were in the bushes with a guy. He unbuttoned his pants and pulled out his already erect member.'
					 
					     act 'hey! What are you doing?':
						 cls
						 gs'stat'
						 'You angrily yelled at the guy "Hey?" The guy smiled "Come virginity something of themselves to build, smeared like a cheap whore, hodish here in the park, snimaeshsya. Come shorter, not my my brain."'
						 dynamic $d_park_placer_bj
						 
						 act 'Get_Away':gt'gskver'
						 end
						 
						 act 'Are you crazy? And if someone sees?':
						 cls
						 gs'stat'
						 'You hissed angrily at the guy "Are you crazy? And if someone sees?" The guy smiled, "Come, no one is".'
						     act 'I can not do':
							 cls
							 gs'stat'
							 'You have flatly refused to be engaged than something similar in a public place and the guy offered to go to him.'
								 act 'Go to guy':
								 cls
								 gs'stat'
								 tiperand=rand(0,1)
								 if tiperand=0:gt'fbHouse'
								 if tiperand=1:gt'fbDorm'
								 if tiperand=2:gt'fbGar'
								 end
								 
								 act 'Get_Away':gt'gskver'
							 end
							 dynamic $d_park_placer_bj
						 end
						 
						 dynamic $d_park_placer_bj
					 end
			     else
			     'The guy offered you to go to his apartment.'
			     	 act 'Go to guy':
					 cls
					 gs'stat'
					 tiperand=rand(0,1)
					 if tiperand=0:gt'fbHouse'
					 if tiperand=1:gt'fbDorm'
					 if tiperand=2:gt'fbGar'
					 end
			     end
			 end
			 if Frend_num>0 and kol_man=1:
				 if tiploverand=0:
				 'While you`re having fun and drinking beer <<$bname>> pay attention to you more often, than your girlfriend. When the beer was over .'
				 	 act 'kiss':
					 cls
					 gs'stat'
					 'Man whispering in your ear "Come to my Svetulya."'
					     if p_slut<50:
					     '<<$ev_name>> seems to have understood all "Fair_Enough, until the light, I`ll go home."'
					     act 'Go with a friend':gt'placer_end'
					     	 act 'Go to guy':
							 cls
							 gs'stat'
							 tiperand=rand(0,2)
							 if tiperand=0:gt'fbHouse'
							 if tiperand=1:gt'fbDorm'
							 if tiperand=2:gt'fbGar'
							 end
					     end
					     if p_slut>=50:
					     '<<$ev_name>> smiled and licked her lips "And take me with you?"'
					     act 'Go the whole company at the apartment':minut+=5&gt 'placer_house'
					     end
					 end
				 end
				 if tiploverand=1:
				 'While you`re having fun and drinking beer <<$bname>> pay attention to your girlfriend more often, than you. When the beer was over .'
				 	 act 'watch':
					 cls
					 gs'stat'
					     if p_slut<30:
					     '<<$ev_name>> tselovatsya Man вЂ‹вЂ‹refused and suggested you go.'
					     act 'Go with a friend':gt'placer_end'
					     end
					     if p_slut>=30 and p_slut<60:
					     '<<$ev_name>> kissing a guy and he starts to caress her whispering something in her ear. <<$ev_name>> turns to you and says, she goes to the guy to visit.'
					         if Frend_num=14:
							 KatjaLust+=10
							 KatjaSlut+=10
							 KatjaHorny=0
							 KatjaSex+=1
							 KatjaGuy+=1
							 KatjaBJ+=1
							 end
					     act 'Get_Away':gt'gskver'
					     end
					      if p_slut>=60:
					     '<<$ev_name>> kissing a guy and he starts to caress her whispering something in her ear. <<$ev_name>> turns to you and offers you innocently "Well Svetsik, you`re with us?"'
					     act 'Get_Away':gt'gskver'
					     act 'Go the whole company at the apartment':minut+=5&gt 'placer_house'
					     end
					     
					 end
				 end
			 end
		 end
		 
		 if kol_man>1:
			 if Frend_num=0:
			 	 if slut_vid>0:
			 	 if kol_man=2:$textsub='The second guy looks at you with interest.'
			 	 if kol_man>2:$textsub='The other guys looking at you with interest'
			     'One of the guys came up to you and hug. <<$textsub>>.'
			     	 act 'kiss':
					 cls
					 gs'stat'
					 'Guys suggested you go to their apartment.'
						 act 'Go with the guys':
						 cls
						 alko+=20
						 minut+=30
						 gs'stat'
						 '<center><img src="qwest/alter/placer/drunk.jpg" ></center>'
						 'You went to the hostel with the guys, on the way the guys still have bought booze. The room was almost nothing, only a few iron beds. The boys began to thump, all pouring and pouring you. Soon. Through gripped you feel you intoxication, that you dragged clothing.'
						 act'further':gt'placer_sex'
						 end
					 end
			     else
			     'Guys suggested you go to their apartment.'
			     	 act 'Go with the guys':
					 cls
					 alko+=20
					 minut+=30
					 gs'stat'
					 '<center><img src="qwest/alter/placer/drunk.jpg" ></center>'
					 'You went to the hostel with the guys, on the way the guys still have bought booze. The room was almost nothing, only a few iron beds. The boys began to thump, all pouring and pouring you. Soon. Through gripped you feel you intoxication, that you dragged clothing.'
					 act'further':gt'placer_sex'
					 end
			     end
			 end
			 if Frend_num>0:
			 	 if slut_vid>0:
                 'One of the guys came up to you and hug, you also noticed, that other guy came up to your friend and hugged her.'
			     	 act 'kiss':
					 cls
					 horny+=10
					 minut+=5
					 gs'stat'
					 'You started tselovatsya Man вЂ‹вЂ‹and his hands began to fumble through the body, corner of your eye you notice <<$ev_name>> Man kisses too. The guy broke the kiss and offered to go to his apartment or continue to rest all together.'
					 act 'Go the whole company at the apartment':minut+=5&gt 'placer_house'
					 act 'Go to guy for him':minut+=5&gt 'placer_house_one'
					 end
			     else
			     'Guys have offered you my friend and go to their apartment.'
			     	 act 'Go with the guys':
					 cls
					 minut+=5
					 gs'stat'
					 'You are the whole company went to the apartment of one of the guys'
					 act 'further':gt 'placer_house'
					 end
					 
					 
					 
					 
			     end
			 end
		 end
	 end
gs'stat'

	 if Frend_num=0:
	     act 'Get_Away':
	     cls
	     gs'stat'
	         if know_gor_slut=0:
	             if slut_vid=0:
                 gt'gskver'
                 end
                 if slut_vid>0:
                     if know_status=2:
                     'Man angrily remarked "And the fig then has made up like a whore?"'
                     act 'Get_Away':gt'gskver'
                     else
                     gt'gskver'
                     end
                 end
             end
	         if know_gor_slut=1:
				 if know_status=2:
				 'You turned on the boys and went to the door.'
				 tipgopreactrand=rand(0,1)
				 act 'Get_Away':gt'gskver'
				 else
				 gt'gskver'
				 end
             end
         end
	 end
	 if Frend_num>0:
	 act 'Go with a friend':gt'placer_end'
	 end
end
















--- placer_act ---------------------------------

# placer_end
gs'stat'







if Frend_num=14:
'<center><img src="qwest/alter/npc/14.jpg" ></center>'
KatjaHorny+=10
if KatjaOhrenet>0:
if KatjaOhrenet=1:'Kate goes all the way in silence, then mutters "ohrenet can, I just fucked quite familiar guy."'
if KatjaOhrenet=2:'Kate goes all the way in silence, then mutters "ohrenet can, I just fucked two virtually unknown to Man."'
if KatjaOhrenet=3:'Kate goes all the way in silence, then mutters "ohrenet can, us together just to fuck a whole pack Gopnik."'
if KatjaOhrenet=4:'Kate goes all the way in silence, then mutters "ohrenet can, we both like complete sluts fucking with strange guys."'
if KatjaOhrenet=5:'Kate goes all the way in silence, then mutters "ohrenet can, we both just fucked threesome with unfamiliar guy."'
KatjaOhrenet=0
end
'You said goodbye to Katya.'


	 act 'Get_Away':
	 Frend_num=0
	 gt'gorodok'
	 end
end


--- placer_end ---------------------------------

# placer_sex
gs'stat'
if dormrape=0:
'You `re lying on the creaking iron bed in a dorm room peteushnoy. Around you stand <<$kol_man_text>> and discuss among themselves "Well boys, who first fucks this slut?"'

	 act 'further':
	 rape+=1
	 gang+=1
     dormrape+=1
	 minut+=5
	 silavag=0
	 $boy='guy'
	 guy+=kol_man
	 ciklkm=kol_man
	 if dormrapeQW=0:dormrapeQW=1
	 gt $curloc
	 end
end
if dormrape=1:
'<center><img src="qwest/alter/placer/podval.jpg" ></center>'
:markdormrape
ciklkm-=1
minut+=15
 dick=rand(12,20)
 tiprand=rand(0,2)
 if tiprand<2:
 dynamic $sexstart2
 dynamic $sexcum
 end
 if tiprand=2:
 dynamic $analsexrude
 end
 if ciklkm>0:'Then the space between your legs took the next guy.'
 if ciklkm>0 and cumbelly>=5:cumbelly-=4&cumfrot+=4&'One of the guys started vozmuschatsya "shit, boys, Cho you like this slut zastruhali? By the same approach to her dumb! In short let her clothes, I though it pizden wipe" You to feel as you wipe the abdomen and vagina which is stuck to cloth.'
 gs'stat'
 if ciklkm>0:jump'markdormrape'
'Finally it`s all over, guys got dressed and left the room. You sluggishly began to brush up.'

act 'Get_Away':podvalrape=0&dormrape=0&gt'gorodok'
end









































--- placer_sex ---------------------------------

# podval_rape
gs'stat'
if podvalrape=0:
'You `re lying on a dirty mattress on the floor a dark basement smelling sewage, surrounded by empty bottles. Around you stand <<$kol_man_text>> and discuss among themselves "Well potsiki, pull the lot, who first pulls this slut?"'

	 act 'further':
	 rape+=1
	 gang+=1
     podvalrape=1
	 minut+=5
	 silavag=0
	 $boy='Gopnik'
	 guy+=kol_man
	 ciklkm=kol_man
	 if podvalrapeQW=0:podvalrapeQW=1
	 gt $curloc
	 end
end
if podvalrape=1:
'<center><img src="qwest/alter/placer/podval.jpg" ></center>'
:markpodvalrape
ciklkm-=1
minut+=15
 dick=rand(12,20)
 tiprand=rand(0,2)
 if tiprand<2:
 dynamic $sexstart2
 dynamic $sexcum
 end
 if tiprand=2:
 dynamic $analsexrude
 end
 if ciklkm>0:'Then the space between your legs took the next guy.'
 gs'stat'
 if ciklkm>0:jump'markpodvalrape'
'Finally it`s all over, guys got dressed and went out of the cellar.'

act 'Get_Away':podvalrape=0&gt'gorodok'
end
--- podval_rape ---------------------------------

# gopnik_house
gs'stat'
if gophouse=0:
'You sit in a dirty apartment with shabby wallpaper on a rickety chair at the table. Just sitting at the table <<$kol_man_text>> drinking and eating.'
	 if alko<6:
	 'you feel, that very drunk, but are still able to think.'
	 end
	 if alko>=6:
	 'You feel like the beginning of dizzy and the earth started to slip away from under the feet.'
	 end
'A couple of guys pick up and drag you into the room, there you laid on the sofa.'
	 act 'further':
	 rape+=1
	 gang+=1
     gophouse=1
	 minut+=5
	 silavag=0
	 $boy='Gopnik'
	 guy+=kol_man
	 ciklkm=kol_man
	 if gophouserapeQW=0:gophouserapeQW=1
	 gt $curloc
	 end
end
if gophouse=1:
'<center><img src="qwest/alter/placer/podval.jpg" ></center>'
:markgophouserape
ciklkm-=1
minut+=15
 dick=rand(12,20)
 tiprand=rand(0,2)
 if tiprand<2:
 dynamic $sexstart2
 dynamic $sexcum
 end
 if tiprand=2:
 dynamic $analsexrude
 end
 if ciklkm>0:'Then the space between your legs took the next guy.'
 gs'stat'
 if ciklkm>0:jump'markgophouserape'
'Finally it`s all over, you feel like someone you clothes and buttons you again somewhere drag.'

act 'look_around':gophouse=0&gt'gorodok'
end
--- gopnik_house ---------------------------------

# placer_house
alko+=10
gs'stat'
'You come across a company apartment and continued there to drink and have fun.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kol_man=1:
dick=rand(12,25)
$boy='guy'
'You started obnimatsya and tselovatsya Man, <<$ev_name>> also started to kiss him.'
	 act'Sucking guy':
	 cls
	 bj+=1
	 guy+=1
	 gang+=1
	 gs'stat'
	 '<center><img src="qwest/alter/placer/threesomeBJ.jpg" ></center>'
	 'Together with a friend , in turn.'
	 	 act'further':
		 cls
		 minut+=15
			 if Frend_num=14:
			 KatjaLust+=5
			 KatjaSlut+=5
			 KatjaHorny=0
			 KatjaSex+=1
			 KatjaGuy+=1
			 KatjaBJ+=1
			 KatjaOhrenet=5
			 end
		 pose=1
		 lesbian+=1
		 gs'stat'
		 '<center><img src="qwest/alter/placer/threesome.jpg" ></center>'
		 'You put cancer and parne came to your ass ready to fuck you. <<$ev_name>> sat in front of you and offered you my pussy you immediately began to lick.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 act 'Get_Away':gt 'placer_end'
		 end
	 end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kol_man=2:
dick=rand(12,25)
$boy='guy'
'The boys began to hug and kiss you with his girlfriend, <<$ev_name>> Man began to stroke between her legs and pulled out his cock.'
	 act'Sucking guy':
	 cls
	 bj+=1
	 guy+=1
	 gs'stat'
	 '<center><img src="qwest/alter/placer/foursomeBJ.jpg" ></center>'
	 'You, <<$ev_name>> sucks the other guy.'
		 act'Fuck guys':
		 cls
		 minut+=15
			 if Frend_num=14:
			 KatjaLust+=5
			 KatjaSlut+=5
			 KatjaHorny=0
			 KatjaSex+=1
			 KatjaGuy+=1
			 KatjaBJ+=1
			 KatjaOhrenet=4
			 end
		 gs'stat'
		 '<center><img src="qwest/alter/placer/foursome.jpg" ></center>'
		 dynamic $sexstart
		 dynamic $sexstart3
		 dynamic $sexcum
		 act 'Get_Away':gt 'placer_end'
		 end
	 end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kol_man=3:
$d_dozdat={
	 act'wait for girlfriend':
	 cls
	 minut+=5
	 gs'stat'
	     if Frend_num=14:
	     '<center><img src="qwest/alter/placer/katjacum.jpg" ></center>'
	     'Of the room came a tired but happy with Katya smeared in white mucus face.'
	     end
	 cumface=0
	 'Together with a friend you have brought each other in order and steel This collection of home.'
	 act 'Get_Away':gt 'placer_end'
	 end
}
$d_girlfrend_end={
     act'further':
     cls
         if Frend_num=14:
         KatjaLust+=10
         KatjaSlut+=5
         KatjaHorny=0
         KatjaSex+=1
         KatjaGuy+=1
         KatjaBJ+=1
         KatjaOhrenet=1
         end
     
     gs'stat'
     'The boys went to the bathroom and you were alone in the room.'
     dynamic $d_dozdat
		 
		 act'Peek behind girlfriend':
		 cls
		 gs'stat'
			 if Frend_num=14:
			 '<center><img src="qwest/alter/placer/katjaend.jpg" ></center>'
			 'You looked in the room, on the bed lay naked Kate and clearly dosasyvala member of the guy after hot sex, the guy started to cum on your face and Kate smear sperm on her lips and cheeks.'
			 end
		 'You closed the door that would not interfere with and become friends dozhidatsya.'
		 dynamic $d_dozdat
		 end
     end
}
$d_girlfrend_end2={
     act'further':
     cls
         if Frend_num=14:
         KatjaLust+=5
         KatjaSlut+=10
         KatjaHorny=0
         KatjaSex+=1
         KatjaGuy+=2
         KatjaBJ+=2
         KatjaGang+=1
         KatjaOhrenet=2
         end
     
     gs'stat'
     'The guy lay on the bed and began to snore.'
     dynamic $d_dozdat
		 
		 act'Peek behind girlfriend':
		 cls
		 gs'stat'
			 if Frend_num=14:
			 '<center><img src="qwest/alter/placer/katjaendgang.jpg" ></center>'
			 'You looked into the room that Kate furiously spire on both sides two guys, Katya only grunts holding member of the mouth.'
			 end
		 'You closed the door that would not interfere with and become friends dozhidatsya.'
		 dynamic $d_dozdat
		 end
     end
}
'One of the guys suggested you uedenitsya in the room.'
     act'Go to guy':
     cls
     horny+=10
     gs'stat'
     '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
     'You should be left alone as the guy started to kiss you and paw'
		 act'Take by mouth':
		 cls
		 $boy='guy'
		 dick=rand(15,20)
		 bj+=1
		 guy+=1
		 gs'stat'
		 '<center><img src="qwest/alter/placer/bj.jpg" ></center>'
		 'You sat on his haunches in front of a guy and he unbuttoned his pants pulled out his penis.'
		 dynamic $dinrandbj
		 tipsexrand=rand(0,1)
		 	 act'further':
			 cls
			 gs'stat'
			 
				 if tipsexrand=0:
				 cumlip+=1
				 swallow+=1
				 gs'stat'
				 '<center><img src="qwest/alter/placer/swallow2.jpg" ></center>'
				 dynamic $dinrandswallow
				 dynamic $d_girlfrend_end2
				 end
				 if tipsexrand=1:
				 '<center><img src="qwest/alter/placer/bj.jpg" ></center>'
				 'The guy whispered, "I want you"'
				 	 act'redouble efforts':
					 cls
					 cumlip+=1
					 swallow+=1
					 gs'stat'
					 '<center><img src="qwest/alter/placer/swallow2.jpg" ></center>'
					 'You become even more actively sucking dick, that would do blowjob.'
					 dynamic $dinrandswallow
					 dynamic $d_girlfrend_end2
					 end
					 
					 act'Lie on your back':
					 cls
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/alter/placer/miss.jpg" ></center>'
					 'You lay on your back and one of the guys spread your legs, and the second came up to your face and put his penis in your mouth.'
					 dynamic $sexstart
					 dynamic $sexstart2
					 dynamic $sexcum
					 dynamic $d_girlfrend_end2
					 end
					 
					 act'anal':
					 cls
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/alter/placer/anal2.jpg" ></center>'
					 'You suggested the guy to fuck you in the ass, he gladly accepted and you undressed got on all fours.'
					 dynamic $analsexrude
					 dynamic $d_girlfrend_end2
					 end
				 end
		     end
		 end
     end
     
     act'Stay in the room':
     cls
     horny+=20
     gs'stat'
         '<center><img src="qwest/alter/placer/swing.jpg" ></center>'
         '<<$ev_name>> whispering about something with a guy, then she went into the next room with him, leaving you with two guys. The boys sat down to you to close, one began to kiss your lips, and the second stroke your breasts.'
             act'Stay with the guys':
			 cls
			 $boy='guy'
			 dick=rand(15,20)
			 
			 horny+=10
			 bj+=2
			 guy+=2
			 gang+=1
			 gs'stat'
             '<center><img src="qwest/alter/placer/doublebj.jpg" ></center>'
             'You guys started to undress ,and you just giggled drunkenly, you do not understand how but in your mouth proved a member of one of the guys, and the second term you held in your hand. You started to suck the guys take turns. Finally.'
                 act'Lie on your back':
				 cls
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/alter/placer/doublemiss.jpg" ></center>'
				 'You lay on your back and one of the guys spread your legs, and the second came up to your face and put his penis in your mouth.'
				 dynamic $sexstart
				 dynamic $sexstart2
				 dynamic $sexcum
				 sexrand=rand(0,1)
				     if sexrand=0:
				     cumlip+=1
				     cumface+=1
				     gs'stat'
				     'Suddenly a guy who sucked you became close your mouth and smeared his cock cum to you on the lips and cheeks.'
				     dynamic $d_girlfrend_end
				     end
				     if sexrand=1:
				     'Guys suddenly decided to change places.'
				         act'further':
						 cls
						 horny+=10
						 cumlip+=1
						 cumface+=1
						 dick=rand(15,20)
						 gs'stat'
						 '<center><img src="qwest/alter/placer/doublemiss2.jpg" ></center>'
						 'Guys swapped, and the guy from whom you suck dick spread your legs, and the guy who fucked you slipped you smeared his cock in her mouth Cum, What would you clean it.'
						 dynamic $sexstart
						 dynamic $sexstart2
						 dynamic $sexcum
						 dynamic $d_girlfrend_end
						 end
				     end
				 end
				 
				 act'get cancer':
				 cls
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/alter/placer/rakom.jpg" ></center>'
				 'You undressed and got cancer on the bed waiting for guys.'
				 	 act'anal':
					 cls
					 dick=rand(15,20)
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/alter/placer/doggyanal.jpg" ></center>'
					 'You guys have offered to fuck you in the ass, they gladly agreed. One of the guys came up to your face and put his penis between your lips, you immediately started to suck.'
					 dynamic $analsexrude
					 sexrand=rand(0,1)
						 if sexrand=0:
						 cumlip+=1
						 cumface+=1
						 gs'stat'
						 'Suddenly a guy who sucked you became close your mouth and smeared his cock cum to you on the lips and cheeks.'
						 dynamic $d_girlfrend_end
						 end
						 if sexrand=1:
							 act'further':
							 cls
							 gs'stat'
							 '<center><img src="qwest/alter/placer/anal.jpg" ></center>'
							 'The guy pulled out of your ass his limp dick and a guy who beat you you suck and joined up to your ass. '
							 dick=rand(15,20)
							 dynamic $analsexrude
							 dynamic $d_girlfrend_end
							 end
						 end
					 end
					 
					 act'In pussy':
					 cls
					 pose = 1
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/alter/placer/doubledog.jpg" ></center>'
					 'One of the guys came up to your face and put his penis between your lips, you immediately started to suck.'
					 dynamic $sexstart
				     dynamic $sexstart2
				     dynamic $sexcum
					 cumlip+=1
					 cumface+=1
					 gs'stat'
					 'Suddenly a guy who sucked you became close your mouth and smeared his cock cum to you on the lips and cheeks.'
					 dynamic $d_girlfrend_end
					 end
				 end
				 
				 
				 
				 
				 
             end
     end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kol_man>=4:
'The boys began to embrace you and girlfriend.'
     act'engaged in sex':
     cls
     gang+=1
     anal+=1
     sex+=1
     dp+=1
     dick=rand(15,18)
	 $boy='the first guy'
     dick2=rand(15,18)
	 $boy2='the second guy'
	     if Frend_num=14:
         KatjaLust+=5
         KatjaSlut+=10
         KatjaHorny=0
         KatjaSex+=1
         KatjaGuy+=2
         KatjaBJ+=2
         KatjaGang+=1
         KatjaOhrenet=4
         end
     gs'stat'
     '<center><img src="qwest/alter/placer/dp.jpg" ></center>'
     dynamic $doublepenetration
     dynamic $sexcum
     'The second guy started to cum inside your priests filling her with his sperm'
     cumanus+=1
     gs'stat'
     act 'Get_Away':gt 'placer_end'
     end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!if kol_man=5:
!end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!if kol_man=6:
!end











--- placer_house ---------------------------------

# placer_house_one
alko+=10
gs'stat'
'You went with a guy to his home.'
!tipsexrand=rand(0,1)
tipsexrand=0
if tipsexrand=0:
'At the entrance a guy suddenly hugged you and started kissing.'
     act'Kissing Man':
     cls
     horny+=10
     gs'stat'
     'The guy unbuttoned his pants and pulled out a member, his hands pressed gently on your shoulder.'
         act'To squat':
		 cls
		 horny+=10
		 guy+=1
		 bj+=1
		 minut+=15
		 gs'stat'
		 '<center><img src="qwest/alter/placer/bjdan.jpg" ></center>'
		 'You sit down in front of the guy and kiss him standing member, then you wrapped around his lips and began to suck. After a while the man groaned and much more you realize, that he was going to cum.'
		     act'her lips':
			 cls
			 cumlip+=1
			 gs'stat'
			 '<center><img src="qwest/alter/placer/cum.jpg" ></center>'
			 'You wrapped around his dick <<$liptalk>> and your mouth cum shot, you continued to suck and the guy finished your mouth.'
			 	 act'swallow':
				 cls
				 swallow+=1
				 vaf+=1
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/placer/swallow.jpg" ></center>'
				 'You swallow your cum casual acquaintance, then in your mouth left a nasty aftertaste male seed. You have opened my mouth and stuck out her tongue showing that swallow cum. Man patted you on the head "Are you cool huesoska."'
				 	 act'Sucked dry up':
					 cls
					 vaf+=1
					 sub+=1
					 gs'stat'
					 '<center><img src="qwest/alter/placer/clean.jpg" ></center>'
					 'Smile in the slope to the penis and tongue and lips gathered the remnants of sperm with him.'
					 	 act 'Get_Away':gt 'placer_end'
					 end
				 end
				 
				 act'spit_out':
				 cls
				 swallow+=1
				 dom+=1
				 gs'stat'
				 '<center><img src="qwest/alter/placer/bjdan.jpg" ></center>'
				 'You wrinkled and spit cum out of his mouth on the floor.'
				 act 'Get_Away':gt 'placer_end'
				 end
			 end
		 end
     end
end
if tipsexrand=1:
''
end
--- placer_house_one ---------------------------------

# placer_gop_orgy
alko+=5
gs'stat'
'you and <<$ev_name>> came in what is clearly semi-abandoned apartment where everywhere was rubbish and dirt. The boys began to pour vodka and actively fluster you with a girlfriend. Soon you guys started to undress and put on his back with his girlfriend.'

gang+=1
$boy='Gopnik'
ciklkm=(kol_man/2)+1
guy+=ciklkm
if goporgyeQW=0:goporgyeQW=1

         if Frend_num=14:
         KatjaLust+=5
         KatjaSlut+=5
         KatjaHorny=0
         KatjaSex+=kol_man
         KatjaGuy+=kol_man
         KatjaOhrenet=3
         end

	 
act'further':
cls

gs'stat'
'<center><img src="qwest/alter/placer/gopgang2.jpg" ></center>'
'You girlfriend put next to each other and began to fuck you.'
:markgopgang
ciklkm-=1
minut+=15
 dick=rand(12,20)
 tiprand=rand(0,2)
 if tiprand<2:
 dynamic $sexstart2
 dynamic $sexcum
 end
 if tiprand=2:
 dynamic $analsexrude
 end
 if ciklkm>0:'Then the space between your legs took the next guy.'
 gs'stat'
 if ciklkm>0:jump'markgopgang'
'The guys finally emptied their sperm reserves and continued to thump stopping you interesovatsya.'
act 'Get_Away':gt 'placer_end'
end




--- placer_gop_orgy ---------------------------------

# gorodok
$metka = $ARGS[0]
$loc = $CURLOC
$metkaStreet = $ARGS[0]
$locStreet = $CURLOC
litltown=1

music_on=0
cla
*clr
'<center><H4>town</H4></center>'
'<center><img src="pic/gorodok.jpg" ></center>'
'Quiet provincial town indistinguishable from thousands of others like him towns. The restored church domes rise above the dilapidated shacks that were built more German prisoners.'
if AlbFather>=1:
if AlbFaterBlackTime=0:AlbFaterBlackTime=totminut+2880
'On the houses are seen pasted posters. "Boris Barlovsky, Our candidate!"'
end

if AlbFaterBlackTime>0 and AlbFaterBlackTime<=totminut and hour>=16 and AlbFather=1:
gt'AlbFatherQW'
end

if hour>=16 and hour<=22 and AlbFather=2 and AlbZaDay+30<daystart and year>2010:
gt'AlbStarsEnd'
end

if StoryLine>0 and hour<5 and motherWorry=0:
motherWorry=1
end
if NosovRevenge=2 and daynosovrevenge+1>=daystart:
cls
gs'stat'
'<center><B><font color=maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
'<center><img src="qwest/alter/npc/1.jpg" ></center>'
'Near the house "Well slut. If you do not want that to video became public, Now let`s go and talk to me."'
     act 'Go to the Dime':
     cls
     NosovRevenge=3
     minut+=30
     gs'stat'
     'You went to the house of Dima. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden. With Dima you have gone to his room and he closed the door with a key.'
     act 'Go into the room Dima':gt 'dimaHome'
     end
exit
end

set gorodokwhorerand = rand (1,5)
if gorodokwhore >=2 and gorodokwhore <6 and gorodokwhorerand =>4:'You catch yourself on people`s views, some are trying to find out who is in you- then, maybe, and learn. Occasionally you hear the laughter of people. It_seems, who- I learned about your adventures.'
if gorodokwhore >=6 and gorodokwhore <10 and gorodokwhorerand =>4:'People look at you with a smile, who- doing something vulgar gestures toward you, some hints on your adventures.'
if gorodokwhore >=10 and gorodokwhorerand =>4:'Everyone around you will recognize whore. some, passing, slap you on the ass. Grandmother on the benches name-calling you whore.'
set gorodokstreetsexrand = rand (1,20)
if gorodokwhore > 5 and gorodokstreetsexrand = 20:
'To the guy you came and offered to move into the bushes for a hundred fuck'
act 'agree':gt 'gevent','5'
end

gs'stat'
gs'time'

if car > 0 and cardrive = 20:
set cardrive = 20
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if StoryLine=1 and ParHomeBlock=0:'In one of the houses is <a href="exec:minut+=15&GT ''korrPar''">apartment</a> your parents.'
'<a href="exec:minut+=15&GT ''vokzalG''">railway_station</a>.'
'<a href="exec:minut+=15&GT ''gpoli''">clinic</a>.'
if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes.</a>'
'Automotive <a href="exec:GT ''zaprF'',''start''">filling.</a>'
'district <a href="exec:GT ''gdk''">house of Culture.</a>'
if SchoolBlock=0:'local <a href="exec:GT ''gschool''">school</a>'
if hour>=7 and hour<=18:'<a href="exec:GT ''etoexhib'',''pos20''">Vocational School.</a>'
if hour >= 8 and hour <= 20:'The only major store in town <a href="exec:GT ''shop'',''start''">supermarket</a>'
'small city <a href="exec:GT ''gskver'',''park''">square</a>, in which people relax'
'Aside from residential buildings is <a href="exec:minut+=5&GT ''garmassiv''">garage array</a>'
if ArtomBeInHome>0 and artemblok=0:'apartment <a href="exec:minut+=15&GT ''artemhome''">Artem Chebotarev</a>'
if DimaBeHomeOnce=1 and DimaRudeBlock=0:'Private house in which he lives <a href="exec:minut+=15&GT ''dimaGoHome2''">Dima Nosov</a>'
if katjaFirstKiss>=1:'Private house in which he lives <a href="exec:minut+=15&GT ''KatjaHome''">Katya Meynold</a>'
if BeInNatBelHome=1: 
     if hour>=18 and hour<=20 and week<6 or hour>=8 and hour<=20 and week>=6:
     'The house where the apartment <a href="exec:minut+=15&GT ''NatBelHome''">Natasha Belova</a>'
     end
end
if BeInJulMilHome=1: 
     if hour>=18 and hour<=20 and week<6 or hour>=8 and hour<=20 and week>=6:
     'The house where the apartment <a href="exec:minut+=15&GT ''JuliaMilHome''">Julia Milova</a>'
     end
end
if beinalbinahome>0:'Luxurious mansion in which he lives <a href="exec:minut+=15&GT ''albinaporog''">Albina Barlovskaya</a>'
'urban development enterprise <a href="exec:minut+=15&GT ''Gshveyfab''">Garment factory named Paris Commune</a>'
     act 'wait':
     cla
     waiting = input ("How many minutes to wait? (not any more 120 minutes)")
         if waiting <= 0 or waiting > 120:
         set minut = minut + 15
         end
         if waiting > 0 and waiting <= 120:
         set minut = minut + waiting
         end
     act 'Look at the clock':gt curloc
     end


if StoryLine=1 and hour>=8 and hour<23:
     if cumface>0:
     sosedrand=rand(0,3)
         if sosedrand=0 and sosedday!day:
         cls
             if sosedknow=0:
             sosedknow=1
             sosedday=day
             gs'stat'
             'Suddenly "Sveta." You turn around and see a neighbor Uncle Misha, he looks at your face with surprise "It`s that on your face?" You blush and hesitate, Stra hand to wipe off the face of sperm. he grins "Well, all clear." and goes on about his business.'
             act 'further':gt curloc
             exit
             end
             if sosedknow>0:
             sosedday=day
             'Once again you are confronted face to face with Uncle Misha, your neighbor, he chuckled looking at you "Well."'
             act 'further':gt curloc
             end
         end
     end
end



!act 'rating':gt'ratinglist'








--- gorodok ---------------------------------

# garmassiv
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>garage array</H4></center>'
'<center><img src="pic/garmassiv.jpg" ></center>'
'A large area is built up offsuit garages where motorists keep their cars.'
if StoryLine=1:'In one of the garages located <a href="exec:minut+=5&GT ''gargazel''">garage your stepfather</a>'
clr
gs'stat'
gs'time'


act 'Go into town':minut+=5&gt'gorodok'
--- garmassiv ---------------------------------

# gargazel
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>garage</H4></center>'
if father_go=1 and hour>=16 and hour<21:
'<center><img src="pic/gargazel.jpg" ></center>'
'Large garage in which to store the gazelle stepfather.'
else
'<center><img src="pic/gargazel_empty.jpg" ></center>'
'Large garage in which to store the gazelle stepfather. Now the garage is closed on the lock.'
end
clr
gs'stat'



act 'Get_Away':minut+=5&gt'garmassiv'

if father_go=1 and hour>=16 and hour<21:
'Now stepfather in the garage, car repairs.'
     act 'help':
     cls
     minut+=15
     father+=rand(1,3)
     gs'stat'
     'You became stepfather to help repair the car, handing him the keys and bolts.'
     act 'further':gt $curloc
         if father>=80 and hour=20:
         'Stepfather took from a drawer a bottle of vodka and a jar of pickles. "I probably drink after work."'
             act 'further':
             cls
             minut+=60
             father+=rand(1,3)
             gs'stat'
             'Stepfather poured himself a glass of vodka and drank. You began to talk with him about everything.'
             act 'further':gt $curloc
             end
         end
     end
end

if YouCanGar>0:
'In the garage there is stored <<GarTorgItem>> One unit of product, with a total capacity 100 One_unit. To, that would be able to sell the product out of the garage, you have to transfer it to your room.'
     if tovarL>=30:
     'Home and so all culled product, transfer nowhere.'
     end
     if tovarL<30:
     perenGarTov=30-tovarL
     'I could move out of the garage <<perenGarTov>> One unit of the goods in the room.'
         if GarTorgItem>0:
             if GarTorgItem>=perenGarTov:
                 act 'move <<perenGarTov>> One unit of product':
				 cls
				 minut+=60
				 tovarL+=perenGarTov
				 GarTorgItem-=perenGarTov
				 gs'stat'
				 'You hour dealt with the goods .'
				 act 'further':gt $curloc
				 end
             end
             if GarTorgItem<perenGarTov:
                 act 'move <<GarTorgItem>> One unit of product':
				 cls
				 minut+=60
				 tovarL+=GarTorgItem
				 GarTorgItem=0
				 gs'stat'
				 'You hour dealt with the goods .'
				 act 'further':gt $curloc
				 end
             end
             
         end
     end
end
--- gargazel ---------------------------------

# vokzalG
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>railway_station</H4></center>'
'<center><img src="pic/vokzal.jpg" ></center>'
'Small quiet station. about <a href="exec:minut+=3&GT ''vokzalGin''">station</a> costs <a href="exec:minut+=5&GT ''gkafe''">caff</a>. Just near the station is a small hotel for visitors, post office and police station. On the area is fenced not a big market.'
clr
gs'stat'
gs'time'
'On the forecourt placed small <a href="exec:minut+=1&GT ''Grinok''">market</a>'
'not great <a href="exec:minut+=1&GT ''Gotel''">hotel</a> in which they live travel.'


if kidalob=0:
podrand=rand(0,3)
     if money>=5000 and hour>=8 and hour<=20 and podrand=0 and monthKidalo!month:
     cls
     monthKidalo=month
     gs'stat'
     '<center><H4>railway_station</H4></center>'
     '<center><img src="pic/vokzal.jpg" ></center>'
     'You go to the station and to the right for you girl with a microphone and a man with a TV camera. Woman appeals to you "Hello. We with Television. Is now undergoing unprecedented action - shows to distribute gifts. We have chosen you." Girl gets beautifully wrapped box with a bow and gives you. "Here laptop last generation."'
     act 'Get_Away':minut+=15&gt $curloc
         act 'take a box':
         cls
         gs'stat'
         '<center><H4>railway_station</H4></center>'
         '<center><img src="pic/vokzal.jpg" ></center>'
         'You took the box and the man began to take you on camera. The girl held up a microphone and offered to convey greetings to relatives and friends. You are standing with heavy boxes on camera to say hello to and thanked for the gift handed. The man and the girl took all offered you pay VAT, with the value of the gift. This is just what that 5five thousand.'
             act 'pay VAT':
			 cls
			 money-=5000
			 kidalob=1
			 gs'stat'
			 '<center><H4>railway_station</H4></center>'
			 '<center><img src="pic/vokzal.jpg" ></center>'
			 'You gave money and began to print a gift. When you manage to open the box, you saw, that there is a brick wrapped in newspaper. You looked around for girls and men, but they are already gone.'
				 act 'Get_Away':minut+=15&gt $curloc 
			 end 
         end
     exit
     end
end

if kidalo=0:
podrand=rand(0,3)
     if money>=1000 and hour>=8 and hour<=20 and podrand=0 and glamur>0 and monthKidalo!month:
     cls
     monthKidalo=month
     '<center><H4>railway_station</H4></center>'
     '<center><img src="pic/vokzal.jpg" ></center>'
     'Going to the station you notice how near the station are two men. They notice you and come up to you talking to each other. "Well, well-then..." One of the guys, in a representative suit comes to you and says. "We are opening a new store your city and we need a girl to advertise. We offer you 30 thousands of photos for advertising."'
     act 'Get_Away':minut+=15&gt $curloc
         act 'agree':
         cls
         gs'stat'
         'You willingly agree, on such a tempting offer. The guys took you to build the site near the railway station, one of the guys took out the camera and put it in front of a tree with bushes. "Will shoot on natural background. so vivid. But that`s the problem, your dress glare. You need to change." Man pulled from the trunk of the car and gave you the dress. "Can change clothes in the car" The guy showed you that Audi was not far.'
         act 'Get_Away':minut+=15&gt $curloc
             act 'dress_up':
			 cls
			 gs'stat'
			 dress[numdress]=0
			 set numdress=0
			 set odetjeans=0
			 set odetyoga=0
			 set odetsarafan=1
			 set odetshort=0
			 set odetskirt=0
			 set odetdress=0
			 set odetprofi=0
			 set odetpants=0
			 set odetlatex=0
			 set odethooker=0
			 set odetkis=0
			 set odetnewclo=0
			 set odetero=0
			 set vatnik=0
			 set glamur = 0
			 set sport = 0
			 set ski = 0
			 set hook = 0
			 set ofclo = 0
			 set sexual = 0
			 if cumfrot > 0:set cumfrot = 0
			 set nude = 0
			 set odevnesh = 0
			 !
			 sarafan[3]=2
			 sarafanH[3]=20
			 'You got into the car and took off her dress. Then you put on her dress, which gave you a man.'
			     act 'pose':
			     cls
			     kidalo=1
			     gs'stat'
			     'You got out leaving their belongings in the car and approached the tree. One of the guys stood behind the camera, second fussing around you, showing you, as it should be. The camera clicked. "so_Much, and now the picture from the back" You stood with his back to the camera . "Very_Well. Tepr slightly raised his head and close your eyes." You have executed instructions, but no camera schelcha not followed. Instead.'
			         act 'turn_out':
					 cls
					 money=0
					 gs'stat'
					 'You turned and saw, that no camera no. Both men sit in Audi, which moved off and tore through the streets. You frantically realized, that his clothes and money you have left in the car. You threw as last lohushku.'
					 act 'Get_Away':minut+=15&gt $curloc
					 end
			     end
			 end
         end
     exit
     end
end

gs'family'




act 'Go into town':minut+=15&gt'gorodok'

act 'Exit at North Highway':minut+=15&nroad=20&gt'road'


--- vokzalG ---------------------------------

# Grinok
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>market</H4></center>'
'<center><img src="pic/Grinok.jpg" ></center>'
'Located near the small market <a href="exec:minut+=3&GT ''vokzalG''">station</a>'
clr
gs'stat'
gs'time'

if hour>=12 and hour<=18:
'In the market the sellers of goods and beckoning shoppers.'
     act'Wander through the market':
     cls
     minut+=15
     gs'stat'
     'Do_You 15Five minutes stroll on the market for buyers.'
     if intel=100:rinmaxrand=2
     if intel>=75 and intel<100:rinmaxrand=4
     if intel>=50 and intel<75:rinmaxrand=6
     if intel>=25 and intel<50:rinmaxrand=8
     if intel<25:rinmaxrand=10
     rinevrand=rand(0,rinmaxrand)
         if rinevrand=0:
         rinevtip=rand(0,6)
             if rinevtip=0:
             kosmpayrand=rand(3,8)
             kosmpay=kosmpayrand*100
             'You see that sell pretty cheap cosmetics for <<kosmpay>> rubles'
                 if money>=kosmpay:
                     act'buy':
                     cls
                     minut+=15
                     money-=kosmpay
                     kosmetica+=rand(10,40)
                     gs'stat'
                     gt $curloc
                     end
                 end
             end
             if rinevtip=1:
             tovpayrand=rand(2,5)
             tovpay=tovpayrand*100
             'You see that sell for Vitaminki <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 vitamin+=20 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=2:
             tovpayrand=rand(2,8)
             tovpay=tovpayrand*10
             'You see that sell condoms <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 prezik+=5 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=3:
             tovpayrand=rand(5,10)
             tovpay=tovpayrand*100
             'You see that sell lip balm for <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 lipbalm+=20 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=4:
             tovpayrand=rand(1,5)
             tovpay=tovpayrand*1000
             'You see that sell for handbag <<tovpay>> rubles'
                 if bag=0:
					 if money>=tovpay:
						 act 'buy':
						 cls
						 minut+=15
						 bag=1 
						 money-=tovpay
						 gt $curloc
						 end
					 end
				 end
				 if bag>0:
				 'Hmm, you already have a bag, why do you need another.'
				 end
             end
             if rinevtip=5:
             if pornmarkonce=0:pornmarkonce=1
             'Strolling on the market you accidentally wander into the far corner where they sell porn.'
             act 'come_Up':gt'Gpornmark'
             end
             if rinevtip=6:
                 if arturKnow=0: 
                 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
                 act 'look':gt'arturRinok'
                 end
                 if arturKnow>0: 
                 'Suddenly you hail "Hey Svetsik, come here, skyushay tangerine."'
                 act 'come_Up':gt'arturRinok'
                 end
                 
             
             end
         else
         'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
         end
     act'move on':gt $curloc
     end
     
     if pornmarkonce=1:
     act 'Go to the area with porn':gt'Gpornmark'
     end
     
     if arturKnow>0: 
     act 'Go to Arthur':gt'arturRinok'
     end
     
     act 'Go to the book tray':
     cls
     minut+=15
     gs'stat'
     'On the counter is a very entertaining fantasy book, which costs only 150 rubles and more are women`s novels in paperback standing 300 rubles.'
		 if money>=150:
			 act 'Buy fantasy book for 150r':
			 cls
			 minut+=15
			 money-=150
			 f_book+=1
			 gs'stat'
			 'You bought the book for fantasy 150 rubles.'
			 act'Get_Away':gt $curloc
			 end
		 end
		 
		 if money>=300:
			 act 'Buy ladies` novel for 300r':
			 cls
			 minut+=15
			 money-=300
			 w_book+=1
			 gs'stat'
			 'You bought a ladies` novel for 300 rubles.'
			 act'Get_Away':gt $curloc
			 end
		 end
     act'Get_Away':gt $curloc
     end
else
'In the market there is no one.'
end

--- Grinok ---------------------------------

# Gpornmark
gs'stat'
'On the tray on a variety of porn magazines. Near the tray turns salesman with shifty eyes.'


act'Get_Away':gt'Grinok'

if pornMagazine>1:
'You already have a magazine and once again hang around near the tray with a similar item you have no desire to.'
end
if pornMagazine=1:
'You read his magazine to the holes and it would be good to buy a new.'
	 if money>=500:
		 act'buy':
		 cls
		 minut+=5
		 money-=500
		 pornMagazine=50
		 TimesBuyPorno+=1
		 gs'stat'
		 'You are trying not to look into the eyes of the seller counted the money and took the magazine quickly hid it.'
		 act'Get_Away':gt'Grinok'
		 end
	 end
end
if pornMagazine=0:
'In the stunned look at magazines where sfotografirovanny half-naked girls, men with erect members ready and then how they can work together to engage in.'
end

if TimesBuyPorno=0:
'Sold with interest and looks at you expectantly.'
	 act'ask For Price':
	 cls
	 minut+=5
	 manna=manna/2
	 gs'stat'
	 'Desperately blushing to the tips of hair you have come to the seller and broken voice asked him the price. Seller you smiled and said. All journals 500 rubles.'
	     if money>=500:
	         act'buy':
	         cls
	         minut+=5
	         money-=500
	         pornMagazine=50
	         TimesBuyPorno+=1
	         gs'stat'
	         'You are trying not to look into the eyes of the seller counted the money and took the magazine quickly hid it.'
	         act'Get_Away':gt'Grinok'
	         end
	     end
	     
	     act'Get_Away':gt'Grinok'
	 end
end
if TimesBuyPorno>0:
'Seller is suitable to you "Looking to buy a magazine? only 500 rubles.".'
end




















--- Gpornmark ---------------------------------

# Gshveyfab
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Garment factory named Paris commune</H4></center>'
'<center><img src="pic/Gshveyfab.jpg" ></center>'
'near <a href="exec:minut+=15&GT ''gorodok''">the front door</a> is communicating factory which sits protection.'
clr
gs'stat'



--- Gshveyfab ---------------------------------

# Gotel
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>hotel</H4></center>'
'<center><img src="pic/Gotel.jpg" ></center>'
'near <a href="exec:minut+=3&GT ''vokzalGin''">the front door</a> Front is located <a href="exec:minut+=1&GT ''Gresep''">reception</a>.'
clr
gs'stat'

if hour>=12 and hour<=13 and GermanQW>0:
'In the room with the inscription <a href="exec:minut+=1&GT ''Goteladmin''">"administration"</a> The castle is open.'

end
--- Gotel ---------------------------------

# Gresep
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Receptionist</H4></center>'
'<center><img src="pic/Gotel.jpg" ></center>'
'Behind the counter stands a pretty brunette.'
clr
gs'stat'


if GotelWork=0 and GotelRoom=0:
     if BeInOtel<10:
     'The girl smiles at you and asks "the desired number? 500 rubles per day."'
     end
     if BeInOtel>=10:
     'Girl slyly smiling at you and asks "the desired number? 500 rubles per day. Or you are in another case?"'
     end
     
     !'if money>=500:
         act'pay room':
         cls
         money-=500
         Goteldaytot=daystart+1
         GotelRoom=1
         gs'stat'
         'You pay at the hotel.'
         act'move_away':gt'Gotel'
         end
     end
     '
     
	 act'ask the work':
	 cls
	 if GermanQW=0:GermanQW=1
	 gs'stat'
	 'You asked the girl working at the hotel. She shrugged, "The hiring of workers engaged in the host Herman Hotels Leonidovich, it is mainly in the hotel with 12 prior_to 13."'
	 act'move_away':gt'Gotel'
	 end
     
end



act'move_away':gt'Gotel'

if GotelRoom>0:
act'Go into the room':gt'Gotelroom'
end




--- Gresep ---------------------------------

# Goteladmin
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Receptionist</H4></center>'
'<center><img src="pic/Goteladmin.jpg" ></center>'
'At the table sat a man of thirty with a small, in an expensive suit and tie.'
clr
gs'stat'


if GotelWork=0:

end




act'Get_Away':gt'Gotel'
--- Goteladmin ---------------------------------

# Gotelroom
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>room</H4></center>'
'<center><img src="pic/Gotelroom.jpg" ></center>'
'A small room in the hotel.'
clr
gs'stat'

act'Get_Away':gt'Gotel'












--- Gotelroom ---------------------------------

# vokzalGin
gs'vokdin'
gs'vokdinvera'
gs'vokmantoiev'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
$metka = $ARGS[0]
$loc = $CURLOC
frost=0
'<center><H4>railway_station</H4></center>'
'<center><img src="qwest/alter/vokzal.jpg" ></center>'
'In the center of the station waiting room and <a href="exec:dynamic $din_vokzalg_kassi">cash</a> with scoreboard. In one wing are <a href="exec:dynamic $din_vokzalg_kabinet">offices superiors</a>, and another <a href="exec:minut+=1&dynamic $din_vokzalg_toilet">toilets</a>.'
if katalkinSexOnce>=1:'<a href="exec:minut+=5&gt''katalkin''">police</a>'
clr
gs'stat'

if podbros=0:
podrand=rand(0,1)
     if money>=1000 and hour>=8 and hour<=20 and podrand=0:
         'Going to the station you notice how a man falls thick <a href="exec:dynamic $din_vokzalg_podbros">purse</a>.'
     end
end


act 'Get_Away':minut+=3&gt'vokzalG'

if vokzalVork>=1:
     if cleZalDay!day:
     	 act 'Wash the floor in the waiting room':
		 cls
		 cleZalDay=day
		 minut+=60
		 sweat+=1
		 if vital<15:vital+=RAND(0,1)
		 if stren<15:stren+=RAND(0,1)
		 gs'stat'
		 '<center><img src="pic/clener1.jpg" ></center>'
		 'You took inventory, poured water into a bucket and began to wash the floor in the waiting room.'
		 act 'Get_Away':minut+=1&gt'vokzalGin'
		 end
     end
     if cleMTDay!day:
         act 'Wash the floor in the men`s room':
		 cls
		 cleMTDay=day
		 minut+=30
		 sweat+=1
		 if vital<15:vital+=RAND(0,1)
		 if stren<15:stren+=RAND(0,1)
		 gs'stat'
		 '<center><img src="pic/clener1.jpg" ></center>'
		 'You took inventory, poured water into a bucket and went to the men`s room.'
		 dynamic $d_vok_man_toilet_event
		 !'You became wash the floor in the men`s room, then began to scour bowls.'
		 act 'Get_Away':minut+=1&gt'vokzalGin'
		 end
     end
     if cleWTDay!day:
         act 'Wash the floor in the ladies` room':
		 cls
		 cleWTDay=day
		 minut+=30
		 sweat+=1
		 if vital<15:vital+=RAND(0,1)
		 if stren<15:stren+=RAND(0,1)
		 gs'stat'
		 '<center><img src="pic/clener1.jpg" ></center>'
		 'You took inventory, poured water into a bucket and began to wash the floor in the ladies` room, then began to scour bowls.'
		 dynamic $d_vokzal_vera_talk
		 act 'Get_Away':minut+=1&gt'vokzalGin'
		 end
     end
     if cleMTDay=day and cleWTDay=day and cleZalDay=day and cleZarplatDay!day:
		 act 'get salary':
		 cls
		 cleZarplatDay=day
		 vokzalVork+=1
		 money+=250
		 minut+=3
		 gs'stat'
		 'You went to the cashier and got their money.'
		 act 'Get_Away':minut+=1&gt'vokzalGin'
		 end
     end

end

poezddalsled=0
if hour=11 and minut=0:
poezddalsled=1
'The platform comes long-distance trains.'
end
if hour=11 and minut>0 and minut<30:
poezddalsled=1
'At the platform stands distance trains.'
end
if hour=11 and minut=30:
poezddalsled=1
'Platform serving long-distance trains.'
end
if hour=18 and minut=0:
poezddalsled=1
'The platform comes long-distance trains.'
end
if hour=18 and minut>0 and minut<30:
poezddalsled=1
'At the platform stands distance trains.'
end
if hour=18 and minut=30:
poezddalsled=1
'Platform serving long-distance trains.'
end

if poezddalsled=1:
'Platform fussy run hucksters vtyuhivat their goods train passengers. On the part of all this fuss watches Police.'
     if tovarL>0:
     	 act 'Vtyuhivat their goods passengers.':gt'vokzaltorg'
     end
end









--- vokzalGin ---------------------------------

# gdk
$metka = $ARGS[0]
$loc = $CURLOC
music_on=0
gs'stat'
gs'time'
'<center><B><font color=maroon>The House of Culture</font></B></center>'
     if hour>=9 and hour<20:
	 '<center><img src="etogame/dk.jpg"></center>'
	 'In the evenings 20.00 prior_to 23.00 dancing. entrance 25 rubles.'
	 end
     if hour>=20 and hour<=23:
	 '<center><img src="etogame/dk_night.jpg"></center>'
	 'At the entrance to the recreation center is full of youth, guys just stand and smoke, joke and who-then look out for. Girls in groups on 2-3 man, what-then discuss, who-then just thumps in the bushes.'
	 if money>=25:act'Join the club':money-=25&minut+=15&gt'gdkin'
	 end	
act 'Go_Out':gt'gorodok'

     if hour>=16 and hour<=20:
     'Now the house of culture sports sections.'
     act'Go to section':gt'gdksport'
     end
     if hour>=8 and hour<=18:
     'Now the house of culture rabotet library.'
     act'Go to the library':gt'gdkbibl'
     end
     if hour<9:'<center><img src="etogame/dk_night.jpg"></center>'



 if week<6:
	 if hour>=16 and hour<18:
	 'Your sister <a href="exec:SiSgdk=1&GT ''sister''">Anya</a> sitting in the company of boys and devchenok and drinks beer.'
	 end
 end
 if week>=6:
	 if hour>=11 and hour<18:
	 'Your sister <a href="exec:SiSgdk=1&GT ''sister''">Anya</a> sitting in the company of boys and devchenok and drinks beer.'
	 end
 end
--- gdk ---------------------------------

# gdkbibl
$metka = $ARGS[0]
$loc = $CURLOC
frost=0
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color=maroon>The House of Culture</font></B></center>'
'<center><img src="qwest/alter/gdkbibl.jpg" ></center>'
'A small library with lots of interesting books.'

act'Go_Out':gt'gdk'

if hour>=8 and hour<=18:
	 act'Read science book 1 h':
	 cls
	 minut+=60
	 if intel>=50:intel+=RAND(0,1)
	 if intel<50 and intel>=25:intel+=RAND(1,2)
	 if intel<25:intel+=RAND(1,3)
	 gs'stat'
	 'You are within an hour reading a book trying to figure out all sorts of clever frazochki and understand the subject description.'
	 act'put the book':gt $curloc
	 end
	 
	 act'Read an entertaining book 1 h':
	 cls
	 minut+=60
	 manna+=100
	 willpower+=100
	 gs'stat'
	 'You are within an hour reading a book about the adventures of.'
	 act'put the book':gt $curloc
	 end
	 
	 act'Read the collected works of Leo Tolstoy 1 h':
	 cls
	 minut+=60
	 if will>=50:will+=RAND(0,1)
	 if will<50 and will>=25:will+=RAND(1,2)
	 if will<25:will+=RAND(1,3)
	 gs'stat'
	 'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'
	 act'put the book':gt $curloc
	 end
	 
	 
else
'The library is closed.'
end
--- gdkbibl ---------------------------------

# gdksport
$din_go_to_home_dance={
	 act 'drive back':
	 cls
	 minut+=15
	 gs'stat'
	 'You called a taxi and you have brought back to town.'
	 if cumface>0:cumface=0&'Along the way you have erased from the face of sperm napkins.'
	 act 'Get_Away':gt'gorodok'
	 end

}

$din_beg_gor_sec={
cls
gs'stat'
'Subscriptions section running costs 100 rubles, to 30 days.'
     if money>=100 and gsAboBeg<=0:
         act'Buy a subscription to the section of the run 100 RUB':
         cls
         money-=100
         gsAboBeg+=30  
         gs'stat'
         'You bought a subscription for 30 Attendance section running.'
         act'Go_Out':gt'gdksport'
         end
     end
     act'Go_Out':gt'gdksport'
}
$din_dance_gor_sec={
cls
gs'stat'
'Subscriptions section running costs 100 rubles 10 days.'
     if money>=100 and gsAboDance<=0:
         act'Buy a subscription to the dance 100 RUB':
         cls
         money-=100
         gsAboDance+=10
         gs'stat'
         'You bought a subscription for 10 Attendance section of dance.'
         act'Go_Out':gt'gdksport'
         end
     end
     act'Go_Out':gt'gdksport'
}
$din_voll_gor_sec={
cls
gs'stat'
'Subscriptions section volleyball worth 300 rubles 30 days.'
     if money>=300 and gsAboVolley<=0:
         act'Buy a subscription for volleyball 300 RUB':
         cls
         money-=300
         gsAboVolley+=30
         gs'stat'
         'You bought a subscription for 30 Attendance section volleyball.'
         act'Go_Out':gt'gdksport'
         end
     end
     act'Go_Out':gt'gdksport'

}
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color=maroon>The House of Culture</font></B></center>'
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'The house work culture section, <a href="exec:dynamic $din_beg_gor_sec">running</a>, <a href="exec:dynamic $din_dance_gor_sec">dance</a> and <a href="exec:dynamic $din_voll_gor_sec">volleyball</a>. Subscribe to 30 Attendance costs 100 rubles.'

if kotovLoveQW>0 and hour=16:
'You can see both the club included <a href="exec:minut+=3&GT ''kotovEv''">Vitek Cats</a> with a duffel bag'
end
if grupNPC[3]>=80 and hour=17 and ivansportday!day:
'You can see both the club included <a href="exec:minut+=3&GT ''IvanEv''">Ivan Prokhorov</a> with a duffel bag'
end
if grupNPC[5]>=80 and fedorKozlovQW=0 and GorSlut=0 and UNSTARTER=1:
!event does not have to start over because they do not
cls
fedorKozlovQW=1
gs'stat'
numnpc=5
'<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
'In the club you unexpectedly met Fedor Kozlov in your class. He smiled affably you "Hello World. Hmm... Here is the deal... I have an extra ticket to the cinema. Let`s come together."'
	 act'Turn_Down':
	 cls
	 grupNPC[5]=40
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	 'You refused to Fedor referring to employment. Fyodor frowned. "Well. Whereas some other time."'
	 act 'Get_Away':gt'gdksport'
	 end
	 
	 act'agree':
	 cls
	 fedorKozlovQW=10
	 grupNPC[5]=100
	 minut+=15
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
	 'You agree and delighted Fedor took you to a movie theater located in the park.'
	     act'watch movies':
		 cls
		 minut+=100
		 manna+=100
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
		 'Fyodor gave the tickets at the entrance . Soon the lights went out and started a movie. Theodore sat motionless and only occasionally glancing at you. Cinema was quite interesting and you enjoy it looked. When the movie was over, in the hall lights were turned on and Fedor became accompany you. "Sveta. I like you. Maybe we could meet?"'
		     act'Turn_Down':
			 cls
			 grupNPC[5]=40
			 fedorKozlovQW=2
			 minut+=15
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			 'You refused to meet with Fedor and offered him to stay friends. Fedor visibly upset and silently carried you home.'
			 act 'Get_Away':gt'gorodok'
			 end
			 
			 act'agree':
			 cls
			 minut+=15
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
			 'You agreed to meet with Fedor. Fedor was visibly delighted and escort you to the house on the way of fun discussing viewed your movie.'
			 act 'Get_Away':gt'gorodok'
			 end
		 end
	 end
exit
end
     act'Go_Out':gt'gdk'
     
     if albinaQWdance>0 or gsAboDance>0 or gsAboBeg>0 or gsAboVolley>0:
     act'Change clothes in the locker room':gt 'loker','start'
         if sweat>=0:
             act'Wash in the shower':
             cls
             dynamic $showerdin
			 minut+=15
			 set horny = horny + 1
			 set hapri = 1
			 set mop = 1
			 set sweat = -3
			 if frost>0:frost=0
			 gs'stat'
			 '<center><img src="pics/dush.jpg" ></center>'
			 if kotovVSprohorov=1:
			 kotovVSprohorov=2
			 'You are logged into the women`s shower room and turned on the water began to lather your body washcloth. Suddenly the door creaked and you remembered, they forgot to close it. You looked around and saw, that stands on the threshold of Ivan Prokhorov and treats you. "Hello Svetsik. You can join? And all the men`s shower." Ivan smiled after these words.'
			     act 'expel Ivan':
			     cls
			     IvanShowerQW=1
			     gs'stat'
			     '<center><img src="pics/dush.jpg" ></center>'
			     'You covered the chest and hand with the other hand washcloth launched in Ivan. He easily dodged the flying washcloths and laughter came out of the shower. You locked the door and quickly domylis shower.'
			     act 'Get out of the shower':gt $locM, $metkaM
			     end
			     
			     act 'uh, what?':
			     cls
			     gs'stat'
			     '<center><img src="pics/dush.jpg" ></center>'
			     'Were you surprised like. He went into the shower and closed the door behind him.'
			     act 'Escape from the shower':IvanShowerQW=1&gt $locM, $metkaM
			     
			     	 act 'bathe together':
					 cls
					 minut+=5
					 horny+=10
					 gs'stat'
					 '<center><img src="pics/dush.jpg" ></center>'
					 'Ivan took off his boxer shorts and went under the shower stream. His muscular body was very close to your. You tried not to look at him but look involuntarily dropped to his groin, where hung thick dick. Ivan winked "want soap?"'
					     act 'lather Ivan':
					     cls
					     minut+=5
					     horny+=20
					     gs'stat'
					     '<center><img src="qwest/alter/ev/shower.jpg" ></center>'
					     'You took a washcloth and began soaping body Ivan. His cock began to get up and touched your thigh. Ivan hugged you and started to caress your body with your hands.'
					         act 'do blowjob':
							 cls
							 minut+=5
							 horny+=20
							 bj+=1
							 if npcSex[3]=0:npcSex[3]=1&guy+=1
							 gs'stat'
							 '<center><img src="qwest/alter/ev/shover.jpg" ></center>'
							 'You slowly sank to his knees in front of Ivan and his cock was in front of your face. Ivan impatiently head you spent on the lips and mouth open . Your lips tightly clasped solid rod Ivan and you suck in the shower under the streams of water. Ivan suddenly took out a member of your mouth and took you by the hand raised to his feet, He dug his lips to your breast and began to suck. You captured bliss. Ivan turned your back to him and pressed on your back.'
							 	 act 'stand cancer':
								 cls
								 IvanShowerQW=10
								 minut+=5
								 horny+=20
								 $boy='Ivan'
								 dick=17
								 gs'stat'
								 '<center><img src="qwest/alter/ev/shover2.jpg" ></center>'
								 'You bent down and felt the hand of Ivan stroking your ass and anus.'
								 lubonus=2
								 dynamic $analsex
                                 'Ivan pulls out a member of your priests .'
                                 act 'Get out of the shower':gt $locM, $metkaM
								 end  
							 end
					     end
					 end
			     end
			 exit
			 end
			 'You are logged into the women`s shower room and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean. After a shower.'
			 act 'Get out of the shower':gt $locM, $metkaM
             end
         end
     end
     
     if hour>=16 and hour<=20:
     
     if albinaQWdance>0 and AlbinaBlokDance=0 and ZvezdEnd=0:
         if sport >0:
             act 'Train with Zvezdushkami':
             cls
             set minut = minut + 120
			 set fat = fat - 5
			 if agil<50:agil+= RAND (1,3)
			 if agil>=50 and agil<80:agil+= RAND (0,2)
			 if agil>=80:agil+= RAND (0,1)
			 set manna = manna - 5
			 set sweat = sweat + 3
			 dancePRO+=RAND(1,3)
			 gs'stat'
			 '<center><img src="pic/fit1.jpg" ></center>'
			     if dancePRO<20:
			     sub+=1
			     'You train together with sex of "Zvezdushek", you get bad and Albina constantly screaming at you calling her bowlegged and Farmer.'
			     end
			     if dancePRO>=20 and dancePRO<40:
			     sub+=1
			     'You train together with sex of "Zvezdushek", You sometimes it turns out that, but most of the movements by and Albina constantly screaming at you calling her bowlegged and Farmer.'
			     end
			     if dancePRO>=40 and dancePRO<60:
			     'You train together with sex of "Zvezdushek", you dance with sex getting in the general rhythm, Albina but not satisfied "Sveta, very sluggish, more life."'
			     end
			     if dancePRO>=60 and dancePRO<80:
			     'You train together with sex of "Zvezdushek", you normally get all but Albina regularly to you niggles "Sveta, you`re not at a funeral, raise your head and smile!"'
			     end
			     if dancePRO>=80:
			     'You dance beautifully and Albina start to put you into an example for other girls.'
			     stardance+=1
			         if stardance<10:
			             if otkazDanceWhore>0 and AlbinaLast>0:
			             AlbinaBlokDance=1
			             'After a workout. "You roundnose Collective Farm. I am because of you losing my customers. So I went out! You are no longer in the team uchavstvuesh."'
			             end
			             if otkazDanceWhore>0 and AlbinaLast=0:
			             AlbinaLast=1
			             otkazDanceWhore=0
			             if AlbFather=0:AlbFather=1
			             'After a workout. "I understand, you`re young and stupid, But to explain to you in the first and last time. Once again I was swept with customers, Departure from Zvezdushek with a bang. Entertain men is part of the business."'
			             end
			             if DanceWhoreT>0:
			             DanceWhoreT=0
			             if AlbFather=0:AlbFather=1
			             'Albina after training beckons you to her. "Good for Light. Communication with men of the business. The main thing to keep his mouth shut. you`re doing fine, good job. Hold on to me and you will have all, money, machine, apartment."'
			             end
			         end
			         if stardance>=10:
			         stardance=0
			         albpayrand=RAND(1,5)
			         'Albina gathered devchenok. Today. Each will receive <<albpayrand*1000>> rubles for a job. The matter for a couple of hours.'
			             act 'Go part time':
			             cls
			             minut+=120
			             money+=albpayrand*1000
			             sweat=-3
			             profiDanceTime+=1
			             gs'stat'
			             'You agreed and phoned Albina by phone. Soon a car came up to you. You devchenki plunged into the car and went somewhere. Soon you come to what that home in the great hall where people sat and observed. You are dressed in costumes, who sewed commissioned Albina, and went on stage to dance to the fiery music. You danced very well and everything went smoothly. You left the stage and give the money to Albina. You take turns on bystrenkomu took a shower.'
			                 if vnesh>=13:
			                 if vnesh<16:wealthmanrand=RAND(0,15)
			                 if vnesh>=16 and vnesh<18:wealthmanrand=RAND(0,12)
			                 if vnesh>=18:wealthmanrand=RAND(0,10)
			                     if wealthmanrand=0:
			                     kolvomanparty=1
			                     danceWhorePay=RAND(3,8)
			                     'You see how to Albina man came in a decent suit and began about something with it quietly talk.'
			                     end
			                     if wealthmanrand=1:
			                     kolvomanparty=2
			                     danceWhorePay=RAND(5,10)
			                     'You see how to Albina was approached by two men and began about something to talk to her.'
			                     end
			                     if wealthmanrand=2:
			                     kolvomanparty=1
			                     danceWhorePay=RAND(4,9)
			                     'You see how to Albina came Caucasian and became about something to talk to her gesticulating.'
			                     end
			                     if wealthmanrand=3:
			                     kolvomanparty=2
			                     danceWhorePay=RAND(6,12)
			                     'You see how to Albina was approached by two Caucasians and became about something to talk to her.'
			                     end
			                     if wealthmanrand=4:
			                     kolvomanparty=3
			                     danceWhorePay=RAND(8,14)
			                     'You see how to Albina came three Caucasians and became about something to talk to her.'
			                     end
			                     if wealthmanrand=5:
			                     kolvomanparty=1
			                     danceWhorePay=RAND(5,10)
			                     'You see how to Albina went Negro and became about something to talk to her.'
			                     end
			                     if wealthmanrand=6:
			                     kolvomanparty=2
			                     danceWhorePay=RAND(7,15)
			                     'You see how to Albina walked two blacks and became about something to talk to her.'
			                     end
			                     if wealthmanrand=7:
			                     kolvomanparty=3
			                     danceWhorePay=RAND(10,20)
			                     'You see how to Albina walked three blacks and became about something to talk to her.'
			                     end
			                     if wealthmanrand<=7:
			                     'After talking Albina came to you. "Sveta, need to talk."'
			                         act 'about what?':
									 cls
									 minut+=15
									 gs'stat'
									 'You asked Albina, what she wanted to talk.'
									 if kolvomanparty=1:'Albina came closer to you and quietly began to speak "You see this guy? If you stay with him for an hour and be affectionate, you can not make bad. receive <<danceWhorePay*1000>> rubles."'
									 if kolvomanparty>1:'Albina came closer to you and quietly began to speak "You see these guys? If you stay with them for a couple of hours and be affectionate, you can not make bad. receive <<danceWhorePay*1000>> rubles."'
									 	 act 'Cancel and go back':
										 cls
										 minut+=15
										 otkazDanceWhore+=1
										 DanceWhoreT=0
										 gs'stat'
										 'You got in the car and soon.'
										 act 'Get_Away':gt'gorodok'
										 end
										 
										 act 'agree':
										 cls
										 money+=danceWhorePay*1000
										 DanceWhore+=1
										 DanceWhoreT+=1
										 otkazDanceWhore=0
										 slutty+=1
										 gs'stat'
										 'You agree and Albina counted you money.'
										 if wealthmanrand=0:act 'Go with a man':gt'DanceWhore1'
										 if wealthmanrand=1:act 'Go with men':gt'DanceWhore2'
										 if wealthmanrand=2:act 'Go with Caucasians':gt'DanceWhore3'
										 if wealthmanrand=3:act 'Go with Caucasians':gt'DanceWhore4'
										 if wealthmanrand=4:act 'Go with Caucasians':gt'DanceWhore5'
										 if wealthmanrand=5:act 'Go with a black man':gt'DanceWhore6'
										 if wealthmanrand=6:act 'Go with blacks':gt'DanceWhore7'
										 if wealthmanrand=7:act 'Go with blacks':gt'DanceWhore8'
										 end
									 end
			                     exit
			                     end
			                 end
			                 if vnesh<13:
			                 'After dancing Albina talked with some sort of men and what the Contracting.'
			                 end
			                 
			                 act 'drive back':
			                 cls
			                 minut+=15
			                 gs'stat'
			                 'You got in the car and soon.'
                             act 'Get_Away':gt'gorodok'
                             end
			             end
			         end
			     end
			     act 'Get_Away':gt'gdksport'
             end
         end
     end
     
     
     if gsAboDance>0:
         if sport >0:
			 act 'section dances, ticket is valid for <<gsAboDance>> Attendance':
			 cla
			 *clr
			 gsAboDance-=1
			 set minut = minut + 120
			 set fat = fat - 5
			 if agil<50:agil+= RAND (1,3)
			 if agil>=50 and agil<80:agil+= RAND (0,2)
			 if agil>=80:agil+= RAND (0,1)
			 set manna = manna - 5
			 set sweat = sweat + 3
			 if dance<agil:dance+=RAND(5,15)
			 gs'stat'
			 '<center><img src="pic/fit1.jpg" ></center>'
			     if dance<100:
                 'You were taught modern dance club, which are very popular in discos.'
                     if dance<agil:
                     'You have to string up, but your agility and helps you hone some of what dance moves.'
                     else
                     'You do not have enough dexterity, that would successfully repeat all the movements.'
                     end
                     !place for use in events
                     dancegevrand=rand(0,1)
                     if dancegevrand=0:
                     'It seems you see, that is <a href="exec:GT ''danceGev''">interesting</a>.'
                     end
                     
                 end
			     if dance>=100:
                 'You tried podcherpnut something new in modern club dances, but you already know very well.'
                 if albinaQWdance>0:
                 !place for use in events
                  dancegevrand=rand(0,1)
                     if dancegevrand=0:
                     'It seems you see, that is <a href="exec:GT ''danceGev''">interesting</a>.'
                     end
                 end
                 
                     if albinaQWdance=0 and StoryLine>0:
                     'When the training is over you will notice how the room included a few girls and Albina Barlovskaya. You Albina odnoklasnitsy, but you almost nothing about it know.'
                         act 'Greet Albina':
                         cls
                         gs'stat'
                         numnpc=23
                         '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
                         '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
                         'You are greeted with Albina. She raised an eyebrow haughtily. "And it`s you. What`s your name out there? Oh yeah Light. Are you? dancing zanimaeshsya?" You nodded confirming the obvious. Albina laughed scornfully. "Well?" You said coldly Albina "not bad." Albina gave you a contemptuous look "not bad? Well. but I doubt, that you can dance to a more or less professional level."'
                             act 'I do not care.':
                             cls
                             numnpc=23
                             dom+=1
                             grupNPC[numnpc]-=5
                             gs'stat'
                             '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
                             '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
                             'You said contemptuously as possible, you do not care and have turned away from Albina. She said with a giggle. "girls. Let`s train."'
                             act 'Get_Away':gt'gdksport'
                             end
                             
                             act 'I know how to dance.':
                             cls
                             numnpc=23
                             !dom+=1
                             !grupNPC[numnpc]-=5
                             gs'stat'
                             '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
                             '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
                             'Albina you already beginning to irritate his arrogance. And you told her emphatically, that you know how to dance. Albina turned to the girls who came to her and said. "girls. Let`s train." Then she turned to you and said with a slight grin. "You can sit and watch as the dance pros. She `ll understand"'
                             act 'Get_Away':gt'gdksport'
                                 act 'watch.':
								 cls
								 minut+=15
								 gs'stat'
								 'Girls included stereo and started dancing. You once it became clear, they dance very clearly and professionally. You are unlikely to be able to so. Albina also dances much better than you. And indeed very concerted actions of girls and waste, apparently they work out this dance is not the first time. When the music ended Albina said "girls. While little break." She came up to you and said a little breathlessly "we pro. We spent a dance troupe Zvezdushki. Dance at festivals. Even in a music video filmed."'
								 act 'Get_Away':gt'gdksport'
								     act 'Ask them to team.':
									 cls
									 minut+=15
									 gs'stat'
									 'You asked for a dance group. Albina laughed "And you can? We then have all load. although vprchem. Show me how you know how to dance." Albina including music and girls gathered to look at your dance.'
									 	 act 'dance.':
										 cls
										 minut+=5
										 gs'stat'
										 'You began to dance to the music, trying as much as possible. When the music stopped you came Albina. "Kolkhoz Style course. but nothing, you have a certain potential."'
										 	 act 'Well take me in your team?':
											 cls
											 albinaQWdance=1
											 minut+=5
											 gs'stat'
											 'You asked Albina, Does it take you to their team. Albina think and respond to you. "Fair_Enough, take. Can out of you and get that worthwhile."'
											 act 'Get_Away':gt'gdk'
											 end
										 end
									 end
								 end
                             end
                         end
                     end
                 end
			 act 'Get_Away':gt'gdksport'
			 end
		 else
		 'You are not dressed in sports clothes.'
		 end
     end

     if gsAboBeg>0:
         if sport >0:
			 act 'section jogging, ticket is valid for <<gsAboBeg>> Attendance':
			 cla
			 *clr
			 gsAboBeg-=1
			 set minut = minut + 120
			 set speed = speed + RAND (1,3)
			 set manna = manna - 5
			 set fat = fat - 5
			 set sweat = sweat + 3
			 set beg = beg + RAND(3,6)
			 gs'stat'
			 '<center><img src="pic/parkbeg.jpg" ></center>'
			 'Are you a runner for two hours.'
			 act 'Get_Away':gt'gdksport'
			 end
		 else
		 'You are not dressed in sports clothes.'
		 end
     end
     
     if gsAboVolley>0 and volleysostav=0:
         if sport >0:
             if week!5:
				 act 'section volleyball, ticket is valid for <<gsAboVolley>> Attendance':
				 cla
				 *clr
				 gsAboVolley-=1
				 set minut = minut + 120
				     if alko<=0:
					 set speed = speed + RAND (1,3)
					 if agil<50:agil+= RAND (1,3)
					 if agil>=50 and agil<80:agil+= RAND (0,2)
					 if agil>=80:agil+= RAND (0,1)
					 
					 if stren<10:stren+=RAND(1,3)
					 if stren>=10 and stren<20:stren+=RAND(1,2)
					 if stren>=20 and stren<30:stren+=1
					 if stren>=30 and stren<40:stren+=RAND(0,1)
					 
					 if vital<10:vital+=RAND(1,3)
					 if vital>=10 and vital<20:vital+=RAND(1,2)
					 if vital>=20 and vital<30:vital+=1
					 if vital>=30 and vital<40:vital+=RAND(0,1)
					 
					 set beg = beg + RAND(1,2)
					 volleyboll+=1
					 end
					 set manna = manna - 5
					 set fat = fat - 5
					 set sweat = sweat + 3
				     
				 gs'stat'
				 '<center><img src="qwest/alter/gdksport.jpg" ></center>'
				 if alko<=0:'At the beginning of workout you ran a few laps around the room. After you press the jog and do abdominal exercises. After this.'
				 if alko>0:'You are trying to train, but your intoxication does not give you focus and you will suffer from garbage, than treneruetes.'
				 act 'Get_Away':gt'gdksport'
				 act 'Go to coaching':gt'Voltrener'
				 end
			 end
			 if week=5:
				 act 'section volleyball, ticket is valid for <<gsAboVolley>> Attendance':
				 cla
				 *clr
				 gsAboVolley-=1
				 set minut = minut + 120
				     if alko<=0:
					 set speed = speed + RAND (1,2)
					 agil+=RAND(1,2)
					 if stren<40:stren+=RAND(1,2)
					 if vital<40:vital+=RAND(1,2)
					 set beg = beg + RAND(1,2)
					 volleyboll+=1
					 dom+=1
				     end
				 set manna = manna - 5
				 set fat = fat - 5
				 set sweat = sweat + 3
				 gs'stat'
				 '<center><img src="qwest/alter/gdksport.jpg" ></center>'
				 'Fridays are usually held as the game in which the identified strengths and talented athletes.'
				     if alko<=0:
						 if volleyboll<25:
						 'You are absolutely lousy play and constantly mistaken. Finally nerves coach can not stand and it removes you from the field.'
						 end
						 if volleyboll>=25 and volleyboll<50:
						 'You are not playing very. Sometimes doing blunders. The coach is angry, but tolerates your antics.'
						 end
						 if volleyboll>=50 and volleyboll<75:
						 'You played well on the field and rarely wrong. Coach looks pleased you.'
						 end
						 if volleyboll>=75:
						 'You are a great game on the field, easy replaying his rivals. Coach looks pleased with your game.'
						 volevrand=rand(0,1)
							 if volevrand=0:
							 if andGevknow=0:$nameAndGev='some guy'
							 if andGevknow>0:$nameAndGev='Andrew'

							 'During the game you pushed <a href="exec:GT ''volAndGev''"><<$nameAndGev>></a>.'
							 end
						 end
				     end
				     if alko>0:
				     'You took to the field, but failed to recapture myach, intoxication does not focus. The coach sees your status and remove you from the game.'
				     end
				 act 'Get_Away':gt'gdksport'
				 act 'Go to coaching':gt'Voltrener'
				 end
			 end
		 else
		 'You are not dressed in sports clothes.'
		 end
     end
     
     if volleysostav>0:
         if sport >0:
             if week!6 and volkomday!day:
				 act 'To engage with the team':
				 cla
				 *clr
				 volkomday=day
				 set minut = minut + 120
				 set speed = speed + RAND (1,3)
				 agil+=RAND(1,3)
				 if stren<50:stren+=RAND(1,3)
				 if vital<50:vital+=RAND(1,3)
				 set manna = manna - 5
				 set fat = fat - 5
				 set sweat = sweat + 3
				 set beg = beg + RAND(1,2)
				 volleyboll+=1
				 trenerepa+=1
				 dom+=1
				 gs'stat'
				 '<center><img src="qwest/alter/gdksport.jpg" ></center>'
				 'Number of games <<volsesongame>>, Win - <<volsesonwin>>, lesions - <<volsesonloss>>, draws - <<volsesondraw>>.'
				 'At the beginning of workout you ran a few laps around the room. After you press the jog and do abdominal exercises. After this. At the end of training you had the game.'
				 act 'Get_Away':gt'gdksport'
				 act 'Go to coaching':gt'Voltrener'
				 end
			 end
			 if week=6 and sorevday!day:
				 act 'Go to competitions with the team':
				 cla
				 *clr
				 if poverkomand=0:poverkomand=600
				 volltime=0
				 sorevday=day
				 set minut = minut + 180
				 set speed = speed + RAND (1,3)
				 agil+=RAND(1,3)
				 if strn<60:stren+=RAND(1,3)
				 if vital<60:vital+=RAND(1,3)
				 set manna = manna - 5
				 set fat = fat - 5
				 set sweat = sweat + 3
				 set beg = beg + RAND(1,2)
				 volleyboll+=RAND(1,3)
				 dom+=1
				 trenerepa+=2
				 gs'stat'
				 '<center><img src="qwest/alter/gdksport.jpg" ></center>'
				 'You gathered their things together with other devchenki from the team and got on a bus that took you to a place where there will be a match.'
				 act 'play':gt'volley'
				 end
			 end
		 else
		 'You are not dressed in sports clothes.'
		 end
     
     end
     else
     'Sports clubs are closed.'
     end







--- gdksport ---------------------------------

# Voltrener
$din_trener_bj={
	 act 'do blowjob':
	 cls
	 bj+=1
	 if trenerSex>0:trenerSex+=1
	 if trenerSex=0:trenerSex=1&guy+=1
	 if volleysostav>0:trenerepa+=2
	 gs'stat'
	 '<center><img src="qwest/alter/ev/tren.jpg" ></center>'
	 'You sit down in front of the coach and stroked his crotch and felt that, stood as his cock. You reached into his pants with the other hand holding the gum and groped hot cock trainer. You pulled standing member of the sports pants and leaned toward him wrapped around his lips.'
	     
	     if trenerSex>=5:
	     
	     end
	     
	     if tipTrsex=0:
	     cumlip+=1
	     swallow+=1
	     gs'stat'
	     'Coach slightly groaned and your mouth spurted warm jet of sperm. You started to swallow the warm liquid fills your mouth.'
	     end
	     
	     if volleysostav=0:
		 volleysostav=1
		 trenerepa=20
		 'Coach bosses cock in his pants. "Okay Lebedev, you are very diligent girl, can and will come out a lot about you, count, you`re already on the team, but of course in The Benchwarmers."'
	     end
	 if tipTrsex=0:act 'Get_Away':tipTrsex=0&gt'gdksport'
	 end
}
$din_trener_gorslut={
gs'stat'
'You reluctantly nodded his head "it is true, I really <<$gnikname>>. And what does this have to volleyball?" The coach smiled, "indirect relationship, very indirect, We`re now discussing how you get into the team. And I wonder, what you can do. You know what I Gauvreau?"'
	 act 'No':
	 cls
	 gs'stat'
	 'You shook his head and said coach, you do not understand, coach sighed "And you do not mind bleschesh, is not it? Well, I`m a lonely man, and all around a pretty young girl. so clear?"'
	 act 'Get_Away':gt'gdksport'
	 dynamic $din_trener_bj
	 end
	 
	 act 'Put his hand on his knee coach':
	 cls
	 gs'stat'
	 'You leaned forward slightly and put her palm on his knee coach, you whispered with a grin "Need a little demonstration of my other skills? I understand you correctly?" Coach leaned back in his chair "Are you clever girl Light, go_ahead."'
	 dynamic $din_trener_bj
	 end
}

gs'stat'
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'You went into the room coach, in which there are cups, balls, different sports equipment and a table for which sometimes sits coach and fills a variety of paper. Coach Mikhail Vlasov deals not only with fans in the section but also in the same professional team coach volleybolistok.'
if volleysostav>0:
if trenerepa<20:'The coach does not want you to suffer more.'
if trenerepa>=20 and trenerepa<40:'Coach barely tolerates you.'
if trenerepa>=40 and trenerepa<60:'You have a normal relationship with the coach.'
if trenerepa>=60 and trenerepa<80:'You have a good relationship with the coach.'
if trenerepa>=80:'Coach you doted.'
     if trenerepa<=0:
     volleysostav=-1
     'Coach menacingly appeals to you. "All Lebedev, You make me sick with their flourishes. I`ll exclude from the team!"'
     act 'Get_Away':gt'gdksport'
     exit
     end

end
     act 'Talk with the coach':
     cls
     gs'stat'
     	 if volleysostav=-1:
		     if trenerSex=0:
		     'The coach looked at you "Lebedev. Do not even come near me. I do not include you in command!"'
		     end
		     if trenerSex>0:
		     'The coach looked at you "Lebedev. Do not even come near me. I do not include you in command!"'
		     end
		 end
         if volleysostav=0:
			 if volleyboll<25:
			 'The coach looked at you "And Lebedev. Do not distract me from affairs."'
			 end
			 if volleyboll>=25 and volleyboll<50:
			 'The coach looked at you "And Lebedev. You need to spend more time training, you are all very bad."'
			 end
			 if volleyboll>=50 and volleyboll<75:
			 'The coach looked at you "And Lebedev. You`re certainly not a bad game, but not bad for an amateur. Higher level you do not potyanesh."'
			 end
			 if volleyboll>=75:
			 'The coach looked at you "And Lebedev. Do you have the makings of athletes, but I`m not sure, that at the professional level."'
			     act 'Asks in the pros':
			     cls
			     gs'stat'
			         if GorSlut=0:
						 if volleyboll<100:
						 'You started to ask the coach to include you in command, but he shook his head. "Lebedev, Do not bury, you have a good amateur level. But you do not potyanesh."'
						 end
						 if volleyboll>=100:
						 'You started to ask the coach to include you in command, coach thought. "Of course you can try to enable you to spare, but I do not even know, whether."'
							 act 'convince':
							 cls
							 dom-=1
							 gs'stat'
								 if dom>=10:
								 !if volleysostav>0:trenerepa-=1
								 volleysostav=1
								 trenerepa=20
								 'You started to prove coach, that you want to include in the team, coach tried to object, but your head was so compelling, that in the end he gave up. "Okay Lebedev, I `ll put you in command, while naturally only in replacement players."'
								 else
								 'You started to prove coach, that you want to include in the team, but failed to show sufficient vigor and the coach threw all your arguments to deny you.'
								 end
							 act 'Get_Away':gt'gdksport'
							 end
						 end
			         end
			         if GorSlut>0:
			         'You started to ask the coach to include you in the. The coach thought "Listen Lebedev, then other devchoki about you say different things. For example you <<$gnikname>>. it is true?"'
						 act 'It `s all lies':
						 cls
						 gs'stat'
							 if dom>0:
							 'You started to prove coach, that the rumors about you. You spoke quite clearly and it seems the coach believed.'
							 	 act 'Make sure to include the team':
								 cls
								 dom-=1
								 gs'stat'
									 if dom>=10:
									 !if volleysostav>0:trenerepa-=1
									 volleysostav=1
									 trenerepa=20
									 'You started to prove coach, that you want to include in the team, coach tried to object, but your head was so compelling, that in the end he gave up. "Okay Lebedev, I `ll put you in command, while naturally only in replacement players."'
									 else
									 'You started to prove coach, that you want to include in the team, but failed to show sufficient vigor and the coach threw all your arguments to deny you.'
									 end
								 act 'Get_Away':gt'gdksport'
								 end
							 else
							 'You started to prove coach, that the rumors about you. You say not very convincing and coach you frankly do not believe. "Lebedev, Stop lying! You hold me for a fool?"'
								 act 'Fair_Enough, it is true, I <<$gnikname>>':
								 cls
								 gs'stat'
								 dynamic $din_trener_gorslut
								 end
							 end
						 act 'Get_Away':gt'gdksport'
						 end
						 
						 act 'it is true, I <<$gnikname>>':
						 cls
						 gs'stat'
						 dynamic $din_trener_gorslut
						 end
						 
			         end
			     act 'Get_Away':gt'gdksport'
			     end
			 end
		 end
		 if volleysostav>0:
		     if trenerSex=0:
		     'The coach looked at you "And Lebedev. Do not distract me from affairs."'
		     end
		     if trenerSex>0:
		     'The coach looked at you "And Lebedev. Fellow that came."'
		     	 act 'Put his hand on his knee coach':
				 cls
				 gs'stat'
				 'You leaned forward slightly and put her palm on his knee coach, you whispered with a grin "Need a little demonstration of my skills? I understand you correctly?" Coach leaned back in his chair "Are you clever girl Light, go_ahead."'
				 dynamic $din_trener_bj
				 end
		     end
		 end
	 act 'Get_Away':gt'gdksport'
	 end
act 'Get_Away':gt'gdksport'
--- Voltrener ---------------------------------

# volley
minut+=30
gs'stat'
if volltime=0:
poverkomandV=rand(500,1500)
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'The teams took to the field and start playing.'
	 if volleysostav=1:
	 'You are sitting on the bench watching how your team plays.'
	 end
	 
	 	 if poverkomand>poverkomandV:
	 	 volpoint+=1
	 	 
	     'Your team plays with the team opponents.'
	     end
	     if poverkomand=poverkomandV:
	      volpoint+=1
	      volpointv+=1
	     'The scales vary in one, then the other, obviously teams are equal on forces.'
	     end
	     if poverkomand<poverkomandV:
	      volpointv+=1
	     'Team beats rivals your team.'
	     end
	 act 'further':volltime=1&gt $curloc
end
if volltime=1:
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'There was a break .'
	 if volleysostav=1:
	 'You are sitting on the bench.'
	     act'asks play':
	     cls
	     gs'stat'
	     trenereparand=rand(0,80)
	         if trenerepa>=trenereparand:
	         volleysostav=2
	         dom+=1
	         poverkomand-=100
	         poverkomand+=volleyboll
	         'The coach has agreed to release you on the field.'
	         act 'further':volltime=2&gt $curloc
	         else
	         'You have been asking the coach to play, but he shook his head and went on to explain the strategy of girls.'
	         act 'further':volltime=2&gt $curloc
	         end
	     end
	 end

	 act 'further':volltime=2&gt $curloc
end
if volltime=2:
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'Break is over and the team started to play again.'
	 if volleysostav=1:
	 'You are sitting on the bench watching how your team plays.'
	 end
	 
	 	 if poverkomand>poverkomandV:
	 	  volpoint+=1
	     'Your team plays with the team opponents.'
	         if volleysostav=2:
	             if volpointv>0:
	             trenerepa+=10
	             end
	         end
	     end
	     if poverkomand=poverkomandV:
	      volpoint+=1
	       volpointv+=1
	     'The scales vary in one, then the other, obviously teams are equal on forces.'
	     	 if volleysostav=2:
	             if volpointv>0:
	             trenerepa+=5
	             end
	         end
	     end
	     if poverkomand<poverkomandV:
	      volpointv+=1
	     'Team beats rivals your team.'
	     	 if volleysostav=2:
	             if volpoint>0:
	             trenerepa-=10
	             end
	         end
	     end

     
	 act 'further':volltime=3&gt $curloc
end
if volltime=3:
volsesongame+=1
'<center><img src="qwest/alter/gdksport.jpg" ></center>'
'Final whistle.'

     if volpoint>volpointv:
     volsesonwin+=1
	 'Your team won.'
	 end
	 if volpoint=volpointv:
	 volsesondraw+=1
	 'draw.'
	 end
	 if volpoint<volpointv:
	 volsesonloss+=1
	 'Your team lost.'
	 end

if volleysostav=2:volleysostav=1&poverkomand-=volleyboll&poverkomand+=100
volpoint=0
volpointv=0
	 act 'Get_Away':gt'gdksport'
     act 'Go to coaching':gt'Voltrener'
end


--- volley ---------------------------------

# DanceWhore1
minut+=5
gs'stat'
'The man took you by the hand and led him into the room. When the man turned on the lights in the room ,you will see, it`s a big bedroom.'


dick=RAND(10,26)
 act 'To squat':
 cls
 bj+=1
 guy+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bj.jpg" ></center>'
 'You sit down in front of a man and took his dick hand. Slightly moving the skin on the penis head you licked. Your nimble tongue began to caress hot and hard cock men. Then you started to suck dick absorbing it into his mouth so much, how could.'
 tipdarand=RAND(0,2)
     if tipdarand=0:
     'Man vzal your head in his hands and began to stick it to the member.'
         act 'relax the throat':
		 cls
		 if throat<dick:throat+=1
		 minut+=10
		 gs'stat'
		 '<center><img src="qwest/alter/dance/throat.jpg" ></center>'
		     if throat<dick/2:
		     manna=0
		     horny=0
		     'You frantically began to relax the throat when a member enters into you. Do you drool flowed, snot and tears, constantly covered vomiting cramps.'
		     end
		     if throat>=dick/2 and throat<dick:
		     manna=manna/2
		     horny=horny/2
		     'You are relaxed throat and a member began to enter into your throat to the base. You snot and tears flowed from it and you become short of breath.'
		     end
		     if throat>=dick:
		     'You totally relax the throat and a member each time was a member of your throat to the ground hitting you hairy chin eggs.'
		     end
		     tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Little man groaned and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'The man took out a member of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
	 end
	 if tipdarand=1:
     'The man took out a member of your mouth and put your cancer.'
     	 act 'substitute the ass':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/anal.jpg" ></center>'
		 dynamic $sexstart
		 dynamic $analsex
		 dynamic $din_go_to_home_dance
		 end
	 end
	 if tipdarand=2:
     'The man took out a member of your mouth and put you on your back.'
     	 act 'Lie on your back.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/sex.jpg" ></center>'
		 'You lay on your back. <<$bname>> lay on top and spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 dynamic $din_go_to_home_dance
		 end
	 end
	 
	 
 end





















--- DanceWhore1 ---------------------------------

# DanceWhore2
minut+=5
gs'stat'
'The guys took you to your room.'

dick=RAND(10,26)
 act 'To squat':
 cls
 bj+=2
 guy+=2
 gang+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjd.jpg" ></center>'
 'You sit down in front of guys and their members have hands. Little masturbate you licked the head of one of the members. Then you started to suck dick absorbing it into his mouth so much, how could masturbate and the second term. When you become a member of the hardened suck second term. Your wet mouth caressed and sucked at once both members.'
 tipdarand=RAND(0,1)
     if tipdarand=0:
     'You guys put cancer. One went in the back, the second went to your mouth. You felt like fingers Man began to caress your anus. A second man impatiently tapped his cock you in the face.'
         act 'Relax the ass and sucking':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/d.jpg" ></center>'
		 'You suck dick absorbing it as deep as possible.'
		 dynamic $sexstart
		 dynamic $analsex
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=1:
     'Guys put you back on the sofa, One is located between your legs, the second went to your face.'
         act 'suck.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/d1.jpg" ></center>'
		 'You began to suck dick, while the second guy spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=2:
     
     end
end




















--- DanceWhore2 ---------------------------------

# DanceWhore3
minut+=5
gs'stat'
'Caucasian took you by the hand and led him into the room. When the man turned on the lights in the room ,you will see, it`s a big bedroom.'

dick=RAND(16,30)
 act 'To squat':
 cls
 bj+=1
 guy+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bj.jpg" ></center>'
 'You sit down in front of a man and took his dick hand. Slightly moving the skin on the penis head you licked. Your nimble tongue began to caress hot and hard cock men. Then you started to suck dick absorbing it into his mouth so much, how could.'
 tipdarand=RAND(0,2)
     if tipdarand=0:
     'Man vzal your head in his hands and began to stick it to the member.'
         act 'relax the throat':
		 cls
		 if throat<dick:throat+=1
		 minut+=10
		 gs'stat'
		 '<center><img src="qwest/alter/dance/throat.jpg" ></center>'
		     if throat<dick/2:
		     manna=0
		     horny=0
		     'You frantically began to relax the throat when a member enters into you. Do you drool flowed, snot and tears, constantly covered vomiting cramps.'
		     end
		     if throat>=dick/2 and throat<dick:
		     manna=manna/2
		     horny=horny/2
		     'You are relaxed throat and a member began to enter into your throat to the base. You snot and tears flowed from it and you become short of breath.'
		     end
		     if throat>=dick:
		     'You totally relax the throat and a member each time was a member of your throat to the ground hitting you hairy chin eggs.'
		     end
		     tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Little man groaned and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'The man took out a member of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
	 end
	 if tipdarand=1:
     'The man took out a member of your mouth and put your cancer.'
     	 act 'substitute the ass':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/anal.jpg" ></center>'
		 dynamic $sexstart
		 dynamic $analsex
		 dynamic $din_go_to_home_dance
		 end
	 end
	 if tipdarand=2:
     'The man took out a member of your mouth and put you on your back.'
     	 act 'Lie on your back.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/sex.jpg" ></center>'
		 'You lay on your back. <<$bname>> lay on top and spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 dynamic $din_go_to_home_dance
		 end
	 end
	 
	 
 end




















--- DanceWhore3 ---------------------------------

# DanceWhore4
minut+=5
gs'stat'
'Two Caucasians led you to your room.'



dick=RAND(16,30)
 act 'To squat':
 cls
 bj+=2
 guy+=2
 gang+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjd.jpg" ></center>'
 'You sit down in front of guys and their members have hands. Little masturbate you licked the head of one of the members. Then you started to suck dick absorbing it into his mouth so much, how could masturbate and the second term. When you become a member of the hardened suck second term. Your wet mouth caressed and sucked at once both members.'
 tipdarand=RAND(0,1)
     if tipdarand=0:
     'You guys put cancer. One went in the back, the second went to your mouth. You felt like fingers Man began to caress your anus. A second man impatiently tapped his cock you in the face.'
         act 'Relax the ass and sucking':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/d.jpg" ></center>'
		 'You suck dick absorbing it as deep as possible.'
		 dynamic $sexstart
		 dynamic $analsex
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=1:
     'Guys put you back on the sofa, One is located between your legs, the second went to your face.'
         act 'suck.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/d1.jpg" ></center>'
		 'You began to suck dick, while the second guy spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facial.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=2:
     
     end
end






--- DanceWhore4 ---------------------------------

# DanceWhore5
minut+=5
gs'stat'
'Three Caucasians led you to your room.'

dick=RAND(16,30)
 act 'To squat':
 cls
 bj+=3
 guy+=3
 gang+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjt.jpg" ></center>'
 'You sit down in front of guys and their members have hands. Little masturbate you licked the head of one of the members. Then you started to suck dick absorbing it into his mouth so much, how could masturbate and other members of the. You tried to lick and suck just three members.'
 !tipdarand=RAND(0,1)
 tipdarand=0
     if tipdarand=0:
     'Caucasians are talking in a strange language you put cancer.'
         act 'Relax the ass and sucking':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/f.jpg" ></center>'
		 'You suck two members of absorbing them as deeply as possible into his mouth.'
		 dynamic $sexstart
		 dynamic $analsex
		 	 act 'further':
			 cls
			 tipdarand=RAND(0,1)
				 if tipdarand=0:
				 cumface+=2
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facialt.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally. Second Caucasian .'
				 end
				 if tipdarand=1:
				 cumlip+=2
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallowt.jpg" ></center>'
				 'You knelt and willingly opened her mouth. Caucasians began to cum in your open mouth filling it with sperm. When the flow of sperm stopped and turned your mouth is filled to the brim with sperm, you swallow it.'
				 end
			 dynamic $din_go_to_home_dance
			 end
		 end
     end
     if tipdarand=1:
     end
     if tipdarand=2:
     
     end
end

--- DanceWhore5 ---------------------------------

# DanceWhore6
minut+=5
gs'stat'
'A hefty black man took you by the hand and led him somewhere.'

dick=RAND(18,35)
 act 'To squat':
 cls
 bj+=1
 guy+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjn.jpg" ></center>'
 'You sit down in front of a man and took his dick hand. Slightly moving the skin on the penis head you licked. Your nimble tongue began to caress hot and hard cock men. Then you started to suck dick absorbing it into his mouth so much, how could.'
 tipdarand=RAND(0,2)
     if tipdarand=0:
     'Man vzal your head in his hands and began to stick it to the member.'
         act 'relax the throat':
		 cls
		 if throat<dick:throat+=1
		 minut+=10
		 gs'stat'
		 '<center><img src="qwest/alter/dance/throatn.jpg" ></center>'
		     if throat<dick/2:
		     manna=0
		     horny=0
		     'You frantically began to relax the throat when a member enters into you. Do you drool flowed, snot and tears, constantly covered vomiting cramps.'
		     end
		     if throat>=dick/2 and throat<dick:
		     manna=manna/2
		     horny=horny/2
		     'You are relaxed throat and a member began to enter into your throat to the base. You snot and tears flowed from it and you become short of breath.'
		     end
		     if throat>=dick:
		     'You totally relax the throat and a member each time was a member of your throat to the ground hitting you hairy chin eggs.'
		     end
		     tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Little man groaned and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'The man took out a member of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facialn.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
	 end
	 if tipdarand=1:
     'The man took out a member of your mouth and put your cancer.'
     	 act 'substitute the ass':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/analn.jpg" ></center>'
		 dynamic $sexstart
		 dynamic $analsex
		 dynamic $din_go_to_home_dance
		 end
	 end
	 if tipdarand=2:
     'The man took out a member of your mouth and put you on your back.'
     	 act 'Lie on your back.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/sexn.jpg" ></center>'
		 'You lay on your back. <<$bname>> lay on top and spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 dynamic $din_go_to_home_dance
		 end
	 end
	 
	 
 end
--- DanceWhore6 ---------------------------------

# DanceWhore7
minut+=5
gs'stat'
'Two Negro led you to your room.'
dick=RAND(18,35)
 act 'To squat':
 cls
 bj+=2
 guy+=2
 gang+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjdn.jpg" ></center>'
 'You sit down in front of guys and their members have hands. Little masturbate you licked the head of one of the members. Then you started to suck dick absorbing it into his mouth so much, how could masturbate and the second term. When you become a member of the hardened suck second term. Your wet mouth caressed and sucked at once both members.'
 tipdarand=RAND(0,1)
     if tipdarand=0:
     'You guys put cancer. One went in the back, the second went to your mouth. You felt like fingers Man began to caress your anus. A second man impatiently tapped his cock you in the face.'
         act 'Relax the ass and sucking':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/dn.jpg" ></center>'
		 'You suck dick absorbing it as deep as possible.'
		 dynamic $sexstart
		 dynamic $analsex
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facialn.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=1:
     'Guys put you back on the sofa, One is located between your legs, the second went to your face.'
         act 'suck.':
		 cls
		 minut+=30
		 !sex+=1
		 $boy='customer'
		 gs'stat'
		 '<center><img src="qwest/alter/dance/d1n.jpg" ></center>'
		 'You began to suck dick, while the second guy spread your legs.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 tipdarand=RAND(0,1)
		     if tipdarand=0:
		     'Man fuck you in the mouth, groaned a little and grabbed your hair pinning you to face your pubes Curly. Suddenly hit you in the throat jet of sperm.'
		         act 'swallow':
				 cls
				 cumlip+=1
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallow.jpg" ></center>'
				 'You became convulsively swallow cum member yet not finished pour the seed into your mouth.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		     if tipdarand=1:
		     'Man fuck you in the mouth, took the cock out of your mouth and began to masturbate him in front of your face.'
		     	 act 'Close your eyes':
				 cls
				 cumface+=1
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facialn.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally.'
				 dynamic $din_go_to_home_dance
				 end
		     end
		 end
     end
     if tipdarand=2:
     
     end
end

--- DanceWhore7 ---------------------------------

# DanceWhore8
minut+=5
gs'stat'
'Three Negro led you to your room.'





dick=RAND(18,35)
 act 'To squat':
 cls
 bj+=3
 guy+=3
 gang+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/dance/bjtn.jpg" ></center>'
 'You sit down in front of guys and their members have hands. Little masturbate you licked the head of one of the members. Then you started to suck dick absorbing it into his mouth so much, how could masturbate and other members of the. You tried to lick and suck just three members.'
 !tipdarand=RAND(0,1)
 tipdarand=0
     if tipdarand=0:
     'Negros talking in a strange language you put cancer.'
         act 'Relax the ass and sucking':
		 cls
		 minut+=30
		 $boy='customer'
		 cumanus+=1
		 gs'stat'
		 '<center><img src="qwest/alter/dance/fn.jpg" ></center>'
		 'You suck two members of absorbing them as deeply as possible into his mouth.'
		 dynamic $sexstart
		 dynamic $analsex
		 	 act 'further':
			 cls
			 tipdarand=RAND(0,1)
				 if tipdarand=0:
				 cumface+=2
				 facial+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/facialtn.jpg" ></center>'
				 'You close your eyes and feel like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally. Second Caucasian .'
				 end
				 if tipdarand=1:
				 cumlip+=2
				 swallow+=1
				 minut+=10
				 gs'stat'
				 '<center><img src="qwest/alter/dance/swallowtn.jpg" ></center>'
				 'You knelt and willingly opened her mouth. Negros began to cum in your open mouth filling it with sperm. When the flow of sperm stopped and turned your mouth is filled to the brim with sperm, you swallow it.'
				 end
			 dynamic $din_go_to_home_dance
			 end
		 end
     end
     if tipdarand=1:
     end
     if tipdarand=2:
     
     end
end




--- DanceWhore8 ---------------------------------

# gdkin
$din_kotov_love={
if kotovLoveQW>0:
cls
gs'stat'
'<center><B><font color=maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="qwest/alter/npc/9.jpg" ></center>'
'To you and the guy fits Vitek. "Th for garbage? What is this bloke?" Witek takes for breast Man and angrily says "Well ka sebal horrified by my heifer, and now mug smashed into smithereens. understood?"'
     if DPgrup=1:
     fightboyrand=RAND(0,10)
         if fightboyran<=5:
         'The guy started talking fright. "Come on you, I did not know. already gone." Vitek pushed Man "Get out of here until I`m good."'
         end
         if fightboyran>5 and fightboyran<10:
         'The guy pushes Victor "Get your hands, deer!" Vitek suddenly gets a very fast and powerful punch.'
         'The guy from the blow falls on the dance floor. Witek approaches him and grabbing breast lifts his feet, then throws the guy to the wall. "Mr. Cho uebok? still need? Or already realized?" Man holding his bruised face mumbles "all, all! I got it!"'
         end
         if fightboyran>=10:
         'Man beats silence in the face with his fist Vit`ka. Vitek recoils from the guy and then gets in a quick and powerful punch. fight begins, punches fly on both sides, suddenly the guy misses a very strong supply from Vic and flying away to the wall falls to the floor. Witek runs up to him and thrusts into the opponent in a couple of powerful blows. Man no longer resists, apparently he lost consciousness.'
         end
     end
     if DPgrup=2:
     'The kid starts with Ramsey Vityok "Listen, Who are you in life?" Vitek markedly sviripeet and to help him fit drugany. To the kid in turn also tightened boys. nachinaetsya disassembly. After some time.'
     end
     if DPgrup=3:
     'Man throws up his hands "Sorry young man. Do not know." Vitek repels man "Topa city bloke here, until I`m good."'
     end
     
     	 act 'Leave the Vityok':numnpc=9&gt 'Snpc'
exit
end
}


$din_reakt_dance={
if alko>0:
horny+=10
manna+=5
'Do you feel, that the actions of Man excite you.'
else
if horny>0:horny-=5
manna-=5
'You feel an aversion to these actions Man.'
end
gs'stat'
}
$din_reverse_reakt_dance={
if alko<=0:
manna+=20
horny+=1
'You fun and interesting.'
elseif alko>0:
if horny>0:horny-=5
manna-=5
'Is it boring and uninteresting.'
end
gs'stat'
}

$din_dance_vrp={
 minut+=5
 if dance<50 and agil>=dance:dance+=1
 gs'stat'
 'You accepted the offer and the guy taking you by the hand and brought you forth on the dance floor, where you started dancing together.'
	 if DPgrup=1:
		 if DPtipe=1:
		 'Man dancing with you holding you by the waist with his hands.'
		 dynamic $din_reverse_reakt_dance
		 
		 end
		 if DPtipe=2:
		 
		 'Drunk guy pushes you to your. You feel like your soft breasts literally flattened on his chest Man.'
		 dynamic $din_reakt_dance
		 
		 end
	 end
	 if DPgrup=2:
		 if DPtipe=1:
		 
		 'The guy is quite enough to unleash your waist and his hands on his hips you slip.'
		 dynamic $din_reakt_dance
			 
		 end
		 if DPtipe=2:
		 'Pyany guy grabs your ass and squeezes her much, His head is tilted towards your face and it bites into your <<$liptalk3>> kiss.'
		 dynamic $din_reakt_dance
		 
		 end
	 end
	 if DPgrup=3:
		 if DPtipe=1:
		 'A man very confident and elegant leads you to the dance, keeping you around the waist with his strong hands.'
		 dynamic $din_reverse_reakt_dance
		 
		 end
		 if DPtipe=2:
		 'Drunk man in spite of his advanced views embraces you by the waist and his hands down to you on the ass.'
		 dynamic $din_reakt_dance
		 
		 end
	 end
	 
	 dynamic $din_vibor_tipe_dance
	 
	 act 'stop dance':
	 cls
	 gt $curloc
	 end
}
$din_dance_otkaz={
 if alko<=2 and horny<=75:
	 act 'Opt_Out':
	 cls
	 willpower+=RAND(0,1)
	 gt 'gdkin'
	 end
 end

}

$din_vibor_tipe_dance={
     !'
     if dance>=50 and alko>0 and horny>=50:
         act 'sexy dance':
		 cls
		 dance+=1
		 gs'stat'
		 
		 gt $curloc
		 end
     end
     '
     
	 act 'further':
	 cls
	 gs'stat'
	 '<center><img src="etogame/club_dance.jpg"></center>'
	 	 if DPgrup=1:
			 if DPtipe=1:
			 'The guy told you to dance "my name is <<$bname>>. And what`s your name?" you answered "Sveta". The song ends and the guy offers to sit with him and talk. '
			 
			 end
			 if DPtipe=2:
			 'The guy told you to dance "my name is <<$bname>>. And what`s your name?" you answered "Sveta". The entire dance drunk guy crushed your body and now his face was flushed with excitement. He offers to go from the club to the street, breath of fresh air, communicate.'
			 
			 end
			 act 'Go to guy':gt'EvBoyBuh'
		 end
		 if DPgrup=2:
			 if DPtipe=1:
			 'The entire dance guy grabs you on the ass and he is clearly excited, when it is pressed against you, you feel, something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			 act 'go thump':gt'EvgopBuh'
			 end
			 if DPtipe=2:
			 'The entire dance guy grabs you on the ass, chest and kissed you, he is clearly excited, when it is pressed against you, you feel, something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			 act 'go thump':gt'EvgopBuh'
			 end
		 end
		 if DPgrup=3:
			 if DPtipe=1:
			 'All male dance was confident and elegant, Finally the song ended and the man offers to go get some fresh air and talk.'
			     act 'Go with a man':
				 cls
				 gs'stat'
				 '<center><img src="etogame/dk_night.jpg"></center>'
				 'You went out with a man. He came up to you and a little hug around the waist. "my name is <<$bname>>. And what`s your name?" you answered "Sveta". The man continued "Svetsik, I`m in your town on a business trip. Live at the hotel, himself from. Virtually nothing in your town do not know. Come to my hotel. take whiskey, caviar, sit, chat."'
				 act 'Go to the hotel':gt'EvOtelMan'
				 dynamic $din_dance_otkaz
				 end
			 end
			 if DPtipe=2:
			 'The entire dance drunk man molested you. "my name is <<$bname>>. And what`s your name?" you answered "Sveta". The man continued "Svetsik, I`m not a local, I live in the hotel, Let`s now take a taxi and go to my."'
			 act 'Go to the hotel':gt'EvOtelMan'
			 end
		 end
     gs'stat'
		 dynamic $din_dance_otkaz
		 
		 dynamic $din_kotov_love
	 end
	 
	 

}


$din_otbor_dance_pertner={
!the creation of a partner to dance
gs'BnameGen'
DaPaTipeRand=RAND(0,100)
if DaPaTipeRand<70:
!ordinary local boy
DrunkDPTrand=RAND(0,100)
     if DrunkDPTrand<70:
     DPtipe=1
     DPgrup=1
     $din_disc_dance='It suits you the guy in jeans and T-shirt, and invites you to dance.'
     $din_disc_dance2='Near you dancing guy in jeans and T-shirt.'
     end
     if DrunkDPTrand>=70:
     DPtipe=2
     DPgrup=1
     $din_disc_dance='It suits you drunk guy in jeans and T-shirt, and invites you to dance.'
     $din_disc_dance2='Near you dancing drunk guy in jeans and T-shirt.'
     end
end
if DaPaTipeRand>=70 and DaPaTipeRand<90:
!local gopar
DrunkDPTrand=RAND(0,100)
     if DrunkDPTrand<50:
     DPtipe=1
     DPgrup=2
     $din_disc_dance='It suits you the guy dressed in sweatpants and sweatshirts same and offers dance.'
     $din_disc_dance2='Near you dancing guy in sweatpants and sweatshirts.'
     end
     if DrunkDPTrand>=50:
     DPtipe=2
     DPgrup=2
     $din_disc_dance='It suits you drunk guy dressed in sweatpants and sweatshirts same and takes you arms around his waist offering dance.'
     $din_disc_dance2='Near you dancing drunk guy in sweatpants and sweatshirts.'
     end
end
if DaPaTipeRand>=90:
!traveling_expenses
DrunkDPTrand=RAND(0,100)
     if DrunkDPTrand<90:
     DPtipe=1
     DPgrup=3
     $din_disc_dance='For you fit man in a decent jacket, pants with arrows, expensive shoes, and invites you to dance.'
     $din_disc_dance2='Near you dancing man in a decent jacket, pants with arrows, expensive shoes.'
     end
     if DrunkDPTrand>=90:
     DPtipe=2
     DPgrup=3
     $din_disc_dance='It suits you drunk man in a decent jacket, pants with arrows, expensive shoes, and invites you to dance.'
     $din_disc_dance2='Near you dancing drunk man in a decent jacket, pants with arrows, expensive shoes.'
     end
end
}
 $din_too_drunk_dance={
 if StoryLine=1 and BeInSchool>0:
 cls
 gs'stat'
     'It suits you Katya Meynold "light, so you get drunk? go home, I `ll take you."'
	 act 'Go with Kate':
	 cls
	 minut+=15
	 grupNPC[14]=100
	 if meynoldQW=0:meynoldQW=1
	 gs'stat'
	 '<center><img src="etogame/club_dance.jpg"></center>'
	 'Kate took you to your home by keeping hands.'
	 act 'go home':gt'korrPar'
	 end
exit
end
 }

$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	 if music_on=0:
		 inited = 1
		 music_on=1
		 volume = 100
		 $music_theme = 'gdis'
		 gs 'init_music'
	 end

'<center><B><font color=maroon>disco</font></B></center>'
'<center><img src="etogame/club_yaho.jpg"></center>'
     if hour>=20 and hour<=23:
     if StoryLine=1 and BeInSchool>0:'In the club  <a href="exec:GT ''SgrupDisco''">people you know</a>.'
     
     if soniaslut<5:soniaslut+=1
     if grupTipe[25]=0 and StoryLine=1 and BeInSchool>0 and soniaslut>=5 and hour<23:
     'You notice at the disco Sonia Ivanko your class. It is what it is talking to Vityok Kotov.'
     act 'View Sonya':gt'soniaDisco'
     exit
     end
     
     !if soniaPS>=1 and hour<=21 and meynoldQW=0 and BeInSchool>0:
     !''
     !exit
     !end
     	
		 act 'one dance':
		 cls
		 '<center><img src="etogame/club_dance.jpg"></center>'
		 minut+=5
		 !fat-=1
		 if dance<50 and agil>=dance:dance+=1
		 manna+=10
		 willpower+=10
		 frost=0
		 gs'stat'
		     if cumface>0 or cumfrot>0:
		         if GorSlut < 2:GorSlut=2
		         manna-=100
		         'It suits you and the guy starts to stick, suddenly he sees you cum. Man jumps from you "Thanked, vaflersha. think for boys, this chick all in Konche peremazanna." To you guys still look fit. "Yeah exactly. Hey nipple, unsuccessfully vysmarkalas something?" You cheeks blush with shame and you`re heading for the exit.'
		         act 'Get_Away':gt'gdk'
		     exit
		     end
			 if alko >= 4:
			 'You are drunk in the trash and trying to dance, but the floor out from under the feet and you dance instead of just drunk Mota regularly bumping into other people.'
			 
			 dynamic $din_too_drunk_dance
			 
			 elseif alko<4 and alko>0:
			 'You `re drunk and have fun Gallop across the floor without paying attention to others and even to music.'
			 else
             'Music is quite old, but catchy. And you have fun whirls in a dance, not paying any attention to anybody.'
			 end
			 
			 if alko<4:
			 verprigrand=RAND(0,100)
				 
				 if verprigrand<=dance:
				 dynamic $din_otbor_dance_pertner
				 
				 '<<$din_disc_dance2>>'
				 gs'stat'
				 	 act 'Dance with a guy':
					 cls
					 '<center><img src="etogame/club_dance.jpg"></center>'
					 dynamic $din_dance_vrp
					 end
					 
					 act 'move_away':
					 cls
					 gt $curloc
					 end
				 exit
				 end
			 end
			 
		 gs'stat'
		 act 'further':gt'gdkin'	
		 end
		 
		 act 'To stand at the wall':
		 cls
		 '<center><img src="etogame/club_yaho.jpg"></center>'
		 minut+=5
		 !fat-=1
		 manna-=5
		 frost=0
		 gs'stat'
		 	 if cumface>0 or cumfrot>0:
		         if GorSlut < 2:GorSlut=2
		         manna-=100
		         'It suits you and the guy starts to stick, suddenly he sees you cum. Man jumps from you "Thanked, vaflersha. think for boys, this chick all in Konche peremazanna." To you guys still look fit. "Yeah exactly. Hey nipple, unsuccessfully vysmarkalas something?" You cheeks blush with shame and you`re heading for the exit.'
		         act 'Get_Away':gt'gdk'
		     exit
		     end
			 if alko >= 4:
			 'You are drunk in the trash and stand against the wall with difficulty holding onto it because of the fact that the floor floats you from under the feet.'
			 dynamic $din_too_drunk_dance
			 elseif alko<4 and alko>0:
			 'You `re drunk and standing at the wall watching the dancing.'
			 else
             'You are standing at a modest stenochki watching dancing.'
			 end
			 
			 if alko<4:
			 verodance=0
				 if hapri=1:verodance+=1
				 if glamur=1:verodance+=2
				 if ski=1:verodance+=1
				 if mop = 2:verodance+=1
				 if mop = 3:verodance+=2
				 if mop = 4:verodance+=3
				 verodance+=alko
				 verodance+=5
				 
				 verprigrand=RAND(0,20)
				 
				 if verprigrand<=verodance:
				 dynamic $din_otbor_dance_pertner
				 
				 '<<$din_disc_dance>>'
				 gs'stat'
					 act 'dance':
					 cls
					 gs'stat'
					 '<center><img src="etogame/club_dance.jpg"></center>'
					 dynamic $din_dance_vrp
					 end
					 
					 act 'Opt_Out':
					 cls
					 gt $curloc
					 end
				 exit
				 end
			 end
		 gs'stat'
		 act 'further':gt'gdkin'	
		 end
	 end
	 if hour<20:
	 'The club is closed. turn on the light, music fades and all begin to diverge.'
	 end 
	 	
act 'come out':gt'gdk'
--- gdkin ---------------------------------

# soniaDisco
$din_sonia_dance={
act 'Approach to Sonia':
cls
minut+=15
gs'stat'
'<center><img src="qwest/alter/sonia/1.jpg" ></center>'
'You went to Sonya and told her that she had piled strap. Sonia smiled drunkenly and began awkwardly correct dress. To you came Vitek Kotov and noticed "cool tits." Sonia touched her nipple finger "The_Truth? Do you like" Kotov grinned "But what about the. You still cool and sponges, well probably suck." Sonia knocked cam Vic "Ofigel something?" Vitek laughed "I`m talking about ice cream, And you thought that?" Sonia embarrassed "You do not have ice cream!" Vitek squinted slyly "And if there is? Pososesh?" Sonia licked "I`d love to." Vitek pulled out his ice cream and print it. Sonia pulled her hands to ice cream, but Witek cleverly cleaned ice cream from Sony "Just out of my hands."'
     act 'watch':
	 cls
	 minut+=3
	 horny+=5
	 gs'stat'
	 '<center><img src="qwest/alter/sonia/2.jpg" ></center>'
	 'Sonia took her hands and opened her mouth. Vitek had ice cream on the lips and tongue. Sonia began to suck the ice cream as a member and slyly look at Vic. Vitek gently lowered down to the level of their ice cream pants and Sonia slowly squatted down and continued to suck ice cream. Vitek noticeably excited and fly reared. Shulga and Auburn were watching with their mouths open. Auburn finally squeezed "Let`s go to the street still buhnem."'
	 
	 	 act 'Staying at the disco':
		 cls
		 minut+=5
		 dance+=1
		 soniaPS=1
		 grupTipe[25]=-1
		 $npcText[25]='Sonia once inadvertently got drunk and fucked her in the mouth in a circle Vitek Kotov and his friends. After that girls shunned Sonia, and the boys thought she was a whore. Local gopota regularly drove to Sonya with offers to have sex.'
		 gs'stat'
		 '<center><img src="qwest/alter/sonia/7.jpg" ></center>'
		 'You were at the disco and continued to dance. Soon happy guys went to a disco, Cats arm dragged Sonia, you looked carefully and gasped, her whole face was covered with sperm. The boys began to laugh and call Sonia whore, girls turned away with contempt. Sonia pulled her hand out of the hands of Victor and ran away with disco.'
		 act 'Leave the disco':gt'gdkin'
		 end
	 
	     act 'Go to the street':
		 cls
		 minut+=3
		 horny+=5
		 gs'stat'
		 '<center><img src="qwest/alter/sonia/3.jpg" ></center>'
		 'You went out with the company and went to the place where booze. Sonia was staggering and eats ice cream. "Vitek, Do you have another ice cream?" Vitek grinned "We find something. Syat on his haunches and close your eyes." Sonia giggling squatted and closed her eyes. Vitek unbuttoned his pants and fell out of his pants his risen member. Sonia opened her eyes and drew back. she giggled, but did not get up on his feet. Vitek said quietly "You can touch, it is far better ice cream."'
             act 'watch':
			 cls
			 minut+=3
			 horny+=5
			 gs'stat'
			 '<center><img src="qwest/alter/sonia/4.jpg" ></center>'
             ' Sonia looked as if spellbound on the penis before his face and her hands went to the member, She pointed her finger and dick cock jerked, Sonia giggled and grabbed a member of their little hands. Her slender fingers began to stroke the skin on the penis. Vitek said choked "Now try to taste, you will like."'
				 act 'watch':
				 cls
				 minut+=3
				 horny+=5
				 gs'stat'
				 '<center><img src="qwest/alter/sonia/5.jpg" ></center>'
				 'Sonia brought his face to the penis and licked her head cautiously, then opened her lips and put prick in her mouth. Sonia began to suck dick loud smacking. The other guys as teammates began to unbutton his pants and surround Sonia.'
				 	 act 'watch':
					 cls
					 minut+=3
					 horny+=5
					 gs'stat'
					 '<center><img src="qwest/alter/sonia/6.jpg" ></center>'
					 'Sonia surrounded by guys and she began to suck their members did not resist . It took quite a bit of time and the guys in turn began to cum Sonia `s face, covering his sperm.'
					 	 act 'watch':
						 cls
						 minut+=3
						 horny+=5
						 soniaPS=1
						 grupTipe[25]=-1
						 $npcText[25]='Sonia once inadvertently got drunk and fucked her in the mouth in a circle Vitek Kotov and his friends. After that girls shunned Sonia, and the boys thought she was a whore. Local gopota regularly drove to Sonya with offers to have sex.'
						 gs'stat'
						 '<center><img src="qwest/alter/sonia/7.jpg" ></center>'
						 'Finally the guys finished and removed members of his pants. Ryzhov said "We have to give the lads announced on vafleshe. And zashkvaryatsya about this whore." Shul`ga giggled "Classroom huesoska." Sonia drunkenly got to his feet and leaned against a tree. flowed down her face sperm and you notice, that the eyes of her tears flow. Sonia whispers "What have I done, fool."'
						 act 'Leave the disco':gt'gdkin'
						 end
					 end
				 end
			 end
		 end
	 end
end
}


gs'stat'
'<center><img src="qwest/alter/sonia/0.jpg" ></center>'
'By Vit`ka Kotov joined his friends, at Vasya you notice package where you can see the bottle. Vitek notice your mind and turns to you. "Hey Svetsik. We then decided to plunk, Come with us."'

act 'go thump':
cls
alko+=2
minut+=15
gs'stat'
'<center><img src="qwest/alter/sonia/0.jpg" ></center>'
'You along with the company went out and Bob took out the package vodka, a piece of liver sausage, lemonade and a loaf of Pinocchio. Bob poured vodka into plastic cups and distributed. You drank vodka choking and washed it down with lemonade. Sonya too drunk. After that. Bob again poured vodka into glasses. You decided to skip and Sonia drank vodka. After that. "I want to dance. Come back."'
	 act 'Go back to the disco':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/sonia/1.jpg" ></center>'
     'You`re back with the company to a disco and Sonya immediately ran to the dance floor. Sonia so desperately dancing, that does not even notice, that she fell off her bra strap and seen her naked breasts.'
	 dynamic $din_sonia_dance
	 end
end

act 'Opt_Out':
cls
minut+=30
gs'stat'
'<center><img src="qwest/alter/sonia/1.jpg" ></center>'
'You refused and the company withdrew, after a while you see that Sonia guys back to the disco and Sonia frankly drunk. Sonia goes to the dance floor and starts to dance. Sonia so desperately dancing, that does not even notice, that she fell off her bra strap and seen her naked breasts.'
dynamic $din_sonia_dance
end










--- soniaDisco ---------------------------------

# gschool
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
gs'time'
'<center><B><font color=maroon>school</font></B></center>'
'<center><img src="qwest/alter/gschool.jpg" ></center>'
'Ordinary school where learning local children.'

act 'Go_Out':gt'gorodok'

if zverRageQW=1:
cls
zverRageQW=2
gs'stat'
gs'time'
'You came to the school yard after school, vnezpno someone you flunked powerful Pendel in the ass, you dumbfounded turned and saw Christina Zverev contorted with rage face. She yelled at you "you ohuel, whether that bitch, about me any garbage chat? I`ll now break mug!"'
	 set $nameV = 'Christina'
	 !stats
	 set strenV = 100
	 set speedV = 90
	 set agilV = 90
	 set reactV = 90
	 set vitalV = 120
	 set intelV = 50
	 set willV = 50
	 !skills
	 set magikV = 100
	 set boxingV = 40
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*10 + magikV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 0
	 set ZverevaFight = 1
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 round=0
	 act 'fight':gt'fight','start'
exit
end

if day=29 and month=12 and year=2010 and StoryLine=1:
     if hour=14:
     'Near the school are already well-dressed girls and boys in your class. Someone called you "Sveta, you did not hand over a thousand for the new year"'
     if money>=1000:act 'Go to a party (1000r)':money-=1000&gt'sny'
     end
end

if week=6 and schoolSorev=2 and hour=10:
'Near the school are students from different schools and athletes preparing for competitions in running.'
     act 'Participate in city running race':
     cls
     minut+=30
     gs'stat'
     'You came to the athletes and he wrote you. After this athlete finished all the preparations for the competition and the boys took to the strata. Guys run and won as expected Ivan Prokhorov. After the guys finished the turn girls.'
     if swinbeggor=0:
     'Ready to start Christina Zvereva, one of the girls in your class. She scoff at you "You can never defeat me."'
     end
     if swinbeggor=1:
      'Ready to start Christina Zvereva, one of the girls in your class. She angrily looking at you "You`re ahead of me once, but now you will not work."'
     end
     if swinbeggor=2:
     'Ready to start Christina Zvereva, one of the girls in your class. She looks at you with hatred "Again came the knot? Well nothing, This time I`ll do!"'
     end
         act 'Go to start':
         cls
         kolsorev+=1
         minut+=30
         schoolSorev=0
         gs'stat'
         '<center><img src="pic/begsor.jpg" ></center>'
		 'girls, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
		 Set begplus = beg + speed + vital + RAND (1,20)
		 Set begminus = salo + RAND (1,20)
		 Set begresult = begplus - begminus
		 if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
		 if begresult > 0 and begresult < 70:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
		 if begresult >= 70 and begresult < 80:'You fought hard, but only managed to take the penultimate 7 place.'
		 if begresult >= 80 and begresult < 90:'You fought hard, but only managed to take 6 place.'
		 if begresult >= 90 and begresult < 100:'You fought hard, but only managed to take 5 place.'
		 if begresult >= 100 and begresult < 110:'You fought hard, but only managed to take 4 place.'
		 if begresult >= 110 and begresult < 120:'You fought hard, and managed to take 3 place. Fizruk congratulate you on the success.'
		 if begresult >= 120 and begresult < 130:'You fought hard, and managed to take 2 place. Fizruk congratulates you in hurry.'
		 if begresult >= 130:Set swinbeggor+=1&dom+=1&'You fought hard, and managed to take 1 place. Fizruk congratulate you on winning the competition.'
		 Set beg = beg + 1
		 Set fat = fat - 10
			 if swinbeggor = 3 and razradbeg = 1:
			 razradbeg = 2
			 grupNPC[18]=0
			 zverevaQW=1
			 'You have won three times on the city competitions and announces Fizruk you about, he pohadataystvoval and you handed 2First sports category on the run. Christina Zvereva stands apart clenched his hands into fists and hate looking at you.'
			 end
			 if swinbeggor=1 and begresult >= 130:
			 grupNPC[18]=0
			 'At the finish line stands Christina Zvereva and trying to catch my breath, she could not overtake you and come second. Christina tries not to look you in the eye.'
			 end
			 if swinbeggor=2 and begresult >= 130:
			 grupNPC[18]=0
			 'At the finish line stands Christina Zvereva and trying to catch my breath, she could not overtake you and come second. Christina through his teeth growls at you "Here is a bitch!"'
			 end
		 gs'stat'
		 act 'Go_Out':gt'gorodok'
         end
     end
end

if week=6 and schoolSorev=1 and hour=10:
'Near the school are students of different classes and Fizkulturnik preparing to conduct a running race.'
     act 'Participate in school running race':
     cls
     minut+=30
     gs'stat'
     'You came to the athletes and he wrote you. After this athlete finished all the preparations for the competition and the boys took to the strata. Guys run and won as expected Ivan Prokhorov. After the guys finished the turn girls.'
         act 'Go to start':
         cls
         minut+=30
         schoolSorev=0
         kolsorev+=1
         gs'stat'
         '<center><img src="pic/begsor.jpg" ></center>'
		 'girls, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
		 Set begplus = beg + speed + vital + RAND (1,20)
		 Set begminus = salo + RAND (1,20)
		 Set begresult = begplus - begminus
		 if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
		 if begresult > 0 and begresult < 10:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
		 if begresult >= 10 and begresult < 20:'You fought hard, but only managed to take the penultimate 7 place.'
		 if begresult >= 20 and begresult < 30:'You fought hard, but only managed to take 6 place.'
		 if begresult >= 30 and begresult < 40:'You fought hard, but only managed to take 5 place.'
		 if begresult >= 40 and begresult < 50:'You fought hard, but only managed to take 4 place.'
		 if begresult >= 50 and begresult < 60:'You fought hard, and managed to take 3 place. Fizruk congratulate you on the success.'
		 if begresult >= 60 and begresult < 70:'You fought hard, and managed to take 2 place. Fizruk congratulates you in hurry.'
		 if begresult >= 70:Set swinbeg+=1&dom+=1&'You fought hard, and managed to take 1 place. Fizruk congratulate you on winning the competition.'
		 Set beg = beg + 1
		 Set fat = fat - 10
			 if swinbeg = 3 and razradbeg = 0:
			 razradbeg = 1
			 'You have won three times at school competitions and announces Fizruk you about, he pohadataystvoval and you handed 3First sports category on the run.'
			 end
		 gs'stat'
		 act 'Go_Out':gt'gorodok'
         end
     end
end

if hour<=8 and week<6 and StoryLine>0 and SchoolAtestat=0 and kanikuli=4 and month = 5 and day >= 25 and age=17:
'Today you will be prom.'
     act 'Go to the prom':
     cls
     SchoolAtestat=1
     intel+=10
     gs'stat'
     'Your class is built on a ruler and a teacher to congratulate you on the successful completion of the school.'
     act 'Go_Out':gt'gorodok'
         act 'Go to the prom':
         cls
         minut+=120
         alko+=5
         gs'stat'
         !gee gee, no normal outlet
         'At the graduation all get drunk in the asshole. You almost do not remember anything, only, that bathed in the fountain as a paratrooper.'
         act 'Go_Out':gt'gorodok'
         end
     end
end


if hour<=8 and week<6 and StoryLine>0 and SchoolAtestat=0 and kanikuli=0:
     if Sforma>0:
     act 'Go to school':gt'gschool2'
     else
     'You do not wear uniforms and you are not allowed in school.'
     end
end


if hour>=16 and GorSlut>=3 and SchoolGossip>0 and afterschoolday!day:
aftgopbjrand=rand(0,2)
     if aftgopbjrand=0:
	 cla
	 'At the exit of the school you were waiting for the boys . "Well nipple? Ready to work even their whorish mouth? Come for school."'
		 act 'Go after school':
		 cls
		 afterschoolday=day
		 SchoolGossip+=1
		 minut+=60
		 gs'stat'
		 'You took over the school where the boys giggling looking at you. Kotov said "I did not understand, huesoska why you still did not take the cheek?"'
			 act 'suck':
			 cls
			 minut+=60
			 bj+=3
			 if npcSex[9]=0:npcSex[9]=1&guy+=1
			 if npcSex[10]=0:npcSex[10]=1&guy+=1
			 if npcSex[11]=0:npcSex[11]=1&guy+=1
			 sub+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/toiletBJtreesome.jpg" ></center>'
			 'You obediently sat down on his haunches and Vitek took a member of his sweatpants. You wrapped around his own <<$liptalk3>> hard cock and began to suck. Dan and Bob Ryzhov Shulgin came to you and took out their members. You become one by one to handle dicks with her mouth caressing those, that is not in your mouth with your hands.'
				 act 'suck':
				 cls
				 minut+=60
				 bj+=3
				 cumlip+=1
				 cumface+=1
				 cumfrot+=1
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/toiletBJcum.jpg" ></center>'
				 'Finally. Looking at how the sperm flows out of your mouth remaining guys started to cum on your face. You closed your eyes and dutifully waited until the guys do not stop to finish. Finally they finished laughing at you and gone.'
				 act 'Go_Out':gt $curloc
				 end
			 end
		 end
	 exit
     end
     
end

if JuliaMilLernQW>=1 and hour=16 and week<6 and kanikuli=0:
'In the school yard strolls <a href="exec:minut+=1&GT ''JuliaMilGo''">Julia Milov</a>'
end
if NatBelLernQW>=1 and hour=16 and week<6 and kanikuli=0:
'In the school yard strolls <a href="exec:minut+=1&GT ''NatBelGo''">Natasha Belova</a>'
end

if artomLernQW>=1 and hour=16 and week<6 and kanikuli=0 and artomVitokQW!2 and artemblok=0:
'In the school yard you have to expect <a href="exec:minut+=15&GT ''artemEv''">Artem Chebotarev</a>'
end
if week=1 and kanikuli=0 and arthakQW>=10 and apmeetday!daystart and hour>=16:
gt'artgar'
end


if hour=16 and albinaCarday!day and week<6 and kanikuli=0:
     if DanceWhore>0 or AlbinaLast>0 or AlbinaBlokDance>0:
     !'You see standing in the school yard BMW X5 and <a href="exec:minut+=15&GT ''albinaEv''">Albina Barlovskuyu</a> sitting behind the wheel'
     end
     if AlbFrend>=1 and albrideday!daystart:
     'Near a large black SUV parked near the school stands <a href="exec:minut+=15&GT ''albinaRide''">Albina Barlovskaya</a>'
     end
end
if hour=16 and week<6 and kanikuli=0 and katjaMeynoldday!day and meynoldQW>=2:
'In the school yard strolls <a href="exec:minut+=15&GT ''katjaEv''">Katya Meynold</a>'
end
if DimaRudeQW>0 and hour=16 and week<6 and kanikuli=0 and dimarudeday!day and DimaRudeBlock=0:
'In the school yard is worth considering <a href="exec:minut+=15&GT ''dimaGoHome''">Dima Nosov</a>'
end
if IgorLoverQW>0 and hour=16 and week<6 and kanikuli=0 and igorkruglovday!day and IdorBlock=0:
'In the school yard strolls <a href="exec:minut+=15&GT ''IgorEv''">Igor Kruglov</a>'
end
if fedorKozlovQW>=10 and hour=16 and week<6 and kanikuli=0:
'not podaleku from the school entrance stands <a href="exec:minut+=15&GT ''FedorEv''">Fedor Kozlov</a>, He was delighted to see you .'
end
if strelaDay!day and strelaQW=1 and hour=16:
cls
gs'stat'
'To the school approached BMW and Mitsubishi Pajero. Of the cars out strong, inflated guys in leather jackets and tracksuits. They came to the meeting Cats, Red and Shul`ga. They talked about something and then walked out of school Fedor Kozlov with a swollen face, bruised. Cats waved his hand to you, "Sveta, come here, you witness."'
act 'Start at the arrow':gt'strela'
exit
end



gs'family'
--- gschool ---------------------------------

# gschool2
$d_fart_klass={
 if anus > 25 and analplugin=0:
 fartrand=rand(0,5)
	 if fartrand=0:
	 farttiperand=rand(0,3)
		 if farttiperand=0:
		 manna=manna/2
		 gs'stat'
		 'Stir in the chair you suddenly farted. Carefully looking around and looking at you understand classmates, that no one had heard of this.'
		 end
		 if farttiperand=1:
		 manna=manna/2
		 gs'stat'
		 'Stir in the chair you suddenly farted. Carefully looking around and looking at you understand classmates, that no one had heard of this. One of the guys suddenly become oziratsya and prinyuhivatsya, then whispered loudly neighbor "What a bastard naperdela?"'
		 end
		 if farttiperand=2:
		 manna=manna/2
		 sub+=1
		 gs'stat'
		 'Stir in the chair you suddenly farted. Several people turned out at you and giggled.'
		 end
		 if farttiperand=3:
		 manna=0
		 sub+=5
		 fart+=1
		 gs'stat'
		 'Stir in the chair you suddenly perdanuli loudly to the whole class. The whole class looked at you and classmates began to laugh at you. Teacher as something managed to calm the class. And you sit all red as a lobster out of shame and fear to raise their eyes to classmates, myself thinking "Christ, what a shame."'
		 end
	 end
 end
}
$d_fart_fiz={
 if anus > 25 and analplugin=0:
 fartrand=rand(0,5)
	 if fartrand=0:
	 farttiperand=rand(0,3)
		 if farttiperand=0:
		 manna=manna/2
		 gs'stat'
		 'The voltage you suddenly farted. Carefully looking around and looking at you understand classmates, that no one had heard of this.'
		 end
		 if farttiperand=1:
		 manna=manna/2
		 gs'stat'
		 'The voltage you suddenly farted. Carefully looking around and looking at you understand classmates, that no one had heard of this. One of the guys suddenly become oziratsya and prinyuhivatsya, then whispered loudly neighbor "What a bastard naperdela?"'
		 end
		 if farttiperand=2:
		 manna=manna/2
		 sub+=1
		 gs'stat'
		 'The voltage you suddenly farted. Several people turned out at you and giggled.'
		 end
		 if farttiperand=3:
		 manna=0
		 sub+=5
		 fart+=1
		 gs'stat'
		 'The voltage you suddenly perdanuli loudly to the whole class. The whole class looked at you and classmates began to laugh at you. Fizruk something like managed to calm the class. And you sit all red as a lobster out of shame and fear to raise their eyes to classmates, myself thinking "Christ, what a shame."'
		 end
	 end
 end
}

fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs'stat'
'<center><B><font color=maroon>school</font></B></center>'
'<center><img src="qwest/alter/gschool2.jpg" ></center>'
'The corridors at school painted cheap, toxic green paint.'

act 'Go_Out':gt'gschool'
$din_sekondparturok={
     act 'Go to lessons':
     cls
     minut+=60*3
     schoolprogul-=1
         if week!3 and week!5:
		 urand=RAND(0,12)
		 lernSkill+=1
		 lernHome+=1
		 BeInSchool+=1
		 gs'stat'
		 '<center><img src="qwest/alter/urok<<urand>>.jpg" ></center>'
		 'You were sitting in the classroom and listened to the monotonous boom on teachers, at least that is trying to understand and not fall asleep.'
		     dynamic $d_fart_klass
		 'Finally the bell rang and the students began to gather home.'
		 act 'Go_Out':gt'gschool'
		 end
		 if week=3 or week=5:
		 gs'stat'
		 '<center><img src="qwest/alter/fizra.jpg" ></center>'
		 'On Wednesdays and Fridays. You other devchenki dressed in the locker room and went to gym class. Viktor Pavlovich in tights with blisters on his knees and nickel-plated whistle built your class in a line and began to conduct a roll call.'
		 fizrarand=RAND(0,4)
		     if fizrarand=0:
		     set speed = speed + RAND (1,3)
			 set manna = manna - 5
			 set fat = fat - 5
			 set sweat = sweat + 3
			 set beg = beg + RAND(2,5)
		     'After the roll fizruk announced, today class will take the running. You ran with the whole class the entire gym class.'
		     
		     end
		     if fizrarand=1:
		     set agil = agil + RAND (1,3)
			 set fat = fat - 5
			 set manna = manna - 5
			 set sweat = sweat + 3
		     'After the roll fizruk announced, today class will take the jumping goat. You , that would jump over a goat.'
		     end
		     if fizrarand=2:
		     set stren = stren + RAND (1,3)
			 set manna = manna - 5
			 set fat = fat - 2
			 set sweat = sweat + 3
		     'After the roll fizruk announced, today class will take the pull. You , that would catch up on the bar with almost lying under a horizontal bar as well as all the girls.'
		     dynamic $d_fart_fiz
		     end
		     if fizrarand=3:
		     set vital = vital + RAND (1,3)
			 set manna = manna - 5
			 set fat = fat - 2
			 set sweat = sweat + 3
             'After the roll fizruk announced, today class will take the news. You , that would perform abdominal exercises.'
             dynamic $d_fart_fiz
		     end
		     if fizrarand=4:
		     set stren += RAND (1,3)
			 set manna = manna - 5
			 set fat = fat - 2
			 set sweat = sweat + 3
			 cls
			 horny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/rope.jpg" ></center>'
		     'On Wednesdays and Fridays. You other devchenki dressed in the locker room and went to gym class. Viktor Pavlovich in tights with blisters on his knees and nickel-plated whistle built your class in a line and began to conduct a roll call.'
             'After the roll fizruk announced, today class will take the climbing rope. You , that would climb the rope.'
                 if horny>=100:
                 horny=0
                 orgasm+=1
                 rope_orgasm+=1
                 'You climb a rope and feel like a solid rope t your pussy. You cover the excitement of each meter preodaleniya, Finally you flinch from covering you a pleasant feeling, all the muscles quivered and you covered orgasm right on the rope. Fizruk shouts from the bottom "Lebedev, what are you doing tryaseshsya? Tired or something? Get off then."'
                 end
                 if horny>=50 and horny<100:
                 'You climb a rope and feel like a solid rope t your pussy. You cover the excitement of each meter preodaleniya. You Strood to climb up to the top and go down the rope with a burning excitement face.'
                 end
		     end
		         if week=5 and razradbeg = 0:
		         if schoolSorev=0:schoolSorev=1
		         'fizruk announced, that on Saturday 10 will be held in the morning school run competitions.'
		         end
		         if week=5 and razradbeg = 1:
		         if schoolSorev=0:schoolSorev=2
		         'Fizruk came up to you and said, that on Saturday 10 in the morning will be held city competitions in running.'
		         end
		         
				 if fizrukSex>0 and kristinaSex>0:
				 'Christine came to you after physical education classes "Well sweetie Sveta, go to Pavlovich? amuse."'
					 act 'Go to the athletes':
					 cls
					 bj+=1
					 !cumlip+=1
					 if fizrukSex=0:fizrukSex=1&guy+=1
					 if kristinaSex=0:kristinaSex=1
					 grupNPC[18]=100
					 gs'stat'
					 '<center><img src="qwest/alter/ev/fiz.jpg" ></center>'
					 'You sit down in front of the coach next to Christine and kissed member fizruka. Then. Christina sat on his haunches and looked like you were aspirated. Then she took the dick in his mouth and began to lick you a solid trunk and eggs fizruka. Finally fizruk broke down and began to cum in her mouth Christine.'
					 act 'Go_Out':gt'gschool'
					 end
				 end
				 
				 if zverRageQW=10:
				 !Christina broke SG
				 act 'In the locker room':gt'gKristinaZv'
				 exit
				 end
		         
		         if zverevaQW=2:
		         
		         end
		         if zverevaQW=3 and fizrukSex=0:
		         
		         end
		         
		         if zverevaQW=1:
		         'you see, fizruk that went to his room and went after him Cristina Zvereva. All other students went to the output.'
		             act 'Eavesdrop under the doors':
		             cls
		             gs'stat'
		             'You stood quietly near the door to the room where the athlete sits and began eavesdropping. Christina said "Viktor Pavlovich, I`m not the Lebedev should go to regional competitions." Viktor Pavlovich said "Lebedev won you." Christina interrupted sporty "Well you promised!" then they both fell silent and there was a deep sigh fizruka. "Well Kristinochka, I can not just go and pick you up, and not its." Christina purred "And if you think?" Fizruk choked voice said "Oh God." Heard what that champ.'
		                 act 'peep':
						 cls
						 zverevaQW=2
						 horny+=10
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/zver.jpg" ></center>'
						 'You are inclined to the keyhole and looked back. What I saw you amazed. Christina was on her knees in front of the coach and sucked his cock.'
							 act 'Enter the room':
							 cls
							 zverevaQW=3
							 gs'stat'
							 !'<center><img src="qwest/alter/Ev/zver.jpg" ></center>'
							     if GorSlut=0:
							     'You opened the door and entered the room fizruka. Christine `s eyes widened when she saw you. She immediately jumped up and turned away wiping his mouth. Fizruk quickly began to fill standing member in the sport tights. "Lebedev, you have not been taught to knock? We then discuss the important issues!" you have rebelled, "questions? Yes, What would you have sent it to the competition!" Fizruk shrugged "What nonsense? Nothing was, what are you darling overheated? Can cause a doctor?" You are even more outraged "Viktor Pavlovich, I saw it all!" he grinned "Congratulations Light. Just who do you believe? You openly slander pytaeshsya best school athlete Christine Zvereva and get me to send you to the regional competitions, how low! I will complain to your parents and to the Director!" You choking and Christina smiled slyly you "You can not prove anything, bitch. Now get."'
							     end
							     if GorSlut>0:
							     'You opened the door and entered the room fizruka. Christina pulled away from the penis and giggled, "<<$gnikname>> Sveta came. Do you want to suck on candy?"'
							         act 'do blowjob':
									 cls
									 bj+=1
									 !cumlip+=1
									 if fizrukSex=0:fizrukSex=1&guy+=1
									 if kristinaSex=0:kristinaSex=1
									 grupNPC[18]=100
									 gs'stat'
									 '<center><img src="qwest/alter/ev/fiz.jpg" ></center>'
									 'You sit down in front of the coach next to Christine and kissed member fizruka. Then. Christina sat on his haunches and looked like you were aspirated. Then she took the dick in his mouth and began to lick you a solid trunk and eggs fizruka. Finally fizruk broke down and began to cum in her mouth Christine.'
									 act 'Go_Out':gt'gschool'
									 end
							     end
								 act 'Go_Out':gt'gschool'
							 end
							 
							 act 'pry further':
							 cls
							 horny+=10
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/zver.jpg" ></center>'
							 'Fizruk groaned and finished Christine in her mouth. That is not taking out a member of the mouth swallow sperm.'
								 act 'Get_Away':
								 cls
								 gs'stat'
								 'You left pondering what he saw. Christina turns fucking with physical trainer and she wants you to go to instead of regional competitions.'
								 act 'Go_Out':gt'gschool'
								 end
							 end
							 
							 act 'Get_Away':
							 cls
							 gs'stat'
							 'You left pondering what he saw. Christina turns fucking with physical trainer and she wants you to go to instead of regional competitions.'
							 act 'Go_Out':gt'gschool'
							 end
						 end
		             end
		         end
		     gs'stat'
		     act 'Go_Out':gt'gschool'
		 end
		 
     end

}
$din_bigperemena={

     if AlbFrend>=1 and GorSlut>=3 and SchoolGossip>0 and kotovLoveQW<=0 and AlbinaBlockHumiliation=0:
     AlbinaBlockHumiliation=1
     'During the break you approached local Gopnik. "Slysh huesoska, missed dick? Come in tolchek, feed you Concha." To the guys came Albina Barlovskaya "Hey kids, took away from it in rapid." The boys began to run into Albina, but she just laughed in their face "that`s what, boys, pull up their pants and stomp climbed from, if I see you again adheres to the Sveta, will be dealing with my dad, and you who he vkurse." Guys poobzyvali Albina my father`s daughter , it all the time for my dad hiding ass, Albina but only smiled in response to them, Soon the bell rang and the boys went to a lesson.'
     dynamic $din_sekondparturok
     exit
     end
     if AlbFrend>=1 and GorSlut>=3 and SchoolGossip=0 and kotovLoveQW<=0 and AlbinaBlockHumiliation=0:
     AlbinaBlockHumiliation=1
     'During the break you approached local Gopnik. "Slysh Light. star blowjob. We have already said potsiki, you zashkvarenaya. Come in tolchek, need to talk." To the guys came Albina Barlovskaya "Hey kids, took away from it in rapid." The boys began to run into Albina, but she just laughed in their face "that`s what, boys, pull up their pants and stomp climbed from, if I see you again adheres to the Sveta, will be dealing with my dad, and you who he vkurse." Guys poobzyvali Albina my father`s daughter , it all the time for my dad hiding ass, Albina but only smiled in response to them, Soon the bell rang and the boys went to a lesson.'
     dynamic $din_sekondparturok
     exit
     end
     
     if npcSex[14]=1 and KatjaLust>=50 and KatjaHorny+KatjaSlut>=100 and KatjaHorny>50:
     'During the break you went red as a lobster Katya Meynold and invited to go along to a secluded place.'
         act 'Go with Kate':
         cls
         gs'stat'
         '<center><img src="qwest/alter/katja/petting.jpg" ></center>'
         'Kate brought you into a small room where it was stored inventory for cleanup. She barely closed the door immediately dug into your lips on my lips and whispered passionately "Sveta, I want you."'
             act 'Lick Katie':
			 cls
			 lesbian+=1
			 sub+=1
			 KatjaDom+=1
			 katschoolsex+=1
			 KatjaSlut+=1
			 KatjaHorny=0
			 gs'stat'
			 '<center><img src="qwest/alter/katja/lesbian.jpg" ></center>'
			 'You sat on his haunches and Kate lifted her skirt and pulled down pants. You nuzzled into her crotch and began to caress his tongue deftly tiny clitoris Katie ,Soon Kate moaned and clutched your hair cum.'
			 dynamic $din_sekondparturok
			 end
         end
         
         dynamic $din_sekondparturok
     exit
     end
     

     if GorSlut>=3 and SchoolGossip>0 and kotovLoveQW<=0 and AlbinaBlockHumiliation=0:
     'During the break you approached local Gopnik. "Slysh huesoska, missed dick? Come in tolchek, feed you Concha."'
         act 'Go to the toilet':
         cls
         SchoolGossip+=1
         gs'stat'
         'You sadly went with the guys in the men`s room. One of the guys drove small fry of sortra and stood at the door. Cats talk to you. "Well huesoska. Take on the canine."'
             act 'suck':
			 cls
			 minut+=60
			 bj+=1
			 if npcSex[9]=0:npcSex[9]=1&guy+=1
			 cumlip+=1
			 swallow+=1
			 sub+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/toiletBJ.jpg" ></center>'
			 'You obediently sat down on his haunches and Vitek took a member of his sweatpants. You wrapped around his own <<$liptalk3>> hard cock and began to suck. Finally "swallow huesoska, if a drop of damage, will lick." You diligently swallowing sperm trying not to drop a single drop, Vitek finally stopped and removed the stop cock back in his pants. "Good for huesoska, now going to go to every change of tolchek portion struhni. I_Get_It?" You nodded, feeling the nasty taste of semen in the mouth.'
			 dynamic $din_sekondparturok
			 end
         end
     exit
     end

     if GorSlut>=3 and SchoolGossip=0 and kotovLoveQW<=0 and AlbinaBlockHumiliation=0:
     gopbjtoiletrand=rand(0,2)
         if gopbjtoiletrand=0:
		 'During the break you approached local Gopnik. "Slysh Light. star blowjob. We have already said potsiki, you zashkvarenaya. Come in tolchek, need to talk."'
			 act 'Go to the toilet':
			 cls
			 SchoolGossip=1
			 gs'stat'
			 'You are trembling with fear went with the guys in the men`s room. One of the guys drove small fry of sortra and stood at the door. Cats talk to you. "Well huesoska. Take on the canine."'
				 act 'suck':
				 cls
				 minut+=60
				 bj+=1
				 if npcSex[9]=0:npcSex[9]=1&guy+=1
				 cumlip+=1
				 swallow+=1
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/toiletBJ.jpg" ></center>'
				 'You obediently sat down on his haunches and Vitek took a member of his sweatpants. You wrapped around his own <<$liptalk3>> hard cock and began to suck. Finally "swallow huesoska, if a drop of damage, will lick." You diligently swallowing sperm trying not to drop a single drop, Vitek finally stopped and removed the stop cock back in his pants. "Good for huesoska, now going to go to every change of tolchek portion struhni. I_Get_It?" You nodded, feeling the nasty taste of semen in the mouth.'
				 dynamic $din_sekondparturok
				 end
				 
				 if dom>0:
				 
				 end
			 end
		 exit
		 end
		 if gopbjtoiletrand=1:
		 'On the reverse to you guy came from another class. "Hey Light, star blowjob, I heard that you <<$gnikname>>, go to jolt me sosnesh."'
		 	 act 'Go to the toilet':
			 cls
			 gs'stat'
			 'You went to the toilet with unfamiliar guy from another class. In the bathroom .'
				 act 'suck':
				 cls
				 minut+=60
				 bj+=1
				 guy+=1
				 cumlip+=1
				 swallow+=1
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/toiletBJ2.jpg" ></center>'
				 'You obediently sat down on his haunches and the guy ran his purple head you lips. You wrapped around his own <<$liptalk3>> hard cock and started to suck his hard cock absorbing into his mouth. After a while the man groaned and you feel like a warm jet of sperm hit you in the mouth. that would not choke you immediately started to swallow sperm and dosasyvat member. Finally went limp dick and a guy hid in his pants.'
				 dynamic $din_sekondparturok
				 end
				 
			 end
			 
			 if dom>0:
			     act 'Send it':
			     cls
			     gs'stat'
			     'You idiot sent to hell .'
			     dynamic $din_sekondparturok
			     end
			 end
		 exit
		 end
     end
     
     if soniaPS=2:soniaPS=3&'When the change you have seen how Sonya Ivanko talking about something Cats. Sonia looks at him almost in tears and nods.'

     act 'Sitting in class':
     cls
     minut+=60
     urand=RAND(0,20)
     gs'stat'
     '<center><img src="qwest/alter/peremena<<urand>>.jpg" ></center>'
     'You sit in a classroom with several <a href="exec:GT ''Sgrup1''">botanists and zauchkami</a>. Also in the left class <a href="exec:GT ''Sgrup5''">rogue</a>. Most students came out into the corridor. '
     dynamic $din_sekondparturok
     end
     
     act 'Go through the corridor':
     cls
     minut+=60
     gs'stat'
     '<center><img src="qwest/alter/school.jpg" ></center>'
     'Girls wandered through the piles and discussing something. The boys are kept separate and some went to school for smoking. You see local <a href="exec:GT ''Sgrup3''">krutanite</a>, <a href="exec:GT ''Sgrup2''">sportikov</a>'
     dynamic $din_sekondparturok
     end
     
     act 'Go to the toilet':
     cls
     minut+=60
     urand=RAND(0,12)
     gs'stat'
     '<center><img src="qwest/alter/toilet.jpg" ></center>'
     'The toilet is always full as devchenok who go about their business. Some smoke at the window. Local hooligans rubs near <a href="exec:GT ''Sgrup4''">toilet</a>.'
     dynamic $din_sekondparturok
         if soniaPS>=3:
         soniarand=rand(0,3)
             if soniarand=0:
             cls
             horny+=10
             gs'stat'
             '<center><img src="qwest/alter/sonia/t.jpg" ></center>'
             'Going to the toilet you see, that Sonia sucks dick at what that kid. Hard cock entering her mouth and Sonia champs and skillfully works sponges.'
             dynamic $din_sekondparturok
             end
         end 
     end
     
     act 'Go to the dining room':
     cls
     minut+=60
     urand=RAND(0,12)
     gs'stat'
     '<center><img src="qwest/alter/stolovka.jpg" ></center>'
     'In the cafeteria at recess all <a href="exec:GT ''Sgrup''">schoolchildren</a> wanting a snack.'
     dynamic $din_sekondparturok
         if money>=50:
             act 'buy food 50 RUB':
			 cls
			 money-=50
			 salo+=2
			 gs'stat'
			 '<center><img src="qwest/alter/stolovka.jpg" ></center>'
			  set minut = minut + 30
			 set health = health + 10
			 set manna = manna + 20
				 if energy >= 30:
				  set fat = fat + 5
				 'You can no longer have.'
				 end
				 if energy >= 20 and energy < 30:
				 set fat = fat + 3
				 set energy = energy + 10
				 'You pushed through the power of a meal.'
				 end
				 if energy < 20:
				 set energy = energy +20
				 !set fat = fat + 1
				 'You gladly ate cooked food.'
				 end
				 if water >= 20:
				 'Tea in you no longer climbs.'
				 end
				 if water < 20:
				 'You gladly drank a cup of tea.'
				 set water = water +20
				 end
			 gs'stat'
			 dynamic $din_sekondparturok
			 end
         end
     end
     
     if zverevaQW=2 and zverRageQW=0 or zverevaQW=3 and zverRageQW=0:
         act 'Spread rumors about Christina':
		 cls
		 if zverRageQW=0:zverRageQW=1
		 minut+=60
		 gs'stat'
		 'You secretly worldwide blabbed what Zvereva Christina sucks fizruka. Now.'
		 dynamic $din_sekondparturok
		 end
     end
}


if hour<=8:
     act 'Go to lessons':
     cls
     hour=9
     minut=0
     minut+=60*3
     urand=RAND(0,12)
     
     if lernHome=0:Suspeh+=2
     if lernHome>0:Suspeh-=1
     if Suspeh>100:Suspeh=100
     if Suspeh<0:Suspeh=0
     lernSkill+=1
     lernHome+=1
     
     if schoolSorev=1:schoolSorev=0
     gs'stat'
     '<center><img src="qwest/alter/urok<<urand>>.jpg" ></center>'
     'You were sitting in the classroom and listened to the monotonous boom on teachers, at least that is trying to understand and not fall asleep.'
     dynamic $d_fart_klass
     'Finally the bell rang and the students went to great change.'
     if GorSlut>0:'You hear a whisper as classmates pointing at you finger.'
     if soniaPS=1:soniaPS=2&'The main news today was the news, that Sonia Ivanko allowed in a circle at the disco. She sucked in as much as five guys.'
     dynamic $din_bigperemena
     end
end
--- gschool2 ---------------------------------

# gkafe
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
gs'time'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color=maroon>caff</font></B></center>'
if mother_go=1 and hour=16:
   	 '<center><img src="qwest/alter/gkafe.jpg" ></center>'
	 'little bedraggled, station cafe.'
	 'Door closed on the lock and the door hangs a plaque "records".'
	 act 'Wander around the cafe':
	 cls
	 minut+=15
	 gs'stat'
	 'You walked around the cafe and suddenly you have come to the weak voices, closer to the wall cafe, you heard what that poor women moaning. Go behind the cafe you see old crates and on the wall a small window in which you can look if you stand on boxes.'
	 act 'Get_Away':gt'vokzalG'
	     act 'Peep out of the window':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/placer/momslut.jpg" ></center>'
		     if momslut>=1:
		     'You climbed on the boxes and looked through the small window. Behind the glass you noticed, your mom does blowjob cafe owner. You have come to see, Mom enthusiastically sucks dick swallowing it up to the eggs.'
		     end
		     if momslut=0:
             momslut=1
		     'You climbed on the boxes and looked through the small window. Behind the glass as you notice what that woman squatting in front of a man . And then before you came, it`s your mom does blowjob cafe owner. You surprise goggled, and my mother .'
		     end
		 act 'Get_Away':gt'vokzalG'
		 	 act 'View more':
			 cls
			 minut+=5
			 mother_go=0
			 gs'stat'
			 '<center><img src="qwest/alter/placer/momslut2.jpg" ></center>'
			 'Your mother got to her feet and turned his big bare ass to the owner of the cafe. He came up from behind and abruptly drove his cock in her pussy. His movements were strong and flourish, your mother moaned and held on to the wall. Finally the owner of the cafe ass grabbing your mother groaned and finished it in her pussy.'
			 act 'Get_Away':gt'vokzalG'
			 end
		 end
	 end
else


	if hour>=8 and hour<=20:
	'<center><img src="qwest/alter/gkafe2.jpg" ></center>'
	'little bedraggled, station cafe. Since then work your mom, then you are fed free.'
		 if week<6:
			 if hour>=6 and hour<16 and StoryLine>0:
			 'The cafe at the counter should your <a href="exec:GT ''mother''">mom</a>.'
			 else
			 'The bar should cafe owner <a href="exec:GT ''motherkafeboss''">glory</a>'
			 end
		 end
		 
	   

		 act 'eat':
		 cla
		 *clr
		 frost=0
		 '<center><img src="pics/food.jpg" ></center>'
		 set razvrand=rand(1,10)
		 set minut = minut + 30
		 set health = health + 10
		 set manna = manna + 5
		 set willpower = willpower + 5
		if energy >= 30:
			  set fat = fat + 5
			 'You can no longer have.'
			 end
		if energy >= 20 and energy < 30:
			set fat = fat + 3
			set energy = energy + 10
			'You pushed through the power of a meal.'
			end
		if energy < 20:
			set energy = energy +20
			set fat = fat + 1
			'You gladly ate food.'
			end
			 if water >= 20:
			'Tea in you no longer climbs.'
			end
		 if water < 20:
			'You gladly drank a cup of tea.'
			set water = water +20
			end
		 if razvrand>7 and hour > 16 and hour < 20 and age <18 and dyadyamishaevent=0 and gorodokwhore >=2:
			'To your table came a grown man :'
			'-girl, you do not want candy? At home I have a pack of sweets'
			act 'Cannounce':gt 'gevent','1'
			end
		 act 'Get up from the table':gt'gkafe'
		 end

	else
	'<center><img src="qwest/alter/gkafe.jpg" ></center>'
	'little bedraggled, station cafe.'
	'Cafe does not work.'
	end
end

act 'Go_Out':gt'vokzalG'
--- gkafe ---------------------------------

# motherkafeboss
gs'stat'
'Cafe owner and Glory tall .'

act 'move_away':gt $loc, $metka
--- motherkafeboss ---------------------------------

# gpoli
set minut = minut + 5
frost=0
'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="pic/poli.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'Go_Out':gt'gorodok'

if hour>=6 and hour<=21:
if gpoliuborka = 0:
     act 'read ads':
	 cla
	 *clr
	 set minut = minut + 5
	 set gpoliuborka = 1 
	 'On the wall near the entrance to the clinic hangs Ads. requires cleaner, work one hour a day, with 16 prior_to 21 hours, payment 100 rubles.'
	 act 'move_away':gt 'gpoli'
     end
end
if gpoliuborka = 1 and hour >=8 and hour <=21:
	act 'Ask the chief doctor about work as a cleaner':
	 cla
	 *clr
	 gpoliuborka = 2
	 set minut = minut + 15
	 gs 'stat'
	 '<center><img src="pic/poli.jpg" ></center>'
	 'You came to the office of the head doctor and knocked on the door entered the office. In the office sat a large man in a white coat. He looked sternly at you through glasses. "On what issue?" You said that you have read the announcement and would like to get a cleaner. Heads of the doctor thought for a moment and handed you the paper. "Write on the model of an application for admission to work part-time." You took the paper and wrote a statement. Heads of the doctor stood up together and you went into the corridor. He showed you shed, where stored tool, buckets, mops, rags.'
	 act 'Get_Away': gt 'gpoli'
	 end
end

if gpoliuborka > 1 and hour >=8 and hour <=21 and gpolicleanday ! day:
	act 'to work as a cleaner':
	 cla
	 *clr
	 set gpolicleanday = day
	 set minut = minut + 60
	 set manna = manna - 15
	 set money = money + 100
	 set sweat = sweat + 2
	 gs 'stat'
	 '<center><img src="pic/clener1.jpg" ></center>'
	 'You took a mop bucket and washed corridors throughout the clinic. After washing the corridors you become a wash rooms. Doctors certainly cursed and bubneli, since you unceremoniously broke into their offices, but still gave you safely clean the floor.'
	 act 'finish the job': gt 'gpoli'
	 ginrand=rand(0,1)
	     if Gspravka<10 and ginrand=0:
	     'When you remove the gynecologist `s office, he goes out of the room leaving you alone.'
	         if vagina > 0:
	             act 'fake certificate':
	             cls
	             Gspravka=30
		         GspravkaT=1
	             gs'stat'
	             'You pull out a quick form of a table reference and printing and printing slap FAQ.'
	             'After that. Help text from the gynecologist you write a little later on.'
	             act 'finish the job': gt 'gpoli'
	             end
	         end
	     end
	 end
end

     if health < (vital*10 + stren*5) and money >= 1000:
	     act 'treat health 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set health = vital*10 + stren*5+1000
		 'The doctor did give you an injection and you immediately become much better'
		 act 'GO_OUT':gt $curloc
		 end
	 end
     if willpower < intel*5 + will*5 and money >= 1000:
	     act 'Reception at the psychotherapist 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set willpower = intel*5 + will*5+1000
		 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
		 'You lie down on a couch in the therapist and told him about his troubles and you immediately become much happier.'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
	 
	 if StoryLine>0 and SchoolAtestat=0 and Gspravka<3:
	 	 act 'Go to the gynecologist for help':
		 cls
		 set minut = minut + 15
		 '<center><img src="pic/gin.jpg" ></center>'
		 'You lay down on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
		     if vagina > 0:
		     Gspravka=30
		     GspravkaT=2
		     'Gynecologist wrote Help, that you are not a virgin.'
		     end
		     if vagina = 0:
		     Gspravka=30
		     GspravkaT=1
		     'Gynecologist wrote Help, that you are a virgin.'
		     end
		     if preg>0:
		     'The gynecologist told you, you are pregnant.'
		     end
		 gs'stat'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
	 if sick >= 1:
	     act 'Go to the therapist uchastkovumu':
		 cla
		 set minut = minut + 15
		 sick=0
		 gs'stat'
		 'You`ve come to the reception to uchastkovumu therapist and doctor has prescribed pills for cold.'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
else
'health center is closed.'
end
--- gpoli ---------------------------------

# gevent
if $ARGS[0]='1':
cla
*clr
set dyadyamishaevent=1
set dick = 14
set gorodokwhore = gorodokwhore + 1
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You agreed and went with his uncle from the cafe. He brought you into their home and, taking you by the hand, started a bedroom, closing the door with a key. Firmly taking your hair, He dropped to his knees and you, dropped his pants and took his penis in his hand, jabbed him in your lips.'
'-Opens his mouth come, slut, knew, where you go'
'You tried to resist, Then he slapped you slapped and said, so you do not make excuses. You had to open your mouth and take it plump, vile -smelling cock in her mouth.'
'-suck let, not shirk'
'You started to suck him, constantly nuzzling into his hairy pubis. After a while, he took out a member of your mouth :'
'-Lay_Down, play with you'
'You lay on the bed. He undressed you, lay down at your feet and spread them, then examined your pussy'
if vagina = 0 and sex=0:
'-tselochku More? Now fix it'
'He got up close to you and rested a member of your crotch. He introduced the term in you and began to fuck, breaking your hymen. You were painful and unpleasant. He soon began to puff, after which he took a cock and crawled to your face, forcibly stuck in your mouth his dick '
else
'-You already broke, slut? Dai and I`ll popolzuetsya'
'He got up close to you and rested a member of your crotch. He introduced the term in you and began to fuck.' 
if dick - vagina > 10 and dick - vagina <= 7: 'You were very bylno and you prayed, that it quickly ended'
if dick - vagina > 6 and dick - vagina <= 3: 'You were painful and unpleasant'
'He soon began to puff, after which he took a cock and crawled to your face, forcibly stuck in your mouth his dick , you feel his hot cum, which gulped. In the mouth.'
end
'-swallowed, girl? - He sharply kinder, patted you on the head and gave things - Dress. Will give you a present'
'You got dressed and waited for rapist, which came out of the room. he returned, holding a dollar bill in a hundred rubles, I gave you'
'-to, darling, buy yourself some ice cream. I know, you`re from a poor family, So, let`s_play, More `ll give you a present. My name is Misha.'
'You took the bill from the hands of Uncle Misha and came out of his house'
'<center><img src="gevent/1.jpg" ></center>'
set sex +=1
set bj +=1
set swallow +=1
set cumlip +=1
set throat += 1
if vagina<dick:vagina+=1
set rape= rape + 1
set minut = minut + 75
set money = money + 100
gs 'stat'

act '...':gt 'gorodok'
end



if $ARGS[0]='1-1':
cla
*clr
	 if mishagorodokwhore = 0:
	 set mishagorodokwhore = 1
	 set gorodokwhore = gorodokwhore + 1
	 end

set dmishaday = day
set dick = 14
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You went to visit Uncle Misha. he, as soon as the door closed, began to undress me, touching my body with their rough, hairy arms. stripped, He sat on the couch and gave me a job. You have made him a blowjob, then he put you on the couch and started to fuck you.'
if dick - vagina > 10 and dick - vagina <= 7: 'You were very bylno and you prayed, that it quickly ended'
if dick - vagina > 6 and dick - vagina <= 3: 'You were painful and unpleasant'
'At_Last, Misha puffed and took out his cock you, wheezing with breathing and finished to your stomach, then kiss your pussy and gave you fifty rubles for expenses.'
'<center><img src="gevent/mishasex.jpg" ></center>'
set sex +=1
set bj +=1
set cumbelly +=1
set throat += 1
if vagina<dick:vagina+=1
set minut = minut + 75
set money = money + 50
gs 'stat'
act 'Go_Out':gt 'gorodok'
end



if $ARGS[0]='2':
cla
*clr

set minut = minut + 15
set cumface = 1
set cumlip = 1
set bj = bj + 1
set gorodokwhore = gorodokwhore + 2
set money = money + 10
gs 'stat'

'<center><img src="gevent/2.jpg" ></center>'
'You came to him from the hall, after which he held you in the men`s room. Having got you into one of the booths, they closed it behind him and put it on his knees, then pulled out his penis and gave you a service, starting to shoot you on the phone. You suck at it, after which he came to you in the face, took from his pocket a crumpled ten, which threw you under his feet and walked.'

act 'Wash and leave':
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
	set minut = minut + 5
	gt 'gskver','kino'
end

act 'Go_Out':gt 'gskver','kino'

end


if $ARGS[0]='3':
cla
*clr
set alko = alko + 10
set minut = minut + 120
set bj = bj + 3
set anal = anal + 3
set sex = sex + 3
set vagina = vagina + 3
set anus = anus + 3
set throat = throat +3
set guy = guy + 3
set gang = gang + 1
set cumpussy = 1
set cumbelly = 1
set cumass = 1
set cumlip = 1
set cumface = 1
set gorodokwhore = gorodokwhore + 3
gs 'preg'
gs 'stat'
'<center><img src="gevent/3.jpg" ></center>'
'You go home to an Armenian. His apartment was even two people, also Armenians. They Fingered you, speaking in his own language, given to drink alcohol in your trash, then stripped and started to fuck you, inserting in turn in all your holes, ending on you and you, soldering and having more, thus removing the camera on you all the time. At_Last, when they played enough with you, they kicked you out of the apartment.'

act '...':gt 'gorodok'
end

if $ARGS[0]='4':
cla
*clr
set guy = guy + 1
set alko = alko + 2
set sex = sex + 1
set vagina = vagina + 1
set cumass = 1
set gorodokwhore = gorodokwhore + 1
set minut = munut + 50
gs 'stat'
'<center><img src="gevent/4.jpg" ></center>'
'You have reached the guy to his house, where you drank with him and have sex. Fuck your pussy, He pulled out his penis and you finished on the ass, after which he gave you your clothes, you talk to him, drank tea, and left.'
act '...':gt 'gorodok'
end

if $ARGS[0]='5':
cla
*clr
set guy = guy + 1
set sex = sex + 1
set vagina = vagina + 1
set cumass = 1
set gorodokwhore = gorodokwhore + 2
set minut = munut + 15
set money = money + 100
'<center><img src="gevent/5.jpg" ></center>'
'Started a guy you in the woods, where section, put a tree and fucked Quick, Cum on the ass, then gave you a hundred rubles and left.'
act 'Get_Away':gt 'gorodok'
end

if $ARGS[0]='6':
set day = day + 1
set week = week + 1
set hour = 12 
set minut = 17
set gorodokwhore = gorodokwhore + 6
set guyondiso = rand (5,10)
set guy = guy + guyondisco
set bj = bj + guyondisco
set sex = sex + guyondisco
set vagina = vagina + guyondisco
set throat = throat + guyondisco
set gang = gang + 1
set cumpussy = 1
set cumbelly = 1
set cumass = 1
set cumlip = 1
set cumface = 1
gs 'stat'
gs 'time'
gs 'preg'
'<center><img src="gevent/6.jpg" ></center>'
'You vaguely remember, what happened. hands, you probe, what- something hard and hot, rests against your palms into your body. A little bit and you `ve done some blowjob- some guy, and when he had finished, something in its place becomes another. disco continued, who- then filmed, who- then stand in line, who- that is attached to the back of your. You woke up the next day afternoon, all in the semen and without clothes, about DK. Finding your clothes, you got dressed and stood.'
act 'Get_Away':gt 'gorodok'
end

if $ARGS[0]='7':
cla
*clr
set guy = guy + 2
set anal = anal + 2
set bj = bj + 2
set sex = sex + 2
set vagina = vagina + 2
set anus = anus + 2
set throat = throat + 2
set gang = gang + 1
'<center><img src="gevent/7.jpg" ></center>'
'Guys have brought you to the apartment, where you undressed and fucked in all holes, having finished your face and, prevent wash, drove out of the apartment.'
act 'Get_Away':gt 'gorodok'
end
--- gevent ---------------------------------

# gskver
$metka = $ARGS[0]
$loc = $CURLOC
cls
gs 'stat'
gs 'time'
'<center><img src="gevent/skver.jpg" ></center>'
'little Square, in which people often rest, walk a couple, kids play.'
*nl
if hour >8 and hour < 19:'There is a small <a href="exec:minut+=5&GT ''gskino''">theater</a> '

if GvstreBoy=1:'you see, that walks in the park <a href="exec:numnpc=SkverBoy&GT ''Gnpc''"><<$nameBoyfrend[SkverBoy]>></a>.'
!if kotovLoveQW>0 and hour>=18 and hour<20 and week<6 or week>=6 and kotovLoveQW>0 and hour>=9 and hour<20:
!'You see in the park sitting on the bench <a href="exec:minut+=3&GT ''kotovEv''">Vitek Cats</a> Druganov and beer.'
!end
if StoryLine=1 and BeInSchool>0:
	 if hour>=18 and hour<20 and week<6 or week>=6 and hour>=9 and hour<20:
	 'You see in the park sitting on the bench <a href="exec:minut+=3&GT ''gopskver''">Vitek Cats, Dan Ryzhov and Shul`ga.</a>'
	 end
end

     act 'take_a_walk 15 minutes':
	 cla
	 *clr
	 set minut = minut + 15
	 place=1
	 Frend_num=0
	 gt'placer'
     end

	 if hour >= 8 and hour <22:
		 act 'Distributing flyers to earn 10 rubles per hour':
		 cla
		 *clr
		 '<center><img src="pic/flaer.jpg" ></center>'
		 'You hour handing out flyers park visitors. Then you got 10 rubles.'
		 set minut = minut + 60
		 set money = money + 10
		 set manna = manna - 5
		 gs'stat'
		 act 'move_away':gt'gskver'
		 end
	 end
act 'Get out of the park':minut+=5&gt 'gorodok'




--- gskver ---------------------------------

# gopskver
$d_dan_blowjob={
act 'To squat.':
cls
minut+=3
horny+=10
bj+=1
if npcSex[10]=0:npcSex[10]=1&guy+=1
swallow+=1
cumlip+=1
if DansOralSlut=0:DansOralSlut=1
gs'stat'
'<center><img src="qwest/alter/placer/bjdan.jpg" ></center>'
'You sat on his haunches in front of Dan and Dan eagerly unbuttoned his pants pulled out of his pants his risen member. You licked tongue purple head Dan and Dan said "here we go, and now take it in her mouth." You lips wrapped around his cock and took it in her mouth. Dan spent your hand through his hair "brain." You began to move his head back and forth spitted her mouth hard and hot cock Dan. It was not long and Dan grabbed his hands through his hair you. You feel like a member of his mouth spurted you in a warm and viscous liquid. Dan firmly hold your hair, and the flow of sperm all did not stop and you become swallow sperm. Dan finally stopped to finish and let your hair, You stood up wiping his lips with her hand and feeling sticky cum on her chin and her taste in the mouth. Dan removed the dick in his pants and told you "Not bad Svetsik, I`ll have something to repeat it."'
act'go home':gt 'korrPar'
end
}
 $d_gop_triple_blow={
	 act 'Suck Dan.':
	 cls
	 if GorSlut<3:GorSlut=3
	 bj+=1
	 if npcSex[10]=0:npcSex[10]=1&guy+=1
	 dick=17
	 cumlip+=1
	 swallow+=1
	 sub+=1
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/alter/placer/bjgop.jpg" ></center>'
	 dynamic $dinrandbj
	 'Dan groaned "Come huesoska, that would be all swallowed."'
	 dynamic $dinrandswallow
		 act 'Suck Shulgi.':
		 cls
		 bj+=1
		 if npcSex[11]=0:npcSex[11]=1&guy+=1
		 cumface+=1
		 dick=15
		 sub+=1
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/placer/bjgop2.jpg" ></center>'
		 dynamic $dinrandbj
		 'Shulga took a little dick out of your mouth and ending with hot punch you in the mouth covering their vile -smelling slime.'
			 act 'Suck Vic.':
			 cls
			 bj+=1
			 if npcSex[9]=0:npcSex[9]=1&guy+=1
			 dick=18
			 sub+=1
			 cumface+=1
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/placer/bjgop3.jpg" ></center>'
			 dynamic $dinrandbj
			 'Vitek took his dick out of your mouth and in your face slapped warm stream of cum covering your face sharply smelling mucus layer.'
			     act'further':
			     cls
			     minut+=5
			     gs'stat'
			     '<center><img src="qwest/alter/placer/bjgop3.jpg" ></center>'
			     'You sit humiliated in front of three guys with a face smeared in sperm and try to rub the eyes. Guys neighing over you "In_short, Sveta, Now you understand where you belong?"'
			     	 act'realized':
					 cls
					 sub+=1
					 gs'stat'
					 '<center><img src="qwest/alter/placer/bjgop3.jpg" ></center>'
					 'You nodded his head and said, they understood where your site. Dan said "smart huesoska, glayadite boys, vaflersha understood everything, Well then here sebala, and then in your eblische struhne all appetite spoils."'
					 act'Get_Away':gt 'gskver'
					 end
					 
					 act'Fuck you!':
					 cls
					 sub+=5
					 pee+=1
					 gs'stat'
					 '<center><img src="qwest/alter/placer/goppee.jpg" ></center>'
					 'Rubbing his eyes . Dan said angrily "Look guys, huesoska still bristle, let her umoem." You have opened my eyes and saw that all three boys have surrounded you and are holding pisyuny, suddenly your face hits the urine stream, then another and finally you piss on the face of the three boys. Finally jets have dried up and the boys said Dan "In short sebala here scum."'
					 act'Get_Away':gt 'gskver'
					 end
			     end
			 end
		 end
	 end
	 }

$metka = $ARGS[0]
$loc = $CURLOC
cls
gs 'stat'
gs 'time'
'<center><img src="gevent/skver.jpg" ></center>'
''


if kotovLoveQW>0:
     if hour<20:
	'Vitek Kotov offers to drink beer with him and his friends.'
		 act'Get_Away':gt 'gskver'
		 
		 act 'drink beer':
		 cls
		 minut+=15
		 alko+=1
		 fat+=2
		 salo+=1
		 energy+=10
		 gs'stat'
		 'You poured a beer and you began to drink with the guys.'
		 act'further':gt $curloc
		 end
		 
		 if alko>2: 
		 'Witek offers go to his house, well.'
			 act 'Go to Vit`ka.':
			 cls
			 minut+=15
			 gs'stat'
			 '<center><img src="qwest/alter/npc/9.jpg" ></center>'
			 'You went through the square towards where he lives Vitek. Soon you with Vityok approached the dilapidated house , where lay crumpled heaps of clothes on the floor littered with empty bottles.'
			 act 'further.':gt'kotovSex'
			 end
         end
	 end
	 if hour>=20:
	 'Already Evening and boys gathered to go to the disco.'
		 act'Get_Away':gt 'gskver'
		 act'Go to the disco with boys':minut+=15&gt'gdkin'
	 end
else
	if hour>=20:
		 if alko<3:
		 'Already Evening and boys gathered to go to the disco.'
		 act'Get_Away':gt 'gskver'
		 act'Go to the disco with boys':minut+=15&gt'gdkin'
		 end
		 if alko>=3 and alko<6 and DansOralSlut=1:
		 'You pretty much got drunk and Dan Ryzhov suggest you hold up the house.'
			 if dom>=5:act'Opt_Out':dom-=5&gt 'gskver'
			 act'Go with Dan':
			 cls
			 horny+=10
			 minut+=15
			 gs'stat'
			 'You are walking down the street with Dan keep you under the handle, on the way Dan fun joking and telling stories. Finally you come to your porch. Dan opened the door for you to the entrance and you went in. Suddenly Dan roughly dragged you to one of the sites to musoprovodu. Dan whispered in your ear "Take it in your mouth, huesoska."'
			 dynamic $d_dan_blowjob
				 
				 act 'rebel.':
				 cls
				 GorSlut=2
				 gs'stat'
				 'You indignant words of Dan and recoiled from it. In the eyes of Dan broke is not a good light and you un grinned nastily "Well." Then turned and walked away.'
				 act'go home':gt 'korrPar'
				 end
			 end
		 end
		 
		 if alko>=3 and alko<6 and DansOralSlut=0:
		 'You pretty much got drunk and Dan Ryzhov suggest you hold up the house.'
			 if dom>=5:act'Opt_Out':dom-=5&gt 'gskver'
			 act'Go with Dan':
			 cls
			 horny+=10
			 minut+=15
			 gs'stat'
			 'You are walking down the street with Dan keep you under the handle, on the way Dan fun joking and telling stories. Finally you come to your porch. Dan opened the door for you to the entrance and you went in. Dan suddenly dragged you to one of the sites to musoprovodu. There he grabbed you and started to hug you, his lips stuck into your kiss.'
			 if dom>=10:act'go home':dom-=10&gt 'korrPar'
				 act'kiss':
				 cls
				 horny+=10
				 gs'stat'
				 'You began to kiss with Dan near the garbage in your entryway. Dan suddenly you press down firmly on the shoulders of trying to put you on your knees. "Do not be afraid Svetsik, I did not tell anyone."'
				 if dom>=15:act'go home':dom-=15&gt 'korrPar'
				 dynamic $d_dan_blowjob
				 end
			 end
		 end
		 if alko>=6:
		 'You got drunk as a lord and you shook from side to side. Shul`ga you hugged her waist and led somewhere.'
			 if dom>=5:act'leave most':dom-=5&gt 'gskver'
			 act'Go with the guys':
			 cls
			 if sgopgang=0:sgopgang=1
			 if npcSex[9]=0:npcSex[9]=1&guy+=1
			 if npcSex[10]=0:npcSex[10]=1&guy+=1
			 if npcSex[11]=0:npcSex[11]=1&guy+=1
			 sex+=3
			 gang+=1
			 vagina+=3
			 cumbelly+=3
			 gs'stat'
			 '<center><img src="qwest/alter/placer/gopgang.jpg" ></center>'
			 'You passed out and woke up lying on the couch, inside your pussy that is moving. You are trying to focus his eyes and see in front of face Shulgi, transferring look down you can see that he moves his hips against your pubic area for, intoxication through until you reach, Shul`ga that you fucks, Once again you are off and opened his eyes already see you lying on the Dan, He takes out a member of you and you feel, that belly get what that warm drops, replacing Dan climbs on you Vitek, you feel, that he put his penis in you and they began to move there. After a while you came to their senses and see, that you are still lying on the couch. Guys sitting at the table and continue to drink.'
			 act'Get_Away':&gt 'gorodok'
			 end
		 end

	end
	if hour<20:
	'Sitting on a bench Vitek Cats, Dan Ryzhov and Shul`ga.'
		 if GorSlut<3:
			 if alko<4:
			 'Boys invite you to join them and drink beer.'
			 act'Get_Away':gt 'gskver'
				 act 'drink beer':
				 cls
				 minut+=15
				 alko+=1
				 fat+=2
				 salo+=1
				 energy+=10
				 gs'stat'
				 'You poured a beer and you began to drink with the guys.'
				 act'further':gt $curloc
				 end
			 end
			 if alko>=4:
			 'You already rather tipsy and started having fun chatting with the guys.'
			 act'Get_Away':gt 'gskver'
				 if GorSlut=0:
					 act 'drink beer':
					 cls
					 minut+=15
					 alko+=1
					 fat+=2
					 salo+=1
					 energy+=10
					 dom+=1
					 gs'stat'
					 'You poured a beer and you began to drink with the guys.'
					 act'further':gt $curloc
					 end
				 end
				 if GorSlut=1:
				 'To you sat closer Shul`ga and started a conversation. "Sveta, they_say, that you give. it is true?"'
					 act 'Yes_I_Am':
					 cls
					 gs'stat'
					 'you confirmed, that you have already had sex and you`re not a girl.'
					 act'Get_Away':gt 'gskver'
					 end
					 
					 act 'No':
					 cls
					 gs'stat'
					 'You cursed and said Shulga, that all this is a lie. You snapped Dan "Sveta, you that pussy? But for you the whole town knows, you davalka!"'
					 act'Get_Away':gt 'gskver'
					 end
				 end
				 if GorSlut=2:
				 'To you sat closer Shul`ga and started a conversation. "Sveta, they_say, you suck. it is true?"'
					 act 'Yes_I_Am':
					 cls
					 gs'stat'
					 'you confirmed, what you put in their mouths. Shul`ga cheeky smile "And in your mouth lowered?"'
						 act 'Yes_I_Am':
						 cls
						 gs'stat'
						 'you confirmed, you cum in her mouth. Shul`ga squirmed excitedly "And I otsosesh?"'
							 act 'No':
							 cls
							 gs'stat'
							 'You indignantly rejected the proposal Shulgi. Dan suddenly growled at you "slishom you, vaflersha, and you do not ohuel Do hour? Which is loshya suck cocks to swallow, and decent guys mean to you zapadlo?" You`re a little afraid of how easy Dan became aggressive and began to explain, that the matter is in another. But Dan again you abruptly interrupted "Good equivocate bitch, and then smashed conductive ebalo! answer, zapadlo you have decent boys cheek take or not zapadlo?"'
								 act 'No, not zapadlo.':
								 cls
								 gs'stat'
								 'you said, you do not zapadlo. Dan then growled at you "And then huyli of virginity itself writhes? Take it in your mouth!" With these words.'
								 dynamic $d_gop_triple_blow
								 end
								 
								 act 'zapadlo.':
								 cls
								 gs'stat'
								 'you said, you zapadlo and immediately fell to the ground from the impact of Dan in your face.'
								 act'Get_Away':gt 'gskver'
								 end
							 end
							 
							 act 'may be':
							 cls
							 gs'stat'
							 'Dan grinned "And then huyli of virginity itself writhes? Take it in your mouth!" With these words.'
							 dynamic $d_gop_triple_blow
							 end
						 end
						 
						 act 'No':
						 cls
						 gs'stat'
						 'You cursed and said Shulga, that you did not finish in the mouth.'
							 if swallow > 0:
							 'You snapped Dan "Sveta, good bullshit? But for you the whole town knows, that you not only in your waffle iron was poured struhnyu, so you also swallow, like_this, that do not bullshit me, huesoska."'
							 elseif swallow=0 and facial > 0:
							 'You snapped Dan "But you all fucking mouth obstruhali."'
							 else
							 'Dan chuckled "Well, give only half flaccid, in your mouth you take just a little bit, Just share a girl."'
							 end
						 'Dan said sharply "And then huyli of virginity itself writhes? Take it in your mouth!" With these words.'
						 dynamic $d_gop_triple_blow
						 end
					 end
					 
					 act 'No':
					 cls
					 gs'stat'
					 'You cursed and said Shulga, that all this is a lie. You snapped Dan "Sveta, you that pussy? But for you the whole town knows, you huesoska! In short , truncated?" With these words.'
					 dynamic $d_gop_triple_blow
					 end
				 end
			 end
		 end
		 if GorSlut>=3:
		 shultextrand=rand(0,1)
		 if shultextrand=0:$shultextrand='want candy red hero?'
		 if shultextrand=1:$shultextrand='want Chupahuy?'
		 'Shul`ga Courage tells you "Hey Shmarev, <<$shultextrand>>" Guys neighing loudly over you.'
		 act'Get_Away':gt 'gskver'
		 end
	end
end

--- gopskver ---------------------------------

# gskino
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs 'stat'
'<center><img src="gevent/kinoteatr.jpg" ></center>'
'small cinema, in which there is only one small room. Movie ticket worth 100 rubles.'

if money >= 100:

	 act 'Go to the movies':
	 cla
	 *clr
	 set money = money - 100
	 set minut = minut + 120
	 set manna=manna+ RAND(60,90)
		'You calmly watched the film, then came out of the cinema.'
		act 'Leave the hall':gt 'gskver'
	end
end

act 'Get out of the theater':set minut = minut+5&gt 'gskver'

--- gskino ---------------------------------

# EvOtelMan
$din_otel_man_end={
act 'Brush up':
cls
minut+=15
gs'stat'
'You began to brush up. <<$bname>> reached out and fell on the bed. "It was great Svetsik."'
if cumface>0:cumface=0&'You found napkins and wiped from the face of sperm.'
if cumanus>0:'Have you tried to wipe the cum with his priests, but how could you not wiped out of your anus is still leaking cum.'
act 'Get_Away':gt'vokzalG'
end
}
$din_otel_man_blow={
 act 'To squat':
 cls
 bj+=1
 guy+=1
 sub+=1
 minut+=10
 gs'stat'
 '<center><img src="qwest/alter/Ev/bj.jpg" ></center>'
 'You sit down in front of a man and took his dick hand. Slightly moving the skin on the penis head you licked. Your nimble tongue began to caress hot and hard cock men. <<$bname>> said "Svetsik, I will soon be over."'
	 act 'suck':
	 cls
	 cumlip+=1
	 minut+=10
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/bj2.jpg" ></center>'
	 'You lips wrapped around his cock and began to suck carefully clasping his hard shaft <<$liptalk2>>. <<$bname>> groans and you feel like your mouth strikes jet of sperm.'
		 act 'Sucking swallowing sperm':
		 cls
		 swallow+=1
		 water-=10
		 minut+=10
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/bj3.jpg" ></center>'
		 'You continued to suck dick and cums swallow sperm gets you in the mouth. Sperm were so many, you do not have time to swallow all and it flows out of your mouth over the penis. At_Last <<$bname>> ceases to finish and you pull the dick out of your mouth smelling sperm. In the mouth disgusting taste of Cum, obliznuvshis you understand, your <<$liptalk3>> wet with sperm.'
		 dynamic $din_otel_man_end
		 end
		 
		 act 'Remove the mouth':
		 cls
		 cumface+=1
		 facial+=1
		 minut+=10
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/bj4.jpg" ></center>'
		 'You remove a member from the mouth and jet of sperm immediately slapped you in the face. You squeezed her eyes shut for fear of ,that the sperm gets into your eyes and feel as another jet of hot Cum landed on your face.'
		 dynamic $din_otel_man_end
		 end
		 
	 end
	 
	 act 'substitute the ass':
	 cls
	 minut+=30
	 $boy=$bname
	 cumanus+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/anal.jpg" ></center>'
	 dynamic $sexstart
	 dynamic $analsex
	 dynamic $din_otel_man_end
	 end
	 
	 act 'Lie on your back.':
	 cls
	 minut+=30
	 !sex+=1
	 $boy=$bname
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/sex.jpg" ></center>'
	 'You lay on your back. <<$bname>> lay on top and spread your legs.'
	 dynamic $sexstart
	 dynamic $sexstart2
	 dynamic $sexcum
	 dynamic $din_otel_man_end
	 end
 end
}
$din_otel_man_beforesex={
 if horny<75 and vagina = 0 and sex=0 or dom>0 and vagina=0 and sex=0:
	 act 'I`m still a girl `s virginity and shore':
	 cls
	 minut+=5
	 gs'stat'
	 tiprandeom=RAND(0,2)
	     if tiprandeom<2:
		 'You have admitted that you are a man and a girl would like to keep her virginity. The man smiled and said, sex that you can do and leave the girl. <<$bname>> got dick out of his pants.'
		 dynamic $din_otel_man_blow
		     if dom>0:
		     	 act 'Do not even hope':
				 cls
				 sub+=1
				 gs'stat'
				 'You laughed and denied the man. <<$bname>> scratching his head "Do you want I`ll give you Pjatihatki?"'
				     act 'Bring_It_On':
					 cls
					 money+=500
					 gs'stat'
					 'You held out his palm and the man gave you five hundred rubles.'
					 dynamic $din_otel_man_blow
					 end
					 
					 act 'Get_Away':gt'vokzalG'
				 end
		     end
	     end
	     if tiprandeom=2:
	     '<center><img src="qwest/alter/Ev/otel.jpg" ></center>'
	     '<<$bname>> interested "The_Truth? you`re a virgin? I`ll give you Pjatihatki, if you show me her pussy"'
	         if dom>0:
	             act 'Do not even hope':
				 cls
				 sub+=1
				 gs'stat'
				 'You laughed and denied the man. <<$bname>> scratching his head "Well then? I`ll give you Pjatihatki."'
				     act 'Bring_It_On':
					 cls
					 money+=500
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/otel.jpg" ></center>'
					 'You held out his palm and the man gave you five hundred rubles.'
					 dynamic $din_otel_man_blow
					 end
					 
					 act 'Get_Away':gt'vokzalG'
				 end
	         end
	         
			 act 'show':
			 cls
			 sub+=1
			 money+=500
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/kiska.jpg" ></center>'
			 'You undressed and showed her pussy man. He considered with interest you. "awesome. Listen. I`ll give you five pieces, if you let me be your first boyfriend."'
			     act 'agree.':
				 cls
				 minut+=30
				 !sex+=1
				 $boy=$bname
				 money+=5000
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/sex.jpg" ></center>'
				 'You held out his palm and man shaking hands you counted five thousand. after that <<$bname>> threw you on the bed and spread your legs.'
				 dynamic $sexstart
				 dynamic $sexstart2
				 dynamic $sexcum
				 dynamic $din_otel_man_end
				 end
				 
				 if dom>0:
					 act 'No, I`m going to remain a virgin until marriage':
					 cls
					 sub+=1
					 gs'stat'
					 'You laughed and denied the man. <<$bname>> scratching his head "Well then? I`ll give you Pjatihatki."'
						 act 'Bring_It_On':
						 cls
						 money+=500
						 gs'stat'
						 'You held out his palm and the man gave you five hundred rubles.'
						 dynamic $din_otel_man_blow
						 end
						 
						 act 'Get_Away':gt'vokzalG'
					 end
				 end
				 
				 act 'Get_Away':gt'vokzalG'
			 end
	     end
	 end
 end
     if dom>=5 and StoryLine>0:
         act 'Divorce on the loot.':
	     cls
	     sub+=1
	     minut+=5
	     gs'stat'
	     '<center><img src="qwest/alter/Ev/otel.jpg" ></center>'
	     'You looked at the clock. "Well, but perhaps I`ll go. And then the nurse will swear, do not give money then for lunch." <<$bname>> you smiled "I`ll give you three pieces, it will suffice you for lunch?"'
			 act 'Agree to have sex for money.':
			 cls
			 minut+=30
			 !sex+=1
			 guy+=1
			 $boy=$bname
			 money+=3000
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/sex.jpg" ></center>'
			 'You held out his palm and man shaking hands you counted five thousand. after that <<$bname>> threw you on the bed and spread your legs.'
			 dynamic $sexstart
			 dynamic $sexstart2
			 dynamic $sexcum
			 dynamic $din_otel_man_end
			 end
			 
			 if dom>0:
	             act 'Oral sex is the maximum':
				 cls
				 sub+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/otel.jpg" ></center>'
				 'You laughed and denied the men said that blowjob is the maximum for which he can count. <<$bname>> scratching his head "No problem, I`ll give you Pjatihatki."'
				     act 'Bring_It_On':
					 cls
					 money+=500
					 gs'stat'
					 'You held out his palm and the man gave you five hundred rubles.'
					 dynamic $din_otel_man_blow
					 end
					 
					 act 'Get_Away':gt'vokzalG'
				 end
	         end
	     end
     end
 

	 act 'further.':
	 cls
	 minut+=30
	 !sex+=1
	 guy+=1
	 $boy=$bname
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/sex.jpg" ></center>'
	 '<<$bname>> threw you on the bed and spread your legs.'
	 dynamic $sexstart
	 dynamic $sexstart2
	 dynamic $sexcum
	 dynamic $din_otel_man_end
	 end
	 
	 if dom>0:
	 dynamic $din_otel_man_blow
	 end
 
}

music_on=0
minut+=15
gs'stat'
if DPtipe=1:
'A man walked up to standing next to the club takseru and exchange a couple of phrases with him turned to you. "Svetsik go." You with the man got into a taxi and quickly drove to the hotel. The man led you to your room.'
end
if DPtipe=2:
'A man walked up to standing next to the club takseru and exchange a couple of phrases with him turned to you. "Svetsik go." You with the man got into a taxi and quickly drove to the hotel. The man led you to your room.'
end

if DPtipe=1:
	 act 'Walk in the Room':
	 cls
	 BeInOtel+=1
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/otel.jpg" ></center>'
	 'The room was quite decent. The man went to the fridge and began to spread on the table. Bottle of whiskey misted, servilat, the bank of red caviar, Fruit Plate. Laying everything on the table, man you framed chair, which you sat down. He sat down on a chair next to you . "Well. I`m so glad, have met such a beautiful and wonderful girl like you."'
     	 act 'drink':
		 cls
		 horny+=20
		 alko+=2
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
		 'You drank with the man and he got up from his chair came up to you. His lips began to kiss your hands and began to pull your clothes.'
		 dynamic $din_otel_man_beforesex
		 end
	 end
end
if DPtipe=2:
	 act 'Walk in the Room':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
	 'You entered the room and closed the door barely a man as he stared at you with a kiss .'
         
         dynamic $din_otel_man_beforesex
	 end
end















--- EvOtelMan ---------------------------------

# EvgopBuh
$din_gop_double_bj={
 act 'open your mouth':
 cls
 minut+=5
 horny+=10
 bj+=2
 guy+=2
 gs'stat'
 '<center><img src="qwest/alter/Ev/gop6.jpg" ></center>'
 'You obediently opened his mouth and the guys immediately put in you both cocks into her mouth, stretching it to the limit. You started to suck two hard and hot cock in turn. '
	 act 'further':
	 cls
	 minut+=5
	 horny+=10
	 cumlip+=2
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/gop7.jpg" ></center>'
	 'Suddenly, followed immediately began to finish second. One of the guys grabbed you by the head without letting you remove the face. Nakonchal you guys and got a mouthful of its members out of your mouth. Leaving you sitting on a stump with a mouth full of sperm.'
     dynamic $din_gop_end
	 end
 end

}
$din_gop_end={
	 act 'further':
	 cls
	 minut+=5
	 cumfrot+=1
	 manna-=30
	 if GorSlut<3:GorSlut=3
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/gop8.jpg" ></center>'
	 'You sit stunned occurring on the stump and out of your mouth drains fine, stretching jet of sperm. You notice sluggish, that part of the sperm gets into your clothes on. Guys poured a glass of vodka and drank again. One chuckled looking at you "Huesoska you find the very best. Not bad she shuffled her lips on me elde." second laughed "Look_In, vaflersha sits relishes struhnyu." The third said thoughtfully "We have to give the lads announced, so as not to zashkvarilis vaflersha."'
		 act 'Get_Away':gt 'gdk'
	 end
}
$din_gop_end2={
	 act 'further':
	 cls
	 minut+=5
	 cumfrot+=1
	 manna-=30
	 if GorSlut<4:GorSlut=4
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/gop8.jpg" ></center>'
	 'Your feet are tired and podgibayutsya, you do not stand up and sit down on the ground, from your mouth drains fine, stretching jet of sperm. You notice sluggish, that part of the sperm gets into your clothes on. Guys poured a glass of vodka and drank again. One chuckled looking at you "Very best pacifier you have found. Not bad she shuffled her lips on me elde." second laughed "Look_In, slut still a can not come." The third said thoughtfully "We have to give the lads announced, so as not to zashkvarilis slut."'
		 act 'Get_Away':gt 'gdk'
	 end
}
music_on=0
minut+=5
gs'stat'
'<center><img src="etogame/dk_night.jpg"></center>'
if GorSlut<3:
'You went out with a guy from the club he led you for your club. There are already two of his pals booze. On the ground. The guy said "I <<$bname>> these_are <<$bname2>> and <<$bname3>>." you logged in "I Light." <<$bname2>> took the bottle and plastic cup. he drunk, lack of movement poured vodka into a glass, then handed the cup to you.'

	 act 'drink.':
	 cls
	 minut+=5
	 alko+=2
	 gs'stat'
	 '<center><img src="etogame/dk_night.jpg"></center>'
	 'You drink vodka and you have captured the spirit of this booze. <<$bname3>> took out a piece of candy "on Svetsik, snack." You get stuck in the mouth candy trying to kill the disgusting taste of vodka.'
	     
	     if alko<4:
	     	 act 'Go back to the club':
			 cls
			 willpower+=RAND(0,1)
			 intel+=RAND(0,1)
			 gt 'gdkin'
			 end
	     end
	     
		 act 'Stay with the guys':
		 cls
		 minut+=5
		 horny+=10
		 gs'stat'
		 '<center><img src="etogame/dk_night.jpg"></center>'
		 'You stayed with the guys. <<$bname>> came up to you and hug you around the waist. "Svetsik, you`re very best chuvikhi." His hands began to stroke your ass and squeeze her.'
		 
		     if dom>=10:
		         act 'rebel "You ohuel something?"':
				 cls
				 minut+=5
				 sub+=1
				 gs'stat'
				 'You rebelled ryavknuv on greyhound boy "You ohuel something?" <<$bname>> even jerked his hands away from you. You moved away from him a step "So keep your hands to yourself!"'
				 	 act 'Go back to the club':
					 cls
					 willpower+=RAND(1,3)
					 intel+=RAND(1,3)
					 gt 'gdkin'
					 end
				 end
		     end
		     
		     act 'whisper "do not"':
			 cls
			 minut+=5
			 horny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/gop.jpg" ></center>'
			 '<<$bname>> put you on a stump next to the meadow where the guys drink. He unbuttoned his pants and pulled out his standing member. <<$bname>> told you a floor vote "Come on baby, do not be shy, see what delicious caramel, can lick."'
				 if horny<75:
					 act 'Go back to the club':
					 cls
					 willpower+=RAND(1,3)
					 intel+=RAND(1,3)
					 gt 'gdkin'
					 end
				 end
				 
				 if dom>=5:
					 act 'rebel "You ohuel something?"':
					 cls
					 minut+=5
					 sub+=1
					 gs'stat'
					 'You rebelled ryavknuv on greyhound boy "You ohuel something?" <<$bname>> did not expect such a reaction from you and confused. You stood up and said with hemp "Shove your stub back in panties, patsanchik!"'
						 act 'Go back to the club':
						 cls
						 willpower+=RAND(1,3)
						 intel+=RAND(1,3)
						 gt 'gdkin'
						 end
					 end
				 end
				 
				 act 'Sitting on a stump':
				 cls
				 minut+=5
				 horny+=10
				 bj+=1
				 guy+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/gop2.jpg" ></center>'
				 'You covered the apathy and you sat on a stump looking at the member. <<$bname>> taking you to a member of the hand held him on the lips. You opened your mouth ,that would be indignant and immediately his cock slapped his purple head of your wet tongue. Another second and his cock was already in your mouth.'
					 act 'suck':
					 cls
					 minut+=5
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/gop3.jpg" ></center>'
					 'Without even realizing you started to suck hard cock obhvatyvyaya its own <<$liptalk2>>. You closed your eyes trying not to think about, what do you do. Hard and hot cock sliding between your lips, Fill your mouth to the throat.'
					 	 act 'further':
						 cls
						 minut+=5
						 cumlip+=1
						 water-=10
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/gop4.jpg" ></center>'
						 'Suddenly you in the mouth of a member flew a hot jet of sperm. Your mouth was filled with badly smelling, warm cumshot. <<$bname>> you got dick out of his mouth and wiped it on your <<$liptalk2>>. Then he removed his dick in his pants. "boys, can use vaflersha, I have already othuesosil."'
						 
						     if dom>0:
								 act 'rebel':
								 cls
								 minut+=5
								 dom=0
								 sub+=1
								 GorSlut=2
								 gs'stat'
								 'You angrily spat at his feet sperm kid. "You ohuel something?" The kid started ruffle "Shut vaflersha." But you get up from the stump and obmaterili boys.'
									 act 'Go back to the club':
									 cls
									 willpower+=RAND(0,1)
									 intel+=RAND(0,1)
									 gt 'gdkin'
									 end
								 end
							 end
						     
						     if horny<=75:
								 act 'spit sperm':
								 cls
								 minut+=5
								 gs'stat'
								 '<center><img src="qwest/alter/Ev/gop5.jpg" ></center>'
								 'You leaned over and spat at his feet cum. To you came <<$bname2>> and <<$bname3>>, they got out of his pants members and substitute them for you to face.'
								 dynamic $din_gop_double_bj
								 end
							 end
							 
							 act 'swallow sperm':
							 cls
							 minut+=5
							 swallow+=1
							 water-=10
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/gop5.jpg" ></center>'
							 'You swallow sperm, feeling her nasty taste in your mouth. To you came <<$bname2>> and <<$bname3>>, they got out of his pants members and substitute them for you to face.'
							 dynamic $din_gop_double_bj
							 end
						 end
					 end
				 end
			 end
			 
			 act 'to_be_silent':
			 cls
			 minut+=5
			 horny+=10
			 gs'stat'
			 '<center><img src="etogame/dk_night.jpg"></center>'
			 '<<$bname>> began pulling off your clothes, you drunkenly dangled in his hands and suddenly felt the breeze on his naked ass.'
			 	 act 'further':
				 cls
				 minut+=5
				 horny+=10
				 sex+=1
				 $boy=$bname
				 guy+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/gopd.jpg" ></center>'
				 '<<$bname>> bent you and you are clutching at something, that would not fall.'
				 dynamic $sexstart
	             dynamic $sexstart2
	             dynamic $sexcum
	             'Man removed the cock in his pants and said "boys, can use davalkoy."'
	             	 act 'further':
					 cls
					 minut+=5
					 horny+=10
					 sex+=1
					 guy+=2
					 bj+=1
					 $boy=$bname3
					 cumlip+=1
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/gopd2.jpg" ></center>'
					 '<<$bname2>> came up to you and you saw his naked dick, though you tried to do something, but he grabbed you by the hair and then in your mouth was his dick. <<$bname3>> podeshel you from behind and you feel his hands on your hips.'
					 dynamic $sexstart
					 dynamic $sexstart2
					 dynamic $sexcum
					 'You feel like your mouth starts to cum dick and <<$bname2>> more tightly holding your hair.'
					 dynamic $din_gop_end2
					 end
				 end
			 end
		 end
	 end
end

if GorSlut>=3:
'You went out with a guy from the club he led you for your club. There are already two of his pals booze. On the ground. The guy said "I <<$bname>> these_are <<$bname2>> and <<$bname3>>. I am aware of the way, you`re the light of local <<$gnikname>>. In short do not pull the rubber, take on canine."'

$din_gop_slut_triple_bj={
	 act 'To squat':
	 cls
	 minut+=5
	 horny+=10
	 bj+=3
	 guy+=3
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/gopdbj.jpg" ></center>'
	 'You obediently sat down on his haunches and the guys took out their members. You wrapped around two fingers and his dick began to masturbate them. The third guy immediately slapped you on <<$liptalk2>> member. You unclenched his lips and absorbed dick in your mouth hot and humid.'
		 act 'suck':
		 cls
		 minut+=5
		 horny+=10
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/gopdbj2.jpg" ></center>'
		 'You have become members take turns sucking and caressing hands those dicks that were not in your hot mouth. Finally the guys are already ready to finish.'
		 	 act 'Close your eyes':
			 cls
			 minut+=5
			 horny+=10
			 facial+=1
			 cumface+=3
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/gopdbj3.jpg" ></center>'
			 'You close your eyes and put her cheek. Almost immediately you feel like hot jet of sperm fall on your face. Soon the boys run out completely cover your face with sperm.'
			 act 'Get_Away':gt 'gdk'
			 end
		 end
	 end
}

dynamic $din_gop_slut_triple_bj

     if dom>0:
		 act 'Opt_Out':
		 cls
		 manna=0
		 health-=10
		 sub+=1
		 gs'stat'
		 'You refused and the guy rassviripel. "what? You ohuel slut? Yes!" After these words. You gasped in pain and doubled over. "What creature? changed_her_mind? Or you otpizdet and then shove the bottle in the ass?"'
		 dynamic $din_gop_slut_triple_bj
		     if dom>=5:
		         act 'Send it':
				 cls
				 manna=0
				 health-=10
				 sub+=1
				 zub+=1
				 GorSlut=2
				 gs'stat'
				 'You guys have spat at his feet burning through his vzlyad "Fuck you in the dick boy." Immediately rang in my head and you realize that you are lying on the ground. Very much a toothache, you spat on the ground and saw, that you have blood on your tooth is ground, which you have just knocked out. The guy jumped in beshensve to you, but did not dare to beat "Went here on a dick, slut."'
				 act 'Get_Away':gt 'gdk'
				 end
		     end
		 end
	 end
end



--- EvgopBuh ---------------------------------

# EvBoyBuh
$din_gorodok_boy_bj={
	 act 'To squat':
	 cls
	 minut+=5
	 horny+=10
	 bj+=1
	 guy+=1
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/boybj.jpg" ></center>'
	 'You sit down in front of a guy and began to masturbate his cock.'
	 	 act 'suck':
		 cls
		 minut+=5
		 horny+=10
		     if GorSlut<2:
		     resultrand=RAND(0,100)
		         if resultrand>=80:
		         GorSlut=2
		         end
		     end
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/boybj2.jpg" ></center>'
		 dynamic $dinrandbj
		 	 act 'suck on':
			 cls
			 minut+=5
			 horny+=10
			 cumface+=1
			 cumlip+=1
			 cumfrot+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/boybj3.jpg" ></center>'
			 dynamic $dinrandswallow
			 act 'Get_Away':gt 'gdkin'
			 end
		 end
		 
		 act 'stoop':
		 cls
		 minut+=5
		 horny+=10
		 boy+=1
		 $boy=$bname3
		 pose=1
		 	 if GorSlut=0:
		     resultrand=RAND(0,100)
		         if resultrand>=80:
		         GorSlut=1
		         end
		     end
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/boysex.jpg" ></center>'
		 'You bent down and framed mooning guy.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 act 'Get_Away':gt 'gdkin'
		 end
	 end
}
$d_gorodok_boy_hj={
 if dom>0:
	 act 'jerk guy':
	 cls
	 minut+=5
	 sub+=1
	 gs'stat'
	 evhjrand=rand(0,1)
		 if evhjrand=0:
		 guy+=1
		 hj+=1
		 '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
		 'You got it hard and hot cock out of his pants and took his hand. You started kissing Man, while masturbate his penis. Finally the guy strangled groan and you will see how a member of his sperm flies.'
		 act 'Get_Away':gt 'gdkin'
		 end
		 if evhjrand=1:
		 '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
		 'You got it hard and hot cock out of his pants and took his hand. You started kissing Man, while masturbate his penis. The guy pushes you on the shoulders forcing squat.'
			 dynamic $din_gorodok_boy_bj
		 end
	 end
 end
}
music_on=0
minut+=5
gs'stat'
'<center><img src="etogame/dk_night.jpg"></center>'
'You went out with a guy from the club he led you for your club.'
if GorSlut=0:
'The guy took out a pack of beer poltorashku, chips and a couple of cups. You have found a place in the bush .'
     act 'drink beer':
     cls
     alko+=1
     manna+=30
     fat+=5
     energy+=20
     minut+=10
     gs'stat'
     'You have fun chatting with a guy sipping beer from glasses and seizing chips. The guy was funny and told funny stories.'
         if alko>=3:
         horny+=20
         '<<$bname>> You hugged and kissed. You captured the excitement of a kiss. You felt his hands on her breasts.'
             if horny<75:
				 act 'whisper "do not"':
				 cls
				 minut+=5
				 gs'stat'
				     if DPtipe=2:
				     '<center><img src="qwest/alter/Ev/grab.jpg" ></center>'
				     'The guy was drunk and did not pay attention to you.'
				     
				     dynamic $din_gorodok_boy_bj
				     
				     	 act 'to_be_silent':
						 cls
						 minut+=5
						 horny+=10
						 boy+=1
						 $boy=$bname3
						 	 if GorSlut=0:
							 resultrand=RAND(0,100)
								 if resultrand>=80:
								 GorSlut=1
								 end
							 end
						 gs'stat'
						 '<center><img src="picV/vag.jpg" ></center>'
						 'The guy threw you to the ground and began to undress.'
						 dynamic $sexstart
						 dynamic $sexstart2
						 dynamic $sexcum
						 act 'Get_Away':gt 'gdkin'
						 end
				     else
				     horny+=10
				     gs'stat'
				     '<center><img src="qwest/alter/Ev/tits.jpg" ></center>'
				     'Little guy reduces pressure, but still lets you.'
				         if horny<75:
				         act 'Get_Away':gt 'gdkin'
				         end
				         
				         'You are standing in an embrace with a guy and he gently pulls your chest and begins to lick and suck her nipples.'
				         dynamic $din_gorodok_boy_bj
				     end
				     
				     dynamic $d_gorodok_boy_hj
				 end
			 end
			 
			 act 'to_be_silent':
			 cls
			 minut+=5
			 horny+=10
			 guy+=1
			 $boy=$bname3
			 	 if GorSlut=0:
				 resultrand=RAND(0,100)
					 if resultrand>=80:
					 GorSlut=1
					 end
				 end
			 gs'stat'
			 '<center><img src="picV/vag.jpg" ></center>'
			 'The guy threw you to the ground and began to undress.'
			 dynamic $sexstart
			 dynamic $sexstart2
			 dynamic $sexcum
			 act 'Get_Away':gt 'gdkin'
			 end
         end
         if alko<3:
             if DPtipe=1:
             deystrand=rand(0,1)  
             randvnesh=rand(10,30) 
                 if deystrand=0 and vnesh>=randvnesh:
				 '<<$bname>> said "You cool Devchenka. Maybe we`ll meet again?"'
				 act 'Deny him and go':gt 'gdkin'
					 act 'Tell him your phone':
					 cls
					 manna+=10
					 numboyFrend+=1
					 $nameBoyfrend[numboyFrend]=$bname
					 $nameBoyfrendFull[numboyFrend]=$bnamefull
					 dickBoyFrend[numboyFrend]=dick
					 silavagBoyFrend[numboyFrend]=siladick
					 otnBoyFrend[numboyFrend]=50
					 minut+=30
					 gs'stat'
					 'You told the guy my phone and he wrote it down.'
					 act 'Get_Away':gt 'gdkin'
					 end
				 end
				 if deystrand=1 or vnesh<randvnesh:
				 '<<$bname>> fits closer to you and starts to kiss you.'
				 if horny<=25:act 'Get_Away':gt 'gdkin'
				 dynamic $din_gorodok_boy_pristal
				 end
             end
             if DPtipe=2:
             horny+=5
             gs'stat'
             '<<$bname>> fits closer to you and starts to kiss you.'
             if horny<=25:act 'Get_Away':gt 'gdkin'
             
                 act 'kiss':
                 cls
                 horny+=5
                 minut+=3
                 gs'stat'
                 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
                 '<<$bname>> passionately kisses your <<$liptalk3>> and you reciprocate the kiss. You feel like your hands Man trying to pull your chest.'
                 if horny<=50:act 'Get_Away':gt 'gdkin'
                     act 'let him':
					 cls
					 horny+=10
					 minut+=3
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/tits.jpg" ></center>'
					 '<<$bname>> pulls your chest <<tits>> size outside and begins to knead your breasts and kiss them. The guy takes your hand and puts it on the groin, you feel that he`s got a hard cock.'
					 if horny<=75:act 'Get_Away':gt 'gdkin'
					     if horny<=90:
					     	 act 'resist':
							 cls
							 horny+=10
							 minut+=3
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
							 'You have removed his hand from his pants and the guy stuck his hand in your pants, You felt his fingers caress your wet pussy.'
							 if horny<=90:act 'Remove his hands and walk away':gt 'gdkin'
							     if horny>90:
							     cla
							     horny=0
							     orgasm+=1
							     gs'stat'
							     'Suddenly. You bit her lip that would not yell at the sensation.'
							         act 'moan':
									 cls
									 horny+=5
									 minut+=3
									 gs'stat'
									 '<center><img src="qwest/alter/Ev/cock3.jpg" ></center>'
									 'You moaned with pleasure and your legs buckled, you sat down in front of boyfriend. When the eyes cleared you will see in your face member.'
									     if sub>10:
									     	 act 'suck':
											 cls
											 minut+=5
											 horny+=10
											 bj+=1
											 guy+=1
											 sub+=1
											 gs'stat'
											 '<center><img src="qwest/alter/Ev/cocksuck.jpg" ></center>'
											 'You yourself without realizing suddenly kissed the head of the penis and understand what you are doing only, when hard cock already filled your mouth and you diligently his aspirated.'
											 	 act 'further':
												 cls
												 minut+=5
												 horny+=10
												 cumlip+=1
												 cumface+=1
												 cumfrot+=1
												 	 if GorSlut<2:
													 resultrand=RAND(0,100)
														 if resultrand>=80:
														 GorSlut=2
														 end
													 end
												 gs'stat'
												 '<center><img src="qwest/alter/Ev/cocksuck2.jpg" ></center>'
												 'Suddenly hit you in the mouth warm jet of sperm, You almost drowned but continued to suck. Seed flows down on your lips on cock and dripping on you clothes, finally became a member of the fall off in your mouth and the guy took it out, and put it in your pants.'
												 	 act 'View on Man':
													 cls
													 minut+=1
													 gs'stat'
													 '<center><img src="qwest/alter/Ev/cocksuck3.jpg" ></center>'
													 '<<$bname>> still experience keeps you head and you with a mouthful of sperm looked up, his face. Bliss and pretty guy looking at you. "fucking suck!"'
													 act 'Get up and go':gt 'gdkin'
													 end
												 end
											 end
									     end
									     if sub>=10 or dom<=10:
									     	 act 'sit':
									         cls
									         minut+=5
									         guy+=1
									         facial+=1
									         sub+=1
									         cumface+=1
									         cumfrot+=1
									         gs'stat'
									         '<center><img src="qwest/alter/Ev/facial.jpg" ></center>'
									         'You as if spellbound remained seated on the ground and the guy started to masturbate dick in your face. It all happened very quickly, you do not have time to understand anything and suddenly your face, jet takes off from a member of hot liquid and lands on the nose. You flinch and squeezes his eyes shut eyes, feeling as new streams of sperm fall on your face.'
									         act 'Get_Away':gt 'gdkin'
									         end
									     end
									     if dom>10:
									         act 'jerk guy':
									         cls
									         minut+=5
									         guy+=1
									         hj+=1
									         dom=0
									         gs'stat'
									         '<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
									         'You had the courage to stand up and took it hard and hot cock in her hand. You started kissing Man, while masturbate his penis. Finally the guy strangled groan and you will see how a member of his sperm flies.'
									         act 'Get_Away':gt 'gdkin'
									         end
									     end
									     
									 end
							     end
							 end
					     end
					     
					     
					     act 'Fondle his penis through his pants':
						 cls
						 horny+=5
						 minut+=3
						 gs'stat'
						 '<center><img src="qwest/alter/Ev/cock.jpg" ></center>'
						 'You started stroking a guy crotch, feeling the hardness member.'
						 if horny<=90:act 'Get_Away':gt 'gdkin'
						     act 'Climb to the guy in pants':
							 cls
							 horny+=10
							 minut+=3
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/cock2.jpg" ></center>'
							 'You put his hand to the guy `s pants and felt his fingers and his hard hot cock.'
							 if horny<=90:act 'Get_Away':gt 'gdkin'
                             dynamic $d_gorodok_boy_hj
							 dynamic $din_gorodok_boy_bj
							 end
						 end
					 end
                 end
             end
         end 
     end
end 
$din_gorodok_boy_otkaz={
     if dom>=GorSlut:
         act 'Get_Away':
         cls
         dom-=GorSlut
         minut+=5
         gs'stat'
         'You refused the guy and went back to the club.'
         act 'Get_Away':gt 'gdkin'
         end
     end
}
$din_gorodok_boy_pristal={
 act 'kiss':
 cls
 horny+=5
 minut+=3
 gs'stat'
 '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
 '<<$bname>> passionately kisses your <<$liptalk3>> and you reciprocate the kiss. You feel like your hands Man trying to pull your chest.'
 if horny<=50:act 'Get_Away':gt 'gdkin'
	 act 'let him':
	 cls
	 horny+=10
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/tits.jpg" ></center>'
	 '<<$bname>> pulls your chest <<tits>> size outside and begins to knead your breasts and kiss them. The guy takes your hand and puts it on the groin, you feel that he`s got a hard cock.'
	 if horny<=75:act 'Get_Away':gt 'gdkin'
		 if horny<=90:
			 act 'resist':
			 cls
			 horny+=10
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/petting.jpg" ></center>'
			 'You have removed his hand from his pants and the guy stuck his hand in your pants, You felt his fingers caress your wet pussy.'
			 if horny<=90:act 'Remove his hands and walk away':gt 'gdkin'
				 if horny>90:
				 cla
				 horny=0
				 orgasm+=1
				 gs'stat'
				 'Suddenly. You bit her lip that would not yell at the sensation.'
					 act 'moan':
					 cls
					 horny+=5
					 minut+=3
					 gs'stat'
					 '<center><img src="qwest/alter/Ev/cock3.jpg" ></center>'
					 'You moaned with pleasure and your legs buckled, you sat down in front of boyfriend. When the eyes cleared you will see in your face member.'
						 if sub>0:
							 act 'suck':
							 cls
							 minut+=5
							 horny+=10
							 bj+=1
							 guy+=1
							 sub+=1
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/cocksuck.jpg" ></center>'
							 'You yourself without realizing suddenly kissed the head of the penis and understand what you are doing only, when hard cock already filled your mouth and you diligently his aspirated.'
								 act 'further':
								 cls
								 minut+=5
								 horny+=10
								 cumlip+=1
								 cumface+=1
								 cumfrot+=1
									 if GorSlut<2:
									 resultrand=RAND(0,100)
										 if resultrand>=80:
										 GorSlut=2
										 end
									 end
								 gs'stat'
								 '<center><img src="qwest/alter/Ev/cocksuck2.jpg" ></center>'
								 'Suddenly hit you in the mouth warm jet of sperm, You almost drowned but continued to suck. Seed flows down on your lips on cock and dripping on you clothes, finally became a member of the fall off in your mouth and the guy took it out, and put it in your pants.'
									 act 'View on Man':
									 cls
									 minut+=1
									 gs'stat'
									 '<center><img src="qwest/alter/Ev/cocksuck3.jpg" ></center>'
									 '<<$bname>> still experience keeps you head and you with a mouthful of sperm looked up, his face. Bliss and pretty guy looking at you. "fucking suck!"'
									 act 'Get up and go':gt 'gdkin'
									 end
								 end
							 end
						 end
						 if sub=0 and dom=0:
							 act 'sit':
							 cls
							 minut+=5
							 guy+=1
							 facial+=1
							 sub+=1
							 cumface+=1
							 cumfrot+=1
							 gs'stat'
							 '<center><img src="qwest/alter/Ev/facial.jpg" ></center>'
							 'You as if spellbound remained seated on the ground and the guy started to masturbate dick in your face. It all happened very quickly, you do not have time to understand anything and suddenly your face, jet takes off from a member of hot liquid and lands on the nose. You flinch and squeezes his eyes shut eyes, feeling as new streams of sperm fall on your face.'
							 act 'Get_Away':gt 'gdkin'
							 end
						 end
                         dynamic $d_gorodok_boy_hj
						 
					 end
				 end
			 end
		 end
		 
		 
		 act 'Fondle his penis through his pants':
		 cls
		 horny+=5
		 minut+=3
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/cock.jpg" ></center>'
		 'You started stroking a guy crotch, feeling the hardness member.'
		 if horny<=90:act 'Get_Away':gt 'gdkin'
			 act 'Climb to the guy in pants':
			 cls
			 horny+=10
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/cock2.jpg" ></center>'
			 'You put his hand to the guy `s pants and felt his fingers and his hard hot cock.'
			 if horny<=90:act 'Get_Away':gt 'gdkin'
             dynamic $d_gorodok_boy_hj
			 dynamic $din_gorodok_boy_bj
			 end
		 end
	 end
 end

}
if GorSlut>=1 and GorSlut<=2:
gsboyrand=rand(0,10)
     if gsboyrand=0:
		 if GorSlut=1:
		 '<<$bname>> said, "I heard Svetsik, that you all give." The guy took out a member of his pants.'
		 dynamic $din_gorodok_boy_bj
		 dynamic $din_gorodok_boy_otkaz
		 end
		 if GorSlut=2:
		 '<<$bname>> said, "I heard Svetsik, you in the mouth you take." The guy took out a member of his pants.'
		 dynamic $din_gorodok_boy_bj
		 dynamic $din_gorodok_boy_otkaz
		 end
	 end
	 if gsboyrand>0:
	 alko+=1
	 minut+=15
	 gs'stat'
	 '<<$bname>> took a beer and you start to drink with him. When the beer was pokonchenno guy came up to you and hug you.'
	 dynamic $din_gorodok_boy_otkaz
	 dynamic $din_gorodok_boy_pristal
	 exit
	 end
end
if GorSlut=3 or GorSlut=4:
'<<$bname>> said, "You Svetsik <<$gnikname>>. I want to have fun." The guy took out a member of his pants.'
dynamic $din_gorodok_boy_bj
dynamic $din_gorodok_boy_otkaz
end
if GorSlut=5:
'<<$bname>> said, "You Svetsik <<$gnikname>>. I want to have fun." After that.'

	 dynamic $din_gorodok_boy_bj
	 dynamic $din_gorodok_boy_otkaz
end
if GorSlut=6:
'<<$bname>> said, "You Svetsik <<$gnikname>>. I want a blowjob. Here you 50 rubles" After that.'
	 act 'To squat':
	 cls
	 minut+=5
	 horny+=10
	 bj+=1
	 guy+=1
	 sub+=1
	 money+=50
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/boybj.jpg" ></center>'
	 'You sit down in front of a guy and began to masturbate his cock.'
	 	 act 'suck':
		 cls
		 minut+=5
		 horny+=10
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/boybj2.jpg" ></center>'
		 dynamic $dinrandbj
		 	 act 'further':
			 cls
			 minut+=5
			 horny+=10
			 cumface+=1
			 cumlip+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/boybj3.jpg" ></center>'
			 dynamic $dinrandswallow
			 act 'Get_Away':gt 'gdkin'
			 end
		 end
	 end
	 
	 act 'Get_Away':gt 'gdkin'
end
if GorSlut>=1:
     if dom>=5:
         act 'Swear Man':
         cls
         sub+=5
         minut+=3
         GorSlut-=1
         gs'stat'
         'You refused kid "You do oherel? His wife will make such proposals. Moron." The guy was confused "Well guys say the same..." You killed him "It is said in Moscow chickens milk, but just being milked, do not speak, you no ears hang, douchebag!"'
         act 'Get_Away':gt 'gdkin'
         end
     end
     if GorSlut<6:
         if dom>0:
			 act 'And you`ve got the money that is?':
			 cls
			 sub+=1
			 minut+=3
			 GorSlut=6
			 money+=300
			 gs'stat'
			 'You refused kid "And you`ve got the money that is?" The kid pulled out his 300 rubles. You took the money and put them yourself.'
			 dynamic $din_gorodok_boy_bj
			 end
		 end
     end
end
!dynamic $dinrandswallow













--- EvBoyBuh ---------------------------------

# albinaEv
$din_albina_get_over_car={
'Strong hands grabbed you and pulled out of the car.'
	 act 'further':
	 cls
	 albinaCar=1
	 gs'stat'
     '<center><img src="qwest/alter/grab.jpg" ></center>'
     
     end
}



albinaCarday=day
gs'stat'
'<center><img src="qwest/alter/BMW.jpg" ></center>'
'You went out to the car and looked at Albina. She looked around you haughty look and started the car.'
if albinaCar>0:

end
if albinaCar=0:
	 act 'It `s your car?':
	 cls
	 albinaCar=1
	 gs'stat'
	 '<center><B><font color=maroon><<$npcName[23]>> <<$npcSurName[23]>></font></B></center>'
     '<center><img src="qwest/alter/npc/23.jpg" ></center>'
	 'You asked Albina "It `s your car?" Albin pulled a contemptuous grimassy "what? of course not! This machine is the father, I would never have bought it. in_general X5 this machine suddenly grown rich rednecks, but not for decent people." You shake your head "Do not you? rights have?" Albina laughed "rights? why do I need, rights? Do you know who my father? He is the chief of police of our town, though retired, but communications were. I never stopped in his car." Albina second thought about something and said "went `ll ride."'
	 	 act 'Go to Albina':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/BMW.jpg" ></center>'
		 'You sat on the seat next to Albina and she touched the car. You went through the streets of the town, soon you moved out of the main streets and stopped at what that wilderness, where the trees darkened factory building. Albina looking at you smiled enigmatically "This is a surprise."'
		     act 'look_around':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/castle.jpg" ></center>'
			 'You looked around and realized, that you are on the territory of an abandoned factory. You looked at Albina, she grinned and pointed her manicured finger at plate. Have you read the inscription on the plate "Property Ltd. The Snow Queen" Albina laughed "This castle of the Snow Queen. My territory" The car stopped and two men approached BMW, the appearance of the two was a little over 30 year_old, one high, Athletic, the second is not a big growth, tum, but very strong, wrestling with a red neck, powerful hands and broad shoulders. Albina opened the door "Hi guys. How is it going?" Guys frowning examined you and boomed shorty "it`s okay."'
			     if AlbinaLast>0 or AlbinaBlokDance>0:
			     'Albina does not stops the engine, out of the car and told the guy "I `ve brought you a not very obedient girl, who knows something about my dancing business." high grinned "I_Get_It." Strong Shorty silently and lazily toward you.'
			         if dom>0:
						 act 'Go behind the wheel':
						 cls
						 minut+=5
						 gs'stat'
						 '<center><img src="qwest/alter/BMW.jpg" ></center>'
							 if agil>=100:
							 'You deftly jumped behind the wheel of cars. Fortress was at the hood, a long guy rushed to the driver`s door, that would get you.'
								 act 'Enable reverse gear':
								 cls
								 minut+=1
								 gs'stat'
								 '<center><img src="qwest/alter/BMW.jpg" ></center>' 
								 'You sharply passed back and stopped almost concrete fence. In front of your hood you see as burly running to you. A driver`s door to long runs.'
								 
								 end
								 
								 act 'Very go ahead':
								 cls
								 minut+=1
								 gs'stat'
								 '<center><img src="qwest/alter/BMW.jpg" ></center>'
								 'You abruptly thrust gear and squeeze the clutch abruptly moved forward. Fortress rattled plopped down on the hood of the car and fell off. Ahead you see the bushes, gate in which you entered Albina is on the right from you. On the left of you is a brick wall factory building.'
								 
								 end
							 end
							 if agil<100:
							 'You jumped behind the wheel of a car, but confused nogmi between the seat and the gear lever. In the driver`s door slid her hands long man.'
							 dynamic $din_albina_get_over_car
							 end
						 end
					 end
					 
					 act 'Out of the car':
					 cls
					 minut+=5
					 gs'stat'
					 '<center><img src="qwest/alter/castle.jpg" ></center>'
					 'You jumped out of the car and see how you run stalwart from the hood, and from the trunk of the car long obbegat. The road back to you cut off, but you notice the open door to the shop.'
					 
					 end
					 
					 act 'Sitting in the car':
					 cls
					 minut+=5
					 gs'stat'
					 '<center><img src="qwest/alter/BMW.jpg" ></center>'
					 dynamic $din_albina_get_over_car
					 end
			     exit
			     end
			     if DanceWhore>0:
			     'Albina does not stops the engine, out of the car and said "relax guys. Light of my Zvezdushek. newcomer. But a lot of promise."'
			     
			     end
			 end
		 end
	 end
end

act 'move_away':gt $loc, $metka





--- albinaEv ---------------------------------

# kotovEv
gs'stat'
'<center><B><font color=maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="qwest/alter/npc/9.jpg" ></center>'
if kotovLoveQW>0 and GorSlut>0:
'Vitek nabychilsya and tells you "Slysh Svetsik, Th for garbage? We`re mutim, and then you tell me about, what do you <<$gnikname>>. The whole town is already up to date, boys with me neigh area. You ohuevshaya creature!"'
	 act 'create a scandal':
	 cls
	 grupNPC[9]=0
	 kotovLoveQW=-1
	 gs'stat'
	 'You started yelling at Vic, that he had already Jam. Vitek started yelling at you and suddenly you have a ringing in your head and you were on the floor. Standing over you Vitek. Severely burned cheek, you do not understand, what happened, but it seems he slapped you podschechinu. "All creature! Most do not come to me! We`re through!"'
	 act 'move_away':gt $loc, $metka
	 end
	 
	 if dom>=20:
	 	 act 'convince, that all this gossip':
		 cls
		 sub+=20
		 GorSlut=0
		 gs'stat'
		 'You have begun to convince Vic, that all this gossip, no unfounded. Vitek frowned "I `ll knock your teeth these talkers, if ever even some garbage about you hear. do not worry, I pozatykayu these yapping mouths."'
		 act 'move_away':gt $loc, $metka
		 end
	 end
exit
end
if $loc='gdksport':
     if kotovKnowSport=0:
     'Witek came up to you and hugged her waist kissed. "hello, Svetsik."'
         act 'What are you doing here?':
	     cls
	     gs'stat'
	     '<center><B><font color=maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
         '<center><img src="qwest/alter/npc/9.jpg" ></center>'
         'You asked Victor what he was doing. Vitek neigh "you cho? I`m here with 11 Boxing takes years. Candidate master already, second place in the championship of the region occupied."'
             act 'You drink, and even smoke!':
			 cls
			 kotovKnowSport=1
			 gs'stat'
			 '<center><B><font color=maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
			 '<center><img src="qwest/alter/npc/9.jpg" ></center>'
			 'Were you surprised, Vitek every day thumps and smokes, as it combines sport. Vitek grinned "ha. Coach says I have a talent. Beat the big cannon, and the response is excellent. It`s in my dad, the wino was done for. 6be on a walker zone, and died of cirrhosis, but move into a jug could always so, that flew from sneakers. Of course a little bluing prevents, but what the fuck? I`d quit drinking and smoking and, but in boxing, Me and without money, CCM is the ceiling. I can even turned inside out, but the master of sports will not. I`ve been to the region, 2took place, I beat the champion in the shit, twice he knocked down lying. A victory gave him. So now for me , do it out of habit, yes that would be in the form behave."'
			 act 'move_away':gt $loc, $metka
			 end
	     end
     end
     if kotovKnowSport>0:
     'Witek came up to you and hugged her waist kissed. "hello, Svetsik. I`m back to training."'
     act 'move_away':gt $loc, $metka
     end
end
if $loc='gskver':
'Vitek waving your hand. "Come here Svetsik."'
act 'Sorry, i am in a hurry':gt $loc, $metka
     act 'come_Up':
     cls
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/npc/9.jpg" ></center>'
     'Vitek pours beer in a plastic cup. "In_short, Svetsik, let pivasom popem."'
		 act 'drink beer':
		 cls
		 minut+=15
		 alko+=2
		 fat+=5
		 salo+=1
         energy+=10
		 gs'stat'
		 'Vitek poured you a beer and you have been with him drink. Vitek with boys bullied stories, how they overcame in the city of Loja babosov, yes as the Rams with boys from another region.'
		     act 'Fair_Enough, I have to go.':
		     cls
		     gs'stat'
		     '<center><img src="qwest/alter/npc/9.jpg" ></center>'
		     'Witek came up to you and hug, kissing on the lips. "Slysh Svetsik, go to my."'
                 if dom>0:act 'Sorry, i am in a hurry.':sub+=1&gt $loc, $metka
                 
                 act 'Go to Vit`ka.':
                 cls
                 minut+=15
                 gs'stat'
                 '<center><img src="qwest/alter/npc/9.jpg" ></center>'
                 'You went through the square towards where he lives Vitek. Soon you with Vityok approached the dilapidated house , where lay crumpled heaps of clothes on the floor littered with empty bottles.'
                 act 'further.':gt'kotovSex'
                 end
             end
		 
		 end
     act 'Sorry, i am in a hurry':gt $loc, $metka
     end
end










--- kotovEv ---------------------------------

# IgorEv
gs'stat'
'<center><B><font color=maroon><<$npcName[4]>> <<$npcSurName[4]>></font></B></center>'
'<center><img src="qwest/alter/npc/4.jpg" ></center>'
if fedorKozlovQW>=10 and $loc='gdkin':
'To you and Igor suitable Fedor. "Gosh, You do not mistake? Light my girl." Igor blushed "Well Fed, understand, I did not know. But if you insist, it`s okay, I`m just so, in jest." Fyodor nodded "Well, joker."'
act 'Go with Fedor':IdorBlock=1&gt 'FedorEv'
exit
end
'Igor impatiently told you "what? go to my home?".'


if IgorLove>0:
	 act 'Go to Igor':
	 cls
	 minut+=15
	 gs'stat'
	 'You came to Igor home.'
		 if IgorDominaQW=0:
		 'Igor starts to hug you and kiss.'
		 
		 end
		 
		 if IgorDominaQW>0:
		 'Igor gets on his knees in front of you "Mrs., pray, the kiss!"'
		 
		 end
     act 'Get_Away':IgorLove-=1&gt'gorodok'
	 end
end
if IgorLove<=0:
IgorLoverQW=-1
'Along the way "Sveta, i love you so much, but you did not know, know, I began to wonder, we probably should leave."'
act 'Get_Away':gt'gorodok'
end
--- IgorEv ---------------------------------

# IvanEv
ivansportday=day
gs'stat'
'<center><B><font color=maroon><<$npcName[3]>> <<$npcSurName[3]>></font></B></center>'
'<center><img src="qwest/alter/npc/3.jpg" ></center>'
if $loc='gdksport':
'Ivan grinned seeing you "Hello World, you are here?" You confirmed his words. Ivan nodded. "I`ve been to the gym boxing go. soon competition."'
act 'Get_Away':gt'gdksport'
     if kotovVSprohorov=1:
     
     end
     if kotovVSprohorov=0:
     'Ivan thought about it and said "I now sparring with Kotov from our class. want to see?"'
		 act 'want_to':
		 cls
		 kotovVSprohorov=1
		 gs'stat'
		 'You entered the hall where trained local boxing club. The hall was ineradicable smell of old leather and sweat pears. A couple of guys hit on pears practicing strokes, several mirrors before practiced movement. In the ring was already Cats, shorts, helmet and gloves. "Hey Proshka! I `ll wait for you as? Go to the ring!" Prokhorov grinned, quickly pulled his helmet on his head, put on gloves and stepped into the ring. You sat on the bench. Many of the men also began to look, what will happen in the ring.'
		     act 'watch':
		     cls
		     minut+=3
		     dom+=1
		     gs'stat'
		     'Immediately caught my eye, Ivan is much higher, Vitek than Kotov, Kotov but broader in the shoulders and much Defined. Guys bumped gloves in greeting . Cats like a whirlwind attacked Ivan. Ivan began to retreat fighting jabs. was noticeably, Cats that can be embedded in strikes, but can not get Ivan. Ivan is not strong blows of his left hand almost immediately started to get cats in the head. Here there was a loud bang, Kotov and his head jerked, and he Vitek otsupil step. His right hand Ivan was very sharp and detailed. Vitek began to retreat and fight back. Roles were reversed in the ring, Ivan now put pressure and pressed Kotova. was noticeably, that Victor already pouring perspiration and he began to choke. And meanwhile. Vitek same fighting could not get Prokhorov. There was another loud bang and my head snapped towards Vic, and he was visibly staggered. Coach whistle whistle "So at the corners, end of the round. Victor! What the hell are you Presch like a tank Ivan? Ivan class above you. Use jab, feint, if you will shove, I can not catch you to separate, then you will treat concussion." Vitek standing in the corner was sweating and trying prodyshatsya. Ivan looked fresh and not tired. Finally coach whistle whistle "second round."'
		     	 act 'watch':
				 cls
				 minut+=3
				 dom+=1
				 gs'stat'
				 'In the second round , almost all the blows fell cats in the head, but Victor did not react to them, Suddenly he threw a left hook to the head of Ivan, Prokhorov had to raise their hands and close the head, but then a second blow Kotova landed with a loud bang Ivan `s stomach. Ivan noticeably bent down and began to retreat and move from side to side. Cats happy and began to settle on Ivan throwing hands with incredible speed. Here he was able to get Ivan `s head and legs buckled Ivan. Coach again whistled the whistle. "Ivan, keep him at a distance, do not let close!" It has been seen as a nose bleed Ivan he wipes his glove. Coach whistled again "third round."'
				 	 act 'watch':
					 cls
					 minut+=3
					 dom+=1
					 gs'stat'
					 'Ivan began to move easily on his feet throwing his left hand on his head which regularly ran constantly attacking Kotov. Victor threw hand, but Ivan managed to remove the head from bumps and knocks over his arm Kotova, there was a loud bang and Kotov got ass in the ring. Someone of the guys watching the fight with admiration noticed "Excellent cross struck Vanka." Long and nasty whistle whistle coach. "Ivan, good_for_you, well caught in the cross. Victor, are you ok?" Witek got to his feet and angrily looked at Ivan through clenched teeth. "I`m fine." Coach nodded "Well then continue." The guys came back to the center of the ring and greeted each other blow gloves began to fight. Vitek became noticeably quieter and more tried to go away from the blows Prokhorov. Ivan was moving on his feet and threw punches scathing, many of which hit the target. Vitek suddenly intensified and tucked in a corner of Ivan, two powerful blows immediately hit in the stomach and Ivan Prokhorov clutching Victor hung on it. There was a whistle coach "Ivan, protecting the shell. Okay ." The boys stood in their corners, it was noticeable that they are both covered in sweat and panting. Ivan wiping the blood flowing from the nose, Victor and exercise hands. Coach whistle whistle "fourth round"'
					 	 act 'watch':
						 cls
						 minut+=3
						 dom+=1
						 gs'stat'
						 'Began the fourth round and Victor began to circle around the ring trying to drive into the corner of Ivan. Ivan visibly tired and his movements became slower in the ring, but his punches are still regularly fetched Kotova. Suddenly there was cotton and Ivan staggered, Victor still got it in his head. Ivan began to retreat to close the hands of Kotova, Vitek and thrashed with renewed vigor for the Protection of Ivan. Suddenly, Cats hit uppercut, Ivan and his head swayed. Ivan hung on Victor. Coach whistle whistle "Ivan, move on his feet, Bey jab, do not sleep in the ring." Coach whistled again and the boys continued. Vitek were pressing on Ivan, but Ivan has recovered and fought back light and quick strokes. Behold the head of Ivan jerked by powerful strike and Ivan recoiled hanging on the ropes, Cats immediately rushed to Ivan in order to finish it, but the whistle blew coach. "Fair_Enough, enough for today. Ivan, get some rest and legs, will practice defense corps. You weak this component." Vitek nabychilsya, "And what should I do?" The coach shrugged "Think of something, not small."'
						 	 act 'Ask the coach who won':
							 cls
							 minut+=3
							 gs'stat'
							 'You asked an elderly coach who won. The coach looked at you, as if he had just noticed you. "This sparring, There are no winners here. But if it was a real battle, it would certainly be defeated Ivan. In combat, their strength does not matter. Ivan struck a dozen times more punches." Cats heard coach zabubnel "Of_Course, otpizdish in shit, and then also lose. Proshka as broken, if not whistle, I would put it. Master of Sports fucking." On the coach noticed with irritation "cats, you`re not in the alley, is a sport, and he has the right, according to the rules you lose, learn not to expose his head off everywhere." Cats with irritation off his gloves and went into a corner, where lay the bar and weights. The coach looked after him "Here alone can, swing." Prokhorov has regained consciousness and went to the coach. The coach began to wear big leather paws on his hands.'
							 	 act 'Can I be like training?':
								 cls
								 minut+=3
								 gs'stat'
								 'You asked an elderly trainer whether you can also train. The coach smiled. "You see, there is no other girls. Who are you going to stand in sparring? And it is not without sparring boxing will, a children`s game." You offered to put you in sparring with guys. Surround you guys giggled. Smiled even coach. "You saw the fight, imagine, what will happen to you, if some sort of Kotov you accidentally hit in full force. I`m not old age, even in prison get, for, that you were in training, somebody accidentally injure."'
								 act 'Get_Away':gt'gdksport'
								 end
							 end
						 end
					 end
				 end
		     end
		 end
     end
else

end



--- IvanEv ---------------------------------

# FedorEv
gs'stat'
numnpc=5
'<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
if GorSlut=0:
     if kotovLoveQW>0 and week<5 and kotovVSkozlov=0:
     kotovVSkozlov=1
     'To you came up with Fedor Kotov Vitek "hey, patsanchik, you do not beguiled? Sveta my heifer!" Fedor turned to Vit`ka "It looks like you are beguiled. Light now occurs to me, so go where he was going." Vitek Courage put his hand to his ear "Where are you just sent me, and?" Fedor said quietly "You heard me perfectly." In the eyes of Victor prolyhnula rage and you notice how white-knuckled fingers on his clenched fists "You Th so swift? By heifer my basement, I derzish, I did ask for it and I can." Fedor came close to Vit`ka and also clenched his fists. "Fuck off from Amy, cats."'
     
         act 'Vitek, I`ll throw':
         cls
         minut+=5
         kotovLoveQW=-1
         gs'stat'
         'you said, What strikes Kotova. Vitek noticeably angry, forced a "You went on dick, bitch!" And left.'
         act 'further':gt $curloc
         end
     
         act 'See what will happen':
         cls
         minut+=5
         gs'stat'
         'Vitek suddenly slammed his fist Fedor, from which he flew backward and fell to the asphalt. Vitek quickly jumped to the underlying Fedor and seizing him by the collar with his left hand, immediately powerfully punched his right hand on the head of Fedor. Fyodor cringed covering her face and tried to kick Kotova. Vitek bounced and with all his strength gave a kick in the ribs lying on the ground Fedor. Fedor groaned and skhvavshis for ribs tried to get up on his feet, but then he got another powerful kick in the head from Vic, and fell on his back. Have you noticed, that came out of the corner of Auburn and Shul`ga, groomsman Kotova "Hey Cat, what`s going on? goat that, impertinent thought up?" Cats again kicked in the ribs bezchuvstvennogo Fedor, and said to his friends. "Yes absolutely ohuel our goat, to my devchenke wedges decided to line, I sent. In short bykuet the full program, here I am and it pressanul." Auburn came to lying on the ground Fedor and squat Fedor grabbed by the hair and lifted his head. "Hey goatskins, let ochuhivaysya, Bazaar has." Fedor groaned and opened his eyes, his face was smashed and bleeding. Ryzhyi blew smoke in his face Fede "Well Th, deer, You agree that wrong?" Fyodor groaned "Light my Devchenka." Shul`ga disgusting, giggled like a hyena "you see, goat continues bychit." Cats barked at Fedor "You little something? Piedra I`ll do now omit the floor, if you do not shut your mouth!" Ginger said quietly "Relax Cat. I think goat realized the depth of his delusion. Well? realized? Or do you want to aggravate?"'
             act 'See what will happen':
			 cls
			 gs'stat'
			 strelaDay=day
			 strelaQW=1
			 'Fyodor started to rise to his feet and moaned through the broken ruining "Fuck you, gopota fucking." Shul`ga jumped to Fede and banged his fist on the person, Fyodor staggered but managed to get to his feet, but he was immediately on the neck edge of his hand hit Auburn. Fedor legs buckled and he fell on all fours. Shul`ga giggled "Watch, pidarok already stood in a pose! Gradually begins to realize." By groaning Fyodor Kotov came and grabbed him by the scruff of the neck to his feet "well, Do you have something else to say?" Fyodor tried to hit Kotova, but he easily parried Fedi hand and struck his forehead to the nose Fedor. Fedor went limp and kept it from falling only Kotov "well, well, that you thought up immediately fall? We`re just talking here, is not it?" By Fyodor jumped back with a run Shul`ga and kicked him in the kidneys, from what Theodore groaned and began to twitch in the hands Kotova. Cats angrily remarked "what hurts, whether that? So we just started talking." Suddenly Fyodor Kotov easily lifted over zamlyu and threw it on the asphalt. Fedor fell with a thud and lay still on the ground. Shul`ga mocking sat around a broken face Fedor and spat in his face "ha, ha, let petushnem bychara!" Cats with a puzzled look on Shulga "You do Ramsey beguiled, pimple, what would I have got this shit?" Shul`ga immediately retorted "Well then obossym kid, I just want to pee." Auburn noticed "boys, it is not necessary to arrange chaos. Such questions people should decide." Shulga started to bristle "And I that? not people?" redhead grinned "you syavka, people are thieves, not you. Can ask the White, Because of this goat. he decides, how to punish him for his insolence. Zabem boom and could decide, what to do." cats nodded "normally, will proceed." Fyodor lying on the pavement groaned and clutched at his head. Auburn went up to him and said "Slysh, kid. Tomorrow arrow hammered. there shall understand, how to punish you, and mind you, if you do not come, it will be worse." Shul`ga happily jumped to lying Fedor "Let the kid do not come, without you decide, cheek or you `ll take her ass podmahivat." Cats grimaced in disgust and said "Come on guys drink beer. Enough already with the fiddle by shit. Sveta, in short , if that." Cats and Auburn went in the direction of the square, Shul`ga again kicked Fedor lying and disgusting giggling followed the boys.'
			 act 'Get_Away':gt'gorodok'
			 end
         end
     exit
     end
     
     
     
     'Fedor comes to you and gently hugs the waist.'
     
     act 'kiss':
     cls
     horny+=5
     gs'stat'
     '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
     'You kissed passionately with Fedor.'
     $ev_name='Fedor'
     $ev_name_a='Fedor'
     $ev_name_om='Fedor'
     dick=17
     silavag=0
     
         if gnpcSex[numnpc]=0:
         !sex was not
         placerand=rand(0,2)
         if placerand=0:place=1&$textEvent=' "Let`S_Go, take a walk through the square?"'
         if placerand=1:place=2&$textEvent=' "Let`s go to the movies?"'
         if placerand=2:place=3&$textEvent=' "Come to me, Vidic look."'
         end
         if gnpcSex[numnpc]>0:
         !sex was
         $textEvent=' ""'
         end
     'You kissed passionately with Fedor. Finally stopping kiss <<$ev_name>> said'+$textEvent
     act 'Sorry, but I have to go':gt'gorodok'
         act 'Go with Fedor':
         cls
         gs'stat'
         Frend_num=1
         gt'placer'
         end
     end
     
     
     
     
     
end
if GorSlut>0:
fedorKozlovQW=-1
'Fedor looks very angry "Sveta, I treat you with all my heart, and you okazyvatsya common slut. all, between us nothing else and can not be!" Fedor turned and walked.'
act 'Get_Away':gt'gorodok'
end





--- FedorEv ---------------------------------

# strela
gs'stat'
'You came to the car and were greeted by bandits. Those nod your head. You looked around and saw, that some cars worth six strong guys, lean ringleader of the gang , cats, red, Shul`ga, but on the whole against this company is worth only one Fedor. White went to Theodore "I understand, you are the one for you and no one will say?" Fyodor frowned and nodded. White said quietly "Guys neponyatkah, come to me, outlined the situation. You girlfriend decided to discourage Kotova, it certainly nonsense, is to decide for yourself, together. But you specifically rude kid, this is no longer the order. So I ask you, Do you agree, that sent kids?" Fyodor muttered "sent, but they first started!" White calmly explained "you recognized, that rude kid. And you guys had come together mind to reason, but apparently bad had come together. You have not yet realized their error. Now you are aware or not?" Fyodor grimly kinvul "realized." white noted "Well. You specifically rude kid, now you realized it. For we must pay with his rudeness. In_short, with you 30 pcs, tomorrow, if you do not bring it up tomorrow, then a counter, and for each day you will have more in pieces." Fedor paled "Why do I have that kind of money? I was just a schoolboy?" White shrugged "Think before I had, before, how to start rude kid, and now pay." Fedor sovesem hung silent and depressed, Shul`ga jumped to it "what, boys, let him do discount, now suck me and ask him the favor, anyway , not that much thirty mowers." White grinned and turned to the red-haired, "Well. But in principle, if you guys do not mind such a decision, I ." Cats shrugged "do_not_care." redhead grinned "I also do not mind. Well, 30 pcs, or now have otsosesh Shulgi?" Fyodor pale and pulled "What do you mean? I`m not a fagot!" Shulga came to him and said sarcastically "Nobody said, you fagot. You have offered to pay the debt immediately, the easy. Sosnesh now and you will not have to do, and refuse, are then ready to thirty tonight, and then put on the counter, then your parents and hut sell, what would your duty to pay. Now you know what situation you?" Fedor broke down and cried "children, Well! I do not have that kind of money! I did not know, so that everything will turn out!" Guys indifferently looked at Fedka. White with loathing noticed "erase the snot, and then look disgusting, itself solve, I give you one minute." Shul`ga unbuttoned his pants "Come, Do not be dismayed, a couple of minutes and no debt." Fyodor openly began to fluctuate. White grinned looking at fluctuations Fedor "Look those ka, and he already ranges."'

act 'Look at what is happening':
cls
gs'stat'
$npcText[5]='Fedka lowered in the schoolyard. His fucked in the mouth Shul`ga. Fyodor now everyone calls only Masha.'
grupNPC[5]=50
grupTipe[5]=-1
fedorKozlovQW=-10
'Fedor even stronger wept and knelt before Shulga. Member Shulgi instantly cured and he buried his lips Fedor, Fedor started to suck dick. Shul`ga zahihkil laughing hyenas "bite, teeth `ll beat! wafers.". Hefty lads smiled exchanging glances "Well Shul`ga, a circus arranged." Cats turned away in disgust. Redhead grinned and pulled out a cell phone "Zashkvarili kid, it is necessary to click on the memory." Finally Shul`ga muffled groan and began to cum in her mouth Fedor. "swallow fag! Do not try to drop a drop of!" Shulga took Fyodor member of his mouth and pulled Fedor wiping his mouth with his hand. "Well cocksucker? As it is now you will call? Fedor is a man`s name, and you`re no longer a kid, you Shmarev. Will now Masha! And you all polzovat may at any time. And if you fag at least something vyaknesh, fucking you. You`re not a man, you cocksucker! Well understood their place?" Fyodor nodded grimly "Got_It." Shul`ga lifted his leg and had dirty soles to face Fedor "Statement will speak in the feminine, i_get_it?" Fyodor nodded wiping the dirt from his face and muttered "I understood all." Shul`ga spat in the face of Fed "What`s your name Shmarev?" Fyodor said "My name is Masha." White grinned and went to BMW, "Okay lads, went, let the boys go on to play with his toy." `Brother got into the car and drove away. Shul`ga mocking Fyodor made вЂ‹вЂ‹him collect harchok face and lick it, finally played enough Shul`ga left alone Fyodor and boys went to drink beer in the park.'
act 'Get_Away':gt'gorodok'
end

if money>=30000:
	 act 'Pay money for Fedor':
	 cls
	 money-=30000
	 dom+=10
	 gs'stat'
	 'you said "I`ll give him the money." White looked at you squinted "And so?" You looked him in the eye and answered "look disgusting." White sighed and said "Well, you`re a woman , but if you so wish, then give me the money." You got the money and handed it to the White, he counted them and put it in your pocket, then turned to his bandits. "Okay boys, went." The entire team got into the car and drove away. Kotov said angrily "Okay boys, go drink beer." The boys went to the side of the square. Fedor came up to you and babbled "Thank Svetochka, you saved me, I give money, do not worry, not immediately, piecemeal, but give!"'
	  act 'Get_Away':gt'gorodok'
	 end

end


--- strela ---------------------------------

# kotovSex
$din_kotov_bj={
	 act'Take by mouth.':
	 cls
	 minut+=5
	 bj+=1
	 bja+=1
	 if npcSex[9]=0:npcSex[9]=1&guy+=1
	 bjrand=RAND(0,6)
	 kotovBJtimes+=1
	 if pirsA=0:$textsexkotov='tongue caressed the head'
	 if pirsA>0:$textsexkotov='tongue caressed the head feeling the rod in your language moves from hitting the member'
	 gs'stat'
	 '<center><img src="qwest/alter/ev/kotovBJ<<bjrand>>.jpg" ></center>'
	 'You stroked his crotch Vic and felt his cock began to get up. Vitek quickly pulled off his pants and lay on the bed. You sit back and between his legs wrapped around his lips his standing member starting to suck. You sucked hard cock to fill the throat from ear to ear, <<$textsexkotov>> and took a member of the cheek. Soon Vitek groaned "Svetsik, I `ll finish!"'
	     if kotovBJtimes>5:
			 act'continue to suck.':
			 cls
			 minut+=5
			 cumlip+=1
			 bjrand=RAND(0,6)
			 gs'stat'
			 '<center><img src="qwest/alter/ev/kotovBJcum.jpg" ></center>'
			 'You continued to suck and squirt hot cum hit you in the mouth.'
				 act'Sucking swallowing sperm.':
				 cls
				 minut+=5
				 swallow+=1
				 gs'stat'
				 '<center><img src="qwest/alter/ev/cocksuck2.jpg" ></center>'
				 'You suck dick to cum swallowing cum, as soon as it hits your mouth. Finally Vitek end stops and pulls his dick out of your mouth.'
					 act'Get_Away.':gt'gorodok'
				 end
				 
				 if kotovBJtimes>10:
					 act'Holding suck cum in mouth.':
					 cls
					 minut+=5
					 gs'stat'
					 '<center><img src="qwest/alter/ev/kotovBJcum4.jpg" ></center>'
					 'You suck dick cums that fills your mouth with sperm. Finally Vitek end stops and pulls his dick out of your mouth.'
						 act'spit_out.':
						 cls
						 minut+=5
						 gs'stat'
						 '<center><img src="qwest/alter/ev/gop8.jpg" ></center>'
						 'Bytrenko you went to the bathroom and spit cum in the sink.'
							 act'Get_Away.':gt'gorodok'
						 end
						 
						 if kotovBJtimes>12:
							 act'swallow.':
							 cls
							 minut+=5
							 swallow+=1
							 vaf+=1
							 gs'stat'
							 '<center><img src="qwest/alter/ev/kotovBJcum5.jpg" ></center>'
							 'Once Vitek gets dick out of your mouth, You gulp swallow sperm, leaving behind a sharp aftertaste.'
								 act'Get_Away.':gt'gorodok'
							 end
						 end
						 
						 if kotovBJtimes>15:
							 act'Play with sperm.':
							 cls
							 minut+=5
							 swallow+=1
							 vaf+=1
							 gs'stat'
							 '<center><img src="qwest/alter/ev/kotovBJcum2.jpg" ></center>'
							 'Once Vitek gets dick out of your mouth, you open your mouth in front of him and begins to play with sperm.'
								 act'Get_Away.':gt'gorodok'
							 end
						 end
					 end
				 end
			 end
		 end
		 
		 act'Remove the mouth.':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/ev/kotovHJ.jpg" ></center>'
		 'You remove a member from his mouth and begin to masturbate hand.'
			 if kotovBJtimes>15:
				 act'Directed to the face.':
				 cls
				 minut+=5
				 cumface+=1
				 facial+=1
				 gs'stat'
				 '<center><img src="qwest/alter/ev/kotovFacial.jpg" ></center>'
				 'You are sent to the members on his face and a hot jet of sperm hits you in the face. Then another and another jet. Your face is covered with flowing finished and Vitek cleans cock in his pants.'
					 act'Get_Away.':gt'gorodok'
				 end
			 end
			 
			 act'Cum in her hands.':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/ev/kotovHJ2.jpg" ></center>'
			 'You pinch the ends and a member of the palms into your hand starts to whip the sperm out of the penis.'
				 act'Get_Away.':gt'gorodok'
			 end
		 end
	 end
}
$din_kotov_anal={
	 act 'substitute the ass':
	 cls
	 minut+=30
	 cumanus+=1
	 anala+=1
	 if npcSex[9]=0:npcSex[9]=1&guy+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/anal.jpg" ></center>'
	 dynamic $sexstart
	 dynamic $analsex
	 act'Get_Away.':gt'gorodok'
	 end
}
$din_kotov_sex={
	 act 'Lie on your back.':
	 cls
	 minut+=30
	 sexa+=1
	 kotovVagSex+=1
	 if npcSex[9]=0:npcSex[9]=1&guy+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/sex.jpg" ></center>'
	 'You lay on your back. Vitek lay on top and spread your legs.'
	 dynamic $sexstart
	 dynamic $sexstart2
	 dynamic $sexcum
	 act'Get_Away.':gt'gorodok'
	 end
}

dick=18
silavag=2
$boy='Vitek'
minut+=15
gs'stat'
'<center><B><font color=maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="qwest/alter/npc/9.jpg" ></center>'
'Vitek began to touch and kiss you. "In short Svetsik, undressed."'

     if vagina=0 and sex=0:
         if SchoolAtestat=0:
             act'I`m still a girl.':
             cls
             minut+=5
             gs'stat'
             'You said Vit`ka, that you have a girl. He scratched his head "Here ambush, but still did not finish school. Well then take on canine or popets. If cheek take, I `ll fucking, will not tell anyone, that you took in the mouth."'
             dynamic $din_kotov_bj
             dynamic $din_kotov_anal
             end
         else
             act'I`m still a girl.':
             cls
             minut+=5
             gs'stat'
             'You said Vit`ka, that you have a girl. he grinned "C`mon, garbage, you graduated from school, adult now. Not well."'
             dynamic $din_kotov_bj
             dynamic $din_kotov_anal
             dynamic $din_kotov_sex
             end
         end
     else
		 act'undress.':
		 cls
		 minut+=5
		 gs'stat'
		 'You quickly took off his clothes and Vitek also undressed.'
		 dynamic $din_kotov_sex
		 if dom>0:dynamic $din_kotov_anal
		 if KotovKnowPirsA=1:dynamic $din_kotov_bj
		 end
     end

if pirsA = 1 and KotovKnowPirsA=0:
KotovKnowPirsA=1
'Vitek suddenly looked you in the face. "And what `s that on your tongue?" You stuck out her tongue and showed post. Vitek grinned "heh, these_are, to suck dick better?" You frowned and called Victor vulgar. he grinned "Come Svetsik, I will not tell anyone, if you take the cheek."'
end









--- kotovSex ---------------------------------

# BnameGen


bnrand=RAND(0,15)
if bnrand=0:$bname='Sasha'&$bnamefull='Alexander'
if bnrand=1:$bname='Lesch'&$bnamefull='Alexey'
if bnrand=2:$bname='Kohl'&$bnamefull='Nicholas'
if bnrand=3:$bname='Petya'&$bnamefull='Peter'
if bnrand=4:$bname='Vasya'&$bnamefull='Basil'
if bnrand=5:$bname='Gosh'&$bnamefull='Igor'
if bnrand=6:$bname='Misha'&$bnamefull='Michael'
if bnrand=7:$bname='Dan'&$bnamefull='Denis'
if bnrand=8:$bname='pasha'&$bnamefull='Paul'
if bnrand=9:$bname='gene'&$bnamefull='Gennady'
if bnrand=10:$bname='Dima'&$bnamefull='Dmitry'
if bnrand=11:$bname='Slavik'&$bnamefull='Vyachesla'
if bnrand=12:$bname='Acne'&$bnamefull='Vitali'
if bnrand=13:$bname='Valera'&$bnamefull='Valery'
if bnrand=14:$bname='Vanya'&$bnamefull='Ivan'
if bnrand=15:$bname='Serge'&$bnamefull='Sergey'

:markodinname
bnrand=RAND(0,15)
if bnrand=0:$bname2='Sasha'
if bnrand=1:$bname2='Lesch'
if bnrand=2:$bname2='Kohl'
if bnrand=3:$bname2='Petya'
if bnrand=4:$bname2='Vasya'
if bnrand=5:$bname2='Gosh'
if bnrand=6:$bname2='Misha'
if bnrand=7:$bname2='Dan'
if bnrand=8:$bname2='pasha'
if bnrand=9:$bname2='gene'
if bnrand=10:$bname2='Dima'
if bnrand=11:$bname2='Slavik'
if bnrand=12:$bname2='Acne'
if bnrand=13:$bname2='Valera'
if bnrand=14:$bname2='Vanya'
if bnrand=15:$bname2='Serge'

if $bname=$bname2:jump'markodinname'

:markodinnamesec
bnrand=RAND(0,15)
if bnrand=0:$bname3='Sasha'
if bnrand=1:$bname3='Lesch'
if bnrand=2:$bname3='Kohl'
if bnrand=3:$bname3='Petya'
if bnrand=4:$bname3='Vasya'
if bnrand=5:$bname3='Gosh'
if bnrand=6:$bname3='Misha'
if bnrand=7:$bname3='Dan'
if bnrand=8:$bname3='pasha'
if bnrand=9:$bname3='gene'
if bnrand=10:$bname3='Dima'
if bnrand=11:$bname3='Slavik'
if bnrand=12:$bname3='Acne'
if bnrand=13:$bname3='Valera'
if bnrand=14:$bname3='Vanya'
if bnrand=15:$bname3='Serge'

if $bname=$bname3 or $bname2=$bname3:jump'markodinnamesec'

raspredickrand=rand(0,10)
if raspredickrand=0:
dick=RAND(8,13)
elseif raspredickrand=10:
dick=RAND(18,25)
else
dick=RAND(13,17)
end
silavag=RAND(0,2)












--- BnameGen ---------------------------------

# AlbFatherQW
$din_zajava_albfather={
act 'Fair_Enough. I will write a statement.':
cls
minut+=1
AlbFather=2
!ZvezdEnd=1
gs'stat'
'You have agreed to write a letter, Captain nodded pretty. "You clever girl and choose the right side. Come to me in the car, all there arrange quick."'
     act 'Go with Chernov':
	 cls
	 minut+=1
	 AlbZaDay=daystart
	 gs'stat'
	 'You`ve written and signed statement by the captain, after which he instructed you. "I want to gather such evidence base, that would Albina could not wriggle. Therefore hike until the workout, a month later the trap slammed shut and we tie up all this riffraff."'
     act 'Get_Away.':gt'gorodok'
     end
end

}
$din_zajava_albfather_no2={
act 'And yet I refuse':
cls
minut+=1
AlbFather=-1
gs'stat'
'You have resolutely refused to write a statement to the captain. The captain sighed sadly "I_Get_It. You currently have acquired powerful enemies girl."'
     act 'warn Albina':
	 cls
	 minut+=1
	 AlbFrend=1
	 ZvezdEnd=1
	 gs'stat'
	 'You quickly dialed the number and Albina told her what had happened. Albina said thoughtfully thank you and hung up.'
     act 'Get_Away.':gt'gorodok'
     end
end
}
$din_zajava_albfather_no={
act 'I`m not going to write a statement!':
cls
minut+=1
gs'stat'
'You refused to write a statement and the captain began to persuade you. "Think about the consequences. Do not you pass Albina, so who else, in the end we ourselves can easily take it now. Evidence enough."'
	 if intel>=80:
		 act 'And why would I tell you?':
		 cls
		 minut+=1
		 gs'stat'
		 'You asked the captain, if they so good, thio then why did you tell them. The captain replied "frankly, it is not our jurisdiction, and act without direct application dangerous, Barlovskogo we can and push, but we may not be pleasant consequences. A statement is a guarantee of success of the operation."'
		 dynamic $din_zajava_albfather
		 dynamic $din_zajava_albfather_no2
		 end
	 end
	 
	 	 dynamic $din_zajava_albfather
		 dynamic $din_zajava_albfather_no2
end
}

gs'stat'
'Suddenly stopped the car near you. It comes from a man in a good suit and comes to you. He gets out of Corman `s license and opened it appears. "captain Chernov. The State Security Service." You surprise spotted documents, all right, license now. You said in surprise "Why should I have needed? There is some sort of error." Captain Chernov told you confident tone "no error, Svetlana Lebedeva you, let`s move to the side and talk."'


act 'Move with Chernov':
cls
minut+=1
gs'stat'
'You walked away with Captain Chernov. Along the way. Ogladevshis Chernov begins "Svetlana. I know, you recently in a team Zvezdushki. As well know, anything but dance has been the team. Zvezdushkam will end soon, With your help or without your help. It`s not even so important, what is important, when the case will be set in motion, the whole town knows, What are you doing in this group. And even not so important, engaged or not, but will not stop the gossip. You will be given a heavy fine, inform parents, to school, put on record with the police. But all this can be avoided."'
     act 'How to avoid?':
	 cls
	 minut+=1
	 gs'stat'
	 if age<18:'You asked the Captain Chernov as possible to avoid publicity and consequences. Captain Chernov told you "You write to the security service, about, Albina Barlovskaya that entices you into prostitution. In addition. This is more a nuisance for Albina."'
	 if age>=18:'You asked the Captain Chernov as possible to avoid publicity and consequences. Captain Chernov told you "You write to the security service, about, Albina Barlovskaya that entices you into prostitution."'
	 'Captain Chernov paused, giving you time to think and continued. "If you write an application, you will pass on the case as a victim, There will be no publicity. Property and makes it no no, write a statement. Next `ll have this thing I."'
	     if intel>=70:
	         act 'And why is engaged in the security service, rather than the police?':
	         cls
	         minut+=1
	         gs'stat'
	         'you asked, What `s so important about Albina, she took no police, and Security Service. Captain grinned bad "I have underestimated, You clever girl. Fair_Enough, will play in the open. Do you know who the father of Albina? Boris Barlovsky, Colonel retired police. He served as chief of police in this town. Let now he is retired, but he has great connections with the police."'
	         if intel>=75:
				 act 'You did not answer the question.':
				 cls
				 minut+=1
				 gs'stat'
				 'You said Captain, that he did not answer the question, why now suddenly interested in the affairs of Albina, why the security service. The captain nodded "It`s very simple. Albina `s father decided to go into politics and become the mayor of the town. There are certain forces, who want to stop him. What could be better criminals daughter, engaged in a brothel."'
				 dynamic $din_zajava_albfather
				 dynamic $din_zajava_albfather_no
				 end
			 end
			 
	         dynamic $din_zajava_albfather
	         dynamic $din_zajava_albfather_no
	         end
	     end
	     
	     dynamic $din_zajava_albfather
	     
	     dynamic $din_zajava_albfather_no
	 end
end
















--- AlbFatherQW ---------------------------------

# gKristinaZv
gs'stat'
'After physical training you went to the locker room with the rest of sex!. Christine immediately came up to you in front of the rest of the class sex!.'

if zverhumiliation=0:randhumiliation=0
if zverhumiliation=1:randhumiliation=rand(0,1)
if zverhumiliation=2:randhumiliation=rand(0,2)
if zverhumiliation=3:randhumiliation=rand(0,3)
if zverhumiliation>=4:randhumiliation=rand(0,4)

if randhumiliation=0:
'- Well sheep, you`re here pizdela about me, I vaflersha, so I brought you a present. Christina pulled from his bag, Dildo. Christina with dildo chpok sticked to the wall at the level of the groin. "Well Svetsik, starts sucking forgiveness or maybe you want me to once again you broke ragged sheep mug?"'

	 act'sucking dildo':
	 cls
	 zverhumiliation+=1
	 dilbj+=1
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/zver/dildobj.jpg" ></center>'
	 'You sit down in front of a dildo sticky sucker to the wall and began to suck in front of the girls in her class. Finally Christina laughed allowing you to stop and change.'
	 act 'Go_Out':gt'gschool'
	 end
end
if randhumiliation=1:
'- Well sheep, you`re the type of girl sports, I think you must be a little more pump. Christina pulled from his bag, dildo and dildo sticked with chpok to the floor. "Well Svetsik, stop lying to accept and start sucking wrung"'

	 act'sucking dildo':
	 cls
	 zverhumiliation+=1
	 dilbj+=1
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/zver/dildobj2.jpg" ></center>'
	 'You took the emphasis lying down and cupped her lips dildo, then you started to do push-ups allowing dildo to penetrate deeper into your mouth. Finally Christina laughed allowing you to stop and change.'
	 act 'Go_Out':gt'gschool'
	 end
end
if randhumiliation=2:
'- Well sheep, it`s time for the suction otcherednogo. Christina pulled from his bag, dildo and dildo sticked with chpok to the floor. "Well Svetsik, start praktikovatsya"'

	 act'sucking dildo':
	 cls
	 zverhumiliation+=1
	 dilbj+=1
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/zver/dildobj3.jpg" ></center>'
	 'You sit down in front of a dildo and bending low began to suck the dildo in front of odnoklasnitsy. Finally Christina laughed allowing you to stop and change.'
	 act 'Go_Out':gt'gschool'
	 end
end
if randhumiliation=3:
'- Well sheep, I decided to do a bit of your development. Christina pulled from his bag, three dildos and cleave them to the mirror at the groin. "Well Svetsik, start praktikovatsya"'

	 act'sucking dildo':
	 cls
	 zverhumiliation+=1
	 dilbj+=1
	 sub+=1
	 gs'stat'
	 '<center><img src="qwest/alter/zver/dildobj4.jpg" ></center>'
	 'You sit down in front of a dildo and began his sosast nadrachivaya while the other two hands. Finally Christina laughed allowing you to stop and change.'
	 act 'Go_Out':gt'gschool'
	 end
end
if randhumiliation=4:
'- Okay sheep, I`m busy today, so you will have to do without the traditional suction. Christina grinned and began to dress'
	 act 'Go_Out':gt'gschool'
end







--- gKristinaZv ---------------------------------

# arturRinok
gs'stat'
if arturKnow=0: 
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'Caucasian friendly smiled and handed you a tangerine.'
     act'take a tangerine':
     cls
     minut+=2
     gs'stat'
     '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
     'You took a tangerine from the hands of Caucasian, He smiled and said you "You`re so beautiful devushka. Wai. sponges persik. Come to eat barbecue, I`ll take this chacha!"'
         act'Turn_Down':
		 cls
		 minut+=2
		 if bag=0:$arturgift='handbag'
		 if bag>0:$arturgift='cosmetics'
		 gs'stat'
		 '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
		 'You started to refuse and backs away from loving Caucasian. He  "Wai, zachem offend? Nothing bad will not Tiebei, mom swear! Hochish, I `ll give tebe <<$arturgift>>"'
		 act'Get_Away':gt'Grinok'
		     act'interest':
			 cls
			 minut+=2
			 gs'stat'
			 '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
			 'You are interested in this property unfamiliar Caucasian. He is immediately zamtil and leaving the tray on the other Caucasians immediately came up to you and took you by the arm "Ne fear devochka, Uncle Arturik ne bites."'
			 act'Get_Away':gt'Grinok'
			 act'Go to Arthur':gt'arturHome'
			 end
		 end
     end
end
if arturKnow>0: 
     if arturday!day:
     '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
     'Arthur smiled kindly and handed you a tangerine. "Come to eat barbecue, chacha drink!"'
     act'Go to Arthur':gt'arturHome'
     end
     if arturday=day:
         if arturblowday!day:
         '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
         'Arthur smiled kindly and handed you a tangerine. "Wai, work to do, I`m_sorry. Unless by rapid."'
         act'Go to Arthur':gt'arturkiosk'
         end
         if arturblowday=day:
         '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
         'Arthur smiled amiably you. "Wai, work to do, I`m_sorry."'
         end
     end
end

act'Get_Away':gt'Grinok'


--- arturRinok ---------------------------------

# arturHome
arturKnow=1
minut+=15
gs'stat'
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'Arthur took you to the parking lot where his black Priora. You got into the car and drove Arthur somewhere you "I lyuchshy by Del skewers, ne what rubbish in cafe, real jam." After a while.'

act'Go to home':
cls
minut+=60
alko+=6
$boy='Arthur'
silavag = 1
dick=26
arturTimes+=1
gs'stat'
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'Arthur generously set the table, you ate and drank grape skewers brew chacha and quickly tipsy. Arthur turned on the music and came up to you "Come to me devochka."'
act'further':gt'arturSex'
     if condomtalkartur=0 and arturSex>0:
         act'Poros wear a condom':
         cls
         condomtalkartur=1
         gs'stat'
         '<center><img src="qwest/alter/artur/artur.jpg" ></center>'
         'You asked Arthur wear a condom, what Arthur protested "Wai, sex in a condom is like breathing through a mask. Nat!"'
         act'further':gt'arturSex'
         end
     end
end

--- arturHome ---------------------------------

# arturSex
horny+=10
if arturSex=0:arturSex=1&guy+=1
arturDay=day
gs'stat'
gs'arturdin'
'Arthur put his arm around you.'

act'Kneeling down':
cls
minut+=5
gs'stat'
'<center><img src="qwest/alter/artur/bj.jpg" ></center>'
'You sat down on his knees before Arthur and began stroking his long. Arthur impatiently stroking your head his sinewy hand.'
	 act'suck':
	 cls
	 minut+=5
	 artbj+=1
	 gs'stat'
	 '<center><img src="qwest/alter/artur/bj2.jpg" ></center>'
	 'You have opened my mouth and my lips wrapped around a hefty cock and began to suck.'
     	 act'further':
		 cls
		 $artbef='You suck dick and Arthur grabs you by the hair.'
		 dynamic $d_art_facefuck
		 end
	 end
	 
	 act'masturbate':
	 cls
	 bj+=1
	 $artbef='You began to masturbate member and Arthur immediately lost patience.'
	 dynamic $d_art_facefuck
	 end
end

act'enjoy':
cls
minut+=5
horny+=10
gs'stat'
'Arthur caresses you and undresses.'
tipsexart=rand(0,2)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
if tipsexart=2:dynamic $d_art_facefuck
end









--- arturSex ---------------------------------

# arturkiosk
gs'stat'
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'Together with Arthur you are logged into a container that is used as a warehouse. He immediately unbuttoned his pants "Come Svetik, After working mouth."'

act'Kneeling down':
cls
arturTimes+=1
minut+=15
bj+=1
gs'stat'
'<center><img src="qwest/alter/artur/cocksucer.jpg" ></center>'
'You sit down in front of Arthur and his lips wrapped around his fat cock. You began to suck his dick sucking it up to the throat.'
	 act'suck':
	 cls
	 minut+=15
	 cumlip+=1
	 swallow+=1
	 money+=500
	 arturblowday=day
	 gs'stat'
	 '<center><img src="qwest/alter/artur/cocksuckercum.jpg" ></center>'
	 'Arthur began to cum in your mouth and you become immediately swallow sperm. After that Arthur grinned, bosses cock in his pants and said "Wai Svetka, You`re a real nipple. Here`s from Uncle Arturchik, Buy sebe konfetok." he handed to you 500 rubles.'
	 act'Get_Away':gt'Grinok'
	 end
end




--- arturkiosk ---------------------------------

# arturend
gs'stat'
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'Arthur stood with you and then .'

act'Brush up':
cls
minut+=15
artfucktimes=0
artfacefucktimes=0
pose=0
cumface=0

if artbj>0:artbj=0&bj+=1
if artsex>0:artsex=0&sex+=1
if artanal>0:artanal=0&anal+=1
gs'stat'
'<center><img src="qwest/alter/artur/artur.jpg" ></center>'
'You quickly wiped her face and Arthur made вЂ‹вЂ‹a gift to you.'
     if bag>0:
     arturgift=rand(0,2)
         if arturgift=0:
         kosmetitka+=20
         'Arthur gave you a portable set of cosmetics.'
         end
         if arturgift=1:
         kosmetica+=20
         'Arthur gave you a set of cosmetics.'
         end
         if arturgift=2:
         money+=1000
         'Arthur said "uh, I did not have time to look for a gift for you, a thousand, itself buy, what do you like."'
         end
     end
     if bag=0:
     bag=1
     'He gave you a handbag.'
     end
act'Get_Away':gt'gorodok'
end 
--- arturend ---------------------------------

# arturdin
$d_art_facefuck={
 minut+=5
 throat+=1
 artfacefucktimes+=1
 artbj+=1
 picrand=rand(0,5)
 gs'stat'
 '<center><img src="qwest/alter/artur/facefuck<<picrand>>.jpg" ></center>'
 '<<$artbef>> Arthur grabbed you by the hair and just planted your mouth to your huge dick.'
	 if throat<dick:
	 'You choke when the member to disperse flies into your throat dousing it with fire. You twists gag reflex.'
	 else
	 'Throat douse the fire when a member of Arthur with overclocking enters your throat and your nose rests on the curly pubic Arthur.'
	 end
if artfacefucktimes<4:
tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_artlick
if tipsexart=1:dynamic $d_artchik
end
if artfacefucktimes>=4:
tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
end
}
$d_artlick={
act'further':
cls
 minut+=5
 artbj+=1
 gs'stat'
 '<center><img src="qwest/alter/artur/lick.jpg" ></center>'
 'Arthur pulls his dick out of your mouth and starts to beat you on the lips, you draw out the tongue licking the head and huge dick batters you face in language and.'
	 act'further':
	 cls
	 $artbef=''
	 dynamic $d_art_facefuck
	 end
end 
}
$d_artchik={
act'further':
cls
minut+=5
artbj+=1
gs'stat'
'<center><img src="qwest/alter/artur/chik.jpg" ></center>'
'Arthur puts his dick between your cheek and teeth and easily palm strikes you on the cheek.'
	 act'further':
	 cls
	 $artbef=''
	 dynamic $d_art_facefuck
	 end 
end 
}
$d_art_bed={
act'further':
cls
minut+=5
gs'stat'
'<center><img src="qwest/alter/artur/bed.jpg" ></center>'
'Arthur puts you on the bed up booty.'
	 if artfucktimes<4:
	 artrand=rand(0,2)
	 if artrand=0:dynamic $d_art_sexdog
	 if artrand=1:dynamic $d_art_anal
	 if artrand=2:dynamic $d_art_fist
	 end
	 if artfucktimes>=4:
	 artrand=rand(0,2)
	 if artrand=0:dynamic $d_art_sexdog_cum
	 if artrand=1:dynamic $d_art_cum
	 if artrand=2:dynamic $d_art_anal_cum
	 end
end 
}
$d_art_bedmiss={
act'further':
cls
minut+=5
gs'stat'
'<center><img src="qwest/alter/artur/bedmiss.jpg" ></center>'
'Arthur puts you on the bed and pushes your legs.'
	 if artfucktimes<4:
	 dynamic $d_art_sexmiss
	 end
	 if artfucktimes>=4:
	 artrand=rand(0,1)
	 if artrand=0:dynamic $d_art_sexmiss_cum
	 if artrand=1:dynamic $d_art_cum
	 end
end 
}
$d_art_sexmiss={
act'further':
cls
minut+=5
pose=0
artfucktimes+=1
artsex+=1
gs'stat'
'<center><img src="qwest/alter/artur/sexmiss.jpg" ></center>'
'Arthur is taken between your legs and you feel his hard cock rests on you in the pussy.'
dynamic $sexstart4
tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
end 
}
$d_art_sexmiss_cum={
act'further':
cls
minut+=5
pose=0
artfucktimes+=1
artsex+=1
gs'stat'
'<center><img src="qwest/alter/artur/sexmiss.jpg" ></center>'
'Arthur is taken between your legs and you feel his hard cock rests on you in the pussy.'
dynamic $sexstart4
dynamic $sexcum
act'further':gt'arturend'
end 
}
$d_art_sexdog={
act'further':
cls
minut+=5
artfucktimes+=1
pose=1
artsex+=1
gs'stat'
'<center><img src="qwest/alter/artur/sexdog.jpg" ></center>'
'Arthur grabs you with its palms for the ass and you feel his hard cock rests on your pussy.'
dynamic $sexstart4
tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
end 
}
$d_art_sexdog_cum={
act'further':
cls
minut+=5
artfucktimes+=1
pose=1
artsex+=1
gs'stat'
'<center><img src="qwest/alter/artur/sexdog.jpg" ></center>'
'Arthur grabs you with its palms for the ass and you feel his hard cock rests on your pussy.'
dynamic $sexstart4
dynamic $sexcum
act'further':gt'arturend'
end 
}
$d_art_anal={
act'further':
cls
minut+=5
artfucktimes+=1
pose=1
artanal+=1
gs'stat'
'<center><img src="qwest/alter/artur/anal.jpg" ></center>'
'Arthur grabs you with its palms for the ass and you feel his hard cock rests in your anus.'
dynamic $analsex2
tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
end 
}
$d_art_anal_cum={
act'further':
cls
minut+=5
artfucktimes+=1
pose=1
artanal+=1
gs'stat'
'<center><img src="qwest/alter/artur/anal.jpg" ></center>'
'Arthur grabs you with its palms for the ass and you feel his hard cock rests in your anus.'
dynamic $analsex2

	 act'further':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/alter/artur/analcreampi.jpg" ></center>'
	 lubonus=0
	 cumanus+=1
	 'REPAIRED through time <<$boy>> groaned and you feel like your ass fills heat.'
	 act'further':gt'arturend'
	 end
end 
}
$d_art_cum={
act'further':
cls
minut+=5
cumface+=1
facial+=1
gs'stat'
'<center><img src="qwest/alter/artur/cum0.jpg" ></center>'
'Arthur suddenly almost knocks you out of bed and put on his knees. In your face hits the jet of sperm.'
	 act'further':
	 cls
	 minut+=1
	 gs'stat'
	 '<center><img src="qwest/alter/artur/cum1.jpg" ></center>'
	 'Then another jet of sperm gets in your face.'
	 	 act'further':
		 cls
		 minut+=1
		 cumlip+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artur/cum2.jpg" ></center>'
		 'Next jet of sperm gets you on the lips and in the mouth.'
		 	 act'further':
			 cls
			 minut+=1
			 gs'stat'
			 '<center><img src="qwest/alter/artur/cum3.jpg" ></center>'
			 'Arthur finally stops to finish covering almost all of your face with his hot sperm.'
			 act'further':gt'arturend'
			 end 
		 end 
	 end 
end 
}
$d_art_fist={
act'further':
cls
minut+=5
if anus<30:anus+=3
if artfucktimes>0:artfucktimes-=1
gs'stat'
     if anus>=20:
	 '<center><img src="qwest/alter/artur/fist2.jpg" ></center>'
	 'Arthur puts you two fingers in the ass, then adds another finger, and another .'
     end
     if anus<20:
	 '<center><img src="qwest/alter/artur/fist.jpg" ></center>'
	 'Arthur puts you in the ass finger and begins to pick it vigorously.'
     end


tipsexart=rand(0,1)
if tipsexart=0:dynamic $d_art_bed
if tipsexart=1:dynamic $d_art_bedmiss
end 

}




--- arturdin ---------------------------------

# soba
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><img src="zoo/13584132341215798.jpg" ></center>'
clr
if zoo >= 3 and zoodogonceday!day:zoodogonceday=day&gt 'soba', 'hardcoredog'
if horny >= 50 and vagina > 0 and husband=0:act 'play with <<$namesob>>ohm':gt'soba','gamedog'
if husband>0 and week<6 and hour<17 and hour>7:act 'play with <<$namesob>>ohm':gt'soba','gamedog'
     act 'even_walk <<$namesob>>':
     cls
     '<center><img src="zoo/2bc0b6557a7c86b52e8f02a4bdb587dc_1878859489_129474279555_800px.jpg" ></center>'
     '<center><b>You grazed his <<$namesob>>and</center></b>'
     set minut = minut + 30
     gs'stat'
     act 'The house':gt'korr'
         if horny>=70 and zoo>0 and streetdogday!day:act 'coitus':dynamic $polactdog
     end	 
act 'Get_Away':gt'korr'
act 'Take on euthanasia':
	 set sobaka=0
	 set zoo=0
	 set minut+=60
	 gt'korr'
	 end
end

if $ARGS[0]='gamedog':
cla
*clr
horny+=30
gs'stat'
'<center><img src="zoo/1.jpg" ></center>'
'I called <<$namesob>>and to his bed, that would play with him. I kissed him,played with legs, stroked his neck and abdomen. suddenly, I began to itch pussy. I can not understand why, but I strongly wanted sex. Suddenly I saw a member of his stallion. I came up with the idea of вЂ‹вЂ‹a completely obezbashennym. I wanted to play with this member.'

act 'Get_Away':dom+=5&gt'korr'


     act 'Post a lick':
     cla
     *clr
     '<center><img src="zoo/2.jpg" ></center>'
     'I leaned back against the wall, and spread her legs. I handed her dog helped find my hole. My stallion understood everything,and began to lick my pussy with his tongue. It was strange and pleasant. His tongue licked all at once. It was very unusual. I decided to change position.'
         act 'change position':
         cla
         set horny = horny + 10
         set minut = minut + 10
         set os = os + 10
         *clr
         '<center><img src="zoo/4.jpg" ></center>'
         'He licks my pussy with his tongue with a rough surface. For completeness of sensations, I Spreading thin fingers her pussy lips.'
         act 'another action':gt'soba','gamedog'
         end
     end
      
	 act 'Take by mouth':         
	 set os = os + 10
	 set horny = horny + 10
	 set minut = minut + 10
	 cla
	 *clr
	 '<center><img src="zoo/3.jpg" ></center>'
	 'I chased a dog on the floor, and turned her ass to her. With one hand I took the eggs. Then I closed my eyes, and tongue touched the member. From licking an unusual member of the dog, I realized that it`s not so scary. I suck the dick to swelling and the appearance of venous grid. When it reaches the desired size, I substituted him her pussy.'
	 act 'another action':gt'soba','gamedog'
	 end
         
	 if os > 20:
	     act 'Insert dick in pussy':
    	 set horny = horny + 30
    	 set minut = minut + 10
         cla
    	 *clr
    	 gs'stat'
    	 '<center><img src="zoo/5.jpg" ></center>'
    	 'Having reached the desired size, horny body goes to my wet cunt. Vaginal sex with a pet is a very unusual way. Dog fuck me powerful spurts. He is deeply placed in my crotch. And here is the animal brought me to orgasm. I shuddered, and holding their feet and a member, that was inside of me, I cried. <<$namesob>>, from such poked him and he began to tremble. It became clear what will happen next. I should very quickly substitute person,that would not miss the chance to get this white liquid of my pet.'
    	     act 'substitute person':
    	     set orgasm = orgasm + 1
    	     set horny = 0
    	     set minut = minut + 5
    	     set zoo = zoo + 1
    	     set swallow = swallow + 1    	     
	         set cumface = cumface + 1
	         set vagina = vagina + 1
	         set throat = throat + 1
        	 set os = 0
             cla
	         *clr
	         gs'stat'
	         '<center><img src="zoo/9.jpg" ></center>'
	         'My sex with a dog completes a powerful ejaculation, which fired my face and izmazyvaet, a few drops even fell into her mouth. Taste natural juices - sperm, I really liked.'	         
             if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
	         act 'Let_Go <<$namesob>> and stand':gt'korr'
	         end        	 
         end	 
	 end
end

if $args[0]='hardcoredog':
cla
*clr
'<center><img src="zoo/zoof.jpg" ></center>'
'You have come to <<$namesob>>  in doggie was a playful mood,
he began to wag his tail and nose poke you between the legs.'
     act 'kiss <<$namesob>>':
     cla
     *clr
     '<center><img src="zoo/zoof1.jpg" ></center>'
     'You framed her face to face <<$namesob>>, and poked reed ' 
     act 'go with <<$namesob>> the bedroom':
         set horny = horny + 10
         set minut = minut + 5
         cla
         *clr
         gs'stat'
         'You lie down on the bed clothes off and substitute my vagina <<$namesob>>,he begins to lick her carefully lick your pussy' 
         '<center><img src="zoo/spa.jpg" ></center>'
         ' you get wet '
         act 'Masturbate dick dog ':
             set horny = horny + 10
             set minut = minut + 5
             cla
             *clr
             gs'stat'
             'You nadrachivat member <<$namesob>>' 
             '<center><img src="zoo/sog.jpg" ></center>'
             ' Since you are starting to pour juice '
             act 'Take in mouth <<$namesob>>':
                 set horny = horny + 10
                 set minut = minut + 5
                 cla
                 *clr
                 gs'stat'
                 'You lick dick <<$namesob>> choking on saliva' 
                 '<center><img src="zoo/spa1.jpg" ></center>'
                 ' You start to go crazy with excitement '
                 act 'Get cancer before <<$namesob>>':
                     set horny = horny + 10
                     set minut = minut + 5
                     cla
                     *clr
                     gs'stat'
                     'Kobelek jumps on you and starts to rub a member of your vagina' 
                     '<center><img src="zoo/spa2.jpg" ></center>'
                     ' You that does not soobrozhaete of sexual desire '
                     act 'lie on your back and help him enter <<$namesob>>':
                         set minut = minut + 5
                         cla
                         *clr
                         gs'stat'
                         'You lozhit on his back legs and pushes the stick in his dick in his expiring hole' 
                         '<center><img src="zoo/spa3.jpg" ></center>'
                         act 'hug legs <<$namesob>> ':
                             set minut = minut + 5
                             cla
                             *clr
                             gs'stat'
                             'You cuddle up to her feet and dog fuck with him' 
                             '<center><img src="zoo/spa4.jpg" ></center>'
                             ' You covered orgasm but you can not stop here ' 
                             act 'overwhelm <<$namesob>> on his back and jump on his cock ':
                                 set minut = minut + 5
                                 cla
                                 *clr
                                 gs'stat'
                                 'You jump on the penis male' 
                                 '<center><img src="zoo/spa5.jpg" ></center>'
                                  ' You just mad sex ' 
                                 act 'Stand in front of crustaceans Doggie ':
                                     set minut = minut + 5
                                     cla
                                     *clr
                                     gs'stat'
                                     'You jumped from the penis and bent cancer' 
                                     '<center><img src="zoo/spa6.jpg" ></center>'
                                     ' <<$namesob>> naprgnul you and threw you a member of your razdolbany pussy.
                                      You pochustvovli that he is ready to be discharged' 
                                     act 'Merge with the dog in orgasm ':
                                         set zoo = zoo + 1
                                         set swallow = swallow + 1
                                         set vagina = vagina + 1
                                         set throat = throat + 1
                                         set orgasm = orgasm + 1
                                         set minut = minut + 5
                                         set horny = 0
                                         set cumpussy = cumpussy + 1
                                         cla
                                         *clr
                                         gs'stat'
                                         'You clung to the dog and he razryazhaetsya in you' 
                                         '<center><img src="zoo/spa7.jpg " ></center>'
                                         'member <<$namesob>> grappled with vashoy vagina in a strong castle '
                                         act 'Get out of bed':gt'korr'                                         
                                         if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
                                         end
                                     end
                                 end 
                             end
                         end
                     end
                 end
             end
         end
     act 'go with <<$namesob>> in the room':
         cla
         *clr
         '<center><img src="zoo/zoof3.jpg" ></center>'
         'You went into the room and undressed sat on the sofa , <<$namesob>> very excited and started to jump on you' 
         act 'try to push <<$namesob>> ':
             cla
             *clr
             'You tried to throw off the dog, but <<$namesob>> no longer process any attention to your efforts' 
             '<center><img src="zoo/zoof 4.jpg" ></center>'
             act 'continue to resist <<$namesob>> ':
                 cla
                 *clr
                 'Your fighting <<$namesob>> failed,' 
                 '<center><img src="zoo/zoof5.jpg" ></center>'
                 '<<$namesob>> piled on the couch and you went into your pussy ' 
                 '<center><img src="zoo/zoof6.jpg" ></center>'
                 act 'Hug legs and fuck <<$namesob>> ':
                     cla
                     *clr
                     gs'stat'
                     'You give passion with his doggie' 
                     '<center><img src="zoo/zoof7.jpg" ></center>'
                     'You covered orgasm'
                     act 'Take charge of sperm in her mouth ':gt 'soba', 'cumshot1'
                     act 'Let cums in pussy ':gt 'soba', 'cumshot2'
                     end
                 end
             end
         act 'substitute the ass <<$namesob>>':
             cla
             *clr
             gs'stat'
             'You povarachivaetsya back and gets cancer '  
             '<center><img src="zoo/zoof10.jpg" ></center>'
             ' take dick <<$namesob>>and sent to a hole <<$namesob>> finished off with all the force you '
             '<center><img src="zoo/zoof9.jpg" ></center>' 
             act 'Take charge of sperm in her mouth ':gt 'soba', 'cumshot1'
             act 'Let cums in pussy ':gt 'soba', 'cumshot2'
             end
         end
     act 'Get_Away':gt'korr'
     end
     
     act 'even_walk <<$namesob>>': 
	 cla
	 *clr
	 '<center><img src="zoo/2bc0b6557a7c86b52e8f02a4bdb587dc_1878859489_129474279555_800px.jpg" ></center>'
	 '<center><b>You grazed his <<$namesob>>and see that he was very excited</center></b>'
	 set minut = minut + 10
	 act 'The house':gt'korr'
	 set minut = minut + 10
	 gs'stat'
	     act 'Go to a secluded place':
         cla
         *clr
         'do you give <<$namesob>> in the woods behind the house, pick up his cock and start nadrachivat ' 
         '<center><img src="zoo/yl1.jpg" ></center>'
             act 'Take off underwear and bend':
             set horny = horny + 10
             set minut = minut + 5
             cla
             *clr
             gs'stat'
             'You bend down before <<$namesob>>, he begins to lick your pussy' 
             '<center><img src="zoo/yl2.jpg" ></center>'
             'You chustvuete that starts to get wet between the legs'
                 act 'Suck dick in <<$namesob>> ':
                 set horny = horny + 10
                 set minut = minut + 10
                 cla
                 *clr
                 gs'stat'
                 'You greedily sucks dick <<$namesob>>' 
                 '<center><img src="zoo/yl3.jpg" ></center>'
                 ' It is still very exciting and you want sex'
                 act 'Shove dick in pussy ':gt 'soba', 'zoof14'
                 act 'Get cancer before <<$namesob>>':gt 'soba', 'zoof15'
                 end
             end
         end
	 end
end

if $args[0]='cumshot2':
cla
*clr
     set zoo = zoo + 1
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set cumlip = cumlip + 1
     set orgasm = orgasm + 1 
     set horny = 0
     set minut = minut + 25
     cla
     *clr
     gs'stat'
     '<<$namesob>> discharged into your vagina, you stick together with the dog in passion ' 
     '<center><img src="zoo/zoof8.jpg" ></center>'
     'You covered orgasm'
     if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
     act 'Get_Away':gt'korr'
end

if $args[0]='cumshot1':
cla
*clr
     set zoo = zoo + 1
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set cumpussy = cumpussy + 1
     set orgasm = orgasm + 1
     set horny = 0 
     set minut = minut +25
     cla
     *clr
     gs'stat'
     '<<$namesob>> discharged into the mouth ' 
      '<center><img src="zoo/zoof11.jpg" ></center>'
      'You covered orgasm'      
     if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
     act 'Get_Away':gt'korr'
end

if $args[0]='zoof14':
cla
*clr
     set orgasm = orgasm + 1
     set horny = 0
     set minut = minut + 5
     set zoo = zoo + 1
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set cumpussy = cumpussy + 1
     cla
     *clr
     gs'stat'
     'You take a member <<$namesob>> and starts fucking them yourself' 
     '<center><img src="zoo/yl4.jpg" ></center>'
     'Dog discharged in you, you sodragaetes in orgasm'
     if REXQW = 0:act 'look around ':gt 'soba', 'zoof16'
     act 'go home':gt'korr'
end

if $args[0]='zoof15':
cla
*clr
     set orgasm = orgasm + 1
     set horny = 0
     set minut = minut + 5
     set zoo = zoo + 1
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set cumpussy = cumpussy + 1
     cla
     *clr
     gs'stat'
     'You turn your back on <<$namesob>> he jumps on you and starts fucking' 
     '<center><img src="zoo/yl5.jpg" ></center>'
     'Dog discharged in you, you sodragaetes in orgasm'
     if REXQW =0:act 'look around ':gt 'soba', 'zoof16'
     act 'go home':gt'korr'
end

if $args[0]='zoof16':
     cla
     *clr
     'You notice in the bushes Woman with his pants down' 
     '<center><img src="zoo/yl6.jpg" ></center>'
     act 'talk ':
         set minut = minut + 5
         cla
         *clr
         gs'stat'         
         'You walk up to it, thinking how to start a conversation ' 
         '"I see you`re keen Doggie?" - she suddenly starts talking
         YES_I_AM! - joyfully exclaimed you
         "Come to me talk about your passion" - said the girl, threw you a business card and left'
         '<center><img src="zoo/yl6.jpg" ></center>'
         set REXQW = 1
         act 'go home':gt'korr'
     end
end
 
if $args[0]='zoof27':
cla
*clr 
set minut = minut + 5
     cla
     *clr
     gs'stat'
     'you called <<$namesob>>' 
     '<center><img src="zoo/kuh2.jpg " ></center>'
     'He ran to the kitchen wagging tail '
     act 'Undress and give the dog lick':
         set zoo = zoo + 1
         set minut = minut + 10
         set swallow = swallow + 1
         set throat = throat + 1
         set orgasm = orgasm + 1
         cla
         *clr
         gs'stat'
         'You shoot yourself with things and substitute pussy Kobelkov, He thoroughly licks her' 
         '<center><img src="zoo/kuh1.jpg" ></center>'
         ' You covered orgasm '         
         if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
         act 'Get dressed and get out':gt'korr'  
     end
     act 'Undress and stand in front of dog cancer':
     set zoo = zoo + 1
     set minut = minut + 10
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set orgasm = orgasm + 1
         cla
         *clr
         gs'stat'
         'You get up cancer dog jumps on you and starts fucking' 
         '<center><img src="zoo/kuh.jpg" ></center>'
         ' You covered orgasm '
         if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
         act 'Get dressed and get out':gt'korr'  
     end
end

 
if $args[0]='zoof30':
cla
*clr 
set minut = minut + 5
     cla
     *clr
     gs'stat'
     'You undressed and called <<$namesob>>' 
     '<center><img src="zoo/kuh2.jpg " ></center>'
     'He ran into the hall delighted as a child '
     act 'Lie down on the couch and spread her legs':
         set horny = horny + 10
         set minut = minut + 10
         cla
         *clr
         gs'stat'
         'Kobelek ran up to you and started to lick between your legs' 
         '<center><img src="zoo/zal1.jpg" ></center>'
         ' You swept excitation '
         act 'Lie on the floor and spread her legs':
             set horny = horny + 10
             set minut = minut + 10
             cla
             *clr
             gs'stat'
             'Dog looming over you and started rubbing member' 
             '<center><img src="zoo/zal4.jpg" ></center>'
             ' Between his legs was wet '
             act 'Get cancer and give the dog':gt 'soba', 'doganalstile'
             act 'Embrace your feet and take a dick':gt 'soba', 'dogpussystile'
         end
     end
     act 'Die of cancer and substitute pussy':
         set horny = horny + 10
         set minut = minut + 10
         cla
         *clr
         gs'stat'
         'Kobelek ran up to you and started to lick between your legs' 
         '<center><img src="zoo/zal.jpg" ></center>'
         ' You swept excitation '
         act 'Lie on the floor and spread her legs':
             set horny = horny + 10
             set minut = minut + 10
             cla
             *clr
             gs'stat'
             'Dog looming over you and started rubbing member' 
             '<center><img src="zoo/zal4.jpg" ></center>'
             ' Between his legs was wet '
             act 'Get cancer and give the dog':gt 'soba', 'doganalstile'
             act 'Embrace your feet and take a dick':gt 'soba', 'dogpussystile'
         end
     end
end

if $args[0]='doganalstile':
cla
*clr
     set zoo = zoo + 1
     set minut = minut + 10
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set orgasm = orgasm + 1
     cla
     *clr
     gs'stat'
     'You get up cancer dog jumps on you and starts fucking' 
     '<center><img src="zoo/zal3.jpg" ></center>'
     ' You covered orgasm '
     if REXQW = 1:act 'call Sonia':gt 'soba', 'dzoof1'
     act 'Get dressed and get out':gt'korr'  
end

if $args[0]='dogpussystile':
cla
*clr
     set zoo = zoo + 1
     set minut = minut + 10
     set swallow = swallow + 1
     set vagina = vagina + 1
     set throat = throat + 1
     set orgasm = orgasm + 1
     cla
     *clr
     gs'stat'
     'You obhatyvaete his feet, Member easily finds its way into your pussy ' 
     '<center><img src="zoo/zal2.jpg" ></center>'
     ' You covered orgasm '
     if REXQW = 1:act 'call Sonia':xgt 'soba', 'dzoof1'
     act 'Get dressed and get out':gt'korr'  
end 

if $args[0]='dzoof1':
cla
*clr
'Your boy is no longer, what a pity. But you know, what to do'
     act 'call Sonia':
         cla
         'Hi - you say
         what Light? A! the girl who loves dogs - asks Sonia
         Yes_I_Am, exactly - without hesitation pronounced out of your mouth
         Waiting for you in the park, in the forest. through 20 minutes - Sonya said before hanging up '
         act 'Run in the park':
             cla
             *clr
             gs'stat'
             '<center><img src="zoo/dzoof1.jpg" ></center>'
             'You have been in the forest when he saw sitting on the bench Sonia, between her legs wielding male language' 
             act 'Say hello to Sonia':
                 cla
                 *clr
                 gs'stat'
                 '<center><img src="zoo/dzoof1.jpg" ></center>'
                 'hello - Say you
                 hello -said Sonya: "Poznakomsya, This is my friend, his name is Rex" '  
                 act 'Get introduced to Rex':
                     set horny = horny + 10
                     set minut = minut + 3
                     cla
                     *clr
                     gs'stat'
                     '<center><img src="zoo/dzoof2.jpg" ></center>'
                     'You have come to the dog and started playing with it
                     -Show him your pussy-said Sonya'  
                     act 'show pussy':
                         set horny = horny + 10
                         set minut = minut + 3
                         cla
                         *clr
                         gs'stat'
                          '<center><img src="zoo/dzoof2.jpg" ></center>'
                          ' You have come to the dog
                           -Undress and play with them, he loves naked -Sonia smiled'  
                         act 'Play with Rex':
                             set horny = horny + 10
                             set minut = minut + 3
                             cla
                             *clr
                             gs'stat'
                             '<center><img src="zoo/dzoof4.jpg" ></center>'
                             ' You undressed and started playing with the dog.
                             Your pussy moistened and head rushed erotic thoughts
                             Have you noticed that the dog was excited too
                               -I see you provoke him, and now refresh - said Sonya
                               - how? - asked you
                               - Are you, petite?! lips -said Sonya '  
                             act 'reassure Rex':
                                 set minut = minut + 5
                                 set dzoo = dzoo + 1  
                                 set lip = lip + 1
                                 cla
                                 *clr
                                 gs'stat'
                                  '<center><img src="zoo/dzoof3.jpg" ></center>'
                                  'You stood up to his knees and began to suck Rex, he quickly discharged into your mouth.
                                  Sonia smiled and said: "Oh, seduced my boy, Come to me will be punished"  '  
                                 act 'Go to Sonia':
                                     cla
                                     *clr
                                     set minut = minut + 10
                                     gs'stat'
                                     '<center><img src="zoo/dzoof16.jpg" ></center>'
                                     'You came to the apartment of Sonia, she turned to you and said playfully
                                     -What are you willing to punishment? ' 
                                     act 'Hmahogany me':
                                         cla
                                         *clr
                                         set minut = minut + 5
                                         gs'stat'
                                          '<center><img src="zoo/dzoof6.jpg" ></center>'
                                          'Now it`s my turn to have fun, if you know what I mean - said Sonya' 
                                         act 'work tab':
                                             set minut = minut + 5
                                             set horny = horny + 10
                                             cla
                                             *clr
                                             gs'stat'
                                             '<center><img src="zoo/dzoof7.jpg" ></center>'
                                             'You sat down between the legs of Sony, and began to lick her, she started to get wet.
                                             To you and Rex ran jealous pushed you from Sony.
                                             What are you offended boy?- Sonia said and started to play with Rex' 
                                             act 'View Sonya Rex':
                                                 set minut = minut + 5
                                                 set horny = horny + 10
                                                 cla
                                                 *clr
                                                 gs'stat'
                                                 '<center><img src="zoo/dzoof8.jpg" ></center>'
                                                 'You looked like Sonia flirts with Rex, head climbed bad thoughts you started excited.
                                                 Calm and caressed his - said Sonya.' 
                                                 act 'caress Rex':
                                                     set minut = minut + 5
                                                     set horny = horny + 10
                                                     cla
                                                     *clr
                                                     gs'stat'
                                                      '<center><img src="zoo/dzoof9.jpg" ></center>'
                                                      'You began to stroke and caress Rex,suddenly noticed that he was excited.' 
                                                     act 'Pick up a member of the Rex':
                                                         set minut = minut + 3
                                                         set horny = horny + 10
                                                         cla
                                                         *clr
                                                         gs'stat'
                                                          '<center><img src="zoo/dzoof17.jpg" ></center>'
                                                          'You picked up a member of the dog and began to caress him.
                                                           Seeing this Sonia took off her panties and sat on the sofa spread legs' 
                                                         act 'watch':
                                                             set minut = minut + 3
                                                             set horny = horny + 10
                                                             cla
                                                             *clr
                                                             gs'stat'
                                                              '<center><img src="zoo/dzoof10.jpg" ></center>'
                                                              'Rex ran up to Sonya and began to lick her breasts.' 
                                                             act 'fondle himself':
                                                                 set minut = minut + 2
                                                                 set horny = horny + 10
                                                                 cla
                                                                 *clr
                                                                 gs'stat'
                                                                  '<center><img src="zoo/dzoof11.jpg" ></center>'
                                                                  'You took off her panties and began stroking her pussy.
                                                                   Rex noticed wagging tail 
                                                                   Sonya said with a smirk: "Well let`s see who wins", and got cancer' 
                                                                 act 'watch':
                                                                     set minut = minut + 3
                                                                     set horny = horny + 10
                                                                     cla
                                                                     *clr
                                                                     gs'stat'
                                                                     '<center><img src="zoo/dzoof13.jpg" ></center>'
                                                                     ' Rex ran from you jumped at Sonya and planted his cock in her.'
                                                                     ' You also got cancer near Sony inachali swing invitingly ass
                                                                     You want his slut?-said Sonya'
                                                                     act 'Yes':
                                                                         set minut = minut + 3
                                                                         set horny = horny + 10
                                                                         cla
                                                                         *clr
                                                                         gs'stat'
                                                                         '<center><img src="zoo/Dzoof14.jpg" ></center>'
                                                                         ' Sonia took Rex and put it on you, his cock entered you smartly. 
                                                                         Lick me! - said Sonya'
                                                                         act 'Lick Sonia':
                                                                             set tzoo = tzoo + 1
                                                                             set zoo = zoo + 1
                                                                             set minut = minut + 20
                                                                             set swallow = swallow + 1
                                                                             set vagina = vagina + 1
                                                                             set throat = throat + 1
                                                                             set orgasm = orgasm + 1
                                                                             set horny = 0
                                                                             cla
                                                                             *clr
                                                                             gs'stat'
                                                                             '<center><img src="zoo/dzoof15.jpg" ></center>'
                                                                             'You greedily licked vagina Sony and behind you pecked Rex.
                                                                             Rex finished in you, and then Sonya embraced orgasm
                                                                             Then she shoved you out of the apartment throwing dogonku few bills'
                                                                             act 'Get_Away':gt 'park','start'
                                                                         end
                                                                     end
                                                                 end
                                                             end
                                                         end
                                                     end
                                                 end 
                                             end 
                                         end
                                     end
                                 end
                             end
                         end
                     end
                     act 'Send Sonia':gt'park','start'
                     end
                 end
             act 'change_your_mind':gt'park','start'
         end
     end
end
--- soba ---------------------------------

# krol
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><img src="zoo/1791_640.jpg" ></center>'
'<center><<$namekrol>> resting.</center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get_Away':gt'korr'
act 'Grant on skewers for meat':
	 set krolik=0
	 set minut+=60
	 set money+=200
	 gt'korr'
	 end
end
--- krol ---------------------------------

# popu
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><img src="zoo/1a640f07cc5c.jpg" ></center>'
'<center><<$namepopu>> sits in his cage.</center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get_Away':gt'korr'
act 'To release the window':
	 set popugai=0
	 set minut+=10
	 gt'korr'
	 end
end
--- popu ---------------------------------

# qwlocdog
cls
minut+=3
gs'stat'
'You pick up the phone and a female voice tells you. "Hello world, Margarita is. Today met in a cafe?"'

	 act 'oh, I have a lot to do, Today I can not get.':
	 cla
	 qwdogiventday=day
	 '(Do_You) - oh, I have a lot to do, I just can not segdnya.'
	 '(Margaret) - Fair_Enough. Then I`ll call in a week.'
	 act 'hang Up.':gt 'korr'
	 end
	 
	 act 'I do not mind.':
	 cla
	 QWdogReiq=3
	 qwdogiventday=day
	 '(Do_You) - I do not mind.'
	 '(Margaret) - That`S_Great. Then wait in a cafe.'
	 act 'hang Up.':gt 'korr'
	 end








--- qwlocdog ---------------------------------

# RimmaSexQW
cls
minut+=15
rimmaday=day
gs'stat'
'You have come to Rimma that you smiled affably. And she said, I am now finishing, can go to you?'

act 'Sorry, but I still have things to do':gt'butik','start'

if money>=250:
	 act 'Go with Rimma to your home':
	 cls
	 minut+=30
	 money-=250
	 gs'stat'
     'Rima left work and you caught a taxi. The machine quickly dovezla you home and you went to the apartment with Rimma.'
         act 'sex':dynamic $rimmasexdi
	 end
end

$rimmasexdi={
cls
minut+=30
lesbian+=1
RimmaSex+=1
if RimmaSex>21:RimmaSex=21&RimmaEndEvent=1&RimmaRandEvent=RAND(2,21)
orgasm = orgasm + 1
horny = 0
gs'stat'
if RimmaSex=23:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     gs'stat'
     '<center><img src="zoo/rimma23.jpg" ></center>'
     ''
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=22:
'<center><img src="zoo/rimmaBJ.jpg" ></center>'
'Rima pulled the strap of her handbag and collar with chain leash employee. You put a collar and chain handed Rimma already dressed Strap. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     gs'stat'
     '<center><img src="zoo/rimma22.jpg" ></center>'
     ''
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=21 or RimmaEndEvent=1 and RimmaRandEvent=21:
'<center><img src="zoo/rimma21.jpg" ></center>'
'Rima has ordered you to squat and stood over you. Your face was between her legs, suddenly hit you in the face urine stream. Rima without warning just sank and peed on you. You shock sat motionless until the jet of warm urine running down your face. After that Rima has ordered you to lick her. You began to lick and finished at the same time with Rimma.'
end
if RimmaSex=20 or RimmaEndEvent=1 and RimmaRandEvent=20:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     anus+=1
     gs'stat'
     '<center><img src="zoo/rimma20.jpg" ></center>'
     'Rimma you bent and her strapon entered your ass, she began to fuck you, you from that embraced such an orgasm, you mess. Rima laughed at you.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=19 or RimmaEndEvent=1 and RimmaRandEvent=19:
'<center><img src="zoo/rimmaBJ.jpg" ></center>'
'Rima pulled the strap of her handbag and collar with chain leash employee. You put a collar and chain handed Rimma already dressed Strap. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     anus+=1
     vagina+=1
     gs'stat'
     '<center><img src="zoo/rimma19.jpg" ></center>'
     'Rima put you cancer and began to peck in the pussy, then took out a strap-on and you put him in the ass, You groaned held by the throat collar. Finally you have finished.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=18 or RimmaEndEvent=1 and RimmaRandEvent=18:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     anus+=1
     gs'stat'
     '<center><img src="zoo/rimma18.jpg" ></center>'
     'Rima put you cancer and you feel like you strap rested in the anus, You moan and try to relax. Strap entered you and Rima you start to fuck in the ass. She grabbed you by the hair and lifted her hand your face while continuing to batter you. Finally you have finished.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=17 or RimmaEndEvent=1 and RimmaRandEvent=17:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     vagina+=1
     gs'stat'
     '<center><img src="zoo/rimma17.jpg" ></center>'
     'Rima put you cancer and drove you strapon pussy began furiously fuck you and clap you hands in the ass, until you are not finished.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=16 or RimmaEndEvent=1 and RimmaRandEvent=16:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     vagina+=1
     gs'stat'
     '<center><img src="zoo/rimma16.jpg" ></center>'
     'Rima put you on your back and spread your legs, She had driven strap you in the pussy and began to furiously fuck you, until you are covered orgasm.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=15 or RimmaEndEvent=1 and RimmaRandEvent=15:
'<center><img src="zoo/rimma14.jpg" ></center>'
'Rima pulled the strap of her handbag and dressed him. She put you on your knees and slipped the strap you in the mouth, you began to suck lubricating saliva.'
     act 'further':
     cls
     cls
     minut+=30
     vagina+=1
     gs'stat'
     '<center><img src="zoo/rimma15.jpg" ></center>'
     'Rimma not put you over and has driven you from your saliva wet pussy strapon, she began to violently fuck you and soon you covered orgasm.'
     act 'to carry out its':gt'korr'
     end
exit
end
if RimmaSex=14 or RimmaEndEvent=1 and RimmaRandEvent=14:
anus+=8
'<center><img src="zoo/rimma13.jpg" ></center>'
'Rima put you cancer and grease- lubricated anus you become once you enter both hands, gradually she managed it and she started to fuck your ass hands until you have not finished.'
end
if RimmaSex=13 or RimmaEndEvent=1 and RimmaRandEvent=13:
anus+=8
'<center><img src="zoo/rimma12.jpg" ></center>'
'Rima put you on your back and lifting your ass thoroughly greased your anus. Her hand came easily to you and Rima followed became poking you in the ass his second hand. Soon the two hands were with you in the ass and started to fuck Rimma your ass. Soon you left off.'
end
if RimmaSex=12 or RimmaEndEvent=1 and RimmaRandEvent=12:
anus+=6
vagina+=5
'<center><img src="zoo/rimma11.jpg" ></center>'
'Rima put you back on the bed and began to thrust one hand you in the ass, and the other hand in the vagina. Soon both hands inside of you and Rima began to fuck you hands, you could not stand such pressure and finished.'
end
if RimmaSex=11 or RimmaEndEvent=1 and RimmaRandEvent=11:
anus+=6
'<center><img src="zoo/rimma10.jpg" ></center>'
'Rima put you cancer and began to thrust his hand to you in the ass, Soon her hand was entirely in your ass and she began actively to fuck your ass its river, you could not last very long and roughly finished.'
end
if RimmaSex=10 or RimmaEndEvent=1 and RimmaRandEvent=10:
anus+=6
'<center><img src="zoo/rimma9.jpg" ></center>'
'Rima put you cancer and began to fuck your ass fingers sometimes spitting on the hole. Soon she was able to shove into your ass the whole hand and you finished.'
end
if RimmaSex=9 or RimmaEndEvent=1 and RimmaRandEvent=9:
anus+=5
'<center><img src="zoo/rimma8.jpg" ></center>'
'Expanding convenient for you, Rima began to fuck your ass fingers, soon from her skillful actions you covered orgasm.'
end
if RimmaSex=8 or RimmaEndEvent=1 and RimmaRandEvent=8:
anus+=3
'<center><img src="zoo/rimma7.jpg" ></center>'
'Rima put you on his back and began to caress your clitoris tongue simultaneously massaging your anus hand. Soon you covered orgasm.'
end
if RimmaSex=7 or RimmaEndEvent=1 and RimmaRandEvent=7:
vagina+=5
'<center><img src="zoo/rimma6.jpg" ></center>'
'Rima put you on his back and began to introduce your fingers into the vagina until her whole hand was not inside you. After that. You started to moan in orgasm and Rimma passionately grabbed you by the throat.'
end
if RimmaSex=6 or RimmaEndEvent=1 and RimmaRandEvent=6:
vagina+=5
'<center><img src="zoo/rimma5.jpg" ></center>'
'Rima put you on his back and began to lick your clit. You felt her fingers penetrate into your pussy and begin to fuck you. Rima gradually introduce new fingers and now she began to fuck your pussy with his fist, you broke and finished.'
end
if RimmaSex=5 or RimmaEndEvent=1 and RimmaRandEvent=5:
vagina+=2
'<center><img src="zoo/rimma4.jpg" ></center>'
'Rima put you on his back and began to lick your clit. You felt her fingers penetrate into your pussy and begin to fuck you. Soon you covered orgasm.'
end
if RimmaSex=4 or RimmaEndEvent=1 and RimmaRandEvent=4:
'<center><img src="zoo/rimma3.jpg" ></center>'
'Rima put you on the back and sat on top of substituting his sweaty pussy. You started to lick her and caress her arms, Rimma soon strongly pressed against your face his crotch finished, You also covered orgasm.'
end
if RimmaSex=3 or RimmaEndEvent=1 and RimmaRandEvent=3:
'<center><img src="zoo/rimma2.jpg" ></center>'
'Rima sat on the couch legs spread, You dropped to her knees and began to lick her pussy with his tongue, while not forgetting to caress her pussy fingers. Rima began to moan with bliss and taking your hair stronger pressed to her pussy, until the beginning of the fight in an orgasm, at this time you also embraced orgasm.'
end
if RimmaSex=2 or RimmaEndEvent=1 and RimmaRandEvent=2:
'<center><img src="zoo/rimma.jpg" ></center>'
'Rimma fell on you from above and offered her pussy, starting passionately lick your. You his tongue began to caress pussy Rima and soon enveloped you heavenly bliss ended with orgasm.'
end
act 'to carry out its':gt'korr'
}
--- RimmaSexQW ---------------------------------

# bed
if $ARGS[0]='start':
cla
set shour = 24 - hour
clr
gs'stat'
set houserabrand=RAND(0,100)
set housevorrand=RAND(0,200)
if hour>22 and houserabrand<2 and houserab=1 and houserabday ! day and son < 10 and tanhouse1=1:gt'bed','rab'
if hour>22 and housevorrand=0 and housrA=1 and husband=0:gt'bed','vor'
if nude = 0:'<center><img src="pics/bed.jpg" ></center>'
if nude = 1:'<center><img src="pics/son.jpg" ></center>'
'You `re lying on the bed. Service on the wound <<timer>> hours, <<timerM>> minutes.'
if mop ! 1:'<B><font color=red>You need to wash off makeup before going to bed.</font></B>'
		 !if daystart<10:''
		 !if daystart>=10 and daystart<30:''
		 !if daystart>=30:''
     if son > 10:
     'Sleep for some reason do not want to.'
		 act 'try to sleep':gt'bed2','dosip'
     end
     
     act 'Free Service':gt'budilnik','start'
     
     if son < 10:
		 act 'Undress and go to bed':gt'bed2'
     end
     
     
if dildo > 0 and horny >= 50:
	 act 'masturbate':
		 cla
		 *clr
		 set minut+=30
		 set mastr+=1
		 set manna+=15
		 set willpower+=15
		 set vagina+=1
		 if husband>0 and housrA=1 and husbandrink!10:
			 if week>5 or week<6 and hour>16:
				 cla
				 *clr
				 '<center><img src="img/hasb/m21.jpg" ></center>'
				 'You sit down and enter his dildo pussy'
				 if hour>22 or hour<7:'<<$husName>> looking at you, obviously a little dumbfounded.'
				 if hour>=7 and hour<=22:'Once you get a taste of how the room included <<$husName>>'
				 if harakHusb = 0:
					 '"What are you doing dear?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "And often you do that" he asks.
					 "Owned since, often, less in the ass, want to see?" asked you'
					 if izvratH=0:
						 set husband-=1
						 '"I `d rather wait outside the door until you finish" he said. You continue to satisfy itself rapidly and soon finished.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'bed','start'
						 end
					 if izvratH=1:
						 '"Well" he hesitated.
						 "So you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m22.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Can I join?" a little embarrassed he asks.'
							 act'solve':
								 cla
								 *clr
								 set analorgasm+=1
								 set orgasm+=1
								 set horny=0
								 '<center><img src="img/hasb/m23.jpg" ></center>'
								 '<<$husName>> gets dick and starts masturbating, this is not what you expected and at first you even felt a little sorry that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at, as you drive the dildo his popkui be covered and you enjoy, you screamed and fell to the table, orgasm, Dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you removed the dildo from ass and began to lick his, Despite her husband `s eyes, from such a spectacle it once discharged on the floor. You reached out to him sticking out his lips, a second later he was passionately kissing you.'
								 act 'End_Up':gt'bed','start'
								 end
							 end
						 end
					 end
				 if harakHusb = 1:
					 '"That`s number and I mean you do not have enough?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.
					 "Well then" he says.
					 "And as I have in the ass to do the show?" asked you'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"No, do not, and yet this is enough" he said. You continue to satisfy itself rapidly and soon finished in front of husband. <<$husName>> stood up and began to applaud "bravo, as an encore once more?" he said laughing.
						 "For such a wonderful audience anything, but only after intermission" you laughed. <<$husName>> helped you to get off the table.'
						 set horny=0
						 set orgasm+=1
						 act 'End_Up':gt'bed','start'
						 end
					 if izvratH=1:
						 set husband+=1
						 '"And how is it, Demonstrate necessarily" he said.
						 "Whatever you want" Say you'
						 act'show':
							 cla
							 *clr
							 '<center><img src="img/hasb/m22.jpg" ></center>'
							 'You pull the dildo out of pussy and winking her husband, insert a dildo in her anus. <<$husName>> closely watching how the dildo disappears in your ass and then reappears. You see his pants swell.
							 "Dear you that-Anything else you want?" smiling you ask.
							 "Do not just want but do" he said, unbuttoning his pants and substitute member to your face.'
							 act'Take by mouth':
								 cla
								 *clr
								 '<center><img src="img/hasb/m24.jpg" ></center>'
								 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "Well."'
								 act 'substitute the ass':
									 set picrand=89
									 gt'sex','anal'
									 end
								 end
							 end
						 end
					 end
				 if harakHusb = 2:
					 '"That the hole was combed?" he asks.
					 "I`m sorry dear, but I really need to, while you were busy" you reply, without stopping to masturbate.'
					 if izvratH=0:
						 set husband+=1
						 set husbizvradd+=1
						 '"Well then opens her mouth" he said pulling member and roughly pushing it in your mouth, he held your hair and fucked in the mouth, saying that-you would not stop masturbating. Soon he was tired of your mouth "Now take out of this hole rubber trash, now I `ll fuck you"'
						 act 'spread her legs':
							 set picrand=89
							 gt'sex','vag'
							 end
						 end
					 if izvratH=1:
						 set husband+=1
						 set SUB+=1
						 '"Embed this crap yourself in the ass and mash, I soon his popolzuetsya, and while pine Quick" he said, pulling member. You will quickly rearrange dildo pussy of the anus and humbly open your mouth.'
						 act'Take by mouth':
							 cla
							 *clr
							 '<center><img src="img/hasb/m24.jpg" ></center>'
							 'You grabs him a little flaccid penis and starts sucking lips, continuing to drive the dildo his anus. When his cock finally got stronger, <<$husName>> stopped you "all, cup your point now I`m ass Flare."'
							 act 'substitute the ass':
								 set picrand=89
								 gt'sex','anal'
								 end
							 end
						 end
					 end
				 else
				 set horny=0
				 set orgasm+=1
				 '<center><img src="pics/mastr.gif" ></center>'
				 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
				 act 'breathe.':gt'bed','start'
				 end
			 else
			 set horny=0
			 set orgasm+=1
			 '<center><img src="pics/mastr.gif" ></center>'
			 'You dildo stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
			 act 'breathe.':gt'bed','start'
			 end
		 end
	 end
     
     act 'Get out of bed':gt'bed','fin'
     
	 act 'try to sleep':gt'bed2','dosip'
if zoo> 6 and housrA = 1 and dogday!day and houserabrand<4:gt'bed1', 'sog1'
end

if $ARGS[0]='fin':
cla
gt $locM, $metkaM
!SAVEGAME 'avtosave.sav'
     !'if housr = 1 and housrA = 1:
         if nude = 0:set $nude = 'In the corridor'
         if nude = 1:set $nude = 'get_dressed'
     set housrA = 0
     gt'bedr'
     end
     if houseob = 1:
     set houseob = 0
     gt'obroom','start'
     end
     if tanhouse1=1:
     set tanhouse1=0
     gt'spalnya'
     end'
end

if $ARGS[0]='rab':
cla
*clr
set minut+=120
set houserabday=day
'<center><img src="img/th/r0.jpg" ></center>'
'Once you go to bed as your room comes hostess, "That bitch was going to sleep?" she says with a threshold.
"Yes_I_Am" you reply.
"Yes_I_Am, who?" she continues.
"Yes_I_Am, Mrs." answer you and sit on the bed, she was drunk and had difficulty standing on his feet, and in the hands of a bottle of wine, from which it often takes a sip.
"So it is best to, but today you have to punish" She lifts up her skirt and it pops out of the strap. "suck" she commands.'
act'Take by mouth':
	 cla
	 *clr
	 set SUB+=2
	 set lesbian+=1
	 if analplugIN = 1:set analplugIN = 0
	 if mop ! 1: set mop=0
	 '<center><img src="img/th/r1.jpg" ></center>'
	 'You have a strap in his mouth and began to suck it, the taste of rubber does not bring you pleasure and you did it without enthusiasm. The hostess , but perfectly vidila, that you have not tried, Then she began to beat podmahivat your movements, will drive it deeper into your mouth. You became suspended on and it did not like it.
	 "Oh damn stubborn, lie down on the bed quickly" With these words she shoved you in Bed.'
	 act'lie':
		 cla
		 *clr
		 '<center><img src="img/th/r2.jpg" ></center>'
		 'You lay on the bed, and she climbed on top and you kneeling over you, vskhvatila you behind your head and forcefully planted in the mouth strapon. You tried to pull away, but it was useless, her hands tightly holding your head. She went on to rape your mouth, you barely caught the moment that-to get air, and she thrust her it deeper and deeper, eventually he began to slip in your throat, and breathe it became absolutely nothing. When you have already started to lose consciousness she took it out of your throat and you handled on its side, hoarsely inhaled.
		 "And now proceed to punishment, Arise cancer" she said. "And what if it was" think you, but say the rumor did not.'
		 act'Stand in a pose':
			 cla
			 *clr
			 set anal+=1
			 '<center><img src="img/th/r3.jpg" ></center>'
			 'You get up on all fours on the bed. "But this is unnecessary" says the hostess and erases your saliva with strap, "You also need to punish, instead pooscherit. Spreading ass."
			 Realizing that you will you breed buttocks with his hands and try to relax your ass, but you have not tried, pain pierces your body, when she pushes with a force strap you in the ass and not having your ass get used to picking up the pace crazy, you let your buttocks and grabs a blanket with his hands and teeth. Tears poured from her eyes, you whine, but she still continues, Finally a little tired  "Well it hurts."
			 "Yes , very painful" through tears you say. 
			 "Well, I`m good today, little smazhem" she says.
			 "Thank you " you say, and it is again gaining momentum. First you will become a little easier, but then the wine is dry and started to dry your skin, you become so much hurt on, that you already screaming with laughter. "Why does no one will not hurt her" think you, because your cries were heard not only in the apartment, but also around the entrance, but no one came, nor Tanya, nor Nicholas. Finally she was tired, and removing the strap out of the room without saying anything. You collapsed on the bed and whined, your ass burned with fire , after spending an hour so you fall asleep.'
			 act 'sleep':gt'bed2'
			 end
		 end
	 end
if DOM>20:
	 act'Opt_Out':
		 cla
		 *clr
		 set DOM+=1
		 set lesbian+=1
		 set orgasm+=1
		 set houserab=2
		 '<center><img src="img/th/r4.jpg" ></center>'
		 '"No" you reply.
		 "Are you syavka vyaknula, suck alive yet not become worse" she started up.
		 "No" again the answer you.
		 "Well all, you yourself asked for it" she cried out and swung, about to hit you, you did not wait for punch and kick her in the stomach.
		 "bitch" she moaned, bent in half. And then you have suffered, you jumped out of bed and head for vskhvativ her knee hit in the face, She flew into the corner of the room, but you were not satisfied, remembering the taste of her dirty boots and sneakers , began to push him in her mouth, When you could not shove it in its entirety, you threw away and sneakers vskhvativ her hair yanked off the floor and threw it on the bed. She was lying on the bed covering her face with her вЂ‹вЂ‹hands, you jumped on the bed and deploying it to the top face sat on it. "lick bitch, lick" you yell, she tried to throw you, but nothing happened, you sat directly on her face, continuing to yell that-she licked, soon you will feel her tongue on her pussy, but you did not care, you fidgeting on her face increasing pace, soon you start to get excited. She did not resist sticking his tongue and tried to catch him your pussy, terevshuyusya wildly about her face. You start to like her submissive and you more excited thinking about it that you nasiluete, you even start to think about what-would put her strap-on and have fun with it, as you began to lay orgasm, you shrank his crotch in her face and finished. When you finally got off her, all of her face was covered with your secretions, she quietly got out of bed, straightened his clothes and left the room leaving you goodbye "creature". She obviously did not forget, Now you should be careful, who knows what she has in mind.'
		 act 'breathe.':gt'bed','start'
		 end
	 end
end

if $ARGS[0]='vor':
cla
*clr
set minut+=60
'<center><img src="img/spaln/g0.jpg" ></center>'
'You lay on the bed, when he heard what that sound in the hallway. Once you have decided to get up to look into the room ran two masked, you do not have time to open his mouth as your throat turned the knife. "Only piskni bitch, prirezhu." gasped one of them. They tied your hands and one went to search the apartment, and the second was to guard you. He sat and looked carefully you, then took a knife and began podit them on your body "what, frightfully?" he asked, having decided that it is better to remain silent you . "I see that scary" he grinned. Then he began to feel you, you tried to move away, but the knife was back in your throat "Sit still bitch, until the pen is not planted" he croaked . Finally came the second "All bring down here" he said.
"Wait let`s remember that the nipple, See what juicy" said sitting with you,'
if vnesh >= 30:
	 set guy+=2
	 set bj+=1
	 set sex+=1
	 set rape+=1
	 '"what, savory nipple, even when this happen to fuck" said first.'
	 act'plead':
		 cla
		 *clr
		 set minut+=30
		 '<center><img src="img/spaln/g1.jpg" ></center>'
		 'You have shrunk in horror, "Well nipple to kneel and to open your mouth, yes see, kosneshsya teeth, from ear to ear throat shall open" said second pulling member. You started to beg you not to touch, but received oplevuhu knelt. He poked a member of your lips, You reluctantly opened his mouth and then his cock was in your mouth, clenched hands your head , for the second , Then they tried to shove in your mouth , but decided, that their members will relate to each other, and that in their opinion, even if they are in the female `s mouth, blue smacks, back to the first option and continued to rape your mouth one by one. All event was to cause you disgust, and this was the first couple of minutes, but then you are surprised to find yourself, that their hands are now just lie on your head, and all the movements you make for yourself and have been actively working language.
		 "Let`s get up cancer" ordered one.'
		 act'up':
			 cla
			 *clr
			 set picrand=38
			 set orgasm+=1
			 '<center><img src="img/spaln/g2.jpg" ></center>'
			 'You stood up and bent over one of them got up from behind and put your dick pussy, went inside. "Yes it all flows, Hey this bitch like Grey" he said.
			 "jaws close" growled at him the second, inserting a member of your mouth. They continued to rape you on both sides, but you are overwhelmed by a desire to, you stood with cancer connectedness hands behind his back and two strangers had you. You diligently podmahivat one at a time sucking dick like a second chance in the eyes darkened, the body ran pleasant shiver and you huddled in orgasm. That he had pulled a member of your mouth "What`s wrong with this bitch, her epilepsy" he cried. "Yes_I_Am, no, I told her that like, this bitch cum." said second. They unleashed your hands "Let`s see what it can do with a swagger hands" said one.'
			 act'carry_On':xgt'sexdvoe','var'
			 end
		 end
	 end
if vnesh < 30:
	 '"I said bring down" repeated the first "And her mouth shut" he added. The second did not argue and took the clothes from your closet stuffed in your mouth. "If earlier than half an hour vylezesh, you do not live" said first and they have gone. You did not wait for half an hour and began trying to break free, well that the nodes they really did not know how to knit and soon you managed to untie'
	 act'assess the damage':gt'bed','vorend'
	 end
end

if $ARGS[0]='vorend':
cla
*clr
if remsitr = 0:'<center><img src="pic/sitr.jpg" ></center>'
if remsitr = 1:'<center><img src="pic/sitr2.jpg" ></center>'
'When it was over, you go to the apartment to see what was lost.'
if stolmoney>0:
	 'they took <<stolmoney>> rubles from the table.'
	 set stolmoney=0
	 end
if money>0:
	 'they took <<money>> rubles that you were with him.'
	 set money=0
	 end
if komp = 1:
	 'They took the computer.'
	 set komp=0
	 end
gs'stat'
act 'End_Up':gt'sitr'
end
--- bed ---------------------------------

# bed1
if $ARGS[0]='start':
cla
set shour = 24 - hour
clr
gs'stat'
if nude = 0:'<center><img src="pics/bed.jpg" ></center>'
if nude = 1:'<center><img src="pics/son.jpg" ></center>'
'You `re lying on the bed. Service on the wound <<timer>> hours, <<timerM>> minutes.'
if mop ! 1:'<B><font color=red>You need to wash off makeup before going to bed.</font></B>'
set shour = 24 - hour
set stimer = 24 - timer
! Service on 7 = 17, time 20 = 4

     act 'Free Service':gt'budilnik','start'
     if son > 10:
     'Sleep for some reason do not want to.'
     end
     
     if son < 10:
		 act 'Undress and go to bed':gt'bed2'
     end
     
     if dildo > 0 and horny >= 50 and sex > 0:
         act 'Masturbating using dildo':
         cla
         *clr
         set horny = 0
         set minut = minut + 30
         set mastr = mastr + 1
         set orgasm = orgasm + 1
		 set manna = manna + 15
		 set willpower = willpower + 15
         '<center><img src="pics/mastr.gif" ></center>'
         'You phallus stuck to the floor and planted a wet pussy on it, actively jumping on the artificial penis you will quickly feel the excitement and orgasm you covered.'
         act 'breathe.':gt'bed','start'
         end
     end
     
     act 'Get out of bed':
     cla
     gt'bed','fin'
     end
     
     act 'try to sleep':gt'bed2','dosip'
end

if $args[0]='sogn':
cla
*clr
set horny = horny + 10
set minut = minut + 10
dogday=day
cla
*clr
'You undressed and lay down on the bed <<$namesob>> blatantly jumped on the bed and began to lick your pussy ' 
 '<center><img src="zoo/2.jpg" ></center>'
act 'succumb to the desire':gt'bed1','sog2'
act 'throw the dog':gt'bed','start'
end

if $args[0]='sog1':
if zoo >= 6:
	 if husband>0 and husbandrink!10:
		 if hour>22 or hour<7:
			 cla
			 *clr
			 set minut+=30
			 '<center><img src="zoo/z1.jpg" ></center>'
			 'You undressed and lay down on the bed <<$namesob>> blatantly jumped on the bed and began to lick your pussy.'
			 if harakHusb = 0:
				 set zoo+=1
				 set horny=0
				 set orgasm+=1
				 '"What is he doing expensive, stop him" cries husband
				 "I can not, he try" you reply.'
				 set husband-=1
				 '<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away, what to do expensive?" he asks.
				 "Think of-some." you reply, already slightly moaning with pleasure. <<$husName>> begins to pace the room, periodically approached the dog, but hearing him growl departs. So_Long <<$husName>> dog around the room began to jump on you.
				 "dear God, that he was going to do?" yelped <<$husName>>, Seeing the dog attempts to jump on you.
				 "And what you do not clear, he wants to fuck me" answer You.
				 "Dear try again to free" pleaded husband.'
				 act'try':
					 cla
					 *clr
					 '<center><img src="zoo/z2.jpg" ></center>'
					 'You reluctantly start trying to push the dog and move, But it appears to him backwards <<$namesob>> bore down on you all the weight is on top and. You feel his cock rubbing against your thighs ischya hole.'
					 if izvratH=0:
						 '"dear God, I can not look at it" husband shouted and ran out the door slamming. Meanwhile. You moan and he podmahivat, Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. husband returned, and you and were cancer, and dog sperm flowed out of your pussy.
						 "I `ll take it right now on euthanasia" said <<$husName>>'
						 end
					 if izvratH=1:
						 '"Well get off it" shouts <<$husName>> PSA, but close to it is not appropriate. Meanwhile. You moan and he podmahivat, and your husband decided that your movement is an attempt to free cheered you "Yes Svetsik wiggle so more can happen to lose it". Soon you covered orgasm, and after a few seconds the dog had finished and you radosno ran into the corridor. The husband looked at you standing cancer, with hips peremazanymi sobacheС‘ sperm derived from your pussy.
						 "I `ll take it right now on euthanasia" said <<$husName>>'
						 end
					 act'allow':
						 set sobaka=0
						 set zoo=0
						 gt'bedr'
						 end
					 act'Do not allow':
						 cla
						 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
						 "good roads, how can you say."'
						 act 'End_Up':gt'bedr'
						 end
					 end
				 end
			 if harakHusb = 1:
				 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
				 "I can not, he try" you reply.'
				 if izvratH=0:
					 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
					 "I `ll take it right now on euthanasia" said <<$husName>>'
					 act'allow':
						 set sobaka=0
						 set zoo=0
						 gt'sitr'
						 end
					 act'Do not allow':
						 cla
						 '"No, dear it `s not my fault, his instincts, I `ll take it on the mating and he calms down" Say you.
						 "Fair_Enough, see itself, your dog."'
						 act 'End_Up':gt'bedr'
						 end
					 end
				 if izvratH=1:
					 set zoo+=1
					 set bj+=1
					 set swallow+=1
					 set cumlip+=1
					 '"If you can not or do not want to" asked <<$husName>> smiling and continues to sit back and watch as your dog licks.
					 "Already probably do not want to" you are responsible and defiantly Spreading legs wider. <<$husName>> looks like you moan, until the dog licks you and suddenly gets up and pulls member brings it to your mouth.'
					 act'Take by mouth':
						 cla
						 *clr
						 '<center><img src="zoo/z3.jpg" ></center>'
						 'You grab his cock sucking mouth and takes, Soon you begin to cover and you end sodragayas whole body, a second <<$husName>> cums in your mouth. You swallow sperm and continue to suck his dick fading. Get drunk dog began naprygivat you with nedvuhslyslennymi intentions.
						 "But it is already too" said <<$husName>> and tried ottoschit dog, but he growls and rocks, then he goes into the bath and what that brings old sheets, threw it on the dog picks up the ends and picks, improvezirovannom dog is in the bag.
						 "I `ll take it right now on euthanasia" said <<$husName>>'
						 act'allow':
							 set sobaka=0
							 set zoo=0
							 gt'sitr'
							 end
						 act'Do not allow':
							 cla
							 '"No, dear it `s not my fault, his instincts, besides from trying so hard" Say you.
							 "Well" ironically husband.'
							 act'masturbate dog':
								 cla
								 *clr
								 set husband-=1
								 '<center><img src="zoo/z6.jpg" ></center>'
								 'You take the dog dick in hand and begin to masturbate, after a few minutes you dog cums in his hand.'
								 act'End_Up':gt'bedr'
								 end
							 act'suck dog':
								 cla
								 *clr
								 set swallow+=1
								 set husband-=40
								 '<center><img src="zoo/z7.jpg" ></center>'
								 'You loshite dog on the floor and take his cock in her mouth, husband looks at you with disgust while you sucking dog, a couple of minutes dog diluted into your mouth and you swallow sperm.
								 "Well" husband says with obvious disgust.'
								 act'End_Up':gt'bedr'
								 end
							 act'End_Up':gt'bedr'
							 end
						 end
					 end
				 end
			 if harakHusb = 2:
				 '"Her dog you absolutely ohrenel, Go find yourself on the street bitch, What are you froze it otpihni" husband says.
				 "I can not, he try" you reply.'
				 if izvratH=0:
					 set manna-=15
					 set willpower-=15
					 '<<$husName>> trying ottoschit dog, but he growls and rocks, then he smashes the dog leg in the ribs and the squealing flies into a corner, dog did not have time to rise as the husband begins to kick even more, Seeing his condition you score in the corner and covering his head with hands close your eyes. A few minutes later the dog stops.
					 "What are you hiding there tidy here, and then krovischi from your skunk" said <<$husName>>. Opening his eyes you see a dead dog in a pool of blood.
					 "Well then froze, tidy you say, I do this on a dog I`ll take the trash." he takes the dog, wrap in a sheet and makes the trash. And you have some time to scour the blood from the floor.'
					 act'End_Up':
						 set sobaka=0
						 set zoo=0
						 gt'bedr'
						 end
					 end
				 if izvratH=1:
					 set zoo+=1
					 set bj+=1
					 set swallow+=1
					 set cumlip+=1
					 set SUB+=1
					 '"What do you mean I can not, that you like the way he licks you" shouts <<$husName>>.
					 "No, what do you, of course not" you start making excuses.
					 "And I look at you taschishsya slut, you`re all techesh, Or do you think I do not see, and once you like it so thank him" he says, "Well, vividly."'
					 act'Take by mouth':
						 cla
						 *clr
						 '<center><img src="zoo/z4.jpg" ></center>'
						 '<<$husName>> missing dog `s collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding their lust take by mouth and takes dick sucking dog, Husband watching you and encourages saying that the dog really liked your mouth. Soon he was tired of just watching and he dropped his pants says "Well Spreading Legs."'
						 act'allow':
							 cla
							 *clr
							 set suprdolg+=1
							 set sex+=1
							 set anal+=1
							 '<center><img src="zoo/z5.jpg" ></center>'
							 'You dutifully spreads her legs and her husband enters you in the pussy, he hews you while you suck at dog, but you do not dostovlyaet fun. Soon my husband finishes and stands "A dog that has not yet finished, what-then you`re not trying, Well cup your point."'
							 act 'substitute the ass':
								 cla
								 *clr
								 set analorgasm+=1
								 set orgasm+=1
								 set horny=0
								 '<center><img src="zoo/z8.jpg" ></center>'
								 'You go up to her knees and immediately dog jumps on you. without giving kneel. With one hand, and the second point it MEMBER his ass, fingering hole dog comes in and quickly taken to peck your anus. The husband looked at it a little and throwing "Go for otmoyus, by whores" out. Left with a dog for a single podmahivat you start it and soon oschuzaete tide excitation, seems in sex dog exceeds husband, his cock in your ass moving so deftly that after the excitement comes orgasm, and you fall on korachki no longer able to stand, dog makes a few movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
								 act'End_Up':gt'bedr'
								 end
							 end
						 end
					 end
				 end
			 else
			 gt'bed1', 'sogn'
			 end
		 end
	 if husband=0 or husbandrink=10:gt'bed1', 'sogn'
	 end
end

if $args[0]='sog2':
cla
*clr
set horny = horny + 10
set minut = minut + 10
cla
*clr
'You take a member <<$namesob>> and start it nadrachivat' 
 '<center><img src="zoo/sog.jpg" ></center>'
act 'Take by mouth':gt'bed1','sog3'
act 'spread her legs':gt'bed1','sog4'
end

if $args[0]='sog3':
cla
*clr
set horny = horny + 10
set minut = minut + 10
cla
*clr
'You eagerly swallow dick <<$namesob>> ' 
 '<center><img src="zoo/sog1.jpg" ></center>'
act 'spread her legs':gt'bed1','sog4'
end

if $args[0]='sog4':
cla
*clr
set minut = minut + 10
set orgasm = orgasm + 1
set horny = 0
set minut = minut + 5
set zoo = zoo + 1
set swallow = swallow + 1
set vagina = vagina + 1
set throat = throat + 1
 set cumpussy = cumpussy + 1
cla
*clr
'You push the legs and <<$namesob>> fuck you in your pussy ' 
 '<center><img src="zoo/sog2.jpg" ></center>'
 'Finally dog ends up in you'
act 'Hug a dog and go to sleep':gt'bed2','dosip'
end





if $ARGS[0]='fin':
cla
gt $locM, $metkaM
!SAVEGAME 'avtosave.sav'
     !'if housr = 1 and housrA = 1:
         if nude = 0:set $nude = 'In the corridor'
         if nude = 1:set $nude = 'get_dressed'
     set housrA = 0
     gt'bedr'
     end'

end

--- bed1 ---------------------------------

# bed2
if $ARGS[0]='dosip':
	dosip = 1
else
	dosip = 0
end

set nude=1
set odedosna=numdress
set numdress=0
'<center><img src="pics/son.jpg" ></center>'
if analplugIN = 1:set analplugIN = 0&'Before going to bed you remove a butt plug.'
if vibratorIN=1:set vibratorIN=0&'Before going to bed .'
if mop > 1:set mop = 0&set vidageday = vidageday - 1&'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
set health = health + 5
set hapri = 0
InSleep=1

set slep = RAND (0,10)
if StoryLine=0:slep =0
if slep = 0:set $slep = 'do not dream'
if slep = 1:set $slep = 'dreaming of what it is not clear images from the past'
if slep = 2:set $slep = 'dreaming moon looking at the world with his one bloody eye'
if slep = 3:set $slep = 'dream that you are a man again'
if slep = 4:set $slep = 'do not dream'
if slep = 5:set $slep = 'do not dream'
if slep = 6:set $slep = 'do not dream'
if slep = 7:set $slep = 'do not dream'
if slep = 8:set $slep = 'do not dream'
if slep = 9:set $slep = 'do not dream'
if slep = 10:set $slep = 'do not dream'
'You sleep and you <<$slep>>.'
:loopson

set minut = minut + 1
set stime = stime + 1
if stime = 60:set stime = 0&set son = son + 3
clr
gs'stat'
if hour = timer and minut = timerM:
'alarm goes off'
set manna = manna - 10
if daystart<10 and StoryLine=0:'My first thought was how you wake up "Damn. This is not a dream, I really now a woman."'
if daystart>=10 and daystart<30 and StoryLine=0:'You awake a little surprised stare at her female body.'
     act 'Get out of bed and get dressed (15 minutes)':
     cla
     set numdress=odedosna
     set InSleep=0
     set minut+=15
     set tanga = 1
     set nude=0
     gt'bed','fin'
     end
     
     act 'Get out of bed':
     cla
     InSleep=0
     gt'bed','fin'
     end
     
     
     act 'try to sleep':gt'bed2','dosip'
     
elseif son > 23 and dosip = 0:

set manna = manna - 10
'you slept'
if daystart<10 and StoryLine=0:'My first thought was how you wake up "Damn. This is not a dream, I really now a woman."'
if daystart>=10 and daystart<30 and StoryLine=0:'With a little surprised prosoni you stare at her female body.'
     act 'Get out of bed and get dressed (15 minutes)':
     cla
     set numdress=odedosna
     set InSleep=0
     set minut+=15
     set tanga = 1
     set nude=0
     gt'bed','fin'
     end
     
     act 'Get out of bed':
     cla
     InSleep=0
     gt'bed','fin'
     end
     
     act 'try to sleep':gt'bed2','dosip'
     
elseif son > 47 and dosip = 1:

set manna = manna - 10
set dosip = 0
set son = son - 24
'you slept'

     act 'Get out of bed and get dressed (15 minutes)':
     cla
     set numdress=odedosna
     set InSleep=0
     set minut+=15
     set tanga = 1
     set nude=0
     gt'bed','fin'
     end
     
     act 'Get out of bed':
     cla
     InSleep=0
     gt'bed','fin'
     end
     
     
     act 'try to sleep':gt'bed2','dosip'
else
jump 'loopson'
end

--- bed2 ---------------------------------

# budilnik
if $ARGS[0]='start':
cla
clr
gs'stat'
'<center><img src="pic/bed2.jpg" ></center>'
*nl
*nl
if numbud = 4:'<center><B><<bud1>><<bud2>> : <<bud3>><<bud4>></B></center>'
if numbud = 3:'<center><B><<bud1>><<bud2>> : <<bud3>></B><<bud4>></center>'
if numbud = 2:'<center><B><<bud1>><<bud2>></B> : <<bud3>><<bud4>></center>'
if numbud = 1:'<center><B><<bud1>></B><<bud2>> : <<bud3>><<bud4>></center>'
if numbud = 0:'<center><<bud1>><<bud2>> : <<bud3>><<bud4>></center>'
*nl
'<center><B><a href="exec:GT ''budilnik'',''1''">1</a>   <a href="exec:GT ''budilnik'',''2''">2</a>   <a href="exec:GT ''budilnik'',''3''">3</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''4''">4</a>   <a href="exec:GT ''budilnik'',''5''">5</a>   <a href="exec:GT ''budilnik'',''6''">6</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''7''">7</a>   <a href="exec:GT ''budilnik'',''8''">8</a>   <a href="exec:GT ''budilnik'',''9''">9</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''0''">0</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''reset''">reset</a>    <a href="exec:GT ''budilnik'',''time''">Set time</a></B></center>'
     act 'put Service':
     cla
     set bud1 = 0
     set bud2 = 0
     set bud3 = 0
     set bud4 = 0
     set numbud = 0
     gt'budilnik','fin'
     end
end

if $ARGS[0]='time':
cla
if bud1 > 0:
set timer = bud1*10
set timer = timer + bud2
end
if bud2 > 0 and bud1 = 0:
set timer = bud2
end
if bud3 > 0:
set timerM = bud3*10
set timerM = timerM + bud4
end
if bud4 > 0 and bud3 = 0:
set timerM = bud4
end
if timer > 23:set timer = 0
if timerM > 60:set timerM = 0

'Service on the wound <<timer>> hours, <<timerM>> minutes.'

     act 'Service put in place':
     cla
     gt'budilnik','fin'
     end
end


if $ARGS[0]='1':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 1&set numbud = 4
     if numbud = 2:set bud3 = 1&set numbud = 3
     if numbud = 1:set bud2 = 1&set numbud = 2
     if numbud = 0:set bud1 = 1&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='2':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 2&set numbud = 4
     if numbud = 2:set bud3 = 2&set numbud = 3
     if numbud = 1:set bud2 = 2&set numbud = 2
     if numbud = 0:set bud1 = 2&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='3':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 3&set numbud = 4
     if numbud = 2:set bud3 = 3&set numbud = 3
     if numbud = 1:set bud2 = 3&set numbud = 2
     if numbud = 0:set bud1 = 3&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='4':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 4&set numbud = 4
     if numbud = 2:set bud3 = 4&set numbud = 3
     if numbud = 1:set bud2 = 4&set numbud = 2
     if numbud = 0:set bud1 = 4&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='5':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 5&set numbud = 4
     if numbud = 2:set bud3 = 5&set numbud = 3
     if numbud = 1:set bud2 = 5&set numbud = 2
     if numbud = 0:set bud1 = 5&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='6':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 6&set numbud = 4
     if numbud = 2:set bud3 = 6&set numbud = 3
     if numbud = 1:set bud2 = 6&set numbud = 2
     if numbud = 0:set bud1 = 6&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='7':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 7&set numbud = 4
     if numbud = 2:set bud3 = 7&set numbud = 3
     if numbud = 1:set bud2 = 7&set numbud = 2
     if numbud = 0:set bud1 = 7&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='8':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 8&set numbud = 4
     if numbud = 2:set bud3 = 8&set numbud = 3
     if numbud = 1:set bud2 = 8&set numbud = 2
     if numbud = 0:set bud1 = 8&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='9':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 9&set numbud = 4
     if numbud = 2:set bud3 = 9&set numbud = 3
     if numbud = 1:set bud2 = 9&set numbud = 2
     if numbud = 0:set bud1 = 9&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='0':
cla
     if numbud = 4:
     end
     if numbud = 3:set bud4 = 0&set numbud = 4
     if numbud = 2:set bud3 = 0&set numbud = 3
     if numbud = 1:set bud2 = 0&set numbud = 2
     if numbud = 0:set bud1 = 0&set numbud = 1
gt'budilnik','start'
end

if $ARGS[0]='reset':
cla
set bud1 = 0
set bud2 = 0
set bud3 = 0
set bud4 = 0
set numbud = 0
gt'budilnik','start'
end


if $ARGS[0]='fin':
cla
gt $locM, $metkaM
     !'if housr = 1 and housrA = 1:
     set housrA = 0
     gt'bedr'
     end'
end
--- budilnik ---------------------------------

# divan
if $ARGS[0]='start':
cla
$divmastr={
cls
 '<center><img src="pics/divmas.jpg" ></center>'
 set minut = minut + 15
 sweat+=1
 set horny = horny + RAND(1,5)
 if divanmastr=0:divanmastr=1&set mastr = mastr + 1
 gs'stat'
 'You lay on the sofa and started with one hand caressing her breasts, finger of the other hand you started rubbing and stroking a small bump between his legs that respond to the touch of pleasant languor covering your entire body.'
 if horny>=100:orgasm+=1&horny=0&'Suddenly nice cramp brought your body and you covered powerful orgasm, from which you moan.'
act 'Get up from the couch':divanmastr=0&gt'divan','fin'
if horny>=75:act 'Resume':dynamic $divmastr
}
clr
gs'stat'
'<center><img src="pics/divan.jpg" ></center>'
'You lay on the sofa.'
     act 'lie':
     cla
     waiting = input ("How many minutes to wait? (not any more 120 minutes)")
         if waiting <= 0 or waiting > 120:
         set minut = minut + 15
         end
         if waiting > 0 and waiting <= 120:
         set minut = minut + waiting
         end
     act 'Get up from the couch':gt'divan','fin'
     end
     
     if TV > 0:
         act 'watching TV':
         cla
         gt'TV','start'
         end
     end
     
     if book > 0:
         act 'read the book 30 minutes':
         cla
         *clr
         '<center><img src="pics/book.jpg" ></center>'
         set minut = minut + 30
         set horny = horny + 5
         'You are reading a book.'
         act 'put the book':gt'divan','start'
         end
     end
     
     if horny>=75:
         act 'masturbate 15 minutes':
         dynamic $divmastr
         end
     end
     
     act 'Get up from the couch':
     cla
     gt'divan','fin'
     end
end

if $ARGS[0]='fin':
cla
gt $locM, $metkaM
     !'if housr = 1 and housrA = 1:
     set housrA = 0
     gt'sitr'
     end'
end
--- divan ---------------------------------

# Komp
if $ARGS[0]='start':
cla
clr
gs'stat'
set elektro = elektro + 5
'<center><img src="pics/komp.jpg" ></center>'
'With the computer happily welcomes you to the starting place.'
     act 'play patience 15 min':gt'Komp','pasians'
     
     if GameCD>0:act 'Play Disopl':gt 'KGDstart'
     
     if GameCD2>0:act 'Play Sunset Dead':gt 'KGZstart'
     
     if GameCD3>0:act 'Play Albido':gt 'FSstart'
     !act 'Test Sunset Dead':gt 'KGZstart'
     if internet > 0:
     set internet = internetM/60
     'You have left <<internet>> Internet hours'
         act 'browser':gt'Komp','brows'
     end
     
     if karta >= 10:
     'You can pay online through your bank account. 1 hour internet costs 10 rubles. In the bank <<karta>> rubles.'
     
         act 'Pay online bank account':
         cla
         intinp = input ("How much money to put on the Internet? (h = 10 RUB.)")
             if intinp <= 0 or intinp*10 > karta:
             'Not correct operation.'
             end
             if intinp*10 <= karta:
             set inttime = intinp*10
             set karta = karta - inttime
             
             set internetM = internetM + intinp*60
             set internet = internetM/60
             'you paid <<inttime>> Internet hours, now you <<internet>> Internet hours. With your account removed <<intinp>> rubles.'
             end
         act 'Logout payment':gt'Komp','start'
         end
         
     end
     
     act 'Shut down the computer':
     cla
     gt'Komp','fin'
     end
end

if $ARGS[0]='brows':
cla
*clr
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in to a search engine.'
act 'Site apartment repair (15 min)':gt'Komp','remont'
if housr = 1 and husband=0:act 'Free Classifieds Ads':gt'Komp','sale'
act 'porn site (15 min)':gt'Komp','porno'
act 'Online Dating (15 min)':gt'Komp','znak'
if hour<20 and hour>7:act 'part.su':gt'Komp','rabota'
act 'Cable TV services (15 min)':gt'Komp','kabtv'
act 'online game':gt'KGstart'
if shantfoto>0:act'Search heroine in photo "In the ass".':gt'Komp','foto'
act 'Exit the browser':gt'Komp','start'
end

if $ARGS[0]='sale':
cla
*clr
set minut+=2
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in to the site free of ads.'
if obkvsdam=0 and housrA = 1:
	 act'Post your Apartments for rent':set obkvsdam=1&gt'Komp','sale'
	 end
if obkvsdam>0:
	 act'Check your responses to the announcement of the date of apartments':
		 cla
		 if obkvsdam=1:'No one responded to your ad'
		 if obkvsdam>1:
			 if obkvsdam=2:set predsumm=7000
			 if obkvsdam=2:set predsumm=8000
			 if obkvsdam=2:set predsumm=9000
			 if obkvsdam=2:set predsumm=10000
			 'Want to stay in your apartment for a month <<predsumm>> RUB.'
			 act 'Cgive':
				 set sdaday=day
				 set sdamonth=month+1
				 set housr=0
				 set money+=predsumm
				 gt'Komp','start'
				 end
			 end
		 act 'Go_Out':gt'Komp','start'
		 end
	 end
act 'Go_Out':gt'Komp','start'
end

if $ARGS[0]='remont':
cla
*clr
set minut = minut + 15
set internetM = internetM - 60
set elektro = elektro + 3
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in apartment repair.'
     if housr = 1:
         if rembedr = 0:
			 act 'refurbished bedrooms 50 sput':
			 if money >= 50000:
				cla
				set rembedr = 1
				set money = money - 50000
				'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
			 else
				cla
				'Unfortunately, You do not have enough money.'
			 end
			 act 'Go_Out':gt'Komp','remont'
			 end
		 end
		 
		 if remsitr = 0:
			 act 'repair Facilities 50 sput':
			 if money >= 50000:
				cla
				set remsitr = 1
				set money = money - 50000
				'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
			 else
				cla
				'Unfortunately, You do not have enough money.'
			 end
			 act 'Go_Out':gt'Komp','remont'
			 end
		 end
		 
		 if remkorr = 0:
			 act 'repair corridor 50 sput':
			 if money >= 50000:
				cla
				set remkorr = 1
				set money = money - 50000
				'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
			 else
				cla
				'Unfortunately, You do not have enough money.'
			 end
			 act 'Go_Out':gt'Komp','remont'
			 end
		 end
		 
		 if remvanr = 0:
			 act 'renovate the bathroom 50 sput':
			 if money >= 50000:
				cla
				set remvanr = 1
				set money = money - 50000
				'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
			 else
				cla
				'Unfortunately, You do not have enough money.'
			 end
			 act 'Go_Out':gt'Komp','remont'
			 end
		 end
		 
		 if remkuhr = 0:
			 act 'remodeled kitchen 50 sput':
			 if money >= 50000:
				cla
				set remkuhr = 1
				set money = money - 50000
				'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
			 else
				cla
				'Unfortunately, You do not have enough money.'
			 end
			 act 'Go_Out':gt'Komp','remont'
			 end
		 end
	 end

act 'Go_Out':gt'Komp','start'
end

if $ARGS[0]='porno':
cla
*clr
set minut = minut + 15
set internetM = internetM - 60
set manna = manna + 5
set elektro = elektro + 3
set willpower = willpower + RAND (5,10)
set manna = manna + RAND (10,50)
set horny = horny + 5
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in to the porn site.'
$pornomastr={
cls
 '<center><img src="pics/kompmas.jpg" ></center>'
 set minut = minut + 15
 sweat+=1
 set horny = horny + RAND(10,25)
 if divanmastr=0:divanmastr=1&set mastr = mastr + 1
 gs'stat'
 'You get comfortable in front of a computer and started with one hand to fondle her breasts, finger of the other hand you started rubbing and stroking a small bump between his legs that respond to the touch of pleasant languor covering your entire body.'
 if horny>=100:orgasm+=1&horny=0&'Suddenly nice cramp brought your body and you covered powerful orgasm, from which you moan.'
act 'End_Up':divanmastr=0&gt'Komp','porno'
if horny>=50:act 'Resume':dynamic $pornomastr
}

	 act 'Watch porn on':
	 cla
	 '<center><img src="pic/porno.jpg" ></center>'
	 gt'Komp','porno'
	 end
	 
	 if horny>=50:act 'masturbate 15 min':dynamic $pornomastr

act 'Go_Out':gt'Komp','start'
end

if $ARGS[0]='pasians':
cla
*clr
set minut = minut + 15
set manna = manna + 5
set elektro = elektro + 3
set willpower = willpower + RAND (5,10)
set manna = manna + RAND (10,50)
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You entertained for an hour unfolding of solitaire on the computer.'
act 'lay out more 15 minutes':gt'Komp','pasians'
act 'Close Solitaire':gt'Komp','start'
end

if $ARGS[0]='znak':
cla
*clr
set minut = minut + 15
set internetM = internetM - 60
set manna = manna + 5
set elektro = elektro + 3
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in to a dating site.'
'Selection of guys only possible in the absence of boyfriend.'

     if bfA <= 0:
         act 'Pick up a guy with a sweet-tempered':
         cla
         gs'boy'
         gs'boyfrend','start'
		 set stopboy = 0
         set harakBoyA = 0
         'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
         act 'Go_Out':gt'Komp','start'
         end
         
         act 'Pick up a guy with an ordinary character':
         cla
         gs'boy'
         gs'boyfrend','start'
		 set stopboy = 0
         set harakBoyA = 1
         'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
         act 'Go_Out':gt'Komp','start'
         end
         
         act 'Pick up a guy with a strong character':
         cla
         gs'boy'
         gs'boyfrend','start'
		 set stopboy = 0
         set harakBoyA = 2
         'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
         act 'Go_Out':gt'Komp','start'
         end
     end


act 'Go_Out':gt'Komp','start'
end

if $ARGS[0]='kabtv':
cla
*clr
set minut = minut + 15
set internetM = internetM - 60
set elektro = elektro + 3
clr
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged in to the website provider of cable TV.'
     if kabel = 1:
		'You have already connected the cable TV (license fee 300 rubles a month removed 25-th of)'
		act 'Unsubscribe from cable TV':
		cla
		'You have disconnected the cable channels, paid for the current month'
		kabel = 1
		money = money - 300
		gt'Komp','kabtv'
		end
	 end
     if kabel = 0 and TV = 1:
		'You do not have a cable TV'
		act 'Connect the cable TV':
		cla
		'Unfortunately for watching cable television requires more modern TV'
		gt'Komp','kabtv'
		end
	 end
     if kabel = 0 and TV >= 2:
		'You do not have a cable TV'
		act 'Connect the cable TV (300 rubles per month)':
		cla
		'You have connected the cable TV services'
		kabel = 1
		gt'Komp','kabtv'
		end
	 end
act 'Go_Out':gt'Komp','start'
end

if $ARGS[0]='foto':
cla
*clr
set internetM = internetM - 60
set elektro = elektro + 3
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
'You are logged into a social network "In the ass".'
     if shantfoto>0:
	     act'Looking_For':
		 cla
		 set minut+=60
		 set fotsearchrand=rand(0,10)
		     if fotsearchrand<=7:
			 'You did not find anyone, can, better luck later.'
			 act'End_Up':gt'Komp','foto'
			 end
			 
		     if fotsearchrand>7:
			 set shantfoto-=1
			 set gerofotorand=rand(0,100)
			 'You `ve found a photo shoot heroine'
			     if gerofotorand>30:
				 'Judging by the photos on her page.'
				 act'End_Up':gt'Komp','foto'
				 end
			     if gerofotorand>=5 and gerofotorand<=30:
				 set shantsr+=1
				 'Judging by the photos on her page. You send her photos and asked to be transferred 5000 your account.'
				 act'End_Up':gt'Komp','foto'
				 end
			     if gerofotorand<5:
				 set shantbog+=1
				 'Judging by the photos on her page. You send her photos and asked to be transferred 30000 your account.'
				 act'End_Up':gt'Komp','foto'
				 end
			 end
		 end
	 end
act 'browser':gt'Komp','brows'
end

if $ARGS[0]='rabota':
cla
*clr
set minut+=60
set internetM = internetM - 60
set komprabota=RAND(0,10)
gs'stat'
'<center><img src="pics/komp.jpg" ></center>'
if komprabota=0:
	 'You found an ad: "Wanted girl model looks to advertise underwear, Cash payment on filming zavershinii 2000 RUB."'
	 if vnesh<30:'But you this description does not fit'
	 if vnesh>=30:
		 act 'Go to the address':gt 'qjob','var1'
		 end
	 if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
	 act 'End_Up':gt'Komp','brows'
	 end
if komprabota=1:
	 'You found an ad: "Requires girl model looks to advertise underwear, Cash payment on filming zavershinii 2000 RUB."'
	 if vnesh<30:'But you this description does not fit'
	 if vnesh>=30:
		 act 'Go to the address':gt 'qjob','var2'
		 end
	 if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
	 act 'End_Up':gt'Komp','brows'
	 end
if komprabota>1 and komprabota<5:
	 'You found an ad: "Artist needs naturschitsa, cute appearance, cash payment 1000 RUB."'
	 if vnesh<15:'But you this description does not fit'
	 if vnesh>=15:
		 act 'Go to the address':gt 'qjob','var3'
		 end
	 if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
	 act 'End_Up':gt'Komp','brows'
	 end
if komprabota>4:
	 'You did not find anything suitable.'
	 if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
	 act 'End_Up':gt'Komp','brows'
	 end
end

if $ARGS[0]='fin':
gt $locM, $metkaM
end
--- Komp ---------------------------------

# mirror
if $ARGS[0]='start':
cla
clr
gs'stat'
if glass<=0:
	if shorthair=0:
	if hcol = 0 and curly <= 0:'<center><img src="picb/hcol.jpg" ></center>'
	if hcol = 1 and curly <= 0:'<center><img src="picb/hcol1.jpg" ></center>'
	if hcol = 2 and curly <= 0:'<center><img src="picb/hcol2.jpg" ></center>'
	if hcol = 3 and curly <= 0:'<center><img src="picb/hcol3.jpg" ></center>'
	if hcol = 0 and curly > 0:'<center><img src="picb/hcolcurly.jpg" ></center>'
	if hcol = 1 and curly > 0:'<center><img src="picb/hcolcurly1.jpg" ></center>'
	if hcol = 2 and curly > 0:'<center><img src="picb/hcolcurly2.jpg" ></center>'
	if hcol = 3 and curly > 0:'<center><img src="picb/hcolcurly3.jpg" ></center>'
	end
	if shorthair=1:
	if hcol = 0:'<center><img src="picb/SHhcol.jpg" ></center>'
	if hcol = 1:'<center><img src="picb/SHhcol1.jpg" ></center>'
	if hcol = 2:'<center><img src="picb/SHhcol2.jpg" ></center>'
	if hcol = 3:'<center><img src="picb/SHhcol3.jpg" ></center>'
	end
end
if glass>0:
     if glass=1:
     '<center><img src="picb/nerd.jpg" ></center>'
     end
     if glass=2:
     if hcol = 0:'<center><img src="picb/hcolglass.jpg" ></center>'
	 if hcol = 1:'<center><img src="picb/hcolglass1.jpg" ></center>'
	 if hcol = 2:'<center><img src="picb/hcolglass2.jpg" ></center>'
	 if hcol = 3:'<center><img src="picb/hcolglass3.jpg" ></center>'
     end
end
'<<$hair>> <<$mop>> <<$skin>> <<$vnesh>> <<$lip>> <<$glaza>>'

if daystart<10 and StoryLine=0:'In the mirror. You hardly get to accept the idea, it now is you.'
if daystart>=10 and daystart<30 and StoryLine=0:'From the mirror looks at you female face, to which you have become accustomed, but sometimes, no, no yes and flash idea, that the person is not your.'
if kosmetica > 0:'cosmetics <<kosmetica>>'
if kosmetica = 0:'You have no makeup.'
     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         gs'stat'
         'You comb your hair in the mirror'
         act 'View results':gt'mirror','start'
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             gs'stat'
             'You lightly summed eyes and a little lipstick.'
             act 'View results':gt'mirror','start'
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 gs'stat'
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'View results':gt'mirror','start'
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 gs'stat'
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'View results':gt'mirror','start'
				 end
             end
         end
     end
     
     if brow<10 and browper=0:
		 act 'tweeze eyebrows':
		 cla
		 set minut = minut + 10
		 brow=10
		 manna=manna/2
		 gs'stat'
		 'You plucked eyebrows unwanted hairs on giving them a nice circuit. The truth is quite painful.'
		 act 'View results':gt'mirror','start'
		 end
     end
     
     if lipbalm>0 and lipbalmstat<=0:
		 act 'Spread moisturizing lip balm':
		 cla
		 set minut = minut + 10
		 lipbalm-=1
         set lipkoef = lipkoef + RAND(5,15)
			 if lipkoef > 50:
			 set lipkoef = 0
			 set lip = lip + 1
			 end
		 lipbalmstat+=8
		 gs'stat'
		 'You smeared moisturizing lip balm.'
         act 'View results':gt'mirror','start'
         end
     end
     
     act 'Move away from the mirror':
     cla
     gt'mirror','fin'
     end
end

if $ARGS[0]='fin':
cla

gt $locM, $metkaM

     !'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom=0:
     set housrA = 0
     gt'korr'
     end
     
     if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom=0:
     set housrA = 0
     set housrMir = 0
     gt'bedr'
     end
     
     if housrA = 0 and fitMir = 1 and saunaYouRoom=0:
     set fitMir = 0
     gt'fit','razd'
     end
     
     if housrA = 0 and stripMir = 1 and saunaYouRoom=0:
     set stripMir = 0
     gt'stwork','start'
     end
     
     if housrA = 0 and palMir = 1 and saunaYouRoom=0:
     set palMir = 0
     gt'palatka','start'
     end
     
     if saunaYouRoom=1:
     saunaYouRoom=0
     gt $locBroom, $metkaBroom
     end
     
	 if housrA = 0 and obMir = 1:
	 set obMir = 0
	 gt'obroom','start'
	 end

	 if housrA = 0 and borMir = 1:
     set borMir = 0
     gt'bordel','start'
     end
     
     if housrA = 0 and tanhouse1=1:
	 set tanhouse1=0
	 gt'spalnya'
	 end'

end
--- mirror ---------------------------------

# stol
if $ARGS[0]='start':
cla
clr
gs'stat'
'Storage compartment.'
if prezik > 0:'Packaging condoms, therein <<prezik>> Pieces.'
if tabletki > 0:'birth control pills <<tabletki>> Pieces.'
if lubri > 0:'lubricant, enough for <<lubri>> time.'
if krem > 0:'Suntan cream <<krem>>'
if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
if dildo > 0:'faloimitator Realistika'
     act 'Close the drawer':
     cla
     gt'stol','fin'
     end
     
     if money>0:
         act 'Put money on the table':
         cla
         stolIN = input ("How much money you want to put on the table?")
		     if stolIN <= 0 or stolIN > money:
		     !'Not correct operation.'
		     else
		     set stolmoney = stolmoney + stolIN
		     set money = money - stolIN
		     end
         gt'stol','fin'
         end
     end
     
     if stolmoney>0:
         act 'Take the money from the table you <<stolmoney>> rubles in the table':
         cla
         stolOUT = input ("How much money do you want to take from the table?")
		     if stolOUT <= 0 or stolOUT > stolmoney:
		     !'Not correct operation.'
		     else
		     set stolmoney = stolmoney - stolOUT
		     set money = money + stolOUT
		     !'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
		     end
         gt'stol','fin'
         end
     end
end


if $ARGS[0]='fin':
cla
gt $locM, $metkaM
     !'if housr = 1 and housrA = 1:
     set housrA = 0
     gt'sitr'
     end'
end
--- stol ---------------------------------

# telefon
$objmobilaraz={
cla
set telotvet=RAND(0,10)
'"Yes_I_Am, listen" came a voice from the speaker.'
act 'Invite to movie':
	 cla
	 'DO_YOU: Come with me to the cinema?'
	 if telotvet>3:
	 '<<$telsob>>: Well come on after an hour in the cinema.'
	 act 'go':gt 'kinosvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
if month>5 and temper>20 and osadki<painweather:
act 'Invite a walk in the park':
	 cla
	 'DO_YOU: Come take a walk in the park.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on after an hour in the park.'
	 act 'go':gt 'parksvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
	 end
act 'Invite pool':
	 cla
	 'DO_YOU: Come pool.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on an hour in billiards.'
	 act 'go':gt 'billsvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
act 'Invite a cafe':
	 cla
	 'DO_YOU: Let`s go to the cafe.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on an hour in a cafe.'
	 act 'go':gt 'kafesvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
act 'Invite casino':
	 cla
	 'DO_YOU: Let`s go to the casino `s go.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on in an hour at the casino.'
	 act 'go':gt 'kazinosvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
act 'hang Up': gt'telefon','fin'
}

$objmobilarazboy={
cla
set telotvet=RAND(0,10)
'"Yes_I_Am, listen" came a voice from the speaker.'
act 'Invite to movie':
	 cla
	 'DO_YOU: Come with me to the cinema?'
	 if telotvet>3:
	 '<<$telsob>>: Well come on after an hour in the cinema.'
	 act 'go':gt 'svidboy','kinosvid'
	 end
	 if telotvet<=3:dynamic $telotkaz
	 end
if month>5 and temper>20 and osadki<painweather:
act 'Invite a walk in the park':
	 cla
	 'DO_YOU: Come take a walk in the park.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on after an hour in the park.'
	 act 'go':gt 'svidboy','parksvid'
	 end
	 if telotvet<=3:dynamic $telotkazboy
	 end
	 end
act 'Invite pool':
	 cla
	 'DO_YOU: Come pool.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on an hour in billiards.'
	 act 'go':gt 'svidboy','billsvid'
	 end
	 if telotvet<=3:dynamic $telotkazboy
	 end
act 'Invite a cafe':
	 cla
	 'DO_YOU: Let`s go to the cafe.'
	 if telotvet>3:
	 '<<$telsob>>: Well come on an hour in a cafe.'
	 act 'go':gt 'svidboy','kafesvid'
	 end
	 if telotvet<=3:dynamic $telotkazboy
	 end
act 'hang Up': gt'telefon','fin'
}

$telotkaz={
cla
set minut+=10
'<<$telsob>>: I`m sorry I`m busy, Come next time.'
act 'hang Up': gt'telefon','fin'
}

$telotkazboy={
cla
set minut+=10
'<<$boyA>>: Sorry , Come next time.'
act 'hang Up': gt'telefon','fin'
}

if $ARGS[0]='start':
cla
clr
gs'stat'

if vladimirday!day and vladimirQW=20 and hour = 16:gt 'qwloc2'
if vladimirday!day and vladimirQW=25 and hour = 16 and week=6:gt 'qwloc3'
if vladimirday!day and vladimirQW=35 and hour = 16 and week=6:GT 'qwloc4'
if QWdogreiqTimer=0 and QWdogReiq=2 and week=7 and qwdogiventday!day and hour>=12:GT 'qwlocdog'
	 if ring = 0:
	 if number = 6:'<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></B></center>'
	 if number = 5:'<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></B><<num1>></center>'
	 if number = 4:'<center><B><<num6>><<num5>>-<<num4>><<num3>></B>-<<num2>><<num1>></center>'
	 if number = 3:'<center><B><<num6>><<num5>>-<<num4>></B><<num3>>-<<num2>><<num1>></center>'
	 if number = 2:'<center><B><<num6>><<num5>></B>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	 if number = 1:'<center><B><<num6>></B><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	 if number = 0:'<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	 *nl
	 '<center><B><a href="exec:GT ''telefon'',''1''">1</a>   <a href="exec:GT ''telefon'',''2''">2</a>   <a href="exec:GT ''telefon'',''3''">3</a></B></center>'
	 '<center><B><a href="exec:GT ''telefon'',''4''">4</a>   <a href="exec:GT ''telefon'',''5''">5</a>   <a href="exec:GT ''telefon'',''6''">6</a></B></center>'
	 '<center><B><a href="exec:GT ''telefon'',''7''">7</a>   <a href="exec:GT ''telefon'',''8''">8</a>   <a href="exec:GT ''telefon'',''9''">9</a></B></center>'
	 '<center><B><a href="exec:GT ''telefon'',''reset''">reset</a>   <a href="exec:GT ''telefon'',''0''">0</a>   <a href="exec:GT ''telefon'',''challenge''">challenge</a></B></center>'
     
     !etogame
if hour>=8 and hour <=19:
     if telalla>0:
		 act 'call Allais':
			 $telsob='Alla'
			 dynamic $objmobilaraz
			 end
		 end
	 if telmasha>0:
		 act 'call Masha':
			 $telsob='Masha'
			 dynamic $objmobilaraz
			 end
		 end
	 if telkat>0:
		 act 'call Kate':
			 $telsob='katya'
			 dynamic $objmobilaraz
			 end
		 end
	 if bfA>0 and svidanieA=0:
		 act 'call <<$boyA>>':dynamic $objmobilarazboy
		 end
	 end
		if nastjaqw=1 and week=6 and vnesh>20:act 'call Nastya':gt 'nastja','pos4'
		if nastjaqw=2 and week!6 and zenit=0 and nastjaday!day:act 'Chat with Nastya':gt 'nastja', 'pos13' 
		if hour>=8 and hour <=20 and nastjaqw=2 and week=6 and vnesh>20 and nastjaday!day:act 'call Nastya':gt 'nastja','pos12'

		 act 'Hang up':
		 cla
		 gt'telefon','fin'
		 end
	 end
	 
	 if ring = 1:
	     if ringA = 1:
	     gt'telefon','boyA'
	     exit
	     end 
	     
	     if ringB = 1:
	     gt'telefon','boyB'
	     exit
	     end 
	     
	     if ringC = 1:
	     gt'telefon','boyC'
	     exit
	     end 
	 end
	
	
end

if $ARGS[0]='boyA':
cla
clr
gs'stat'
set ring = 0
set ringA = 0
set boydayA = day
set svetrand = RAND (0,5)
if svetrand = 0:set $sveta = 'lapulya'
if svetrand = 1:set $sveta = 'bunny'
if svetrand = 2:set $sveta = 'pussy'
if svetrand = 3:set $sveta = 'small_fish'
if svetrand = 4:set $sveta = 'Svetsik'
if svetrand = 5:set $sveta = 'Sveta'
'hello <<$sveta>> these_are <<$boyA>> how`s it going?'
act 'normally':
	 cla
	 '(Do_You) - normally, as you like?'
	 '(<<$boyA>>) - just great, Here are just miss you, can meet today?'
	 if pregtime<=dayA and pregtime>=7 and pregtalk=0:
		 act 'My_Dear, you`ll be a dad.':
			 cla
			 pregtalk=1
			 '(Do_You) - My_Dear, you`ll be a dad.'
			 if harakBoyA = 0:
				 if bfA>=90:
					 '(<<$boyA>>) - It`s wonderful! We will soon be adding.'
					 set love = 1
					 'You started talking about cohabitation. what <<$boyA>> told you, In principle it, do not mind, but first he wants to introduce you to my parents.'
					 'He warns you, Mom is very demanding and strict, <<$boyA>> speaks, that he is very fond of his mother and does not want to upset her. So you have to look chic, only dress boutique, groomed and curled hair, cosmetics in moderation.'
					 'At the next meetinge, as soon as you `re ready to fully <<$boyA>> will take you to your parents.'
					 act 'Hang up.':gt'telefon','fin'
					 act 'Meet tonight':
						 cla
						 set svidanieA = 1
						 '(Do_You) - You can meet in the evening.'
						 '(<<$boyA>>) - How much to come to your house?'
						 act 'call time.':
							 cla
							 meetday=daystart
							 meethour = input ("What are the hours in which the guy to come. At_The_Moment <<hour>> h, You can only assign a greater number of")
							if meethour<=hour or meethour>23:meethour=20
							 '(Do_You) - Come on in 20 hours.'
							 '(<<$boyA>>) - Fair_Enough, <<$sveta>> then to <<meethour>> hours.'
							 act 'Hang up.':gt'telefon','fin'
							 end
						 end
					 end
				 if bfA<90:
					 '(<<$boyA>>) - I`m not yet ready to become a dad. I`ll give you money for an abortion. Go and get rid of the child.'
					 money+=20000
					 act 'Hang up.':gt'telefon','fin'
					 end
				 end 
			 if harakBoyA = 1:
				 '(<<$boyA>>) - I`m not yet ready to become a dad. I`ll give you money for an abortion. Go and get rid of the child.'
				 money+=20000
				 act 'Hang up.':gt'telefon','fin'
				 end
			 if harakBoyA = 2:
				 '(<<$boyA>>) - what? Yes you ohuel! Somewhere sprained pussy, and now for me to dump. You go on a dick.'
				 set bfA = 0
				 pregtalk=0
				 act 'Hang up.':gt'telefon','fin'
				 end
			 end
		 end
	 if pregtime>dayA and pregtime>=7 and pregtalk=0:
		 act 'My_Dear, you`ll be a dad.':
			 cla
			 '(Do_You) - My_Dear, you`ll be a dad.'
			 '(<<$boyA>>) - How the fuck dad? We meet with you less, What are you pregnant. Sprained whore someone, here and go to him. all. I can no longer call. adieu.'
			 set bfA = 0
			 act 'Hang up.':gt'telefon','fin'
			 end
		 end
	 if week > 1 and week < 5 and workKafe = 1:
		 act 'oh, I`m_sorry, I work today.':
			 cla
			 '(Do_You) - oh, I`m_sorry, I work today.'
			 '(<<$boyA>>) - okay, call tomorrow.'
			 act 'Hang up.':gt'telefon','fin'
			 end
		 end
	 act 'tonight':
		 cla
		 set bfA = bfA + 1
		 set svidanieA = 1
		 meetday=daystart
		 '(Do_You) - You can meet in the evening.'
		 '(<<$boyA>>) - How much to come to your house?'
		 act 'call time.':
			 cla
			 meethour = input ("What are the hours in which the guy to come. At_The_Moment <<hour>> h, You can only assign a greater number of single-digit")
			 if meethour<=hour or meethour>23:meethour=20
			 '(Do_You) - Come on in <<meethour>> hours.'
			 '(<<$boyA>>) - Fair_Enough, <<$sveta>> then to <<meethour>> hours.'
			 act 'Hang up.':gt'telefon','fin'
			 end
		 end
	 act 'I`m busy today. Call tomorrow.':
		 cla
		 set bfA = bfA - 1
		 '(Do_You) - I`m busy today. Call tomorrow.'
		 if bfa <= 0:set bfa = 0&'(<<$boyA>>) - whore, you have my Jam, Come on dick.'
		 if bfa > 0:'(<<$boyA>>) - okay, until then.'
		 act 'Hang up.':gt'telefon','fin'
		 end
	 end
act 'leave':
	 cla
	 set bfA = 0
	 gt'telefon','fin'
	 end
end

if $ARGS[0]='boyB':
cla
clr
gs'stat'
set ring = 0
set ringB = 0
set boydayB = day

'<<$boyB>> offers a walk.'
	 act 'leave':
	 cla
	 set bfB = 0
	 gt'telefon','fin'
	 end
	 
	 act 'Call tomorrow':
	 cla
	 set bfB = bfB - 1
	 	 if bfB <= 0:set bfB = 0&'<<$boyB>> said, he throws you.'
	     if bfB > 0:'<<$boyB>> angry and hung up.'
	 gt'telefon','fin'
	 end
	 
	 act 'tonight':
	 cla
	 set bfB = bfB + 1
	 set svidanieB = 1
	 '<<$boyB>> asks how much it come to your home.'
	     act 'Come on in 20 hours.':
	     cla
	     'You are warmly said goodbye and ended the conversation on this.'
	     act 'Hang up.':gt'telefon','fin'
	     end
	 end
end

if $ARGS[0]='boyC':
cla
clr
gs'stat'
set ring = 0
set ringC = 0
set boydayC = day

'<<$boyC>> offers a walk.'
	 act 'leave':
	 cla
	 set bfC = 0
	 gt'telefon','fin'
	 end
	 
	 act 'Call tomorrow':
	 cla
	 set bfC = bfC - 1
	 	 if bfC <= 0:set bfC = 0&'<<$boyC>> said, he throws you.'
	     if bfC > 0:'<<$boyC>> angry and hung up.'
	 gt'telefon','fin'
	 end
	 
	 act 'tonight':
	 cla
	 set bfC = bfC + 1
	 set svidanieC = 1
	 '<<$boyC>> asks how much it come to your home.'
	     act 'Come on in 20 hours.':
	     cla
	     'You are warmly said goodbye and ended the conversation on this.'
	     act 'Hang up.':gt'telefon','fin'
	     end
	 end
end

if $ARGS[0]='challenge':
cla
     if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1:
     'Hello. This fire station. speak.'
     elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2:
     'Hello. This police. speak.'
     elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3:
     'Hello. This soon. speak.'
     else
     'long beep'
     end
     
     act 'Hang up':
     cla
     gt'telefon','fin'
     end
end


if $ARGS[0]='1':
cla
     if number = 6:
     end
     if number = 5:set num1 = 1&set number = 6
     if number = 4:set num2 = 1&set number = 5
     if number = 3:set num3 = 1&set number = 4
     if number = 2:set num4 = 1&set number = 3
     if number = 1:set num5 = 1&set number = 2
     if number = 0:set num6 = 1&set number = 1
gt'telefon','start'
end

if $ARGS[0]='2':
cla
     if number = 6:
     end
     if number = 5:set num1 = 2&set number = 6
     if number = 4:set num2 = 2&set number = 5
     if number = 3:set num3 = 2&set number = 4
     if number = 2:set num4 = 2&set number = 3
     if number = 1:set num5 = 2&set number = 2
     if number = 0:set num6 = 2&set number = 1
gt'telefon','start'
end

if $ARGS[0]='3':
cla
     if number = 6:
     end
     if number = 5:set num1 = 3&set number = 6
     if number = 4:set num2 = 3&set number = 5
     if number = 3:set num3 = 3&set number = 4
     if number = 2:set num4 = 3&set number = 3
     if number = 1:set num5 = 3&set number = 2
     if number = 0:set num6 = 3&set number = 1
gt'telefon','start'
end

if $ARGS[0]='4':
cla
     if number = 6:
     end
     if number = 5:set num1 = 4&set number = 6
     if number = 4:set num2 = 4&set number = 5
     if number = 3:set num3 = 4&set number = 4
     if number = 2:set num4 = 4&set number = 3
     if number = 1:set num5 = 4&set number = 2
     if number = 0:set num6 = 4&set number = 1
gt'telefon','start'
end

if $ARGS[0]='5':
cla
     if number = 6:
     end
     if number = 5:set num1 = 5&set number = 6
     if number = 4:set num2 = 5&set number = 5
     if number = 3:set num3 = 5&set number = 4
     if number = 2:set num4 = 5&set number = 3
     if number = 1:set num5 = 5&set number = 2
     if number = 0:set num6 = 5&set number = 1
gt'telefon','start'
end

if $ARGS[0]='6':
cla
     if number = 6:
     end
     if number = 5:set num1 = 6&set number = 6
     if number = 4:set num2 = 6&set number = 5
     if number = 3:set num3 = 6&set number = 4
     if number = 2:set num4 = 6&set number = 3
     if number = 1:set num5 = 6&set number = 2
     if number = 0:set num6 = 6&set number = 1
gt'telefon','start'
end

if $ARGS[0]='7':
cla
     if number = 6:
     end
     if number = 5:set num1 = 7&set number = 6
     if number = 4:set num2 = 7&set number = 5
     if number = 3:set num3 = 7&set number = 4
     if number = 2:set num4 = 7&set number = 3
     if number = 1:set num5 = 7&set number = 2
     if number = 0:set num6 = 7&set number = 1
gt'telefon','start'
end

if $ARGS[0]='8':
cla
     if number = 6:
     end
     if number = 5:set num1 = 8&set number = 6
     if number = 4:set num2 = 8&set number = 5
     if number = 3:set num3 = 8&set number = 4
     if number = 2:set num4 = 8&set number = 3
     if number = 1:set num5 = 8&set number = 2
     if number = 0:set num6 = 8&set number = 1
gt'telefon','start'
end

if $ARGS[0]='9':
cla
     if number = 6:
     end
     if number = 5:set num1 = 9&set number = 6
     if number = 4:set num2 = 9&set number = 5
     if number = 3:set num3 = 9&set number = 4
     if number = 2:set num4 = 9&set number = 3
     if number = 1:set num5 = 9&set number = 2
     if number = 0:set num6 = 9&set number = 1
gt'telefon','start'
end

if $ARGS[0]='0':
cla
     if number = 6:
     end
     if number = 5:set num1 = 0&set number = 6
     if number = 4:set num2 = 0&set number = 5
     if number = 3:set num3 = 0&set number = 4
     if number = 2:set num4 = 0&set number = 3
     if number = 1:set num5 = 0&set number = 2
     if number = 0:set num6 = 0&set number = 1
gt'telefon','start'
end

if $ARGS[0]='reset':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt'telefon','start'
end


if $ARGS[0]='fin':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt $locM, $metkaM
     !'if housr = 1 and housrA = 1:
     set housrA = 0
     gt'korr'
     end'
end
--- telefon ---------------------------------

# TV
if $ARGS[0]='start':
cla

clr
gs'stat'
set elektro = elektro + 5
'<center><img src="pics/telek.jpg" ></center>'
'You turn on the TV and comfortably ensconced on the couch.'
if TV = 1:'Ancient TV turns on and out came the sound of hoarse advertising.'
if TV = 2:'Huge plasma is turned on and out of it came the sound smartly advertising.'

     if kabel = 0:
     'You do not have cable, therefore shows only one channel at a constant advertising and news.'
     act 'watching TV 1 h':gt'TV','nokable'
     end
     if kabel = 1:
     'You have cable TV.'
     act 'watching TV 1 h':gt'TV','kable'
     end
     
if daystart<10 and StoryLine=0:'Sometimes while watching TV casually glance stops on your legs or chest .'

     act 'Turn off the TV and get up from the couch':
     cla
     gt'TV','fin'
     end
end

if $ARGS[0]='nokable':
cla
*clr
set minut = minut + 60
set manna = manna + 3
set willpower = willpower + RAND (5,10)
set manna = manna + RAND (10,50)
set elektro = elektro + 3
clr
gs'stat'
'<center><img src="pics/telek.jpg" ></center>'
'You see the central channel lying on the couch. Look almost nothing, solid advertising and cheesy program.'
if daystart<10 and StoryLine=0:'Sometimes while watching TV casually glance stops on your legs or chest .'

act 'watching TV 1 h':gt'TV','nokable'
act 'Turn off the TV and get up from the couch':gt'TV','fin'
end

if $ARGS[0]='kable':
cla
*clr
set minut = minut + 60
set manna = manna + 6
set willpower = willpower + RAND (10,20)
set manna = manna + RAND (50,100)
set elektro = elektro + 3
clr
gs'stat'
'<center><img src="pics/telek.jpg" ></center>'
'You are watching cable TV.'
if daystart<10 and StoryLine=0:'Sometimes while watching TV casually glance stops on your legs or chest .'

act 'watching TV 1 h':gt'TV','kable'
act 'Turn off the TV and get up from the couch':gt'TV','fin'
end

if $ARGS[0]='fin':
cla
gt $locM, $metkaM
     !'if housr = 1 and housrA = 1:
     set housrA = 0
     gt'sitr'
     end'

end
--- TV ---------------------------------

# vann
$stirkao={
cla
*clr
set minut = minut + dirtbelo*5
set clrbelo += dirtbelo
set poroshok = poroshok - 1
set dirtbelo = 0
set manna = manna - 10
'<center><img src="pic/stir.jpg" ></center>'
'You soaked clothes in the basin and poured the powder there, then you become a wash clothes, until it finally became clear.'
act 'End_Up':gt'vann','start'
}
if $ARGS[0]='start':
cla
clr
gs'stat'
if obdysh=1 and vannin=0:
	 set vanobrand=RAND(0,10)
	 set vannin=1
	 if vanobrand=0:gt 'vann','v1'
	 if vanobrand=1:gt 'vann','v2'
	 if vanobrand=2:gt 'vann','v3'
	 end
set vannin=1
'<center><img src="pics/wash.jpg" ></center>'
if shampoo=0:'Curse, how to wash if you do not shampoo?'
if obdysh=1 or tanhouse1=1 or palMir=1 or bordysh=1:
	 if dirtbelo>0 and poroshok>0:'<a href="exec: dynamic $stirkao ">You can do your laundry</a>'
	 if tampon > 0 and mesec > 0 and isprok = 0:
		 act 'change swab':
			 cla
			 *clr
			 set tampon = tampon - 1
			 set isprok = 1
			 set minut = minut + 5
			 set manna = manna - 5
			 '<center><img src="pics/wash3.jpg" ></center>'
			 'You change a tampon.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
		 act 'substitution 5 min':
			 cla
			 *clr
			 set cumpussy = 0
			 set cumbelly = 0
			 set cumass = 0
			 set cumlip = 0
			 set cumface = 0
			 set cumanus = 0
			 set cumfrot = 0
			 set sweat = sweat - 1
			 set minut = minut + 5
			 set clrbelo = clrbelo - 1
			 set dirtbelo = dirtbelo + 1
			 '<center><img src="pics/wash5.jpg" ></center>'
			 'You carefully washed sperm in the bathroom.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if cumlip > 0 or cumface > 0:
		 act 'Wash off with facial cum 5 min':
			 cla
			 *clr
			 set mop=1
			 set cumlip = 0
			 set cumface = 0
			 set sweat = sweat - 1
			 set minut = minut + 5
			 '<center><img src="pic/facesp.jpg" ></center>'
			 'You carefully washed sperm from the face.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if mop ! 1:
		 act 'wash off cosmetics':
			 cla
			 set mop = 1
			 set minut = minut + 15
			 'You have washed off cosmetics.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if klisma = 1 and klismaday ! day:
		 act 'Make yourself an enema 5 min':
			 cla
			 *clr
			 set minut = minut + 5
			 set klismaday = day
			 set klismaday1= 1
			 '<center><img src="picV/klisma.jpg" ></center>'
			 'You have set yourself an enema and clean the intestines, now your ass ready for anal sex.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if vibrator = 1 and vibratorIN=0:
		 act 'insert the vibrator 5 min':
			 cla
			 *clr
			 set minut = minut + 5
			 set vibratorIN = 1
			 if vagina < 30:set vagina = vagina + 2
			 '<center><img src="pic/vibrator.jpg" ></center>'
			 'You leaned over and put in a phallic object currently in the pussy.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if vibrator = 1 and vibratorIN=1:
		 act 'Remove the vibrator 5 min':
			 cla
			 *clr
			 set minut = minut + 5
			 set vibratorIN = 0
			 if vagina < 30:set vagina = vagina + 1
			 '<center><img src="pic/vibrator.jpg" ></center>'
			 'You bent down and took out a vibrator from the vagina.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if analplug = 1 and analplugin=0 and klismaday1= 1:
		 act 'Insert a butt plug 5 min':
			 cla
			 *clr
			 set minut = minut + 5
			 set analplugIN = 1
			 if anus < 30:set anus = anus + 5
			 '<center><img src="pic/analplug.jpg" ></center>'
			 if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
			 if butpluguse = 0:set butpluguse = 1&'"I do this not even touch,and why I bought!" think you. Then they all decided to take a closer look. feel, sniffed, in general. "Oh," think you "It is necessary to develop the ass ever, It will have great adventures, one might even say a huge and thick adventures with crimson heads, uh, I was fascinated by that." Scratched you thin fingers unusually hairy head. Then you sent gag myself in the ass, felt a little hurt when rastyagivatsya anus began taking a foreign object, but as soon as the widest part plunged into the murky depths of anal, become easier, and gag herself practically flew to the end, and stood on the situation of producers place.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 if analplug = 1 and analplugin=1:
		 act 'Remove the butt plug 5 min':
			 cla
			 *clr
			 set minut = minut + 5
			 set analplugIN = 0
			 if anus < 30:set anus = anus + 1
			 '<center><img src="pic/analplug.jpg" ></center>'
			 if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'
			 act 'End_Up':gt'vann','start'
			 end
		 end
	 end
act 'Get out of the bath':gt'vann','fin'
if mosolmaz>0 and mosol>0:
	 act 'Rub ointment on corns pussy 5 min':
		 cla
		 minut+=5
		 mosolmaz-=1
		 mosol-=5
		 'Taking out a tube of cream protivomozolnym you rubbed it in her itchy pussy.'
		 act 'Out of the bathroom and get dressed':gt'vann','fin'
		 end
	 end
if shampoo>0:
	 act 'take a shower 15 min':
		 cla
		 *clr
		 if tanga = 1:
			 set clrbelo = clrbelo - 1
			 set dirtbelo = dirtbelo + 1
			 end
		 shampoo-=1
		 set minut = minut + 15
		 set horny = horny + 1
		 set hapri = 0
		 set mop = 1
		 set sweat = -3
		 dynamic $showerdin
		 if frost>0:frost=0
		 '<center><img src="pics/dush.jpg" ></center>'
		 if daystart<10 and StoryLine=0:'So wild to see his new body. All these smooth curves, breasts with large nipples, wide hips and smooth legs. You have become lathering his body in the shower wondering what it is now soft and gentle, it`s all so strange for you. Once you have lathered the soap you washed in the shower without stopping surprised feeling of strangeness.'
		 if daystart>=10 and daystart<30 and StoryLine=0:'Yet you have a little accustomed to their female body and shampooed their rounded bulge is not very surprised softness of her body.'
		 if daystart>=30 and StoryLine=0 or StoryLine>0:'You habitually lathered his body trying not to miss anything, then washed in the shower soap.'
		 if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			 act 'get razor':gt'vann','brit'
			 end
		 if horny >= 90:
			 act 'Send a shower pussy':
				 cla
				 *clr
				 set horny = 0
				 set minut = minut + 30
				 set mastr = mastr + 1
				 set orgasm = orgasm + 1
				 set manna = manna + 15
				 set willpower = willpower + 15
				 '<center><img src="pics/wash2.jpg" ></center>'
				 'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
				 act 'Out of the bathroom and get dressed':gt'vann','fin'
				 end
			 end
		 if horny >= 40 and hormy < 90:
			 act 'Send a shower pussy':
				 cla
				 *clr
				 set horny = horny + 5
				 set minut = minut + 30
				 set manna = manna + 10
				 set willpower = willpower + 10
				 '<center><img src="pics/wash2.jpg" ></center>'
				 'You sent a shower pussy and tight jet of warm water began to caress you. First, but after a while it became even as it hurts. Excitation asleep and you stop masturbating.'
				 act 'Out of the bathroom and get dressed':gt'vann','fin'
				 end
			 end
		 act 'Out of the bathroom and get dressed':gt'vann','fin'
		 end
	 end
if shampoo>0:
	 act 'take a bath 1 h':
		 cla
		 *clr
		 if tanga = 1:
			 set clrbelo = clrbelo - 1
			 set dirtbelo = dirtbelo + 1
			 end
		 shampoo-=1
		 set minut = minut + 60
		 set sweat = -3
		 set horny = horny + 1
		 !set dirtbelo = dirtbelo + 1
		 set hapri = 0
		 set mop = 1
		 set manna = manna + 10
		 dynamic $showerdin
		 if frost>0:frost=0
		 set skinvan = skinvan + 1
		 if skinvan = 20:set skinvan = 0&set skin = skin + 1
		 '<center><img src="pics/wash4.jpg" ></center>'
		 if daystart<10:'You got into the bathroom and sat down in the warm water, sticking out of the water your knees are rounded and smooth, which you stared, Yet you are not used to his new body and was as wildly look at all these roundness. Having started soaping the body you involuntarily turned their attention to the chest, it is so soft and big, and when you touch it in the body there are any unfamiliar but pleasant. Then you have washed off the soap with yourself and you can already go out of the bathroom.'
		 if daystart>=10 and daystart<30:'You got into the bathroom and sat down in the warm water, you have a little accustomed to his new body and calm lather all these twists and convexity, after which you have washed off the soap.'
		 if daystart>=30:'You got into the bathroom and went into the warm water stolidly looking at my smooth legs sticking out of the water. You lathered his body and then washed soap stroking her hands over her curves of the female body.'
		 !'You got into the bathroom and went into the warm water. Soaped and washed the body.'
		 if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			 act 'get razor':gt'vann','brit'
			 end
		 if obdysh=1:set vannmastrand=RAND(0,5)
		 if horny >= 90:
			 act 'Direct water on pussy':
				 cla
				 *clr
				 if obdysh=1 and vannmastrand=1:gt'vann','v4'
				 set horny = 0
				 set minut = minut + 30
				 set mastr = mastr + 1
				 set orgasm = orgasm + 1
				 set manna = manna + 15
				 set willpower = willpower + 15
				 '<center><img src="pics/wash7.jpg" ></center>'
				 'You sent a water tap on the pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
				 act 'Out of the bathroom and get dressed':gt'vann','fin'
				 end
			 end
		 if horny >= 40 and horny < 90:
			 act 'Direct water on pussy':
				 cla
				 *clr
				 if obdysh=1 and vannmastrand=1:gt'vann','v4'
				 set horny = horny + 5
				 set minut = minut + 30
				 set manna = manna + 10
				 set willpower = willpower + 10
				 '<center><img src="pics/wash7.jpg" ></center>'
				 'You sent a water tap on the pussy and tight jet of warm water began to caress you. At first it was not even very bad, but then the excitement subsided and became even as it is not nice. Therefore.'
				 act 'Out of the bathroom and get dressed':gt'vann','fin'
				 end
			 end
		 act 'Out of the bathroom and get dressed':gt'vann','fin'
		 end
	 end
end

if $ARGS[0]='brit':
cla
'You rinsed the razor, blade which will suffice for <<stanok>> time.'
if leghair > 0 and stanok > 0:
	 act 'shave your legs 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set leghair = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 '<center><img src="pics/shave.jpg" ></center>'
		 if daystart<10:'You lathered his feet in amazement noting what they are soft and picked up the razor. For myself . You began to slowly and gently shave the hairs on their feet wondering what becomes smooth skin after shaving, like silk. Soon you shaved all the hair from their legs and rinsed them getting rid of excess foam.'
		 if daystart>=10 and daystart<30:'You lathered her soft feet and picked up his razor. You have grown accustomed to his new body and quietly shaved legs hairy legs knowing that your new body is not beautiful. Finally shaving was pokonchenno and you washed foam stroking his smooth as silk legs.'
		 if daystart>=30:'You lathered his feet and took a razor. Habitual movements you shaved hair on the legs and washed shaving foam.'
		 !'You lathered up and shaved off the hair with them.'
		 act 'postpone the machine':gt'vann','brit'
		 end
	 end
if lobok > 0 and stanok > 0:
	 act 'Shaved 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set lobok = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 if obdysh=1 and obbritinvent=0:
			 set britrand=RAND(0,5)
			 if britrand=5:gt'vann','brit1'
			 end
		 '<center><img src="pics/shave3.jpg" ></center>'
		 if daystart<10:'You have decided to shave the pubic area, his lathered foam and picking up a razor realized that he did not represent, as IT shave. To begin, it was not difficult, but then you notice that near your newfound pussy . Here you have difficulties began, you tried to pull one hand . Gradually. As long as you shave . But finally shaving was pokonchenno and you washed foam with pussy stroking her hand and wondering sensations.'
		 if daystart>=10 and daystart<30:'You lathered his groin foam, trying not to miss a single folds on her pussy. Then neat movements began to shave the hair trying not to cut pussy. Finally.'
		 if daystart>=30:'You lathered pubis and taking a razor habitual movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was over and you washed foam with pussy.'
		 !'You lathered pubis, then shaved off his hair all.'
		 act 'postpone the machine':gt'vann','brit'
		 end
	 end
act 'Out of the bathroom and get dressed':gt'vann','fin'
end

if $ARGS[0]='fin':
cla
set vannin=0
gt $locM, $metkaM
end

if $ARGS[0]='brit1':
cla
*clr
set obbritinvent=1
'<center><img src="img/ob/brit1.jpg" ></center>'
'While you`re plastered pubis foam, entered into the bath guy, you were so passionate about, that did not even notice it and only when he turned on the shaver socket looked up and saw him, standing in front of you with a smile and treat your crotch. After a few seconds, He looked up from your feet  "hello, you do not mind that I`m here too shave." and notice your still not very deft movement, which still continues to put foam on the pussy, added "I can help, if necessary, I have an older sister when four years ago flew, so the bride from her run away, That had to sometimes help, shave. And then with a belly that does the most." You and presented as a kid, which the then thirteen years was probably, squatting in front of a pregnant woman and shaves her pussy, it was probably his first sexual experience.'
act'Let remains':
	 cla
	 *clr
	 set horny+=40
	 '<center><img src="img/ob/brit2.jpg" ></center>'
	 '"Shave all you like" you responded and returned to their occupation. A few minutes later the guy finished, and started watching you, He came nearer, finally sat down next to you and you began to help, soon razor was already in the hands of unego. Since you became delot nothing, you started to talk to him "And often you shave sister helped?"
	 "But when both, initially every two weeks, and then every two days, She then became very capricious, and only a little stubble appeared so I ran with a razor, though I have this stubble even tongue felt." Then he paused, realizing that blurted out too much.
	 "Well, not everyone will be helping sister, in such a delicate matter." continued pretending you, nothing zatetili.
	 "well, How else, I have the same except it is unoccupied. So I helped her in everything, and helped wash, and even when the bore, I shaved her and helped wash. Though she has and she could, but always asked me to." until he raskazyval, you noticed, that in his pants narostalo excitement.
	 "So while you`re licking her or touched only?" suddenly asked you.
	 "We first touched well then." he blurted out and immediately broke off and blushed, you smiled contentedly order, that dragged him from the truth.
	 "And she`ll like gratified, or you bad language works and did not deserve?" asked you, the guy looked at the floor, all red as a lobster, but then decided to be seen, that still was asleep and began to speak.
	 "Well, deserved. The first time the same accident happened, I did not know how to shave it, Well, I first even scared and ran out of the bathroom, and on the day sleduyuzhy, it is me again in a bath called and told to shave, Well. I say it so that there is shaved, and she said the language check, That`s how I first licked, and when she cum, it into my pants and pulled climbed began to suck. When I finished, she said, that every time I do something nice for her, it will be my pleasure to do." he finished.
	 "Well, not even fuck never?" asked you already forgotten about the razor and carefully listening to the story.
	 "Well. When I got used to the daily blowjob, we do this for three or four times a day engaged, So she had twenty and thirty minutes to suck, in the end when I once again it has satisfied, and already got that dick-would stick in her mouth, she told me to bring cream. When I brought it she lay down on her side and said, that we are brother and sister , but in the ass can. I then smeared her anus cream and gently began to enter. And she smiled that-I did not hesitate because it is no longer a little girl and my pod her pain does not deliver. Then I drove to go into it and began frantically to move. I enjoyed it so much, she podmahivala me ass, and when I finished, it literally milked him his anus. So I then stopped to give her mouth and ass had only, and when she gave birth to was then already expanse in all positions tested her ass." he so vividly raskazyval, that in your head drawn images of all this and soon your pussy flowed, that was not lost on his eyes.
	 "Well, that could further-some pobreem?" he asked.'
	 act 'Bring_It_On':
		 cla
		 *clr
		 set picrand=74
		 '<center><img src="img/ob/brit3.jpg" ></center>'
		 '"Bring_It_On, but that will shave, my chest hair does not grow." Say you
		 "Well" With these words, smearing it all over your body. His hands slid over you, You melted at his touch and when he slid to your already hard pussy current, nearly finished.'
		 act'carry_On':gt'sex','kuni'
		 end
	 act 'no thanks':gt'vann','start'
	 end
act'shout':
	 cla
	 'You shouted so, that you probably even on the street could be heard. "Do not you cry, I`m just help wanted, and in general the door must be closed." He tried to reassure you, but you only cried out. He had no choice as to jump out of the bathroom and run.'
	 act 'End_Up':gt'vann','brit'
	 end
end

if $ARGS[0]='v1':
cla
*clr
'<center><img src="img/ob/v0.jpg" ></center>'
'You went to the bathroom and saw a girl sitting on the edge of the bath and feet smeared with cream.
"Sorry, I `ll come later." you said and turned to leave.
"Yes, come on I`m almost finished" she said with a smile. You came back and started turning to the sink to wash their hands, than to keep him occupied until she leaves. But she was not in a hurry, and a few minutes later come to see you "want, you too legs smear?"'
act'Opt_Out':
	 cla
	 '"No, thank_you" answer You.
	 "Well as you want" she said, finally finished and left.'
	 act 'To do their job':gt'vann','start'
	 end
act'agree':
	 cla
	 *clr
	 set picrand=21
	 '<center><img src="img/ob/v1.jpg" ></center>'
	 '"Bring_It_On" Say you, and she began to put the cream on your feet. Her hands stroked your calves, gradually rising above the thighs and then to the buttocks, to them it was delayed a little longer. Her pen squeezed your ass down periodically to the inside of the thighs and inapplicable fingers touched your pussy, soon it happened more often. When you lightly radvinuli feet, She left one hand there to massage your pussy, and the other continued to stroke your buttocks. Soon you will feel on your feet not only her hands, and lips, she kissed your feet gradual lifting up, and now her tongue slid under your buttocks, and started down to the pussy.'
	 act'Resume':gt'lezbsex','kuni'
	 end
end

if $ARGS[0]='v2':
cla
*clr
'<center><img src="img/ob/v2.jpg" ></center>'
'You went into the bathroom and turned over to the sink to wash steel, Soon you hear behind any strange sounds. Realizing that you`re not in the bathroom one, you spun around and seeing the guy standing in the bath with a towel around his neck. He palilsya your ass and masturbating, you even a little flattered, he masturbates looking at you. He continued enthusiastically masturbate, unnoticed that you look at it, a few seconds later , headed for the exit, muttering something under his breath, apparently it was apology.'
act'Let him go':gt'vann','start'
act'offer help':
	 cla
	 *clr
	 set picrand=75
	 '<center><img src="img/ob/v3.jpg" ></center>'
	 '"Let me help" escaped you. The guy paused and finally said something articulate - "what?" you podozhli to him in full and running his hand under the towel groped his dildo. Relaxed guy and put a towel, in the meantime you, squatted down and took his cock in his hand began to stroke his, then drive a hand up, down. He began to moan.'
	 act'Post a lick':gt'sex','kuni'
	 act'Take by mouth':gt'sex','minet'
	 act'carry_On':
		 cla
		 *clr
		 set cumlip+=1
		 set cumface+=1
		 '<center><img src="img/ob/v4.jpg" ></center>'
		 'You have continued to work with his hands, a minute later the guy sat on the edge of the bed and then lay down. You actin continued to wield two-handed, and judging from his moans happy he liked it. Once you have started to think about what would caress him not only his hands, as a member in your hands began to twitch. "Damn_It" you said , that in vain to open his mouth, of its members escaped and flew jet of sperm in your face, and some fell into the mouth. "Damn, Well." Say you`re spitting out cum. "Sorry" mumbled the guy and quickly gathered jumped out of the bathroom.'
		 act 'To do their job':gt'vann','start'
		 end
	 end
end

if $ARGS[0]='v3':
cla
*clr
'<center><img src="img/ob/v5.jpg" ></center>'
'You literally flew into the bathroom and sat on the toilet. "ooh, Still a little, bit and describe" you thought with relief, but then you realize that the edges of you here who have more-then, turning his head, you see washable Man. He stands and says smiling "hello."
"hello" you reply, trying pridamat that-to say. "Sorry, I just really need to" Finally you say.
"Yes, very, judging by the sound has long been, very necessary." he says. Of you still flows, you are ready to sink into the ground, but can not get up. Meanwhile, starts to silently watch, and you see his cock but surely Medley, increases. Soon he is already , now his dildo literally inches from your face. He`s a little shakes them in your mouth, clearly hinting at a blowjob. Finally it bothers you and you start talking intending to say-he took it away from your face. But as soon as you open your mouth, as he immediately makes dvischenie pelvis and his dildo is in your mouth.
"Sorry, but it is also very necessary." he said still smiling.'
act'bite':
	 cla
	 'You squeeze teeth and covered his head with his hands, that would not prilitelo. He starts yelling and swearing, nazavaya you these words, the importance of which you have no idea, then you squeeze even more teeth. He was no longer screaming and begging to let go just whines, You can see he beat podoyalsya, fearing that may remain without any member. You decompress the teeth and the guy runs out into the corridor, in the buff, showering you with curses.'
	 act 'To do their job':gt'vann','start'
	 end
act'suck':
	 cla
	 *clr
	 set bj+=1
	 '<center><img src="img/ob/v6.jpg" ></center>'
	 'You started gently licking the head, and hand massage the testicles. The guy started to moan, and then he grabbed your head with both hands, legs wide apart and planted so your head, that the term immediately flew you in the throat, you become short of breath and step back popytalalis, but his hands firmly holding your head. Soon he loosened his hands, you began to suck his dick swallowing a. A few minutes later he pulled out a member of your mouth and lift you up from the toilet, turned and put the cancer.'
	 act'carry_On':
		 cla
		 *clr
		 set sex+=1
		 '<center><img src="img/ob/v7.jpg" ></center>'
		 'He inserted his penis into the vagina to you, and started with the power to penetrate into you, his movements were strong and deep. You do not have time podtiretsya, after pee and now drops of urine running down your thighs. You looked down on the toilet and you head climbed thoughts "What do I do, fuck me in an almost public toilet, I stand over the toilet full of cancer and urine from my own urine flows down the leg, Rear completely unfamiliar jerk, fuck me like a whore. horror, I dropped, and the most disgusting, I like how he does it." These thoughts all your excitement vanished and you just stood and waited as he sated. Soon.'
		 act 'Sit on the floor':
			 cla
			 *clr
			 set cumlip+=1
			 set cumface+=1
			 set cumbelly+=1
			 '<center><img src="img/ob/v8.jpg" ></center>'
			 'You have fallen on the floor, while you sit down .
			 "mouth open, now finished" he said nayarivaya his dick hand. You open your mouth and you splattered sperm, Bay of you chest and face, in my mouth got a few drops, you spat.
			 "Well, to me it lacked." said the guy came out and dressed, leaving you on the floor all in the semen, "That ran pee" think you.'
			 act 'To do their job':gt'vann','start'
			 end
		 end
	 end
end

if $ARGS[0]='v4':
cla
*clr
set minut+=30
set mastr+=1
'<center><img src="img/ob/v9.jpg" ></center>'
'You sent a water tap on the pussy and tight jet of warm water began to caress you, then you put the funnel and its place was taken by fingers. You selflessly masturbated when he heard that turn on the tap in the sink. Opening his eyes , He looked at you and smiling.
"I`m sorry to interrupt, you keep me in your way will not" he said, Do not look away from your pussy, which still your fingers sherudili.'
act'shout':
	 cla
	 *clr
	 set horny = 0
	 '<center><img src="img/ob/v10.jpg" ></center>'
	 'You shouted so, that you have a very laid ears. Man without hesitation hurried retreat and left the bathroom. You are once again left alone, but the excitement is gone and you have nothing like.'
	 act 'To do their job':gt'vann','start'
	 end
act'hide_behind':
	 cla
	 *clr
	 '<center><img src="img/ob/v10.jpg" ></center>'
	 'You began to slowly crawl to the bathroom that-would cover her naked pussy soapy water, hand and tried to close the chest, you do not really succeed. The guy continued to watch over you and his smile grew wider, and then you realize, your hand still stroking your cat and his eyes only excites you. Making an effort you have taken out a hand. He came up to you and sat on the edge of the tub, lifting out of the water a sponge handed to you, "Can you help?...I sense a back rub" he said. You sat and stared at him not knowing what to say, and his hands were pulled down again.'
	 act'Opt_Out':
		 cla
		 *clr
		 '<center><img src="img/ob/v10.jpg" ></center>'
		 '"No, thank_you" barely squeezed you out of yourself.
		 "Well as you want" the guy turned around and went to the door, on the threshold he turned "You would shut the door, and then there is a different contingent oshivaetsya." and left.'
		 act 'To do their job':gt'vann','start'
		 end
	 act'agree':
		 cla
		 *clr
		 set picrand=76
		 '<center><img src="img/ob/v11.jpg" ></center>'
		 'You nodded in agreement, and he immediately threw off everything and got to you in the bath. He began to rub your body washcloth, Soon she was joined by his second hand, She glides over your body, caressing the breasts, then went down below to pussy. As soon as his fingers touch your pussy as you shuddered and clung to him all over, his erection was caught between your buttocks. He began to move up, down slightly caved in and you giving him room to maneuver, but he did not enter into you, and put his hand on your shoulder and gently pressed, you immediately understand what he wants, knelt down and turned to face him. Here was his throbbing dildo, you took it in your hand and in your mouth naprvili.'
		 act 'Take by mouth':gt'sex','minet'
		 end
	 end
end
--- vann ---------------------------------

# meet
if $ARGS[0]='start':
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 15
set dayA = dayA + 1
set svidanieA = 0
giftNum=giftNumA
$boy=$boyA
$namev=$boy
$boybody=$boybodyA
$boybod=$boybodA
$boyface=$boyfaceA
!long cock
dick=dickA
!! sexual force of 0 prior_to 2
silaVag=silaVagA
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=financeA
!!check in appearance, a parameter vnesh
vneshBoy=vneshBoyA
$boyClo=$boyCloA
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=figurBoyA
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=titBoyA
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=haerBoyA
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=harakBoyA
!perversity
izvrat=izvratA
if love = 3:
	 'you met <<$boyA>> and put them in a hired wedding limousine.'
	 act 'Sit in a limousine.':
		 cla
		 'You got into the limo, and <<$boyA>> got into another car. Soon the limo pulled up to the Wedding Palace.'
		 act 'Marry husband':
			 cla
			 set minut = minut + 60
			 love = 0
			 bfA = 0
			 husband = 100
			 husbanday=0
			 $husName=$boyA
			 $husHair=$boyfaceA
			 $husBody=$boybodyA
			 $husFat=$boybodA
			 husDick=dickA
			 harakHusb=harakBoyA
			 izvratH=izvratA
			 set silavagH = silavagA
			 husbFin=financeA
			 husbandMark=1
			 'The wedding took place in a cafe. There were not many guests and of course only by the groom. There was a lot of congratulations, toast, merrymaking and cries bitterly. By evening all got drunk and you with souped husband took home.'
			 act 'wedding Night.':gt'husbsex','room'
			 end
		 end
	 exit
	 end
if love = 2:
	 '<<$boyA>> looks very excited and suddenly pulls out a ring out of the box.'
	 '(<<$boyA>>) - Sveta. I offer you my hand and heart with very, Come out for my husband.'
	 act 'No. (rasstatsya)':
		 set minut = minut + 60
		 set bfA = 0
		 set pregtalk=0
		 gt'street'
		 end
	 act 'Yes_I_Am':
		 cla
		 'You agreed and put a ring on his finger. <<$boyA>> happy and hugged you kissed.'
		 '(<<$boyA>>) - Now go choose your wedding dress.'
		 act 'Go for a fee':
			 cla
			 set minut = minut + 60
			 set love = 3
			 'You got into a taxi with his bride and went to the store to choose a dress. You have chosen an expensive and luxurious dress and <<$boyA>> paid for its purchase.'
			 'After all these winding through the city and you`re tired <<$boyA>> drove you home, warning, that at the next meeting you marry.'
			 act 'Get_Away.':gt'street'
			 end
		 end
	 exit
	 end
if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 0:
	 '<<$boyA>> looks very excited, Look around you , that you are willing to appear before his mom.'
	 act 'Go to the parents.':gt'love','mother'
	 exit
	 end
if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 1 and tanga=1:
	 '<<$boyA>> Look around you decided, that you are willing to appear before his friends.'
	 act 'Go to friends.':gt'love','frends'
	 exit
	 end
if skin = 0:set bfa = bfa - 2&set $meetskin = 'worth looking at his feet'
if skin = 1:set bfa = bfa - 1&set $meetskin = 'throws at you view'
if skin = 2:set $meetskin = 'Looking at you'
if skin = 3:set bfa = bfa + 1&set $meetskin = 'seeing you smiling'
if skin = 4:set bfa = bfa + 2&set $meetskin = 'seeing you smiling'
if harakBoyA = 0:
	 if mop <= 2 and mop > 0:set bfA = bfA + 1&set $meetmop = 'you are so beautiful today.'
	 if mop = 4:set bfA = bfA - 1&set $meetmop = 'great weather today.'
	 end
if harakBoyA = 1:
	 if mop <= 3 and mop > 0:set bfA = bfA + 1&set $meetmop = 'you are so beautiful today.'
	 if mop = 4:set bfA = bfA - 1&set $meetmop = 'clearly you nakrasili, not like Halloween.'
	 end
if harakBoyA = 2:
	 if mop = 4:set bfA = bfA + 1&set $meetmop = 'you are so beautiful today.'
	 if mop <= 2 and mop > 0:set bfA = bfA - 1&set $meetmop = 'great weather today.'
	 end
if mop = 0:set bfA = bfA - 1&set $meetmop = 'Emm, you cosmetics flowed.'
if hapri = 1 and curly > 0:set bfA = bfA + 2&set $meethair = 'You have a very beautiful hairstyle.'
if hapri = 1 and curly = 0:set bfA = bfA + 1&set $meethair = 'You have a nice hairstyle.'
if hapri = 0:set bfA = bfA - 1&set $meethair = 'I look you in a hurry to our meeting.'
if harakBoyA = 0:set $meet = '"Hello favorite! Nice to see you, <<$meetmop>> <<$meethair>>"'
if harakBoyA = 1:set $meet = '"Hello World! Nice to see you, <<$meetmop>> <<$meethair>>"'
if harakBoyA = 2:set $meet = '"Hello Svetsik! Nice to see you, <<$meetmop>> <<$meethair>>"'
set $meetcol = ''
if dayA > 10 and harakBoy = 2:
	 if haerBoyA ! hcol:
		 bfA = bfA - 5
		 if haerBoyA = 0:set $meetcol = '<<$boyA>> speaks, you would go black hair.'
		 if haerBoyA = 1:set $meetcol = '<<$boyA>> speaks, you would have gone brown hair color.'
		 if haerBoyA = 2:set $meetcol = '<<$boyA>> speaks, you would go red hair.'
		 if haerBoyA = 3:set $meetcol = '<<$boyA>> speaks, you would go bright hair color.'
		 end
	 if haerBoyA = hcol:
		 set bfA = bfA + 1
		 '<<$boyA>> speaks, that you have a beautiful hair color.'
		 end 
	 end
if dayA > 20 and harakBoy = 1:
	 if haerBoyA ! hcol:
		 bfA = bfA - 5
		 if haerBoyA = 0:set $meetcol = '<<$boyA>> speaks, you would go black hair.'
		 if haerBoyA = 1:set $meetcol = '<<$boyA>> speaks, you would have gone brown hair color.'
		 if haerBoyA = 2:set $meetcol = '<<$boyA>> speaks, you would go red hair.'
		 if haerBoyA = 3:set $meetcol = '<<$boyA>> speaks, you would go bright hair color.'
		 end
	 if haerBoyA = hcol:
		 set bfA = bfA + 1
		 '<<$boyA>> speaks, that you have a beautiful hair color.'
		 end 
	 end
if dayA > 30 and harakBoy = 0:
	 if haerBoyA ! hcol:
		 bfA = bfA - 5
		 if haerBoyA = 0:set $meetcol = '<<$boyA>> speaks, you would go black hair.'
		 if haerBoyA = 1:set $meetcol = '<<$boyA>> speaks, you would have gone brown hair color.'
		 if haerBoyA = 2:set $meetcol = '<<$boyA>> speaks, you would go red hair.'
		 if haerBoyA = 3:set $meetcol = '<<$boyA>> speaks, you would go bright hair color.'
		 end
	 if haerBoyA = hcol:
		 set bfA = bfA + 1
		 '<<$boyA>> speaks, that you have a beautiful hair color.'
		 end 
	 end
if lip = 0:set $meetlip = 'thin lips'
if lip = 1:set $meetlip = 'soft lips'
if lip = 2:set $meetlip = 'plump lips'
if lip = 3:set $meetlip = 'large, plump lips'
if lip = 4:set $meetlip = 'thick and huge lips'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DIALOGUE
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'At the entrance <<$meetskin>> <<$boyA>>. Sees you he comes to you and says. <<$meet>> <<$meetcol>>'
if financeA = 0:set $clom = 'dressed in a tracksuit deshovy.'
if financeA = 1:set $clom = 'dressed in jeans and a sweater.'
if financeA = 2:set $clom = 'dressed in a respectable and expensive jacket.'
if harakBoyA = 0:'<<$boyA>> looks shy and not confident young man <<$clom>>'
if harakBoyA = 1:'<<$boyA>> looks confident and calm young man <<$clom>>'
if harakBoyA = 2:'<<$boyA>> looks cocky and brash young man <<$clom>>'
if dayA >= 2 and financeA = 2 and giftDay < (dayA - giftNum):
	 set giftrand = RAND (0,2)
	 if giftrand <= financeA:
		 set giftDayA = dayA
		 set giftNum = giftNum + 1
		 set gift = RAND (bfa*20,bfa*30)
		 if gift>2500:gift=2500
		 giftNumA=giftNum
		 set money = money + gift
		 '<<$boyA>> reached into his pocket and pulled out a gift for you to <<gift>> rubles.'
		 end
	 end
if dayA >= 5 and financeA = 1 and giftDay < (dayA - giftNum):
	 set giftrand = RAND (0,2)
	 if giftrand <= financeA:
		 set giftDayA = dayA
		 set giftNum = giftNum + 1
		 set gift = RAND (bfa*10,bfa*20)
		 if gift>1500:gift=1500
		 giftNumA=giftNum
		 set money = money + gift
		 '<<$boyA>> reached into his pocket and pulled out a gift for you to <<gift>> rubles.'
		 end
	 end
if dayA >= 10 and financeA = 0 and giftDay < (dayA - giftNum):
	 set giftrand = RAND (0,2)
	 if giftrand <= financeA:
		 set giftDayA = dayA
		 set giftNum = giftNum + 1
		 set gift = RAND (bfa*5,bfa*10)
		 if gift>500:gift=500
		 giftNumA=giftNum
		 set money = money + gift
		 '<<$boyA>> reached into his pocket and pulled out a gift for you to <<gift>> rubles.'
		 end
	 end
'<<$boybody>> <<$boybod>> <<$boyface>> comes to you and wants to kiss you.'
if venera < 4 and cumface = 0:
	 !cumlip
	 act 'Kiss with tongue.':
		 cla
		 if cumlip = 0:
			 '<center><img src="pic/kiss.jpg" ></center>'
			 if harakBoyA = 0:set bfa = bfa - 2&'You have pressed their <<$meetlip>> to solid guy lips and mouth slightly open thrust his tongue in his mouth. <<$boyA>> blushed and pulled.'
			 if harakBoyA = 1:set bfa = bfa - 1&'You have pressed their <<$meetlip>> to solid guy lips and mouth slightly open thrust his tongue in his mouth. <<$boyA>> gently obsasal your language.'
			 if harakBoyA = 2:set bfa = bfa + 2&'You have pressed their <<$meetlip>> to solid guy lips and mouth slightly open thrust his tongue in his mouth. <<$boyA>> aggressively pushed his tongue into your mouth and almost started to fuck you in the mouth with his tongue.'
			 act 'finish kiss.':xgt'meet','a'
			 exit
			 end
		 if cumlip > 0:
			 '<center><img src="pic/cumlip.jpg" ></center>'
			 '<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pulled. "what is that?" he asked "You mouth sperm smells."'
			 if izvrat = 1:
				 set bfa = bfa + 5
				 set DOM = DOM + 1
				 '<<$boyA>> blushed and lowered his eyes, you clearly see how he formed a mound on the trousers.'
				 act 'finish kiss.':xgt'meet','a'
				 exit
				 else
				 set bfa = 0
				 '<<$boyA>> angry you threw myself "Oh! get_out, that I did not see you anymore, all we had done for!"'
				 act 'Get_Away.':gt'street'
				 exit
				 end
			 end
		 end
	 act 'Kiss on the lips.':
		 cla
		 if cumlip = 0:
			 '<center><img src="pic/kiss1.jpg" ></center>'
			 if harakBoyA = 0:'You have substituted for a kiss lips <<$boyA>> a little embarrassed kissed you.'
			 if harakBoyA = 1:set bfa = bfa + 2&'You have substituted for a kiss lips <<$boyA>> you quickly smacked.'
			 if harakBoyA = 2:set bfa = bfa - 1&'You have substituted for a kiss lips <<$boyA>> relish kissed you, pushing his firm lips to your <<$meetlip>>.'
			 act 'finish kiss.':xgt'meet','a'
			 exit
			 end
		 if cumlip > 0:
			 '<center><img src="pic/cumlip.jpg" ></center>'
			 '<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pulled. "what is that?" he asked "You mouth sperm smells."'
			 if izvrat = 1:
				 set bfa = bfa + 5
				 set DOM = DOM + 1
				 '<<$boyA>> blushed and lowered his eyes, you clearly see how he formed a mound on the trousers.'
				 act 'finish kiss.':xgt'meet','a'
				 exit
				 else
				 set boya = 0
				 '<<$boyA>> angry you threw myself "Oh! get_out, that I did not see you anymore, all we had done for!"'
				 act 'Get_Away.':gt'street'
				 exit
				 end
			 end
		 end
	 act 'Kiss on the cheek.':
		 cla
		 '<center><img src="pic/kiss2.jpg" ></center>'
		 set DOM = DOM + 1
		 if harakBoyA = 0:set bfa = bfa + 1&'You framed cheek and <<$boyA>> timidly kissed you.'
		 if harakBoyA = 1:'You framed cheek and <<$boyA>> you kissed.'
		 if harakBoyA = 2:set bfa = bfa - 2&'You framed cheek and <<$boyA>> kissed you discouraged with views.'
		 if giftDayA = dayA:
			 set bfa = bfa - 3
			 if harakBoyA = 0:'<<$boyA>> looks upset.'
			 if harakBoyA = 1:'<<$boyA>> looks offended.'
			 if harakBoyA = 2:'<<$boyA>> looks angry.'
			 end
		 act 'finish kiss.':xgt'meet','a'
		 exit
		 end
	 act 'Do not kiss.':
		 cla
		 set DOM = DOM + 2
		 if harakBoyA = 0:set bfa = bfa - 1&'You nodded and said hello, <<$boyA>> effaced and blushed slightly.'
		 if harakBoyA = 1:set bfa = bfa - 2&'You nodded and said hello, <<$boyA>> frowned slightly.'
		 if harakBoyA = 2:set bfa = bfa - 3&'You nodded and said hello, <<$boyA>> chuckled and grinned.'
		 if giftDayA = dayA:
			 set bfa = bfa - 3
			 if harakBoyA = 0:'<<$boyA>> looks upset.'
			 if harakBoyA = 1:'<<$boyA>> looks offended.'
			 if harakBoyA = 2:'<<$boyA>> looks angry.'
			 end
		 act 'further.':xgt'meet','a'
		 exit
		 end
	 end
if venera >= 4:
	 '<center><img src="pic/venera.jpg" ></center>'
	 set bfa = 0
	 '<<$boyA>> looked at you and said "What have you got with the lips? They are all in ulcers. This is, genital herpes? I`d better go, I do not want to catch. adieu."'
	 act 'Get_Away.':gt'street'
	 exit
	 end
if cumface > 0:
	 '<center><img src="pic/cumface.jpg" ></center>'
	 '<<$boyA>> looked at you and said "What have you got stuck in her hair? This is, sperm?"'
	 if izvrat = 1:
		 set bfa = bfa + 5
		 set DOM = DOM + 1
		 '<<$boyA>> blushed and lowered his eyes, you clearly see how he formed a mound on the trousers.'
		 act 'Yes, still have questions?':
			 cla
			 gs'stat'
			 '(Do_You) - Yes, still have questions?'
			 '<<$boyA>> shook his head.'
			 xgt'meet','a'
			 end
		 exit
		 else
		 set boya = 0
		 '<<$boyA>> angry you threw myself "Oh! get_out, that I did not see you anymore, all we had done for!"'
		 act 'Get_Away.':gt'street'
		 exit
		 end
	 end
end

if $ARGS[0]='a':
if financeA = 0:
	 if glamur = 1:
		 set bfa = bfa - (harakBoyA + 1)
		 '"And you dress smartly" skeptical noticed <<$boyA>> looking at your expensive dress.'
		 end
	 if skirt = 1 or sport = 1:
		 set bfa = bfa + (harakBoyA + 1)
		 '"cool outfit" noticed <<$boyA>>'
		 end
	 set mesorand = RAND (0,1)
	 if mesorand = 0:
		 '<<$boyA>> offered you a beer at the entrance.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'podezdM','start'
		 exit
		 end
	 if mesorand = 1:
		 '<<$boyA>> suggest you take a walk in the park.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'parkM','start'
		 exit
		 end
	 end
if cumfrot > 0:
	 '"hey, but what are you smeared?" asked <<$boyA>> looking at your ass. "The same sperm!"'
	 if izvrat = 1:
		 set bfa = bfa + 5
		 set DOM = DOM + 1
		 '<<$boyA>> blushed and lowered his eyes, you clearly see how he formed a mound on the trousers.'
		 else
		 set bfa = 0
		 '<<$boyA>> angry you threw myself "Oh! get_out, that I did not see you anymore, all we had done for!"'
		 act 'Get_Away.':gt'street'
		 exit
		 end
	 end
if financeA = 1:
	 if glamur = 1 or skirt = 1:
		 set bfa = bfa - (harakBoyA + 1)
		 '"excellent wear" admiringly noticed <<$boyA>>.'
		 end
	 if sport = 1:
		 set bfa = bfa - (harakBoyA + 1)
		 '"Are you athletic girl" skeptical noticed <<$boyA>> looking at your clothes.'
		 end
	 set mesorand = RAND (0,2)
	 if mesorand = 0:
		 '<<$boyA>> suggest you go to the movies.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'kinoM','start'
		 exit
		 end
	 if mesorand = 1:
		 '<<$boyA>> suggest you take a walk in the park.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'parkM','start'
		 exit
		 end
	 if mesorand = 2:
		 '<<$boyA>> suggested that you sit in a cafe.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'kafeM','start'
		 exit
		 end
	 end
if financeA = 2:
	 if glamur = 1:
		 set bfa = bfa + (harakBoyA + 1)
		 '"You have excellent taste in clothes" admiringly noticed <<$boyA>> looking at your expensive dress.'
		 end
	 if glamur = 0:
		 set bfa = bfa - (harakBoyA + 1)
		 '"cute naryadets" skeptical noticed <<$boyA>> looking at your sleek clothes.'
		 end
	 set mesorand = RAND (0,1)
	 if mesorand = 0:
		 '<<$boyA>> suggest you go to the cafe.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'kafeM','start'
		 exit
		 end
	 if mesorand = 1:
		 '<<$boyA>> suggest you go to a restaurant.'
		 act 'Sorry, but I urgently need to run.':
			 cla
			 set bfa = bfa - (harakBoyA + 1)
			 gt'street'
			 end
		 act 'Let`S_Go.':gt'restoranM','start'
         exit
         end
     end
end
--- meet ---------------------------------

# restoranM
if $ARGS[0]='start':
set minut = minut + 30
'You`ve come to the restaurant and sat at a table. <<$boyA>> ordered the waiter food and good wine. You have to wait when you bring food.'
     if dayA > 15 and harakBoyA = 2:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 1:gs'boylove','tits'
	 if dayA > 25 and harakBoyA = 0:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 2:gs'boylove','figure'
	 if dayA > 25 and harakBoyA = 1:gs'boylove','figure'
	 if dayA > 30 and harakBoyA = 0:gs'boylove','figure'
	 gs'anekdot'
	 '<<$boyA>> anecdote tells you "<<$anek>>".'
	 
	 act 'laugh.':
     cla
     set SUB = SUB + 1
     set bfa = bfa + 1
     xgt'restoranM','a'
     end
     
     act 'smile.':
     cla
     !set bfa = bfa - 1
     xgt'restoranM','a'
     end
     
     act 'not funny.':
     cla
     set DOM = DOM + 1
     set bfa = bfa - 1
     xgt'restoranM','a'
     end
end

if $ARGS[0]='a':
set minut = minut + 30
set fat = fat + 1

'Finally. <<$boyA>> pour you wine and proposed a toast to love.'

     act 'Is_There.':
     cla
     xgt'restoranM','b'
     end
end

if $ARGS[0]='b':
set minut = minut + 30
set fat = fat + 1
	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 
	 if energy < 20:
	 set energy = energy +20
	 set fat = fat + 1
	 'You gladly ate food.'
	 end
	 
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
alko+=2
gs'stat'
'After some time <<$boyA>> offered to accompany you.'

act 'home.':gt'sexm','start'
end













--- restoranM ---------------------------------

# kafeM
if $ARGS[0]='start':
set minut = minut + 30
'You`ve come to the cafe and sat at a table. <<$boyA>> ordered the waiter food and wine. You have to wait when you bring food.'
     if dayA > 15 and harakBoyA = 2:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 1:gs'boylove','tits'
	 if dayA > 25 and harakBoyA = 0:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 2:gs'boylove','figure'
	 if dayA > 25 and harakBoyA = 1:gs'boylove','figure'
	 if dayA > 30 and harakBoyA = 0:gs'boylove','figure'
	 gs'anekdot'
	 '<<$boyA>> anecdote tells you "<<$anek>>".'
	 
	 act 'laugh.':
     cla
     set SUB = SUB + 1
     set bfa = bfa + 1
     xgt'kafeM','a'
     end
     
     act 'smile.':
     cla
     xgt'kafeM','a'
     end
     
     act 'not funny.':
     cla
     set DOM = DOM + 1
     set bfa = bfa - 1
     xgt'kafeM','a'
     end
end

if $ARGS[0]='a':
set minut = minut + 30
set fat = fat + 1
'Finally. <<$boyA>> pour you wine and proposed a toast to you.'
     act 'Is_There.':
     cla
     xgt'kafeM','b'
     end
end

if $ARGS[0]='b':
set minut = minut + 30
set fat = fat + 1
	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 
	 if energy < 20:
	 set energy = energy +20
	 set fat = fat + 1
	 'You gladly ate food.'
	 end
	 
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
alko+=2
gs'stat'
'The cafГ© and the music started <<$boyA>> offered to dance.'
	 act 'dance.':
     cla
     set bfa = bfa + 1
     xgt'kafeM','dance'
     end
     
     act 'Opt_Out.':
     cla
     set bfa = bfa - 1
     xgt'kafeM','end'
     end
end

if $ARGS[0]='dance':
set minut = minut + 5
'<center><img src="pic/dance.jpg" ></center>'
'You went out with a guy on the dance floor and <<$boyA>> hug you, then you started to dance together.'
     if harakBoyA = 0:
     '<<$boyA>> very correct in dance, he hugs you and frankly shy.'
		 act 'finish dance.':
		 cla
		 set bfa = bfa + 1
		 xgt'kafeM','end'
		 end
     end
     if harakBoyA = 1:
     '<<$boyA>> very confident will lead you to the dance.'
		 act 'finish dance.':
		 cla
		 set bfa = bfa + 1
		 xgt'kafeM','end'
		 end
     end
     if harakBoyA = 2:
     '<<$boyA>> grabs your ass while dancing and pressed to you, you feel through the fabric, his hard cock rests on your stomach.'
     'He whispers to you, go to the toilet.'
		 act 'finish dance.':
		 cla
		 set bfa = bfa + 1
		 xgt'kafeM','end'
		 end
		 
		 act 'Go to the toilet.':xgt'kafeM','tualet'
     end

end

if $ARGS[0]='tualet':
set minut = minut + 30
set horny = horny + 10
'<<$boyA>> dragged you to the bathroom and began to knead already open your chest and you climb between her legs.'
act 'do blowjob.':gt'kafeM','bj'
act 'Bend over the toilet.':gt'kafeM','sex'
end

if $ARGS[0]='sex':
*clr
gs'brosok'
 set sex = sex + 1
 sexa+=1
 set vagina = vagina + 1
 set horny = horny + SUB
 set bfa = bfa + 2
 '<center><img src="picVA/kafe.jpg" ></center>'
 'You got his cock out of his pants and masturbate him to start, <<$boyA>> took out a condom and put on the penis, Then he made вЂ‹вЂ‹you cancer over the toilet and stabbed in your quivering pussy a <<$dick>> inch dick.'
 
     if horny >= 90:
     set horny = 0
     set manna = manna + 15
     set willpower = willpower + 15
     set orgasm = orgasm + 1
     'You feel like something is growing inside of you and all of your bottom turned into a blazing fire pleasant fire, a minute later smooth movements on the penis you had to plug his mouth by hand, that would not scream of orgasm.'
     end
 'soon <<$boyA>> broke down and finished in a condom.'
  
     act 'further.':gt'kafeM','end'
end

if $ARGS[0]='bj':
*clr
gs'brosok'
 set bj = bj + 1
 bja+=1
set swallow = swallow + 1
set cumlip = cumlip + 1
 set horny = horny + SUB
 set bfa = bfa + 2
 '<center><img src="picVA/kafe1.jpg" ></center>'
 'You got his cock out of his pants and masturbate him to start, then sat down in front of him and clasped his lips began to slowly suck it <<$dick>> inch dick in the toilet.'
 'soon <<$boyA>> broke down and finished in your mouth, stuffed it with his tart sperm, you swallow sperm, but it still poured out of your mouth and ran down her lips and chin.'
 'You faithfully looked into the eyes of a guy with his semen smeared face.'
  
     act 'further.':gt'kafeM','end'
end


if $ARGS[0]='end':
set minut = minut + 30

'<<$boyA>> offered to accompany you.'

act 'home.':gt'sexm','start'
end
--- kafeM ---------------------------------

# parkM
if $ARGS[0]='start':
set minut = minut + 30
'You leisurely stroll in the park.'
     if dayA > 15 and harakBoyA = 2:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 1:gs'boylove','tits'
	 if dayA > 25 and harakBoyA = 0:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 2:gs'boylove','figure'
	 if dayA > 25 and harakBoyA = 1:gs'boylove','figure'
	 if dayA > 30 and harakBoyA = 0:gs'boylove','figure'
	 gs'anekdot'
	 '<<$boyA>> anecdote tells you "<<$anek>>".'
	 
	 act 'laugh.':
     cla
     set SUB = SUB + 1
     set bfa = bfa + 1
     xgt'parkM','a'
     end
     
     act 'smile.':
     cla
     xgt'parkM','a'
     end
     
     act 'not funny.':
     cla
     set DOM = DOM + 1
     set bfa = bfa - 1
     xgt'parkM','a'
     end
end

if $ARGS[0]='a':

     if harakBoyA = 0:
     gs'stihi'
     '<<$boyA>> read your poems <<$stihi>>.'
     act 'further.':gt'parkM','aa'
     end
     if harakBoyA = 1:
     '<<$boyA>> took you by the hand and you are walking through the deserted dimensional paths of the park.'
     act 'further.':gt'parkM','aa'
     end
     if harakBoyA = 2:
     '<<$boyA>> stopped and took you by the waist hugged. "You cool Devchenka." he said.'
     act 'kiss.':gt'parkM','kiss'
		 act 'Step_back.':
		 cla
		 set DOM = DOM + 1
         set bfa = bfa - 1
		 'You have removed a person from a kiss, <<$boyA>> does not look happy "Fair_Enough, Svetsik, went on a walk as pioneers."'
		 act 'further.':gt'parkM','aa'
		 end
     end
end

if $ARGS[0]='kiss':
set minut = minut + 15
set bfa = bfa + 1
set horny = horny + 5
'<<$boyA>> kisses you and you feel, his hand grabs your ass and begins to knead her. You a little excite him touch, <<$boyA>> takes you by the hand and dragged into the bushes.'
	 act 'Stop.':
	 cla
	 set DOM = DOM + 1
     set bfa = bfa - 1
	 'You pulled his hand out of his hands, <<$boyA>> does not look happy "Fair_Enough, Svetsik, went on a walk as pioneers."'
	 act 'further.':gt'parkM','aa'
	 end
	 
     act 'Go to guy.':gt'parkM','sexrand'
end

if $ARGS[0]='sexrand':
clr
*clr
set minut = minut + 15
set bfa = bfa + 1
set horny = horny + 15
clr
gs'stat'
'<center><img src="picVA/park.jpg" ></center>'
'<<$boyA>> you dragged into the bushes and exposing your breasts started to lick her. It is very nice and you eyes closed immersed in what is bliss. <<$boyA>> stands in front of you on the knee and stretches your pussy.'
	 act 'Stop.':
	 cla
	 set DOM = DOM + 1
     set bfa = bfa - 1
	 'You jumped aside and covered breasts, <<$boyA>> does not look happy "Fair_Enough, Svetsik, went on a walk as pioneers."'
	 act 'further.':gt'parkM','aa'
	 end
	 
     act 'allow.':gt'parkM','sexrand1'
end

if $ARGS[0]='sexrand1':
clr
*clr
set minut = minut + 15
set bfa = bfa + 1
set horny = horny + 20
clr
gs'stat'
'<center><img src="picVA/park1.jpg" ></center>'
'<<$boyA>> bared your pussy and began to caress her hand, then gently, then increasing the tempo, you are very very exciting, your pussy wet and aching requiring fill yourself. <<$boyA>> whispers to you "Suck me!"'
	 act 'We can not do it here.':
	 cla
	 set DOM = DOM + 1
     set bfa = bfa - 1
	 'You recoiled from the guy and began to dress, <<$boyA>> does not look happy "Fair_Enough, Svetsik, went on a walk as pioneers."'
	 act 'further.':gt'parkM','aa'
	 end
	 
     act 'Kneel.':gt'parkM','sexrand2'
end

if $ARGS[0]='sexrand2':
clr
*clr
set minut = minut + 15
set bfa = bfa + 1
set horny = horny + 5
set bj = bj + 1
bja+=1
gs'brosok'
clr
gs'stat'
'<center><img src="picVA/park2.jpg" ></center>'
'You knelt in front of a guy and <<$boyA>> buried his in your face sticking its <<dickA>> inch dick. You wrapped around his lips and began to suck.'
'A few minutes later <<$boyA>> told you, "Babe, if you so will continue, I finish. Let`s have sex!"'

     act 'continue to suck.':gt'parkM','sexrand3'
     act 'sex.':gt'parkM','sexrand4'
end

if $ARGS[0]='sexrand3':
clr
*clr
set minut = minut + 15
set bfa = bfa + 1
set horny = horny + 5
set cumlip = cumlip + 1
set swallow = swallow + 1
clr
gs'stat'
'<center><img src="picVA/park3.jpg" ></center>'
'You continued enthusiastically sucking dick and <<$boyA>> uttering a groan zdavlenny pulled you into his mouth a flood of vigorous and burning semen.'
'You choking swallow it, but she did not want to umeschatsya in your mouths and poured out of him spreading his chin.'
'<<$boyA>> got stuffed with cock from your mouth and ending with his trousers tucked, helped you climb and then said goodbye and left promising to call you.'
     act 'Get_Away.':gt'park','start'
end

if $ARGS[0]='sexrand4':
clr
*clr
set minut = minut + 15
set sex = sex + 1
sexa+=1
clr
gs'stat'
'<center><img src="picVA/park4.jpg" ></center>'
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<<$boyA>> oncTawil you on your feet and bowed you put his hands on the ground.'
gs'orgazm','start' 
act 'Get_Away.':gt'park','start'
end

if $ARGS[0]='aa':
set minut = minut + 30
'After strolling for an hour <<$boyA>> offered to accompany you.'

act 'home.':gt'sexm','start'
end
--- parkM ---------------------------------

# kinoM
if $ARGS[0]='start':
set minut = minut + 30
'You`ve come to the cinema. <<$boyA>> bought two tickets on the back row.'
     if dayA > 15 and harakBoyA = 2:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 1:gs'boylove','tits'
	 if dayA > 25 and harakBoyA = 0:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 2:gs'boylove','figure'
	 if dayA > 25 and harakBoyA = 1:gs'boylove','figure'
	 if dayA > 30 and harakBoyA = 0:gs'boylove','figure'
	 gs'anekdot'
	 'While you wait for the session <<$boyA>> anecdote tells you "<<$anek>>".'
	 
	 act 'laugh.':
     cla
     set SUB = SUB + 1
     set bfa = bfa + 1
     xgt'kinoM','a'
     end
     
     act 'smile.':
     cla
     xgt'kinoM','a'
     end
     
     act 'not funny.':
     cla
     set DOM = DOM + 1
     set bfa = bfa - 3
     xgt'kinoM','a'
     end
end

if $ARGS[0]='a':
*clr
set minut = minut + 90
set fat = fat + 2
'<center><img src="pic/kino.jpg" ></center>'
'Finally started the session. you and <<$boyA>> went into the room, found their seats and sat on comfortable chairs. <<$boyA>> put a large jar of popcorn on his knees and began to eat it .'

     if harakBoyA < 2:
		 act 'Hug his hand.':
		 cla
		 set bfa = bfa + 1
		 'You hugged his hand and he kissed you, after that and spent the whole session holding hands.'
		 xgt'kinoM','b'
		 end
     end
     if harakBoyA = 2:
		 act 'Hug his hand.':
		 cla
		 set bfa = bfa + 1
		 'You hugged his hand and he kissed you, then his hand began obschupyvat your knee, <<$boyA>> whispered to you, Babe, i want you.'
		 act 'Remove his hand and watch movies.':xgt'kinoM','b'
		 act 'masturbate.':gt'kinoM','hj'
		 act 'suck.':gt'kinoM','bj'
		 act 'Sit down on his cock.':gt'kinoM','sex'
		 end
     end
     
     act 'watch movies.':
     cla
     set bfa = bfa - 1
     set intel = intel + 1
     'Movie turned out interesting and you spent the whole session without interrupting the movie.'
     xgt'kinoM','b'
     end
end

if $ARGS[0]='sex':
*clr
gs'brosok'
 set sex = sex + 1
 sexa+=1
 set vagina = vagina + 1
 set horny = horny + SUB
 set bfa = bfa + 2
 '<center><img src="picVA/sinema.jpg" ></center>'
 'You got his cock out of his pants and masturbate him to start, <<$boyA>> took out a condom and put on the penis, Then you got on <<$dick>> inch of his dick wet pussy and began to move slowly in the dark hall of audience.'
     if horny >= 90:
     set horny = 0
     set manna = manna + 15
     set willpower = willpower + 15
     set orgasm = orgasm + 1
     'You feel like something is growing inside of you and all of your bottom turned into a blazing fire pleasant fire, a minute later smooth movements on the penis you had to plug his mouth by hand, that would not have to scream to the whole room from orgasm.'
     end
 'soon <<$boyA>> broke down and finished in a condom.'
  
     act 'further.':gt'kinoM','b'
end

if $ARGS[0]='bj':
*clr
gs'brosok'
 set bj = bj + 1
 bja+=1
set swallow = swallow + 1
set cumlip = cumlip + 1
 set horny = horny + SUB
 set bfa = bfa + 2
 '<center><img src="picVA/sinema1.jpg" ></center>'
 'You got his cock out of his pants and masturbate him to start, Then he leaned over him and clasped his lips began to slowly suck it <<$dick>> inch dick in a dark room viewers.'
 'soon <<$boyA>> broke down and finished in your mouth, you tried to swallow all the sperm, as spit still nowhere.'
  
     act 'further.':gt'kinoM','b'
end

if $ARGS[0]='hj':
*clr
 gs'brosok'
 set hj = hj + 1
 hja+=1
 set horny = horny + SUB
 set bfa = bfa + 1
 '<center><img src="picVA/sinema2.jpg" ></center>'
 'You got his cock out of his pants and began to caress his hands in a dark room viewers.'
 'Soon, You wiped them on a handkerchief.'
	 
     act 'further.':gt'kinoM','b'
end


if $ARGS[0]='b':
set minut = minut + 30
set fat = fat + 1
'The session ended, in the theater lights came on and the people went to the exit, <<$boyA>> offered to accompany you.'

act 'home.':gt'sexm','start'
end
--- kinoM ---------------------------------

# podezdM
if $ARGS[0]='start':
set minut = minut + 15
'<<$boyA>> said "Let`s go to the kiosk, pivasika buy"'

     act 'go embracing.':
     cla
         if harakBoyA = 0:set bfa = bfa + 2
		 if harakBoyA = 1:set bfa = bfa + 1
		 if harakBoyA = 2:set bfa = bfa - 1
     '<center><img src="pic/boygo.jpg" ></center>'
     'You go up to the kiosk embracing, over_there <<$boyA>> buys beer and chips and you go to the nearest entrance.'
     gt'podezdM','kiosk'
     end

     act 'Go hand in hand.':
     cla
         if harakBoyA = 0:set bfa = bfa + 1
		 if harakBoyA = 1:set bfa = bfa + 2
		 if harakBoyA = 2:set bfa = bfa - 1
     '<center><img src="pic/boygo1.jpg" ></center>'
     'You go hand in hand to stall, over_there <<$boyA>> buys beer and chips and you go to the nearest entrance.'
     gt'podezdM','kiosk'
     end
     
     act 'go next.':
     cla
         if harakBoyA = 0:set bfa = bfa - 1
		 if harakBoyA = 1:set bfa = bfa + 1
		 if harakBoyA = 2:set bfa = bfa + 2
     '<center><img src="pic/boygo2.jpg" ></center>'
     'You go up to the kiosk, over_there <<$boyA>> buys beer and chips and you go to the nearest entrance.'
     gt'podezdM','kiosk'
     end

end

if $ARGS[0]='kiosk':
cla
*clr
set minut = minut + 30
set fat = fat + 1
set manna = manna + 10
set willpower = willpower + 10
'<center><img src="pic/podezdM.jpg" ></center>'
'At the entrance you guy opens a bottle of beer and delivers it to you.'
set podrand = RAND (5,100)

     act 'drink a little.':
     cla
	 alko+=1
	 gs'stat'
         if podrand < 9:
         xgt'podezdM','kiosk1'
         end
         if podrand >= 9:
         gt'podezdM','grup'
         end
     end
     
     act 'drink a bottle.':
     cla
     alko+=2
	 gs'stat'
     set fat = fat + 1
	 set manna = manna + 10
	 set willpower = willpower + 10
         if podrand < 9:
         gt'podezdM','kiosk1'
         end
         if podrand >= 9:
         gt'podezdM','grup'
         end
     end

end

if $ARGS[0]='kiosk1':
cla
*clr
     if dayA > 15 and harakBoyA = 2:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 1:gs'boylove','tits'
	 if dayA > 25 and harakBoyA = 0:gs'boylove','tits'
	 if dayA > 20 and harakBoyA = 2:gs'boylove','figure'
	 if dayA > 25 and harakBoyA = 1:gs'boylove','figure'
	 if dayA > 30 and harakBoyA = 0:gs'boylove','figure'
	 gs'anekdot'
	 '<<$boyA>> drinking beer and telling you anecdote "<<$anek>>".'
	 
	 act 'laugh.':
     cla
     set SUB = SUB + 1
     set bfa = bfa + 1
     gt'podezdM','kiosk2'
     end
     
     act 'smile.':
     cla
     gt'podezdM','kiosk2'
     end
     
     act 'not funny.':
     cla
     set DOM = DOM + 1
     set bfa = bfa - 1
     gt'podezdM','kiosk2'
     end
end

if $ARGS[0]='kiosk2':
cla
*clr
	 if harakBoyA = 0:
	     if daya < 20 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if daya >= 20 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if boyonceA = 1:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	 end
	 if harakBoyA = 1:
	     if daya < 10 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if daya >= 10 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if boyonceA = 1:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	 end
	 if harakBoyA = 2 and izvrat = 0:
	     if daya < 3 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if daya >= 3 and boyonceA = 0:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     if boyonceA = 1:
	     '<<$boyA>> drank beer and offered to take you home.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	 end
	 if harakBoyA = 2 and izvrat = 1:
	     if daya < 3 and boyonceA = 0:
	     '<<$boyA>> finished his beer and threw the bottle said to you. "Svetsik, you`re so juicy, i want you!" With these words he came up to you and hugged her waist dug its lips in your, penetrated his tongue in your mouth.'
	         act 'break_Away.':
	         cla
	         'You broke out of his grip of, and that he has told you "Well you break, You want to do this myself."'
	             act 'Fuck you!.':
	             cla
	             set DOM = DOM + 1
	             set bfA = 0
	             gt'street'
	             end
	             
	             act 'kiss.':
				 cla
				 '<<$boyA>> kisses you and his hands down to your waist on her ass and tight squeeze.'
				 gt'sexm','startPod'
				 end
	         end
	         
	         act 'kiss.':
	         cla
	         set SUB = SUB + 1
	         '<<$boyA>> kisses you and his hands down to your waist on her ass and tight squeeze.'
             gt'sexm','startPod'
             end
	     exit
	     end
	     
	     if daya >= 3 and boyonceA = 0:
	     '<<$boyA>> drank beer and suggested we go to your house and fuck you in all the cracks.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	     
	     if boyonceA = 1:
	     '<<$boyA>> drank beer and suggested we go to your house and fuck you in all the cracks.'
	     act 'To go along with the guy to her house.':gt'sexm','start'
	     exit
	     end
	 end

end

if $ARGS[0]='grup':
cla
*clr
'<center><img src="pic/podezdM1.jpg" ></center>'
'In the entrance includes a couple of guys, they came to your guy and greeted him. Guys have brought vodka and snacks.'
     act 'refuse to drink.':
     cla
         if harakBoyA = 0:set bfa = bfa + 1
		 if harakBoyA = 1:set bfa = bfa - 1
		 if harakBoyA = 2:set bfa = bfa - 2
     gt'podezdM','grup1'
     end
     
     act 'drink a little.':
     cla
     alko+=1
	 gs'stat'
         if harakBoyA = 0:set bfa = bfa + 1
		 if harakBoyA = 1:set bfa = bfa + 2
		 if harakBoyA = 2:set bfa = bfa + 1
     gt'podezdM','grup1'
     end
     
     act 'Thump with the guys.':
     cla
     alko+=2
	 gs'stat'
         if harakBoy = 0:set bfa = bfa - 1
		 if harakBoy = 1:set bfa = bfa + 1
		 if harakBoy = 2:set bfa = bfa + 2
     set fat = fat + 1
	 set manna = manna + 10
	 set willpower = willpower + 10
     gt'podezdM','grup2'
     end
end

if $ARGS[0]='grup1':
cla
*clr
gs'stat'
'You tusite in the stairwell with the guys, they poison jokes, thumps and gogochut.'
'<<$boyA>> drank beer and offered to take you home.'
	 act 'To go along with the guy to her house.':gt'sexm','start'
end

if $ARGS[0]='grup2':
cla
*clr
gs'stat'
'You nakiryalis hard floor and floats beneath your feet, one of the guys you embraced by the waist, that you would not have fallen.'
'Another man guffawed and began to paw you for chest.'
     if harakBoyA = 0:
     '<<$boyA>> began to mumble "children, that you, not the same as!"'
     'At that drunken guys just laughed and began to pull off your clothes.'
     act 'resist.':gt'sexm','gangrape'
     act 'surrender.':gt'sexm','gangbang'
     exit
     end
     
     if harakBoyA = 1:
     '<<$boyA>> stood up and barked "hey, ohreneli you something? This is my heifer, removed his hands."'
     'Guys take a back seat and loosen the grip.'
     act 'To go along with the guy to her house.':gt'sexm','start'
     act 'Shut_Up, I myself decide with whom I sleep, Come here boys.':gt'sexm','gangbang'
     exit
     end
     
     if harakBoyA = 2 and izvrat = 0:
     '<<$boyA>> stood and silently broke a bottle over the head guy who you paw at his chest, man fell to the floor and groaned. <<$boyA>> quietly and confidently said "Even somebody wants?"'
     'Guys let you instantly and stepped aside.'
     act 'To go along with the guy to her house.':gt'sexm','start'
     act 'Or maybe all together..?':gt'sexm','gangbang'
     exit
     end
     
     if harakBoyA = 2 and izvrat = 1:
     '<<$boyA>> neigh "Let`s take this whore in a circle is empty!"'
     'Drunk guys were enthusiastic about the proposal and began pulling off your clothes.'
     act 'resist.':gt'sexm','gangrape'
     act 'surrender.':gt'sexm','gangbang'
     exit
     end
end










--- podezdM ---------------------------------

# sexm
if $ARGS[0]='start':
cla
*clr
if love = 0 and bfa >= 100 and daya >= 30 and husband = 0:
     act 'Talk about cohabitation.':gt'love','start'
	 end
'<<$boyA>> guide you to the entrance.'
if harakBoyA = 2:'Svetsik, can priglasish me in for a cup of coffee?'
if harakBoyA = 1:'Let me give you a kiss, beloved.'
if harakBoyA = 0:'While Light, I will wait for the moment when we meet again .'
act 'Kiss goodbye to':
	 cla
	 if boyonceA = 0:
		 if harakBoyA = 2:
			 if daya < 3:
				 set bfa = bfa + 1
				 '<<$boyA>> kisses you on the lips goodbye hands and squeezes your ass.'
				 end
			 if daya >= 3:
				 set bfa = bfa - 2
				 '<<$boyA>> kisses you on the lips and pulled away from the kiss mumbling irritably "Fair_Enough, as_long_as, dynamo."'
				 end
			 end
		 if harakBoyA = 1:
			 if daya < 10:
				 set bfa = bfa + 2
				 '<<$boyA>> kisses you on the lips goodbye tightly hugging your waist.'
				 end
			 if daya >= 10:
				 set bfa = bfa - 2
				 '<<$boyA>> kisses you on the lips goodbye and says goodbye "Long as we keep the pioneers of the handles?".'
				 end
			 end
		 if harakBoyA = 0:
			 if daya < 20:
				 set bfa = bfa + 3
				 '<<$boyA>> kisses you on the lips goodbye and gently hugs your waist.'
				 end
			 if daya >= 20:
				 set bfa = bfa - 1
				 '<<$boyA>> kisses you on the lips goodbye and broke away from the kiss looks at you big sad eyes.'
				 end
			 end
		 end
	 if boyonceA = 1:
		 if harakBoyA = 2:
			 if daya < 3:
				 set bfa = bfa - 2
				 '<<$boyA>> kisses you on the lips goodbye hands and squeezes your ass.'
				 end
			 if daya >= 3:
				 set bfa = bfa - 3
				 '<<$boyA>> kisses you on the lips and pulled away from the kiss mumbling irritably "What you do today you do not want sex?"'
				 end
			 end
		 if harakBoyA = 1:
			 if daya < 10:
				 set bfa = bfa - 1
				 '<<$boyA>> kisses you on the lips goodbye tightly hugging your waist.'
				 end
			 if daya >= 10:
				 set bfa = bfa - 2
				 '<<$boyA>> kisses you on the lips goodbye and says goodbye "Fair_Enough, live a day without sex.".'
				 end
			 end
		 if harakBoyA = 0:
			 if daya < 20:
				 set bfa = bfa + 1
				 '<<$boyA>> kisses you on the lips goodbye and gently hugs your waist.'
				 end
			 if daya >= 20:
				 set bfa = bfa - 1
				 '<<$boyA>> kisses you on the lips goodbye and broke away from the kiss looks at you big sad eyes.'
				 end
			 end
		 end
	 act 'Go to the apartment':gt'street'
	 end
act 'say_goodbye':
	 cla
	 if boyonceA = 0:
		 if harakBoyA = 2:
			 if daya < 3:
				 set bfa = bfa - 1
				 '<<$boyA>> slightly annoyed "Do not make yourself out holy innocence."'
				 end
			 if daya >= 3:
				 set bfa = bfa - 3
				 '<<$boyA>> irritated "So even you do not want to kiss? Well."'
				 end
			 end
		 if harakBoyA = 1:
			 if daya < 10:
				 set bfa = bfa + 1
				 '<<$boyA>> waved and walked out of the house.'
				 end
			 if daya >= 10:
				 set bfa = bfa - 2
				 '<<$boyA>> irritably waved your hand in farewell and walked quickly out of the door.'
				 end
			 end
		 if harakBoyA = 0:
			 if daya < 20:
				 set bfa = bfa + 2
				 '<<$boyA>> waving you goodbye and smiling.'
				 end
			 if daya >= 20:
				 set bfa = bfa - 1
				 '<<$boyA>> waving goodbye to you and looking at you big sad eyes.'
				 end
			 end
		 end
	 if boyonceA = 1:
		 if harakBoyA = 2:
			 if daya < 3:
				 set bfa = bfa - 2
				 '<<$boyA>> annoyed "Well?"'
				 end
			 if daya >= 3:
				 set bfa = bfa - 4
				 '<<$boyA>> furious "Brezguesh?"'
				 end
			 end
		 if harakBoyA = 1:
			 if daya < 10:
				 set bfa = bfa - 1
				 '<<$boyA>> waved and walked out of the house.'
				 end
			 if daya >= 10:
				 set bfa = bfa - 3
				 '<<$boyA>> irritably waved your hand in farewell and walked quickly out of the door.'
				 end
			 end
		 if harakBoyA = 0:
			 if daya < 20:
				 set bfa = bfa + 1
				 '<<$boyA>> waving you goodbye and smiling.'
				 end
			 if daya >= 20:
				 set bfa = bfa - 2
				 '<<$boyA>> waving goodbye to you and looking at you big sad eyes.'
				 end
			 end
		 end
	 act 'Go to the apartment':gt'street'
	 end
if husband=0:
	 act 'To invite':
		 cla
		 gt'sexm','room'
		 end
	 end
if husband>0:
	 if week<6 and hour<17 and hour>7:
		 act 'To invite':gt'sexm','room'
		 end
	 if week>5 or week<6 and hour>16:
		 act 'To say that the house husband and you can not.':
			 cla
			 if harakBoyA = 0:
				 set bfA = 0
				 '"what? you are married, you me obmannyvala, I love you so, adieu!" he shouted and ran away in tears.'
				 act 'Go to the apartment':gt'korr'
				 end
			 if harakBoyA = 1:
				 '"Well then, before the meeting, I `ll call you" he said.'
				 act 'Go to the apartment':gt'korr'
				 end
			 if harakBoyA = 2:
				 '"Husband is not a wall, may move up, and can lift the slightly higher, For example ?" he said, rather grinning.'
				 act 'Opt_Out':set bfa-=1&gt'korr'
				 act 'agree':
					 set bfa+=1
					 set boycherdaksex=1
					 gt'sexm','room'
					 end
				 end
			 end
		 end
	 end
end

!harakHusb>0

if $ARGS[0]='room':
if boycherdaksex=1:
	 '<center><img src="etogame/cherdak.jpg" ></center>'
	 'You are a man climbed into the attic.'
	 end
if boycherdaksex=0:
	 '<center><B><font color=maroon>bedroom</font></B></center>'
	 if rembedr = 0:'<center><img src="pic/bedr.jpg" ></center>'
	 if rembedr = 1:'<center><img src="pic/bedr2.jpg" ></center>'
	 'You took off his shoes and went with the guy in the bedroom.'
	 end
clr
set minut+=20
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if harakBoyA = 2:
	 '<<$boyA>> roughly grabs you and pulls you to your starting passionately kiss you and try to steal your clothes.'
	 set sexrand = RAND (0,3)
	 'finally <<$boyA>> won in an unequal battle with the straps of your bra and your profile.'
	 if boyonceA = 1:
		 if sexrand = 0:
			 '"Svetsik, I pine juicy huytsa."'
			 act 'do blowjob':
				 cla
				 set bfa = bfa + 3
				 gt'sexm','minet'
				 end
			 act 'I do not want, Let`s take another':gt'sexm','variant'
			 end
		 if sexrand = 1:
			 '"Svetsik, cup your ass."'
			 act 'anal':
				 cla
				 set bfa = bfa + 5
				 gt'sexm','anal'
				 end
			 act 'Oh nafig, Let`s take another':gt'sexm','variant'
			 end
		 if sexrand = 2:
			 '"Lie down and push the Svetsik Lyashko."'
			 act 'spread her legs':gt'sexm','miss'
			 act 'I do not want, Let`s take another':gt'sexm','variant'
			 end
		 if sexrand = 3:
			 '"Get up crustaceans Svetsik."'
			 act 'get cancer':gt'sexm','dog'
			 act 'I do not want, Let`s take another':gt'sexm','variant'
			 end
		 end
	 if boyonceA = 0:
		 '<<$boyA>> threw you on the bed and fixed his lips to your breast.'
		 act 'sex':gt'sexm','miss'
		 act 'I do not want, Let`s take another':gt'sexm','variant'
		 end
	 end
if harakBoyA = 1:
	 '<<$boyA>> gently hugs you and cuddle.'
	 set sexrand = RAND (0,3)
	 'You slowly undress and <<$boyA>> tells you, as you want, beloved.'
	 act 'I want so, how do you want.':
		 cla
		 if boyonceA = 1:
			 if sexrand = 0:
				 '"Svetulya, I suck."'
				 act 'do blowjob':
					 cla
					 set bfa = bfa + 2
					 gt'sexm','minet'
					 end
				 act 'I do not want, Let`s take another':gt'sexm','variant'
				 end
			 if sexrand = 1:
				 '"Svetulya, I want you in the ass."'
				 act 'anal':
					 cla
					 set bfa = bfa + 4
					 gt'sexm','anal'
					 end
				 act 'I do not want, Let`s take another':gt'sexm','variant'
				 end
			 if sexrand = 2:
				 '"Svetulya, i want you."'
				 act 'spread her legs':gt'sexm','miss'
				 act 'I do not want, Let`s take another':gt'sexm','variant'
				 end
			 if sexrand = 3:
				 '"Svetulya, Get up on all fours."'
				 act 'get cancer':gt'sexm','dog'
				 act 'I do not want, Let`s take another':gt'sexm','variant'
				 end
			 end
		 if boyonceA = 0:
			 '<<$boyA>> threw you on the bed and fixed his lips to your breast.'
			 act 'sex':gt'sexm','miss'
			 act 'I do not want, Let`s take another':gt'sexm','variant'
			 end
		 end
	 act 'propose options':gt'sexm','variant'
	 end
if harakBoyA = 0:
	 '<<$boyA>> shy and does not know, what to do.'
	 act 'propose options':gt'sexm','variant'
     end
end

if $ARGS[0]='variant':
if harakBoyA = 0:set bfa = bfa + 1
if harakBoyA = 2:set bfa = bfa - 1
'<<$boyA>> looks at you and waiting for what you say'
act 'spread her legs':gt'sexm','miss'
act 'get cancer':gt'sexm','dog'
act 'anal':gt'sexm','anal'
act 'do blowjob':gt'sexm','minet'
act 'masturbate him':gt'sexm','hand'
if kunday ! day:
	 act 'Cooney':gt'sexm','kuni'
	 end
if DOM > 0 and boyonceA = 1 and harakBoyA = 0 and izvratA = 1 and strapon > 0:
	 act 'Otstraponit':gt'sexm','strapon'
	 end
end

if $ARGS[0]='minet':
*clr
set popolaini=1
set bfA = bfA + 1
gs'brosok'
set bj = bj + 1
set bja+=1
set dick = dickA
set harakBoy = harakBoyA
set minut = minut + 30
set $nameV = $boyA
gs'stat'
'<center><img src="picV/bj.jpg" ></center>'
'<<$boyA>> as a member you spent on the lips.'
if bj = 1:'you think "Damn, I rolled, sit in front of a man, and he told me in the mouth by a dick pokes."'
gs'oral','start'
act 'continue to suck.':
	 cla
	 *clr
	 set swallow = swallow + 1
	 set cumlip = cumlip + 1
	 set bfa = bfa + 3
	 '<center><img src="picV/swallow.jpg" ></center>'
	 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally.'
	 act 'Get_Away.':gt'sexm','endsex'
	 end
act 'Remove the mouth.':
	 cla
	 *clr
	 if harakBoyA = 0:
		 '<center><img src="picV/hand.jpg" ></center>'
		 'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
		 end
	 if harakBoyA = 1:
		 set tiprand = RAND (0,3)
		 if tiprand < 3:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
			 end 
		 if tiprand = 3:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 set bfa = bfa + 1
			 '<center><img src="picV/facial.jpg" ></center>'
			 'Have you taken the member and at this point <<$boyA>> discharged directly on your face, covering it with warm and sticky sperm.'
			 end
		 end
	 if harakBoyA = 2:
		 set facial = facial + 1
		 set cumface = cumface + 1
		 set bfa = bfa + 1
		 '<center><img src="picV/facial.jpg" ></center>'
		 '<<$boyA>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
		 end
	 act 'Get_Away.':gt'sexm','endsex'
     end
end

if $ARGS[0]='hand':
*clr
set popolaini=1
gs'brosok'
set DOM = DOM + 1
set hj = hj + 1
set hja+=1
set minut = minut + 30
set horny = horny + DOM
gs'stat'
'<center><img src="picV/hand1.jpg" ></center>'
'You got it <<dick>> inch cock and began to caress her arms around his hands, moving the skin on purple head.'
'Soon, covering them with warm and sticky sperm.'
if harakBoyA = 0:set bfA = bfA - 1
if harakBoyA = 1:set bfA = bfA - 5
if harakBoyA = 2:set bfA = bfA - 10
act 'Wipe his hands and spend a Man -to-door.':gt'sexm','endsex'
end

if $ARGS[0]='kuni':
*clr
set kunday = day
gs'brosok'
set DOM = DOM + 1
set kuni = kuni + 1
set minut = minut + 30
set horny = horny + DOM + (silaVag*2 + 5)
gs'stat'
 '<center><img src="picV/kuni.jpg" ></center>'
 'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
 '<<$boyA>> lay down between your legs and began to work on your tongue pussy.'
	 if harakBoyA = 0:set bfA = bfA - 1
	 if harakBoyA = 1:set bfA = bfA - 5
	 if harakBoyA = 2:set bfA = bfA - 10
     if horny >= 90:
     set horny = 0
	 set manna = manna + 15
	 set willpower = willpower + 15
	 set orgasm = orgasm + 1
     'Man of skillful actions you covered orgasm.'
     else
     'Action Man though they were exciting, but they began to bore you.'
     end
     
	 act 'further.':
	 cla
	 if husband>0 and hour<17 and hour>7 and boycherdaksex=0:set popolaini=2&gt'sexm','popala'
	 gt'sexm','variant'
	 end
end

if $ARGS[0]='strapon':
*clr
gs'brosok'
 set DOM = DOM + 5
 set pegging = pegging + 1
 set minut = minut + 30
 set horny = horny + DOM
 gs'stat'
 '<center><img src="picV/pegging.jpg" ></center>'
 'You got out of the drawer and put it strapon. <<$boyA>> got cancer on the bed.'
 'Greased and lubricated anus guy stuck in a strap-on. While you fucked his ass and he moaned finally finished. You remove the strap from him and went to the bathroom.'
     set bfA = bfA + 5
     act 'Wipe his hands and spend a Man -to-door.':
     cla
	 gt'korr'
	 end
end


if $ARGS[0]='anal':
*clr
set popolaini=3
set bfA = bfA + 1
gs'brosok'
set minut+=30
gs'stat'
set anal = anal + 1
anala+=1
     if dickA < anus:set anus = anus + 1
     '<center><img src="picV/dog2.jpg" ></center>'
     if analplugin=1 :
         analpluginbonus = 10
         analplugin=0
         if anus < 16 : 
         '<<$boyA>> pulled out of your more narrow and tight ass plug, '
         end
         if anus >= 16 : 
         ' <<$boyA>>pulled out of your ass juices oozing feverish plug, ' 
         end
         'and you feel like hard cock ran into your hole.'
         if anus + analpluginbonus < dick:
	     'You screamed and bit his lip from a sharp pain when his <<dickA>> Member inch apart your ass you entered.'
	     end
	     if anus + analpluginbonus >= dick:
	     'You groaned feeling of fullness when it <<dickA>> Member inch apart your ass you entered.'
	     end
         'At_Last <<$boyA>> grabbed you stronger for the back and drove into your aching ass dick down to the eggs you finished inside.'
         cumass+=1
         set minut = minut + 3
         set cumanus = cumanus + 1
         if anus < dickA:set anus = anus + 1
         set horny = horny + ((anus-dickA)*3)
         if horny< 1 : set horny = 1
             if horny >=100 :
              horny  = 1
             set orgasm = orgasm + 1
             set analorgasm= analorgasm+1
             ' In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
             end
             act 'Hold up doors.':gt'sexm','endsex'
	 else :
     if lubri = 0:
     set lubonus = 2
     'Lubricant and you do not <<$boyA>> spitting on his fingers began to lubricate your ass saliva.'
     end
     if lubri > 0:
     set lubri = lubri - 1
     set lubonus = 10
     'You got out of the box with a tube of lubricant and handed him over to the guy, He choked a little on his palm and rubbed your anus.'
     end
'<<$boyA>> put your stomach on the bed apart and your buttocks began to massage your anus with your fingers, first one, then two.'
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$boyA>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
if anus + lubonus < dickA:
'You screamed and bit his lip from a sharp pain when his cock parted your ass you entered.'
end
if anus + lubonus >= dickA:
'You groaned feeling of fullness when his cock parted your ass you entered.'
end
'<<$boyA>> froze for a moment giving your ass adapt to sticking out of her term, then began to drive them all the more insistent.'
if anus + lubonus + 2 < dickA:
if mop > 1:set mop = 0
'You cry and sank his teeth into the pillow when <<dickA>> inch cock began to fuck your ass at full power.'
end
if anus + lubonus + 2 >= dickA:
'You started moaning rhythmically to the beat of limb movements inside you.'
end
'At_Last <<$boyA>> grabbed you stronger for the back and drove into your aching ass dick down to the eggs you finished inside.'
     if klismaday ! day:
     set bfA = bfA - 8
     '<<$boyA>> took out a member of your ass and see on your dick shit said, "Oban, Charlie and the Chocolate Factory, Babe, before anal enema should be done, but it is not hygienic to knead the clay by a dick."'
     end
     if klismaday = day:
     
             set cumanus = cumanus + 1
             if anus < dickA:set anus = anus + 1
             set horny = horny + ((anus-dickA)*3)
         
         if horny< 1 : set horny = 1
             if horny >=100 :
              horny  = 1
             set orgasm = orgasm + 1
             set analorgasm= analorgasm+1
             ' In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
             end
     
     set bfA = bfA + 5
     '<<$boyA>> took a member of you and kiss you went to the bathroom.'
     end
if anus < dick:set anus = anus + 1
	 act 'Hold up doors.':set lubonus = 0&gt'sexm','endsex'
	 end
end

if $ARGS[0]='miss':
*clr
set popolaini=3
set bfA = bfA + 1
gs'brosok'
set sex = sex + 1
sexa+=1
set minut = minut + 30
gs'stat'
set pose = 0
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<center><img src="picV/vag.jpg" ></center>'
'<<$boyA>> spread your legs and began to caress her fingers pussy.'
gs'orgazm','start'
	 act 'Hold up doors.':gt'sexm','endsex'
end

if $ARGS[0]='dog':
*clr
set popolaini=3
set bfA = bfA + 1
gs'brosok'
set sex = sex + 1
sexa+=1
set minut = minut + 30
gs'stat'
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<center><img src="picV/dog1.jpg" ></center>'
'<<$boyA>> oncTawil you cancer and spread your bread before you enter the.'
gs'orgazm','start'
	 act 'Hold up doors.':gt'sexm','endsex'
end

if $ARGS[0]='startPod':
set podrand = RAND (0,1)
     if podrand = 0:
     '<<$boyA>> whispered to you, Take in the mouth.'
         act 'Beat_It!':
	     cla
	     set DOM = DOM + 1
	     set bfA = 0
	     gt'street'
	     end
	     
	     act 'Stand on his heels':gt'sexm','blow'
     end
     if podrand = 1:
     '<<$boyA>> began to rip off your clothes.'
     	 act 'Beat_It!':
	     cla
	     set DOM = DOM + 1
	     set bfA = 0
	     gt'street'
	     end
	     
	     act 'get cancer':gt'sexm','doggy'
     end
end

if $ARGS[0]='doggy':
set bfA = bfA + 1
gs'brosok'
set sex = sex + 1
sexa+=1
set minut = minut + 30
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<center><img src="picV/dog.jpg" ></center>'
'<<$boyA>> oncTawil you cancer and spread your bread before you enter the.'
gs'orgazm','start'
	 act 'Correct clothes and go.':
	 cla
	 gt'street'
	 end
end

if $ARGS[0]='blow':
set minut = minut + 20
'You sat on his haunches and <<$boyA>> pulled out his penis.'
	 act 'Take by mouth':
	 cla
	 *clr
	 set bfA = bfA + 1
	 gs'brosok'
	 set bj = bj + 1
	 bja+=1
	 set dick = dickA
	 set harakBoy = harakBoyA
	 set minut = minut + 30
	 set $nameV = $boyA
	 '<center><img src="picV/bj.jpg" ></center>'
	 '<<$boyA>> as a member you spent on the lips.'
	 if bj = 1:'you think "Damn, I rolled, sit in front of a man, and he told me in the mouth by a dick pokes."'
	 gs'oral','start'
		 act 'continue to suck.':
		 cla
		 *clr
		 set swallow = swallow + 1
		 set cumlip = cumlip + 1
		 '<center><img src="picV/swallow.jpg" ></center>'
		 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally.'
			 act 'Get_Away.':
			 cla
			 gt'korr'
			 end
		 end
		 
		 act 'Remove the mouth.':
		 cla
		 *clr
			 if harakBoyA = 0:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
			 end
			 if harakBoyA = 1:
			 set tiprand = RAND (0,3)
				 if tiprand < 3:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and <<$boyA>> finished you in the palm.'
				 end 
				 if tiprand = 3:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 'Have you taken the member and at this point <<$boyA>> discharged directly on your face, covering it with warm and sticky sperm.'
				 end
			 end
			 if harakBoyA = 2:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 '<center><img src="picV/facial.jpg" ></center>'
			 '<<$boyA>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
			 end
		  
			 act 'Get_Away.':
			 cla
			 gt'korr'
			 end
	     end
     end
     
     act 'masturbate him':
	 cla
	 *clr
	 gs'brosok'
	 set DOM = DOM + 1
	 set hj = hj + 1
	 hja+=1
	 set minut = minut + 30
	 set horny = horny + DOM
	 '<center><img src="picV/hand1.jpg" ></center>'
	 'You got his cock and began to caress her arms around his hands.'
	 'Soon.'
	     if harakBoyA = 0:set bfA = bfA - 1
		 if harakBoyA = 1:set bfA = bfA - 5
		 if harakBoyA = 2:set bfA = bfA - 10
		 
	     act 'Wipe his hands and walk away.':
	     cla
		 gt'korr'
		 end
	 end
     
end


if $ARGS[0]='gangrape':
'You became escape and one of the guys hit you with his hand on the cheek with the words "Shut up slut thighs and Spreads! And that `ll blow ebalo now!"'
act 'obey.':gt'sexm','gangbang'
     act 'start a fight.':
     cla
     set $nameV = 'drunken mug'
	 !stats
	 set strenV = 100
	 set speedV = 20
	 set agilV = 10
	 set reactV = 10
	 set vitalV = 50
	 set intelV = 10
	 set willV = 10
	 !skills
	 set magikV = 100
	 set boxingV = 10
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*10 + magikV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
	 set program = 0
	 set gangrapeFight = 1
	 if spellavtoklon = 1:set klon = 3
	 if spellbefshild = 1:set defence = 500
	 gt'fight','start'
     end
end

if $ARGS[0]='gangbang':
'<center><img src="picV/gangbang.jpg" ></center>'
if izvrat = 1:
     set bfA = bfA + 5
     else
     set bfa = 0
     end
set minut = minut + 30
set gang = gang + 1
set guy = guy + 4
bj+=4
anal+=1
sex+=1
set cumface = cumface + 1
set cumlip = cumlip + 1
set facial = facial + 1
set vagina = vagina + 1
set anus = anus + 1
set throat = throat + 1
if mop > 1:set mop = 0
set SUB = SUB + 3
set horny = horny + SUB*10
'One of the guys live in the stairwell and you dragged into his apartment, there tore your clothes.'
'The boys undressed and put you on your knees substituting your peppers for maintenance. You obediently steel is processed mouth and hands like a real thick members mnogostanochnitsa.'
'One of the guys lay on the sofa and grab you by the waist and pulled up to his planted your pussy on his cock, you do not have time to come to his senses as your lips pressed against two wet from your saliva member.'
'Did you feel like your anus lubricated than cold and then there began to enter that something big and solid.'
     act 'moan.':
     cla
     *clr
     '<center><img src="picV/gangbang1.jpg" ></center>'
     'You groaned when you planted in the ass fat cock and started to fuck you in all holes.'
         if anus >= 10:
         set horny = horny + anus + SUB
         'Two members of the hammering you from behind, you feel like they rub through a thin barriers according blazing between the anus and the vagina sloshing. You with twice the enthusiasm handle two dick her lips swollen from work.'
         end
         if anus < 10:
         set horny = horny + (10 - anus)
         'From your eyes dripping tears from terrible pain, when hard cock ramming your ass and rubs through the thin stenochku with another member of your pussy.'
         end
         if horny >= 90:
		 set orgasm = orgasm + 1
		 'Sensation in the abdomen began to grow and soon your whole body as if struck current, you moan orgasm.'
		 end
	 'It seems the guys played enough with you and the person you decide to obkonchat. You have removed from the Member States and pointed to the floor.'
	     act 'Kneel.':
		 cla
		 *clr
		 '<center><img src="picV/gangbang2.jpg" ></center>'
		 'You humbly knelt before the guys, they surrounded you and started to cum on your face, covering it with adhesive, warm and fragrant sperm.'
		 'After the boys run out .'
		 	 act 'Get_Away.':
			 cla
			 gt'korr'
			 end
		 end
     end
end

if $ARGS[0]='popala':
cla
*clr
if popolaini=1:
	 '<center><img src="img/hasb/p0.jpg" ></center>'
	 'Once you have gathered to go to the bath to wash that appeared in the doorway as your husband, catches you kneeling in front of the entire semen omit terms.'
	 end
if popolaini=2:
	 '<center><img src="img/hasb/p5.jpg" ></center>'
	 'Once you have gathered to change the pose as her husband enters the room.'
	 end
if popolaini=2:
	 '<center><img src="img/hasb/p4.jpg" ></center>'
	 'Once you`ve acquired a taste for both the husband enters the room.'
	 end
if harakHusb = 0:
	 '"Dear happening here, Are you cheating on me" babbled <<$husName>> looking at you.
	 "<<$husName>> it`s not what you think, it`s just sex, no feelings, I love only you. It is for me nothing, come to me I`ll show you how much I love you." answer You, do not understand how you cann`t be such nonsense.'
	 if izvratH=0:
		 '"No, i quit, you betrayed our love." he faltered and ran out of the room almost crying.'
		 set husbizvradd=0
		 set husbharmin=0
		 set husbandMark=0
		 set husband=0
		 set divorced+=1
		 if harakBoyA = 0:
			 set bfA = 0
			 '"So you`re married, you me obmannyvala, I love you so, adieu!" your guy shouted and ran after her husband.'
			 act'Get_Away':gt'korr'
			 end
		 if harakBoyA = 1:
			 '"Well, I see you are not up to me, so I probably will go, but if you want I can and stay, comfort" said <<$boyA>>'
			 act'Let him go':gt'korr'
			 act'Let it remain':
				 set bfA+=1
				 set picrand=83
				 if popolaini=3:set picrand=84
				 xgt 'sex','var'
				 end
			 end
		 if harakBoyA = 2:
			 '"Here is the number of, Well, and I once again ready, let`s continue, let this wimp fells" said <<$boyA>>, clearly intending to continue the evening.'
			 act'Opt_Out':set bfA-=1&gt'korr'
			 act'carry_On':
				 set bfA+=2
				 set picrand=83
				 if popolaini=3:set picrand=84
				 xgt 'sex','var'
				 end
			 end
		 end
	 if izvratH=1:
		 '"Do you really love me only." asked <<$husName>>.
		 "Yes_I_Am, only you, come to me I sbelayu you everything that made вЂ‹вЂ‹him, but it will be with love and you will understand what is the difference" answer You, without ceasing to be amazed as he believes in this nonsense. <<$husName>> came up to you and you unbuttoned his pants got dick.'
		 if harakBoyA = 0:
			 set bfA = 0
			 set husbizvradd=0
			 set husbharmin=0
			 set husbandMark=0
			 set husband=0
			 set divorced+=1
			 '"So you`re married, you me obmannyvala, I love you so, You despicable liar, adieu!" your guy shouted and ran out of the room.'
			 '"He`s right you`re a liar, and you are not worthy of me, you fallen woman, I do not want you vidit" burst into tears and ran out of your husband in the wake of Man.'
			 act'Get_Away':gt'korr'
			 end
		 if harakBoyA = 1:
			 '<<$boyA>> stood and looked like you were aspirated husband "Well, so you can not compare, let you enter into it, I `ll give her mouth only then will compare with" he said.
			 "And let`s." brightened <<$husName>> "Dear lie down on the bed"'
			 act'lie_Down':
				 cla
				 *clr
				 set houseslut+=1
				 '<center><img src="img/hasb/p1.jpg" ></center>'
				 'You lay down on the bed and <<$husName>> you entered into the vagina, and <<$boyA>> lay down in front of you substitute member to the mouth. You diligently podmahivat husband do not forget to meet her lover mouth.
				 "Or maybe try a different, that would say so check in all positions and be uverrenymi to the end." again proposed <<$boyA>>, and her husband agreed.'
				 act'carry_On':
					 set bfA+=1
					 if popolaini=1:set picrand=40
					 if popolaini=2:set picrand=41
					 if popolaini=3:set picrand=42
					 xgt 'sexdvoe','var'
					 end
				 end
			 end
		 if harakBoyA = 2:
			 '"That`s right , and even better Poimena her ass, and I will be in her mouth dryuchit, See how she ass can show your love, or not" said <<$boyA>>, clearly podnachivaya your husband.
			 "Yes_I_Am, Come to bed, see how you are going to love her ass" said <<$husName>>.'
			 act'lie_Down':
				 cla
				 *clr
				 set houseslut+=1
				 '<center><img src="img/hasb/p2.jpg" ></center>'
				 'You lay down on the bed and <<$husName>> you entered into the anus, and <<$boyA>> lay down in front of you substitute member to the mouth. You diligently podmahivat husband trying to put her ass on his cock to the hilt, not forgetting to meet the lover mouth.
				 "Now let`s change, let show your love to your member, is removed from her ass, mouth." again proposed <<$boyA>>, and her husband agreed.'
				 act'carry_On':
					 set bfA+=1
					 if popolaini=2:set picrand=41
					 if popolaini=1:set picrand=40
					 if popolaini=3:set picrand=42
					 xgt 'sexdvoe','var'
					 end
				 end
			 end
		 end
	 end
if harakHusb = 1:
	 set husbizvradd=0
	 set husbharmin=0
	 set husbandMark=0
	 set husband=0
	 set divorced+=1
	 '"What is this crap going on here" said <<$husName>> looking at you.
	 "<<$husName>> it`s not what you think, it`s just sex, no feelings, I love only you. It is for me nothing, come to me I`ll show you how much I love you." answer You, do not understand how you cann`t be such nonsense.'
	 if izvratH=0:
		 '"You do ohrenela slut, what love. you fuckin ` with everyone, and I can see if she likes, Come thou forest slut." he said and left the room.'
		 if harakBoyA = 0:
			 set bfA = 0
			 '"So you`re married, you me obmannyvala, I love you so, adieu!" your guy shouted and ran out of the room.'
			 act'Get_Away':gt'korr'
			 end
		 if harakBoyA = 1:
			 '"Well, I see you are not up to me, so I probably will go, but if you want I can and stay, comfort" said <<$boyA>>'
			 act'Let him go':gt'korr'
			 act'Let it remain':
				 set bfA+=1
				 set picrand=83
				 if popolaini=3:set picrand=84
				 xgt 'sex','var'
				 end
			 end
		 if harakBoyA = 2:
			 '"Here is the number of, but oh well hubby dumped, and I once again ready, let`s continue, let this cuckold is shoals horns knocks" said <<$boyA>>, clearly intending to continue the evening.'
			 act'Opt_Out':set bfA-=1&gt'korr'
			 act'carry_On':
				 set bfA+=2
				 set picrand=83
				 if popolaini=3:set picrand=84
				 xgt 'sex','var'
				 end
			 end
		 end
	 if izvratH=1:
		 set bfA = 0
		 '"You do it yourself you hear, what nonsense bear" asked <<$husName>>.
		 "forgive" just told you, downcast eyes.
		 <<$husName>> came up to you "Today I leave and will file for divorce, but lastly" he said rastegivaya pants and pulling member. "Well then froze suck, whore."'
		 if harakBoyA = 0:
			 act'Take by mouth':
				 cla
				 *clr
				 '<center><img src="img/hasb/p3.jpg" ></center>'
				 '"So you`re married, You lied to me, I love you so, You despicable liar, adieu!" your guy shouted and ran out of the room.
				 <<$husName>> did not pay attention to him, he inserted a member of your mouth and holding your head literally started to fuck you in the mouth with each thrust pushing it deeper. You frantically grabbed the air, trying not to choke as he continued, Suddenly he made a sudden movement and his cock jumped in your throat, you tried to pull away, but he obmatiril telling you tolerate. He gave you a few seconds to get used to the term in the throat and began to fuck your throat, you do not get enough air and you become frantically trying to beat him free, but <<$husName>> only tightened his grip on your glolovu. When you have already started to lose consciousness, he finally finished, you feel his sperm spread on your throat, making a couple of strong aftershocks . <<$husName>> looked like you writhing on the floor, spat on the floor next to you .'
				 act'Get_Away':gt'korr'
				 end
			 end
		 if harakBoyA = 1:
			 '<<$boyA>> stood and looked like you were aspirated husband "Well ." he said.
			 "Hang_On, let this whore for two write out" offered him <<$husName>>.
			 "And let`s, I`m with her all the same does not intend to meet more." answered <<$boyA>>'
			 act'Lie on the bed':
				 cla
				 *clr
				 '<center><img src="img/hasb/p1.jpg" ></center>'
				 'You lay down on the bed and <<$husName>> you entered into the vagina, and <<$boyA>> lay down in front of you substitute member to the mouth. You diligently podmahivat husband do not forget to meet her lover mouth.
				 "And he still fucks very best" said the husband.
				 "I could not agree" supported <<$boyA>>'
				 act'carry_On':
					 if popolaini=1:set picrand=40
					 if popolaini=2:set picrand=41
					 if popolaini=3:set picrand=42
					 xgt 'sexdvoe','var'
					 end
				 end
			 end
		 if harakBoyA = 2:
			 '"That`s right these whores should be punished, if you want to come help, otymeem it together so that the week will not be able to sit" said <<$boyA>>, clearly podnachivaya your husband.
			 "Yes_I_Am, let`s punish the bitch, and then go to the pub otpraznuem my divorce and remove a couple of bitches and punish, I stamped" said <<$husName>>.'
			 act'Lie on the bed':
				 cla
				 *clr
				 '<center><img src="img/hasb/p2.jpg" ></center>'
				 'You lay down on the bed and <<$husName>> you entered into the anus, and <<$boyA>> lay down in front of you substitute member to the mouth. You diligently podmahivat husband trying to put her ass on his cock to the hilt, not forgetting to meet the lover mouth.
				 "And the ass she still works smartly" said <<$husName>>.
				 "Yeah " answered <<$boyA>>'
				 act'carry_On':
					 if popolaini=1:set picrand=40
					 if popolaini=2:set picrand=41
					 if popolaini=3:set picrand=42
					 xgt 'sexdvoe','var'
					 end
				 end
			 end
		 end
	 end
if harakHusb = 2:
	 set fingal+=1
	 '"Oh damn" had you heard before flew to the wall by a powerful blow in the face.'
	 if izvratH=0:
	 	 set husbizvradd=0
		 set husbharmin=0
		 set husbandMark=0
		 set husband=0
		 set divorced+=1
		 set bfA = 0
		 set mop=0
		 set minut+=120
		 set stolmoney=0
		 set money=0
		 set komp=0
		 'Lying in the corner you see a husband deals blow after blow on the guy, and <<$boyA>> difficulty fighting off attempts to jump out the door, Finally he succeeds and he runs out of the apartment at breakneck speed.
		 <<$husName>> suited to you "Here_It_Is ... to_you ... slut ... member ... and in pussy ... and in the ass ... but in the mouth." he said putting a strong kick in in shivot at every word, the last word, it hits you in the face and kick you disconnect. You woke up two hours later my husband nor any of his things in the house was not so .'
		 act'Get_Away':gt'korr'
		 end
	 if izvratH=1:
		 set bfA = 0
		 set houseslut+=1
		 '"Oh damn, and that allowed you podstavlyut him their holes" asked <<$husName>>, "And you give me money now must, for the pleasure you have to pay, this is my whore" he added.
		 "And now we have it together fuck that-would not povadno." he added, picking you up from the floor and throwing on the bed.'
		 if harakBoyA = 0:'<<$boyA>> tried to argue, But seeing the face contorted with rage your husband agreed'
		 if harakBoyA = 1:'<<$boyA>> acquiesced'
		 if harakBoyA = 2:'<<$boyA>> gladly accepted'
		 act'carry_On':
			 if popolaini=1:set picrand=40
			 if popolaini=2:set picrand=41
			 if popolaini=3:set picrand=42
			 xgt 'sexdvoe','var'
			 end
		 end
	 end
end

if $ARGS[0]='endsex':
if husband>0 and hour<17 and hour>7 and boycherdaksex=0:gt'sexm','popala'
set boycherdaksex=0
gt'korr'
end

--- sexm ---------------------------------

# anekdot
set anrand = RAND (0,50)
if anrand = 0:set $anek = '- How do you feel about clowns?
- Just do not have to provoke me on anti-government statements!'
if anrand = 1:set $anek = 'fastened driver, dropping out "Oka", might accidentally throw it through the thigh.'
if anrand = 2:set $anek = 'Two old men on a bench in a nursing home:
- A grandson asked me yesterday, what I was doing at the time of the sexual revolution.
- Well?
- said, that I was almost immediately captured, and the rest of my life I spent washing dishes.'
if anrand = 3:set $anek = 'Odessa. By Privoz goes fat lady, and a few steps behind her is woven with huge bags weedy husband. Strap for one of the bags held, hanging out in different directions, child. Man says sadly:
- Fima, still believe my experience: never marry!
The boy thought for a long time, picking finger free hand in the nose, and then it is reasonable to ask:
- dad, and with whom I was going to share their bitter experience?'
if anrand = 4:set $anek = 'Police - GIVE
Head - TRIBUTE
Beggar - Kin
doctor - Take_out
Official - SUN
Billion oligarch - Kui
Instead of the normal salary - Hui

Live in Russia, but for some-then В«ChineseВ» literacy_...'
if anrand = 5:set $anek = 'Unlike other cats .
Throughout the night sleeping in the bedroom, and in the morning cheerfully runs to sleep in the hall.'
if anrand = 6:set $anek = 'Our Earth - is a place, where aliens show their children, as you can not live.'
if anrand = 7:set $anek = 'at the press-conference:
- Anatoly Borisovich, but you promised all along the Volga ? Where can I get my part?
- take a bucket, Go to Nizhny Novgorod, go to the river...'
if anrand = 8:set $anek = 'girls, if you had a choice: World Peace or neoblezayuschy manicure, what color nail polish would you choose?'
if anrand = 9:set $anek = 'We like: if dancing in the church - you accused, and you will be put, and if stolen more than a hundred million - you are only a witness ...'
if anrand = 10:set $anek = 'Judging by the teachers` wages, our government consists of a vengeful Losers.'
if anrand = 11:set $anek = 'Last year I asked Santa Claus to become compatriot GГ©rard Depardieu. Who knew, that the old man so perverted.'
if anrand = 12:set $anek = 'A guy goes to a meeting, late, nervous, can not find a location
park. Raises his face to the sky and said:
- Lord, help me find a place to park. I then give up and drink
going every Sunday to go to church!
Miraculously appears a free spot. guy again
refers to the sky:
- A, all, do not. found!'
if anrand = 13:set $anek = '- Watson, What are you smoking? let me guess - tobacco "Queen of Virginia"
cherries with leaves, of the anniversary issue in velvet packaging?
- astoundingly, Holmes! As you guessed it?
- her-God, Watson! Well
last pack!'
if anrand = 14:set $anek = 'Morning traffic cop goes on the road, head after yesterday`s split.
looks - jeep rushing. Well
to sober. looks, and there is a bum sitting. documents checked - the_truth,
homeless machine. Well cop asked him:
- You`re a bum. Where did you get such a cool wheelbarrow took?
- A new Russian drunk I was offered, if I make them laugh - my jeep.
Well.
- What?
- Yes, his hair grew immediately,
Here was a scream.
Cop shoots cap, there is a bald head. He says:
- And you do not care so I can?
- can.
Bum shit cop on his bald head, a from the bushes hear laughter and cry:
- Do_Not, well finally, so I gave him another hut and sell.'
if anrand = 15:set $anek = 'Glamorous Muscovite comes to visit the village to the grandmother.
- grannies, where you can go there at night?
- In a bucket.'
if anrand = 16:set $anek = 'lesson "Fundamentals of Orthodox Culture". The_teacher:
- And remember, children! those, who will learn from "4" and "5", go to heaven. A
those, who will learn from "2" and "3", - hell!
Little Johnny from the back row:
- Marivanna, and that, finish school can not live?'
if anrand = 17:set $anek = 'slogan "strangle corruption" has been recognized as extremist calling for
the violent overthrow of the existing order.'
if anrand = 18:set $anek = 'husband:
- What in-law is coming?
wife:
- Number or dick?'
if anrand = 19:set $anek = 'English Lesson. Sat in the back row man - checking
District Board of. Young teacher writing on the chalkboard English phrase and
asks the students to translate. The class is silent, and suddenly
Desks hand pulls Vovochka. The teacher hesitated, but do
there_is_nothing - caused.
Little_Johnny:
- Here`s ass. Who would plant!
The_teacher, blushing shame:
- Little_Johnny, how can you!!!
Little_Johnny, turning to the man:
- You do not know English - there is nothing to suggest!'
if anrand = 20:set $anek = 'husband wife:
- Let`s play pretend games.
- it`s like?
- well, as if you were Little Red Riding Hood, I wolf.
- class, come_on!
- well, then go, bake cakes...'
if anrand = 21:set $anek = 'That`s because surprised Depardieu, when sober...'
if anrand = 22:set $anek = 'Headquarters of the Ku Klux Klan:
- tell, How to join your organization?
- it`s just. soak 6 Blacks and one cat.
- A cat for that?
- Congratulations, you are taken'
if anrand = 23:set $anek = 'There are three friends.
One wife for ten years - another lover - third betrothed (bride).
Well, this and that - decided to experiment:
leather dress black lingerie - sexy stockings with a belt - high
heels - mask over his eyes and so meet their favorite.

A week later again found.

"bride" says - He came home, I met him in stockings, in
mask in high heels - He attacked me said, I love
his life and we had sex all night.

mistress says - I went to his office - closed the door -
opened the cloak - and there is leather lingerie, mask, heels - he did not
said, but we 5 hours without a break sex.

Wife says shyly - husband came home from work, I opened the door to
leather black lingerie, sexy stockings and mask - he looked and
asked: "What`s for dinner, Batman?"'
if anrand = 24:set $anek = '- Your bank gives loans on parole?
- No problem...
- And if I do not return?
- You will be ashamed to appear before God when.
- When it will still be...
- Here_It_Is, if you do not return the fifth, sixth appear.'
if anrand = 25:set $anek = 'biology lesson. The teacher tells the children:
- children! you know, that the stamens and pistils in flowers - are bodies
reproduction.
On the back row Vovochka:
- whore. I smelled them.'
if anrand = 26:set $anek = '- A y I VChEpand dpyg for five minutesyt cepvep broke.
- he that, hackp??!
- he myduck!!'
if anrand = 27:set $anek = 'flies aircraft. The pilot on the speakerphone:
- Ladies and Gentlemen, Welcome to the captain.
Listen to the information on our flight. Our flight passes
on high 10 thousand meters at a speed 900 kph,
temperature behind...Shit...A-A-A-A!.. What is this?.. OU, PIZDETS...
Inside.
A minute later:
- Apologize to the distinguished passengers. Simply it is our
flight attendant knocked on my hot coffee. Did you
now my white pants front...
A guy in the front row:
- your pants, it`s all garbage! You should have seen the back of my pants...'
if anrand = 28:set $anek = 'Escaped from the zoo elephant. call the sheriff:
- sir! In my garden there is a huge gray rat!!!!
She sryvet tail cabbage......
- And what to do?
- sir! You will not believe!.....'
if anrand = 29:set $anek = 'marriage bed - husband and wife:
wife: - My_Dear, and we will come to play role-playing games?
husband: - Bring_It_On.
wife: - you are a taxi driver, and I am a young, cute girl, Has reached that, but I have no money with him to pay the fare.
husband: - Bring_It_On.
wife: - uncle taxi driver, I have no money to pay for travel, let me go, you`re_welcome!
husband: - Go...'
if anrand = 30:set $anek = 'Put a baby pacifier-pacifier next to the stove, it melts and
stuck to the table. Scored in Yandex: how to pull out the nipple?... forgot, what
sought...'
if anrand = 31:set $anek = 'when-Long ago the old Indian told his grandson one life
truth.
- Inside every man is a struggle, very similar to the struggle between the two
wolves. One wolf represents evil - envy, jealousy, regret,
selfishness, ambitions, lie ... Another wolf represents the goodness - the world, love,
hope, civility, truth, kindness, loyalty_...
One Little Indian, touched to the core words of his grandfather, several
moments of thought, and then asked:
- And what a wolf at the end wins?
Face old Indian touched a faint smile and he said:
- Always wins the wolf, which you feed.'
if anrand = 32:set $anek = 'Interview with Russian businessman.
correspondent:
- tell, What do you think about the traffic police?
businessman:
- bandits uniquely. Do nothing, mess in the streets,
drivers robbed at every opportunity, washed- motherfuckers.
K.:
- Yes_I_Am, impartial opinion, frankly. What do you think about
Russian tamozhenikah?
B.:
- M-yes_they_are, i think, cops got excited about. Normal in general-then
children, polite, do not take too much.'
if anrand = 33:set $anek = '- I do not know, what to do. cockroaches tortured. throughout shastayut - no rest.
- Did you buy a piece of chalk for cockroaches.
- what, help?
- Of_Course. see - sitting in the corner, draw...'
if anrand = 34:set $anek = '- Hello! Rewrite me his apartment.
- What do you allow yourself!?
- Oh, excuse_me, not with that began. Do you believe in God?'
if anrand = 35:set $anek = 'It feels, that the old Russian proverb "fools law does not apply" and the concept of "parliamentary immunity" how-something to do.'
if anrand = 36:set $anek = 'If money is measured in groups, I`ve got a pit.'
if anrand = 37:set $anek = 'Policeman stops the car.
lowered window, driver smiling ingratiatingly:
"I wish you health, Comrade Captain! Here you are right, data_sheet,
power_of_attorney, strahovochka itself, all as expected, how to..."
With the rear seat child`s voice:
"dad, and where goats?"'
if anrand = 38:set $anek = '- Why are you so overwrought? what happened?
- Gave her husband on 23 February set of fishing lures.
- well, all right. Will he have 10 years every weekend fishing leaves. What is not so?
- He spit it in your hands, spit and asks: And what is it?'
if anrand = 39:set $anek = 'Mom asks young son:
- Little_Johnny, Who ate all the candy?
son:
- brownie.
voice from-behind the stove:
- do not bullshit me!'
if anrand = 40:set $anek = 'Pole comes to church for confession and the priest says:
- Ban priest, I have sinned.
- What is sin, my son?
- I cheated a Jew...
The priest :
- It is not a sin, my son. it is a miracle!'
if anrand = 41:set $anek = 'university. session. reading-room. crowded: how to prepare.
For one student comes another:
- Listen, and you `re holding the book upside down!
- And you che, Freud, whether that?
- And here Freud?
- Is_This - book! What her legs? You still say, I s between pages
peep..!'
if anrand = 42:set $anek = '- Please change the guarantor of the Constitution warranty...
- Can not help, the entire batch defective.'
if anrand = 43:set $anek = 'Jew, get home by taxi, exits silently out of the car and starts
fumbling in his pockets, and mutters under his breath:
- Damn, seems to be in the car dropped wallet...
Hearing this, taxi driver presses the gas and wound. Jew, looking after
cab, sarcastically says:
- A Rabinovich does not lie, it really works...'
if anrand = 44:set $anek = 'Son quarrels with parents:
- I`m tired of constantly be with you, always arrive on time! I want to
romance, liberty, beer, girls! I`m leaving, and do not try me
hold!
Son resolutely goes to the exit. At the door of his father catches up.
- dad, I said: do not try to stop me!
- I do not stop, son. I`m with you!'
if anrand = 45:set $anek = 'Girls gathered at a bachelorette party. All night they told jokes,
funny stories, shared with the other sisters their dreams...
By the morning of the closet fell dead with shame Lieutenant Rzhevskij.'
if anrand = 46:set $anek = 'Turkmen President Saparmurat Niyazov in the great book "Rukhnama"
proudly writes, that Turkmen invented the wheel, writing, smelting
metals. Nobody denies that. Just the other nations at this time
let computers and flew to the Moon.'
if anrand = 47:set $anek = '- I hesitate to put your diagnosis ...
surely, is alcoholism.
- Ok, doctor. I will come, when
You`ll be sober.'
if anrand = 48:set $anek = 'I do not want to say, that getting old, but all those sounds, I`ve-then uttered during sex, Now I publish, just getting up from the couch ...'
if anrand = 49:set $anek = 'The wife says to her husband:
- Let`s make love, like in the movies!
husband agreed. had it, I wanted, then on her face cumshot...
she wipes:
- yeah, favorite! We`re different movies look!!!'
if anrand = 50:set $anek = 'she:
- tell me, Why, it - macho, and if
the girls a lot of guys - damn it?
he:
- understand, If one key opens many locks - this drop dead
key! And if one lock fit all the keys - this, definitely,
horseradish castle!'


















--- anekdot ---------------------------------

# stihi
set strand = RAND (0,10)
if strand = 0:set $stihi = 'Do_You - sunlight in my dark!
Do_You - my happiness among a heap of misery!
Do_You - meaning, which I would like to find.
Do_You - muse. not the same, that one day will die.

Do_You - incentive to fight despite everything!
Do_You - world, from which there is no escape!
Magical warmth of your gentle hands
I warmed, probably, thousands of years!

Do_You - faith, leading to the light peaks!
Do_You - pain, without which love does not know.
Do_You - life among the stale, soulless machines!
worst of all - I become a stranger to you!

I`M_Afraid,that one day will burn all bridges.
but I believe: with me forever your light!
I realized now. paradise there, where have you!
And hell - is there, where you do not have with me.'
if strand = 1:set $stihi = 'Why go against fate,
She moves really a foregone conclusion for us,
Admit, we met among dreams,
Love opened the gates of the sacred.

Trust me, bolder, not tushuy,
I, just like you, the senses slightly confused,
Just one let me kiss,
To rotate the spatial time.

I will be your guide here,
easy to sleep, that in this world is beautiful,
Do not argue, You lit a fire in me
And their hair amber captivated.

Oh, not need to paint your camp,
Understandably so, with its gods blinded,
In these eyes saw the ocean,
His love intoxicated with happiness.

Let me stay with you forever
And the waves of love to wander century,
Let me whisper verses for you
And enjoy the beauty queen.'
if strand = 2:set $stihi = 'You know very well itself,
What am I without you I can not,
I`ll go a little crazy,
Captivated by thy smile.

Lose the power of speech, when,
On the contrary angel eyes,
I always ready to repeat:
В«You are the best, pointВ».

With you light and easy,
Impossible not to love you,
Off high - high,
On the cloud sat cautiously.

do not be afraid, I always close,
And in sorrow and in joy will,
Together transcend the cold,
Code is trusted miracle.

You know very well itself,
But I will repeat it again,
What am I on you crazy,
I do not need a fortune.'
if strand = 3:set $stihi = 'Flowing teardrop on the cheek,
When I think of you night.
I want to be with you quickly,
Protect you .

I thank God for you,
And most of my life.
Thank you for the fact that we have with you svС‘l,
Love to you I gained eternal.

Now we wake up together forever
And none of us do part,
Your love in my little heart,
And never fly.
'
if strand = 4:set $stihi = 'love you! My Native!
Do_You, like a timid flower!
With you I`m not alone
you breathe, you live
these lines and I do not write for nothing,
want_to, to know you - my home!
I am very happy, that our fate tied!
I truly love you,with soul,
You deserve me,
Such love and respect!
I want to hear your sweet voice,
I want to always be near to you!
I want to hold you tight,
And touch your lips,I gently!
I want to look into your beautiful eyes,
Looking at them,I like in a fairy tale...
Spinning and rejoicing with you,
Under the stars and moon!
I can not without you,
like an angel without love,
as the sun without the sky,
like a sea without water...'
if strand = 5:set $stihi = 'Help to understand the love
How to understand the feelings,
Teach me to fly,
By the time the clouds on the climb.
Help catch the wave,
But keep your hand firmly,
I`m afraid to go to the bottom,
As the fear of heart knife cuts.
Help meet the dawn
In the open field Cornflower,
whisper to you "hi",
enjoying thee.
Help to forget the sadness
And believe a word "happiness",
but it remains, promise
Do not break love apart.
I am open to your soul,
I am ready to embark on a given,
Your voice sounds in me,
Eyes glowed at night.
Help. Not that I die.
Without love in the heart is empty,
angel, i love you,
Help me understand the feelings.'
if strand = 6:set $stihi = 'I love to write not stop,
With you I will walk again in the garden.
In your eyes I will look green only,
Whole body cast into a sweet shiver again.

I do not hold back in the hands of the soul with excitement,
A heart beats pendulum love.
My angel - I`ll bestow moments
Thou this sweet again in the night catch.

Let your eyes radiate love again,
A lip, whisper sweet words.
Each other`s hands tightly embrace,
Go crazy with happiness head.

Let in the dream was this feeling,
Are you extend the night a great folly.
Love to you, special kind of art ,
In my heart was passionate feelings courage.
'
if strand = 7:set $stihi = 'If only you were here,
Near anywhere,
Warm and affectionate glance,
I basked in the cold.

If only lip native,
Gently awakened in the morning,
thoughts, love sick,
Steel verses yesterday.

Life is beautiful is not necessary,
If you are not near,
If only you were pleased,
At dawn meeting.

If only happiness shone,
Eyes of my Princess,
Only the feelings breathed,
Light of your love.
'
if strand = 8:set $stihi = 'Mad wind of change,
Dangerous rips head.
I only ask him to return,
Make my life beautiful.

It`s so nice to be alive,
With a smile.
And be happy in the world,
With Pet, The morning begins.

Go crazy, when apart,
Insanely new appointment wait.
And the message in the laptop,
inexorably gain.

But it is not possible, so true,
About feelings just write.
Perceiving all cardiovascular,
Just have to wait and wait.'
if strand = 9:set $stihi = 'The flow of rivers I am ready to change,
And sometimes change kontenenty.
Ready to conquer the mountain tops,
And the satellite at the bottom of the ocean.
And every day you give happiness.
OPGW love you till skonchaniya century,
And embrace standing in the moonlight.
I want to,so you know it all,
After_all, These are not empty words!'
if strand = 10:set $stihi = 'In the desperate battle,
We relocate forward.
And drown in your prayers,
What awaits us?

The most difficult path ,
we have chosen.
Each step is a careful,
To the top of destiny.

Will not give up,
Not one step back.
Forget all the bad things,
Important because the result.

We love her,
Swept forever.
And a happy life,
We`ll Live hundred years before ...'





































--- stihi ---------------------------------

# love
if $ARGS[0]='start':
cla
*clr
if harakBoyA = 0:gt'love','0'
if harakBoyA = 1:gt'love','1'
if harakBoyA = 2:gt'love','2'
end

if $ARGS[0]='0':
cla
*clr
set love = 1
'You started talking about cohabitation. what <<$boyA>> told you, In principle it, do not mind, but first he wants to introduce you to my parents.'
'He warns you, Mom is very demanding and strict, <<$boyA>> speaks, that he is very fond of his mother and does not want to upset her. So you have to look chic, only dress boutique, groomed and curled hair, cosmetics in moderation.'
'At the next meetinge, as soon as you `re ready to fully <<$boyA>> will take you to your parents.'
	 act 'To invite':
	 cla
	 gt'sexm','room'
	 end
end

if $ARGS[0]='mother':
cla
*clr
set minut = minut + 60
'<<$boyA>> drove you to the home of his parents. You got out, took the elevator up, after the bell on the door you opened, it was evident, that you were waiting for. You entered the apartment, you greeted elderly, gray muzhichek, dressed in pants and a shirt, while you wore slippers in the corridor passed an elderly woman, thin, fastidiously pursed lips, she invited you to the table.'
'You went into the room, <<$boyA>> you pulled chair and you sat down to have a table set. Village opposite you mother your guy. She became you to consider with disgust in his eyes, as bydto sat in front of her vile insect, not a girl her son. Nous, darling, and what do you do for a living?'
if work > 0 and workKafe = 1:'you answered, that you are a waitress in a cafe.'
if student > 0 and diplom = 0:'I study at the University of.'
if diplom = 1:'Graduate graduate of the University.'
if work = 0:'I am unemployed.'
if modelfoto > 0:
	 set bfA = 0
	 'To which she smiled and said with disgust "And what you do not tell us how to shoot for web sites?" After these words. "son, Mom cares about you, This girl does not deserve you."'
	 '<<$boyA>> blushed and said "Svetlana, I loved you so, and you, do_you, just deshovaya slut! Get_Away."'
	 act 'Get_Away':gt'street'
	 exit
	 end
if kavslut > 0:
	 set bfA = 0
	 'To which she smiled and said with disgust "son, yes on this slut all Armenians in the market know. And discuss only, Light waitress and her tear into all the cracks, she does not deserve!"'
	 '<<$boyA>> blushed and said "Svetlana, I loved you so, and you, do_you, just PradesheVai slut! Get_Away."'
	 act 'Get_Away':gt'street'
	 exit
	 end
if frot > 3:
	 set bfA = 0
	 'To which she smiled and said with disgust "son, this slut all perverts in the subway and know lots pull, Who`s next to her ass settle down. She does not deserve you!"'
	 '<<$boyA>> blushed and said "Svetlana, I loved you so, and you, do_you, just PradesheVai slut! Get_Away."'
	 act 'Get_Away':gt'street'
	 exit
	 end
if gloryhole > 30:
	 set bfA = 0
	 'To which she smiled and said with disgust "son, Your Svetulya earns sucking members in sex shop, You want a wife myself? She does not deserve you!"'
	 '<<$boyA>> blushed and said "Svetlana, I loved you so, and you, do_you, just PradesheVai slut! Get_Away."'
	 act 'Get_Away':gt'street'
	 exit
	 end
'To which she tearful eyes looked at his son and said "very nice, Well Well son, it`s your choice, who I am, that would interfere in your life, I just gave you, reared and outgrowths, Now of course you already have the right to forget about my mom and let, only she loves you and wishes you the best. If you need it, you`re_welcome, I do not forbid."'
	 '<<$boyA>> looked_down "mom, what are you, I love you, Light but also dear to me."'
	 'Mother jumped flashing eyes "son, you vstrechaeshsya with her recently, what do you know about it?"'
	 '<<$boyA>> for a long time to persuade her mother and justifies, Finally she let you out of their predatory claws and you`re ready to leave.'
	 set love = 2
	 act 'Get_Away':gt'street'
end

if $ARGS[0]='1':
cla
*clr
set love = 1
'You started talking about cohabitation. what <<$boyA>> told you, In principle it, do not mind, but first he wants to introduce you to my friends.'
'He says that you have to look chic, only dress boutique, groomed and curled hair, cosmetics in moderation, what-would envy his friends are dead.'
'At the next meetinge, as soon as you `re ready to fully <<$boyA>> will take you to your friends.'
act 'To invite':
	 cla
	 gt'sexm','room'
	 end
end

if $ARGS[0]='frends':
cla
*clr
'<center><img src="img/hasb/z0.jpg" ></center>'
if proverka1=0 and proverka2=0 and proverka3=0 and proverka4=0 and proverka5=0:
	 set minut+=180
	 '<<$boyA>> drove you to your friends. The apartment had two guys, <<$boyA>> introduced you as his bride, You sat down at a table set. You talked a couple of hours of fun, when it was all eaten and drunk almost all <<$boyA>> invited you to dance, You gladly agreed. <<$boyA>> was already pretty drunk and had bad at dancing, but good to get you to touch, his hands crushed your buttocks, Soon he launched them under the dress and continued to stroke your ass. Her dress rode up and your panties appeared on public display, the guys were sitting on the couch without taking his eyes from your buttocks. As a result "Very best ass in your heifers, give check out" he said, you already jumped. <<$boyA>> let you and him napravilssya "You do ohrenel, This is my girl, you can watch, can not touch."'
	 end
if modelfoto > 0 and proverka1=0:
	 '"Yes you calm down, she also bare removed, do not believe there is an Internet climbed into her fully nude pictures." the guy said.
	 "it is true?" asked <<$boyA>> Turning to you.
	 "Yes_I_Am, I filmed naked, and such that I`m not there with three fuck, just show your beautiful body." Say you'
	 if intel<=30:
		 set guy+=2
		 set picrand=39
		 set bfA = 0
		 '"Yes, what are you showed, just filmed naked means whore" With these words he threw you on the sofa. You tried to get up to go, but <<$boyA>> stopped you "Where gathered slut, so long brains powder and I decided that we can just dump. Well guys this whore is empty circle." he said "suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took out his penis from his pants and sent it into his mouth. The others joined, One sat on the couch next to <<$boyA>> and pulled out a member, you grabbed his hand and began to suck both poperemeno, the second at this time took off your clothes and knelt launched a language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him "Go here, but it still messed it, all the buzz chippy", guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		 act 'further':xgt'sexdvoe','var'
		 end
	 if intel>30:
		 set proverka1=1
		 'You have a few minutes to crucify that you have not committed anything wrong and that his friends just jealous. As a result <<$boyA>> agree with you.'
		 act 'further':gt'love','frends'
		 end
	 exit
	 end
if kavslut > 0 and proverka2=0:
	 cla
	 '"Yes you wait, this whore all Armenians know, Come in to ask about any waitress Svetku, you hole it will describe in detail" the guy said
	 "it is true?" asked <<$boyA>> Turning to you. Do not think of anything better you blow into mourning.
	 "Yes "'
	 if intel<=50:
		 set guy+=2
		 set picrand=39
		 set bfA = 0
		 '"Yes, someone who just raped several times means you liked it " With these words he threw you on the sofa. You tried to get up to go, but <<$boyA>> stopped you "Where gathered slut, so long brains powder and I decided that we can just dump. Well guys this whore is empty circle." he said "suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took out his penis from his pants and sent it into his mouth. The others joined, One sat on the couch next to <<$boyA>> and pulled out a member, you grabbed his hand and began to suck both poperemeno, the second at this time took off your clothes and knelt launched a language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him "Go here, but it still messed it, all the buzz chippy", guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		 act 'further':gt'sexdvoe','var'
		 end
	 if intel>50:
		 set proverka2=1
		 'You have a few minutes to crucify about what you are poor and miserable . As a result <<$boyA>> hugged you and said that no one else will not let you hurt.'
		 act 'further':gt'love','frends'
		 end
	 exit
	 end
if frot > 3 and proverka3=0:
	 cla
	 '"Yes you wait, this whore in the subway all perverts know you want to, himself in the subway you can go down and fuck her right in the car in front of everyone" the guy said
	 "it is true?" asked <<$boyA>> Turning to you.
	 "What do you mean how could you think such a thing about me, if there is some damn ride in the car so it`s something I" you cried and went to him.'
	 if intel<=40:
		 set guy+=2
		 set picrand=39
		 set bfA = 0
		 '"Shut the mouth of a whore, I believe your friends, if you say it was you meant it was you" With these words he threw you on the sofa. You tried to get up to go, but <<$boyA>> stopped you "Where gathered slut, so long brains powder and I decided that we can just dump. Well guys this whore is empty circle." he said "suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took out his penis from his pants and sent it into his mouth. The others joined, One sat on the couch next to <<$boyA>> and pulled out a member, you grabbed his hand and began to suck both poperemeno, the second at this time took off your clothes and knelt launched a language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him "Go here, but it still messed it, all the buzz chippy", guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		 act 'further':gt'sexdvoe','var'
		 end
	 if intel>40:
		 set proverka3=1
		 'Deciding that the best defense, attack, you have a few minutes yelling at him. As a result <<$boyA>> begins to reassure you saying that he does not blame you, but simply asked.'
		 act 'further':gt'love','frends'
		 end
	 exit
	 end
if gloryhole > 30 and proverka4=0:
	 cla
	 '"Yes you wait, This slut sex-shop through the hole sucks." the guy said
	 "it is true?" asked <<$boyA>> Turning to you.
	 "What do you mean how could you think such a thing about me, if there is some sort of a whore in the mouth so it takes something that I" you cried and went to him. "And you`re a freak with what is decided, I have you sucked that you have something to compare?" you started to attack a Man.'
	 if intel<=60:
		 set guy+=2
		 set picrand=39
		 set bfA = 0
		 '"Shut the mouth of a whore, I believe your friends, if you say it was you meant it was you" With these words he threw you on the sofa. You tried to get up to go, but <<$boyA>> stopped you "Where gathered slut, so long brains powder and I decided that we can just dump. Well guys this whore is empty circle." he said "suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took out his penis from his pants and sent it into his mouth. The others joined, One sat on the couch next to <<$boyA>> and pulled out a member, you grabbed his hand and began to suck both poperemeno, the second at this time took off your clothes and knelt launched a language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him "Go here, but it still messed it, all the buzz chippy", guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		 act 'further':gt'sexdvoe','var'
		 end
	 if intel>60:
		 set proverka4=1
		 'Deciding that the best defense, attack, you have a few minutes yelling at him. As a result <<$boyA>> begins to reassure you saying that he does not blame you, but simply asked.'
		 act 'further':gt'love','frends'
		 end
	 exit
	 end
if film > 2 and proverka5=0:
	 cla
	 '"Yes you wait, this slut in porn filmed." the guy said
	 "it is true?" asked <<$boyA>> Turning to you.
	 "Yes_I_Am, but it was long before you, this is a mistake of youth and a couple of times, I had a very hard time, but I do not do it for a long time" you started trying to squeeze out a tear.'
	 if intel<=70 and izvrat=0:
		 set guy+=2
		 set picrand=39
		 set bfA = 0
		 '"Shut the mouth of a whore, starred in porn whore means" With these words he threw you on the sofa. You tried to get up to go, but <<$boyA>> stopped you "Where gathered slut, so long brains powder and I decided that we can just dump. Well guys this whore is empty circle." he said "suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took out his penis from his pants and sent it into his mouth. The others joined, One sat on the couch next to <<$boyA>> and pulled out a member, you grabbed his hand and began to suck both poperemeno, the second at this time took off your clothes and knelt launched a language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him "Go here, but it still messed it, all the buzz chippy", guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		 act 'further':gt'sexdvoe','var'
		 end
	 if intel>70 or izvrat=1:
		 set proverka5=1
		 'You have a few minutes to crucify about how you love him and that everything that came before it, was a mistake. As a result <<$boyA>> hugs you and whispers in your ear "A couple of tricks you probably remember, then show it."'
		 act 'further':gt'love','frends'
		 end
	 exit
	 end
'"Fair_Enough, Svetsik go from here, it is time to" said <<$boyA>> and you`re headed for the exit.'
set love = 2
act 'Get_Away':gt'street'
end

if $ARGS[0]='2':
cla
*clr
'(There are no further action.)'
act 'To invite':
	 cla
	 gt'sexm','room'
	 end
end
--- love ---------------------------------

# brosok
if boyonceA = 0:
!racing requirements after sex
set boyonceA = 1
set guy = guy + 1
$bfsex+=''+''+$boyA+' first sex '+day+'th '+$mons+'. '+'member '+dickA+' cm '+$boybody+' '+$boybod+' '+$boyface+'. he '+$boyClo
     if financeA = 0:
         if harakBoyA = 0:set vneshBoyA = vneshBoyA + 2
         if harakBoyA = 1:set vneshBoyA = vneshBoyA + 4
         if harakBoyA = 2:set vneshBoyA = vneshBoyA + 8
     end
     if financeA = 1:
         if harakBoyA = 0:set vneshBoyA = vneshBoyA + 6
         if harakBoyA = 1:set vneshBoyA = vneshBoyA + 10
         if harakBoyA = 2:set vneshBoyA = vneshBoyA + 14
     end
     if financeA = 2:
         if harakBoyA = 0:set vneshBoyA = vneshBoyA + 14
         if harakBoyA = 1:set vneshBoyA = vneshBoyA + 18
         if harakBoyA = 2:set vneshBoyA = vneshBoyA + 22
     end
end
--- brosok ---------------------------------

# down
$metka = $ARGS[0]
$loc = $CURLOC
gs'dinam'
'<center><B>town centre</B></center>'
'<center><img src="pic/down.jpg" ></center>'
clr
gs'stat'
gs'time'
set palMir=0
set bordysh=0
set housrA=0
set palMir=0
set obdysh=0
set tanhouse1=0
set obMir=0
set obLoker=0
set houseob=0
set borMir=0
set borLoker=0

if shantpopala>0:
	 cla
	 *clr
	 set hour+=8
	 set cumbelly+=1
	 set cumpussy+=1
	 set cumass+=1
	 set cumlip+=1
	 set cumface+=1
	 set cumfrot+=1
	 set cumanus+=1
	 set fingal+=1
	 set guy+=2
	 set rape+=1
	 set sex+=1
	 set bj+=1
	 set anal+=1
	 set shantpopala-=1
	 '<center><img src="img/centr/rape.jpg" ></center>'
	 'On the street around you dramatically slows down a black jeep, out of it popping up two big boys and dragged you in the car.
	 "Your job creation?" shouts one poking your nose pictures that you sent yesterday .
	 "No, I do not understand" you have tried to justify
	 "Do not lie to you bitch calculated" With these words
	 You woke up already somewhere outside the city, bound and naked srl, the whole body was covered with sperm and anus vagina hurt uzhastno.
	 Umballa sat and smoked nedoleko, "About finally woke up, what else Circle, now flicked, will be more fun." said one of them.
	 They got up and came to you, a minute later you regret that woke up, these freaks have you as they would, you tried soprativlyatsya but scotch does not allow you to move, soon you lost consciousness again.
	 "Well understood, bitch" You woke up the voice of one of them and immediately got hit in the stomach with a shoe. Umballa got into the car and drove away. Until the road was about a hundred meters and you connected, izvevayas like a snake crawling in the side of the road. When you then crawled out again, You woke up to some machine, and that dovezla you home.'
	 act 'Get_Away':gt $curloc
	 exit
	 end

if car > 0 and cardrive = 2:
set cardrive = 2
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end
if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'

     act 'wait':
     cla
     waiting = input ("How many minutes to wait? (not any more 120 minutes)")
         if waiting <= 0 or waiting > 120:
         set minut = minut + 15
         end
         if waiting > 0 and waiting <= 120:
         set minut = minut + waiting
         end
     act 'Look at the clock':gt curloc
     end

act 'Taxi':
	 cla
	 *clr
	 '<center><img src="pic/taxi1.jpg" ></center>'
	 'You caught a passing taksishku.
	 fare 250 RUB.'
   	 set minut+=5
	 if $loc!'street':
		 act 'Go to the sleeping area':
			 set $loc='street'
			 dynamic $taxi
			 end
		 end
	 if $loc!'down':
		 act 'Go to the center':
			 set $loc='down'
			 dynamic $taxi
			 end
		 end
	 if $loc!'Nord':
		 act 'Go to the northern region':
			 set $loc='Nord'
			 dynamic $taxi
			 end
		 end
	 act 'Opt_Out':gt'<<$loc>>'
	 end

if tanya>0 and tanwork=0 and hour>=16 and hour<=21 and tanday!day: '<a href="exec:gt''tanhouse''">apartment Thani</a>'
if tanwork=1: '<a href="exec:gt''house''">apartment Thani</a>'
if izoldaWQ>=1:'<a href="exec:GT ''qwIzoldaApp''">apartment Isolde</a>.'
if mainQW >= 1:'secret <a href="exec:GT ''lab'',''start''">Karina shelter</a>.'
if hour>=9 and hour<=21:'<a href="exec:minut+=15&GT ''NewCloShop''">Women`s clothing "fashion-monger"</a>.'
if yaq = 1:'apartment <a href="exec:GT ''yarik'',''start''">Yaroslav</a>.'
if peter > 0:'apartment <a href="exec:GT ''peterroom'',''start_door''">Peter</a>.'
if hour >= 4 and hour <= 23:'station <a href="exec:GT ''metro'',''start''">subway</a> located at 5 walking distance.'
if week >= 4 and hour >= 15:'fashionable <a href="exec:GT ''club'',''start''">nightclub</a> shining lights, attracting young people from all over the city.'
if hour >= 15 or hour<=2:'bright <a href="exec:GT ''stripclub'',''start''">Strip club</a> glittering lights, attracting men from all over the city.'
if hour>=9 and hour<=20:
'The city center is a large <a href="exec:gt''torgcentr''">Commerce-entertainment Center</a>'
'popular <a href="exec:GT ''fit'',''start''">fitness center</a> in which trained as professional athletes, and wishing to lose weight for beach season.'
'<a href="exec:GT ''foto'',''start''">Photo_Studio</a>.'
'<a href="exec:GT ''bass'',''start''">Swimming_Pool</a>.'
end
if hour >= 8 and hour <= 22:'My_Dear <a href="exec:GT ''restoran'',''start''">restaurant</a> around which are luxury cars.'
'large <a href="exec:GT ''sexshop'',''start''">sex Toys</a> for perverts all over the city.'
if hour >= 6 and hour <= 23:'eatery <a href="exec:GT ''burger'',''start''">Bystroeshka</a>.'
if bordel>0 and hour>=20 or bordel>0 and hour<=3:'In the yards of the entrance to the <a href="exec:GT ''bordel''">brothel</a>.'
if pornstudio>=1 and hour>5:'<a href="exec:GT ''pornstudio'',''start''">studio</a>, which make films for adults'
if week < 6 and hour >= 7:'prestigious <a href="exec:GT ''univer'',''start''">university</a> is the alma mater of almost all educated people of the city.'
if hour>=6 and hour<=23:'university <a href="exec:GT ''dorm'',''start''">hostel</a> little priglyadnoe, despite the high status of the university.'
if week < 6 and hour >= 9 and hour <= 18:'primary <a href="exec:GT ''bank'',''start''">Bank</a> in the city.'
if week < 6 and hour >= 8 and hour <= 17:'Biggest <a href="exec:GT ''office'',''start''">Project organization</a> in the city.'
if hour >= 8 and hour <= 22:'<a href="exec:GT ''agentned''">Real estate agency</a>'
!if beg >= 50 and begmon ! month and hour>=6 and hour<=23:'go to <a href="exec:GT ''beg1'',''start''">Competitions on the run</a>'
!end 
dynamic $din_street_cum





--- down ---------------------------------

# agentned
gs'stat'
'<center><B><font color=maroon>agentsvo property</font></B></center>'
!'<center><img src="pic/bank.jpg" ></center>'

act 'Go_Out':gt'down'

if StoryLine>0 and housr = 0:
'You can buy an apartment in a residential area of 2 million. Rent an apartment worth 200 rubles per day, the minimum rental period 30 days.'
     if money>=2000000:
         act 'Buy an apartment':
         cls
         money-=2000000
         housr = 1
         BuyHous=1
         gs'stat'
         'You bought an apartment in a residential area.'
         act 'Go_Out':gt'down'
         end
     end
     
end

if BuyHous!1:
     if money>=6000:
         act 'rent an apartment':
         cls
         money-=6000
         housr = 1
         BuyHous=2
         ArendHouseSL+=30
         gs'stat'
         'You rented an apartment in a residential area. Now you <<ArendHouseSL>> rental days.'
         act 'Go_Out':gt'down'
         end
     end
end

if ArendHouseSL>0:'you have <<ArendHouseSL>> rental days.'












--- agentned ---------------------------------

# bank
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Bank</font></B></center>'
'<center><img src="pic/bank.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if karta > 0:'In the bank <<karta>> rubles'

     if BankPapper=1 and dayBankPapper=day:
         act 'give documents':
		 cls
		 set minut = minut + 15
		 BankPapper=2
		 gs'stat'
		 'You went into the office and gave the documents to the manager.'
		 act 'Get_Away':minut+=5&gt'down'
		 end
     
     end
     
     if money > 0:
         act 'Put money into the account':
		 cla
		 set minut = minut + 5
		 kartaIN = input ("How much money you want to deposit?")
		     if kartaIN <= 0 or kartaIN > money:
		     'Not correct operation.'
		     else
		     set karta = karta + kartaIN
		     set money = money - kartaIN
		     'You put into the account <<kartaIN>> rubles, now in your account <<karta>> rubles.'
		     end
		     
		 act 'move_away':gt'bank','start'
		 end
     
     end
     
     if karta > 0:
         act 'To withdraw money':
		 cla
		 set minut = minut + 5
		 kartaOUT = input ("How much money you want to withdraw?")
		     if kartaOUT <= 0 or kartaOUT > karta:
		     'Not correct operation.'
		     else
		     set karta = karta - kartaOUT
		     set money = money + kartaOUT
		     'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
		     end
		     
		 act 'move_away':gt'bank','start'
		 end
     end

act 'Go_Out':gt'down'
end
--- bank ---------------------------------

# kameraKPZ
gs'stat'
'<center><B><font color=maroon>Pre-trial detention</font></B></center>'
'<center><img src="pic/kpz.jpg" ></center>'
'Most camera with wooden benches.'


if kameraKPZ<3:

	 act 'sit':
	 cla
	 minut+=60
	 kameraKPZ+=1
	 gs'stat'
	 'You sat on the hard wooden bench and began to think about your position.'
	 act '...':gt $curloc
	 end

else
'By grating approached a policeman and Anatoly Borisovich. The policeman immediately walked away and told the owner bystroezhki. "Sveta, Sveta, Well?"'
	 act 'Tell him how it was.':
	 cls
	 minut+=60
	 gs'stat'
	 '<center><img src="pic/kpz.jpg" ></center>'
	 'You began to tell as Ivan tried to persuade you to have sex and you denied him, he naplel you tales about your increasing and gave you the keys. How did you get the envelope and gave it to Ivan. Anatoly Borisovich sad you looked through the bars. "Sveta. Ivan showed himself a true professional and an honest man. He made вЂ‹вЂ‹it to the general manager of the bottoms. And you want me to say, that he was tempted to have it 650 thousand? risking everything, his position, his career, reputation, only, that would steal the money and annoy you? You`re just a dishwasher. What sense would he do that? Besides."'
	     act 'Convince his innocence':
	     cls
	     minut+=60
	     gs'stat'
	     '<center><img src="pic/kpz.jpg" ></center>'
	     'You began to convince the owner bystroezhki his innocence. Anatoly Borisovich about something thought. "Reason to put you there is no me. I need to get my money back. And if we assume, that you`re not lying, Then I warmed a snake on his chest. That`s what I `ll tell you. I pohodataystvuyu, What would you released on bail. You will be somewhere in the month before the trial, that would whitewash themselves. If you can not, then I`m sorry, I can not help."'
	     	 act 'agree':
			 cls
			 minut+=260
			 gs'stat'
			 '<center><img src="pic/kpz.jpg" ></center>'
			 'Of course there is no choice and you agreed with Anatoly. He quickly went somewhere and after a while you have been released from the bullpen. Anatoly Borisovich met you in his car and invited you to sit down to him.'
			 	 act 'Go with Anatoly':
				 cls
				 minut+=30
				 PodpiskaNeviezd=1
				 IvanKvartira=1
				 gs'stat'
				 '<center><img src="maggot/car.jpg" ></center>'
				 'You got into the car and drove. Anatoly said. "Now I `ll take you to your house. I think you need some rest. Ivan lives in the northern region, Do as you. but bear in mind, if again of something nabedokuril, I`ll pull out will not. And remember girl. You have to court where a month. During this time, or prove me guilty of Ivan, or you sit. I `ll make sure, what would your period has been suspended. Otpravishsya six years sew quilted jackets in some sort of wilderness surrounded by old prostitutes, drug_addicts, cheats and other charges. And by the court you will transfer me money, until payment of the full amount.  If that, find me in bystroezhke." You have come to your house and said goodbye to Anatoly.'
				 act 'Out of the car.':gt'street'
				 end
			 end
	     end
	 end
end








--- kameraKPZ ---------------------------------

# bass
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Swimming_Pool</font></B></center>'
'<center><img src="pic/bass.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Entrance to the pool costs 100 rubles, you must have a swimsuit.'

     act 'GO_OUT':set minut = minut + 5&gt'down'
     
     if db >= 1 and bikini > 0 and Goraday!day:act 'Search Zhora':Goraday=day&gt 'klofdomhouse','ev42' 

     if money >= 100 and bikini > 0:
         act 'pay 100 rub 1 hour in the pool':
		 cla
		 set minut = minut + 5
		 set money = money - 100
		 gt'bass','a'
		 end
     
     end

end

if $ARGS[0]='a':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Swimming_Pool</font></B></center>'
if magik < 4:'<center><img src="pic/bass.jpg" ></center>'
if magik >= 4 and kisameQW = 0:
'<center><img src="pic/bass1.jpg" ></center>'
'The pool floats hefty athlete, he swims with mad speed and obviously feels like a fish in water, he come to the shore to the edge of the pool and one movement jumps in front of you. Looking at you .'
     act 'Look at the swimmers':
     cla
     *clr
     set kisameQW = 1
     set minut = minut + 60
     set sweat = -3
     set manna = manna + 5
     set willpower = willpower + 5
     if stren < 30:set stren = stren + 1
     '<center><img src="picQW/kisame.jpg" ></center>'
     'Athlete put on a towel and walked up to you. He smiled and said "Hi sweetie! My name Kisame, Kish just for you!"'
         act 'hello! I Light.':
         cla
         '(Do_You) - hello! I Light.'
         '(Plavec) - Svetsik, swim together?'
         'Kisame without waiting grabs you by the waist and powerful jump jumps into the middle of the pool.'
         act 'further.':gt'kisameQW','start'
         end
         
         act 'Fuck off Kish!':
         cla
         '(Do_You) - Fuck off Kish!'
         '(Plavec) - How rude!'
         'You do not have time to blink as an athlete grabbed you by the waist and lifted up above your head easily threw you into the middle of the pool.'
         'When you spitting surfaced over the water you`ll see how you under the water at breakneck speed approaching Kisame.'
         act 'further.':gt'kisameQW','start'
         end
     end
end
if kisameQW = 1 and KisameDead < 1:
'<center><img src="picQW/kisameV.jpg" ></center>'
'Seeing you akulopodobny Kisame smiles "Hi Babe. I want to fill your hot mouth his shark seed?"'
     act 'attack (Kisame magician10)':
     cla
     set horny = horny + 10
     set $nameV = 'Kisame'
	 !stats
	 set strenV = 300
	 set speedV = 100
	 set agilV = 100
	 set reactV = 100
	 set vitalV = 200
	 set intelV = 100
   	 set willV = 50
	 !skills
	 set magikV = 10
	 set boxingV = 100
	 set shootV = 100
	 !parameters
	 set healthV = vitalV*10 + strenV*5
	 set mannaV = intelV*magikV + magikV*100 + vitalV*10
	 set willpowerV = willV*10
	 set BonusAtakV = 0
	 set BonusDefV = 0
	 !Programme of Action
   	 set program = 5
   	 !!!!!!!!!!!!!!!!!!!!
   	 !!!!!!!!!!!!!!!!!!!!
	 set KisaFight = 1
	 set klonV = 5
	 set defenceV = 800
	 if spellavtoklon = 1:set klon = 3
	 gt'fight','start'
     end
     
     act 'Make him a blowjob under water':
     cla
     *clr
     set minut = minut + 60
     set horny = horny + 100
     set sweat = -3
     set manna = manna + 5
     set willpower = willpower + 5
     if stren < 40:set stren = stren + 1
     if KisameSex = 0:set KisameSex = 1&Set guy = guy + 1
     set bj = bj + 1
     set swallow = swallow + 1
     set SUB = SUB + 1
     '<center><img src="picQW/kisameBJ.jpg" ></center>'
     'You downcast eyes, Kisame smiled even wider and pulled you into the water. His strong hands pressed your face to his groin and you wrapped around his cock lips, very quickly Kisame finished your mouth.'
     act 'Out of the water':gt'bass','start'
     end
end


     act 'bathe 1 h':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus =0
     set cumlip = 0
     set cumface = 0
     set cumfrot = 0
     set minut = minut + 60
     set sweat = -3
     set manna = manna + 5
     set willpower = willpower + 5
     if stren < 40:set stren = stren + 1
     '<center><img src="pics/swim.jpg" ></center>'
     'You iskupnulis in the pool, Water refreshes and invigorates.'
     act 'Out of the water':gt'bass','start'
     end

act 'GO_OUT':gt'bass','start'
end
--- bass ---------------------------------

# burger
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Snack Bystroeshka</font></B></center>'
'<center><img src="pic/burger.jpg" ></center>'
'The most nutritious food in the neighborhood, Score and sing a couple of kilograms, provides bright advertising on the wall.'
'Also in the works eatery <a href="exec:GT ''butoilet''">wc</a> for visitors.'
if BistroBoss>0:'<a href="exec:GT ''burgerBoss''">the principal`s office</a> Anatoly Borisovich'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     
     if money >= 100:
         act 'eat 100 RUB':
		 cla
		 *clr
		 '<center><img src="pics/food.jpg" ></center>'
		 set minut = minut + 30
		 set health = health + 10
		 set money = money - 100
		 set manna = manna + 5
		 set willpower = willpower + 5
			 if energy >= 30:
			  set fat = fat + 8
			 'You can no longer have.'
			 end
			 if energy >= 20 and energy < 30:
			 set fat = fat + 6
			 set energy = energy + 10
			 'You pushed through the power of a meal.'
			 end
			 if energy < 20:
			 set energy = energy +20
			 set fat = fat + 4
			 'You gladly ate food.'
			 end
			 if water >= 20:
			 'Tea in you no longer climbs.'
			 end
			 if water < 20:
			 'You gladly drank a cup of tea.'
			 set water = water +20
			 end
		 act 'Get up from the table':gt'burger','start'
		 end
     end
     
     if IvanPodstavaQW=2:
         act 'Go to the office of Anatoly Borisovich':
         cls
         gs'stat'
         'You went into the office to owner. He has appeared in its place, engaged in his papers. Anatoly Borisovich looked at you and said "Well? Have any news?"'
         act 'Go_Out':gt'burger','start'
             if money>=650000:
                 act 'to repay a debt':
                 cls
                 money-=650000
                 IvanPodstavaQW=5
                 
                 gs'stat'
                 'You got the money and counted 650 thousands Arkady Borisovich. He counted the money and promised, that no prosecution will no longer be.'
                 act 'Go_Out':gt'burger','start'
                 end
             end
             if IvanEvidence=1:
                 act 'Show proof':
                 cls
                 IvanPodstavaQW=6
                 IvanKvartira=0
                 IvanEvidence=0
                 gs'stat'
                 'You showed recognition of the camera recording Arkady Borisovich, where Ivan made вЂ‹вЂ‹a full confession and promised to return the money. Arkady Borisovich took you record and said, then what he will understand and take a statement from the police.'
                 act 'Go_Out':gt'burger','start'
                 end
             end
         end
     
     end
     
     if posuda = 0:
         act 'Talk about work':
         cla
         'You went to the office on which was written Manager. You met a perky girl. She began to tell you, you can work almost every day. Come in any time when running a snack bar and wash the dishes 1 h, for it will get 100 rubles immediately at hand.'
         act 'And refuse to leave':gt'burger','start'
             act 'To accept work':
             cla
             set posuda = 1
             'You agreed to work.'
             act 'Go_Out':gt'burger','start'
             end
         end
     end
     
     if posuda >= 3 and posudaA = 0:
         act 'Go to the manager':
         cla
         'You went to the office of the Manager. The girl told the manager that you are not running bad and offered you another part time. You can wash the floor in the morning, with 8 prior_to 9ti. 1 hour cleaning floors and get it 100 rubles immediately at hand.'
         act 'And refuse to leave':gt'burger','start'
             act 'Agree to work':
             cla
             set posudaA = 1
             'You agreed to work.'
             act 'Go_Out':gt'burger','start'
             end
         end
     end
     
     if posuda >= 1 and posudaday ! day and NoBistroWork=0 and PersSecWork=0:
         act 'wash the dishes (1 h 100 RUB)':
         cla
         *clr
         set posudaday = day
         set minut = minut + 60
         set posuda = posuda + 1
         set manna = manna - 15
         set money = money + 100
         set sweat = sweat + 1
         
         if bistroQW=10:bistroQW=0
         
         '<center><img src="pics/dirt.jpg" ></center>'
         !'<<bistroQW>>'
         'You are within an hour washed the dirty dishes from food debris and grease. After that 100 rubles for a job.'
             
             if vnesh>=20 and posuda>=7 and bistroQW<10:
              if bistroQW=1:$bistrotext='From the office of the owner came out and saw Bystroezhki you smiled. "Sveta. my offer is still in force. It pays to go to a restaurant?"
'
             if bistroQW=0:bistroQW=1&$bistrotext='From the office of the owner came Bystroezhki and nearly bumped into you.
             - oh, sorry. How could I miss this charming girl.
- Do not worry - you have answered with a smile.
- Can meet you? I Anatoly Borisovich.
- Sveta. 
Anatoly took your hand and kissed it.
-Would you like to have dinner at a restaurant, instead of the hole?
'
             '<<$bistrotext>>'
             act 'unsubscribe':gt'burger','start'
                 act 'agree':
                 cls
                 bistroQW=10
				 '"Let`s go first to the shop, you pick up a chic dress. And the restaurant is not allowed in with anything." Said Anatoly seeing you on the street to his car.'
					 act 'Get in the car':
					 cls
					 minut+=15
					 gs'stat'
					 '<center><img src="maggot/car.jpg" ></center>'
					 bistroQW=20
					 'Ehav in the car Anatoly took you by the hand and not let go until the very end of the road.
			After you have gone in a very expensive boutique with a French name.
			Anatoly said to you to choose the dress. 
			After a few dresses shown, He made вЂ‹вЂ‹a choice and told you to go into the fitting room.'
						 act 'Go into the fitting room':
						 cls
						 minut+=15
						 gs'stat'
						 '<center><img src="maggot/butic.jpg" ></center>'
						 'You undressed and began to inspect the dress.
			Suddenly went into the fitting room Anatoliy.
			- Sorry, could not resist, that would not look at his beautiful. 
			Looking at the dress, Anatoly said:
			- I think you will here is gray. It is the most expensive way, that there is a. And you know, Sveta, for such gifts must be very well thank.
			Anatoly eyes pointed at his pants showing, what he wants from you.
			'
							 act 'do blowjob':
							 cls
							 minut+=15
							 gs'stat'
							 bistroQW=50
							 bj+=1
							 guy+=1
							 swallow+=1
							 cumlip+=1
							 dress[24]=1
							 set dressH[24] = 160
							 set dressB[24] = bedra
							 '<center><img src="maggot/bj.jpg" ></center>'
							 'You went down and sat down in front of Anatoly, He unbuttoned his pants and pulled out his penis. You leaned toward his hard cock and kissed him, feel its warmth. Glib tongue licking juicy cock and sucking it struchek in his big and wet mouth you started sucking his cock.
			Soon Anatoly groaned and you feel like in your mouth hit the jet of warm liquid. You do not become distracted from blowjob swallow cum, trying not to choke. Anatoly straightened clothes and left.
			Dressed as you come out and show the Anatolia.
			He smiled and gestured seller, that takes Dress. 
			'
								 act 'Exit from the boutique':
								 cls
								 minut+=15
								 gs'stat'
								 '<center><img src="maggot/car.jpg" ></center>'
								 'Uff, Svetsik. I`m tired of something. Let`s go to a restaurant like some other time. You said Anatoly Borisovich and took you by the hand led to his car. You quickly get to your home and Anatoly say goodbye.'
								 act 'Out of the car':gt'street'
								 end
							 end
							 
							 act 'crease':
							 cls
							 minut+=15
							 gs'stat'
							 'You neznaya hesitated what to do. Anatoly Borisovich took you by the shoulders and pushed you to them, from what you helplessly crouched. He unbuttoned his pants and pulled out her own already risen a member.'
							 	 act 'frightened look':
								 cls
								 minut+=1
								 bistroQW=50
								 bj+=1
								 guy+=1
								 !swallow+=1
								 !cumlip+=1
								 dress[24]=1
								 set dressH[24] = 160
								 set dressB[24] = bedra
								 gs'stat'
								 '<center><img src="maggot/pr.jpg" ></center>'
								 'You looked up startled and looked at Chubais and then you feel like a hot head of his cock rested against you on the lips. Anatoly began to move his cock your lips. "Do not be shy baby, oblizni him his tongue."'
								 	 act 'lick':
									 cls
									 minut+=2
									 !swallow+=1
									 !cumlip+=1
									 gs'stat'
									 '<center><img src="maggot/pr1.jpg" ></center>'
									 'You hesitantly stuck out his tongue and licked the purple head. Then again and again, Finally.'
									 	 act 'lick dick':
										 cls
										 minut+=2
										 !swallow+=1
										 !cumlip+=1
										 gs'stat'
										 '<center><img src="maggot/pr2.jpg" ></center>'
										 'You continued to lick dick and Anatoly Borisovich taking you behind your head pushed closer to the member. You feel like you on the lips rested member. Your wet lips parted and hot and firm flesh member entered into your mouth completely filling it. "That`s the way baby, Now suck it." said Anatoly Borisovich began to move her hips and slowly fuck your mouth. You are a member of the tightly wrapped around his lips and began to feel like the skin on the penis moves along the rod.'
										     act 'sucking dick':
											 cls
											 minut+=2
											 !swallow+=1
											 cumlip+=1
											 facial+=1
											 cumface+=1
											 gs'stat'
											 '<center><img src="maggot/pr3.jpg" ></center>'
											 'You have been actively sucking dick and felt like getting tired jaw. Suddenly your mouth fired hot jet. From surprise you even released a member of his mouth and slapped Next jet of sperm you on the nose. Emerged from the mouth of the sperm and hung on your chin. Anatoly Borisovich taking you behind the head to develop a strong stick your mouth on the dick cums.'
											     act 'Sit on the floor':
												 cls
												 minut+=2
												 gs'stat'
												 '<center><img src="maggot/pr4.jpg" ></center>'
												 'Finally Anatoly Borisovich stopped and removed the stop member in the pants buttoned pants. You `re sitting stunned on the floor in front of him dressing, with sperm dripping from his face, feeling totally crappy, for nothing like the taste of semen. Anatoly Borisovich helped you get to his feet and quickly walked out of the dressing room. You became pytatsya delete sperm from the face by removing traces.'
												 	 act 'Get out of the fitting room':
													 cls
													 minut+=2
													 gs'stat'
													 !'<center><img src="maggot/pr4.jpg" ></center>'
													 'You came out of the dressing room, with a red face from shame. You feel as if the surrounding already know about, that you just sucked dick in a public place. Chubais said the saleswoman, he buys for you to dress her and paid. Saleswoman wrapped dress and you feel her gaze on his face when she gave you a package with a dress.'
													 	 act 'Exit from the boutique':
														 cls
														 minut+=15
														 gs'stat'
														 '<center><img src="maggot/car.jpg" ></center>'
														 'You are out of the boutique with Anatoly Borisovich. "Uff, Svetsik. I`m tired of something. Let`s go to a restaurant like some other time." You said Anatoly Borisovich and took you by the hand led to his car. You quickly get to your home and Anatoly say goodbye.'
														 act 'Out of the car':gt'street'
														 end
													 end
												 end
											 end
										 end
									 end
								 end
							 end
							 
							 if dom>0:
								 act 'thank you very much. (Turn_Down)':
								 cls
								 dom+=5
								 'You grinned and said "thank you very much" Anatoly broke and said pressure, "You know what I mean." after that.'
								 'you laughed, "that`s it, I understand perfectly, mayest choose to carry this dress, if you think that I litter for each potbellied, fat cat, who thinks, that saddled fate and imagines himself king of the world and brutal macho, so that not par my brain baby, and their chicks shove back to the nest, until it fell, and then I looked out there in the nest next to chick, a couple of eggs hatched not, So you treat, I help them hatch knee. in general, sebi away in horror, Casanova unfinished."'
								 'Antaloy broke out and started to threaten "Yes I am, I fire you!"'
								 'You laughed in his face "Oh scared, All right tremble, dismiss and then he `ll be here this cloth to wash the dishes."'
								 'Anatoly paled, blushed and hissing angrily jumped out of the fitting followed by your loud laughter.'
									 act 'Get_Away':
									 cla
									 set minut = minut + 5
									 gt'down'
									 end
								 end
							 end
						 end
					 end
                 end
             
             exit
             end 
             if bistroQW=20:
             bisrand=RAND(0,10)
                 if bisrand=10:
                 'From the office of the owner came Bystroezhki Anatoly Borisovich and see you turned away with arrogant mien.'
                 end
             end
             if bistroQW=56:
             'When you`re done you suddenly approached manager Ivan. "Okay Light. Sorry. I was wrong about you. I do not know, what fly bit me. We just want people to post Assistant Manager. I think you you approach. Character you have. Well? Do you agree?"'
                 act 'Yes_I_Am.':
                 cls
                 gs'stat'
                 'You agreed to the proposal to become assistant manager Ivan. Ivan immediately beamed with happiness. "Well then, here`s the keys to the office Borisych. Leave them until at. Go to his office, open the safe and take it from there envelope. Do not forget to close only after yourself safe. How to take the envelope came to me. All realized? Go_For_It!"'
                     act 'I changed my mind.':
					 cls
					 bistroQW=57
					 gs'stat'
					 'You refused the offer and Ivan noticed how his face flashed a shadow of annoyance. He said disappointedly you. "Well, my job offer."'
					 act 'Get_Away':gt'burger','start'
					 end 
					 
					 act 'Take the key and go to the office of Anatoly Borisovich.':
					 cls
					 bistroQW=111
					 gs'stat'
					 'Taking a clue from Ivan you went to the office of the owner. Opened its doors. Entered the room and went to the safe. Second kyuchom on the ring you open the safe and saw what that documents and thick envelope.'
					     act 'Look in the envelope':
					     cls
					     gs'stat'
					     $burgerIvanText='And looked into the envelope. Then you close the safe and went to the exit.'
					     'You looked at the envelope and saw there a thick wad of money. vskidku, that is about half a million. From what you see you whistled.'
					         act 'Include envelope Ivan':
							 cls
							 IvanPodstavaDay=day
							 IvanPodstavaQW=1
							 NoBistroWork=1
							 gs'stat'
							 'Coming out of the office, you saw that in the hallway near the cooler worth Ivan and talking on cell. Seeing you . You came and gave the envelope to Ivan. He quickly picked it up and put it in his jacket pocket. Then nodded to you. You can go. You want to give him the keys to the office of Anatoly Borisovich, but Ivan shook his head and closed his hand told you tube. "Leave until the keys at. Come tomorrow, discuss the details of your new appointment.'
							 act 'Get_Away':gt'burger','start'
							 end
					     end
					     
					     act 'Include envelope Ivan':
					     cls
					     $burgerIvanText='You took the envelope and close the safe headed for exit.'
					     IvanPodstavaDay=day
					     IvanPodstavaQW=1
					     NoBistroWork=1
					     gs'stat'
					     'Coming out of the office, you saw that in the hallway near the cooler worth Ivan and talking on cell. Seeing you . You came and gave the envelope to Ivan. He quickly picked it up and put it in his jacket pocket. Then nodded to you. You can go. You want to give him the keys to the office of Anatoly Borisovich, but Ivan shook his head and closed his hand told you tube. "Leave until the keys at. Come tomorrow, discuss the details of your new appointment.'
					     act 'Get_Away':gt'burger','start'
					     end
					 end
                 end
                 
                 act 'No.':
                 cls
                 bistroQW=57
                 gs'stat'
                 'You refused the offer and Ivan noticed how his face flashed a shadow of annoyance. He said disappointedly you. "Well, my job offer."'
                 act 'Get_Away':gt'burger','start'
                 end
             exit
             end
             if bistroQW=50:
             'During operation, that Anatoly Borisovich away, on business matters and he is replaced by Ivan manager. When you are ready to leave work, came out of the office manager and Ivan came to you, conspiratorial tone said. "Well Light, You obviously do not want to work for those pennies? Come to me, specials. work for the special . salary."'
             
                 act 'Go to the manager`s office':
                 cls
                 minut+=15
                 gs'stat'
                 bistroQW=55
                 !bj+=1
                 !guy+=1
                 !swallow+=1
                 !cumlip+=1
                 '<center><img src="maggot/bj1.jpg" ></center>'
                 'You went into the office and Ivan previously closed the door of the castle, sat in a chair in front of you, lounging at ease in it. You went to the manager and waited for what he would do, he grinned impudently and deftly grabbed you by the hand pulling to yourself.'
                     act 'bend':
                     cls
                     '<center><img src="maggot/bj2.jpg" ></center>'
                     'You leaned over and came face to face with Ivan, he whispered, "After working baby mouth."'
                         act 'Take by mouth':
						 cls
						 minut+=3
						 gs'stat'
						 bj+=1
						 guy+=1
						 '<center><img src="maggot/bj3.jpg" ></center>'
						 'Continuing to stand before you even stronger Ivan leaned over and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and started to suck his cock absorbing into his hot mouth to the end, utykayas nose with every movement in curly pubis, that tickle your nose.'
						 'Ivan finally broke down and without warning began to cum in your mouth. A jet of hot liquid hit you in the mouth, You opened his eyes wide with surprise, but you continued to suck dick spewing seed, Finally you had already a mouthful of semen and you could not keep it .'
						     act 'Swallow cum and his cock clean language':
							 cls
							 minut+=2
							 swallow+=1
                             cumlip+=1
                             money+=1500
							 gs'stat'
							 '<center><img src="maggot/bj4.jpg" ></center>'
							 'You sit down in front of the manager and swallowing sperm, started to lick the remnants of the still standing, but quickly fall off member.'
							 'Finally cock completely down and satisfied Ivan gave you a half thousand rubles for the work you have done.'
							 act 'Get_Away':gt'burger','start'
							 end
						 
						 end
                     end
                     
                     if dom>0 or dom=0 and sub=0:
                         act 'escape':
                         cls
                         bistroQW=56
                         gs'stat'
                         '<center><img src="maggot/bj1.jpg" ></center>'
                         'You escaped from the hands of Ivan did not expect such a reaction. He looked at you wrong "In Borisych means suck, and his deputy brezguesh?" You were taken aback by these words. How does he know about, What happened in the dressing room stall. Apparently on your face that it reflected Ivan grunted. "Yes Borisych himself raskazal about it. If you are calculated, but then, that will manage Okrut Borisych, something for nothing. Did you tell him not really even need. And I`ll offer a good zarobotok. so that, Be a good boy and show me, what can your mouth."'
                         act 'perebesh!':dom+=1&gt'burger','start'
                             act 'Take by mouth':
							 cls
							 bistroQW=55
							 minut+=3
							 gs'stat'
							 bj+=1
							 guy+=1
							 '<center><img src="maggot/bj3.jpg" ></center>'
							 'Continuing to stand before you even stronger Ivan leaned over and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and started to suck his cock absorbing into his hot mouth to the end, utykayas nose with every movement in curly pubis, that tickle your nose.'
							 'Ivan finally broke down and without warning began to cum in your mouth. A jet of hot liquid hit you in the mouth, You opened his eyes wide with surprise, but you continued to suck dick spewing seed, Finally you had already a mouthful of semen and you could not keep it .'
								 act 'Swallow cum and his cock clean language':
								 cls
								 minut+=2
								 swallow+=1
								 cumlip+=1
								 money+=1500
								 gs'stat'
								 '<center><img src="maggot/bj4.jpg" ></center>'
								 'You sit down in front of the manager and swallowing sperm, started to lick the remnants of the still standing, but quickly fall off member.'
								 'Finally cock completely down and satisfied Ivan gave you a half thousand rubles for the work you have done.'
								 act 'Get_Away':gt'burger','start'
								 end
							 
							 end
                         end
                     
                     end
                     
                 exit
                 end
                 
             end
             
             if bistroQW=55:
             'To you came and said manager Ivan "Waiting for you in the office."'
				 act 'Go to the manager`s office':
				 cls
				 bistroQW=60
				 'You went to the office, Ivan sat at the table and motioned for you under the table. you understand, Ivan wants, What would you crawled under the table.'
					 act 'Crawl under the table':
					 cls
					 minut+=3
					 gs'stat'
					 bj+=1
                     swallow+=1
                     cumlip+=1
                     money+=1500
					 '<center><img src="maggot/bjud.jpg" ></center>'
					 'You crawled under the table and pulled Ivan in front of your face your dick. You wrapped around his lips and began to suck trying to incorporate it into your mouth as deeply as possible. Under the table was cramped and uncomfortable sucking, but you coped buccal and after a few minutes in your mouth poured semen Ivan you started quickly swallow, that would not ispachkatsya.'
					 'After that Ivan as the first time got fifteen hundred and handed to you.'
                     act 'Get_Away':gt'burger','start'
					 end
				 end
             end
             
             if bistroQW=60:
             'Ivan that is nowhere to be seen and to you he has not approached, you had the idea to check his office.'
                 act 'Go to the manager`s office':
				 cls
				 bistroQW=65
				 'You came to the office, but it was closed, you approached the deputy manager and said with a laugh you "what Svetlana? without В«stick teaВ» can not work? I know all about you and our general manager. But it was not until the end of the week. And if you do not want me to tell the rest of the, how you earn a living, then you go to the office and serve me."'
				 ''
				     act 'Meekly nod':
				     cls
				     bj+=1
                     swallow+=1
                     cumlip+=1
                     cumface+=1
                     guy+=1
				     '<center><img src="maggot/bj21.jpg" ></center>'
				     'You went into the room and crouched down in front of deputy manager, he took dick and put it in your face showering smell not washed perineum. You licked the salty member and sigh of despair, began to suck. Pimply punk lasted just a few of your movements and began to violently finish your mouth, you could not even all ubratsya in the mouth and on the lips flowed.'
				     act 'Get_Away':gt'burger','start'
				     end
				     
					 act 'Send it':
					 cls
					 'You said contemptuously this pryshavomu boy, that he would go to hell, with its threats.'
					 'ha, Listen here slut! chief - my father, he is the master bystroezhki, and Borisych just a hired director. And if you know what you Borisych fuck and suck all, who will offer, he will bury you alive! Could silence a couple of days to work his mouth and all, and so ...
					After these words he called 2-x movers and said
					- children, do not want to blow off steam on this lyarva? Do not be afraid, it will be good-natured. Serve the full. I`m right, Svetsik?
					'
					     act 'Yes_I_Am':
					     cls
					     bistroQW=70
					     bj+=1
					     guy+=3
					     gruzsex+=1
					     '<center><img src="maggot/tri.jpg" ></center>'
					     'You jitters mumbled yes, in front of three men and porters smiled. You immediately taking his hand was taken to the warehouse, helped you to undress and put on his knees presenting three members to serve.'
					     'You became diligently to serve three terms by turns sucking their hands and soon nadrachivaya men groaned and one of them grabbed you by the head removed from the penis.'
					     	 act 'substitute person':
							 cls
							 cumface+=3
							 facial+=1
							 '<center><img src="maggot/tri2.jpg" ></center>'
							 'Hot jet of sperm slapped you in the face, you close your eyes and just feel the skin penetration sharply smelling semen on the face. Soon after the bombing stopped and your whole face is covered with a thick layer of sticky Cum, guys looked pretty and fun of you. Then they left the warehouse giving you, herself.'
							 ''
							  act 'Get_Away':gt'burger','start'
							 end
					     end
					     
					     act 'Yelled at full throat and run':bistroQW=61&gt'burger','start'
					 end
				 end
             end
             
             if bistroQW>=65 and soplakTimes!3:
             'To you came pimply deputy manager and taking his hand led to his office.'
             'In office.'
				 act 'work mouth':
				 cls
				 bj+=1
				 sub+=1
				 '<center><img src="maggot/bj31.jpg" ></center>'
				 'You are kneeling in front of a kid sitting in a chair, began to make him a blowjob diligently sucking dick, caressing tongue prick and testicles, and nadrachivaya trunk with one hand'
					 act '...':
					 cls
					 cumlip+=1
					 money+=300
					 soplakTimes+=1
					 '<center><img src="maggot/bj32.jpg" ></center>'
					 'Hot jet of sperm slapped you in the mouth, you continue nadrachivat hand member while being careful not to drop out of his mouth a drop of nasty tasting liquid. Finally. He grinned and threw on the floor three hundred- paper. You pick them up and hid, rose from his knees and left the office.'
					 ''
					  act 'Get_Away':gt'burger','start'
					 end
				 end
             exit
             end 
             
             if bistroQW=57 and BistroBoss=0 or bistroQW>=65 and BistroBoss=0 and soplakTimes=3:
             BistroBoss=1
             if soplakTimes=3:soplakTimes=4
             'When you have finished, seemed on the verge of bystroezhki Anatoly Borisovich, He nodded to you "Hello World, finish, Come to me."'
             act 'Get_Away':gt'burger','start'
             exit
             end
             
             
         act 'Get_Away':gt'burger','start'
         end
     end
     
     if posudaA >= 1 and posudaAday ! day and hour < 10 and NoBistroWork=0 and PersSecWork=0:
         act 'mopping the floor (1 h 100 RUB)':
         cla
         *clr
         set posudaAday = day
         set minut = minut + 60
         set posuda = posuda + 1
         set manna = manna - 15
         set money = money + 100
         set sweat = sweat + 1
         '<center><img src="pic/clener1.jpg" ></center>'
         'You are within an hour namyvali floor in a diner. After that 100 rubles for a job.'
         act 'Get_Away':gt'burger','start'
         end
     end

end
--- burger ---------------------------------

# burgerBoss
!Podyablonskaya
!Calvin Broadus Kaldazar
!Andrew Krivorotov
!Dennis Dobrovolsky

gs'stat'
if BistroBoss=10:
if week<6 and hour>=9 and hour<17:'Anatoly Borisovich sitting at the table and talking to someone on the phone.'
if week<6 and hour<9 or week<6 and hour>=17:'Chubais is not there.'
if week>=6:'Now the weekend and Anatoly Borisovich not there.'
act 'Get_Away':gt'burger','start'
     if PersSecWork=2:
         if week<6 and hour<10:
         'Anatoly Borisovich looked sternly at you "Sveta, you`re fired, and I will not raise, get_away, we`re through, Me , what are you."'
         end
     end
     if PersSecWork=1:
         if week<6 and hour<10 and ofclo = 1:
         act 'work':gt'burgerWork'
         end
         
         if week<6 and hour<10 and ofclo ! 1:
         'Anatoly Borisovich looked sternly at you "Svetlana, what you dressed up? Go home and disguise, Today you hooky!"'
         end
     
     end
     
     if PersSecWork=0 and week<6:
		 if secrDiplom = 1:
			 act 'Show diploma':
			 cls
			 minut+=1
			 gs'stat'
			 'You have shown a degree Anatoly Borisovich, "And labor has?"'
			     act 'No':
				 cls
				 minut+=1
				 gs'stat'
				 'you said, what works elsewhere. Anatoly Borisovich smiled slightly, "That I could get you a job, need you to quit her former employment. You think carefully, I will not force, but I`ll give you a salary normal. Will polchat 2500 in time, it is more fifty dollars a month."'
					 act 'Get_Away':gt'burger','start'
				 end
				 
				 if work = 0:
				     act 'Here labor':
					 cls
					 minut+=1
					 gs'stat'
					 'You put labor on the table. Anatoly Borisovich smiled slightly, "You think carefully, I will not force, but I`ll give you a salary normal. Will polchat 2500 in time, it is more fifty dollars a month. From you I need loyalty, efficiency, strict compliance guidelines."'
						 act 'Get_Away':gt'burger','start'
						 
						 act 'To get a job':
						 cls
						 minut+=1
						 work = 1
						 PersSecWork=1
						 gs'stat'
						 'You have agreed to become secretary Anatoly Borisovich, he took your career, made a copy of passport and diploma, and began to tell. Come every weekday at bystroezhku not later 9 o`clock, Be sure to observe the dress code. receive calls, Capture, print documents, in general. Going to work 17o`clock, salary once a month.'
							 act 'Get_Away':gt'burger','start'
							 
						 end
					 end
				 
				 end
				 
				 
			 end
		 end
     end
end

if BistroBoss=1:
'You have entered the principal`s office. Anatoly Borisovich sat at the table and studied documents, see you .'

     act 'Sit on a chair':
     cls
     minut+=1
     BistroBoss=10
     gs'stat'
		 if bistroQW=57:
		 kosmetica+=200
		 'You sat down on a chair and smiled Anatoly Borisovich you. "I`m so glad, that the damn trip ended. I had already missed you. By the way , here`s a gift." With these words . "And more, I want you to devote a few details. I am married, I have children. So do not even stutter about any marriage, so. my wife, the daughter of a very influential deputy and my current position Director of the temporary crappy diner, I soon received the post of Deputy Minister for Construction, but for now I just need to get an entry in the labor force. so, are you showed a stiff upper lip, I need loyal people, and I suggest you be my secretary. Do you have a diploma of the courses secretary?"'
		     if secrDiplom = 1:
		         act 'Yes_I_Am, I have a diploma.':
				 cls
				 minut+=1
				 gs'stat'
				 'You said that you already have a diploma Secretary. Anatoly Borisovich smiled. "What do you all still done. Listen, I now need to make a couple of calls, Come out yet."'
				 act 'Get_Away':gt'burger','start'
				 end
		     end
		     if secrDiplom = 0 and sekrObu > 0:
		         act 'I do not have a diploma, but I `m on the Secretary.':
				 cls
				 minut+=1
				 gs'stat'
				 'You said that you already have a diploma Secretary. Anatoly Borisovich smiled. "What do you all still done. Douchishsya, come to me. Listen, I now need to make a couple of calls, Come out yet."'
				 act 'Get_Away':gt'burger','start'
				 end
		     end
		     if secrDiplom = 0 and sekrObu = 0:
		         act 'No.':
				 cls
				 sekrObu = 1
				 minut+=1
				 gs'stat'
				 'You shook your head. Anatoly Borisovich smiled. "It does not matter, I now pay for your training and once you`re done, come to me."'
				 act 'Get_Away':gt'burger','start'
				 end
		     end
		 
		 end
		 if bistroQW>=65:
		 'You sat down on a chair and Anatoly Borisovich gave you a dark look. "I did not think, you`re so deshovke. What is your fee? Three hundred of the suction to swallow?" He took out a bill to 300 rubles and threw it on the floor. "Kneel and waste, you know how, vaflersha."'
		 act 'Get_Away':gt'burger','start'
		     act 'Kneel':
		     cls
		     minut+=5
		     money+=300
		     bj+=1
		     swallow+=1
		     cumlip+=1
		     BistroBoss=2
		     BistroBossDay=day
		     gs'stat'
		     '<center><img src="qwest/sosed/bj2.jpg"></center>'
		     'You knelt down and took the money from the floor. Anatoly Borisovich got dick and you tipped her face on his solid body. Then you wrapped around his own lips and began to suck feeling as solid rod fills your mouth. Anatoly Borisovich his teeth with pleasure "suck slut, and now swallow, and that would be all swallowed up drops!" You felt like you hit the sperm in her mouth and began to quickly swallow sperm, that would not choke. When_you_have_finished, Anatoly Borisovich removed term in pants and said "Now get out."'
		     act 'Get_Away':gt'burger','start'
		     end
		 end
	 end

end
if BistroBoss=2 and BistroBossDay=day:
'Knocking you are logged into the office of Anatoly Borisovich. He angrily looked at you "I told, get out of here."'
act 'Get_Away':gt'burger','start'
end

if BistroBoss=2 and BistroBossDay!day:
'Knocking you are logged into the office of Anatoly Borisovich. He looked darkly at you and took the bill in 300 rubles "Kneel and waste, you know how, vaflersha."'
act 'Get_Away':gt'burger','start'
BistroBossDay=day
	 act 'Kneel':
	 cls
	 minut+=5
	 money+=300
	 bj+=1
	 swallow+=1
	 cumlip+=1
	 BistroBossDay=day
	 gs'stat'
	 '<center><img src="qwest/sosed/bj2.jpg"></center>'
	 'You knelt down and took the money from the floor. Anatoly Borisovich got dick and you tipped her face on his solid body. Then you wrapped around his own lips and began to suck feeling as solid rod fills your mouth. Anatoly Borisovich his teeth with pleasure "suck slut, and now swallow, and that would be all swallowed up drops!" You felt like you hit the sperm in her mouth and began to quickly swallow sperm, that would not choke. When_you_have_finished, Anatoly Borisovich removed term in pants and said "Now get out."'
	 act 'Get_Away':gt'burger','start'
	 end
end












--- burgerBoss ---------------------------------

# burgerWork
$dinBistroWork={
	 act 'dinner':
	 cls
	 gs'stat'
	 '<center><img src="pics/food.jpg" ></center>'
	 set minut = minut + 30
	 set health = health + 10
	 set manna = manna + 5
	 set willpower = willpower + 5
	 'You took bystroezhke food and sat at a table for dinner.'
		 if energy >= 30:
		  set fat = fat + 8
		 'You can no longer have.'
		 end
		 if energy >= 20 and energy < 30:
		 set fat = fat + 6
		 set energy = energy + 10
		 'You pushed through the power of a meal.'
		 end
		 if energy < 20:
		 set energy = energy +20
		 set fat = fat + 4
		 'You gladly ate food.'
		 end
		 if water >= 20:
		 'Tea in you no longer climbs.'
		 end
		 if water < 20:
		 'You gladly drank a cup of tea.'
		 set water = water +20
		 end
	 gs'stat'
	 
		 dynamic $dinBistroWork3
	 end
}

$dinBistroWork2={
	 act 'Leave work':
	 cls
	 gs'stat'
	 	 if kompromatBlackMail>=6 and ivanFilmBJ>0:
	 	 kobl=0
	     kobl2=2
	     end
	     if kompromatBlackMail>=6 and ivanFilmBJ=0:
	     kobl=0
	     kobl2=2
	     end
	     if kompromatBlackMail<6:
	     kobl=0
	     kobl2=1
	     end
	     komblrand=RAND(kobl,kobl2)
	     if kompromatBlackMail>=2:
	         if komblrand=0:
			 'After work, but you went to Ivan. "Where are you going, Babe? And how to suck my candy?"'
				 act 'agree':
				 cls
				 bj+=1
				 cumlip+=1
				 swallow+=1
				 kompromatBlackMail+=1
				 minut+=5
				 gs'stat'
				 '<center><img src="qwest/sosed/ivanBJ.jpg"></center>'
				 'Ivan took you around the corner in a dirty alley bystroezhki smelling urine. He pulled out of his pants member. "And now for the baby and try to work better." You sit down in front of Ivan and took his cock in her mouth, it was salty and not washed. You started to suck trying to act more active, What would Ivan finished as soon as possible. Finally Ivan puffed and began to cum in your mouth. You quickly swallowed shooting eyes on the sides, in the hope of, that nobody sees. After you swallow cum, Ivan removed the term in the pants "Not_Bad, nipple. Now get out of here!"'
				 act 'Get_Away':gt'down'
				 end
				 
				 dynamic $din_Ivan_work4
			 end
			 if komblrand=1:
			 'After work, but you went to Ivan. "Where are you going, Babe? And how to suck my candy?"'
			 	 act 'agree':
				 cls
				 bj+=1
				 cumlip+=1
				 swallow+=1
				 kompromatBlackMail+=1
				 minut+=5
				 gs'stat'
				 '<center><img src="qwest/sosed/ivanBJcar.jpg"></center>'
				 'Ivan took you to his car standing in the alley, He got behind the wheel and you sat down next to him. Ivan got dick out of his pants and grab you by the hair pulled your face to his groin while his penis is not buried you in your <<$liptalk3>>. You open your mouth and allow the members enter between your lips. You began to suck harder trying to squeeze their <<$liptalk3>> on a limb, that would be quickly finished Ivan. Ivan finally broke down and finished in your mouth. You continued to suck until cum swallowing dick fell. Ivan bosses cock in his pants and said "Okay huesoska, get_out."'
				 act 'Get_Away':gt'down'
				 end
				 
				 dynamic $din_Ivan_work4
			 end
			 if komblrand=2:
			 'After work, but you went to Ivan. "Where are you going, Babe? And how to suck my candy?"'
			 	 act 'agree':
				 cls
				 kompromatBlackMail+=1
				 minut+=5
				 gs'stat'
				 '<center><img src="maggot/car.jpg"></center>'
				 'Ivan took you to his car standing in the alley, He got behind the wheel and you sat down next to him. Ivan started the car and you went to the northern region. "And do not forget baby, until you slushaesh me you have a job and prospects, but should you piss me off , you will take off from her job as a stopper." Soon you come to a new building, Ivan put the car in the free space. You got out and went with Ivan to the entrance. On the elevator . Ivan without delay, took you by the hand and led her into the bedroom. There he sat on the bed and pulled out a camera. Ivan got dick out of his pants and said "Babe suck, you know how, should get not a bad porn."'
				 
				     act 'suck':
				     cls
				     minut+=5
				     bj+=1
				     ivanFilmBJ+=1
				     gs'stat'
				     '<center><img src="qwest/sosed/ivanBJfilm.jpg"></center>'
				     'You sat down on his knees in front of Ivan and clasped his <<$liptalk3>> member. Ivan sent you face the camera and filmed as you suck his cock close-up. Ivan put you back on the sofa and sat down on your chest so, that his cock was in your face.'
				         act 'suck':
						 cls
						 minut+=5
						 gs'stat'
						 '<center><img src="qwest/sosed/ivanBJfilm2.jpg"></center>'
						 'North top Ivan began to fuck you in the mouth every time a member of their firm head sticking in your throat, you suck diligently trying not to choke on. At the same time Ivan did not forget to take you on camera. Finally he took a member of your mouth.'
						 	 act 'open your mouth':
							 cls
							 minut+=5
							 facial+=1
							 cumface+=1
							 gs'stat'
							 '<center><img src="qwest/sosed/ivanBJfilm3.jpg"></center>'
							 'Ivan began to finish you on your <<$liptalk3>> and language. Cum dripping from your lips on the chin and chest. Ivan finally turned off the camera and put it in a box. "Not bad worked chlenososka. you can wash and piss."'
							 act 'Get_Away':cumface=0&gt'nord'
							 end
						 end
				     end
				 dynamic $din_Ivan_work4
				 end
				 
				 dynamic $din_Ivan_work4
			 end
			 if komblrand=3:
			 ''
			 
			 end
	     exit
	     end
	 gt'burger','start'
	 end

}
$dinBistroWork3={
	 act 'work':
	 cls
	 PSBBtimes=2
	 minut+=30
	 minut+=60*3
	 gs'stat'
	 '<center><img src="qwest/sosed/work.jpg"></center>'
	 !gs'BurgerTip'
	 'You sat down and started on the computer to prepare the contract.'
	 dynamic $burger_work_din
	 dynamic $dinBistroWork2
	 end

}

gs'BurgerTip'
if hour<10:hour=10&minut=0&PersSecWorkTimes+=1
gs'stat'
'<center><img src="qwest/sosed/work.jpg"></center>'
'You are sitting in his office in front of the Cabinet Anatoly Borisovich.'

if hour<17:
	 act 'Work before lunch':
	 cls
	 PSBBtimes=1
	 minut+=60*2
	 gs'stat'
	 '<center><img src="qwest/sosed/work.jpg"></center>'
	 !gs'BurgerTip'
	 'You sat down and began to prepare computer contract.'
	 	 if TerminalPapper=1:
	     TerminalPapper=0
	     kosiakBU+=1
	     'Anatoly Borisovich gave a dressing down for you, you do not have carried documents for storage terminal and disrupted supply.'
	     end
	     if TerminalPapper=2:
	     TerminalPapper=0
	     'Anatoly Borisovich thanked you, for, you shall deliver the documents for storage terminal.'
	     end
	     if BankPapper=2:
	     BankPapper=0
	     'Anatoly Borisovich thanked you, for, you shall deliver the documents to the bank.'
	     end
	     if BankPapper=1:
	     BankPapper=0
	     kosiakBU+=1
	     'Anatoly Borisovich chastised you for, that you have not taken the documents to the bank.'
	     end
	     if BuSWworkEnd=1 or kompromatBlackMail=1:
	     'Anatoly Borisovich came into your office and put the paper in front of you with a pen. "Write on their own. I do not need a secretary with a past like yours."'
	         act 'Write a statement about dismissal':
             cls
             work=0
             PersSecWork=2
             Pay=PersSecWorkTimes*2500
             PersSecWorkTimes=0
             money+=Pay
             gs'stat'
             'You wrote a statement of resignation of its chief and quickly signed, He counted to you <<pay>> rubles your paycheck and said "It`s over Svetlana, get out of here."'
             act 'Get_Away':gt 'down'
             end
	     exit
	     end
	     
	 dynamic $burger_work_din
	 dynamic $dinBistroWork
	 end
	 
end



!Anatoly Borisovich Director
!smart girl HR Manager, personnel department
!manager Ivan, player, ILO and brave guy
!Deputy manager, pimply boy, son of the owner bystroezhki


--- burgerWork ---------------------------------

# BurgerTip
$burger_work_din={
burand=RAND(0,6)
     if burand=0:
     'You have on the table lit lamp device. Anatoly Borisovich causes you to my.'
         act 'Go to the office of Anatoly Borisovich':
         cls
         gs'stat'
         '<center><img src="qwest/sosed/work2.jpg"></center>'
         bossrand=RAND(0,3)
             if bossrand=0:
             'You went into the room and approached the table Anatoly Borisovich. He turned his head to you "Svetochka, bring coffee."'
             
                 act 'bring coffee':
				 cls
				 gs'stat'
				 '<center><img src="qwest/sosed/work3.jpg"></center>'
				 'You went to the kitchen and make coffee for the boss. Then brought his boss.'
				 if PSBBtimes=1:dynamic $dinBistroWork
				 if PSBBtimes=2:dynamic $dinBistroWork2
				 end
             end
             if bossrand=1:
             'You went into the room and approached the table Anatoly Borisovich. He turned his head to you "Svetochka. Take these documents . It will issue and you bring them to me."'
                 act 'Go to the chief accountant':
				 cls
				 gs'stat'
				 '<center><img src="qwest/sosed/work9.jpg"></center>'
				 'You took the papers and went to the chief accountant. Elena G. irritably took documents, muttered something under his breath, put signature and print multiple accounts. "Bring to the Director."'
				     act 'Go to the director':
					 cls
					 gs'stat'
					 '<center><img src="qwest/sosed/work2.jpg"></center>'
					 'Taking the documents you went back to the director `s office and gave him documents.'
					 
					 if PSBBtimes=1:dynamic $dinBistroWork
					 if PSBBtimes=2:dynamic $dinBistroWork2
					 end
				 end
             end
             if bossrand=2:
             'You went into the room and approached the table Anatoly Borisovich. He turned his head to you "Svetochka. Take these documents and bring them to Ivan, will let immediately"'
                 act 'Go to Ivan':
				 cls
				 gs'stat'
				 '<center><img src="qwest/sosed/work7.jpg"></center>'
				 'You took the papers and went to the senior manager Ivan.'
				 'Ivan sat in his office and worked at the computer. You gave him a folder with documents "Chubais said to do this immediately." Ivan took out of your hands and scanned the folder you nod.'
				     act 'Go to my':
					 cls
					 gs'stat'
					 '<center><img src="qwest/sosed/work.jpg"></center>'
					 'Documents giving you went to his office.'
					 if PSBBtimes=1:dynamic $dinBistroWork
					 if PSBBtimes=2:dynamic $dinBistroWork2
					 end
				 end
             end
             if bossrand=3:
             cls
             bossexrand=RAND(0,3)
             horny+=10
             gs'stat'
             '<center><img src="qwest/sosed/boss<<bossexrand>>.jpg"></center>'
             'You went into the room and approached the table Anatoly Borisovich. He got up from the table and walked over to you'
                 if bossexrand=0:'Chubais came up to you and you passionately pressed to the wall covering with kisses.'
                 if bossexrand=1:'His hand slid down to your belly and crawled under her skirt, You felt his hand began to caress your pussy.'
                 if bossexrand=2:'He grabbed you for your ass and lifted up her skirt you began to knead your soft ass.'
                 if bossexrand=3:'Anatoly Borisovich put your hands on your hips, His hands slid up lifting up your skirt.'
                 
				 act 'kiss':
				 cls
				 horny+=10
				 gs'stat'
				 '<center><img src="qwest/sosed/bossex.jpg"></center>'
				 'Anatoly Borisovich sat on the couch holding you firmly in its hands. He put you over the top and began to kiss you and caress your ass.'
				 dynamic $boss_din_bj
				     act 'carry_On':
					 cls
					 horny+=10
					 gs'stat'
					 '<center><img src="qwest/sosed/bossex2.jpg"></center>'
					 'Anatoly Borisovich began to undress you and knocked you on your back. He kissed you and you got into his hands between his legs feeling the pussy'
					 bosstipsexrand=RAND(1,10)
					     if bosstipsexrand>=3:
					     dynamic $boss_din_sex2
					     end
					     if bosstipsexrand<3:
					     'Anatoly Borisovich fingers began to fondle your ass and you feel like you got his finger in the ass.'
					     dynamic $boss_din_anal2
					     end
					 end
				 end
				 
				 act 'Kneel':
				 cls
				 gs'stat'
				 '<center><img src="qwest/sosed/bossex1.jpg"></center>'
				 'You knelt before the head and began to unbutton his pants with his thin fingers. Anatoly Borisovich stood in front of you without moving and stared into your eyes. Finally you unbuttoned his pants and stuck his hand in his pants chief groped his cock.'
				     act 'Caress cock through panties':
					 cls
					 gs'stat'
					 '<center><img src="qwest/sosed/bossBJ.jpg"></center>'
					 'Vashie thin fingers pulled his pants with the chief. You kissed panties in place tuber felt solid flesh through the fabric. Then playfully took in her mouth cock right through the panties and began to fondle.'
					 dynamic $boss_din_bj
					 end
					 
					 dynamic $boss_din_bj
				 end
             end
         
         end
     exit
     end
     
     if burand=1:
     cls
     gs'stat'
     '<center><img src="qwest/sosed/work5.jpg"></center>'
         if PSBBtimes=1: 
         bosstiprand=RAND(0,3)
             if bosstiprand=0:
             TerminalPapper=1
             DayTerminalPapper=day
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, Bring these documents to the Northern region, on the storage terminal, then you can be free today."'
             act 'Get_Away':gt 'down'
             end
             if bosstiprand=1:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, I`ll leave before lunch for. But now bring up products, I accept you instead of products."'
                 act 'take products':
                 cls
                 gs'stat'
                 'To the rear entrance truck arrived with food. To you approached the driver with the documents on acceptance. You signed the documents and ordered the baggage handlers to unload the car.'
                 if PSBBtimes=1:dynamic $dinBistroWork
			     if PSBBtimes=2:dynamic $dinBistroWork2
                 end
             end
             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
             if bosstiprand=2:
             BankPapper=1
             dayBankPapper=day
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, run to the bank with these documents. Take it as documents can be free today."'
             act 'Get_Away':gt 'down'
             end
             if bosstiprand=3:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, call the programmer, which we have part-time, my comp is broken"'
                 act 'Call the programmer':
                 cls
                 gs'stat'
                     if sosedQW=0:
                     'Soon the office became young, tall guy with a big bag. He asked that broke, You showed him the chief of the computer and the guy sat down at the computer repair. Soon he graduated and earned a computer.'
                     end
                     if sosedQW>0 and sosedKnowWork>0:
                     sosedKnowWork=1
                     'Soon the office became Timothy, your neighbor. He asked that broke, You showed him the chief of the computer and the guy sat down at the computer repair. Soon he graduated and earned a computer.'
                     end
                     if sosedQW>0 and sosedKnowWork=0:
                     sosedKnowWork=1
                     'Soon the office became Timothy, your neighbor. He was surprised to see you. You talked fun, Timothy is working part-time in bystroezhke, office equipment repairs, charges cartridges.'
                     end
                 if PSBBtimes=1:dynamic $dinBistroWork
			     if PSBBtimes=2:dynamic $dinBistroWork2
                 end
             end
         end
         !!!!!!!!!!!!!!!!!!!!!!!
         !!!!!!!!!!!!!!!!!!!!!!!
         if PSBBtimes=2: 
         bosstiprand=RAND(0,3)
             if bosstiprand=0:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, I have to leave early today, Here you print, okay, as_long_as." then Anatoly Borisovich left the office.'
             bburand=RAND(0,10)
                 if bburand=0:
				 'To you came into the office senior manager Ivan.'
				 dynamic $din_Ivan_work
					  if kompromatLife=0 or kompromatBlackMail>1:
					 'Ivan smiled "I need shtampulki into these papers." You took the seal and stamp on paper Ivan.'
					 if PSBBtimes=1:dynamic $dinBistroWork
			         if PSBBtimes=2:dynamic $dinBistroWork2
					 end
				 end
				 if bburand=1:
				 'To you came into the office assistant manager Sergey.'
				 'Sergei looked at you carnivorous eyes "Anatoly Borisovich at?" you answered, Not.'
				     if sergeyPQW=1:
				     'Pimply young man grunted and sat on the edge of the table. "Svetsik, you dynamo. I`m in a cafe for you invested, and you`re with me here and so cost. That`s not at all nice of you."'
				     end
				     if sergeyPQW=0:
				     'Pimply kid sat on the edge of the table "Svetsik, you cool Devchenka, You can go to somewhere?"'
				         act 'No! And do not even think!':
                         cls
                         gs'stat'
                         'You rejected the proposal of the rookie and he jumped up from the table left the office.'
                         if PSBBtimes=1:dynamic $dinBistroWork
		                 if PSBBtimes=2:dynamic $dinBistroWork2
                         end
                         
                         act 'Bring_It_On.':
                         cls
                         gs'stat'
                         '<center><img src="qwest/sosed/work7.jpg"></center>'
                         'Sergei was delighted and promised to come after you left. Working time has come to an end and re-entered the office of Sergei. "Let`S_Go."'
                             act 'go.':
							 cls
							 minut+=60
							 horny+=15
							 water=24
							 energy=24
							 salo+=2
							 fat+=20
							 gs'stat'
							 '<center><img src="qwest/sosed/kafe2.jpg"></center>'
							 'You went along with Sergey and went to the location not far from the cafe bystroezhki. Sergei ordered a drink and a meal and you sat at the table. Order soon brought and you began to eat and drink wine. Soon. Sergei called the waitress and paid with her. You went out with his pimply cavalier and he suddenly put his arm around you "Svetsik, drove me."'
							     act 'Opt_Out.':
								 cls
								 minut+=15
								 sergeyPQW=1
								 gs'stat'
								 !'<center><img src="qwest/sosed/kafe2.jpg"></center>'
								 'You refused to harassment obsessive milksop and left.'
								 act 'Get_Away.':gt'down'
								 end
								 
								 
							 end
                         end
				     exit
				     end
				 	 if PSBBtimes=1:dynamic $dinBistroWork
		             if PSBBtimes=2:dynamic $dinBistroWork2
				 end
				 if bburand=2:
				 'To you came into the office the chief accountant Lena.'
				 'Lena looked around disapprovingly you "Chef at?" You said that he was gone. Lena lipped left.'
				 	 if PSBBtimes=1:dynamic $dinBistroWork
		             if PSBBtimes=2:dynamic $dinBistroWork2
				 end
				 if bburand=3:
				 'To you came into the office personnel manager Vic.'
				 'Vic you smile "Chef at?" you answered, he`s gone. Vick said he would call the next time left.'
					 if PSBBtimes=1:dynamic $dinBistroWork
		             if PSBBtimes=2:dynamic $dinBistroWork2 
				 end
				 if bburand>3:
				 'You allotted time sat in the office of one, bored and expanding solitaire on the computer.'
				 if PSBBtimes=1:dynamic $dinBistroWork
			     if PSBBtimes=2:dynamic $dinBistroWork2
				 end
				 
             end
             !!!!!!!!!!!!!!!!!!!!!!!!!
             !!!!!!!!!!!!!!!!!!!!!!!!!
             if bosstiprand=1:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, come with me together, fun_too."'
                 act 'Go with Anatoly Borisovich':
                 cls
                 gs'stat'
                 BurMestoRand=RAND(0,1)
                 '<center><img src="maggot/car.jpg" ></center>'
                     if BurMestoRand=0:
                     'You got in the car to Anatoly Borisovich and you went into the sleeping area of вЂ‹вЂ‹the city. Soon the car stopped near the sauna. Chubais said with a smile. "I rented a room for us."'
                         act 'Go to the sauna':
                         cls
                         gs'stat'
                             if SaunaWhore>0:
                             BuSWworkEnd=1
                             'You went to the sauna and suddenly encountered the entrance with mother, that ensures you work in the sauna. She said with surprise "Svetsik, what the hell? You now indvidualka? I work slugger, and even dare to come here?" Anatoly Borisovich surprised "What`s going on? You know the Light?" nurse laughed "Do I know the Light? Yes her pussy real goldmine! Of course I know her, I have it working as a prostitute." Anatoly Borisovich blushed "how? Sveta? You`re just a slut?" You started to mumble, trying to come up with on the fly how you otmazatsya. Anatoly Borisovich shook his head. "I was mistaken in you Svetlana." After that. Nurse continued to laugh at you "Svetsik, you whore, and if you manage to still Okrut decent guy, it will come up if your past, something with you no self-respecting man, will not live. Think of it as a lesson to you free of charge."'
                             act 'Get_Away':gt'street'
                             end
                             
                             if SaunaWhore=0:
                             'You went to the sauna and Anatoly Borisovich take you to the luxurious rooms that he took. He quickly began to undress . Then he came up to you. "Svetsik, I suck."'
                                 act 'further':
                                 cls
                                 minut+=5
                                 bj+=1
                                 gs'stat'
                                 '<center><img src="qwest/sosed/bossBJS.jpg"></center>'
                                 'You sit down in front of the boss and taking his hand kissed his dick. His cock began to twitch gradually rising. You prick the skin revealing a head of the penis and licked her. Then you wrapped around dick lips and began to suck. You feel like a member of your mouth gradually uvilichivaetsya in size and becomes harder, Finally member gets full and you suck it, with sucking sounds covering saliva. Anatoly Borisovich pulls his dick out of your mouth and puts you in a shop.'
                                     act 'further':
									 cls
									 minut+=5
									 protect = 1
									 $boy='Anatoly'
		                             dick=12
		                             silavag=0
									 gs'stat'
									 '<center><img src="qwest/sosed/bossSexS.jpg"></center>'
									 'Anatoly Borisovich put a condom on the penis and lay down on the bench pulling your hand to yourself. You have thrown a leg over his stomach boss and sat on top of him, then you took his hard cock hand and sent it into my pussy.'
									 dynamic $sexstart3
									 'You`ve heard Anatoly Borisovich groaned and jerked several times, he took you on , that sperm filled condom.'
									 sweat=-3
									 'Then you go into the shower to wash. Stepping out of the shower, you saw, that Anatoly Borisovich already dressed. "Svetsik, I`ve got to run." He kissed you and left.'
									 act 'Get_Away':gt'street'
									 end
                                 end
                             end
                         end
                     end
                     if BurMestoRand=1:
                     'You got in the car and suddenly the phone rang boss. He frowned and picked up the phone. "Yes dear, I will soon." He put the phone down. "We must go home, Svetsik, Quick suck, I will go."'
						 act 'suck':
						 cls
						 minut+=5
						 bj+=1
						 cumlip+=1
						 swallow+=1
						 gs'stat'
						 '<center><img src="qwest/sosed/bossBJcar.jpg"></center>'
						 'Anatoly Borisovich sat on the couch waiting for your actions. You leaned over to him and unbuttoned his pants took out his penis out of his pants. You leaned toward his groin and his lips wrapped around his flaccid penis, which gradually began to get up in your mouth. You suck it as deeply as possible and faster, trying, that would be the boss finished. Finally Anatoly Borisovich little moan and warm liquid spurted into your mouth. Trying not ispachkad expensive car you started boss swallow cum. Once finished Anatoly Borisovich, he removed his cock into his trousers and said good-bye to you.'
						 act 'Get_Away':gt'down'
						 end
                     end
                 end
             exit
             end
             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             if bosstiprand=2:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, call the programmer, which we have part-time, my comp is broken"'
                 act 'Call the programmer':
                 cls
                 gs'stat'
                     if sosedQW=0:
                     'Soon the office became young, tall guy with a big bag. He asked that broke, You showed him the chief of the computer and the guy sat down at the computer repair. Soon he graduated and earned a computer.'
                     end
                     if sosedQW>0 and sosedKnowWork>0:
                     sosedKnowWork=1
                     'Soon the office became Timothy, your neighbor. He asked that broke, You showed him the chief of the computer and the guy sat down at the computer repair. Soon he graduated and earned a computer.'
                     end
                     if sosedQW>0 and sosedKnowWork=0:
                     sosedKnowWork=1
                     'Soon the office became Timothy, your neighbor. He was surprised to see you. You talked fun, Timothy is working part-time in bystroezhke, office equipment repairs, charges cartridges.'
                     end
                 if PSBBtimes=1:dynamic $dinBistroWork
			     if PSBBtimes=2:dynamic $dinBistroWork2
                 end
             end
             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             if bosstiprand=3:
             'Came out of his office and Anatoly Borisovich came up to you. "Svetsik, Today you have to stay at work. Come to me now partners, for business negotiations."'
                 act 'further':
                 cls
                 minut+=60
                 gs'stat'
                 'By Anatoly Borisovich two men came and they settled down in his office. Anatoly Borisovich occasionally caused you, that would bring coffee. An hour later.'
                 act 'Get_Away':gt'down'
                 end
             end
         end
     exit
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if burand=2:
     'To you came into the office senior manager Ivan.'
     dynamic $din_Ivan_work
          if kompromatLife=0 or kompromatBlackMail>1:
         'Ivan smiled "I need shtampulki into these papers." You ran to the boss and he stamped on the documents, then you have carried documents Ivan.'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
         end
     exit
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if burand=3:
     'To you came into the office assistant manager Sergey.'
     'Sergey greedily examining you said "Ivan ordered to carry these documents main, for signature."'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
	 exit
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if burand=4:
     'To you came into the office the chief accountant Lena.'
     'Lena as always with arrogant mien said "I need to print the chief of these bills." You carried the documents to the chief, it seals and slap you gave the documents to Lena.'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
	 exit
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if burand=5:
     'To you came into the office personnel manager Vic.'
     'She smiled at you "I`ve brought the documents, someone like always dismissed, you need to put print." You carried the documents to the boss and he spank seals. Then you have carried documents Vick.'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
	 exit
     end
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     if burand=6:
     'For your office came elegantly dressed lady with an arrogant person.'
         if gossipBU<10:
         'Lady contemptuously examined you and asked disdainfully "Shreds at?" You nodded, lady without knocking came into the office to Anatoly Borisovich and after a while they went out together, Chubais said on the way "Yes dear, necessarily `ll pick today to your mom." When the woman went Antaoly Borisovich grunted "My wife is a rare stinker."'
         	 if PSBBtimes=1:dynamic $dinBistroWork
			 if PSBBtimes=2:dynamic $dinBistroWork2
         end
         if gossipBU>=10:
         'Lady contemptuously you inspected and angrily opened the door to Anatoly Borisovich, You heard her sharp voice "Shreds, I know all about your adventures with his sekretutka, and if you now do not vygonish this slut from work, then I myself go from you, Do you understand?" Anatoly Borisovich zabubnil "Yes_I_Am, yes_they_are, sweetheart, you know, I just love you." He was red in the face out of the office and threw a piece of you on the table "Write on their own!"'
             act 'Write a statement about dismissal':
             cls
             work=0
             PersSecWork=2
             Pay=PersSecWorkTimes*2500
             PersSecWorkTimes=0
             money+=Pay
             gs'stat'
             'You wrote a statement of resignation of its chief and quickly signed, He counted to you <<pay>> rubles your paycheck and said "It`s over Svetlana, get out of here."'
             act 'Get_Away':gt 'down'
             end
         end
     exit
     end

}
$boss_ass_din={
bossassrand=RAND(0,3)
     if bossassrand=0:
     'When you tilt the table to pick up documents, then got savory slap on the ass by Anatoly Borisovich.'
     end
}

$boss_din_bj={
act 'Get a member of cowards':
cls
numbjrand=RAND(0,14)
wantrand=RAND(0,3)
bj+=1
gs'stat'
'<center><img src="qwest/sosed/bossBJ<<numbjrand>>.jpg"></center>'
'Did you get a member of underpants around his boss and their <<$liptalk>> his lips purple head. Your tongue deftly worked the smooth surface of the head feeling every curve member. Clasping member you took it into his mouth to the throat and began to move his head. Your opinion rested in curly pubic Chubais and sometimes his hair tickling your nose.'
     if wantrand=3:
     'Anatoly Borisovich took dick out of your mouth "Svetsik, i want you."'
     dynamic $boss_din_bendover
     end
     if wantrand=2:
     'Anatoly Borisovich muffled groan "Svetsik, if you prodolzhish, I finish"'
     dynamic $boss_din_bendover
     dynamic $boss_din_bj2
     end
     if wantrand<2:
     'Anatoly Borisovich grunted obviously going to finish.'
     dynamic $boss_din_bj_cum
     end
end
}
$boss_din_go_toilet={
	 act 'Go to the toilet':
	 cls
	 bosstoirand=RAND(0,10)
	 gs'stat'
	     if bosstoirand=10:
	     gossipBU+=1
	     'You went to the toilet, but in the hallway accidentally collided with Ivan. Ivan looked at you with a smile and turned away went about his business.'
	     dynamic $boss_din_toilet_wash
	     end
	     if bosstoirand=9:
	     gossipBU+=1
	     'You went to the toilet, but in the hallway accidentally collided with the chief accountant Lena. Lena looked at you and saw sperm murmured "slut" and went about his business.'
	     dynamic $boss_din_toilet_wash
	     end
	     if bosstoirand=8:
	     gossipBU+=1
	     'You went to the toilet, but in the hallway accidentally collided with the HR manager Vika. Vick saw you cum and her eyes widened in surprise, She wrinkled her nose in disgust and left.'
	     dynamic $boss_din_toilet_wash
	     end
	     if bosstoirand=7:
	     gossipBU+=1
	     'You went to the toilet, but in the hallway accidentally collided with the deputy manager Sergei. Pimply youth Serge saw sperm at you and laughed "That`s because huesoska" then he ran somewhere.'
	     dynamic $boss_din_toilet_wash
	     end
	     if bosstoirand<7:
	     bosstoirandin=RAND(0,10)
	         if bosstoirandin=10:
	         gossipBU+=1
	         'You quietly slipped into the toilet, but in the toilet . Lena looked at you and saw sperm murmured "slut" and went about his business.'
	         dynamic $boss_din_toilet_wash2
	         end
	         if bosstoirandin=9:
	         gossipBU+=1
	         'You quietly slipped into the toilet, but in the toilet , She wrinkled her nose in disgust and left.'
	         dynamic $boss_din_toilet_wash2
	         end
	         if bosstoirandin<9:
	             if cumface>0:$deytoibur='Standing at the sink you have washed the face, wash sperm.'
	             if cumfrot>0:$deytoibur2=' Imperceptibly delete sperm with clothes failed and blouse left a large wet spot.'
	             'You quietly slipped into the toilet. <<$deytoibur>><<$deytoibur2>>'
	             cumface=0
	             cumfrot=0
	         if PSBBtimes=1:dynamic $dinBistroWork
			 if PSBBtimes=2:dynamic $dinBistroWork2
	         end
	     
	     end
	 
	 end
}
$boss_din_toilet_wash={
	 if cumface>0:$deytoibur='Standing at the sink you have washed the face, wash sperm.'
	 if cumfrot>0:$deytoibur2=' Imperceptibly delete sperm with clothes failed and blouse left a large wet spot.'
	 'You went to the bathroom and turned on the water in the sink. <<$deytoibur>><<$deytoibur2>>'
	 cumface=0
	 cumfrot=0
 if PSBBtimes=1:dynamic $dinBistroWork
 if PSBBtimes=2:dynamic $dinBistroWork2
}
$boss_din_toilet_wash2={
	 if cumface>0:$deytoibur='Standing at the sink you have washed the face, wash sperm.'
	 if cumfrot>0:$deytoibur2=' Imperceptibly delete sperm with clothes failed and blouse left a large wet spot.'
	 'You turn on the water in the sink. <<$deytoibur>><<$deytoibur2>>'
	 cumface=0
	 cumfrot=0
 if PSBBtimes=1:dynamic $dinBistroWork
 if PSBBtimes=2:dynamic $dinBistroWork2
}
$boss_din_bj_cum={
	 act 'Remove the member from the mouth':
	 cls
	 reaktrand=RAND(0,10)
	 gs'stat'
	     if reaktrand<=5:
	     '<center><img src="qwest/sosed/bossBJcum.jpg"></center>'
	     'You just took out a member of the mouth. The same hour of the member sperm splattered on the floor, You caressed member of the hand until it finally Anatoly Borisovich not exhausted. After that he removed the dick in his pants and sat down at the table.'
	     	 if PSBBtimes=1:dynamic $dinBistroWork
			 if PSBBtimes=2:dynamic $dinBistroWork2
	     end
	     
	     if reaktrand>5 and reaktrand<9:
	     cumfrot+=1
	     '<center><img src="qwest/sosed/bossBJcum2.jpg"></center>'
	     'You just took out a member of the mouth. The same hour of the member sperm splattered on the floor, You caressed member of the hand until it finally Anatoly Borisovich not exhausted. then he removed the dick in his pants and sat down at the table. Starting brush up, you noticed, that part of the sperm gets into your shirt on.'
	     	 dynamic $boss_din_go_toilet
	     end
	     
	     if reaktrand>=9:
	     cumface+=1
	     cumfrot+=1
	     '<center><img src="qwest/sosed/bossBJcum3.jpg"></center>'
	     'Once you have removed the member of his mouth, as directed jet of sperm hit you in the face. You closed your eyes and you immediately got sperm on eyelashes. When you rubbed their eyes, we saw, that sperm just got on your clothes.'
	     dynamic $boss_din_go_toilet
	     end
	 gs'stat'
	 end
	 
	 dynamic $boss_din_bj2
	 
}

$boss_din_bj2={
	 act 'continue to suck':
	 cls
	 cumlip+=1
	 gs'stat'
	 '<center><img src="qwest/sosed/bossBJcum4.jpg"></center>'
	 'You continued to suck and immediately poured into your mouth warm sperm, which is mixed with saliva while you continue to suck dick deciduous.'
		 act 'spit_out':
		 cls
		 gs'stat'
		 '<center><img src="qwest/sosed/bossBJcum5.jpg"></center>'
		 'When sperm ceased to flow out of the penis you are hurried spit cum mouth, but his mouth was nasty, pungent taste of sperm.'
		     boburand=RAND(0,10)
		     
		     if boburand>2:
			 if PSBBtimes=1:dynamic $dinBistroWork
			 if PSBBtimes=2:dynamic $dinBistroWork2
			 end
			 if boburand<=2:
			 cumfrot+=1
			 'Spitting cum you notice that a few drops of sperm makes contact with your blouse.'
			 gs'stat'
			 dynamic $boss_din_go_toilet
			 end
		 end
		 
		 act 'swallow':
		 cls
		 swallow+=1
		 gs'stat'
		 '<center><img src="qwest/sosed/bossBJcum6.jpg"></center>'
		 'You were quick to swallow warm and nasty sperm, but his mouth was an unpleasant taste of semen.'
		     boburand=RAND(0,10)
		     if boburand>2:
			 if PSBBtimes=1:dynamic $dinBistroWork
			 if PSBBtimes=2:dynamic $dinBistroWork2
			 end
			 if boburand<=2:
			 cumfrot+=1
			 'Spitting cum you notice that a few drops of sperm makes contact with your blouse.'
			 gs'stat'
			 dynamic $boss_din_go_toilet
			 end
		 end
	 end
}

$boss_din_bendover={
	 act 'Lie chest on the table':
	 cls
	 bosstipsex=RAND(0,10)
	 gs'stat'
	 !bossfuck
	 '<center><img src="qwest/sosed/bossbendover.jpg"></center>'
	 'You bent down and laid on the table -feeding, lifted her skirt with his hands and parted ass.'
		 if bosstipsex<=8:
		 'Anatoly Borisovich little rubbed the head of his penis on your mokrenkaya pussy.'
		 dynamic $boss_din_sex
		 end
		 
		 if bosstipsex>8:
		 'Anatoly Borisovich bent down and spit you on the ass, then you feel his finger saliva collected and entered you in the ass.'
		 dynamic $boss_din_anal
		 end
	 end
	 
	 
}
$boss_din_sex={
	 act 'moan':
	 cls
	 bosstipsex=RAND(0,10)
	 gs'stat'
	 !bossfuck
	 '<center><img src="qwest/sosed/bossfuck.jpg"></center>'
	 'You relax and feel like your lower lips parted logged into your body hard cock, you do not stand and make a light moan, from the feeling of fullness.'
	 $boy='Anatoly'
	 dick=12
	 silavag=0
	 pose = 1
	 dynamic $sexstart2
	 !dynamic $sexcum
	 
	 bosswantrand=RAND(0,10)
		 
         if bosswantrand=>3:
		 set cumass = cumass + 1
         '<<$boy>> took out of you cock and you feel like a jet of sperm you naked by the pope.'
         'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, some sperm still exist on your body.'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
         end
         
         if bosswantrand<3:
         'Anatoly Borisovich took out a member of your pussy and stared it in your ass.'
         dynamic $boss_din_anal
         end
	 end

}
$boss_din_anal={
	 act 'relax the anus':
	 cls
	 bosstipsex=RAND(0,10)
	 gs'stat'
	 !bossfuck
	 '<center><img src="qwest/sosed/bossanal.jpg"></center>'
	 'You relax and feel in your anus stared hard cock trying to push your sphincter.'
	 $boy='Anatoly'
	 dick=12
	 silavag=0
	 pose = 1
	 dynamic $analsex
	 !dynamic $sexcum
	 cumanus+= 1
	 '<<$boy>> groaned and you felt something in your ass was bottled heat from sperm.'
	 'Finally Anatoly Borisovich pulled out of your priests dick and put it in the pants.'
         
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
         
	 end
}
$boss_din_sex2={
	 act 'moan':
	 cls
	 bosstipsex=RAND(0,10)
	 gs'stat'
	 !bossfuck
	 '<center><img src="qwest/sosed/bossfuck2.jpg"></center>'
	 'You relax and feel like your lower lips parted logged into your body hard cock, you do not stand and make a light moan, from the feeling of fullness.'
	 $boy='Anatoly'
	 dick=12
	 silavag=0
	 pose = 0
	 dynamic $sexstart2
	 !dynamic $sexcum
	 
	 bosswantrand=RAND(0,10)
		 
         if bosswantrand=>3:
		 set cumbelly = cumbelly + 1
         '<<$boy>> took out of you cock and you feel like a jet of sperm you naked by the pope.'
         'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, some sperm still exist on your body.'
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
         end
         
         if bosswantrand<3:
         'Anatoly Borisovich took out a member of your pussy and stared it in your ass.'
         dynamic $boss_din_anal2
         end
	 end

}
$boss_din_anal2={
	 act 'relax the anus':
	 cls
	 bosstipsex=RAND(0,10)
	 gs'stat'
	 !bossfuck
	 '<center><img src="qwest/sosed/bossanal2.jpg"></center>'
	 'You relax and feel in your anus stared hard cock trying to push your sphincter.'
		 $boy='Anatoly'
		 dick=12
		 silavag=0
		 pose = 0
		 dynamic $analsex
		 !dynamic $sexcum
		 cumanus+= 1
         '<<$boy>> groaned and you felt something in your ass was bottled heat from sperm.'
         'Finally Anatoly Borisovich pulled out of your priests dick and put it in the pants.'
         
         if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
         
	 end
}

$din_Ivan_work={
     if kompromatLife>0 and kompromatBlackMail=0:
     'Ivan smiled "Svetsik, Svetsik. I could not have imagined, that such cute girls, such a rich life." he put you on the table photo. You pick it up and looked. <<$kompromatFoto>>. Ivan gladly reached, like a cat catch a mouse "understand Svetsik, everything would be fine, but our chief claim to political career. And in politics he will not forgive, that his secretary loves to act in such a way. He also suffered." so that, you can collect things and find a new job. "When Anatoly Borisovich know, then you fly out of here with a bang."'
		 dynamic $din_Ivan_work2
		 
		 act 'keep_silent':
		 cls
		 kompromatBlackMail=1
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/sosed/work5.jpg"></center>'
		 'Ivan seeing your silence frowned slightly. "Okay baby, pride destroy you." Ivan got exasperated and put the photo in his pocket.'
		 if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
		 dynamic $din_Ivan_work2
		 end
     end
}
$din_Ivan_work2={
	 act 'Ivan plead not show these pictures':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/sosed/work5.jpg"></center>'
	 'You begged Ivan skip boss pictures. Ivan smiled "I see you are ready to cooperate. go to my office, discuss."'
	     act 'Go to Ivan in his office':
	     cls
	     kompromatBlackMail=2
	     gs'stat'
	     'You came to the office of Ivan and he closed the door with a key. "Well baby, To begin. Undress!"'
	         act 'undress':
			 cls
			 kompromatBlackMail=2
			 gs'stat'
			 'You undressed feeling the gaze of Ivan. When you were naked in front of him , looking at you. His hand took you for the chest and you feel his fingers covered your nipple. "Not_Bad, not_bad. Maybe we `ll get along with you and. Now on his knees bitch, and open your fucking mouth wide."'
				 act 'Get on your knees and open your mouth':
				 cls
				 kompromatBlackMail=2
				 cumface+=1
				 facial+=1
				 boy+=1
				 gs'stat'
				 '<center><img src="qwest/sosed/ivanfacial.jpg"></center>'
				 'You knelt and opened his mouth. Ivan got dick out of his pants and began to masturbate in front of your face, staring at you his gaze. "I knew, that you will be my whore!" sperm from his cock spurted on your face. Next. After Ivan finished on your face, he removed his dick in his pants and said "Fair_Enough, get out of my office slut, and do not forget, I do not report to the chief nothing, but you are in my hands."'
					 if PSBBtimes=1:dynamic $dinBistroWork
		             if PSBBtimes=2:dynamic $dinBistroWork2
				 end
			 end
			 
			 dynamic $din_Ivan_work3
	     end
	     
	     dynamic $din_Ivan_work3
	 end
}
$din_Ivan_work3={
	 act 'Opt_Out':
	 cls
	 kompromatBlackMail=1
	 gs'stat'
	 '<center><img src="qwest/sosed/work7.jpg"></center>'
	 'You refused to undress. Ivan sighed. "All the same, and I`m tired of messing with you, easier to get rid of you, once and for all." Ivan came to the door, opened it and have you at the door.'
		 if PSBBtimes=1:dynamic $dinBistroWork
		 if PSBBtimes=2:dynamic $dinBistroWork2
	 end

}
$din_Ivan_work4={
	 act 'Opt_Out':
	 cls
	 kompromatBlackMail=1
	 gs'stat'
	 '<center><img src="qwest/sosed/work7.jpg"></center>'
	 'you refused. Ivan sighed. "All the same, and I`m tired of messing with you, easier to get rid of you, once and for all." He turned and walked away'
		 act 'Get_Away':gt'down'
	 end

}






--- BurgerTip ---------------------------------

# butik
if $ARGS[0]='start':
cla
*clr
set mag=1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 5
'<center><B><font color=maroon>boutique</font></B></center>'
'<center><img src="pic/butik.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'7NIL kinds of dresses, all by 25000 RUB'
set evrand = RAND (0,100)
     if evrand >= 80 and skin > 0 and lesbiQW = 0:
     'The boutique you see a stylish and slim woman forty years.'
         act 'Stare at a woman.':gt'event','lesbi'
     end
     
     if QWdogreiqTimer=0 and QWdogReiq=1 and week=7 and qwdogiventday!day:
     qwdogiventday=day
	 'Going into the boutique you start rassmatrevat hanging on veshlkah dress.Taking one you try on in passing it back and hang with mild disgust grimassy.Suddenly,began to study it more closely you feel kakoeto strange feeling as if you are looking for:'
	 act 'Disregard':gt'butik','start'
	 act 'look_around':dynamic $butikreiqdi
	 exit
	 end
	 
	 if RimmaSex>0:
         if rimmaday!day:
         'apartment <a href="exec:GT ''RimmaSexQW''">Rimma</a> you smiled and bit his lip began firing eyes in your direction.'
         else
         'Rima smiled at you and do business.'
         end
     end
     
     if palto<3:
     'The boutique sells fur coat for winter. 50000 RUB'
         if money>=50000:
             act 'Buy a fur coat':
             cla
             set money-=50000
             set palto=3
             $palto='fur_coat'
             'You bought a fur coat.'
             act 'GO_OUT':gt'butik','start'
             end
         
         end
     end

     if money >= 25000:
         if dress[1] = 0:
			 act 'inspect 1e dress.':set numdres=1&payclo=25000&gt'loker','dress'
			 end
         if dress[2] = 0:
			 act 'inspect 2e dress.':set numdres=2&payclo=25000&gt'loker','dress'
			 end
         if dress[3] = 0:
			 act 'inspect 3e dress.':set numdres=3&payclo=25000&gt'loker','dress'
			 end
         if dress[5] = 0:
			 act 'inspect 5e dress.':set numdres=5&payclo=25000&gt'loker','dress'
			 end
         if dress[6] = 0:
			 act 'inspect 6e dress.':set numdres=6&payclo=25000&gt'loker','dress'
			 end
         if dress[7] = 0:
			 act 'inspect 7e dress.':set numdres=7&payclo=25000&gt'loker','dress'
			 end
         if dress[8] = 0:
			 act 'inspect 8e dress.':set numdres=8&payclo=25000&gt'loker','dress'
			 end
         if dress[9] = 0:
			 act 'inspect 9e dress.':set numdres=9&payclo=25000&gt'loker','dress'
			 end
         if dress[10] = 0:
			 act 'inspect 10e dress.':set numdres=10&payclo=25000&gt'loker','dress'
			 end
         if dress[11] = 0:
			 act 'inspect 11e dress.':set numdres=11&payclo=25000&gt'loker','dress'
			 end
         if dress[12] = 0:
			 act 'inspect 12e dress.':set numdres=12&payclo=25000&gt'loker','dress'
			 end
         if dress[13] = 0:
			 act 'inspect 13e dress.':set numdres=13&payclo=25000&gt'loker','dress'
			 end
         if dress[14] = 0:
			 act 'inspect 14e dress.':set numdres=14&payclo=25000&gt'loker','dress'
			 end
         if dress[15] = 0:
			 act 'inspect 15e dress.':set numdres=15&payclo=25000&gt'loker','dress'
			 end
         if dress[16] = 0:
			 act 'inspect 16e dress.':set numdres=16&payclo=25000&gt'loker','dress'
			 end
         if dress[17] = 0:
			 act 'inspect 17e dress.':set numdres=17&payclo=25000&gt'loker','dress'
			 end
         if dress[18] = 0:
			 act 'inspect 18e dress.':set numdres=18&payclo=25000&gt'loker','dress'
			 end
         if dress[19] = 0:
			 act 'inspect 19e dress.':set numdres=19&payclo=25000&gt'loker','dress'
			 end
         if dress[20] = 0:
			 act 'inspect 20e dress.':set numdres=20&payclo=25000&gt'loker','dress'
			 end
         if dress[21] = 0:
			 act 'inspect 21e dress.':set numdres=21&payclo=25000&gt'loker','dress'
			 end
         if dress[22] = 0:
			 act 'inspect 22e dress.':set numdres=22&payclo=25000&gt'loker','dress'
			 end
         if dress[23] = 0:
			 act 'inspect 23e dress.':set numdres=23&payclo=25000&gt'loker','dress'
			 end
         end
act 'EXIT BOUTIQUE':
	 cla
	 set minut = minut + 5
	 gt'torgcentr'
	 end
end
--- butik ---------------------------------

# butoilet
set minut = minut + 5
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="pic/PublicToilet.jpg" ></center>'
''
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


     if tanga=1:
		 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt $curloc
		 end
     end
act 'Exit out of the closet':gt'burger','start'

     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':gt $curloc
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':gt $curloc
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':gt $curloc
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':gt $curloc
				 end
             end
         end
     end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
     act 'substitution 15 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus =0
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm with yourself.'
     act 'Go_Out':gt $curloc
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 15 min':
     cla
     *clr
     set mop=1
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':gt $curloc
     end
end

if cumfrot > 0:
     act 'Wipe the cum from clothes 15 min':
     cla
     *clr
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 15
     !'<center><img src="pic/facesp.jpg" ></center>'
     'You have erased the traces of semen from clothing.'
     act 'Go_Out':gt $curloc
     end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 act 'End_Up':gt $curloc
	 end
end
--- butoilet ---------------------------------

# cfnm
if $ARGS[0]='start':
cla
*clr
set horny = horny + 5
set minut = minut + 15
set money = money - 50
'<center><img src="picVA/cfnm.jpg" ></center>'
clr
gs'stat'
'Stripper bared your breasts and began to lick your nipples.'
     if hour < 23:
		 act 'enjoy':gt'cfnm','tits'
		 act 'Hand to touch his penis':gt'cfnm','hand'
     end
     act 'move_away':gt'stripclub','stolW'
end

if $ARGS[0]='tits':
cla
*clr
set horny = horny + 10
set minut = minut + 15
'<center><img src="picVA/cfnm1.jpg" ></center>'
clr
gs'stat'
'Stripper sucks and bites your nipples.'
     if horny < 90:
		 if hour < 23:
			 act 'enjoy':gt'cfnm','eat'
			 act 'Hand to touch his penis':gt'cfnm','hand'
		 end
		 act 'move_away':gt'stripclub','stolW'
     end
     if horny >= 90:
     act 'surrender':gt'cfnm','sex'
     end
end

if $ARGS[0]='hand':
cla
*clr
set horny = horny + 5
set minut = minut + 15
fotoCFNMblowjob+=1
'<center><img src="picVA/cfnmHand.jpg" ></center>'
clr
gs'stat'
'You have a member of the stripper arm and began to fondle him in front of other girls.'
     act 'Take by mouth':gt'cfnm','blow'
     act 'terminate':gt'cfnm','eat'
end

if $ARGS[0]='eat':
cla
*clr
set horny = horny + 10
set minut = minut + 15
'<center><img src="picVA/cfnm2.jpg" ></center>'
clr
gs'stat'
'Stripper you covered with a towel from the surrounding put his penis in your hand.'
     if horny < 90:
		 if hour < 23:
			 act 'Take by mouth':gt'cfnm','blow'
			 act 'Wank him':gt'cfnm','hand'
		 end
		 act 'Get away from the stripper':gt'stripclub','stolW'
     end
     if horny >= 90:
     act 'surrender':gt'cfnm','sex'
     end
end

if $ARGS[0]='blow':
cla
*clr
set horny = horny + 10
set minut = minut + 15
set bj = bj + 1
if stripguy=0:stripguy=1&guy+=1
'<center><img src="picVA/cfnmBlow.jpg" ></center>'
clr
gs'stat'
'You have in your mouth a member of hiding from the public eye for a towel stripper. Other girls interested hidden from their eyes and removed the towel stripper.'
     if horny < 90:
		 if hour < 23:
			 act 'Suck in front of everyone.':gt'cfnm','blow2'
			 act 'stop sucking.':gt'cfnm','hand'
		 end
		 act 'Get away from the stripper':gt'stripclub','stolW'
     end
     if horny >= 90:
     act 'surrender':gt'cfnm','sex'
     end
end

if $ARGS[0]='blow2':
cla
*clr
set horny = horny + 10
set minut = minut + 15
fotoCFNMblowjob+=1
'<center><img src="picVA/cfnmBlow2.jpg" ></center>'
clr
gs'stat'
'Stripper removed the towel, You blushed with shame, but he continued to suck in front of laughing at you girls.'
     if horny < 90:
		 act 'Cum on face.':gt'cfnm','blow4'
		 act 'Cum in mouth.':gt'cfnm','blow3'
		 if DOM > 0:
		     act 'The end of the floor.':gt'cfnm','end'
		 end
     end
     if horny >= 90:
     act 'surrender':gt'cfnm','sex'
     end
end

if $ARGS[0]='blow3':
cla
*clr
set horny = horny + 10
set minut = minut + 15
set cumlip = cumlip + 1
set swallow = swallow + 1
!set cumface = cumface + 1
!set facial = facial + 1
set SUB = SUB + 1
fotoCFNMblowjobCum+=1
'<center><img src="picVA/swallow.jpg" ></center>'
clr
gs'stat'
'Stripper takes dick out of your mouth and jerking it in front of your face, you humbly stand before him on his knees with his mouth open, Finally viscous jet landing sperm in your mouth, you lick and lick tart sperm from their lips, You burn with shame when the surrounding audience whooped you.'
     act 'Get away from the stripper':gt'stripclub','stolW'
end

if $ARGS[0]='blow4':
cla
*clr
set horny = horny + 10
set minut = minut + 15
!set cumlip = cumlip + 1
!set swallow = swallow + 1
set cumface = cumface + 1
set facial = facial + 1
set SUB = SUB + 1
fotoCFNMblowjobCum+=1
'<center><img src="picVA/facial.jpg" ></center>'
clr
gs'stat'
'Stripper takes dick out of your mouth and jerking it in front of your face, you humbly stand before him on his knees, Finally viscous jet of sperm land you on the cheek, you blush with shame when the surrounding audience whooped you.'
     act 'Get away from the stripper':gt'stripclub','stolW'
end


if $ARGS[0]='end':
cla
*clr
set horny = horny + 10
set minut = minut + 15
!set cumlip = cumlip + 1
!set swallow = swallow + 1
'<center><img src="picVA/end.jpg" ></center>'
clr
gs'stat'
'You remove a member of the stripper from his face .'
     act 'Get away from the stripper':gt'stripclub','stolW'
end

if $ARGS[0]='sex':
cla
*clr
set horny = 0
set minut = minut + 15
!set cumlip = cumlip + 1
!set swallow = swallow + 1
!set cumface = cumface + 1
!set facial = facial + 1
set sex = sex + 1
set cumass = cumass + 1
set SUB = SUB + 5
fotoCFNMsex+=1
if stripguy=0:stripguy=1&guy+=1
'<center><img src="picVA/sex.jpg" ></center>'
clr
gs'stat'
set manna = manna + 15
set willpower = willpower + 15
set orgasm = orgasm + 1
set vagina = vagina + 1   
'Stripper unfolds you and puts cancer, his cock ramming your expiring moisture pussy, you instantly falls orgasm. You moans and squeals, crowd hooted and stripper shoves his fingers into your mouth, you suck them in ecstasy and finally stripper pulls his dick out of you and kills you in the ass.'
     act 'Get away from the stripper':gt'stripclub','stolW'
end

--- cfnm ---------------------------------

# club
if $ARGS[0]='start':
$sexloc = $CURLOC
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>nightclub</font></B></center>'
'<center><img src="pic/club.jpg" ></center>'
'At the entrance to the club full of young people, someone in the bushes came podbuhat, someone beat, someone trahaetsya. At the entrance there are bulls guards and check tickets. tickets cost 500 rubles.'

clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'Leave the club':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if ski = 1 and money >= 500 and mop > 1 and sweat < 1 or glamur = 1 and money >= 500 and mop > 1 and sweat < 1:
     'Security at the entrance to examine you to allow you to join the club, you have gone feyskontrol.'
         act 'Join the club (500 RUB)':
		 cla
		 set minut = minut + 5
		 set money = money - 500
		 frost=0
		 gt'club','inside'
		 end
     else
     'Security at the entrance you slice also pointed to the door, You are not logged Face Control, and most offensive to you , that you are not so.'
     
     end

end

if $ARGS[0]='inside':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>nightclub</font></B></center>'
'<center><img src="pic/club2.jpg" ></center>'
'<a href="exec:gt''club'',''vip''">Vip-hall.</a>'
'The roar of the music drowns out even thought, in the twilight of being cut strobe flashes and lasers dancing crowd of people.'
 
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     if hour <= 3 or hour >= 15:
     act 'Wc':gt'club','toi'
     
     act 'dancefloor':gt'club','dance'
     
     act 'bar':gt'club','bar'
     end

     act 'Leave the club':
     cla
     set drunk = 0
     set minut = minut + 5
     gt'down'
     end



end

if $ARGS[0]='toi':
cla
*clr
'Damn, in the ladies` room and huge turn these chicken stick out there for an hour.'
     act 'Queue':
	 cla
	 Set minut=minut+rand(10,30)
	 'Finally it came to you'
	 Set vnesh = vnesh + 1
	 act 'Wc':gt'club','tou'
     end
     
     act 'Go to the men':
	 cla
	 Set acta = acta + 1
	 'You drop into the men`s room'
		  act 'In the booth':
		  Set randbj = RAND (1,100)
		  if TQuest = 0 and horny <50:gt 'club','tou'
		  if TQuest = 0 and horny >= 50:gt 'club2','wc'
		  if TQuest = 1:gt 'club2','wc1'
		  if TQuest = 2:gt 'club2','wc2'
		  if TQuest >= 3 and randbj < 60:gt 'club','tou'
		  if TQuest >= 3 and randbj >= 60:gt 'club2','wc1'
		  end
     end
     
     act 'score':gt 'club','inside'
end



if $ARGS[0]='tou':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="pic/club3.jpg" ></center>'
''
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Exit out of the closet':gt'club','inside'

     if tanga=1:
		 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt'club','toi'
		 end
     end

     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':gt'club','toi'
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':gt'club','tou'
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':gt'club','tou'
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':gt'club','tou'
				 end
             end
         end
     end


	 if cumpussy > 0 or cumbelly > 0 or cumass > 0  and cumanus > 0:
		 act 'substitution 15 min':
		 cla
		 *clr
		 set cumpussy = 0
		 set cumbelly = 0
		 set cumass = 0
		 set cumanus =0
		 set cumlip = 0
		 set cumface = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pics/wash5.jpg" ></center>'
		 'You carefully washed sperm with yourself.'
		 act 'Go_Out':gt'club','tou'
		 end
	 end

	 if cumlip > 0 or cumface > 0:
		 act 'Wash off with facial cum 15 min':
		 cla
		 *clr
		 set mop=1
		 set cumlip = 0
		 set cumface = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pic/facesp.jpg" ></center>'
		 'You carefully washed sperm from the face.'
		 act 'Go_Out':gt'club','tou'
		 end
	 end

	 if cumfrot > 0:
		 act 'Wipe the cum from clothes 15 min':
		 cla
		 *clr
		 set cumfrot = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 !'<center><img src="pic/facesp.jpg" ></center>'
		 'You have erased the traces of semen from clothing.'
		 act 'Go_Out':gt'club','toi'
		 end
	 end
	 if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 act 'End_Up':gt'club','tou'
		 end
	 end
end



if $ARGS[0]='dance':
cla
*clr
'<center><B><font color=maroon>dancefloor</font></B></center>'
'<center><img src="pic/club2.jpg" ></center>'
'The club is filled to overflowing Laughing Young people dancing to the rhythm of modern music.'
clr
gs'stat'

act 'Go_Out':gt'club','inside'

     if hour <= 3 or hour >= 16:
     
		 act 'dance 30 min':
		 cla
		 *clr
		 set minut = minut + 30
		 set fat = fat - 1
		 set dance = dance + 1
		 set manna = manna + 10
		 set willpower = willpower + 10
		 set clrand = RAND (0,100)
		 frost=0
		 '<center><img src="pic/club4.jpg" ></center>'
		 'On the dance floor very closely, You can put your hand on the shoulder of a guy, make a couple of steps and pressed her chest already to another, and dance, how many can dance vytvorit.'
			 if vnesh >= clrand:
			 set horny = horny + 1
			 gs'boy'
			 'You feel like while dancing someone touches your ass and it is not casual touch, You turned and saw that touches you <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
				 act 'Dance with him':
				 cla
				 *clr
				 set minut = minut + 30
				 set dance = dance + 1
				 set horny = horny + 1 + SUB
				 '<center><img src="pic/club8.jpg" ></center>'
				 'You light on the dance floor with a guy, He paw you on the ass and pressed against the breast you. I am turned his touch.'
					 if horny < 90:
					 act 'Leave the dance floor':gt'club','dance'
					 end
					 
					 act 'kiss':
					 cla
					 set minut = minut + 15
					 set horny = horny + 1 + SUB
					 set dansexclub=rand(0,1)
					 if dansexclub=1:
					 'You started kissing Man, He paw you for breast and ass, he whispered in your ear you "Come on in Vip-hall, fun_too."'
						 set picrand=38
						 if horny < 70:
							 act 'Leave the dance floor':gt'club','dance'
							 end
						 act'go to Vip-room with a guy."':xgt'sex','var'
						 end
					 if dansexclub=0:
					 'You started kissing Man, He paw you for breast and ass, he whispered in your ear you "Let`s go to the toilet."'
						 if horny < 70:
							 act 'Leave the dance floor':gt'club','dance'
							 end
						 act 'Go to the toilet with a guy':gt'club','sex'
						 end
					 end
				 end
			 if clrand>85:
				 cla
				 *clr
				 '<center><img src="img/centr/dancelezb.jpg" ></center>'
				 'You feel like while dancing someone touches your ass and it is not casual touch, looking back you see a girl that offers:'
				 set dansexclub=rand(0,1)
				 if dansexclub=0:
					 act'"Let`s go to the toilet, fun_too."':gt'club','lezbsort'
					 end
				 if dansexclub=1:
					 set picrand=rand(13,17)
					 act'"Come on in Vip-hall, fun_too."':xgt'lezbsex','var'
					 end
				 act 'Send it':gt'club'
				 end
			 end
		 act 'rest':gt'club','dance'
		 end
			 
		 act 'Approach to the DJ 30 min':
		 cla
		 *clr
		 set minut = minut + 30
		 '<center><img src="pic/club7.jpg" ></center>'
		     if alexeyQW=0:'DJ does not pay any attention to you.'
		     if alexeyQW>0 and alexeySex=0:'Behind the decks your teacher vocals Alex, he saw you and knew you nod.'
		     if alexeyQW>0 and alexeySex>0:
		     'Behind the decks worth your teacher vocal Lech. He saw you and invited DJ booth.'
		         act 'Go to the booth':
		         cls
		         set minut = minut + 30
		         gs'stat'
		         '<center><img src="pic/club7.jpg" ></center>'
		         'Alexey so busy with music with you .'
		             if alexeyClubSex=3 and sashaClubQW=0:
		             sashaClubQW=1
		             'In the booth man came over forty years, with a big belly, bald head and glasses. Lech greeted him and introduced you to each other. The man was the owner of the club Alexander E..'
		             'He talked a little bit with you and went about his business.'
		             act 'move_away':gt'club','dance'
		             exit
		             end
		             
		             if alexeyClubSex!3 or sashaClubQW>0:
					 act 'move_away':gt'club','dance'
					 
						 act 'Kneel down and take in the mouth':
						 cls
						 alexeySex+=1
						 alexeyClubSex+=1
						 horny+=10
						 bj+=1
						 minut+=10
						 gs'stat'
						 picrand=RAND(0,13)
						 if picrand=0:'<center><img src="qwest/alexey/bj.jpg" ></center>'
						 if picrand=1:'<center><img src="qwest/alexey/bj1.jpg" ></center>'
						 if picrand=2:'<center><img src="qwest/alexey/bj2.jpg" ></center>'
						 if picrand=3:'<center><img src="qwest/alexey/bj3.jpg" ></center>'
						 if picrand=4:'<center><img src="qwest/alexey/bj4.jpg" ></center>'
						 if picrand=5:'<center><img src="qwest/alexey/bj5.jpg" ></center>'
						 if picrand=6:'<center><img src="qwest/alexey/bj6.jpg" ></center>'
						 if picrand=7:'<center><img src="qwest/alexey/bj7.jpg" ></center>'
						 if picrand=8:'<center><img src="qwest/alexey/bj8.jpg" ></center>'
						 if picrand=9:'<center><img src="qwest/alexey/bj9.jpg" ></center>'
						 if picrand=10:'<center><img src="qwest/alexey/bj10.jpg" ></center>'
						 if picrand=11:'<center><img src="qwest/alexey/bj11.jpg" ></center>'
						 if picrand=12:'<center><img src="qwest/alexey/bj12.jpg" ></center>'
						 if picrand=13:'<center><img src="qwest/alexey/bj13.jpg" ></center>'
						 'You knelt before him and clasped his dick <<$liptalk>> began sucking. Alex helped her hips almost hammering you in the mouth. Finally he groaned "Catch huesoska their rations, if that is on the floor, lick will make."'
						 gs'oral','0'
							 act 'substitute mouth':
							 cls
							 horny+=10
							 minut+=10
							 swallow+=1
							 cumlip+=1
							 gs'stat'
							 picrand=RAND(0,13)
							 if picrand=0:'<center><img src="qwest/alexey/bjcum.jpg" ></center>'
							 if picrand=1:'<center><img src="qwest/alexey/bjcum1.jpg" ></center>'
							 if picrand=2:'<center><img src="qwest/alexey/bjcum2.jpg" ></center>'
							 if picrand=3:'<center><img src="qwest/alexey/bjcum3.jpg" ></center>'
							 if picrand=4:'<center><img src="qwest/alexey/bjcum4.jpg" ></center>'
							 if picrand=5:'<center><img src="qwest/alexey/bjcum5.jpg" ></center>'
							 if picrand=6:'<center><img src="qwest/alexey/bjcum6.jpg" ></center>'
							 if picrand=7:'<center><img src="qwest/alexey/bjcum7.jpg" ></center>'
							 if picrand=8:'<center><img src="qwest/alexey/bjcum8.jpg" ></center>'
							 if picrand=9:'<center><img src="qwest/alexey/bjcum9.jpg" ></center>'
							 if picrand=10:'<center><img src="qwest/alexey/bjcum10.jpg" ></center>'
							 if picrand=11:'<center><img src="qwest/alexey/bjcum11.jpg" ></center>'
							 if picrand=12:'<center><img src="qwest/alexey/bjcum12.jpg" ></center>'
							 if picrand=13:'<center><img src="qwest/alexey/bjcum13.jpg" ></center>'
							 'Jet of sperm hit you in the mouth and began to run down your <<$liptalk>>. Alex wiped his penis on your <<$liptalk>> and put it in your pants.'
							 'You became diligently to swallow warm, sharply smelling sperm and semen to collect the remains of spilled chin. Once you have swallowed the seed, you licked his lips and stood up from the floor ready to leave.'
							 act 'move_away':gt'club','dance'
							 end
						 end
					 end
		         end
		     end
		 act 'move_away':gt'club','dance'
		 end
	 end
end

if $ARGS[0]='bar':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>bar</font></B></center>'
'<center><img src="pic/club5.jpg" ></center>'
'As long as you go to the bar through the crowd, Each is committed to hold your hand through his hair, hugged her waist, put his hand on her ass, if accidentally pressed her chest against your chest, pat on the tummy. Something like squeezed through the crowd you come to the bar.'
clr
gs'stat'
if vnesh>14:set barsexrand=rand(0,10)
if barsexrand=1:gt 'club','bar0'
if barsexrand=2:gt 'club','bar1'
act 'Go_Out':gt'club','inside'

if alko>=7:
cls
	 temp = RAND (0,100)
				     if temp=5:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club1.jpg" ></center>'
				     'You are so drunk, that nepomnyu returned home.'
				     act 'further':gt'street'
				     exit
				     end
				     if temp=6:
				      horny+=5
				     gs'stat'
				     '<center><img src="etogame/club2.jpg" ></center>'
				     'The last thing you remember, this is how you suck stripper dick.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=7:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand4.jpg" ></center>'
				     'The last thing you remember, this is how you squat began to suck dick.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=8:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club5.jpg" ></center>'
				     'The last thing you remember, it`s like you took off all unnecessary and portrayed themselves as sexy waitress.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=9:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand6.jpg" ></center>'
				     'The last thing you remember, it`s like in the company of young people one of devchenok fuck cancer right before the table.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=10:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand7.jpg" ></center>'
				     'Fun on the dance floor lit girls.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=11:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand8.jpg" ></center>'
				     'You see how two drunk girls lick passionately feel free to anyone.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     if temp=12:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand9.jpg" ></center>'
				     'The last thing you remember, it`s like a drunk girl crawled under the table after losing there something, Her skirt rode up and no panties on his ass, so that virtually all the club can see all the content podyubochnogo space in detail.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=13:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand10.jpg" ></center>'
				     'You see how a couple of drunken frolics, girl licks cock, a man pours champagne in her mouth.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=14:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand11.jpg" ></center>'
				     'Do you happen to notice how a couple of fun chattering girls not only fun chat, one of the girls put her hand into her panties and caresses her girlfriend there.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=15:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand12.jpg" ></center>'
				     'The last thing you remember, it`s like on the dance floor dancing with you nigger lapaya for all that is possible, but you were not against.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=16:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club13.jpg" ></center>'
				     'The last thing you remember, it`s like you`re trying to dance with some-some guy.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=17:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club14.jpg" ></center>'
				     'The last thing you remember, this is how you undressed in front of everyone.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=18:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club18.jpg" ></center>'
				     'You see on the dance floor as a guy kisses a girl and he ran her hand under her skirt almost fucks her fingers through panties.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=19:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand16.jpg" ></center>'
				     'You can see how at the bar one drunken girl spread her Lyashko and at least buhoy and cheerful young man fuck her pussy with her fingers.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=20:
				     horny+=5
				     gs'stat'
				     '<center><img src="picKav/ivrand17.jpg" ></center>'
				     'You see the guy hugging drunk girl in the wood and took a mouthful of beer pours it to her with a kiss while the other guy matzo her boobs.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=21:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club21.jpg" ></center>'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=22:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club22.jpg" ></center>'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=23:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club23.jpg" ></center>'
				     'You are so drunk, that fell to the floor of the club, and unable to rise asleep. You woke guard and led to the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp=24:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club24.jpg" ></center>'
				     'The last thing you remember, this is how you decided to take a leak in the men`s room.'
				     'You are so drunk, that protection vypravazhivaet you on the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
				     
				     if temp>24:
				     horny+=5
				     gs'stat'
				     '<center><img src="etogame/club25.jpg" ></center>'
				     'You are so drunk, that fell to the floor and unable to rise asleep. You woke guard and led to the street.'
				     act 'Get_Away':gt'down'
				     exit
				     end
end

     if money >= 300:
     
		 act 'Buy a drink 300 RUB':
		 cla
		 *clr
		 set minut = minut + 30
		 set fat = fat + 1
		 set manna = manna + 10
		 set willpower = willpower + 10
		 alko+=2
		 set water = water + 5
		 set energy = energy + 5
		 set son = son + 5
		 set horny=horny+rand(10,50)
		 set money = money - 300
		 frost=0
		 '<center><img src="pic/club6.jpg" ></center>'
		 'You have found an empty seat at the bar and sat down on it, Cocktails and a bartender mixing it quickly provides you.'
		 act 'up':gt'club','bar'
		 end
     end  
end


if $ARGS[0]='sex':
cla
*clr
dynamic $venerasiak
set minut = minut + 5
'<center><B><font color=maroon>toilet cubicle</font></B></center>'
'<center><img src="pic/sex.jpg" ></center>'
clr
gs'stat'
set $nameV = 'stranger'
set dick = RAND (10,18)
'You have been in the men`s room with a guy, He began to caress you and rip your clothes. Under his head sat on the toilet.'
     act 'do blowjob':
     cla
     *clr
     set bj = bj + 1
     set guy = guy + 1
     set horny = horny + VAF
     '<center><img src="picV/clubBJ.jpg" ></center>'
     gs'oral','start'
         act 'Remove the mouth':
         cla
         *clr
			 if harakBoy = 0:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You managed to remove a member from the mouth and the guy started to cum on the floor and you on the fingers.'
			 end
             if harakBoy = 1:
                 act 'Send members to the floor':
                 cla
                 '<center><img src="picV/hand.jpg" ></center>'
                 'You managed to remove a member from the mouth and the guy started to cum on the floor and you on the fingers.'
                 act 'up':gt'club','toi'
                 end
                 
                 act 'Send members to the face':
                 cla
                 set facial = facial + 1
			     set cumface = cumface + 1
                 '<center><img src="picV/clubFacial1.jpg" ></center>'
                 'You took the hand member and sent it on its face, man groaned and hot jet of sperm began to whip you in the face.'
                 act 'up':gt'club','toi'
                 end
             
             exit
             end
             
			 if harakBoy = 2:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 set SUB = SUB + 1
			 '<center><img src="picV/clubFacial.jpg" ></center>'
			 'The guy grabbed you by the hair and finished your face, sperm gets into your eyes.'
			 end
		 act 'up':gt'club','toi'
		 end
		 
		 act 'swallow cum':
         cla
         *clr
         set swallow = swallow + 1
         set cumlip = cumlip + 1
         '<center><img src="picV/clubSwallow.jpg" ></center>'
         'The guy went down into your mouth his hot seed, You frantically swallow it, that would not choke and continue to suck dick dry.'
		 act 'up':gt'club','toi'
		 end
		 
     end
     
     act 'get cancer':
     cla
     *clr
     set sex = sex + 1
     set guy = guy + 1
     set horny = horny + SUB
     set vagina = vagina + 1
     '<center><img src="picV/clubSex.jpg" ></center>'
     gs'orgazm','start'
     act 'up':gt'club','toi'
     end
end

if $ARGS[0]='bar0':
cla
*clr
'<center><B><font color=maroon>bar counter</font></B></center>'
'<center><img src="img/centr/bar0.jpg" ></center>'
'We stand for you to the girl and begins to flirt with you, and her hands wander over your body.'
act 'move_away':gt'club','bar'
act 'kiss':
	 cla
	 *clr
	 '<center><img src="img/centr/bar1.jpg" ></center>'
	 'You Move closer to the girl and kisses her, thrusting his tongue into her mouth, she massages his svom and clasping his lips began to suck.'
	 act'Call in the toilet':gt'club','lezbsort'
	 act'Zalest pants':
		 cla
		 *clr
		 set lesbian+=1
		 set girl+=1
		 '<center><img src="img/centr/bar2.jpg" ></center>'
		 'You bare her breasts and kiss her chest, sucking nipples, hand and climb in panties playing with her вЂ‹вЂ‹clitoris with your fingers.'
		 act'lick':
			 cla
			 *clr
			 '<center><img src="img/centr/bar3.jpg" ></center>'
			 'Girl sit on a stool, and you draw her panties and licking her pussy.'
			 act'yet':
				 cla
				 *clr
				 set horny=0
				 '<center><img src="img/centr/bar4.jpg" ></center>'
				 'You get up and go down panties ride up one leg on a chair, girl squats, and bites his lips vvash vagina, her tongue skillfully glides over your clitoris, making you shudder in orgasm.'
				 if dildo=0:
					 act 'everything':gt'club','bar'
					 end
				 if dildo>0:
					 act 'get dildo':
						 cla
						 *clr
						 '<center><img src="img/centr/bar5.jpg" ></center>'
						 'You position it on the chair and pulled out a dildo insert it into the vagina, in response she gets from her purse and hands you. You deftly managed both hands dostovlyaya pleasure and her and himself.'
						 act'More':
							 cla
							 *clr
							 set horny=0
							 set orgasm+=1
							 '<center><img src="img/centr/bar6.jpg" ></center>'
							 'You both get up and picking up toys peck each other `s pussy to full istupleniya or noticing anyone around, while both of you are not covering orgasm.'
							 act 'Get_Away':gt'club','inside'
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='bar1':
cla
*clr
'<center><B><font color=maroon>bar counter</font></B></center>'
'<center><img src="img/centr/bar7.jpg" ></center>'
'We stand for you to drunk guy and brazenly lozhit your hand on your ass: "babe, can entertain".'
act 'send':
	 if drunk<4:gt'club','bar'
	 if drunk>=4:gt'club','rape'
	 end
if DOM>10:
	 act 'Post a lick':
		 cla
		 *clr
		 set kuni+=1
		 '<center><img src="img/centr/barkuni.jpg" ></center>'
		 'You lowered panties and turned his back to the guy commanded: "lick". He knelt down and began to lick your pussy ineptly, any pleasure you do not dostovlyaet guy was drunk and barely got his tongue over her clit, and it seemed to fume burn your delicate skin.'
		 act 'send':gt'club','bar'
		 act 'blow_job':gt'club','bar2'
		 act 'give':gt'club','bar3'
		 end
	 end
act 'blow_job':gt'club','bar2'
act 'give':gt'club','bar3'
end

if $ARGS[0]='bar2':
cla
*clr
dynamic $venerasiak
set bj+=1
set guy+=1
'<center><B><font color=maroon>bar counter</font></B></center>'
'<center><img src="img/centr/barminet.jpg" ></center>'
'You rastegivat guy pulling his pants and his dignity in the light cling to his lips, sucking his cock then you Shchekotov head yarosno language that suck, Soon his cock stiffened ready to cum.'
act 'give':gt'club','bar3'
act 'suck':
	 cla
	 *clr
	 set cumlip+=1
	 '<center><img src="img/centr/barcum.jpg" ></center>'
	 'The guy ends up spewing cum in your mouth.'
	 act 'Get_Away':gt'club','inside'
	 end
end

if $ARGS[0]='bar3':
cla
*clr
set sex+=1
set cumpussy+=1
'<center><B><font color=maroon>bar counter</font></B></center>'
'<center><img src="img/centr/barsex.jpg" ></center>'
'You go down panties and turn sideways on the chair, what would your pussy was in the side, without hesitation guy comes into you, his drunken movement could not not dostovlyaet you any pleasure, Finally he came to you and buttoned pants left.'
act 'Get_Away':gt'club','inside'
end

if $ARGS[0]='rape':
cla
*clr
dynamic $venerasiak
set SUB+=5
set rape+=1
'<center><B><font color=maroon>bar counter</font></B></center>'
set barraperand=rand(0,1)
     if barraperand=0:
	 set bj+=1
	 '<center><img src="img/centr/barminet.jpg" ></center>'
	 'You are trying to send it, drunk but your tongue tied, pulled out his penis and pulling your head to it begins to fuck you in the mouth.'
	     act 'further':
		 set barraperand1=rand(0,1)
		     if barraperand1=0:
			 cla
			 *clr
			 set cumlip+=1
			 set cumface+=1
			 '<center><B><font color=maroon>bar counter</font></B></center>'
			 '<center><img src="img/centr/barcum.jpg" ></center>'
			 'Finally, and wiped his dick on your face goes'
			 act 'Get_Away':gt'club','inside'
			 end
			 
		     if barraperand1=1:
			 cla
			 *clr
			 set sex+=1
			 set cumpussy+=1
			 '<center><B><font color=maroon>bar counter</font></B></center>'
			 '<center><img src="img/centr/barsex.jpg" ></center>'
			 'Guy takes dick out of your mouth and you are seated in a chair is part of your pussy, he hews you with the power of shoving his cock as deep as possible .'
			 act 'Get_Away':gt'club','inside'
			 end
		 end
	 end
     if barraperand=1:
	 set sex+=1
	 set cumpussy+=1
	 '<center><img src="img/centr/barsex.jpg" ></center>'
	 'You are trying to send it, drunk but your tongue tied, pulled out his penis, turns you on the chair and member moistened with saliva enters your vagina, he hews you with the power of shoving his cock as deep as possible .'
	 act 'Get_Away':gt'club','inside'
	 end
end

if $ARGS[0]='lezbsort':
cla
*clr
dynamic $venerasiak
set girl+=1
set lesbian+=1
set minut+=10
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="img/centr/lezbsort.jpg" ></center>'
'You dragged her to the toilet, she is waiting for your actions'
act 'lick':gt'club','lezbsort1'
act 'Post a lick':gt'club','lezbsort2'
act 'Get_Away':gt'club','tou'
end

if $ARGS[0]='lezbsort1':
cla
*clr
set minut+=10
set horny=0
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="img/centr/sortukuni.jpg" ></center>'
'You sat her on the toilet and getting to korachki dig into her crotch, selflessly licking her pussy, until it is finished.'
     if hour >= 15 or hour <= 3:act 'Post a lick':gt'club','lezbsort2'

act 'Get_Away':gt'club','tou'
end

if $ARGS[0]='lezbsort2':
cla
*clr
set minut+=10
set horny=0
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="img/centr/sortkuni.jpg" ></center>'
'You sat on the toilet, his feet to the ceiling, She sank to her knees began to lick you with its tongue, before you finish , and pressed it to her pussy so that she completely turned her mouth closed, you roughly finished and all the juice to the last drop emerged in her mouth.'
	 if hour >= 15 or hour <= 3:act 'lick':gt'club','lezbsort1'
act 'Get_Away':gt'club','tou'
end

if $ARGS[0]='vip':
     if vipcart=0 and vipday ! day:
	 'You stop the administrator: "You do not have maps, it can be purchased for 50000 rub on 10 Attendance, and now go free."'
		 if money>=50000:
			 act 'Buy a map':
			 set money-=50000
			 set vipcart=10
			 set vipday=day
			 gt 'vipclub','start'
			 end
		 end
	 end
	 act 'move_away':gt'club','inside'
	 
	 
     if vipcart>0 and vipday ! day:
		 act 'Go to the club':
		 set vipcart-=1
		 set vipday=1
		 set vipday=day
		 gt 'vipclub','start'
		 end
	 end
if vipday=day:act 'Go to the club':gt 'vipclub','start'
end
--- club ---------------------------------

# danceclass
set minut = minut + 5
'<center><B><font color=maroon>Dance Class</font></B></center>'
'<center><img src="pic/danceclass.jpg" ></center>'
'Modern room with good lighting and mirrors for the development of dance skills.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

set razdtumbler = 0


     act 'Modern club dances':
     cla
     *clr
     set minut = minut + 120
     set fat = fat - 5
     speed+= RAND (1,3)
     set manna = manna - 5
     set sweat = sweat + 3
     dance+=RAND(5,15)
     '<center><img src="pic/fit1.jpg" ></center>'
     if dance<100:'You were taught modern dance club, which are very popular in discos.'
     if dance>=100:'You tried podcherpnut something new in modern club dances, but you already know very well.'
     act 'Get_Away':gt'fit','razd'
     end

     act 'Stritiz':
     cla
     *clr
     set minut = minut + 120
     set fat = fat - 5
     set agil+= RAND (1,3)
     set manna = manna - 8
     set sweat = sweat + 3
     !stripdance+=1
     '<center><img src="pic/stripdance.jpg" ></center>'
		 if dance>=100:
		 stripdance+=RAND(2,10)
		 'You trained passionately razdevatsya dance music.'
		 if stripdance>=100:'But you could not learn anything new, all that you already know how great and you know.'
		 end
		 if dance<100:
		 dance+=RAND(5,15)
		 'Striptease for you too complex, you can not perform the dance moves combining them with strip. The teacher encourages you to learn how to start an ordinary club dances.'
		 end
     act 'Get_Away':gt'fit','razd'
     end

     act 'Dancing on a pole':
     cla
     *clr
     set minut = minut + 120
     set fat = fat - 10
     set stren+= RAND (1,3)
     vital+=RAND (1,3)
     set manna = manna - 5
     set sweat = sweat + 3
     !poledance+=1
     '<center><img src="pic/poledance.jpg" ></center>'
     	 if dance>=100 and stripdance>=100 and stren>=80:
		 poledance+=RAND(2,5)
		 'You were taught various acrobatics on the pole.'
		 if poledance>=100:'But you could not learn anything new, all that you already know how great and you know.'
		 end
		 if dance<100 or stripdance<100 or stren<80:
		 'Already in the first exercise. It looks like this kind of dance you until the teeth'
		 if stren<80:'The teacher explained that you dance on a pole, than the ability to dance, require more physical strength.'
		 end
     act 'Get_Away':gt'fit','razd'
     end




--- danceclass ---------------------------------

# dorm
if $ARGS[0]='start':
cla
*clr

set minut = minut + 5
'<center><B><font color=maroon>hostel</font></B></center>'
'<center><img src="pic/dorm.jpg" ></center>'
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
	 if student>0:
		 act 'go':
		 cla
		 set minut = minut + 5
		 set reccoldorm=1
		 gt'dorm','korr'
		 end
	 end
     if reccoldorm<1 and student=0:
		 act 'try to go':
		 cla
		 set minut = minut + 5
		 gt'dorm','in'
		 end
     end
     
     act 'GO_OUT':
     cla
     set minut = minut + 5
     reccoldorm=0
     gt'down'
     end
end

if $ARGS[0]='in':
cla
*clr
gs'stat'
	 if student =0:
     'You do not have the student and refuses vahtersha miss you.'
		 act 'Get_Away':gt 'down'
		 
		 if afra>0:
		 	 act 'I to Demarcus':
			 cla
			 'You said that you have to Demarcus. vahtersha hemmed, "slut, bedding for blacks, Go jump on their Black Bolt"'
			 set reccoldorm=1
		     act 'Login':gt'dorm','korr'
			 end
		 end
		 
		 if gosh > 0:
		 	 act 'I for Gaucher':
			 cla
			 'You said that you have to Gaucher. vahtersha hemmed, "Another Goshin litter? Yes , Now slut yourself go to him. heh, go to your stud, mat."'
			 set reccoldorm=1
		     act 'Login':gt'dorm','korr'
			 end
		 end
	 end
end

if $args[0]='korr':
clr
gs'stat'
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><img src="img/centr/obkorr.jpg" ></center>'
'Before you normal obschazhny corridor with dilapidated walls, identical doors, Some of the rooms comes the music or drunken cries students.'
     act 'Get_Away':
     cla
     set minut = minut + 5
     set reccoldorm=0
     gt'down'
     end
     
     if student>0:
	 act 'Your room':gt'obroom','start'
	     act 'On a shared kitchen':
		 set minut+=5
		 gt'obkitchen'
		 end
		 
	     act 'In a shared bathroom':
		 set minut+=5
		 set obdysh=1
		 gt'vann','start'
		 end
	 end
	 
     if student>0 and week=5 and hour>18 and hour<23:
	 'In the corridor rumbles music, Friday looks like the party is in full swing.'
	 act 'the party':gt'vecher','start'
	 end
     
	 if afra > 0 and hour<22 and hour>=7:
		 act 'DeMarcus room':
		 cla
		 Set afrand = RAND (1,2)
			 if afrand = 1:
			 'You knocked on the room DeMarcus, but it is not at'
			 set minut = minut + 5
			 gs'stat'
				 act 'Get_Away':gt 'dorm','korr'
			 end
			 
			 if afrand = 2:
			 *clr
			 'You knocked on the room DeMarcus. After a couple of seknd you opened hefty inflated African. He smiled when he saw a snow-white smile and invited you to his room. There he quickly covered quite a luxurious table for student and invited you to a table.'
				 act 'Drink with DeMarcus':
				 cls
				 minut+=120
				 gs'stat'
				 'You drank wine with DeMarcus and he began to paw at his chest you. Then raise your shirt and began to suck your nipples and play with her вЂ‹вЂ‹breasts, you become very good.'
				 Set afrand = RAND (1,afra)
					 if afrand = 1:
					 if demarkus = 0:Set guy = guy + 1&Set demarkus = 1
					 Set sex = sex + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus section and put you on the bed, He pulled out his huge black cock and your legs apart you entered.'
					 '<center><img src="pics2/afra.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 2:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus section and put you back on the floor, He pulled out his huge black cock and your legs apart you entered.'
					 '<center><img src="pics2/afra1.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 3:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus section and you put cancer on the bed, He pulled out his huge black cock and apart your bread came in you.'
					 '<center><img src="pics2/afra2.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 4:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 !
					 Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 anus+=1
					 'Demarcus section and you put cancer on the bed, He pulled out his huge black cock and apart your bread came into your anus.'
					 '<center><img src="pics2/afra4.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 5:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus section and you put cancer on the bed, He pulled out his huge black cock and went into your pussy stretching it to the limit.'
					 '<center><img src="pics2/afra24.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 6:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 !
					 Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 anus+=1
					 'Demarcus section you and put it on the bed, He pulled out his huge black cock and your feet apart came into your anus.'
					 '<center><img src="pics2/afra16.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 7:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 !
					 Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 anus+=1
					 'Demarcus section and you lay on the bed, He easily lifted and you sat on your anus huge cock.'
					 '<center><img src="pics2/afra13.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 8:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 !
					 Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 anus+=1
					 'Demarcus section and you lay on the bed, He easily lifted and you sat on your anus huge cock.'
					 '<center><img src="pics2/afra20.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 9:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus section and you lay on the bed, He easily lifted and you sat on his huge member of your pussy.'
					 '<center><img src="pics2/afra11.jpg" ></center>'
					 'While Demarcus bored you with its great features.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 10:
					 Set throat= throat + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 Set cumface = cumface + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra3.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 11:
					 Set throat= throat + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 Set cumface = cumface + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra10.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 12:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 Set cumface = cumface + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra14.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 13:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra18.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 14:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra23.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 15:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra31.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 16:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra32.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 17:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra33.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 18:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra34.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 19:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra35.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 20:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra36.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 21:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra37.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 22:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra38.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 23:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra39.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 24:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra40.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand = 25:
					 Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 Set oral = oral + 1
					 !
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 !Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 VAF+=1
					 'Demarcus put you on your knees and put you in the mouth with his huge black cock'
					 '<center><img src="pics2/afra41.jpg" ></center>'
					 'While Demarcus pecked you in the mouth with its black member, as you carefully aspirated and caressed his pussy, when Demarcus took cock and began to cum on your face, You covered orgasm.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
					 
					 if afrand >= 26:
					 !Set throat= throat + 1
					 !Set guy = guy + 1
					 Set sex = sex + 1
					 !Set oral = oral + 1
					 
					 !Set anal = anal + 1
					 !Set cumlip = cumlip + 1
					 !Set cumface = cumface + 1
					 !Set cumbutt = cumbutt + 1
					 Set cumass = cumass + 1
					 Set horny = 0
					 Set afra = afra + 1
					 orgasm+=1
					 vagina+=1
					 'Demarcus put you on the bed and spread her legs, taking out his huge black cock he walked into your pussy.'
					 '<center><img src="pics2/afra42.jpg" ></center>'
					 'While Demarcus pecked you as a member you have time to finish a few times on his dick, Then he pulled out his penis and you finished on overworked vagina.'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 
			 end
		 end
	 end

	 if afra > 10 and hour>=8 and hour<22:
		 act 'Room African students':
		 cls
		 minut+=5
		 gs'stat'
		 Set afrand = RAND (1,2)
			 if afrand = 1:
			 'You knocked on the room Africans, but no one was there'
			 act 'Get_Away':set minut=minut+5&gt 'dorm','korr'
			 end
			 
			 if afrand = 2:
			 minut+=120
			 gs'stat'
			 'You knocked on the room Africans, you opened the black giant, he grabbed you by the hand and dragged into the room where you saw five Africans. Africans have surrounded you and started to grab you for a breast and ass. The most intelligible words were Cumdump, whore, white trash, bimbo slut.'
			 if afragang = 0:Set afragang = 1&Set guy = guy + 6
			 set hour=hour+2
			 Set afrand = RAND (1,afra)
				 if afrand = 1:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 Set afra = afra + 1
				 vagina+=1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra5.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 2:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 Set afra = afra + 1
				 vagina+=1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra6.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 3:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 Set afra = afra + 1
				 vagina+=1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra7.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 4:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra8.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 5:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra9.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 6:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra12.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 7:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra17.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 8:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra19.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 9:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra21.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 10:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra22.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 11:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra25.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand = 12:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra26.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
				 
				 if afrand >= 13:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 set gang=gang+1
				 Set anal = anal + 1
				 Set cumlip = cumlip + 2
				 Set cumface = cumface + 2
				 Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 vagina+=1
				 Set afra = afra + 1
				 orgasm+=1
				 'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in the gears in all holes.'
				 '<center><img src="pics2/afra27.jpg" ></center>'
				 'While you fucked in all holes you left off a few times and Africans obstruhali you almost all body.'
				 act 'Get_Away':gt 'dorm','korr'
				 end
			 end
		 end
	 end

	 if afra > 20 and afragang = 1 and hour>=8 and hour<22:
		 act 'Kendra room':
		 cls
		 minut+=15
		 gs'stat'
			 if kendra = 5:
			 'Kendra went out of the room and invited a, She undressed without hesitation and offered you my pussy for maintenance.'
				 act 'unclothed':
				 cla
				 Set sex = sex + 1
				 Set lesb = lesb + 1
				 Set horny = 0
				 orgasm+=1
				 gs'stat'
				 'Kendra puts a strap and hard fucks you'
				 Set picrand = RAND (1,5)
				 if picrand = 1:'<center><img src="pics2/kendraStrap.jpg" ></center>'
				 if picrand = 2:'<center><img src="pics2/kendraStrap2.jpg" ></center>'
				 if picrand = 3:'<center><img src="pics2/kendraStrap3.jpg" ></center>'
				 if picrand = 4:'<center><img src="pics2/kendraStrap4.jpg" ></center>'
				 if picrand = 5:'<center><img src="pics2/kendraStrap.jpg" ></center>'
				 vagina+=1
				 act 'Get_Away':gt 'dorm','korr'
				 end
			 end
			 
			 if kendra =4:
			 'The room got pretty African Kendra, she suggested that you make another tattoo, after which it will allow you to lick her.'
			 act 'Get_Away':gt 'dorm','korr'
				 act 'a tattoo':
				 cla
				 minut+=60
				 gs'stat'
				 set tatrand=rand(1,2)
				 Set kendra = 5
				 Set tat = 5
				 Set vnesh = vnesh + 20
				     if tatlip=0:'Kendra fills you on the lip stigma huesoska'
				 
					 if tatrand=1:
					 '<center><img src="picBody/tatlip1.jpg" ></center>'
					 tatlip=1
					 end
				 
					 if tatrand=2:
					 '<center><img src="picBody/tatlip3.jpg" ></center>'
					 tatlip=3
					 end
				 
					 if tatlip=1 or tatlip=3:
					 '"Agaa. So you already have a? Good_For_You, good bitch. And now for the work!"'
					 end
				 
					 if tatlip>1 and tatlip<>3:
					 'Kendra sees, that you already have a tattoo on the lip. "It`S_Nothing, EO `s a quick fix" - she says. so masterfully, that old tattoo and not noticeably.'
					 end
				 
					 act 'Lick at Kendra':
					 cla
					 Set sex = sex + 1
					 Set lesb = lesb + 1
					 Set horny = 0
					 orgasm+=1
					 vagina+=1
					 'Kendra undresses and puts you cancer, she wears a strap and insert it in your pussy.'
					 '<center><img src="pics2/kendraStrap.jpg" ></center>'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 end
			 !
			 if kendra =3:
			 'The room got pretty African Kendra, she suggested that you make another tattoo, after which it will allow you to lick her.'
			 act 'Get_Away':gt 'dorm','korr'
				 act 'a tattoo':
				 cla
				 minut+=60
				 gs'stat'
				 Set kendra = 4
				 Set tat = 4
				 Set vnesh = vnesh + 20
					 if tatvag=3:
					 'Kendra says, that you already have such a stigma, predatory smiles and savory otveschshivaem you a slap on the vagina'
					 end
				 
					 if tatvag=0:
					 'Kendra fills you in the groin whore stigma for blacks'
					 '<center><img src="picBody/tatvag3.jpg" ></center>'
					 end
				 
					 if tatvag>0 and tatvag<>3:
					 'Kendra sees, that you already have a tattoo in the groin. "It`S_Nothing, this is a quick fix we" - she says. so masterfully, that old tattoo and not noticeably.'
					 '<center><img src="picBody/tatvag3.jpg" ></center>'
					 end
				 
				 set tatvag=3
				 
					 act 'Lick at Kendra':
					 cla
					 *clr
					 Set lesb = lesb + 1
					 Set horny+=20
					 'Kendra undresses and sticks to you my pussy licking, You could work in her tongue juicy pussy and cums violently Kendra'
					 '<center><img src="pics2/kendra3.jpg" ></center>'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 end
			 
			 if kendra = 2:
			 'The room got pretty African Kendra, she suggested that you make another tattoo, after which it will allow you to lick her.'
			 act 'Get_Away':gt 'dorm','korr'
				 act 'a tattoo':
				 cla
				 minut+=60
				 gs'stat'
				 Set kendra = 3
				 Set tat = 3
				 Set vnesh = vnesh + 20
					 if tatplech=4:
					 'Kendra sees you on the shoulder tattoo whore for blacks, grins and goes to bed'
					 end
					 
					 if tatplech=0:
					 'Kendra fills you on the shoulder of a brand whore for blacks'
					 '<center><img src="picBody/tatplech4.jpg" ></center>'
					 set tatplech=4
					 end
					 
					 if tatplech>0 and tatplech<>4:
					 set tatplech=4
					 'Kendra sees, that you already have a tattoo on his shoulder. "It`S_Nothing, this is a quick fix we" - she says. so masterfully, that old tattoo and not noticeably.'
					 '<center><img src="picBody/tatplech4.jpg" ></center>'
					 end
					 
					 act 'Lick at Kendra':
					 cla
					 *clr
					 Set lesb = lesb + 1
					 Set horny+=20
					 'Kendra undresses and sticks to you my pussy licking, You could work in her tongue juicy pussy and cums violently Kendra'
					 '<center><img src="pics2/kendra2.jpg" ></center>'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 end
			 
			 if kendra = 1:
			 'The room got pretty African Kendra, she suggested that you make another tattoo, after which it will allow you to lick her.'
			 act 'Get_Away':gt 'dorm','korr'
				 act 'a tattoo':
				 cla
				 *clr
				 minut+=60
				 gs'stat'
				 Set kendra = 2
				 Set tat = 2
				 Set vnesh = vnesh + 20
				 
					 if tatleg=1 or tatleg=2:
					 'oh, what independent girl, is itself made. Now you can do the, for what came.'
					 end
					 
					 if tatleg=0:
					 'Kendra fills you at the foot of a brand whore for blacks'
					 '<center><img src="picBody/tatleg2.jpg" ></center>'
					 set tatleg=2
					 end
					 
					 if  tatleg>2:
					 'Kendra sees, that you already have a tattoo in the groin. "It`S_Nothing, this is a quick fix we" - she says. so masterfully, that old tattoo and not noticeably.'
					 '<center><img src="picBody/tatleg2.jpg" ></center>'
					 set tatleg=2            
					 end
					 
					 act 'Lick at Kendra':
					 cla
					 *clr
					 Set repa = 9
					 Set lesb = lesb + 1
					 if kendrasex=0:kendrasex=1&girl = girl + 1
					 Set horny+=20
					 'Kendra undresses and sticks to you my pussy licking, You could work in her tongue juicy pussy and cums violently Kendra'
					 '<center><img src="pics2/kendra.jpg" ></center>'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 end
			 
			 if kendra = 0:
			 'The room got pretty African, She introduced herself as Kendari and said that he knew about what you litter for Africans. She suggested that you make the proper tattoo, after which it will allow you to lick her.'
			 act 'Get_Away':gt 'dorm','korr'
				 act 'a tattoo':
				 cla
				 minut+=60
				 gs'stat'
				 Set kendra = 1
				 Set tat = 1
				 Set vnesh = vnesh + 20
				 
					 if tatupb=4:
					 'Oh, because you already have a brand whore? And what we`re spending time! Bring_It_On, do your wet work, slut.'
					 end
				 
					 if tatupb=0:
					 'Kendra fills you on waist whore stigma'
					 '<center><img src="picBody/tatupb4.jpg" ></center>'
					 set tatupb=4
					 end
				 
					 if tatupb>0 and tatupb<>4:
					 'Kendra sees, that you already have a tattoo on the lower back. "It`S_Nothing, this is a quick fix we" - she says. so masterfully, that old tattoo and not noticeably.'
					 '<center><img src="picBody/tatupb4.jpg" ></center>'
					 set tatupb=4
					 end
				 
					 act 'Lick at Kendra':
					 cla
					 *clr
					 if kendrasex=0:kendrasex=1&girl+=1
					 Set lesb = lesb + 1
					 Set horny+=20
					 'Kendra undresses and sticks to you my pussy licking, You could work in her tongue juicy pussy and cums violently Kendra'
					 '<center><img src="pics2/afra30.jpg" ></center>'
					 act 'Get_Away':gt 'dorm','korr'
					 end
				 end
			 end
		 end
	 end

	 if gosh > 0 and hour>=8 and hour<22:
		 act 'room Goshi':
		 cla
		 minut+=15
		 gs'stat'
		 'You open the door and invites enter Ghosh'
			 act 'Go into the room Goshi':
			 cla
			 minut+=60
			 gs'stat'
			 if goshsex = 0:Set goshsex = 1&Set guy = guy + 1
			 'Gosh starts gluesbsmiling to you, fondle your breasts and slowly undress you'
			 set srand = RAND (1,3)
				 if srand = 1:
				 !Set throat= throat + 1
				 Set sex = sex + 1
				 !Set oral = oral + 1
				 
				 !Set anal = anal + 1
				 !Set cumlip = cumlip + 2
				 !Set cumface = cumface + 2
				 !Set cumbutt = cumbutt + 1
				 Set cumass = cumass + 1
				 Set horny = 0
				 orgasm+=1
				 vagina+=1
				 'Gosh enters his cock in your pussy, while he fucked you have finished and then he came on you.'
				 Set picrand = RAND (1,5)
				 if picrand = 1:'<center><img src="pics2/gosh2.jpg" ></center>'
				 if picrand = 2:'<center><img src="pics2/gosh11.jpg" ></center>'
				 if picrand = 3:'<center><img src="pics2/gosh13.jpg" ></center>'
				 if picrand = 4:'<center><img src="pics2/gosh14.jpg" ></center>'
				 if picrand = 5:'<center><img src="pics2/gosh15.jpg" ></center>'
				 act 'Get_Away':gt 'dorm','korr'
				 end 
				 
				 if srand = 2:
				 Set throat= throat + 1
				 Set sex = sex + 1
				 Set oral = oral + 1
				 Set cumlip=cumlip+1
				 Set cumface = cumface + 2
				 'Gosh puts you on your knees and fuck you in the mouth, Then he pulls out a cock and cums on your face.'
				 Set picrand = RAND (1,5)
				 if picrand = 1:'<center><img src="pics2/gosh.jpg" ></center>'
				 if picrand = 2:'<center><img src="pics2/gosh3.jpg" ></center>'
				 if picrand = 3:'<center><img src="pics2/gosh4.jpg" ></center>'
				 if picrand = 4:'<center><img src="pics2/gosh5.jpg" ></center>'
				 if picrand = 5:'<center><img src="pics2/gosh7.jpg" ></center>'
				 gs'oral','0'
				 act 'Get_Away':gt 'dorm','korr'
				 end 
				 
				 if srand = 3:
				 Set sex = sex + 1
				 Set anal = anal + 1
				 Set cumbutt = cumbutt + 1
				 orgasm+=1
				 anus+=1
				 'Gosh you lubricate the anus and flexing his fingers, then he puts you in the ass dick.'
				 Set picrand = RAND (1,5)
				 if picrand = 1:'<center><img src="pics2/gosh6.jpg" ></center>'
				 if picrand = 2:'<center><img src="pics2/gosh8.jpg" ></center>'
				 if picrand = 3:'<center><img src="pics2/gosh9.jpg" ></center>'
				 if picrand = 4:'<center><img src="pics2/gosh10.jpg" ></center>'
				 if picrand = 5:'<center><img src="pics2/gosh12.jpg" ></center>'
				 act 'Get_Away':gt 'dorm','korr'
				 end 
			 end
			 
			 act 'Go for a walk with Gosha':
			 cla
			 Set gosh = gosh + 1
			 minut+=120
			 gs'stat'
			 'You walk with Gosha, he is a very interesting person and gallant.'
			 act 'Get_Away':gt 'dorm','korr'
			 end
		 end
	 end
end


--- dorm ---------------------------------

# fit
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>fitness center</font></B></center>'
'<center><img src="pic/fit.jpg" ></center>'
'Subscribe to 30 training costs 3000 rubles
Be sure to come to class in sportswear.'
if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if money >= 3000:
         act 'Buy ticket (3 sput)':
         cla
         set money = money - 3000
         set abonement = abonement + 30
         'You bought a subscription for 30 Occupation'
         act 'Move away from cash':gt'fit','start'
         end
     end
     
     if abonement > 0 and fitday ! day:
         act 'Go to the locker room':
         cla
         frost=0
         set abonement = abonement - 1
         set fitday = day
         set razdtumbler = 1
         gt'fit','razd'
         end
     end
end

if $ARGS[0]='razd':
clr
gs'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 5
'<center><B><font color=maroon>locker_room</font></B></center>'
'<center><img src="pic/razd.jpg" ></center>'

'advertisement'
'Produced a set of girls in section running, winners of the competition receive cash prizes.'
'Caution, visit the sports section razreshaetsya only with tracksuits.'

     if razdrand=0 and tanznak=0 and tanday!day:
     tanday=day
	 'In the locker room  <a href="exec:gt ''fitgirl''">pretty girl</a>.'
	 end
	 
     if tanznak=2:
	 cls
	 '<center><img src="img/centr/razd4.jpg" ></center>'
	 '"You, manyachka, and then raped the girl and Chesney did not even had the" she asked breathless.
	 "I Light, and I will not rape you yourself did not mind" Answer You eyes trying to find her panties.
	 "Looking for this?" asked the girl twirling his finger on your panties "I`m Tanya, and yet you seduced me, I have the girls did not exist before, and as it turned out a very good reason, I live near here with my parents, if you want to come to visit."
	 "Okay as a sprint, Panties is true" Say you`re holding out his hand.
	 "Do_Not-and do not return, should at me that-then stay on the memory of the first girl." With these words.'
	 set tanznak=3
	 set tanga=0
	 set nude=1
	 set tanya+=5
	 act 'further':gt'fit','razd'
	 exit
	 end


if begsec = 0: act 'Enroll in section running': gt'fit','1'

if begsec > 0 and razdtumbler = 1 and sport > 0: act 'Go to section': gt'beg','start'
if begsec > 0 and razdtumbler = 1 and sport > 0 and beg>=20 and week=6: act '<B>Competitions on the run</B>': gt'beg1','start'

     act 'take a shower 15 min':
     cla
     *clr
     set minut = minut + 15
     set sweat = -3
     set horny = horny + 1
     set hapri = 0
     set mop = 1
     dynamic $showerdin
     '<center><img src="pics/dush.jpg" ></center>'
     'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
     act 'Get out of the shower':gt'fit','razd'
     end
     
     act 'mirror':
     cla
     set fitMir = 1
     gt'mirror','start'
     end
     
     act 'cabinet':
     cla
     set fitLoker = 1
     gt'loker','start'
     end
     
     if razdtumbler = 1 and sport > 0:
         act 'Go to the gym':
		 cla
		 gt'fit','raz'
		 end
		 
		 act 'Go to the dance studio.':
		 cla
		 gt'danceclass'
		 end
     end
     
     if razdtumbler = 0 or sport = 0:
         act 'Get out of the locker room':
		 cla
		 gt'fit','start'
		 end
     end
end

if $ARGS[0]='raz':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>fitness center</font></B></center>'
'<center><img src="pic/fit.jpg" ></center>'
'In the fitness center are a lot of different programs for the physical development of the organism.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

set razdtumbler = 0
set sportzalrand=rand(0,20)

     act 'aerobics (Squeegee fat)':
     cla
     *clr
     set minut = minut + 120
     set fat = fat - 10
     set reakt = reakt + RAND (1,3)
     set manna = manna - 5
     set sweat = sweat + 3
     if sportzalrand=0:gt'zal','0'
	 if sportzalrand=1:gt'zal','1'
	 if sportzalrand=2:gt'zal','2'
	 if sportzalrand=3:gt'zal','3'
     '<center><img src="pic/fit1.jpg" ></center>'
     'You are very energetic exercises to music for eviction fat.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Trenazhorka (effect on)':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set fat = fat - 1
     set manna = manna - 5
     set sweat = sweat + 3
     if sportzalrand=0:gt'zal','0'
	 if sportzalrand=1:gt'zal','1'
	 if sportzalrand=2:gt'zal','2'
	 if sportzalrand=3:gt'zal','3'
     '<center><img src="pic/fit2.jpg" ></center>'
     'Did you do with iron for strength development.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Trenazhorka (endurance)':
     cla
     *clr
     set minut = minut + 120
     set vital = vital + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 2
     set sweat = sweat + 3
     if sportzalrand=0:gt'zal','0'
	 if sportzalrand=1:gt'zal','1'
	 if sportzalrand=2:gt'zal','2'
	 if sportzalrand=3:gt'zal','3'
     '<center><img src="pic/fit3.jpg" ></center>'
     'Did you do on trenazhore for development of endurance.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Tennis working out protection(Skill)':
     cla
     *clr
     set minut = minut + 120
     set agil = agil + RAND (1,3)
     set fat = fat - 5
     set manna = manna - 5
     set sweat = sweat + 3
     set TenisDef = TenisDef + 1
     if sportzalrand=0:gt'zal','0'
	 if sportzalrand=1:gt'zal','1'
	 if sportzalrand=2:gt'zal','2'
	 if sportzalrand=3:gt'zal','3'
     '<center><img src="pic/fit4.jpg" ></center>'
     'You engaged in practicing tennis protective actions.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Tennis working off attacks (speed)':
     cla
     *clr
     set minut = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 5
     set sweat = sweat + 3
     set TenisAt = TenisAt + 1
     if sportzalrand=0:gt'zal','0'
	 if sportzalrand=1:gt'zal','1'
	 if sportzalrand=2:gt'zal','2'
	 if sportzalrand=3:gt'zal','3'
     '<center><img src="pic/fit4.jpg" ></center>'
     'You engaged in practicing tennis attacking actions.'
     act 'Get_Away':gt'fit','razd'
     end

     act 'section kickboxing':gt'fit','kik'

end



if $ARGS[0]='kik':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>section kickboxing</font></B></center>'
'<center><img src="pic/kik.jpg" ></center>'
''
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs'razrKik'
     act 'Testing jabs on pear':
     cla
     *clr
     set minut = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Jab = Jab + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear jab, long. These strikes are not as powerful as the power, but they will.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Testing of power punches on pear':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Punch = Punch + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear powerful force capable of hitting an opponent to shake. These attacks are powerful, but they are hard to get.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Driving range legs':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Kik = Kik + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear powerful kicks can knock an opponent. These attacks are powerful, but are very difficult to get.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Testing of protection':
     cla
     *clr
     set minut = minut + 120
     set agil = agil + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set KikDef = KikDef + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced defense movements.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Sparing (training fight in the ring)':
     cla
     *clr
     set round = 0
     'You need to choose his opponent for sparring'
         act 'rival':
		 set minut = minut + 120
		 set manna = manna - 5
		 set fat = fat - 4
		 set sweat = sweat + 3
		 set strenV = RAND (10,20)
		 set speedV = RAND (10,20)
		 set agilV = RAND (10,20)
		 set reactV = RAND (10,20)
		 set vitalV = RAND (10,20)
		 set intelV = 10
		 set willV = 10
		 !skills
		 set JabV = RAND (5,20)
		 set PunchV = RAND (5,20)
		 set KikV = RAND (5,20)
		 set KikDefV = RAND (5,20)
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set $nameV = 'Sparing partner'
		 set formula = 3
		 set sparing = 1
         gt'kikbox','start'
		 end
     
     end
     
     if week >= 5:
     'You can spend amateur fight.'
         act 'amateur fight':
         set round = 0
		 set minut = minut + 120
		 set manna = manna - 5
		 set fat = fat - 4
		 set sweat = sweat + 3
		 set razrand = RAND (0,1)
		     if razradKik + razrand = 0:
			 set strenV = RAND (10,20)
			 set speedV = RAND (10,20)
			 set agilV = RAND (10,20)
			 set reactV = RAND (10,20)
			 set vitalV = RAND (10,20)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (10,30)
			 set PunchV = RAND (10,30)
			 set KikV = RAND (10,30)
			 set KikDefV = RAND (10,30)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'Rival without discharge'
			 set formula = 3
			 set amature = 1
			 end
			 
			 if razradKik + razrand = 1:
			 set strenV = RAND (15,25)
			 set speedV = RAND (15,25)
			 set agilV = RAND (15,25)
			 set reactV = RAND (15,25)
			 set vitalV = RAND (15,25)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (15,35)
			 set PunchV = RAND (15,35)
			 set KikV = RAND (15,35)
			 set KikDefV = RAND (15,35)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'rival c The third level'
			 set formula = 3
			 set amature = 1
			 end
			 
			 if razradKik + razrand = 2:
			 set strenV = RAND (20,30)
			 set speedV = RAND (20,30)
			 set agilV = RAND (20,30)
			 set reactV = RAND (20,30)
			 set vitalV = RAND (20,30)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (30,50)
			 set PunchV = RAND (30,50)
			 set KikV = RAND (30,50)
			 set KikDefV = RAND (30,50)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'rival cof the second category'
			 set formula = 3
			 set amature = 1
			 end
			 
			 if razradKik + razrand = 3:
			 set strenV = RAND (30,40)
			 set speedV = RAND (30,40)
			 set agilV = RAND (30,40)
			 set reactV = RAND (30,40)
			 set vitalV = RAND (30,40)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (40,60)
			 set PunchV = RAND (40,60)
			 set KikV = RAND (40,60)
			 set KikDefV = RAND (40,60)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'rival c first rank'
			 set formula = 3
			 set amature = 1
			 end
			 
			 if razradKik + razrand = 4:
			 set strenV = RAND (40,60)
			 set speedV = RAND (40,60)
			 set agilV = RAND (40,60)
			 set reactV = RAND (40,60)
			 set vitalV = RAND (40,60)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (60,80)
			 set PunchV = RAND (60,80)
			 set KikV = RAND (60,80)
			 set KikDefV = RAND (60,80)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'rival CCM'
			 set formula = 3
			 set amature = 1
			 end
			 
			 if razradKik + razrand >= 5:
			 set strenV = RAND (60,100)
			 set speedV = RAND (60,100)
			 set agilV = RAND (60,100)
			 set reactV = RAND (60,100)
			 set vitalV = RAND (60,100)
			 set intelV = 10
			 set willV = 10
			 !skills
			 set JabV = RAND (80,110)
			 set PunchV = RAND (80,110)
			 set KikV = RAND (80,110)
			 set KikDefV = RAND (80,110)
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set $nameV = 'rival MS'
			 set formula = 3
			 set amature = 1
			 end
         gt'kikbox','start'
		 end
     end

end

if $ARGS[0]='1':
cla
*clr
set minut = minut + 5
Set begsec = 1
'You signed up for the run section'
act 'Get_Away':gt'fit','razd'
end





















--- fit ---------------------------------

# fitgirl
$dintaniastart={
 if dom>10:
	 act 'molest':
	 cla
	 *clr
	 set tanday=day
	 gs'stat'
	 '<center><img src="img/centr/razd1.jpg" ></center>'
	 'You walk up to a girl and vskhvativ one hand on the buttock deploy to face him'
		 if vnesh<20:
		 'The girl pushes you, and shouting that-something about you and all of your Relatives, out of the locker room'
		 act '...':gt'fit','razd'
		 end
		 
		 if vnesh>=20:
		 'Girl vskhvatila your hand squeezes her ass, but froze for a moment considering you, She probably expected to see a man and certainly not for a Woman.'
			 act 'Take advantage of the confusion':
			 cla
			 *clr
			 gs'stat'
			 '<center><img src="img/centr/razd2.jpg" ></center>'
			 'While she was trying to understand what`s going on , and now her hand stroking your buttocks'
			 act 'further':set tanznak=1 & gt 'lezbsex','start'
			 end
			 
			 act 'Wait for her reaction':
			 cls
			 gs'stat'
				 if vnesh<30:
				 'The girl smiles at you, but removes your hand, and leaves, sending you a kiss.'
				 act '...':gt'fit','razd'
				 end
				 if vnesh>=30:
				 cla
				 *clr
				 '<center><img src="img/centr/razd3.jpg" ></center>'
				 'The girl pressed to you even stronger and kisses your lips.'
					 act 'further':
					 set tanznak=1
					 gt 'lezbsex','start'
					 end
				 end
			 end
		 end
	 end
 end
 }

gs'stat'

'The girl sees your look and smile turns. Girl undressing and taking toiletries are in the shower.'
act 'turn':gt'fit','razd'

act 'Go in the shower after a girl':
cls
set minut = minut + 15
set sweat = -3
set horny = horny + 1
set hapri = 0
set mop = 1
dynamic $showerdin
shovertania+=1
'<center><img src="pics/dush.jpg" ></center>'
gs'stat'
'You are logged in shower. There`s no one, except this girl. The girl looked back and see you smile again turned.'
dynamic $dintaniastart
act 'Get out of the shower':gt'fit','razd'
end


--- fitgirl ---------------------------------

# foto
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Photo_Studio</font></B></center>'
'<center><img src="pic/foto.jpg" ></center>'
'In the deserted studio, only photographer sitting under the light of a desk lamp .'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if pfilmNO=1:
'You`re in the black list, with you no decent studio Affairs will not have, adieu.'
act 'Get_Away':gt'down'
exit
end
     if model > 0 and modelmon = month:
     'This month.'
     if pornstudio=0:
         Set pornstudio=2&'Here. casting pornoaktriss.'
         end
     end

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if parkblackmail = 2:
     act 'Search through the eyes of a blackmailer':gt'foto','blackm'
     end
     
     if model = 0 and parkblackmail<>2:
		 act 'Ask on Model':
		 cla
		 set minut = minut + 5
		     if vidage<20:
				 if skin < 2:
				 'girl, with your acne on your face fashion model has nothing to do.'
				 else
				 'Hmm, Undress, I look at you.'
				 act 'undress':gt'foto','model'
				 end
			 end
			 if vidage>=20:
			 'You asked about the work of a model, but you said photographer "I`m so sorry, but you look like a pretty mature woman, What we need young girls." That`s how you have made it clear, you look too old for this business.'
			 end
		 act 'Get_Away':gt'foto','start'
		 end
     end
     
     if model > 0 and modelmon ! month and  venera < 3:
     act 'Ask about work':gt'foto','model'
     end
end

if $ARGS[0]='model':
cla
*clr
	if vnesh>=20:
			 '(photographer) - ok, we just need the model. so_Much, just_a_moment, I`ll see exactly what we need.'
	 set minut = minut + 5
	 '<center><B><font color=maroon>photographer</font></B></center>'
	'<center><img src="pic/fotograph.jpg" ></center>'
	 clr
	 gs'stat'
	 if model = 0:set model = 1
	 set modelpay = vnesh*100
	 cla
	 *clr
	 set modelmon = month
	 Set forand = RAND (1,7)
		 if forand = 1:
		 'so_Much, we need a model dressed in stockings and sexy body. payment <<3*modelpay/2>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 Set slava = slava + 1
			 set minut = minut + 180
			 set modelpayfin = 9*modelpay/2
			 set money = money + modelpayfin
			 Set modelfoto = modelfoto + 1
			 modelfotoTipe[1]+=1
			 *clr
			 '<center><img src="pic/model1.jpg" ></center>'
			 'You are dressed in sexy clothes three hours spent taking various poses for a photographer.'
			 
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 2:
		 'so_Much, we need a model dressed in some stockings. Photos breast and genital close-ups and general pictures. payment <<2*modelpay>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 Set slava = slava + 1
			 set minut = minut + 180
			 set modelpayfin = 6*modelpay
			 set money = money + modelpayfin
			 Set modelfoto = modelfoto + 1
			 modelfotoTipe[2]+=1
			 *clr
			 '<center><img src="pic/model2.jpg" ></center>'
			 'You are dressed in sexy clothes three hours spent taking various poses for a photographer.'
			 
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 3:
		 'so_Much, we need a model dressed in sexy clothes with open chest. payment <<3*modelpay/2>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 Set slava = slava + 1
			 set minut = minut + 180
			 set modelpayfin = 9*modelpay/2
			 set money = money + modelpayfin
			 Set modelfoto = modelfoto + 1
			 modelfotoTipe[3]+=1
			 *clr
			 '<center><img src="pic/model3.jpg" ></center>'
			 'You are dressed in sexy clothes three hours spent taking various poses for a photographer.'
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 4:
		 'so_Much, we need a model completely naked. Photos chest and genitals, priests, all close-up and general pictures. payment <<2*modelpay>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 Set slava = slava + 1
			 set minut = minut + 180
			 set modelpayfin = 6*modelpay
			 set money = money + modelpayfin
			 Set modelfoto = modelfoto + 1
			 modelfotoTipe[4]+=1
			 *clr
			 '<center><img src="pic/model4.jpg" ></center>'
			 'You are dressed in sexy clothes three hours spent taking various poses for a photographer.'
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 5:
		 'so_Much, we need a model completely naked, masturbating using a dildo. payment <<5*modelpay/2>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 Set slava = slava + 1
			 set mastr=mastr+1
			 set minut = minut + 180
			 set modelpayfin = 5*3*modelpay/2
			 set money = money + modelpayfin
			  set modelfoto = modelfoto + 1
			  modelfotoTipe[5]+=1
			 *clr
			 '<center><img src="pic/model5.jpg" ></center>'
			 'You split three hours spent taking various poses in front of the photographer and poking holes in different dildos.'
			 
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 6:
		 'so_Much, we need a model engaged in lesbian sex with another girl. payment <<3*modelpay>> hour.'
		 act 'I do not fit':gt 'foto','start'
			 act 'agree':
			 cla
			 *clr
			 Set slava = slava + 1
			 set lesbian = lesbian + 1
			 Set minut = minut + 180
			 set modelpayfin = 9*modelpay
			 set money = money + modelpayfin
			 Set modelfoto = modelfoto + 1
			 set girl=girl+1
			 modelfotoTipe[6]+=1
			 *clr
			 '<center><img src="pic/model6.jpg" ></center>'
			 'You split three hours spent taking various poses with another girl before photo shows affection, orgasms and lust.'
			 clr
			 gs 'stat'
			 'After three hours of shooting photographer gave you <<modelpayfin>> rubles.'
			 act 'Change into his clothes':gt 'foto','start'
			 end
		 end
		 if forand = 7:
		 'You stripped naked and photographer with a businesslike air began to inspect your naked body.'
		 'Photographer examined you and offered you <<modelpay>> rubles per hour filming nude.'
		 act 'Get_Away':gt'foto','start'
			 act 'agree':
			 cla
			 *clr
			 set minut = minut + 180
			 set modelpayfin = 3*modelpay
			 set money = money + modelpayfin
			 set modelfoto = modelfoto + 1
			 modelfotoTipe[7]+=1
			 '<center><img src="pic/fotograph.jpg" ></center>'
			 'Pictures say what poses you should take, you tried to implement fully its instructions and take the most candid pose lascivious female.'
			 'You filmed nude 3 hours and earned <<modelpayfin>> rubles.'
			 act 'Get_Away':gt'foto','start'
			 end
		 end 
	 else
     'Photographer examined you. "I`m afraid you do not come to us."'
     act 'Get_Away':gt'foto','start'
	 end
end

if $ARGS[0]='blackm':
*clr
gs 'stat'
if parkblackmail = 2:
'My name is Victor appears not familiar to you man. I pay good money to students that I have supplied new actresses. So you have to work out the money you invested in.'
     act 'What you want?':
     cla
     'nothing special, <<$first_name>>. Just that you do what, that you like - he nodded at the pictures.'
         act 'Fucked in front of camera?':
         cla
         'Victor smiled. -Well yes. It`s not difficult. You continued to sit dumbfounded. -Today a lot of time is not required. Go, I have everything ready and waiting for you already. -Today? - You are quite confused, but Victor nodded, and his face became hard. You looked at the pictures and rose. Legs became cotton.'
             act 'Go into the room':
             cla
             'On the back of a chair hung candid lingerie and white shirt. apparently, all this meant to you. You changed clothes and sat on the edge of the bed. At this time. -so_Much, Well. - Ordered Victor, coming with my camera in the room. The girl undresses. Poraskovanney and do not delay. And then you know all the boys. And for the girls will surprise - and he winked ugly guys. You put on the bed and ordered to undress. Hands did not obey, but after a couple poking blond, you decide not to resist. threw off his shirt, undid the bra, and then the guys have already taken matters into their own hands. He literally tore off her bra and you, and panties and fell on the bed. No fondling in was not in sight. Blonde put you on all fours and abruptly entered, You have not even had time to be excited. It hurt, but he fucked sharply, sweeping and painful squeezing chest. Second . Slender brunette gave you a good slap in the face, Tears streamed from his eyes themselves.' 
                 act 'open your mouth':
                 cla
                 clr
                 Set throat= throat + 1
                 Set guy = guy + 2
                 Set sex = sex + 1
                 Set bj+=1
                 Set gang+=1
                 Set cumlip = cumlip + 1
                 set swallow=swallow+1
                 $nameV='blond'
                 pose = 1
                 dick=18
                 '<center><img src="pics2/studia.jpg" ></center>'
                 'You opened your mouth, and he shoved his dick, long and thick. You have become a choke, but it literally sit down you, holding his head. They fuck you two, and next went to Victor, already openly, and filmed, shooting, shooting. In his hand was a lovely big camcorder.'
                 gs'orgazm','start'
                 ' They finished together. Blonde merged all you in the womb. Black forced to swallow all. You fell to the bed.'
                     act 'begin_to_cry':
                     cla
                     *clr
                     'You fell onto the bed and wept. not bad, Tears are always very cool look, - said Victor, pressing the pause. so_Much, <<$first_name>> undermine, and boys can drink.'
                         act 'In the shower':
                         cla
                         'You went to the shower and went to the set. There you were waiting for. suck let, grab you by the hand, blonde dragged to him and entered the mouth. Black . Why such a weasel, - think you, nasazhivayas on member blond. And then he realized how. Harry`s finger began to enter into the hole and before you came, what he wants.'
                             act 'No!':
                             cla
                             Set sex = sex + 1
                             Set bj = bj + 1
                             Set throat= throat + 1
                             Set anal = anal + 1
                             Set cumass = cumass + 1
                             Set cumlip = cumlip + 1
                             set cumface=cumface+1
                             '<center><img src="pics2/studia2.jpg" ></center>'
                             'You shouted No! Do not yell, here is a good sound insulation. And your ass is still fuck, so do not twitch and relax. - Already had two fingers brunette in you. Do_You, sobbing, blonde sucking again. three fingers. At that time, when giving your mouth quickened and was ready to cum, brunette perched member of your rings and abruptly entered. You yelled again, but the blonde quickly plugged your mouth bryzhzhuschim member and sperm, roaring В«swallow, swallow, bitchВ» - planted themselves. When he finally finished, brunette pinned you to the bed and the whole body began to fuck in the ass. It was just crazy sick - without lubrication, but he did not finish, then pulling out entirely, sharply entering again, just ripping you. At_Last, you feel, as it speeds up, and sperm pours you into the rectum. Nothing worse and you could not imagine.'
                                 act 'substitution':
                                 cla
                                 *clr
                                 Set sex = sex + 1
                                 Set anal = anal + 1
                                 Set sex = sex + 1
                                 Set cumbelly = cumbelly + 1
                                 Set cumass = cumass + 1
                                 '<center><img src="pics2/studia3.jpg" ></center>'
                                 'After the shower , turned, Victor has not yet finished. You guys again Fingered, a little thin dildo fuck. It already seemed just a trifle compared with anal sex. And then the brunette put you on his penis and began to fuck, slightly lifting and lowering, Rear went blond and bent you, pressed to his chest brunette. You feel his cock on her ass and realized, that they will fuck you in both holes. The second term is slowly coming into you, and you feel, as they rub through the thin partition, have you, simply use as a whore. They fuck you alone for half an hour.'
                                 $nameV='brunet'
								 pose = 1
								 dick=18
								 gs'orgazm','start'
                                 Set parkblackmail = 4
                                 Set studiaday = 7
                                 'I`ll call you, when you still need you .'
                                 act 'Get_Away':gt 'Down'
                                 end
                             end
                         end
                     end
                 end 
             end
         end
     end
end
end




--- foto ---------------------------------

# lab
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Laboratory Karina</font></B></center>'
'<center><img src="picQW/lab.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     act 'Train with Juugo':
     cla
     gt'lab','jugo'
     end
     
     act 'Train with Karin':
     cla
     gt'lab','karin'
     end
     
     if judosparday ! day:
         act 'sparring (Juugo, mutant, power 600)':
		 cla
		 set judosparday = day
		 set $nameV = 'Juugo'
		 !stats
		 set strenV = 600
		 set speedV = 60
		 set agilV = 60
		 set reactV = 50
		 set vitalV = 200
		 set intelV = 50
		 set willV = 50
		 !skills
		 set magikV = 100
		 set boxingV = 100
		 set shootV = 100
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*10 + magikV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 0
		 set jugoFight = 2
		 gt'fight','start'
		 end
     end
     
     if karinsparday ! day:
         act 'sparring (Karin, magician6)':
		 cla
		 set karinsparday = day
		 set $nameV = 'Karin'
		 !stats
		 set strenV = 60
		 set speedV = 100
		 set agilV = 100
		 set reactV = 60
		 set vitalV = 100
		 set intelV = 100
		 set willV = 100
		 !skills
		 set magikV = 100
		 set boxingV = 100
		 set shootV = 100
		 !parameters
		 set healthV = vitalV*10 + strenV*5
		 set mannaV = intelV*6 + magikV*10
		 set willpowerV = willV*10
		 set BonusAtakV = 0
		 set BonusDefV = 0
		 !Programme of Action
		 set program = 4
		 set karinFight = 1
		 gt'fight','start'
		 end
     end
end

if $ARGS[0]='jugo':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Juugo</font></B></center>'
'<center><img src="picPRE/jugoPRE.jpg" ></center>'
'Juugo sitting on the floor and looking absently into space kudato.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'GO_OUT':gt'lab','start'
     
     if jugoday ! day:
         act 'develop strength 1 h':
         cla
         set stren = stren + RAND (3,6)
         set minut = minut + 60
         set jugoday = day
         'You do physical exercises under the supervision of Juugo.'
         act 'GO_OUT':gt'lab','jugo'
         end
         
         act 'reach speeds 1 h':
         cla
         set speed = speed + RAND (3,6)
         set minut = minut + 60
         set jugoday = day
         'You do physical exercises under the supervision of Juugo.'
         act 'GO_OUT':gt'lab','jugo'
         end
         
         act 'develop agility 1 h':
         cla
         set agil = agil + RAND (3,6)
         set minut = minut + 60
         set jugoday = day
         'You do physical exercises under the supervision of Juugo.'
         act 'GO_OUT':gt'lab','jugo'
         end
         
         act 'develop a reaction 1 h':
         cla
         set react = react + RAND (3,6)
         set minut = minut + 60
         set jugoday = day
         'You do physical exercises under the supervision of Juugo.'
         act 'GO_OUT':gt'lab','jugo'
         end
         
         act 'develop endurance 1 h':
         cla
         set vital = vital + RAND (3,6)
         set minut = minut + 60
         set jugoday = day
         'You do physical exercises under the supervision of Juugo.'
         act 'GO_OUT':gt'lab','jugo'
         end
     
     end

end

if $ARGS[0]='karin':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Karina</font></B></center>'
'<center><img src="picPRE/karinPRE.jpg" ></center>'
'Karin as always studying something.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'GO_OUT':gt'lab','start'
     act 'I`m too fat and not want to get fat.':
     cla
     '(Do_You) - Karin, I have oily dibilka unable to monitor their weight, wave your magic wand, that I had not grown fat.'
     '(Karin) - ugh, that`s the same ponavylazyat of pussy downs, and I then vozis with them. Dick with you, Get. just remember, This spell forever, Only you will be able to come and change the waist to hips, and as fat consist of tits, I am only the highest mercy to you 1th size do, little, shoved silicone. And the decision has no reverse, or whether silicone doll, or live as a man, disenchants I`m not going to. Since you have more fat will not be absorbed by the body and parameters are kept magically, marvel not at the post of dystrophy and Marvel, that force will fall from malnutrition faster, you will no longer be internal reserves.'
         act 'No no no . I will continue smarter.':gt'lab','karin'
         act 'I would want that waist was...':
         cla
         set dounspell = 1
         set TaliaDoun = input ("Waist in cm?")
             if TaliaDoun <= 0:set TaliaDoun = 20
             act 'I would want that your thighs are...':
             cla
             set bedraDoun = input ("Hips in cm?")
                 if bedraDoun <= 0:set bedraDoun = 40
                 act 'Enjoy your stupidity.':gt'lab','karin'
             end
         end
     end
     
     if IvanPodstavaQW=2 and poverKAR=0 and softKAR=0:
         act 'Ask for help with Ivan Karin':
         cla
         gs'stat'
         'You explained the situation and asked her to Karin aid. Karin said thoughtfully. "I do not think, that there are some physical evidence of guilt Ivan. Need is achieved its recognition. I think it can be to capture and interrogate. Or drink his cunning truth serum and question. In any case."'
             act 'military solution':
			 cls
			 poverKAR=1
			 gs'stat'
			 '<center><img src="picPRE/karinPRE.jpg" ></center>'
			 'You have decided to achieve recognition of the power of Ivan. Karin told you. You go to the apartment of Ivan. There vstretish with Juugo. It will help to solve the problem. only look, if he goes to the second level printing, he distraught. At the second level.'
			 act 'GO_OUT':gt'lab','karin'
			 end
			 
			 act 'tricky decision':
			 cls
			 softKAR=1
			 gs'stat'
			 '<center><img src="picPRE/karinPRE.jpg" ></center>'
			 'You have decided to achieve recognition Ivan cunning. Karin told you. You go to the apartment of Ivan. There we met a small business and obtyapaem.'
			 act 'GO_OUT':gt'lab','karin'
			 end
			 
         end
     
     end
     
     if poverKAR=2:
         act 'Approach to Karin about the attack apartments Ivan':
         cla
         poverKAR=3
         'You came to Karin and she sighed. "Yes_I_Am, failed. Juugo caught a bullet in his head and his strength went up to the next level, cure it, made almost invulnerable, but finally deprived of his mind. Juugo not only gained recognition Ivan, and not just kill him, He blew his attack of the entrance. But there are pluses. Cops think it was a gas explosion. But now you have to either pay the debt, or goes to prison."'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     
     if karinday ! day:
         act 'develop intelligence 1 h':
         cla
         set intel = intel + RAND (3,6)
         set minut = minut + 60
         set karinday = day
         'Did you do with Karin developing their intelligence.'
         act 'GO_OUT':gt'lab','karin'
         end
         
         act 'will develop 1 h':
         cla
         set will = will + RAND (3,6)
         set minut = minut + 60
         set karinday = day
         'Did you do with Karin developing their intelligence.'
         act 'GO_OUT':gt'lab','karin'
         end
     
     end
     
     if spelltuman = 0 and magik >= 1:
         act 'Learn the techniques of fog 1 h':
         cla
         set minut = minut + 60
         set spelltuman = 1
         'You learned the technique call fog in battle.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellklon = 0 and magik >= 1:
         act 'Learn the technique of cloning protection 1 h':
         cla
         set minut = minut + 60
         set spellklon = 1
         'You learned the technique of substitution clone themselves in battle.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellstun = 0 and magik >= 2:
         act 'Learn techniques paralysis 1 h':
         cla
         set minut = minut + 60
         set spellstun = 1
         'You learned the technique of paralyzing the enemy.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellwind = 0 and magik >= 2:
         act 'Learn blowing mist 1 h':
         cla
         set minut = minut + 60
         set spellwind = 1
         'You learned the technique of blowing mist.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellklon2 = 0 and magik >= 2:
         act 'Learn triple cloning 1 h':
         cla
         set minut = minut + 60
         set spellklon2 = 1
         'You learned the technique of cloning Troynova.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellenergo = 0 and magik >= 3:
         act 'learn energoschit 1 h':
         cla
         set minut = minut + 60
         set spellenergo = 1
         'You learned the technique Shield power.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     
     if spellinit = 0 and magik >= 3:
         act 'Learn the technique of time dilation 1 h':
         cla
         set minut = minut + 60
         set spellinit = 1
         'You learned the technique of time dilation.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     if magik >= 4 and spellhel = 0:
     !'With this level of magic .'
         act 'Learn the technique of treatment 1 h':
         cla
         set minut = minut + 60
         set spellhel = 1
         'You learned the technique of treatment.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     if magik >= 5 and spellavtoklon = 0:
         act 'Learn techniques avtoklonirovaniya 1 h':
         cla
         set minut = minut + 60
         set spellavtoklon = 1
         'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     if magik >= 6 and spellbefshild = 0:
         act 'Learn the technique of pre- shield 1 h':
         cla
         set minut = minut + 60
         set spellbefshild = 1
         'You learned the technique of pre- shield. This technique allows you to enter into combat with a ready shield against the effects of nat.'
         act 'GO_OUT':gt'lab','karin'
         end
     end
     

end
--- lab ---------------------------------

# NewCloShop
$shmotmag={
cla
act 'remove item.':GOTO $loc, $metka
if newclo[i]=0 and money>=3000:
	 act 'buy':
		 money-=3000
		 newclo[i]=1
		 newcloH[i]=60
		 newcloB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
act 'Get_Away':mag=0&minut+=15&gt'down'
}

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
mag=1
'<center><B><font color=maroon>shop "fashion-monger"</font></B></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get_Away':mag=0&minut+=15&gt'down'
if hour>=9 and hour<=21:
'<center><B>All clothes on 3000 rubles</font></B></center>'
'<table>
<tr>
<a href="exec:set i=1&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/1.jpg" height="120" /></div></a>	<a href="exec:set i=2&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/2.jpg" height="120" /></div></a>	<a href="exec:set i=3&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/3.jpg" height="120" /></div></a>	<a href="exec:set i=4&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/4.jpg" height="120" /></div></a>	<a href="exec:set i=5&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/5.jpg" height="120" /></div></a>	<a href="exec:set i=6&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/6.jpg" height="120" /></div></a>	<a href="exec:set i=7&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/7.jpg" height="120" /></div></a>	<a href="exec:set i=8&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/8.jpg" height="120" /></div></a>	<a href="exec:set i=9&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/9.jpg" height="120" /></div></a>	<a href="exec:set i=10&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/10.jpg" height="120" /></div></a>	<a href="exec:set i=11&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/11.jpg" height="120" /></div></a>	<a href="exec:set i=12&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/12.jpg" height="120" /></div></a>	<a href="exec:set i=13&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/13.jpg" height="120" /></div></a>	<a href="exec:set i=14&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/14.jpg" height="120" /></div></a>	<a href="exec:set i=15&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/15.jpg" height="120" /></div></a>	<a href="exec:set i=16&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/16.jpg" height="120" /></div></a>	<a href="exec:set i=17&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/17.jpg" height="120" /></div></a>	<a href="exec:set i=18&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/18.jpg" height="120" /></div></a>	<a href="exec:set i=19&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/19.jpg" height="120" /></div></a>	<a href="exec:set i=20&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/20.jpg" height="120" /></div></a>	<a href="exec:set i=21&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/21.jpg" height="120" /></div></a>	<a href="exec:set i=22&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/22.jpg" height="120" /></div></a>	<a href="exec:set i=23&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/23.jpg" height="120" /></div></a>	<a href="exec:set i=24&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/24.jpg" height="120" /></div></a>	<a href="exec:set i=25&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/25.jpg" height="120" /></div></a>	<a href="exec:set i=26&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/26.jpg" height="120" /></div></a>	<a href="exec:set i=27&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/27.jpg" height="120" /></div></a>	<a href="exec:set i=28&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/28.jpg" height="120" /></div></a>	<a href="exec:set i=29&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/29.jpg" height="120" /></div></a>	<a href="exec:set i=30&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/30.jpg" height="120" /></div></a>	<a href="exec:set i=31&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/31.jpg" height="120" /></div></a>	<a href="exec:set i=32&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/32.jpg" height="120" /></div></a>	<a href="exec:set i=33&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/33.jpg" height="120" /></div></a>	<a href="exec:set i=34&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/34.jpg" height="120" /></div></a>	<a href="exec:set i=35&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/35.jpg" height="120" /></div></a>	<a href="exec:set i=36&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/36.jpg" height="120" /></div></a>	<a href="exec:set i=37&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/37.jpg" height="120" /></div></a>	<a href="exec:set i=38&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/38.jpg" height="120" /></div></a>	<a href="exec:set i=39&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/39.jpg" height="120" /></div></a>	<a href="exec:set i=40&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/40.jpg" height="120" /></div></a>	<a href="exec:set i=41&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/41.jpg" height="120" /></div></a>	<a href="exec:set i=42&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/42.jpg" height="120" /></div></a>	<a href="exec:set i=43&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/43.jpg" height="120" /></div></a>	<a href="exec:set i=44&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/44.jpg" height="120" /></div></a>	<a href="exec:set i=45&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/45.jpg" height="120" /></div></a>	<a href="exec:set i=46&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/46.jpg" height="120" /></div></a>	<a href="exec:set i=47&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/47.jpg" height="120" /></div></a>	<a href="exec:set i=48&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/48.jpg" height="120" /></div></a>	<a href="exec:set i=49&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/49.jpg" height="120" /></div></a>	<a href="exec:set i=50&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/50.jpg" height="120" /></div></a>	<a href="exec:set i=51&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/51.jpg" height="120" /></div></a>	<a href="exec:set i=52&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/52.jpg" height="120" /></div></a>	<a href="exec:set i=53&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/53.jpg" height="120" /></div></a>	<a href="exec:set i=54&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/54.jpg" height="120" /></div></a>	<a href="exec:set i=55&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/55.jpg" height="120" /></div></a>	<a href="exec:set i=56&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/56.jpg" height="120" /></div></a>	<a href="exec:set i=57&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/57.jpg" height="120" /></div></a>	<a href="exec:set i=58&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/58.jpg" height="120" /></div></a>	<a href="exec:set i=59&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/59.jpg" height="120" /></div></a>	<a href="exec:set i=60&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/60.jpg" height="120" /></div></a>	<a href="exec:set i=61&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/61.jpg" height="120" /></div></a>	<a href="exec:set i=62&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/62.jpg" height="120" /></div></a>	<a href="exec:set i=63&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/63.jpg" height="120" /></div></a>	<a href="exec:set i=64&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/64.jpg" height="120" /></div></a>	<a href="exec:set i=65&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/65.jpg" height="120" /></div></a>	<a href="exec:set i=66&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/66.jpg" height="120" /></div></a>	<a href="exec:set i=67&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/67.jpg" height="120" /></div></a>	<a href="exec:set i=68&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/68.jpg" height="120" /></div></a>	<a href="exec:set i=69&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/69.jpg" height="120" /></div></a>	<a href="exec:set i=70&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/70.jpg" height="120" /></div></a>	<a href="exec:set i=71&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/71.jpg" height="120" /></div></a>	<a href="exec:set i=72&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/72.jpg" height="120" /></div></a>	<a href="exec:set i=73&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/73.jpg" height="120" /></div></a>	<a href="exec:set i=74&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/74.jpg" height="120" /></div></a>	<a href="exec:set i=75&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/75.jpg" height="120" /></div></a>	<a href="exec:set i=76&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/76.jpg" height="120" /></div></a>	<a href="exec:set i=77&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/77.jpg" height="120" /></div></a>	<a href="exec:set i=78&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/78.jpg" height="120" /></div></a>	<a href="exec:set i=79&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/79.jpg" height="120" /></div></a>	<a href="exec:set i=80&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/80.jpg" height="120" /></div></a>	<a href="exec:set i=81&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/81.jpg" height="120" /></div></a>	<a href="exec:set i=82&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/82.jpg" height="120" /></div></a>	<a href="exec:set i=83&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/83.jpg" height="120" /></div></a>	<a href="exec:set i=84&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/84.jpg" height="120" /></div></a>	<a href="exec:set i=85&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/85.jpg" height="120" /></div></a>	<a href="exec:set i=86&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/86.jpg" height="120" /></div></a>	<a href="exec:set i=87&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/87.jpg" height="120" /></div></a>	<a href="exec:set i=88&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/88.jpg" height="120" /></div></a>	<a href="exec:set i=89&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/89.jpg" height="120" /></div></a>	<a href="exec:set i=90&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/90.jpg" height="120" /></div></a>	<a href="exec:set i=91&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/91.jpg" height="120" /></div></a>	<a href="exec:set i=92&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/92.jpg" height="120" /></div></a>	<a href="exec:set i=93&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/93.jpg" height="120" /></div></a>	<a href="exec:set i=94&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/94.jpg" height="120" /></div></a>	<a href="exec:set i=95&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/95.jpg" height="120" /></div></a>	<a href="exec:set i=96&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/96.jpg" height="120" /></div></a>	<a href="exec:set i=97&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/97.jpg" height="120" /></div></a>	<a href="exec:set i=98&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/98.jpg" height="120" /></div></a>	<a href="exec:set i=99&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/99.jpg" height="120" /></div></a>	<a href="exec:set i=100&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/100.jpg" height="120" /></div></a>	<a href="exec:set i=101&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/101.jpg" height="120" /></div></a>	<a href="exec:set i=102&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/102.jpg" height="120" /></div></a>	<a href="exec:set i=103&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/103.jpg" height="120" /></div></a>	<a href="exec:set i=104&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/104.jpg" height="120" /></div></a>	<a href="exec:set i=105&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/105.jpg" height="120" /></div></a>	<a href="exec:set i=106&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/106.jpg" height="120" /></div></a>	<a href="exec:set i=107&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/107.jpg" height="120" /></div></a>	<a href="exec:set i=108&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/108.jpg" height="120" /></div></a>	<a href="exec:set i=109&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/109.jpg" height="120" /></div></a>	<a href="exec:set i=110&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/110.jpg" height="120" /></div></a>	<a href="exec:set i=111&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/111.jpg" height="120" /></div></a>	<a href="exec:set i=112&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/112.jpg" height="120" /></div></a>	<a href="exec:set i=113&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/113.jpg" height="120" /></div></a>	<a href="exec:set i=114&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/114.jpg" height="120" /></div></a>	<a href="exec:set i=115&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/115.jpg" height="120" /></div></a>	<a href="exec:set i=116&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/116.jpg" height="120" /></div></a>	<a href="exec:set i=117&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/117.jpg" height="120" /></div></a>	<a href="exec:set i=118&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/118.jpg" height="120" /></div></a>	<a href="exec:set i=119&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/119.jpg" height="120" /></div></a>	<a href="exec:set i=120&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/120.jpg" height="120" /></div></a>	<a href="exec:set i=121&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/121.jpg" height="120" /></div></a>	<a href="exec:set i=122&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/122.jpg" height="120" /></div></a>	<a href="exec:set i=123&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/123.jpg" height="120" /></div></a>	<a href="exec:set i=124&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/124.jpg" height="120" /></div></a>	<a href="exec:set i=125&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/125.jpg" height="120" /></div></a>	<a href="exec:set i=126&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/126.jpg" height="120" /></div></a>	<a href="exec:set i=127&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/127.jpg" height="120" /></div></a>	<a href="exec:set i=128&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/128.jpg" height="120" /></div></a>	<a href="exec:set i=129&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/129.jpg" height="120" /></div></a>	<a href="exec:set i=130&dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="ode/newclo/130.jpg" height="120" /></div></a>
</tr>
</table>'


!'<a href="exec:set i=1&dynamic $shmotmag"><img src="ode/newclo/1.jpg" width="100"</a>	<a href="exec:set i=2&VIEW ''ode/newclo/2.jpg''&dynamic $shmotmag">option2</a>	<a href="exec:set i=3&VIEW ''ode/newclo/3.jpg''&dynamic $shmotmag">option3</a>	<a href="exec:set i=4&VIEW ''ode/newclo/4.jpg''&dynamic $shmotmag">option4</a>	<a href="exec:set i=5&VIEW ''ode/newclo/5.jpg''&dynamic $shmotmag">option5</a>	<a href="exec:set i=6&VIEW ''ode/newclo/6.jpg''&dynamic $shmotmag">option6</a>	<a href="exec:set i=7&VIEW ''ode/newclo/7.jpg''&dynamic $shmotmag">option7</a>	<a href="exec:set i=8&VIEW ''ode/newclo/8.jpg''&dynamic $shmotmag">option8</a>
<a href="exec:set i=9&VIEW ''ode/newclo/9.jpg''&dynamic $shmotmag">option9</a>	<a href="exec:set i=10&VIEW ''ode/newclo/10.jpg''&dynamic $shmotmag">option10</a>	<a href="exec:set i=11&VIEW ''ode/newclo/11.jpg''&dynamic $shmotmag">option11</a>	<a href="exec:set i=12&VIEW ''ode/newclo/12.jpg''&dynamic $shmotmag">option12</a>	<a href="exec:set i=13&VIEW ''ode/newclo/13.jpg''&dynamic $shmotmag">option13</a>	<a href="exec:set i=14&VIEW ''ode/newclo/14.jpg''&dynamic $shmotmag">option14</a>	<a href="exec:set i=15&VIEW ''ode/newclo/15.jpg''&dynamic $shmotmag">option15</a>	<a href="exec:set i=16&VIEW ''ode/newclo/16.jpg''&dynamic $shmotmag">option16</a>
<a href="exec:set i=17&VIEW ''ode/newclo/17.jpg''&dynamic $shmotmag">option17</a>	<a href="exec:set i=18&VIEW ''ode/newclo/18.jpg''&dynamic $shmotmag">option18</a>	<a href="exec:set i=19&VIEW ''ode/newclo/19.jpg''&dynamic $shmotmag">option19</a>	<a href="exec:set i=20&VIEW ''ode/newclo/20.jpg''&dynamic $shmotmag">option20</a>	<a href="exec:set i=21&VIEW ''ode/newclo/21.jpg''&dynamic $shmotmag">option21</a>	<a href="exec:set i=22&VIEW ''ode/newclo/22.jpg''&dynamic $shmotmag">option22</a>	<a href="exec:set i=23&VIEW ''ode/newclo/23.jpg''&dynamic $shmotmag">option23</a>	<a href="exec:set i=24&VIEW ''ode/newclo/24.jpg''&dynamic $shmotmag">option24</a>
<a href="exec:set i=25&VIEW ''ode/newclo/25.jpg''&dynamic $shmotmag">option25</a>	<a href="exec:set i=26&VIEW ''ode/newclo/26.jpg''&dynamic $shmotmag">option26</a>	<a href="exec:set i=27&VIEW ''ode/newclo/27.jpg''&dynamic $shmotmag">option27</a>	<a href="exec:set i=28&VIEW ''ode/newclo/28.jpg''&dynamic $shmotmag">option28</a>	<a href="exec:set i=29&VIEW ''ode/newclo/29.jpg''&dynamic $shmotmag">option29</a>	<a href="exec:set i=30&VIEW ''ode/newclo/30.jpg''&dynamic $shmotmag">option30</a>	<a href="exec:set i=31&VIEW ''ode/newclo/31.jpg''&dynamic $shmotmag">option31</a>	<a href="exec:set i=32&VIEW ''ode/newclo/32.jpg''&dynamic $shmotmag">option32</a>
<a href="exec:set i=33&VIEW ''ode/newclo/33.jpg''&dynamic $shmotmag">option33</a>	<a href="exec:set i=34&VIEW ''ode/newclo/34.jpg''&dynamic $shmotmag">option34</a>	<a href="exec:set i=35&VIEW ''ode/newclo/35.jpg''&dynamic $shmotmag">option35</a>	<a href="exec:set i=36&VIEW ''ode/newclo/36.jpg''&dynamic $shmotmag">option36</a>	<a href="exec:set i=37&VIEW ''ode/newclo/37.jpg''&dynamic $shmotmag">option37</a>	<a href="exec:set i=38&VIEW ''ode/newclo/38.jpg''&dynamic $shmotmag">option38</a>	<a href="exec:set i=39&VIEW ''ode/newclo/39.jpg''&dynamic $shmotmag">option39</a>	<a href="exec:set i=40&VIEW ''ode/newclo/40.jpg''&dynamic $shmotmag">option40</a>
<a href="exec:set i=41&VIEW ''ode/newclo/41.jpg''&dynamic $shmotmag">option41</a>	<a href="exec:set i=42&VIEW ''ode/newclo/42.jpg''&dynamic $shmotmag">option42</a>	<a href="exec:set i=43&VIEW ''ode/newclo/43.jpg''&dynamic $shmotmag">option43</a>	<a href="exec:set i=44&VIEW ''ode/newclo/44.jpg''&dynamic $shmotmag">option44</a>	<a href="exec:set i=45&VIEW ''ode/newclo/45.jpg''&dynamic $shmotmag">option45</a>	<a href="exec:set i=46&VIEW ''ode/newclo/46.jpg''&dynamic $shmotmag">option46</a>	<a href="exec:set i=47&VIEW ''ode/newclo/47.jpg''&dynamic $shmotmag">option47</a>	<a href="exec:set i=48&VIEW ''ode/newclo/48.jpg''&dynamic $shmotmag">option48</a>
<a href="exec:set i=49&VIEW ''ode/newclo/49.jpg''&dynamic $shmotmag">option49</a>	<a href="exec:set i=50&VIEW ''ode/newclo/50.jpg''&dynamic $shmotmag">option50</a>	<a href="exec:set i=51&VIEW ''ode/newclo/51.jpg''&dynamic $shmotmag">option51</a>	<a href="exec:set i=52&VIEW ''ode/newclo/52.jpg''&dynamic $shmotmag">option52</a>	<a href="exec:set i=53&VIEW ''ode/newclo/53.jpg''&dynamic $shmotmag">option53</a>	<a href="exec:set i=54&VIEW ''ode/newclo/54.jpg''&dynamic $shmotmag">option54</a>	<a href="exec:set i=55&VIEW ''ode/newclo/55.jpg''&dynamic $shmotmag">option55</a>	<a href="exec:set i=56&VIEW ''ode/newclo/56.jpg''&dynamic $shmotmag">option56</a>
<a href="exec:set i=57&VIEW ''ode/newclo/57.jpg''&dynamic $shmotmag">option57</a>	<a href="exec:set i=58&VIEW ''ode/newclo/58.jpg''&dynamic $shmotmag">option58</a>	<a href="exec:set i=59&VIEW ''ode/newclo/59.jpg''&dynamic $shmotmag">option59</a>	<a href="exec:set i=60&VIEW ''ode/newclo/60.jpg''&dynamic $shmotmag">option60</a>	<a href="exec:set i=61&VIEW ''ode/newclo/61.jpg''&dynamic $shmotmag">option61</a>	<a href="exec:set i=62&VIEW ''ode/newclo/62.jpg''&dynamic $shmotmag">option62</a>	<a href="exec:set i=63&VIEW ''ode/newclo/63.jpg''&dynamic $shmotmag">option63</a>	<a href="exec:set i=64&VIEW ''ode/newclo/64.jpg''&dynamic $shmotmag">option64</a>
<a href="exec:set i=65&VIEW ''ode/newclo/65.jpg''&dynamic $shmotmag">option65</a>	<a href="exec:set i=66&VIEW ''ode/newclo/66.jpg''&dynamic $shmotmag">option66</a>	<a href="exec:set i=67&VIEW ''ode/newclo/67.jpg''&dynamic $shmotmag">option67</a>	<a href="exec:set i=68&VIEW ''ode/newclo/68.jpg''&dynamic $shmotmag">option68</a>	<a href="exec:set i=69&VIEW ''ode/newclo/69.jpg''&dynamic $shmotmag">option69</a>	<a href="exec:set i=70&VIEW ''ode/newclo/70.jpg''&dynamic $shmotmag">option70</a>	<a href="exec:set i=71&VIEW ''ode/newclo/71.jpg''&dynamic $shmotmag">option71</a>	<a href="exec:set i=72&VIEW ''ode/newclo/72.jpg''&dynamic $shmotmag">option72</a>
<a href="exec:set i=73&VIEW ''ode/newclo/73.jpg''&dynamic $shmotmag">option73</a>	<a href="exec:set i=74&VIEW ''ode/newclo/74.jpg''&dynamic $shmotmag">option74</a>	<a href="exec:set i=75&VIEW ''ode/newclo/75.jpg''&dynamic $shmotmag">option75</a>	<a href="exec:set i=76&VIEW ''ode/newclo/76.jpg''&dynamic $shmotmag">option76</a>	<a href="exec:set i=77&VIEW ''ode/newclo/77.jpg''&dynamic $shmotmag">option77</a>	<a href="exec:set i=78&VIEW ''ode/newclo/78.jpg''&dynamic $shmotmag">option78</a>	<a href="exec:set i=79&VIEW ''ode/newclo/79.jpg''&dynamic $shmotmag">option79</a>	<a href="exec:set i=80&VIEW ''ode/newclo/80.jpg''&dynamic $shmotmag">option80</a>
<a href="exec:set i=81&VIEW ''ode/newclo/81.jpg''&dynamic $shmotmag">option81</a>	<a href="exec:set i=82&VIEW ''ode/newclo/82.jpg''&dynamic $shmotmag">option82</a>	<a href="exec:set i=83&VIEW ''ode/newclo/83.jpg''&dynamic $shmotmag">option83</a>	<a href="exec:set i=84&VIEW ''ode/newclo/84.jpg''&dynamic $shmotmag">option84</a>	<a href="exec:set i=85&VIEW ''ode/newclo/85.jpg''&dynamic $shmotmag">option85</a>	<a href="exec:set i=86&VIEW ''ode/newclo/86.jpg''&dynamic $shmotmag">option86</a>	<a href="exec:set i=87&VIEW ''ode/newclo/87.jpg''&dynamic $shmotmag">option87</a>	<a href="exec:set i=88&VIEW ''ode/newclo/88.jpg''&dynamic $shmotmag">option88</a>
<a href="exec:set i=89&VIEW ''ode/newclo/89.jpg''&dynamic $shmotmag">option89</a>	<a href="exec:set i=90&VIEW ''ode/newclo/90.jpg''&dynamic $shmotmag">option90</a>	<a href="exec:set i=91&VIEW ''ode/newclo/91.jpg''&dynamic $shmotmag">option91</a>	<a href="exec:set i=92&VIEW ''ode/newclo/92.jpg''&dynamic $shmotmag">option92</a>	<a href="exec:set i=93&VIEW ''ode/newclo/93.jpg''&dynamic $shmotmag">option93</a>	<a href="exec:set i=94&VIEW ''ode/newclo/94.jpg''&dynamic $shmotmag">option94</a>	<a href="exec:set i=95&VIEW ''ode/newclo/95.jpg''&dynamic $shmotmag">option95</a>	<a href="exec:set i=96&VIEW ''ode/newclo/96.jpg''&dynamic $shmotmag">option96</a>
<a href="exec:set i=97&VIEW ''ode/newclo/97.jpg''&dynamic $shmotmag">option97</a>	<a href="exec:set i=98&VIEW ''ode/newclo/98.jpg''&dynamic $shmotmag">option98</a>	<a href="exec:set i=99&VIEW ''ode/newclo/99.jpg''&dynamic $shmotmag">option99</a>	<a href="exec:set i=100&VIEW ''ode/newclo/100.jpg''&dynamic $shmotmag">option100</a>	<a href="exec:set i=101&VIEW ''ode/newclo/101.jpg''&dynamic $shmotmag">option101</a>	<a href="exec:set i=102&VIEW ''ode/newclo/102.jpg''&dynamic $shmotmag">option102</a>	<a href="exec:set i=103&VIEW ''ode/newclo/103.jpg''&dynamic $shmotmag">option103</a>	<a href="exec:set i=104&VIEW ''ode/newclo/104.jpg''&dynamic $shmotmag">option104</a>
<a href="exec:set i=105&VIEW ''ode/newclo/105.jpg''&dynamic $shmotmag">option105</a>	<a href="exec:set i=106&VIEW ''ode/newclo/106.jpg''&dynamic $shmotmag">option106</a>	<a href="exec:set i=107&VIEW ''ode/newclo/107.jpg''&dynamic $shmotmag">option107</a>	<a href="exec:set i=108&VIEW ''ode/newclo/108.jpg''&dynamic $shmotmag">option108</a>	<a href="exec:set i=109&VIEW ''ode/newclo/109.jpg''&dynamic $shmotmag">option109</a>	<a href="exec:set i=110&VIEW ''ode/newclo/110.jpg''&dynamic $shmotmag">option110</a>	<a href="exec:set i=111&VIEW ''ode/newclo/111.jpg''&dynamic $shmotmag">option111</a>	<a href="exec:set i=112&VIEW ''ode/newclo/112.jpg''&dynamic $shmotmag">option112</a>
<a href="exec:set i=113&VIEW ''ode/newclo/113.jpg''&dynamic $shmotmag">option113</a>	<a href="exec:set i=114&VIEW ''ode/newclo/114.jpg''&dynamic $shmotmag">option114</a>	<a href="exec:set i=115&VIEW ''ode/newclo/115.jpg''&dynamic $shmotmag">option115</a>	<a href="exec:set i=116&VIEW ''ode/newclo/116.jpg''&dynamic $shmotmag">option116</a>	<a href="exec:set i=117&VIEW ''ode/newclo/117.jpg''&dynamic $shmotmag">option117</a>	<a href="exec:set i=118&VIEW ''ode/newclo/118.jpg''&dynamic $shmotmag">option118</a>	<a href="exec:set i=119&VIEW ''ode/newclo/119.jpg''&dynamic $shmotmag">option119</a>	<a href="exec:set i=120&VIEW ''ode/newclo/120.jpg''&dynamic $shmotmag">option120</a>
<a href="exec:set i=121&VIEW ''ode/newclo/121.jpg''&dynamic $shmotmag">option121</a>	<a href="exec:set i=122&VIEW ''ode/newclo/122.jpg''&dynamic $shmotmag">option122</a>	<a href="exec:set i=123&VIEW ''ode/newclo/123.jpg''&dynamic $shmotmag">option123</a>	<a href="exec:set i=124&VIEW ''ode/newclo/124.jpg''&dynamic $shmotmag">option124</a>	<a href="exec:set i=125&VIEW ''ode/newclo/125.jpg''&dynamic $shmotmag">option125</a>	<a href="exec:set i=126&VIEW ''ode/newclo/126.jpg''&dynamic $shmotmag">option126</a>	<a href="exec:set i=127&VIEW ''ode/newclo/127.jpg''&dynamic $shmotmag">option127</a>	<a href="exec:set i=128&VIEW ''ode/newclo/128.jpg''&dynamic $shmotmag">option128</a>
<a href="exec:set i=129&VIEW ''ode/newclo/129.jpg''&dynamic $shmotmag">option129</a>	<a href="exec:set i=130&VIEW ''ode/newclo/130.jpg''&dynamic $shmotmag">option130</a>'
end
--- NewCloShop ---------------------------------

# office
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Office Engineering companies</font></B></center>'
'<center><img src="pic/office.jpg" ></center>'
if workSec = 0:'Secretary is required to work a young girl with a diploma certifying passed a course.'
if workSec = 0:'Work schedule 9 prior_to 17, every day except Saturday and Sunday.'
if workSec = 0:'salary lists 25th of the bank account. salary 800 rubles per day.'
if workSec = 0:'Work is required to come to the office clothes.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if secrDiplom = 1 and work = 0 and workSec = 0:
	 act 'Have an interview for a job':
		 cla
		 set minut = minut + 60
		 'You`ve come to the personnel department, there looked at your resume and diploma and said, that can take you for a job Secretary.'
		 act 'Get_Away':gt'office','start'
		 act 'To get a job':
			 cla
			 set work = 1
			 set workSec = 1
			 set sekDay = 0
			  'You have taken the work book and said, that you can go to work the next business day.'
			 act 'Get_Away':gt'office','start'
			 end
		 end
	 end
if hour >= 9 and hour < 17 and workSec >= 1:'You`re late for work and you are sent home.'
if workSec >= 1 and ofclo = 0 and hour >= 9 and hour < 17:'You are not dressed in accordance with the corporate style.'
if hour < 9 and workSec >= 1 and ofclo = 1:
	 act 'Go to the workplace':
		 set sekDay = sekDay + 1
		 set hour = 9
		 set minut = 0
		 gt'office','work'
		 end
	 end
if worksec=1:
	 act 'resign':
		 cla
		 set minut = minut + 30
		 set work = 0
		 set workSec = 0
		 'you quit, not having received money during the last month.'
		 act 'GO_OUT':gt'down'
		 end
	 end
act 'GO_OUT':gt'down'
end

if $ARGS[0]='work':
gs'stat'
cla
*clr
'<center><B><font color=maroon>Your workplace</font></B></center>'
'<center><img src="pic/sekr.jpg" ></center>'
'You sat down at his desk.'
if fidayoffice=0:
	 set fidayoffice=1
	 'At the next table sat a girl, she smiled at you "hello, I Light, and what`s your name."
	 "Sveta" answer You.
	 "what, the_truth, it is likely that they would not be confused, all secretaries name is Light, until you got a girl named Sveta worked too." she laughed.
	 "Yup, is that-boss would not remember the new names." added you.
	 "Well a good laugh and that`s enough, Let`s work, and now the boss will come and we will arrange for a laugh at work." she said.'
	 end
if fidayoffice=1:'Light as always was buried up to his ears papers.'
if hour < 17:
	 act 'work':
		 set minut+=60
		 cla
		 'You print documents, razberayus mail and wear boss coffee.'
		 set officerand=RAND(0,15)
		 if officerand>8 and svetslut=0:gt'office','sveta'
		 if officerand>8 and svetslut=2:gt'office','boss1'
		 if officerand>8 and officelezb>5 and officekom!1:gt'office','komer0'
		 if officerand=10 and officekom=1:gt'office','komer1'
		 if officebestslut>=3 and officerand=11:gt'office','motiv1'
		 if officebestslut>=3 and officerand=12:gt'office','motiv2'
		 if officebestslut>=3 and officerand=13:gt'office','motiv3'
		 if officerand=9 and officeslut>5:
			 cla
			 *clr
			 '<center><img src="img/office/m0.jpg" ></center>'
			 'do you work, Light somewhere zapropastilas, chef left. In the study includes one of the managers, "Hello Svetsik, can you help me?"'
			 act 'How to help?':
				 cla
				 *clr
				 '<center><img src="img/office/m1.jpg" ></center>'
				 '"The more you help?" you ask.
				 "Yes I was told, that you know how to shoot great stress." With that, vskhvatil you for head and began to move up to his penis.'
				 act 'Take by mouth':
					 set picrand=54
					 set officeslut+=1
					 set guy+=1
					 gt 'sex','minet'
					 end
				 if officeslut<10:
					 act 'Send it':gt'office','work'
					 end
				 end
			 end
		 if officerand=8 and officeslut>5:
			 cla
			 *clr
			 '<center><img src="img/office/m2.jpg" ></center>'
			 'do you work, Light somewhere zapropastilas, Chef left and as an evil broke konditseoner. You get too hot and you rastegivat couple top buttons of her blouse, so now your breasts almost falling out of her. In the study includes one of the managers, "Hello Svetsik, Chef at?".
			 "No, left." answer you and dive back into the paper.
			 "It`s hot here, you." he said slowly approaching you and the failure to exclude look off your chest, that and tries to jump out of blouses.'
			 act 'Yes_I_Am':
				 cla
				 *clr
				 '<center><img src="img/office/m3.jpg" ></center>'
				 '"Yes_I_Am, Fully air conditioned again broke a damn" you reply, without looking up.
				 "Yes , you just succumb." he begins, and suddenly cut short, unfolds you to her and jerked her blouse on you, well at least the buttons are not scattered on the sides, just jumped out of the loop, bites his lips to your breast, and with all the passion starts to fondle her. You first even cann`t understand what`s going on, but this procedure is beginning to like you opredelleno.'
				 act 'surrender':
					 set picrand=55
					 set officeslut+=1
					 set guy+=1
					 gt 'sex','minet'
					 end
				 if officeslut<10:
					 act 'drive it':gt'office','work'
					 end
				 end
			 end
		 if officerand=7 and officeslut>5:
			 cla
			 *clr
			 '<center><img src="img/office/m4.jpg" ></center>'
			 'You need to make copies of documents, and you went to the archive where there was a huge copier. While you are copying, entered the room one of the managers, and began to-then search among stelozhey with folders, you do not pay any attention to him and continued to do their work. After a minute . "Sveta, speak the truth that you have the best ass and you`re always ready to prove it?" he said, continued "Now I will test it." With these words.'
			 act 'let him':
				 cla
				 *clr
				 set officeslut+=1
				 '<center><img src="img/office/m5.jpg" ></center>'
				 'You are not saying anything turned to him and kissed, he began to undress you, and he was the one arm around you, and the second full- massaged your pussy. Your hand she reached for his pants and pulled out yet fully risen member and began to masturbate.
				 "That`s clever, and now also, but the mouth" he said.'
				 act 'to squat':
					 cla
					 *clr
					 '<center><img src="img/office/m6.jpg" ></center>'
					 'You squatted down and took his cock in her mouth, he was still sluggish and you easily absorbed it all, moved his mouth taking it in one cheek, then for another, soon you will feel as he began to grow and your mouth just now placed him third. You selflessly sucked when the office door opened and a girl came marketer, She paused at the threshold of seeing you.
					 "oh, I`m sorry " she said.
					 "Come Masha you we are not prevented from doing, she wanted, and you can even join" he said.
					 "No, I do not for a long time." she said.
					 You keep doing blowjob not paying attention to her. A few minutes later she graduated from and vydya-for shelvings start watching you. Then she took the phone and began to shoot you, commenting on the record. "Here is our secretary sucks dick Light, izvesna it around the office as trouble-free davalka, see with what pleasure it does. Svetsik let myself masturbate, what-have been clearly seen that you like it." You put his hand between her legs and began to actively play her clit. You damn excited that it takes you, and you are beginning to show the camera the whole process, then releasing member of his mouth and licking it from the bottom to the head, then again taking in the mouth and with a satisfied purr sweetly suck it. She turned to the guy "It will be so suck, come on now fuck her, and I`ll post all take off, and then send out around the office, let them look at our slut is capable, and you try to let, we`ll make a reputation for excellent whore, what-would you have besieged by men was not, You like when you fuck all." With these words she went into a corner and stopped, continuing to shoot.
					 "now fuck, let a little suck, it `s so like that even you do not want to tear off."'
					 act'carry_On':
						 set picrand=56
						 set officeslut+=3
						 set guy+=1
						 gt 'sex','minet'
						 end
					 end
				 if officeslut<10:
					 act 'drive it':gt'office','work'
					 end
				 end
			 if officeslut<10:
				 act 'escape':gt'office','work'
				 end
			 end
		 if officerand=6 and officeslut>5:
			 cla
			 *clr
			 '<center><img src="img/office/m8.jpg" ></center>'
			 'do you work, Light somewhere zapropastilas, chef left. In the study includes one of the managers, "Hello Svetsik, Chef at?".
			 "No, left." answer you and dive back into the paper.
			 "Why are you so hard, I let you do massazhik." he says. This really helps you relax in the chair, close your eyes and enjoy, yet strong hands massage your shoulders.
			 "Well liked?" His voice brought you to the ground'
			 act 'Yes_I_Am':
				 cla
				 *clr
				 '<center><img src="img/office/m9.jpg" ></center>'
				 '"Yes_I_Am, very_much, thank_you" you reply, Without opening his eyes.
				 "Well, it`s too much, but mutual aid will be just." he says.
				 "What do you mean?" you started, but opened his eyes immediately understood what he was saying. You have before my eyes was standing member, and you do not understand how it vskhvatila hand and pulled into the mouth, and her mouth fell open a little longer willing to accept dildo. "What do I do?" flashed through your mind. "I`ve seen so used to be given in this office, it is at the level of reflexes. So take or not take, that is the question."'
				 act 'take':
					 set picrand=57
					 set officeslut+=1
					 set guy+=1
					 gt 'sex','minet'
					 end
				 if officeslut<10:
					 act 'drive it':gt'office','work'
					 end
				 end
			 end
		 if officerand=5 and officeslut>5:
			 cla
			 *clr
			 '<center><img src="img/office/m10.jpg" ></center>'
			 'do you work, Light somewhere zapropastilas, Chef left and you re- freezes computer. Swearing you call your sysadmin and ask him to come. In the study includes a sysadmin and looking at computer govoit that he will take it now and tomorrow will bring. "And what am I going to do tomorrow, come on now and here will correct." you started.
			 "No, Well it`s a long time, I have another job for many more, although we can agree and I will fix it for you now" he says
			 "And we agree?" you ask.
			 "Well, everyone knows how you and I can agree." he says.'
			 act 'And how':
				 cla
				 *clr
				 '<center><img src="img/office/m11.jpg" ></center>'
				 '"Yes_I_Am, very_much, simply" answer he says.
				 As long as you stand in a stupor trying to say pridamat, he pushes you into a chair and vskhvativ hair attracts his dildo. Once you open your mouth that-that would-say something, as he immediately volzovalsya it and shoved his cock in your mouth.'
				 act 'suck':
					 set picrand=58
					 set officeslut+=1
					 set guy+=1
					 gt 'sex','minet'
					 end
				 if officeslut<10:
					 act 'bite':
						 cla
						 'You squeeze teeth, he screamed and pulls his dick out of your mouth and the words "bitch!!!" runs out of the office. You kick out of anger computer and lo, he is running again.'
						 act 'Back to work':gt'office','work'
						 end
					 end
				 end
			 end
		 if officerand=0 and officeslut>20 and officebestslut<1:
			 cla
			 *clr
			 set officebestslut=1
			 set officeslut+=1
			 set gang+=1
			 set guy+=4
			 '<center><img src="img/office/g3.jpg" ></center>'
			 'In the office runs chief, and immediately begin to tell you "So as Light, in the conference hall now sit four of our largest shareholder, I`ve been a little nakosyachil and now I need time to prepare something which documents, Your task now is to go to them and make sure that-would be for them this hour goes as well, what-they do not even remember me. Well, the whole office has fucked, so fuck four more, and I will appoint you to the position in accordance with your talents. Let`s move your ass run, let them fuck your ass today, and not my. All run." You got up and went to the room koferentsii, on the road thinking about what position he said, and what kind of talent you have such, but to fuck with everyone. Entering the room you viditechetveryh men, is clearly not in the best frame of mind. "Well" flashed through your mind, but too late to retreat, you yourself have made the reputation of the office whore. You push the skirt, bare the chest and calmly climbs on the table in front of them. "Lord for your contribution to the development of naschego business today you are given a present from the company, can not only watch, but also to touch wherever you like and paste whatever you want and wherever you want." do not believe what you are doing, you just close your eyes prepare for the fact that now the holes of your living space will not leave.'
			 act'begin':
				 set picrand=17
				 gt'paysex','var'
				 end
			 end
		 act 'End_Up':gt'office','work'
		 end
	 act 'In the principal`s office':gt'office','boss'
	 act 'corridor':gt'office','kor'
	 act'Chat with Sveta':
		 cla
		 set minut+=30
		 set officerand=RAND(0,10)
		 if officeslut>0 and officerand>8:gt'office','negr'
		 set officebolt=rand(0,3)
		 if officebolt=0:'"imagine, say that our bookkeeper at corporate who are already over 40, stuck to one of the managers of trying to drag him into the office. He barely escaped." - raskazala Light.'
		 if officebolt=1:'"imagine, one corporate party so I plucked up, that danced striptease on the table for all, Then I was so ashamed, all went a finger poked, I even wanted to quit, but changed her mind, Chef I even gave the award, I said office decoration, and if the rest of the finger poke, so this matter that they have nothing to show." - raskazala Light.'
		 if officebolt=2:'"We had one girl, marketer because she got drunk at the regular gatherings and fell asleep in the lounge, and woke up naked and covered in sperm, around prezikov used pieces 20 strewn, I do not know how many people there raped her, but after two days of labor came vraskoryachku and could not sit down." - raskazala Light.'
		 if officebolt=3:'"imagine, one corporate parties , so girls marketers opened its warehouse and typing of old keyboards out there and what the fee, strapped it all to him tape, turned knight in armor, so we all Office, morning waiting for the toilet when he wakes up, he went out and only then realized that to him that-then strapped. Here`s laughter that was." - raskazala Light.'
		 act 'End_Up':gt'office','work'
		 end
	 if svetslut=1:
		 act'Light ask about her relationship with the boss':
			 cla
			 set minut+=30
			 set svetslut=2
			 '"Light and what is your relationship with the boss?" asked you.
			 "what, already sang, that Sveta whore sleeps with barefoot?" she snapped.
			 "No, no one spoke, I just opened the door, and you`re on a Kolyanu by a dick in her mouth." You responded in the same tone.
			 "Come on do not be angry, I thought again. And with the boss I have so, perepihnemsya in the office and run away, He underpaid me for it, if you are on this." said Light
			 "No ." Say you.
			 "I`m sorry you, I said so, just thought that they forgot again, what he had pent." said Light.
			 "And why again?" asked you.
			 "Yes they are already started poking fingers, I was just going on vacation, well and took a month to complete. So the chief of the month, all "fucked" without vazilina, I have returned, so they`ll all so kind and affectionate, Svetochka want it, want it, litsimerie." she said.
			 "His wife does not give him that?" asked you
			 "And who knows , Well, I did when then came back from vacation, he gave me two days out of the office almost did not let, I then took the day off and spend the day in the bathroom provolyalas, not believe almost could not walk, and generally keep quiet about the sit, I have not closed a week ass. So that`s how, Dissatisfaction with the chief secretary or vyebet, or all. And I like to be secretary, I`m lonely, healthy, young girl and I want it too, here only a month more on vacation do not go, I remember, so sit the patient becomes." she laughed.
			 Then entered the room one of the managers with a pile of papers and you have to interrupt your conversation.'
			 act 'End_Up':gt'office','work'
			 end
		 end
	 if svetslut=3:
		 act 'Ask about sex in the office with you.':
			 cla
			 set minut+=30
			 set svetslut=4
			 'Waiting for when the boss is not at, you have decided to ask Amy about the incident in the office of the chief.
			 "Well, You knew, I`ll be back in a minute with tea?" asked you
			 "Well, I could not resist, when you came out he started to kiss me, and if I can not stop me excited. I was once in the subway who began-then paw, so I still tried his hands off his clean, in the crush was so excited, that gave herself right there in the car, in front of everyone, I was so ashamed, I still do not go on the subway. Chef really wanted to stay, but I said that you will not chatter and still the whole office knows." said Light.
			 "Are you really can not stop?" asked you.
			 "Well, I`ve got a threshold, but it is very low. I honestly when you see these things with tea very much like what you would now, but if it is absolutely honest-You will see and be joined." she said.'
			 act'Say that you like it':
				 cla
				 *clr
				 set officelezb=1
				 '<center><img src="img/office/s2.jpg" ></center>'
				 '"well, You do me too nravishsya, but only you, but he is not, so I went out and." Say you.
				 "But at this point in more detail" said Light, closing the door with a key and sitting down on your desk, "We should definitely clarify this issue, so to speak delve into the basics." she continued.'
				 act'"not now"':
					 cla
					 '"We will investigate this issue with you, but not now, maybe later." Say you
					 "Ok, just do not forget, I was very interested in this issue" Light said .'
					 act 'Back to work':gt'office','work'
					 end
				 act'raise no objection':
					 cla
					 *clr
					 '<center><img src="img/office/s3.jpg" ></center>'
					 '"The question really requires more careful study." With these words. Light immediately put into use hands, They slipped through your body and now she unbutton your clothes.'
					 act'carry_On':
						 cla
						 *clr
						 set girl+=1
						 set lesbian+=1
						 '<center><img src="img/office/s4.jpg" ></center>'
						 'You sat on the table allowing her to undress you. She undresses you procrastinate, licking each a bare inch of your body, her tongue was enormous, very long and thick, you even thought about, how it fits in her mouth. You are excited to have so many that felt like a puddle you going out of your selections.'
						 act'Let continues':
							 cla
							 *clr
							 set orgasm+=1
							 '<center><img src="img/office/s5.jpg" ></center>'
							 'You threw his legs on the table and shirokorazveli knees apart, giving her the maximum access to your pussy. Light pulled off her panties and began to push them to you in the pussy, you first want to argue, but the feeling of silk sliding in your pussy you like and you deprive leaned forward, urging her to continue. Light glared lips you in pussy and began to caress your clitoris tongue, while Medley pulling panties out of your vagina, when they are almost completely vyskozili she began to push them back language, This happened of countless number of times. Soon you will feel that is about to cum.'
							 act'come':
								 cla
								 'You started to cum and pleasant waves of orgasm enveloped you, When you have finished the Light of you took her panties, Sede stuffed them into his mouth and began to remove Medley, embroidering of them literally every drop, "vkusnuypirogek, Only next time do not be so selfish, and then I`ll stop with you friends." she said.'
								 act 'Back to work':gt'office','work'
								 end
							 act'Meet each other':
								 cla
								 *clr
								 '<center><img src="img/office/s7.jpg" ></center>'
								 'You stop Light and lay on the table, waving her tongue between his fingers spread apart. She smiled. You have followed suit pants and shoved them in her pussy, but your language is not so large , Then you began to do it with your fingers, and tongue began to handle her clitoris. Light at this time literally fuck you with my tongue, you create a sense of what`s inside you and not the language of a member, but very nimble and agile. After a couple of minutes you pochuvsvovali as her body began to shake and she came, after a few seconds you have followed her example, and you wrapped orgasm.'
								 act 'Back to work':gt'office','work'
								 end
							 end
						 act'lick it':
							 cla
							 *clr
							 '<center><img src="img/office/s6.jpg" ></center>'
							 'You helped to lie down on the table Light and began licking her pussy, she took her panties and began to push them into his pussy, you have removed her hand and continued to do. You shoved her panties in pussy, Medley then pulled them back and thrust, while incessantly licking her clitoris. After a couple of minutes you pochuvsvovali as her body began to tremble, ready to cum.'
							 act'Let cums':
								 cla
								 'When she had finished, then said "Just let the next time you give yourself to me to meet, and I do not want selfish vygledet."'
								 act 'Back to work':gt'office','work'
								 end
							 act'Meet each other':
								 cla
								 *clr
								 set orgasm+=1
								 '<center><img src="img/office/s7.jpg" ></center>'
								 'You stopped and spihnuv Light from the table, lay it yourself, waving her tongue between his fingers spread apart. She smiled. You took her panties and stuffed them in her pussy, prodolzhayaaktivno handle her clitoris language. Light at this time literally fuck you with my tongue, you create a sense of what`s inside you and not the language of a member, but very nimble and agile. After a couple of minutes you pochuvsvovali as her body began to shake and she came, after a few seconds you have followed her example, and you wrapped orgasm.'
								 act 'Back to work':gt'office','work'
								 end
							 end
						 end
					 act'not now':
						 cla
						 '"We will investigate this issue with you, but not now, maybe later." Say you
						 "Ok, just do not forget, I was very interested in this issue" Light said .'
						 act 'Back to work':gt'office','work'
						 end
					 end
				 end
			 act'rebel':
				 cla
				 '"What do you mean, I never would have joined, how do you do this came to mind. All closed the subject and do not start." cut you.'
				 act 'Back to work':gt'office','work'
				 end
			 end
		 end
	 if officelezb>0 or officeslut>0:
		 act'Stick to the World':
			 cla
			 *clr
			 set minut+=30
			 set officerand=RAND(0,10)
			 if officeslut>0 and officerand>8:gt'office','dostavka'
			 set lesbian+=1
			 set picrand=19
			 set officelezb+=1
			 '<center><img src="img/office/s8.jpg" ></center>'
			 'You climb on the table and spread wide legs are calling the Light "Svetsik you do not help me in the same intimate questions?".
			 Light separates the head from the papers and her face smile slips, "Well, necessarily help.". With that-table and sent to you, simultaneously closing the door with a key.'
			 act'begin':xgt'lezbsex','var'
			 end
		 end
	 end
if hour >= 17:
	 act 'Leave work':gt'down'
	 end
end

if $ARGS[0]='boss':
cla
*clr
set minut+=15
set officerand=RAND(0,15)
if officeslut>0 and officerand=10:gt'office','boss2'
if officeslut>0 and officerand=9:gt'office','boss3'
if officeslut>0 and officerand=8:gt'office','boss4'
if officeslut>0 and officerand=7:gt'office','boss5'
if officeslut>0 and officerand=6:gt'office','boss6'
gs'stat'
'<center><B><font color=maroon>the principal`s office</font></B></center>'
'<center><img src="pic/boss.jpg" ></center>'
if officebestslut=1:
	 cla
	 '"And here you are, well Come, sit_down. Come for the new appointment." he says.
	 "And what is the position of?" you ask, Seated.
	 "Yes, and additional duties, but with a very good surcharge." he says.
	 "And I do have to." you ask.
	 "Yes soobstvenno nothing new, will motivate some workers, well." he says.
	 "And how to motivate" misunderstanding you ask.
	 "Yes, it happens that people get tired, natural performance drops, deadlines are screwed, and we pay the penalty, but if their time promotivirot that work will be completed on time. Here you will motivate them and, but as, I think you yourself dogadyvaeshs, and I tell them that you will kotrolirovat their work. Well, his body. That something like this, satisfied?" he asks.
	 "i.e., you want what I would have become a regular whore, and how many extra charge?" you ask yourself not believing, do not send it directly, and more interested in the price and.
	 "20000 per month plus to the basic salary, Well?" he says, as if you have already agreed to.'
	 act'agree':
		 cla
		 set officebestslut=3
		 '"Ok, I agree." you reply.
		 "That`s good, Well then going to the city just one solid client arrived, he is now at the hotel, go to him together. See how you can do it." he said.'
		 act'go':gt'office','motiv0'
		 end
	 act'Opt_Out':
		 cla
		 '"No, thank_you, I`m not a prostitute, I fuck for fun, not for money" you reply.
		 "Well, a day gi count premium for good work. Bear in mind I will not longer OFFER. So how exactly otkazyvaeshs or still soglasishsya?" he says.'
		 act'agree':
			 cla
			 set officebestslut=3
			 '"Ok, I agree." you reply.
			 "That`s good, Well then going to the city just one solid client arrived, he is now at the hotel, go to him together. See how you can do it." he said.'
			 act'go':gt'office','motiv0'
			 end
		 act'Opt_Out':
			 set officebestslut=2
			 gt'office','work'
			 end
		 end
	 end
if officeslut>0:
	 act 'harassing boss':
		 cla
		 *clr
		 set officeslut+=1
		 set picrand=RAND(61,63)
		 '<center><img src="img/office/b<<picrand>>.jpg" ></center>'
		 'Seeing that in the study except one boss, you close the door, Light it with a wink to let no one, She smiled and makes you wagged a finger, whispering "slut". You are going to the boss, in the course of getting rid of clothes. Going into the dense you kiss him and say, "Chef I`ve got something flowed, you do not see?" and slightly spreads her legs.
"interestingly, what happened to my best employee, let`s see" he says.'
		 act 'spread her legs':gt'sex','kuni'
		 end
	 end
act 'Exit out of the office':gt'office','work'
end

if $ARGS[0]='kor':
cla
*clr
set minut+=5
gs'stat'
'<center><B><font color=maroon>corridor</font></B></center>'
'<center><img src="pic/office.jpg" ></center>'
if hour < 17:
	 act 'To their workplace':gt'office','work'
	 act 'restroom':gt'office','kuh'
	 end
if hour >= 17:
	 act 'Leave work':gt'down'
	 end
end

if $ARGS[0]='kuh':
cla
*clr
set minut+=5
gs'stat'
set officerand=RAND(0,10)
if officeslut>8 and officerand>8:gt'office','gang'
if officerand<2 and officeslut>5:
	 cla
	 *clr
	 '<center><img src="img/office/m12.jpg" ></center>'
	 'Entering the room you see in the cooler one of the managers, "Hello World, to have a drink some water". It seems it does not interest you want to drink or not, it just brings stakanchit to your lips, literally forcing you to drink.'
	 act 'drink':
		 cla
		 *clr
		 '<center><img src="img/office/m13.jpg" ></center>'
		 'You have no choice but to drink, you open your mouth and start drinking. His second hand starts to hug your waist. "Well at least not reached under her skirt" think you, posmetrev but its rather smirk realized that rushed to conclusions.
		 "Here_It_Is, good girl all drank, you are obedient in all such?" he said "I know that the obedient, I already blogged, you are a very hardworking girl" With these words, he began to press forward, so you start to bend.'
		 act 'Do not resist':
			 cla
			 *clr
			 set officeslut+=1
			 '<center><img src="img/office/m14.jpg" ></center>'
			 'Second hand he unbuttoned his pants and unleashed his already standing member. The first hand is moved from your back on his head and continued to press down putting your mouth on his penis.
			 "That`s well done keep itself" he said when he was a member of the half was you in the WTU and began stroking you on the head, you obediently began to suck his dick odnovremmeno masturbate his hand. In the study who paruraz-it looked, then you hear the door for women laughter, looks like a girl from a neighboring office marketers all the stops at the door and spy on you, Soon the door opened a little bit . First, but his hand on your head you only stronger pressed to the member. And when the door is already half, open and you could clearly see how some girls watched with interest you, and some of the phones in the hands of filming going on, this is your only spurred you chustvovat both your feet have your juices flowing. You like that-vidili they all turned and bit, opening them a better view.'
			 act'carry_On':
				 set picrand=59
				 set officeslut+=1
				 set guy+=1
				 gt 'sex','minet'
				 end
			 end
		 if officeslut<10:
			 act 'To push him away and run':gt'office','work'
			 end
		 end
	 exit
	 end
'<center><B><font color=maroon>restroom</font></B></center>'
'<center><img src="pic/kuh.jpg" ></center>'
if hour < 17:
	 act'eat':
		 set minut = minut + 30
		 set health = health + 10
		 set manna = manna + 5
		 set willpower = willpower + 5
		 if energy >= 30:
			 set fat = fat + 5
			 'You can no longer have.'
			 end
		 if energy >= 20 and energy < 30:
			 set fat = fat + 3
			 set energy = energy + 10
			 'You pushed through the power of a meal.'
			 end
		 if energy < 20:
			 set energy = energy +20
			 set fat = fat + 1
			 'You gladly ate food.'
			 end
		 if water >= 20:
			 'Tea in you no longer climbs.'
			 end
		 if water < 20:
			 'You gladly drank a cup of tea.'
			 set water = water +20
			 end
		 end
	 act 'corridor':gt'office','kor'
	 end
if hour >= 17:
	 act 'Leave work':gt'down'
	 end
end

if $ARGS[0]='sveta':
cla
*clr
set minut+=30
set svetslut=1
'<center><img src="img/office/s1.jpg" ></center>'
'You brought documents, chief to sign, Light and had just gone to him, after waiting for ten minutes you have decided to bring documents. Opening the door you stupefied, chef stood at the table, and light makes him a blowjob on her knees and looking at it through the eyes of devotees. You quietly closed the door, "I hope they are invisible" think you.'
act 'Back to work':gt'office','work'
end

if $ARGS[0]='boss1':
cla
*clr
set minut+=30
'<center><img src="img/office/b1.jpg" ></center>'
'Chef caused by light to yourself, minute it was not 30, you have already decided that they`re having fun again, when suddenly he called and you, entered the study , Light sat on the couch with notepad in hand and that-then recorded.
"Come, sit_down." said the boss.
You sat next to the light and he began raskazyvat you, what you have to do. Ten minutes later he looked at you and said "Svetsik, Bring all three of us a cup of tea, and then we sit there for a long time."'
act'bring tea':
	 cla
	 *clr
	 '<center><img src="img/office/b2.jpg" ></center>'
	 'When he returned with the tea you froze on the threshold, Light lay on her side, on the couch with her вЂ‹вЂ‹legs spread wide, and chief lying behind her bored her pussy with his cock. "Here is the number of, and this means that, because they know that I `ll be right back" think you.'
	 act 'join':
		 cla
		 *clr
		 set officeslut+=1
		 set eggs+=1
		 set bj+=1
		 set guy+=1
		 set girl+=1
		 set lesbian+=1
		 '<center><img src="img/office/b3.jpg" ></center>'
		 'You put a tray of tea on the sofa and knelt down and start to caress his scrotum language. Chef takes you behind your head and pulls strongly to their eggs, quickly realized that he wanted to, you retract his balls into his mouth and begin to suck, while he continues to fuck Light.'
		 act'carry_On':
			 cla
			 *clr
			 '<center><img src="img/office/b4.jpg" ></center>'
			 'He pulled out a member of the standing light and put it to you mouth, after a few seconds of Light join you and you alone started to suck his dildo.'
			 act'Substitute him pussy':
				 cla
				 *clr
				 set sex+=1
				 '<center><img src="img/office/b5.jpg" ></center>'
				 'You get up from the couch doggy style, astraddle, chief immediately came to you in the vagina, began to fuck her strong sweeping movements. A little light to twist around, sat on the floor between your legs and her tongue began to caress your clitoris. A few minutes later he pulled his dick out of you with the words "Well now cup your ass Svetsik, stretch our her little, and then sat up in a chair all day."'
				 act'get cancer':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b7.jpg" ></center>'
					 'You get up on the couch on all fours sticking ass, Light immediately taken by you and it gets you a huge tongue in pussy. Chef arranged behind you and giving first light as follows lick dick, brings it to you in the ass. When your ass a little accustomed to the penis inside, you lowered her head and began to please the language of the Light. When you become sick ass started to crawl and moan, Then he took out of you dildo and inserted in the mouth Light, lubrication, then got into your anus. Inside you moved two, on the one hand a huge Svetin language, caresses your vagina, the other in the anus with great speed moving member chief, these two pistons moving in sync bringing you great pleasure, and after a few minutes you shouted from the cover with your orgasm. Feed shlynuvshy of you Svetin filled his mouth and pulling the boss dildo out of your anus sent him a light in the mouth, your juices filled her mouth poured out, poured through her вЂ‹вЂ‹lips and spreading over his face. He again put your dick in the ass increasing the tempo until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 act'sit on top':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b8.jpg" ></center>'
					 'You push him onto the couch and sits on top of his cock, Chef priderzhivvaet you for your thighs as you sit down neatly on his anus dildo, Light waits until his cock in your ass izcheznet and knelt launches its huge language you pussy. When you become sick ass started to crawl and moan, Then he lifts you holding the hip and takes a dildo, Light immediately takes it in her mouth, abundantly lubricating saliva, and then re- directs you in the ass. Inside you move two, on the one hand a huge Svetin language, caresses your vagina, the other in the anus with great speed moving member chief, these two pistons moving in sync bringing you great pleasure, and after a few minutes you shouted from the cover with your orgasm. Feed shlynuvshy of you mouth filled Svetin. He is stepping up the pace until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 act'Lie down on the sofa':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b9.jpg" ></center>'
					 'You lie on the couch and pick up his feet to the top, Light immediately gets on you substituting your ass to your face, You Spreading her buttocks with his hands and bites tongue in her anus, then massaging it, then pushing inside. Chef introduces you to a member of the anus and when your ass a little accustomed to the penis inside, He quickly starts to step up the pace. Soon you can no longer caress Svetin ass but only groan under the pressure of a member of the move at the speed of the train Expres, and gives you pleasure, after a few minutes. He further accelerated until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 end
			 act'Substitute her pussy':
				 cla
				 *clr
				 set orgasm+=1
				 '<center><img src="img/office/b6.jpg" ></center>'
				 'You sit down on the couch legs wide apart and beckon the Light, her tongue was very long, You even have the feeling that you have entered into the vagina dick, when it launched back your language. Chef was attached to the same light from behind, penetrating member in her vagina, Light moaned and her tongue penetrated deeper into your pussy, she moved them so deftly that after a minute you`re finishing her juices flooding sofa. A few minutes later the chief took his cock out of her and the words "Well now cup your ass Svetsik, stretch our her little, and then sat up in a chair all day." looked at you.'
				 act'get cancer':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b7.jpg" ></center>'
					 'You get up on the couch on all fours sticking ass, Light immediately taken by you and it gets you a huge tongue in pussy. Chef arranged behind you and giving first light as follows lick dick, brings it to you in the ass. When your ass a little accustomed to the penis inside, you lowered her head and began to please the language of the Light. When you become sick ass started to crawl and moan, Then he took out of you dildo and inserted in the mouth Light, lubrication, then got into your anus. Inside you moved two, on the one hand a huge Svetin language, caresses your vagina, the other in the anus with great speed moving member chief, these two pistons moving in sync bringing you great pleasure, and after a few minutes you shouted from the cover with your orgasm. Feed shlynuvshy of you Svetin filled his mouth and pulling the boss dildo out of your anus sent him a light in the mouth, your juices filled her mouth poured out, poured through her вЂ‹вЂ‹lips and spreading over his face. He again put your dick in the ass increasing the tempo until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 act'sit on top':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b8.jpg" ></center>'
					 'You push him onto the couch and sits on top of his cock, Chef priderzhivvaet you for your thighs as you sit down neatly on his anus dildo, Light waits until his cock in your ass izcheznet and knelt launches its huge language you pussy. When you become sick ass started to crawl and moan, Then he lifts you holding the hip and takes a dildo, Light immediately takes it in her mouth, abundantly lubricating saliva, and then re- directs you in the ass. Inside you move two, on the one hand a huge Svetin language, caresses your vagina, the other in the anus with great speed moving member chief, these two pistons moving in sync bringing you great pleasure, and after a few minutes you shouted from the cover with your orgasm. Feed shlynuvshy of you mouth filled Svetin. He is stepping up the pace until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 act'Lie down on the sofa':
					 cla
					 *clr
					 set anal+=1
					 set orgasm+=1
					 set analorgasm+=1
					 '<center><img src="img/office/b9.jpg" ></center>'
					 'You lie on the couch and pick up his feet to the top, Light immediately gets on you substituting your ass to your face, You Spreading her buttocks with his hands and bites tongue in her anus, then massaging it, then pushing inside. Chef introduces you to a member of the anus and when your ass a little accustomed to the penis inside, He quickly starts to step up the pace. Soon you can no longer caress Svetin ass but only groan under the pressure of a member of the move at the speed of the train Expres, and gives you pleasure, after a few minutes. He further accelerated until you writhing in orgasm. Soon his cock swelled and began to throb ready to cum.'
					 act'End_Up':gt'office','boss0'
					 end
				 end
			 end
		 end
	 act 'Leave a tea and leave':
		 set svetslut=3
		 gt'office','work'
		 end
	 end
end

if $ARGS[0]='boss0':
cla
*clr
set cumlip+=1
'<center><img src="img/office/b10.jpg" ></center>'
'Removing a member from your ass, Chef gets up and you Sveta kneels before his throbbing dildo. Jet of sperm emitted light in the face, she immediately wraps his lips starting to suck the rest, and you can only lick from her face.'
act 'Back to work':gt'office','work'
end

if $ARGS[0]='komer0':
cla
*clr
set officekom=1
set girl+=1
set lesbian+=1
set minut+=30
gs'stat'
'<center><img src="img/office/k0.jpg" ></center>'
'You summoned Commercial Director. You went to the office, at the table sat a woman much older than 30, she pointed out to you on a chair, you obediently sat down and waited.
She carefully examined you from head to toe, and began to speak "My name is Natalia, Well, and you have a new secretary, and how do you work for us?"
"very good, I like everything" you started, but she stopped you gesture.
"Else you will not say, and the second secretary, I watch you work well together." she continued, and you just nod confirming her words. "And how do you her tongue, really great?" she asked.'
act'wonder':
	 cla
	 *clr
	 '<center><img src="img/office/k1.jpg" ></center>'
	 '"I do not understand, what you say" you started, making a surprised face. You do not even understand how it was before you, a second ago she was sitting at the table, and now stood in front of you, holding your chin. Her face was inches from your, "Do not lie to me, girl, I see right through you, or do you think that when you Svetka in the office fuck no one sees or hears, to me it is better not soritsya, and then crush like a cockroach. You do ponel?" she asked, and you only nodded in response. "fine, Now show me that you really ponel" With these words she lifted her skirt and turned to you naked buttocks.'
	 act'kiss':
		 cla
		 *clr
		 '<center><img src="img/office/k2.jpg" ></center>'
		 'You took her by the hips and began to kiss the buttocks, with all possible passion. "That`s clever, I see we`ll work, and now over, that beginning" With that.'
		 act'lick':
			 cla
			 *clr
			 '<center><img src="img/office/k4.jpg" ></center>'
			 'You knelt down and pressed his lips to her pussy, you carefully licked her pussy and clitoris. "Shove inside" she commanded, you immediately put his tongue in her vagina. "Hmm, tongue is too small, but it is fixable" she said, After these words-something strange, whether your tongue began to grow, whether her vagina decreased, you actively fucked her tongue, a few minutes later she came, and removing the language you understand, that he does not fit in your mouth. You looked at her in horror on the face, She smiled and began to decrease your language back to its normal size.
			 "all, you can go, next time will be a mutual pleasure, promise." she said. You kept looking at her feeling your language, "Misha udivlyaeshsya, Look Who`s who, and you should not be surprised magic. Okay enough to sit on the floor with a silly kind, Come to Me." With these words. You got up and headed for the door, deciding nobody raskazyvat about what happened.'
			 act 'Back to work':gt'office','work'
			 end
		 end
	 act'push_off':
		 cla
		 *clr
		 '<center><img src="img/office/k3.jpg" ></center>'
		 'You otolknuli her from herself and jumped to his feet frozen, not knowing what`s going on, you pushed her in front of him, Now she was not there, and then strong hands vskhvatili you from behind chest and sat back in the chair, looking up you will see it on themselves. She was squeezing your breasts in his hands, "It is not necessary to me so rudely Misha, I`m angry and I, and then you will not girl, and ochkom in the station toilet, and thou shalt be with me tender I can give you a feel like a man again. so choose, will be friends or be shit to swallow until the end of."'
		 act'fight':
			 set over=5
			 gt'gameover'
			 end
		 act'Ask about male appearance.':
			 cla
			 *clr
			 set vagina+=1
			 set officeman=1
			 '<center><img src="img/office/k5.jpg" ></center>'
			 '"You really can make me a man?" asked you. 
			 "I said that I could give you a feel like a man again, for a few minutes, and we can have fun." she said.
			 "Well what do you want." answer You.
			 "That`s clever, good girl, or a boy, but oh well what`s the difference, You did himself no longer know who you are. Now listen and remember you will do all that I say, and that-you`d better remember and never thought erepenitsa, I will punish you now a little." when she is to tell how you got on her bare table srl. You could not say the same move and could not do anything, podozhla it to you from behind and plunged his fingers into the vagina, inside , you tried to scream, but from his open mouth does not take off no sound. Soon she finished, Strood and you slipped off the table and began to dress. "And now back to work, I `ll get you yet." she said.'
			 act 'Back to work':gt'office','work'
			 end
		 end
	 end
end

if $ARGS[0]='komer1':
cla
*clr
set minut+=30
gs'stat'
'<center><img src="img/office/k6.jpg" ></center>'
'As soon as you enter the room as she dug her lips in your. "Well?" she asked.'
act'begin':
	 set picrand=20
	 xgt'lezbsex','var'
	 end
if officeman=1:
	 act'become a man':
		 cla
		 *clr
		 '<center><img src="img/office/k7.jpg" ></center>'
		 '"Do you want to fuck me, Well come here look what I got" she said, "So you make me a man" you started and then stopped short, heard a man`s voice, Look at yourself you realize that she had already done it, "well, that froze, come to me, Give your creation will try to taste." she said. You podozhli to her and she quickly took out your dick, took it into his mouth and began to suck, you stood and enjoyed, not believing in something that is not you suck someone`s dick, and you suck.'
		 act'fuck her':
			 cla
			 *clr
			 '<center><img src="img/office/k8.jpg" ></center>'
			 'You pulled the cock from her mouth and lifting it, benefits on the table. Inserting a dildo in her pussy you started fucking her with the force will drive cock in her pussy, Natalia moaning, pleasure and after a few seconds roughly finished, glaring claws at your back. You continued to fuck her enjoying your position teperyashnih, but soon as you feel inside of you that begins-then change your body and gradual start again turn into a female.'
			 act'come':
				 cla
				 *clr
				 '<center><img src="img/office/k9.jpg" ></center>'
				 'Until you finally become a Woman, you pull off Natalya to the floor and are only going to plunge it into his mouth dildo, he starts to cum and sperm pouring jet on her chest, and only a few drops reaches the mouth. When it ends you will again stand in front of her girlish body, Natalia and licks your sperm from his chest. "Here you smeared me, yielded pure now" she says, and you go down on your knees and start to lick his own sperm from her chest.'
				 act 'Back to work':gt'office','work'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='dostavka':
cla
*clr
set minut+=30
gs'stat'
'<center><img src="img/office/s9.jpg" ></center>'
'Once you have started to have fun as a knock on the office door. You barely managed to stop the Light, and sat her on a chair to fix it first, and then himself. However, you can see the brake she already broke and she was ostanavitsya nemogla. You grief in half sat her back into the chair and opened the door. The doorbell went Courier "well, you girls so long, I `m tired to stand. Sign for the parcel."'
act'sign':
	 cla
	 *clr
	 '<center><img src="img/office/s10.jpg" ></center>'
	 'You get up and take in the paper carrier, what-to sign, and notice that the light had already jumped from his chair and naprvilas him, FIND tearing off his shirt. "And then you have nothing fell?" says she came up to him, already bare-chested and grabs his pants. You understand that the brakes she finally tore, and the choice you have left is not great.'
	 act'shoved him':
		 cla
		 'You quickly signs the papers and lectured them courier pushes him out the door "Go here, you do not see the girl is not in itself." Closing the door to the light you turn around it, costs already completely naked, "Well, vredina." she says.'
		 act'begin':
			 set lesbian+=1
			 set picrand=19
			 set officelezb+=1
			 xgt'lezbsex','var'
			 end
		 end
	 act'close the door':
		 cla
		 *clr
		 set officeslut+=1
		 '<center><img src="img/office/s11.jpg" ></center>'
		 'You close the door and see the light turning sitting on a table with legs wide open, Courier and sits beside him and caressed her breasts. Podshodite to him and bent down to remove it from his pants erection, clasping his lips, you start licking the head, sucking his.'
		 act'carry_On':
			 set picrand=26
			 set guy+=1
			 set lesbian+=1
			 gt'podrsex','var'
			 end
		 end
	 end
end

if $ARGS[0]='negr':
cla
*clr
set minut+=30
gs'stat'
'<center><img src="img/office/s12.jpg" ></center>'
'While you`re chatting with Sveta entered the room your handyman, a huge black man with a strange name Kas, you said that this was once an abbreviation of his real name, but you have not been able to remember it. He began to check whether the furniture is broken, Do not loose anything. Light immediately asked him to check the legs of the sofa. Light sat on your desk and start to look at the Casa until he lifted the couch, noticing the attention to the person Cas began raising demonstrotivno sofa from different angles, vnimateelno examining each foot. The muscles on his arms stood out strongly and he showed them diligently. You have seen the light, which clearly liked UTB representation, and judging by the movements of her hips, her panties already wet. Suddenly she turned to you and asked quietly "chocolate want?"'
act'want_to':
	 cla
	 *clr
	 '<center><img src="img/office/s13.jpg" ></center>'
	 '"want_to" without a second thought you said. Light bypassed your desk and taking you by the hand rose from his chair "Well" she whispered, trying to push your tongue in your mouth.'
	 act'Otolknut it':
		 cla
		 'You pushed her, with words "quite sdurela?". Seeing that the situation is heating up fast Kas prefer to leave the room. "here you go, startled chocolate, vredina" Light and said defiantly pouting back at his desk.'
		 act 'Back to work':gt'office','work'
		 end
	 act'Respond to her':
		 cla
		 *clr
		 set officeslut+=1
		 '<center><img src="img/office/s14.jpg" ></center>'
		 'You decompress lips, running her tongue inside. A few seconds later you feel like a strong hand squeezes your buttocks, and then penetrates below to your pussy. You degradability spreads her legs giving Cas room for maneuver, Light is removed from you, and now you kiss lips touch. You run his hand in his pants and find, that there is already being wielded Light, nadrachivaya his cock.'
		 act'carry_On':
			 set picrand=27
			 set guy+=1
			 set lesbian+=1
			 gt'podrsex','var'
			 end
		 end
	 end
end

if $ARGS[0]='boss2':
cla
*clr
set minut+=30
set officeslut+=1
'<center><img src="img/office/b11.jpg" ></center>'
'"A Svetsik, Come on you just in time" With these words, baring your breasts. "I just need to remove the voltage. So to work mouth to start." he continued.'
act 'Kneel':
	 cla
	 *clr
	 '<center><img src="img/office/b12.jpg" ></center>'
	 '"I`d love to" you answer and then squatted down to get it and start sucking dildo. Once you`ve acquired a taste for the door to the office opened and entered Courier.
	 "What the devil, What you need to, not you see I`m busy." said the boss, pointing at you, still sucking his cock.
	 "So let me there girl, said that you can" he says, "Here Sveta bitch, also knew that I was here" think you, releasing a member of the mouth. "So you sign for delivery?" continued courier, without taking your eyes off your bare ass.
	 "Prove Svetsik" said the boss helping you climb'
	 act'sign':
		 cla
		 *clr
		 set officeslut+=1
		 '<center><img src="img/office/b13.jpg" ></center>'
		 'You calmly take in the courier paper and turned to the table undersign, at this time the boss starts talking to courier. "How do you like her ass, though very best, but if you only knew that she could get up to her, Light shake rolls."
		 "With joy" you reply, and starts to shake buttocks.
		 "You`re not shy Sun her finger in the ass, she did so fuck that cum in his pants. Light will tell how much you love when you`re in the ass dryuchat." continued supervision
		 "Just love, when hot cock fuck my ass, I like to milk his ochkom, to hot seed to fill my ass." raspolyalis you. In this vryamya courier stuck his finger in the anus you and you began to actively fuck him.
		 "Well then froze, Now take off your pants this slut fuck us both. however Svetsik?" said the boss.'
		 act'"Yes_I_Am"':
			 set picrand=24
			 set guy+=1
			 xgt'sexdvoe','var'
			 end
		 end
	 if officeslut<10:
		 act'Run out of the office':
			 cla
			 'You run out of the office, FIND adjusting clothes. "Well sailed, and whom I am now to fuck, you something?" you hear the voice of the chief behind, and follow you out of the office runs Courier.'
			 act 'Back to work':gt'office','work'
			 end
		 end
	 end
end

if $ARGS[0]='boss3':
cla
*clr
set minut+=30
set officeslut+=1
'<center><img src="img/office/b14.jpg" ></center>'
'"A Svetsik, Come on you just in time, we`re celebrating a deal with a partner." said the boss will see you in the incoming cabinet.
"I was just about you raskazyval, said that the best secretary does not find, and works well, and fucking superbly, but he does not believe." he said pointing to the second man, "Says that his secretary is better, so you have to Svetsik defend the honor of the company, Show him how you are able to use their holes." continued supervision'
act 'Kneel':
	 cla
	 *clr
	 '<center><img src="img/office/b15.jpg" ></center>'
	 '"I`d love to" you answer and then squatted down and pull out dildo starts to suck. You `re struggling to.
	 "Well, what I said, Sveta best sucks." smiling boss said, seeing contented individual partner.
	 "Yes_I_Am, sucks perfectly, but as with the rest of holes, also skillfully controlled?" he said.
	 "Svetsik vstanovis crustaceans, arrange test-Drive your pussy" said the boss helping you climb'
	 act'bend':
		 cla
		 *clr
		 '<center><img src="img/office/b16.jpg" ></center>'
		 'You bend down over the table, and plant thigh, only the head spit your labia minora, You put on the penis so, that his balls hit the your hips and start moving wildly twisting hips. "Wow, that`s nipple." was all he said.
		 "And that you still have not tried the ass." grinned the chief. "Anyway, I probably also to join you, This slut handles two better than one, however Svetsik?" chief said removing his pants.'
		 act'"Yes_I_Am"':
			 set picrand=25
			 set guy+=1
			 xgt'sexdvoe','var'
			 end
		 end
	 end
end

if $ARGS[0]='boss4':
cla
*clr
set minut+=30
set officeslut+=1
'<center><img src="img/office/b17.jpg" ></center>'
'"A Svetsik, Come on you just in time." said the boss will see you in the incoming cabinet. He came up to you and vskhvativ hips lifted and posodil on the table, spreading your legs , his tongue slid over your lips and clitoris tickled, bringing you more pleasure. You were so passionate about the process that is not immediately noticed how entered the room one of the managers of the company. When you finally you will see him , carefully watching the process.'
act 'called':
	 cla
	 *clr
	 set orgasm+=1
	 set officeslut+=1
	 '<center><img src="img/office/b18.jpg" ></center>'
	 'You beckon him with a gesture, and he immediately suited to you and begins to fondle your breasts. Chef at first did not even notice him, and continues to lick your pussy, but when you have an orgasm and covers you with a shout ends, He looks up and sees his. "Well Sveta, well slut, love when you fuck two members, Well, which froze take your pants off." he said.'
	 act'begin':
		 set picrand=26
		 set guy+=1
		 xgt'sexdvoe','var'
		 end
	 end
if officeslut<10:
	 act 'Run out of the office':gt'office','work'
	 end
end

if $ARGS[0]='gang':
cla
*clr
set guy+=3
set bj+=3
set swallow+=6
set minut+=30
set officeslut+=1
set gang+=1
'<center><img src="img/office/g0.jpg" ></center>'
'Going into the break room you will see in it the three managers. "A Svetsik, hi, we were just talking about you, you want to ask something." said one of them comes to you.
"Yes_I_Am, and you wanted to know?" asked you. At this time, literally surrounded.
"so much so, a sheer trifle, when you-something at once in all holes fucked." asked one and immediately started skolzmt six hands on your body.
"hey, stop otstante" You tried to escape, but it was useless.
"Come, everyone knows that the first whore in the office and you like to be davalkoy, so do not erepensya, and kneel and suck." With these words.'
act 'suck':
	 cla
	 *clr
	 '<center><img src="img/office/g1.jpg" ></center>'
	 'do nothing, You have opened my mouth and began to serve them one by one, Medley first reluctant, gradual but went into the taste and began to try my best.
	 "You look like razduharilis, that like to suck?" said one.
	 "Yes_I_Am" stricter able to answer you with a member in the mouth. You veering from one member to another and did not know for what to take, what-to satisfy all.
	 "Come on guys , and that at this whore already giddy from such membership" said one of them .'
	 act'suck':
		 cla
		 *clr
		 '<center><img src="img/office/g2.jpg" ></center>'
		 'You began to suck one, masturbate while the other two hands, and when he had finished, swallow sperm, and moved to the next, continuing nadrachivat others that-would not fall, So passed two laps, and you could not stop continuing with pleasure milking their members and swallow cum. "Here nanasytnaya, a couple of liters of sperm and swallowed all the little, so it must often feed" laughed one. "Yup, Sveta spermoedka" supported the second. "Fair_Enough, that we are all in her mouth, yes in the mouth, let`s have in all holes fuck off." said third'
		 act'begin':
			 set picrand=16
			 gt'paysex','var'
			 end
		 end
	 end
end

if $ARGS[0]='boss5':
cla
*clr
set minut+=30
set officeslut+=1
'<center><img src="img/office/b19.jpg" ></center>'
'"A Svetsik, Come on you just in time, I have so stiff neck knead it a little" said the boss will see you in the incoming cabinet. You immediately come to him and began to massage his neck and shoulders.
"so good?" asked you about ten minutes.
"Yes Light perfectly, Now remove the remains tense." he says.'
act 'Take_Off':
	 cla
	 *clr
	 set swallow+=1
	 set bj+=1
	 '<center><img src="img/office/b20.jpg" ></center>'
	 'You bend down to his crotch member freeing from captivity trousers, take by mouth fledgling chef dildo, and begins to suck his odnovremmeno Shchekotov yayscha hand, soon it swells and already struggling to fit in your mouth. A few minutes later you feel like it starts to throb, Chef lozhit on your head and your hand deeper inserts his mouth so you dildo, that it rests on your throat and starts to cum. You frantically swallow to not suffocate, when the flow has dried up, you lick the remnants of the seed with his penis and already going to get him back in your pants, as chief stops you. "brain, I`ll let podlagodaryu" With these words, and you sits in a chair and spreads your feet.'
	 act'begin':
		 set picrand=60
		 gt'sex','kuni'
		 end
	 end
if officeslut<10:
	 act 'Opt_Out':gt'office','work'
	 end
end

if $ARGS[0]='boss6':
cla
*clr
set spank+=1
set minut+=30
set officeslut+=1
'<center><img src="img/office/b21.jpg" ></center>'
'"A Svetsik, Come on you just in time. Go to the archive and bring me some projects" said the boss will see you in the incoming cabinet. You quickly go to the archive and collect all the necessary papers back to the office, and that`s bad luck at the very table you drop all the documents and they scatter in all directions, now you have two hours to lay out their folders. Chef today is clearly not in the best frame of mind, he starts yelling at you and then comes to you and vskhvativ neck throws vstoronu. You swoops down on his desk and spread on it, Tears streamed from his eyes, and he continues to yell at you'
act 'further':
	 cla
	 *clr
	 '<center><img src="img/office/b22.jpg" ></center>'
	 'He comes to you and removing the belt from his pants began to smack you. You squeeze teeth and endure until the belt is your buttocks, charter , you scream, and he throws the belt you in the mouth, and continues to furiously fuck your ass, he soon begins to slow down the pace. Slightly recovering himself, he knocks you off the table and commands to open his mouth.'
	 act'open your mouth':
		 set picrand=64
		 gt'sex','minet'
		 end
	 end
end

if $ARGS[0]='motiv0':
cla
*clr
set minut+=180
'<center><img src="img/office/m15.jpg" ></center>'
'You chef come to the hotel and go up to the room to the client. While the boss with the client to discuss the contract you satisfied in bed and pretend that that-then write. When it comes to controversial issues, Chef transplanted to you on the bed and starts stroking you. His hands glide over your body then crept under her skirt then stroking his chest, Soon your skirt is Zadran until the belt. The client is looking to you between your legs without taking his eyes, Seeing this chief says "It may take a little break, `s_relax." and you vskhvativ crotch pulls up, you go and find yourself standing on all fours on the bed with a naked ass. "You`re like Svetsik help us relax?" appeals to you the boss.'
act 'Of_Course':
	 cla
	 *clr
	 '<center><img src="img/office/m16.jpg" ></center>'
	 '"I`d love to, help" you reply and looking at customer beckon his finger, He gets up and you can see in his trousers bulged impressive penis. He comes to you and you grabbed his dick, First there is a language for trousers, then they start to kiss and try to take by mouth directly with pants, chef at this time wielding fingers in your pussy. When you remove the last member of the client`s pants, Chef draws his and joins you.'
	 act'begin':
		 set picrand=29
		 set guy+=1
		 xgt'sexdvoe','var'
		 end
	 end
end

if $ARGS[0]='motiv1':
cla
*clr
set minut+=120
set picrand=RAND(65,68)
'<center><img src="img/office/m<<picrand>>.jpg" ></center>'
'It suits you and the boss says "So now come Svetsik one client, Your task is to convince him to sign a contract. So dui in a conference room"
"already running" you are responsible and are heading in the conference hall. A few minutes later the client belongs doovor you give him and when he begins to read, you start to seduction, then you lightly touch her вЂ‹вЂ‹breasts shaking all over, then spend yourself on the thighs slightly lifting her skirt and populate my hand, at the same time close your eyes and vygidaete back. Soon your efforts reach the goal, the client is not looking into the contract, but only for you. Making sure that it is ready, You even higher bullied her skirt and spreads her legs, so that it can be clearly seen that there, therebetween. You put one hand on his leg and starts stroking it gradually approaching the already noticeable bulge in his pants Mount, he did not have to wait long. First "quite_unexpectedly" spit your hips and then you push the legs wider, he starts stroking your thighs, getting higher and that his hand was already under your skirt concerns are pretty pussy namoknuvshey. You unbutton his pants and releases it dildo.'
act'begin':
	 set guy+=1
	 gt'sex','minet'
	 end
end

if $ARGS[0]='motiv2':
cla
*clr
set officerand2=RAND(1,4)
if officerand2=1:gt'office','motiv4'
set picrand=RAND(69,73)
set minut+=240
set swallow+=2
set bj+=2
set guy+=2
'<center><img src="img/office/m<<picrand>>.jpg" ></center>'
'It suits you and the boss says "so Light, you need to go to the object, there is one of our masters became strongly with late deadlines work, promotiviruy it, you know how."
"Ok, have a meal." you answer and go to the object.'
'Arriving at the object you see a guy who goes from corner to corner and almost does nothing. Seeing you it starts to depict violent activities. "So what are you polzash as sleepy fly" you say.
"I work, but the timing just unreal" he says.
"Or maybe it`s not unrealistic deadlines, and you just do not want to work?" you ask.
"No I am working, I just do not physically have time to do everything." he says.
"And so let`s, if you three hours here it ended, I thank you." you say.
"How would you not because of me, but I do three hours do not have time, then work a couple of days, minimum" he says.
"Is that you just do not know how I thank you enough." you say
"And how?" he asks.
"well, look, I`ll make you a little advance, and how to end to get the rest" With that. The guy opened his mouth in surprise.'
act 'Take by mouth':
	 cla
	 *clr
	 '<center><img src="img/office/m0<<picrand>>.jpg" ></center>'
	 'You took the head in her mouth and began to suck slowly. Then you have it swallowed the the most eggs, he jerked, but not fired. And you continued to lick the head and trunk, while hand caressed his balls. He lasted five minutes, and then his cock pulsed and your mouth flew a jet of sperm. When you swallow sperm, then licked the remnants of his cock and removed it back in your pants. "Well, have time to three hours to complete" asked you.
	 He did not answer, and immediately vskhvativshis tool began working for. After two hours it was all over. Guy standing in front of you with a satisfied smile on his face "I`m, finished" he said at, little breather.
	 "So well done, keep up the good work and we`ll meet again, Well. But while I waited for you, something quite cool, can you me a little razogreesh" you said and pushed his feet, showing him her pussy. The guy did not waste time on words and immediately latched on to your crotch.'
	 act'begin':gt'sex','kuni'
	 end
end

if $ARGS[0]='motiv3':
cla
*clr
set picrand=RAND(30,33)
set officerand2=RAND(1,4)
if officerand2=1:gt'office','motiv5'
set minut+=240
set swallow+=2
set bj+=2
set guy+=2
'<center><img src="img/office/m<<picrand>>.jpg" ></center>'
'It suits you and the boss says "so Light, you need to go to the object, there a couple of our artists have become much late with deadlines work, promotiviruy their, you know how."
"Ok, have a meal." you answer and go to the object.'
'Arriving at the object you see two masters who do not do anything srl. Seeing you . "So what are you seated" you say.
"We break" they replied.
"And your break is not delayed, you did the last three days have done nothing" you started
"Listen, here is not so simple, here you need to consider how to, and even if we do do that tomorrow we will have to redo, in general there is still three days." said one
"And so let`s, if you three hours as it should think and do everything, I thank you" you say.
"How would you have not thanked, but make here three hours did not turn out, here work for three days, minimum" corresponds to the second.
"That you just do not know how I ever thank you." you say
"And how?" asks both with one voice.
"well, see, I`ll do you a small advance, And how else will get done" With that. They look at each other udevlenno.'
act 'Take by mouth':
	 cla
	 *clr
	 '<center><img src="img/office/m0<<picrand>>.jpg" ></center>'
	 'Her lips a member of one of them and down the tab on the head, made a few up and down movements. Then took in the palm of his testicles and began to caress them, and the second hand at this time caressing a member of another. Sometimes you let a member of the mouth, giving him the opportunity to look at, as you play the tongue with his head. He lasted about two minutes, and then his cock pulsed and your mouth flew a jet of sperm. When you swallow sperm, then moved on to the second, Repeat the whole procedure. "Well, have time to three hours to complete, what-to get the main prize?" asked you, when swallowing sperm second and rose from his knees.
	 "certainly have time" unanimously said they vskhvativshis for tool started working. After two hours it was all over. They come to you and proudly announced "we ended".
	 "So well done, Now accepting his gratitude" Say you, throwing off her clothes.'
	 act'begin':xgt'sexdvoe','var'
	 end
end

if $ARGS[0]='motiv4':
cla
*clr
set picrand=29
set minut+=180
set guy+=1
'<center><img src="img/office/m17.jpg" ></center>'
'It suits you and the boss says "so Light, you need to go to the object, there is one of our masters became strongly with late deadlines work, promotiviruy it, you know how."
"Ok, have a meal." you answer and go to the object.
Once you leave the office as you catches up Light. "I `ll go with you" she says.
"Well, went." you reply.
Arriving at the object you see a guy who goes from corner to corner and almost does nothing. Seeing you it starts to depict violent activities. Only you`re going-say something, as wedged Light "Well, do not want to have sex with two at once".
"what?" he said in surprise.
"Well what, we have sent, say there is such a master work, qualified, responsible, Ride to cheer him up, thank for the good work. And we come and what we see?" run against it by a guy.
"what?" still surprised with the views he says.
"lazy gouging, that`s what. And do you think that`s what we reward you" continues to shine.
"So I, addition, now all do." he says  "And you did not dilute?".
"we_Are, you, yes we need to hurt you breed, see here, if after two hours all finished, get both of us, and that-you would no doubt, I`ll now make a small down payment." says Light and dropping to her knees and pulling his cock.'
act 'watch':
	 cla
	 *clr
	 '<center><img src="img/office/m18.jpg" ></center>'
	 'You watch as his cock disappears in her mouth Svetin, she sucks it diligently, it caresses the head of the language, then swallows it whole, so that his balls Shchekotov language. The sight you get wet between the legs and once you decide to join, it ends with a groan cum pouring out of light in the mouth. "Well, have time to two hours to complete" You ask him, until the light licks the remnants of the seed with his dildo.
	 He did not answer, and immediately vskhvativshis tool began working for. After two hours it was all over. Guy standing in front of you with a satisfied smile on his face "I`m, finished" he said at, little breather.
	 "brain, Now go to us" praised his light starting to undress, You followed her example.'
	 act'begin':gt'podrsex','var'
	 end
end

if $ARGS[0]='motiv5':
cla
*clr
set picrand=34
set minut+=180
set guy+=2
'<center><img src="img/office/m19.jpg" ></center>'
'It suits you and the boss says "so Light, you need to go to the object, there a couple of our artists have become much late with deadlines work, promotiviruy their, you know how."
"Ok, have a meal." you answer and go to the object.
Arriving at the object you see only one of the two masters, which are needed to complete the finish sauna. While he did not see you you leave, find towels in the back and turn around undressed in one. You return to the master, seeing you he looks stunned look "What are you doing here girl?" Finally he asks.
"Yes, and you are still tinkering, can be done quickly and warm up together?" you reply.
"what?" he said in surprise.
"Here you are not teachable, I say that the time I though little, but a couple of hours I can wait, And if you`re in that time to complete all is allowed to rub my back, and not only its." you say.
"And if I finish, and you run away?" still surprised with the views he says.'
act 'undress':
	 cla
	 *clr
	 '<center><img src="img/office/m20.jpg" ></center>'
	 '"And where naked run away" you are responsible and throwing off his towel on the bench, perching on him.
	 He looks at you with even more surprised views. "Well, time is coming" you say
	 "Yes_I_Am, of_course, already running" he says. An hour later he finishes, "everything is ready." happily announces it.
	 "Well." you say, invitingly pushing the legs.'
	 act'begin':
		 cla
		 *clr
		 '<center><img src="img/office/m21.jpg" ></center>'
		 'Once you jump up to him, as the door bursts second, Service food and beer.
		 He comes to you galloping on a limb and did not seem to think of any better then, asks "girl, and you do not want to have?"
		 You quickly grab his pants "Well" you say.
		 He immediately starts to undress. "You also said sausage, and not lean sausage." laughs first.
		 "So you`re out of it a toothpick" corresponds to the second, and extracts from his pants dignity, which is more like a decent loaf of sausage, rather than a sausage.'
		 act'carry_On':xgt'sexdvoe','var'
		 end
	 end
end
--- office ---------------------------------

# restoran
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>restaurant</font></B></center>'
'<center><img src="pic/restoran.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
  
     !eto there_were glamur>1 and vnesh>50
     if glamur => 1 and mop>1 and hapri=1 and sweat<=0:
     'The man at the entrance politely interested in what you prefer in the table VIP room or in the common room'
         if money >= 5000:
             act 'VIP hall 5000 RUB':
             cla
             set money = money - 5000
             gt'restoran','vip'
             end
         end
     act 'common room':gt'restoran','zal'
     else
     'It suits you man and politely informs you, that with a similar appearance to the restaurant can not be.'
     end

     act 'WITHDRAW FROM RESTAURANT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if vladimirday=day and vladimirQW=21 and hour = 20:gt 'qwmeet'
     
end


if $ARGS[0]='zal':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>restaurant, common room</font></B></center>'
'<center><img src="pic/restoran2.jpg" ></center>'
'The room is quite nice atmosphere. Soft lighting and light furniture. Until you hear the sound of music, the clink of glasses and female laughter. It seems you, at_last, can relax a little.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	!etogame
    nastjarand = RAND(0,100)
	 if nastjarand > 80 and nastjaqw = 0 and energy>15 and nastjaday!day:
	 cls
	 nastjaday=day
	 gs'stat'	
		 '<center><img src="etogame/nastja1.jpg" ></center>'
		 'In the hall you will notice a pretty girl, I wonder why she sits alone. She looks pretty nice. While you looked at the stranger prekrastno, she caught your eyes on her and suddenly looked at you.'
		 act 'downcast eyes':
		 cla
		 'she turned away'
		 act 'Get_Away':gt'restoran', 'zal'
		 end
		 
		 act 'her smile':gt 'nastja', 'pos1'  
	 end
     
	 if money>= 5000:
         act 'eat 5 sput':
		 cla
		 set minut = minut + 60
		 energy =22
		 fat+=5
		 water = 22
		 willpower+=30
		 manna=manna+80
		 health=health+20
		 money-=5000
		 'On the recommendation of the chef, you ordered a wonderful meal and gladly ate in a noisy dining room.'
		 act 'Get_Away':gt'restoran', 'zal'
		 end
	 end	
	 act 'Get_Away':set minut = minut + 5&gt'restoran','start'
end

if $ARGS[0]='vip':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>restaurant, VIP hall</font></B></center>'
'<center><img src="pic/restoran3.jpg" ></center>'
'Caught in vip bed you, I caught myself thinking, that involuntarily smile. In the box calm, pleasant atmosphere. Soft lighting and furniture in the Empire style. You hear light music. At_Last, Your new weak female essence, though not for long, but can feel safe.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'Get_Away':
     cla
     set minut = minut + 5
     gt'restoran','start'
     end

	if money>= 5000:
         act 'eat 5 sput':
		 cla
		 set minut = minut + 60
		 energy = 22
		 fat+=5
		 water = 22
		 willpower+=30
		 manna=manna+100
		 health=health+20
		 money-=5000
		 'On the recommendation of the chef, you ordered a wonderful meal and gladly ate in the cozy vip the restaurant.'
		 act 'Get_Away':gt'restoran', 'vip'
		 end
	end
end
--- restoran ---------------------------------

# salon
if $ARGS[0]='start':
gs'stat'
$zavivka={
set minut+=60
set curly+=10
set money-=1000
if salonrand=0 and masha=0:gt 'salon','0'
'You curled hair.'
gs'stat'
gt'salon','start'
}
$pokraska={
cla
set money = money - 1000
'You get paid and sat down in the chair, you went and asked the girl beautician what color you would like repainted.'
if hcol ! 0:
	 act 'black':
		 cla
		 set minut = minut + 60
		 set hcol = 0
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 1:
	 act 'Brown color':
		 cla
		 set minut = minut + 60
		 set hcol = 1
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 2:
	 act 'red color':
		 cla
		 set minut = minut + 60
		 set hcol = 2
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 3:
	 act 'Light color':
		 cla
		 set minut+=60
		 set hcol = 3
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
gs'stat'
}
$solyariy={
set minut+=60
set tan+=10
set money-=1000
if salonrand>6 and nastjaqw>2:gt 'etoexhib','pos1'
if salonrand=0 and masha=0:gt 'salon','0'
'You sunbathe in the solarium.'
gs'stat'
gt'salon','start'
}
$resnici={
set minut+=60
set resnic = resnic + 1
set money = money - 5000
if salonrand=0 and masha=0:gt 'salon','0'
'You lengthen lashes.'
gs'stat'
gt'salon','start'
}
$epilyaciya={
set minut+=60
set leghair = -20
set lobok = -20
set money = money - 5000
if salonrand=0 and masha=0:gt 'salon','0'
'You had a full body hair removal.'
gs'stat'
gt'salon','start'
}
$ozdormas={
set minut+=60
set salo-=2
set vidageday+=3
set money-=5000
if salonrand=0:
	 cla
	 *clr
	 '<center><img src="img/centr/mass.jpg" ></center>'
	 'During the massage guy enjoys his masljannye fingers begin to slip it in your pussy then in the ass.'
	 set picrand=rand(25,28)
	 act 'rebel':gt'salon','start'
	 act 'enjoy':
		 set guy+=1
		 gt'sex','minet'
		 end
	 end
gs'stat'
gt'salon','start'
}
$tatyadd={
set minut+=60
cla
if tatlip = 0:
   	 act 'View tattoo on lip number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 set vaf+=10
			 gs'stat'
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on lip number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 set vaf+=10
			 gs'stat'
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on lip number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 set vaf+=10
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatplech = 0:
   	 act 'View tattoo on shoulder "flowers"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open arms and, you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "butterfly"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open arms and, you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "flowers number2"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech3.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open shoulders, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "The Queen of Spades"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech4.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open shoulders, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatback = 0:
   	 act 'View tattoo "wings" number on the back1':
		 cla
		 *clr
		 '<center><img src="picBody/tatb1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "wings" number on the back2':
		 cla
		 *clr
		 '<center><img src="picBody/tatb2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "corset" on his back':
		 cla
		 *clr
		 '<center><img src="picBody/tatb3.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "characters" on his back':
		 cla
		 *clr
		 '<center><img src="picBody/tatb4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatupb = 0:
	 act 'View tattoo on the lower back number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb1.jpg" ></center>'
		 'Tattoo on the lower back are traditionally called trump stamp, shlyuhino stigma, tattoo girls are not burdened with the weight of Conduct.'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch,  and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on the lower back number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on the lower back number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
	     end
	 act 'View tattoo on the lower back number4':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb4.jpg" ></center>'
		 'Tattoo on the lower back are traditionally called trump stamp, shlyuhino stigma, tattoo girls are not burdened with the weight of Conduct.'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatvag = 0:
	 act 'View tattoo in the groin "star"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "lick me"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Black Owned"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Lucky_You"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Angel sin"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag5.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 5
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatleg = 0:
	 act 'View tattoo on her ankle number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number4':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
gs'stat'
}
$uhodkosha={
set minut+=60
set skin = skin + 1
set money = money - 15000
if salonrand=0 and masha=0:gt 'salon','0'
'You Put the mask on your face, after some time beautician remove it.'
gs'stat'
gt'salon','start'
}
$delgub={
set minut+=60
set lip = lip - 1
set money = money - 15000
'You reduce the lips.'
gs'stat'
gt'salon','start'
}
$addgub={
set minut+=60
set lip = lip + 1
set money = money - 25000
'You will augment the lips.'
gs'stat'
gt'salon','start'
}
$addglaza={
set minut+=60
set glaraz = glaraz + 1
set money = money - 30000
'You enlarge the eyes.'
gs'stat'
gt'salon','start'
}
$addtitki={
set minut+=60
set silicone = silicone + 10
set money = money - 150000
'You have inserted silicone in breast size by increasing their 10 cm.'
gs'stat'
gt'salon','start'
}
$delshir={
set minut+=60
set fat=0
set salo=0
set money = money - 150000
'You totally suck the fat out of the body.'
gs'stat'
gt'salon','start'
}
$omoloshenie={
set minut+=60
set vidageday = vidageday + 50
set money = money - 250000
if salonrand=0 and masha=0:gt 'salon','0'
'You had a rejuvenation procedures, they can not turn the clock in the balmy, they can only pause during aging.'
gs'stat'
gt'salon','start'
}
$dshorthair={
set minut+=60
set money = money - 1000
shorthair=1
shorthairday=0
'You have cut her hair very short hair making you a boy.'
gs'stat'
act'Go_Out':gt'salon','start'
}
$permtatbro={
set minut+=60
set money = money - 6000
browper=1
'You have made a permanent tattoo eyebrows.'
gs'stat'
act'Go_Out':gt'salon','start'

}

$sexloc = $CURLOC
if week=1 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
if week=3 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
if week=5 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
cla
*clr
set salonrand=rand(0,9)
set minut+=5
'<center><B><font color=maroon>beauty salon</font></B></center>'
'<center><img src="pic/salon.jpg" ></center>'
'to approach <a href="exec:gt''salon'',''1''">administrator.</a>'
if money >= 1000:'<a href="exec: dynamic $zavivka ">curl the hair - 1sput</a>'
if money<1000:'curl the hair - 1sput'
if money >= 1000:'<a href="exec: dynamic $pokraska ">dye your hair - 1sput</a>'
if money<1000:'hair coloring 1 sput'
if money >= 1000:'<a href="exec: dynamic $solyariy ">solarium - 1sput</a>'
if money<1000:'solarium - 1 sput'
if money >= 1000:'<a href="exec: dynamic $dshorthair ">short hairstyle - 1sput</a>'
if money<1000:'short hairstyle - 1 sput'
if money >= 5000:'<a href="exec: dynamic $resnici ">lengthening eyelashes - 5 sput</a>'
if money<5000:'lengthening eyelashes - 5 sput'
if money >= 5000:'<a href="exec: dynamic $epilyaciya ">complete Hair Removal - 5 sput</a>'
if money<5000:'complete Hair Removal - 5 sput'
if money >= 5000:'<a href="exec: dynamic $ozdormas ">Wellness Massage (accelerates fat, rejuvenates the body), 5000 RUB</a>'
if money<5000:'Wellness Massage (accelerates fat, rejuvenates the body), 5000 RUB'
if money >= 8000:'<a href="exec: dynamic $tatyadd ">Tatuiroka or piercing - 8 thousand rubles</a>'
if money<8000:'Tatuiroka or piercing - 8 thousand rubles'
if money >= 15000:'<a href="exec: dynamic $uhodkosha ">Skin care - 15 sput</a>'
if money<15000:'Skin care - 15 sput'
if money >= 15000 and lip > 0:'<a href="exec: dynamic $delgub ">Reducing the lips - 15 sput</a>'
if money<15000 or lip < 1:'Reducing the lips - 15 sput'
if money >= 25000 and lip < 4:'<a href="exec: dynamic $addgub ">lip augmentation - 25 sput</a>'
if money<25000 or lip >= 4:'lip augmentation - 25 sput'
if money >= 30000:'<a href="exec: dynamic $addglaza ">The increase in eye - 30 sput</a>'
if money<30000:'The increase in eye - 30 sput'
if money >= 150000:'<a href="exec: dynamic $addtitki ">breast Augmentation - 150 sput</a>'
if money<150000:'breast Augmentation - 150 sput'
if money >= 150000:'<a href="exec: dynamic $delshir ">sucking fat - 150 sput</a>'
if money<150000:'sucking fat - 150 sput'
if money >= 250000:'<a href="exec: dynamic $omoloshenie ">rejuvenation procedures - 250 sput</a>'
if money<250000:'rejuvenation procedures - 250 sput'
if money >= 6000 and browper=0:'<a href="exec: dynamic $permtatbro ">Permanent tattoo eyebrows - 6 sput</a>'
if money<6000 and browper=1:'Permanent tattoo eyebrows - 6 sput'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if hour < 8 or hour > 20:
	 cls
	 'Beauty salon is closed and you are asked to retire.'
	 act 'GO_OUT':set minut = minut + 5&gt'torgcentr'
	 exit
	 end
act 'GO_OUT':set minut+=5&gt'torgcentr'
end

if $ARGS[0] = '0':
cla
*clr
set cumfrot+=1
'<center><img src="img/centr/pri1.jpg" ></center>'
'During the procedure, now followed very similar to sperm. You start to vomuschatsya suits you and the administrator is trying to reassure you, obyaschaya that she will be punished, and you compensate for the cost of chemical cleaning in Ramer 5000RUB.'
act 'agree':set money+=5000&gt'salon','start'
if DOM>10:
	 act 'Require punish now':
		 cla
		 set orgasm+=1
		 set DOM+=1
		 'The administrator looks at you without understanding what you want
		 "It is not clear that I want-would this bitch now punished" began to resent you.
		 "How do you want it-it would be punished?" asked the administrator
		 "Fuck her here with me" you cried.
		 "Excuse_Me, but I can not do that" babbled guy'
		 act '"All you can"':
			 cla
			 *clr
			 '<center><img src="img/centr/pri2.jpg" ></center>'
			 '"All you can" Say you and rastegnuv guy pants got his dick, on highly excited dildo was clear that the guy really like your idea of вЂ‹вЂ‹a punishment.'
			 act '"suck bitch"':
				 cla
				 *clr
				 '<center><img src="img/centr/pri3.jpg" ></center>'
				 'C these words.
				 "active, deeper" Customized you girl'
				 act'"Put her cancer"':
					 cla
					 *clr
					 '<center><img src="img/centr/pri4.jpg" ></center>'
					 'The guy obediently put her cancer, and put my dildo in her vagina, girl quietly vzvignula, and the guy went into the role fucked her yarosno shoving dick as deep as possible in her. You took the girl`s hand and put on his pubis, She obediently began to massage your clitoris'
					 act '"Put her on top"':
						 cla
						 *clr
						 '<center><img src="img/centr/pri5.jpg" ></center>'
						 'The guy sat down on the chair, she quickly hopped on top and started jumping, you took her buttocks and at every jump it with a force lowered it to the member, she cried, and you continue to stick it on his dildo.'
						 act'"Lie down on the floor"':
							 cla
							 *clr
							 '<center><img src="img/centr/pri6.jpg" ></center>'
							 'The girl lay on the floor, and Perrin was attached to the side, You sat on the girl`s face she did not give you the chance to command and once your pussy was in the zone dosigaemosti her tongue began to lick you trying not to miss any millimeter of your pussy, both outside and inside, How long does it tongue. Soon pleasant wave hit you and you are finished sitting on her face'
							 act'"Finish"':
								 cla
								 *clr
								 '<center><img src="img/centr/pri7.jpg" ></center>'
								 'The guy stood up, Woman on her knees raised and drained, filling her mouth, face and chest with hot cum
								 "That`s how it is necessary to punish bitches" With these words "So you have Masha, I can call you, you have a good tongue" With these words.'
								 set telmasha=1
								 set masha+=1
								 act 'Get_Away':gt'salon','start'
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0] = '1':
set minut+=5
cla
if worksalon=0:
	 'You ask whether you will take on the job.'
	 if masash<10:
		 'You do not be able to, come when you learn'
		 act 'move_away':gt'salon','start'
		 end
	 if masash>=10:
		 '"Well . Work will be Monday, Wednesday, Friday 9 prior_to 10 hours, and come out to replace, going to work 19 hours. do not come, This day you will not be counted in the salary. salary lists 25-th of, for each worked shift - 800 rubles."'
		 '"Labor necessary to hand over to the personnel department. You understand, will work?"'
		 if work=0:
			 act 'move_away':gt'salon','start'
			 act 'To get a job':
				 cla
				 set worksalon = 1
				 set work=1
				 'You carried working in the personnel department."'
				 act 'move_away':gt'salon','start'
				 end
			 end
		 act 'move_away':gt'salon','start'
		 end
	 end
if worksalon=1:
	 act'resign':gt'salon','discharge'
	 act 'move_away':gt'salon','start'
	 end
end

if $ARGS[0] = 'beginwork':
cla
*clr
'<center><B><font color=maroon>beauty salon</font></B></center>'
'<center><img src="pic/salon.jpg" ></center>'
'You have replaced a beauty salon.'
act'begin work':
	 set smena+=1
	 gt'worksalon','start'
	 end
act'resign':gt'salon','discharge'
end

if $ARGS[0] = 'discharge':
cla
set minut+=10
set worksalon=0
set work=0
set pay = smena * 800
set money = money + pay
set smena = 0
'The administrator looked at you: "Here`s your payment <<pay>> rubles and employment history. bye now."'
act 'Get_Away':gt'salon','start'
end
--- salon ---------------------------------

# sexshop
if $ARGS[0]='start':
cla
*clr
$sexloc = $CURLOC
set shrand=rand(0,100)
if kendra>0 and shrand<10:gt'sexshop','kendra'
if tanga=0 and shrand>90:gt'sexshop','shprod'
set minut = minut + 5
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B><font color=maroon>sex Toys</font></B></center>'
'<center><img src="pic/sexshop.jpg" ></center>'
'lubricant - 300r
small faloimitator - 800 r
vibrator - 1300 r
Strap 1200 r
Butt plug 1200r
In the basement are located booths for private viewing porn movies (50 RUB 15 minutes).'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
act 'GO_OUT':
	 cla
	 set ghnow = 0
	 set minut = minut + 5
	 gt'down'
	 end
     
     if SUB >= 100 and analplug = 1 and dildo = 1 and vnesh > 26 and Peter < 1:
     set Peterrand = rand (0, 100)
         if Peterrand >50 :
         'Are you interested in looking at the middle-aged man, apparently he was the owner of this store'
             act 'Zainteresovatsya owner of the store' : 
			 cla
			 *clr
			 '<center><img src="peter/peter.jpg" ></center>'
			 'I Peter, I`ve been watching you. I often see you here. I think it will be interesting together...'
			 act 'Go with Peter':gt'Peterroom','start'
                 act 'GO_OUT':
                 cla
                 set ghnow = 0
                 set minut = minut + 5
                 gt'down'
                 end
             end
         end
     end
     
     act 'Go to the basement':gt'sexshop','podval'


     if gloryhole>=20 and pornstudio=0:
         'You notice the corner of my eye, that the seller is trying to get your attention' 
         act 'come_Up, find_out, what`s wrong':gt'sexshop','porn'
     end

     if money >= 300:
     	 act 'Buy lubricant 300 RUB':
		 cla
		 *clr
		 portion = input ("How much you want to buy?")
		 if portion*300 > money:'You do not have enough money.'
		 if portion*300 <= money:
			 set lubri += portion*5
			 set money = money - portion*300
			 set minut = minut + 5
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You bought a lubricant and get paid in cash.'
			 end
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 800 and dildo = 0:
     	 act 'Buy small faloimitator 800 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set dildo = 1
		 set money = money - 800
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 1500 and middildo = 0:
     	 act 'buy 15five inch faloimitator 1500 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set middildo = 1
		 set money = money - 1500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 2500 and largedildo = 0:
     	 act 'buy 20five inch faloimitator 2500 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set largedildo = 1
		 set money = money - 2500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 4500 and bigdildo = 0:
     	 act 'buy 25five inch faloimitator 4500 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set bigdildo = 1
		 set money = money - 4500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 6500 and extradildo = 0:
     	 act 'buy 30five inch faloimitator 6500 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set extradildo = 1
		 set money = money - 6500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 8500 and superdildo = 0:
     	 act 'buy 35five inch faloimitator 8500 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set superdildo = 1
		 set money = money - 8500
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 12000 and maddildo = 0:
     	 act 'buy 40 cm faloimitator 12000 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set maddildo = 1
		 set money = money - 12000
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought faloimitator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 1300 and vibrator = 0:
     	 act 'Buy a vibrator 1300 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set vibrator = 1
		 set money = money - 1300
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought a vibrator and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     if money >= 1200 and strapon = 0:
     	 act 'Buy strap 1200 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set strapon = 1
		 set money = money - 1200
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought a strap-on and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     
     if money >= 1200 and analplug = 0:
     	 act 'Buy a butt plug 1200 RUB':
		 cla
		 *clr
		 set minut = minut + 15
		 set analplug = 1
		 set money = money - 1200
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought the butt plug and get paid in cash.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
     end
     
     if pornMagazine<=1 and money>=400:
		 act'Buy a porn magazine for 400 RUB':
		 cls
		 minut+=5
		 money-=400
		 pornMagazine=50
		 gs'stat'
		 'You bought pornozhurnal.'
		 act 'Move away from the counter':gt'sexshop','start'
		 end
	 end
end
     
     if money >= 1000:
     	 if hooker[1] = 0:
			 act 'Inspect clothes prostitutes. number1':
			 cla
			 *clr
			 '<center><img src="ode/hooker1.jpg" ></center>'
			 'Clothing prostitutes.'
			 'costs 1000 RUB.'
			 act 'Get_Away':gt'sexshop','start'
				 act 'buy': 
				 cla
				 set money = money - 1000
				 set hooker[1] = 1
				 set hookerH[1] = 200
				 set hookerB[1] = bedra
				 gt'sexshop','start'
				 end
			 end
		 end
		 if hooker[2] = 0:
			 act 'Inspect clothes prostitutes. number2':
			 cla
			 *clr
			 '<center><img src="ode/hooker2.jpg" ></center>'
			 'Clothing prostitutes.'
			 'costs 1000 RUB.'
			 act 'Get_Away':gt'sexshop','start'
				 act 'buy': 
				 cla
				 set money = money - 1000
				 set hooker[2] = 1
				 set hookerH[2] = 200
				 set hookerB[2] = bedra
				 gt'sexshop','start'
				 end
			 end
		 end
		 if hooker[3] = 0:
			 act 'Inspect clothes prostitutes. number3':
			 cla
			 *clr
			 '<center><img src="ode/hooker3.jpg" ></center>'
			 'Clothing prostitutes.'
			 'costs 1000 RUB.'
			 act 'Get_Away':gt'sexshop','start'
				 act 'buy': 
				 cla
				 set money = money - 1000
				 set hooker[3] = 1
				 set hookerH[3] = 200
				 set hookerB[3] = bedra
				 gt'sexshop','start'
				 end
			 end
		 end
		 if hooker[4] = 0:
			 act 'Inspect clothes prostitutes. number4':
			 cla
			 *clr
			 '<center><img src="ode/hooker4.jpg" ></center>'
			 'Clothing prostitutes.'
			 'costs 1000 RUB.'
			 act 'Get_Away':gt'sexshop','start'
				 act 'buy': 
				 cla
				 set money = money - 1000
				 set hooker[4] = 1
				 set hookerH[4] = 200
				 set hookerB[4] = bedra
				 gt'sexshop','start'
				 end
			 end
		 end
		 if hooker[5] = 0:
			 act 'Inspect clothes prostitutes. number5':
			 cla
			 *clr
			 '<center><img src="ode/hooker5.jpg" ></center>'
			 'Clothing prostitutes.'
			 'costs 1000 RUB.'
			 act 'Get_Away':gt'sexshop','start'
				 act 'buy': 
				 cla
				 set money = money - 1000
				 set hooker[5] = 1
				 set hookerH[5] = 200
				 set hookerB[5] = bedra
				 gt'sexshop','start'
				 end
			 end
		 end
     end



end

if $ARGS[0]='podval':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Basement with cabins for movies</font></B></center>'
'<center><img src="pic/gloryholeBooths1.jpg" ></center>'
''
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths

act 'Go to the free stall':gt'sexshop','pip'
act 'Go to the toilet':gt'sexshop','toi'
if masharab=1:
	 act 'Go to Masha':gt'masharoom','start'
	 end
act 'Get out of the basement':gt'sexshop','start'
end

if $ARGS[0]='toi':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Wc</font></B></center>'
'<center><img src="pic/PublicToilet.jpg" ></center>'
''
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


     if tanga=1:
     act 'Remove underwear':
     cla
     set tanga = 0
     gt'sexshop','toi'
     end
     end

     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':gt'sexshop','toi'
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':gt'sexshop','toi'
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':gt'sexshop','toi'
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':gt'sexshop','toi'
				 end
             end
         end
     end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
     act 'substitution 15 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus =0
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm with yourself.'
     act 'Go_Out':gt'sexshop','toi'
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 15 min':
     cla
     *clr
     set mop=1
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':gt'sexshop','toi'
     end
end

if cumfrot > 0:
     act 'Wipe the cum from clothes 15 min':
     cla
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 15
     !'<center><img src="pic/facesp.jpg" ></center>'
     'You have erased the traces of semen from clothing.'
     act 'Go_Out':gt'sexshop','toi'
     end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 act 'End_Up':gt'sexshop','toi'
		 end
	 end
act 'Exit out of the closet':gt'sexshop','podval'
end



if $ARGS[0]='pip':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Cubicle with movies</font></B></center>'
'<center><img src="pic/ghBooths.jpg" ></center>'
'Small cabinet with a TV on the wall, terminal and two holes in the walls at waist level.'
if ghnow > 0:'you served <<ghnow>> cocks.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths
act 'Exit out of the booth':gt'sexshop','podval'

     if money >= 50 and hour < 23:
         act 'shove 50 rubles per machine':
         cla
         set money = money - 50
         set minut = minut + 15
         'Once you have paid the money earned TV on the wall showing porn.'
         set ghrand = RAND (0,10)
             set horny = horny + 5
             set manna = manna + 5
             'You sat down on a chair and watched porn, he began to have little to excite.'
             act 'The film ended':gt'sexshop','pip'
             
             if horny >= 50:
                 act 'masturbate':
                 cla
                 set horny = horny + 10
                 set manna = manna + 10
                 'You caress her pussy fingers and enjoy the pleasant sensations between her legs.'
                     if horny >= 100:
                     set orgasm = orgasm + 1
					 set horny = 0
					 set manna = manna + 15
					 set willpower = willpower + 15
					 set mastr = mastr + 1
					 'Gradually pleasant sensations spread over the entire body .'
                     end
                 act 'The film ended':gt'sexshop','pip'
                 end
             end
             
             
             if ghrand >= 10 - (cumlip*2):
                 'You hear in the next stall turn on the TV.'
                 
                 act 'Stick a finger in the hole (serve a stranger)':
                 cla
                 *clr
                 set ghnow = ghnow + 1
                 set money = money + 300
                 set fingerRand = RAND (0,4)
                 if fingerRand = 0:'<center><img src="pic/ghFinger.jpg" ></center>'
                 if fingerRand = 1:'<center><img src="pic/ghFinger1.jpg" ></center>'
                 if fingerRand = 2:'<center><img src="pic/ghFinger2.jpg" ></center>'
                 if fingerRand = 3:'<center><img src="pic/ghFinger3.jpg" ></center>'
                 if fingerRand = 4:'<center><img src="pic/ghFinger4.jpg" ></center>'
                 'You stuck your fingers in the hole by showing that you are ready to serve member.'
                 'The stranger slipped into the hole 300 rubles, and then out of the hole seemed his cock.'
                     act 'sucking dick':
					 cla
					 *clr
					 set horny = horny + VAF
					 set guy = guy + 1
					 set bj = bj + 1
					 set gloryhole = gloryhole + 1
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 dynamic $venerasiak
					 set ghprand = RAND (0,37)
					 if ghprand = 0:'<center><img src="picV/gloryhole.jpg" ></center>'
					 if ghprand = 1:'<center><img src="picV/gloryhole1.jpg" ></center>'
					 if ghprand = 2:'<center><img src="picV/gloryhole2.jpg" ></center>'
					 if ghprand = 3:'<center><img src="picV/gloryhole3.jpg" ></center>'
					 if ghprand = 4:'<center><img src="picV/gloryhole4.jpg" ></center>'
					 if ghprand = 5:'<center><img src="picV/gloryhole5.jpg" ></center>'
					 if ghprand = 6:'<center><img src="picV/gloryhole6.jpg" ></center>'
					 if ghprand = 7:'<center><img src="picV/gloryhole7.jpg" ></center>'
					 if ghprand = 8:'<center><img src="picV/gloryhole8.jpg" ></center>'
					 if ghprand = 9:'<center><img src="picV/gloryhole9.jpg" ></center>'
					 if ghprand = 10:'<center><img src="picV/gloryhole10.jpg" ></center>'
					 if ghprand = 11:'<center><img src="picV/gloryhole11.jpg" ></center>'
					 if ghprand = 12:'<center><img src="picV/gloryhole12.jpg" ></center>'
					 if ghprand = 13:'<center><img src="picV/gloryhole13.jpg" ></center>'
					 if ghprand = 14:'<center><img src="picV/gloryhole14.jpg" ></center>'
					 if ghprand = 15:'<center><img src="picV/gloryhole15.jpg" ></center>'
					 if ghprand = 16:'<center><img src="picV/gloryhole16.jpg" ></center>'
					 if ghprand = 17:'<center><img src="picV/gloryhole17.jpg" ></center>'
					 if ghprand = 18:'<center><img src="picV/gloryhole18.jpg" ></center>'
					 if ghprand = 19:'<center><img src="picV/gloryhole19.jpg" ></center>'
					 if ghprand = 20:'<center><img src="picV/gloryhole20.jpg" ></center>'
					 if ghprand = 21:'<center><img src="picV/gloryhole21.jpg" ></center>'
					 if ghprand = 22:'<center><img src="picV/gloryhole22.jpg" ></center>'
					 if ghprand = 23:'<center><img src="picV/gloryhole23.jpg" ></center>'
					 if ghprand = 24:'<center><img src="picV/gloryhole24.jpg" ></center>'
					 if ghprand = 25:'<center><img src="picV/gloryhole25.jpg" ></center>'
					 if ghprand = 26:'<center><img src="picV/gloryhole26.jpg" ></center>'
					 if ghprand = 27:'<center><img src="picV/gloryhole27.jpg" ></center>'
					 if ghprand = 28:'<center><img src="picV/gloryhole28.jpg" ></center>'
					 if ghprand = 29:'<center><img src="picV/gloryhole29.jpg" ></center>'
					 if ghprand = 30:'<center><img src="picV/gloryhole30.jpg" ></center>'
					 if ghprand = 31:'<center><img src="picV/gloryhole31.jpg" ></center>'
					 if ghprand = 32:'<center><img src="picV/gloryhole32.jpg" ></center>'
					 if ghprand = 33:'<center><img src="picV/gloryhole33.jpg" ></center>'
					 if ghprand = 34:'<center><img src="picV/gloryhole34.jpg" ></center>'
					 if ghprand = 35:'<center><img src="picV/gloryhole35.jpg" ></center>'
					 if ghprand = 36:'<center><img src="picV/gloryhole36.jpg" ></center>'
					 if ghprand = 37:'<center><img src="picV/gloryhole37.jpg" ></center>'
					 'You took the cock in her mouth and began to suck, treating it with her вЂ‹вЂ‹lips struggling.'
					     if horny >= 100:
						 set VAF = VAF + 1
						 set orgasm = orgasm + 1
						 set horny = 0
						 set manna = manna + 15
						 set willpower = willpower + 15
						 set lip = lip + 1
						 '<B>Suddenly. Fire was burning between her legs and waves of pleasure covered body, You groaned but did not release a member of continuing his mouth to suck.</B>'
						 end
					 'Finally the stranger began to cum in your mouth filling it with vigorous sperm. After you`ve licked all the sperm with a member of the walls, a man came out of the booth.'
					 act 'wipe his face':gt'sexshop','pip'
					 end
                 end
             end
         end
     end
end

if $ARGS[0]='porn':
cla
*clr
set minut = minut + 5
'in general, You have a noble minetchitsa, everybody knows. Do not you want to earn extra money in porn-business actress? Pay there certainly better, than here, and cocks, may be, and even more, if they deal. Well? Other proposals will not be!'
     act 'agree':
     cla
     *clr
     pornstudio=2
     gt 'pornstudio','1'
     end
     act 'Opt_Out':
     cla
     *clr
     pornstudio=1
     gt 'sexshop','start'
     end
end

if $ARGS[0]='kendra':
cla
*clr
set minut+=10
gs'stat'
'<center><img src="img/centr/shkend.jpg" ></center>'
'In the store you can see Kendra, trying on latex lingerie.
"Who is here with us, my favorite litter, let him come to me and that I already strongly excited choosing a toy, now we are testing something on the spot" Kendra laughed, sitting down at a table and pushing the legs.'
act'Depart from it':gt 'sexshop','start'
if DOM>10:act'first deserve':gt 'sexshop','kendra4'
	 act'serve Kendra':
	 cla
	 *clr
	 set SUB+=1
	 !set girl+=1
	 set lesbian+=1
	 '<center><img src="img/centr/shkend1.jpg" ></center>'
	 'You quickly throw off clothes, and kneeling before the current Kendra pussy and lick her host. As long as you carefully suck Kendra yells and praises your tongue, saying that more than one tab did not please her as your.
	 "Now take anything from toys" Kendra says'
	 act'take a dildo':gt'sexshop','kendra1'
	 act'Give her strapon':gt'sexshop','kendra2'
	 end
end

if $ARGS[0]='kendra1':
cla
*clr
set pipirand=rand(0,3)
set minut+=10
gs'stat'
'<center><img src="img/centr/shkend2.jpg" ></center>'
'You take a dildo and licking paste it into your pussy Kendra. While you`re with one hand oruduete dildo in her pussy, second caress her clitoris trying to bring herself to orgasm. Kendra meanders sitting on the table carefully podmahivaya to the beat of your movements.'
	 if pipirand>0:
	 set orgasm+=1
	 'When Kendra starts sodragatsya whole body in orgasm, You also covers a wave of orgasm. Slightly recovering himself, Kendra looks at you, "And yet you are beautiful litter, even we end odovremeno with me"'
	 act'End_Up':gt 'sexshop','start'
	 end
	 
	if pipirand=0:
		 act'Oops...':
		 cla
		 *clr
		 set sweat+=1
		 '<center><img src="img/centr/shkend4.jpg" ></center>'
		 'suddenly, when you were ready to cum, Kendra began writing, her urine flowed on dildo already have flowed on your hand.
		 "damn" cried and you were about to throw a dildo.
		 "Let`s Finish, slut" cried Kendra'
		 act'Send it':gt'sexshop','kendra3'
			 act'carry_On':
			 cla
			 *clr
			 set sweat+=3
			 set SUB+=2
			 set horny=0
			 '<center><img src="img/centr/shkend3.jpg" ></center>'
			 'You dutifully continued to wield a dildo, still continuing to stroke her clitoris, but all the excitement has gone. Her urine dripping with dildo on your hand and now and arm and stomach and thighs, everything was in her urine.
			 Finally she came, "And now I Carney, and I soiled." commanded Kendra'
			 act'Send it':gt'sexshop','kendra3'
				 act'lick':
				 cla
				 *clr
				 set SUB+=2
				 '<center><img src="img/centr/shkend5.jpg" ></center>'
				 'You dutifully moved closer to her and began to slowly lick the urine with her вЂ‹вЂ‹thighs and pussy.
				 "Activity Come on nipple" Customized you Kendra. You have become a lick faster, with difficulty restraining retching from the urine taste in the mouth.
				 "That`s clever, came to see me more often, fun_too" With these words, leaving you sitting on the floor in a puddle of urine.'
				 act'Get_Away':gt 'sexshop','start'
				 end
			 end
		 end
	end
end

if $ARGS[0]='kendra2':
cla
*clr
set minut+=10
gs'stat'
'<center><img src="img/centr/shkend8.jpg" ></center>'
'Kendra strap dresses and looking at you asked "well, that beauty in which you insert hole?".'
	 act'In the vagina':
	 cla
	 *clr
	 set sex+=1
	 vagina+=1
	 set orgasm+=1
	 set horny=0
	 '<center><img src="img/centr/shkend10.jpg" ></center>'
	 'Kendra sits in a chair and you jump up to it from above by entering Strap yourself in pussy. You are riding on a strapon, and Kendra podmahivaet you from the bottom trying to shove it as deep as possible. Neskolko minutes through a racing, orgasm covers you, and you slide with Kendra.
	 "That`s clever, came to see me more often, fun_too" With these words'
	 act'Get_Away':gt 'sexshop','start'
	 end
	
	 act'In the anus':
	 cla
	 *clr
	 set anal+=1
	 set orgasm+=1
	 anus+=1
	 set horny=0
	 '<center><img src="img/centr/shkend9.jpg" ></center>'
	 'You jump up on the table and spreads her legs, Kendra gently introduces you to strap into the anus and give your ass get used neskolkosekund, then it starts to move. Strap slides inside your ass and you will soon become pleasantly, seeing that you enjoy the process begins to slowly accelerate Kendra, and you lozhite hand on crotch and her fingers massaging the clitoris, after a few minutes you orgasm covers, you shudder all over, frantically grabs Kendra legs and cuddle so that the strap comes to you in the ass on the entire length, you have darker eyes and you are off.
	 When you come to a Kendra is already dressed, "Well, will have to find a double strap want to see what`s the matter of the two trunks will" With these words.'
	 act'Get_Away':gt 'sexshop','start'
	 end
end

if $ARGS[0]='kendra3':
set minut+=10
set anal+=1
anus+=1
set rape+=1
cla
*clr
'<center><img src="img/centr/shkend6.jpg" ></center>'
'"Oh damn, I will now teach obedience" With these words, which has a second ago sat themselves. Falling on the table you strongly hit back, and while you`re writhing in pain on the table, Kendra wearing strapon, and pressing his hands to your hips table nachila push it to you in the ass, neudosuzhivshis even smear it. Go to your back pain was added the pain of torn anus threesome. Kendra fucked with force your anus saying that you have the right to vote litter and you do not.
When she finally got tired, then you just wiped the floor with table, you with a crash fell on the floor.
"On your knees slut" she hissed.'
	 act'Kneel':
	 cla
	 *clr
	 '<center><img src="img/centr/shkend7.jpg" ></center>'
	 'You struggled to his knees, back badly hurt, and from the anus seems dripping blood.
	 "suck" Kendra commanded by substituting the strap to your face. Have you looked at the strap, which could be seen the traces of your blood.
	 "Yes suck you already." shouted Kendra, and vskhvatila your hair, you reflexively opened his mouth that-to cry, Kendra but pushed it before strapon. She fucked you in the mouth with the same ostervineniem that munutu ago you tore the anus.
	 When she finally calmed down and let your hair, you exhausted fell to the floor, Kendra leaned over you and said "Remember you litter, what you say and do something, I will say on the street naked cancer stand, will stand and thank all of you who fuck, and now learn the lessons, and I have to go" After that.'
	 act'Get_Away':gt 'sexshop','start'
	 end
end

if $ARGS[0]='kendra4':
cla
*clr
set minut+=10
set orgasm+=1
set horny=0
set picrand=rand(11,12)
'<center><img src="img/centr/shkend<<picrand>>.jpg" ></center>'
'Kendra looked at you surprised, until you threw off her clothes.
Undressed you turned to her ass and sticking out his ass "Well look, dovedesh to orgasm can try strapon"'
if picrand=11:'Kendra knelt down and began to lick you pussy, her tongue slid over lips sex, Shchekotov clitoris, and droop into the vagina, after a few minutes of her effort, you left off.'
if picrand=12:'Kendra knelt down and her tongue stuck on the move you in getting inside the anus, you had oschushenie you in the ass snake crawled and twisted it all storrony, it penetrated fingers into the vagina and a few minutes later thanks to her tongue snaked you in the ass and pussy Palchikov carefully massaging you experienced orgasm.'
'"Well?" Kendra asked."Now do according to my."'
act'Give her strapon':gt'sexshop','kendra2'
if DOM>25:act'"perebesh"':gt 'sexshop','start'
end

if $ARGS[0]='shprod':
cla
*clr
set minut+=5
'<center><img src="img/centr/shprod.jpg" ></center>'
'The shop is suitable for you and the seller starts to offer examples of what that miniskirt "Girl you is very go you just try on"'
act'Opt_Out':gt 'sexshop','start'
	 act'try':
	 cla
	 *clr
	 set picrand=47
	 '<center><img src="img/centr/shprod1.jpg" ></center>'
	 'You wear a skirt out of the booth and vydya napravlyuetes to the mirror, You have no panties on and on so much short skirt that looks more like a belt completely covering anything and all your charms visible from all directions.
	 Go to the mirror you look at this so-called skirt, Seller kneels behind you and start praising naglazhivat your ass skirt, his hands already wander around your hips and lips as close to the buttocks when they said about touching your skin, Soon the word stop and remain only touch his lips to your skin, prilizhayuschiesya closer to her pussy.'
	 act'push him':gt 'sexshop','start'
	 act'let him':gt 'sex','kuni'
	 end
end
--- sexshop ---------------------------------

# shopdacha

'<center><B><font color=maroon>Shop Stores</font></B></center>'
'<center><img src="pic/shopdacha.jpg" ></center>'
'In this store you can buy a cottage in the co-op, a plot of land for cottage 1,5 million and pay for all the buildings.'
'All payments shop produces a bank card. On your map now <<karta>> rubles.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'GO_OUT':set minut = minut + 5&gt'torgcentr'
if hour < 8 or hour > 20:
'Shop is closed and you are asked to retire.'
else

	if karta>=30000 and dachaest=0:
		 act 'Buy a cottage for 30 thousand.rubles':
		 cls
		 karta-=30000
		 dachaest=1
		 minut+=15
		 etoexhib=0
		 gs'stat'
		 'You bought a house with a garden in a cottage on the co-op 5 km. along the northern road.'
		 act 'Get_Away':gt $curloc
		 end
	 end

	if karta>=1500000 and placeMansion=0:
		 act 'Buy land for cottage 1,5 million':
		 cls
		 karta-=1500000
		 placeMansion=1
		 minut+=5
		 gs'stat'
		 'You bought a plot cottage'
		 act 'Get_Away':gt $curloc
		 end
	end


	if karta>=500000 and placeMansion=1:
		 act 'Pay for supply of communications 500 sput':
		 cls
		 karta-=500000
		 placeMansion=2
		 minut+=5
		 gs'stat'
		 'You paid for a supply of communications to the site'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=1500000 and placeMansion=2:
		 act 'Pay for the construction of the building 1,5 million':
		 cls
		 karta-=1500000
		 placeMansion=3
		 minut+=5
		 gs'stat'
		 'You paid for the construction of housing mansion'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=500000 and placeMansion=3 and ymanrem[3]=0:
		 act 'Pay for the construction of rooms 500 sput':
		 cls
		 karta-=500000
		 ymanrem[3]=1
		 minut+=5
		 gs'stat'
		 'You paid for the construction of housing mansion'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=800000 and placeMansion>=2 and banaMansion=0:
		 act 'Pay for building baths 800 thousand':
		 cls
		 karta-=800000
		 banaMansion=1
		 minut+=5
		 gs'stat'
		 'You paid for the construction of housing mansion'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=500000 and placeMansion>=2 and bassMansion=0:
		 act 'Pay build basseynai 500 thousand':
		 cls
		 karta-=500000
		 bassMansion=1
		 minut+=5
		 gs'stat'
		 'You paid for the construction of swimming pools'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[3]=1:
		 act 'Pay for repairs hall 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[3]=2
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=150000 and placeMansion=3 and ymanrem[3]=2:
		 act 'Pay furniture for living room 150 thousand':
		 cls
		 karta-=150000
		 ymanrem[3]=3
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[4]=0:
		 act 'Pay for repairs bedroom 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[4]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=300000 and placeMansion=3 and ymanrem[4]=1:
		 act 'Pay furniture for bedroom 300 thousand':
		 cls
		 karta-=300000
		 ymanrem[4]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[5]=0:
		 act 'Pay for bathroom renovation 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[5]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[5]=1:
		 act 'Pay for furniture and fixtures for the bathroom 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[5]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture and sanitary ware.'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[6]=0:
		 act 'Pay for a kitchen renovation 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[6]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=350000 and placeMansion=3 and ymanrem[6]=1:
		 act 'Pay kitchen furniture 350 thousand':
		 cls
		 karta-=250000
		 ymanrem[6]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture for kitchen.'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[7]=0:
		 act 'Pay for repairs hall 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[7]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[7]=1:
		 act 'Pay furniture hall 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[7]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture for the hall'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[8]=0:
		 act 'Pay for repairs fireplace room 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[8]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[8]=1:
		 act 'Pay for the purchase of furniture for the fireplace room 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[8]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture.'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[9]=0:
		 act 'Pay repair a child`s room 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[9]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[9]=1:
		 act 'Pay for the purchase of furniture for children`s rooms 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[9]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[10]=0:
		 act 'Pay for repairs library 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[10]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[10]=1:
		 act 'Pay for the purchase of furniture for the library 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[10]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[11]=0:
		 act 'Pay for repairs gym 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[11]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[11]=1:
		 act 'Pay furniture for the gym 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[11]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture for the gym'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[12]=0:
		 act 'Pay for repairs Cabinet 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[12]=1
		 minut+=5
		 gs'stat'
		 'You pay for repairs'
		 act 'Get_Away':gt $curloc
		 end
	end

	if karta>=250000 and placeMansion=3 and ymanrem[12]=1:
		 act 'Pay for the purchase of furniture for the office 250 thousand':
		 cls
		 karta-=250000
		 ymanrem[12]=2
		 minut+=5
		 gs'stat'
		 'You pay for the purchase of furniture.'
		 act 'Get_Away':gt $curloc
		 end
	end





end
--- shopdacha ---------------------------------

# sportShop
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Sporting goods store.</font></B></center>'
'<center><img src="pic/sportshop.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'torgcentr'
     end
     
     act 'In the women`s clothing department':
     cla
     set minut = minut + 5
     gt'sportshop','clo'
     end
     
     if obruch = 0 and money >= 1500:
         act 'Buy hoop 1500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 1500
		 set obruch = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end
     
     if skak = 0 and money >= 500:
         act 'Buy rope 500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 500
		 set skak = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end
     
     if bookYog = 0 and money >= 1500:
         act 'Buy guide to yoga 1500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 1500
		 set bookYog = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end

end

if $ARGS[0]='clo':
cla
*clr
set mag=1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 5
'<center><B><font color=maroon>Department of women`s clothing.</font></B></center>'
'<center><img src="pic/sportshop.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'All clothing should 4000 RUB, sportswear dimensionless.'
act 'Get out of the department':
	 cla
	 set minut = minut + 5
	 gt'sportshop','start'
	 end
if money >= 4000:
	 if yoga[1] = 0:
		 act 'inspect 1th sportswear.':set numdres=1&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[2] = 0:
		 act 'inspect 2th sportswear.':set numdres=2&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[3] = 0:
		 act 'inspect 3th sportswear.':set numdres=3&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[4] = 0:
		 act 'inspect 4th sportswear.':set numdres=4&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[5] = 0:
		 act 'inspect 5th sportswear.':set numdres=5&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[6] = 0:
		 act 'inspect 6th sportswear.':set numdres=6&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[7] = 0:
		 act 'inspect 7th sportswear.':set numdres=7&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[8] = 0:
		 act 'inspect 8th sportswear.':set numdres=8&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[9] = 0:
		 act 'inspect 9th sportswear.':set numdres=9&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[10] = 0:
		 act 'inspect 10th sportswear.':set numdres=10&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[11] = 0:
		 act 'inspect 11th sportswear.':set numdres=11&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[12] = 0:
		 act 'inspect 12th sportswear.':set numdres=12&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[13] = 0:
		 act 'inspect 13th sportswear.':set numdres=13&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[14] = 0:
		 act 'inspect 14th sportswear.':set numdres=14&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[15] = 0:
		 act 'inspect 15th sportswear.':set numdres=15&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[16] = 0:
		 act 'inspect 16th sportswear.':set numdres=16&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[17] = 0:
		 act 'inspect 17th sportswear.':set numdres=17&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[18] = 0:
		 act 'inspect 18th sportswear.':set numdres=18&payclo=4000&gt'loker','yoga'
		 end
	 end
end
--- sportShop ---------------------------------

# stripclub
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Strip club</font></B></center>'
'<center><img src="pic/stripclub.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
Set scrand = RAND (1,100)
if scrand <= 40 and stripday ! day:
set stripday = day
Set cfnm = 1
end
if scrand > 40 and stripday ! day:
set stripday = day
Set cfnm = 0
end
if cfnm = 1:'Today in the program, The Full Monty, admission ticket 500 RUB.'
if cfnm = 0:'Today in the program, striptease, admission ticket 500 RUB.'
act 'GO_OUT':
	 cla
	 set minut = minut + 5
	 gt'down'
	 end

	 if stripdolg>0 and money>=50000:
		 act 'pay a fine 50000 RUB':
			 set stripdolg=0
			 set money-=50000
			 gt'stripclub','start'
			 end
		 end
     
     
     if stripdolg=0:
     
     if cfnm = 1 and money >= 500 and hour < 23:
         act 'pay 500 rubles and enter':
		 cla
		 set money = money - 500
		 set minut = minut + 5
		 frost=0
		 gt'stripclub','forwoman'
		 end
     end
     if cfnm = 0 and money >= 500 and hour < 23:
         act 'pay 500 rubles and enter':
		 cla
		 set money = money - 500
		 set minut = minut + 5
		 frost=0
		 gt'stripclub','forman'
		 end
     end
     if stripdance>0 and stripwork=0:
         act 'Talk to the manager of the stripper':
		 cla
		 set minut = minut + 15
		 gs'stat'
		 'You performed in the manager`s office. In the office, the young man asked you to sit down and began to question. "We work every day with 15 prior_to 2x night. Sometimes there are days male striptease. Strippers we do not pay, only provide costumes. This is to ensure that there was an incentive to earn a tip. Just stripper can dance lap dance for a fee the client, but it should be of interest to the client, with each lap dance stripper gets 800 rubles, 200 is the club, can not otkazyvatsya from private dance. And if a lap dance is a solid stripdens, then dance on stage involves a lot of work on the pole. If you can not dance on a pole, it is better not pozortes. With the change of I do not hurry, strippers come themselves when they want to work. Schedule absolutely free, I just do not need your work, therefore work as a stripper can be combined with other types of work. Well? satisfied?"'
		 act 'No':gt'stripclub','start'
		     act 'Yes_I_Am':
		     cls
		     stripwork=1
		     'Yes_I_Am, I was happy with everything you nodded. The manager will take you to the fitting room and showed a woman who is responsible for the costumes. He introduced you to the chief of protection, who prescribed you the Propus and left leaving you.'
		     if cfnm = 0:act 'Osmatrivatsya':gt'stwork','start'
		         if cfnm = 1:
		         'Today in the program male striptease, so some guys behind the scenes.'
		         act 'Go_Out':gt'stripclub','start'
		         end
		     end
		 end
     end
     
     if cfnm = 0 and stripwork>0:
     act 'Go to the locker room':frost=0&gt'stwork','start'
     elseif cfnm>0 and stripwork>0:
     'Today there is no work, The Full Monty.'
     end
     
     end
     

end

if $ARGS[0]='forman':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Strip club</font></B></center>'
'<center><img src="pic/stripclub1.jpg" ></center>'
clr
gs'stat'
'On the stage in the main hall are the girls undress to the music, there is a service privat dance, cost 1000 rubles for dance.'

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'stripclub','start'
     end
     
     if hour < 23:
         act 'Sit down at a table near the stage and watch striptease':gt'stripclub','stol'
         if money >= 1000:
         act 'Order a lap dance (1000 RUB)':gt'stripclub','privat'
         end
       	 if money>=5000:
		 act 'Request special shows':
			 set stprrand=rand(0,1)
			 if stprrand=0:gt 'stripclub','stpr1'
			 if stprrand=1:gt 'stripclub','stpr2'
			 end
		 end
     end
end

if $ARGS[0]='privat':
cla
*clr
set money = money - 1000
set minut = minut + 60
set horny = horny + 25
set DOM = DOM + 1
clr
gs'stat'
set privrand=RAND(0,4)
if privrand=0:
	 '<center><img src="img/centr/priv2.jpg" ></center>'
	 'During girl keen on and begin frankly you caress.'
	 act 'End_Up':gt'stripclub','forman'
	 act 'let them':gt'stripclub','privsex'
	 end
if privrand>0:
	 '<center><img src="pic/privat.jpg" ></center>'
	 'The girls are very hot dance around you, you feel as an aphrodisiac.'
     if money >= 1000:
     act 'Another lap dance (1000 RUB)':gt'stripclub','privat'
     end
     act 'Leave the scene':gt'stripclub','forman'
     end
end

if $ARGS[0]='stol':
cla
*clr
clr
gs'stat'
'<center><img src="pic/stripclub2.jpg" ></center>'
'On the stage lit girl dancing and undressing smartly before intense male audience.'

     act 'See striptease':
     cla
     *clr
	 clr
	 gs'stat'
	 set minut = minut + 15
     '<center><img src="pic/stripclub4.jpg" ></center>'
     'About you girl dancing on the tip clearly raschityvaya.'
         if money >= 50:
             act 'shove it 50 rubles':
			 cla
			 *clr
			 set horny = horny + 5
			 set minut = minut + 15
			 set money = money - 50
			 '<center><img src="pic/stripclub6.jpg" ></center>'
			 'you stuck 50 rubles stripper panties and she invitingly start wagging her hips and shake tits in front of you, you feel like you slowly start to get excited.'
			 act 'further':gt'stripclub','stol'
			 end
         end
         
         act 'downcast eyes':
         cla
         set horny = horny - 5
         set minut = minut + 15
         'You decided not to give money to a stripper and took from her eyes, you a bit of a shame and excitement decreases.'
         act 'further':gt'stripclub','stol'
         end
     end
     
     act 'Move away from the scene':gt'stripclub','forman'
end


if $ARGS[0]='forwoman':
cla
*clr
stripguy=0
set minut = minut + 5
'<center><B><font color=maroon>Strip club</font></B></center>'
'<center><img src="pic/stripclub1.jpg" ></center>'
clr
gs'stat'

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'stripclub','start'
     end
     
     if hour < 23 and zenit>0 and minifoto=0:
		 act 'photograph':
			 set minut+=10
			 'As soon as you get the camera as you immediately approached security guard, and said that there can not be removed, you apologize and hiding camera in her purse.'
			 end
		 end
	 
	 if hour < 23 and minifoto>0:
		 act 'photograph':
			 cla
			 set minut+=60
			 'Did you get a mini camera and start shooting carefully walking through the hall.'
			 set stripfotorand=rand(0,10)
			 if stripfotorand<2:
				 set minifoto=0
				 set stripdolg=1
				 'For you fit and strong security guard took you by the hand leads to the exit, output is waiting for administrator, it takes you a camera, and says that you are fine 50000 RUB. and as long as you do not pay to join the club will not be able.'
				 act'Go_Out':gt'stripclub','start'
				 end
			 if stripfotorand>=2 and stripfotorand<6:
				 set shantfoto+=1
				 'You can not do it normally take a picture, then surrounding the girl overshadow review, then the guard comes very close, but in the end you still manage to make a normal picture.'
				 act'Go_Out':gt'stripclub','start'
				 end
			 if stripfotorand>=6:
				 'You can not do it normally take a picture, then surrounding the girl overshadow review, then the guard comes very close.'
				 act'Go_Out':gt'stripclub','start'
				 end
			 end
		 end
     
     if hour < 23:
         act 'Sit down at a table near the stage and watch striptease':gt'stripclub','stolW'
     end
end

if $ARGS[0]='stolW':
cla
*clr
clr
gs'stat'
stripguy=0
'<center><img src="picVA/stripW.jpg" ></center>'
'Appeared on the scene and athletic guys inflated, girls squeal and pop them money in the melting.'
     if hour < 23:
		 act 'See striptease':
		 cla
		 *clr
		 clr
		 gs'stat'
		 set minut = minut + 15
		 '<center><img src="picVA/stripW1.jpg" ></center>'
		 'To you came stripper and hug you.'
			 if money >= 50:
				 act 'shove it 50 rubles':
				 cla
				 *clr
				 set horny = horny + 5
				 set minut = minut + 15
				 set money = money - 50
				 '<center><img src="picVA/stripW2.jpg" ></center>'
				 'you stuck 50 rubles strippers and He sat on a chair you began to dance in front of you, He pulled off the melting and you will see him risen member. Stripper took you for your chest and tries to get her out from under the blouse.'
				 act 'terminate':gt'stripclub','stolW'
				 !act 'Hand touch dick':gt'cfnm','start'
				 act 'Let him expose your breasts':gt'cfnm','start'
				 end
			 end
			 
			 act 'downcast eyes':
			 cla
			 set horny = horny - 5
			 set minut = minut + 15
			 'You decided not to give money to a stripper and looked away from him, you a bit of a shame and excitement decreases.'
			 act 'further':gt'stripclub','stolW'
			 end
		 end
     end
     
     act 'Move away from the scene':gt'stripclub','forwoman'
end

if $ARGS[0]='privsex':
cla
*clr
set horny=0
set orgasm+=1
'<center><img src="img/centr/priv3.jpg" ></center>'
'You widely spreads her legs and now one lick your pussy, bringing you to orgasm, and the other continues to caress the body.'
act 'End_Up':gt'stripclub','forman'
act 'yet':gt'stripclub','privsex1'
end

if $ARGS[0]='privsex1':
cla
*clr
set girl+=2
set lesbian+=1
set privpicrand=RAND(4,7)
'<center><img src="img/centr/priv<<privpicrand>>.jpg" ></center>'
'You caress each other.'
act 'End_Up':gt'stripclub','forman'
if hour >23:
act 'yet':gt'stripclub','privsex1'
end
end

if $ARGS[0]='stpr1':
cla
*clr
set horny+=30
'<center><img src="img/centr/prsex1.jpg" ></center>'
'In the room consists of two girls with strapon, and start fucking each other.'
act 'End_Up':gt'stripclub','forman'
act 'join':
	 cla
	 *clr
	 set SUB+=3
	 set girl+=2
	 set lesbian+=1
	 set sex+=1
	 set anal+=1
	 '<center><img src="img/centr/prsex2.jpg" ></center>'
	 'You undress and kneels in front of girls, they surround you and con Strap to your face, Strap vskhvativ you start them greedily suck, licking the remnants of their juices.'
	 act 'get cancer':
		 cla
		 *clr
		 '<center><img src="img/centr/prsex3.jpg" ></center>'
		 'You get up with cancer and one of the girls comes to you in the pussy while you continue to suck the second.'
		 act'In Two Smoking Barrels':
			 cla
			 *clr
			 set horny=0
			 set orgasm+=1
			 '<center><img src="img/centr/prsex4.jpg" ></center>'
			 'You sodites one of the threesome and the second girl comes to you in the ass, They fuck you in both holes leading up to orgam.'
			 act'further':
				 cla
				 *clr
				 set cumlip+=1
				 set cumface+=1
				 set cumbrest+=1
				 '<center><img src="img/centr/prsex5.jpg" ></center>'
				 'When you are finished, girls get up above you and from their threesome poured liquid, the taste is very similar to sperm, it is poured into your mouth, on the face and chest.'
				 act 'End_Up':gt'stripclub','forman'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='stpr2':
cla
*clr
set girl+=2
set lesbian+=1
'<center><img src="img/centr/prsex6.jpg" ></center>'
'In the room consists of two girls with a strap-on in his hands, they strip you and freeze in anticipation of your wishes.'
act 'fuck them':
	 cla
	 *clr
	 set DOM+=3
	 '<center><img src="img/centr/prsex7.jpg" ></center>'
	 'You wear the strap, and the girls kneel and begin to suck it.'
	 act 'fuck them':gt'stripclub','stpr3'
	 end
act 'surrender':
	 cla
	 *clr
	 set SUB+=3
	 '<center><img src="img/centr/prsex8.jpg" ></center>'
	 'You get up on his knees, and girls dress Strap and give you their sucking, you with joy and do.'
	 act 'surrender':gt'stripclub','stpr4'
	 end
end

if $ARGS[0]='stpr3':
cla
*clr
set horny=0
set orgasm+=1
set prsexrand=rand(9,13)
'<center><img src="img/centr/prsex<<prsexrand>>.jpg" ></center>'
'You`re fucking them as your soul wants, eventually ends themselves.'
if hour >23:
act 'yet':gt'stripclub','stpr3'
end
act 'End_Up':gt'stripclub','forman'
end

if $ARGS[0]='stpr4':
cla
*clr
set horny=0
set orgasm+=1
set prsexrand=rand(14,19)
'<center><img src="img/centr/prsex<<prsexrand>>.jpg" ></center>'
'They twirl as you want, fucking something together that one, in the end you end.'
if hour >23:
act 'yet':gt'stripclub','stpr4'
end
act 'End_Up':gt'stripclub','forman'
end
--- stripclub ---------------------------------

# stwork
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 5
stripMir = 1
'<center><B><font color=maroon>Locker room for strippers</font></B></center>'
'<center><img src="pic/striprazd.jpg" ></center>'
'On the wall a lot of <a href="exec:GT ''mirror'',''start''">mirrors</a> to whom <a href="exec:dynamic $stripgirl">girls</a> brush up before performances.'
'<a href="exec:stripMir = 0&GT ''stripclub'',''start''">no perceptible, steel door</a> in the hallway out to the back yard and all the staff walks through the door to work, and not through the front entrance. About this input is always <a href="exec:dynamic $stripohr">security_guard</a>.'
'For wooden door located <a href="exec:dynamic $striptoilet">toilet for staff</a>' 
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if tatplech>0:stripKoef=RAND(1,3)
if tatback>0:stripKoef2=RAND(1,3)
if tatback>0:stripKoef3=RAND(1,3)
if tatupb>0:stripKoef4=RAND(3,6)
if tatleg>0:stripKoef5=RAND(1,3)
publichot=vnesh-10+stripKoef+stripKoef2+stripKoef3+stripKoef4+stripKoef5
publichotstart=publichot
if hour >= 15 or hour<=2:
     if mop>=4:
         if hapri = 1:
             if sweat<=0:
                 if leghair <= 0 and lobok<=0:
                     if fingal<=0:
                     act 'Go on stage':stpredmet=3&gt'stwork2'
                     else
                     'With such a black eye as you, on stage doing nothing.'
                     end
                 else
                 'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
                 end
             else
             'Jesus, yes you also stinks like a horse, must first wash.'
             end
         else
         'Can not be such a disheveled hair pokazyvatsya in public.'
         end
     else
     'Need to work very caller makeup.'
     end
     
else
'Working time is over. It`s time to go home.'
end


$stripgirl={
cls
gs'stat'
striptalkrand=RAND(0,10)
if striptalkrand=0:$striptalk='heard? Then somehow came one Devchenka, all so beautiful, but came to the stage, complete zero, did not know how, so it only booed.'
if striptalkrand=1:$striptalk='I `m telling you, men give birth to girls with tattoos.'
if striptalkrand=2:$striptalk='On a pole over much more profitable than just dancing striptease, easier to excite the customer, but this is quite difficult to pole.'
if striptalkrand=3:$striptalk='Fuh, they do not go out on stage, back all sweaty, disheveled hair and makeup certainly splyvet. Here one can be ruined cosmetics.'
if striptalkrand=4:$striptalk='In general, on the stage .'
if striptalkrand=5:$striptalk='There was one ugly Devchenka, came on the scene, Let`s just her boo, but as the beginning revolves around a pole, customers jaw fell off, well it `s not bad earned.'
if striptalkrand=6:$striptalk='And why the manager never says, male or female day? I recently rushed to work, even broke a nail, seek_refuge, and here these bears are jumping on stage. Turned around and went back.'
if striptalkrand=7:$striptalk='Some dechonki told that they had problems arise because of the work. For many stritizersha still a whore.'
if striptalkrand=8:$striptalk='There is one fat woman trying on a pole dance, so flopped muzzle on the floor and put a strong bruise.'
if striptalkrand=9:$striptalk='Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but did not help.'
if striptalkrand=10:$striptalk='I heard a decent clubs abroad strippers themselves pay for the right to work in a club.'
'Girls are engaged in their appearance before the mirror fun talking about all sorts of trivia.'
'<<$striptalk>>'
act 'move_away':gt $curloc,'start'
}

$stripohr={
cls
gs'stat'
'Burly security guard at the door misses. Seeing you  "Hello World."'
act 'move_away':gt $curloc,'start'
}


$striptoilet2={
cls
gs'stat'
'You rinsed the razor, blade which will suffice for <<stanok>> time.'
     if leghair > 0 and stanok > 0:
		 act 'shave your legs 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set leghair = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 '<center><img src="pics/shave.jpg" ></center>'
		 'You lathered up and shaved off the hair with them.'
		 act 'postpone the machine':dynamic $striptoilet2
		 end
     end
     if lobok > 0 and stanok > 0:
		 act 'Shaved 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set lobok = -5
		 set horny = horny + 5
		 set stanok = stanok - 1
		 '<center><img src="pics/shave3.jpg" ></center>'
		 'You lathered pubis, then shaved off his hair all.'
		 act 'postpone the machine':dynamic $striptoilet2
		 end
     end
act 'Get out of the shower and get dressed':dynamic $striptoilet
}


$striptoilet={
cls
'<center><img src="LakeCafe/Toilet.jpg" ></center>'
'Dirty and smelly toilet, wherein, seems, never cleaned'
gs'stat'

     if tanga=1:
     act 'Remove underwear':
     cla
     set tanga = 0
     dynamic $striptoilet
     end
     end
     
     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':dynamic $striptoilet
         end
     end
     
     if mop!1:
         act 'wash off makeup':
         cla
         *clr
         minut+=5
         mop=1
         '<center><img src="pic/mop.jpg" ></center>'
         'You washed the makeup.'
         act 'Go_Out':dynamic $striptoilet
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':dynamic $striptoilet
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':dynamic $striptoilet
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':dynamic $striptoilet
				 end
             end
         end
     end
     
     act 'take a shower 15 min':
     cla
     *clr
     set minut = minut + 15
     set sweat = -3
     set horny = horny + 1
     set hapri = 0
     set mop = 1
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus = 0
     set cumlip = 0
     set cumface = 0
     set cumanus =0
     '<center><img src="pics/dush.jpg" ></center>'
     'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
         if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
         act 'get razor':dynamic $striptoilet2
         end
         if horny >= 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = 0
             set minut = minut + 30
             set mastr = mastr + 1
             set orgasm = orgasm + 1
			 set manna = manna + 15
			 set willpower = willpower + 15
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
             act 'Out of the bathroom and get dressed':dynamic $striptoilet
             end
         end
         if horny >= 40 and hormy < 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = horny + 5
             set minut = minut + 30
			 set manna = manna + 10
			 set willpower = willpower + 10
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. First, but after a while it became even as it hurts. Excitation asleep and you stop masturbating.'
             act 'Out of the bathroom and get dressed':dynamic $striptoilet
             end
         end
         
     act 'Get out of the shower and get dressed':dynamic $striptoilet
     end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
     act 'substitution 15 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus =0
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm with yourself.'
     act 'Go_Out':dynamic $striptoilet
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 15 min':
     cla
     *clr
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':dynamic $striptoilet
     end
end

if cumfrot > 0:
     act 'Wipe the cum from clothes 15 min':
     cla
     *clr
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 15
     !'<center><img src="pic/facesp.jpg" ></center>'
     'You have erased the traces of semen from clothing.'
     act 'Go_Out':dynamic $striptoilet
     end
end

act 'Exit out of the closet':gt $curloc,'start'
}

end































--- stwork ---------------------------------

# stwork2
!set minut = minut + 15
'<center><B><font color=maroon>scene</font></B></center>'
'<center><img src="pic/stripclub1.jpg" ></center>'
if publichot<10:$pubhot='and you boo, heard screams "remove this stupid cow"'
if publichot>=10 and publichot<20:$pubhot='and you boo'
if publichot>=20 and publichot<30:$pubhot='and frankly bored Catching a drink and talk to each other'
if publichot>=30 and publichot<60:$pubhot='sometimes throws at you views accompanied by smiles'
if publichot>=60 and publichot<70:$pubhot='and legim interest examined you and conduct conversations with each other over a beer'
if publichot>=70 and publichot<80:$pubhot='with interest to examine you'
if publichot>=80 and publichot<90:$pubhot='with strained faces, some even noticeable sweat on their foreheads'
if publichot>=90:$pubhot='forgotten about their drinking, hooting and shaking money'
'Men sitting in front of the stage <<$pubhot>>.'
clr
gs'stat'
$pubhotdi={
if publichot<30:payrand=0&'No one paid any attention to your movements on stage.'
if publichot>=30 and publichot<60:payrand=0&'A couple of people looked at you but no more, tips you did not give a.'
if publichot>=60 and publichot<70:
payrand=RAND(0,1)
     if payrand=0:'A couple of people looked at you but no more, tips you did not give a.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
if publichot>=70 and publichot<80:
payrand=RAND(0,5)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end

if publichot>=80 and publichot<90:
payrand=RAND(0,10)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=6:
     paymoneyrand=RAND(7,12)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=7:
     paymoneyrand=RAND(10,15)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=8:
     paymoneyrand=RAND(15,20)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=9:
     paymoneyrand=RAND(20,30)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=10:
     paymoneyrand=RAND(30,50)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
if publichot>=90:
payrand=RAND(0,15)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=6:
     paymoneyrand=RAND(7,12)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=7:
     paymoneyrand=RAND(10,15)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=8:
     paymoneyrand=RAND(15,20)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=9:
     paymoneyrand=RAND(20,30)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=10:
     paymoneyrand=RAND(30,40)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=11:
     paymoneyrand=RAND(40,50)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=12:
     paymoneyrand=RAND(50,60)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=13:
     paymoneyrand=RAND(60,70)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=14:
     paymoneyrand=RAND(70,80)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=15:
     paymoneyrand=RAND(80,100)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
}

if hour >= 15 or hour<=2:
     if stpredmet>0:
		 act 'striptease 5 minutes (<<stpredmet>> garments)':
		 cls
		 minut+=5
		 stpredmet-=1
		 sweat+=1
		 fat-=3
		 manna-=RAND(5,10)
		 if stpredmet=1:sweat+=1
		 if stpredmet=0:hapri=0&stripdancesum+=1
		 publichot+=RAND(stripdance/30,stripdance/10)
		 if publichotstart=publichot:publichot-=RAND(5,10)&publichotstart=publichot
		 gs'stat'
		 '<center><img src="pic/stripclub2.jpg" ></center>'
		 'You danced on stage before an audience undressing.'
		 	 if ves>rost-90:
		     vesrand=RAND(0,100)
		         if vesrand>=75:
		         publichot-=RAND(5,10)
		         'In the hall laugh at you, "Look how fat she hang. Yeah and ass shaking like jelly."'
		         end
		     end 
		 dynamic $pubhotdi
		 act 'further':gt $curloc
		 end
		 
		 act 'Dancing around the pole 5 minutes (<<stpredmet>> garments)':
		 cls
		 minut+=5
		 stpredmet-=1
		 sweat+=2
		 fat-=5
		 manna-=RAND(10,50)
		 if stpredmet=1:hapri=0
		 if stpredmet=0:mop=0&stripdancesum+=1
		 hapri=0
		 publichot+=RAND(stripdance/20,stripdance/5)+ RAND(poledance/20,poledance/5)
		 if publichotstart=publichot:publichot-=RAND(5,10)&publichotstart=publichot
		 gs'stat'
		 '<center><img src="pic/strippole.jpg" ></center>'
		 'You danced around a pole showing acrobatics and erotic undressing in public.'
		     if ves>rost-90:
		     vesrand=RAND(0,100)
		         if vesrand>=75:
		         'Performing another trick on a pole . The crowd laughed "Hey hippopotamus, stamp into a swamp where it came from."'
		         publichot=15
		         fingalrand=RAND(0,100)
		             if fingalrand>=75:
		             fingal+=RAND(2,5)
		             'When you fall.'
		             end
		         end
		         if vesrand>=50:
		         publichot-=RAND(5,10)
		         'In the hall laugh at you, "Look how fat she hang. Yeah and ass shaking like jelly."'
		         end
		     end 
		 dynamic $pubhotdi
		 act 'further':gt $curloc
		 end
     end
     
     if stpredmet=0:
         if publichot>=80 and publichot<90:
         privatrand=RAND(0,100)
             if privatrand>=90:
             'After the dance.'
             dynamic $privatdancedi
             exit
             end
         end
         if publichot>=90:
          privatrand=RAND(0,100)
             if privatrand>=70:
             'After the dance.'
             dynamic $privatdancedi
             exit
             end
         end
     
     end



else
'Working time is over. It`s time to go home.'
end


act 'Quit the stage':gt'stwork','start'

$privatdancedi={
act 'Go for a lap dance':
cls
minut+=30
money+=800
sweat=1
hapri=0
mop=0
fat-=5
stripdancesum+=1
if stprrand=0:gt'stwork2','pr1'
if stprrand=1:gt'stwork2','pr2'
if stprrand=2:gt'stwork2','pr3'
gs'stat'
'<center><img src="pic/privatstrip.jpg" ></center>'
'In a separate room to the music you within half an hour showed different erotic dancing client.'
act 'Go into the locker room':gt'stwork','start'
end
}


if $ARGS[0] = 'pr1':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr1.jpg" ></center>'
'Do you dance in front of the guys chetyrmya, after some time they offer you, serve them in full for 5000 RUB.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set gang+=1
	 set guy+=4
	 set picrand=12
	 set money+=5000
	 gt'paysex','var'
	 end
end

if $ARGS[0] = 'pr2':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr2.jpg" ></center>'
'Do you dance in front of boyfriend, until he Fingering, he soon offers, serve it in full for 3000 RUB.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set guy+=1
	 set picrand=39
	 set money+=3000
	 xgt'sex','var'
	 end
end

if $ARGS[0] = 'pr3':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr3.jpg" ></center>'
'You portray another dancer leysbiyskie games, after a few minutes you are offered to make your games more realistic for 2000rubles each.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set girl+=1
	 set lesbian+=1
	 set picrand=18
	 set money+=2000
	 xgt'lezbsex','var'
	 end
end










--- stwork2 ---------------------------------

# torgcentr
gs 'stat'
'<center><B>Commerce-entertainment Center</B></center>'
'<center><img src="img/centr/torgcentr.jpg" ></center>'
'<a href="exec:GT ''young_shop''">shop Keys-pussy</a>.'
if hour >= 8 and hour <= 20:
'elitist <a href="exec:GT ''butik'',''start''">boutique</a> with fashionable and expensive clothes.'
'<a href="exec:GT ''salon'',''start''">beauty salon</a>.'
'<a href="exec:GT ''sportShop'',''start''">sporting goods store</a>.'
'<a href="exec:GT ''zoomagazine'',''start''">pet-shop</a>.'
'<a href="exec:GT ''shopdacha''">Shop Stores</a>.'
'<a href="exec:gt''bouling''">bowling</a>, <a href="exec:gt''billiard''">billiard</a> and <a href="exec:gt''kino''">theater</a>.'
'On the ground floor is located <a href="exec:GT ''shop'',''start''">network supermarket</a> takoyzhe in a residential area.'
end
act 'Get_Away':gt'down'
--- torgcentr ---------------------------------

# univer
if $ARGS[0]='start':
$sexloc = $CURLOC
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>university</font></B></center>'
'<center><img src="pic/univer.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if student = 0 and abiturient = 0:'Preparatory courses cost 15 thousand'
'Examinations for admission to the university held in August.'
'All lectures begin with 8 hours, latecomers to the lectures are not allowed.'
if student > 0:'You learn in <<semestr>> semester <<kurs>> exchange_rate'
if abiturient = 1:'you applicant.'
     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age>=17:
     ''
         act 'Pay preparatory courses 15 sput':
		 cla
		 set minut = minut + 5
		 set money = money - 15000
		 set abiturient = 1
		 'you paid 15 thousands of training courses. Classes start in 21h, on weekdays'
		 act 'move_away':gt'univer','start'
		 end
     
     end
     
     if abiturient >= 1 and month < 9 and hour < 21 and week < 6:
         act 'Engage in preparatory courses':
		 cla
		 *clr
		 set minut = minut + 60
		 set abiturient = abiturient + 1
		 set intel = intel + 1
		 '<center><img src="pic/Classroom.jpg" ></center>'
		 'You are engaged in preparatory courses within an hour.'
		 act 'Get out of class':gt'univer','start'
		 end
     end
     
     if month = 8 and student = 0 and diplom = 0 and age>=17:
     'You can try to pass an entrance exam.'
         act 'Entrance exams':
		 cla
		 *clr
		 set minut = minut + 60
		 '<center><img src="pic/Classroom.jpg" ></center>'
		 'You take the entrance exam to the University.'
		     if intel + abiturient >= 100:
		     set student = 1
		     set kurs = 1
		     set semestr = 1
		     set abiturient = 0
		     'You have successfully passed the entrance exams and can start training in September.'
		     else
		     'You failed the entrance exams.'
		     end
		 act 'Get out of class':gt'univer','start'
		 end
     end
     
     if week < 6 and student > 0 and month > 8 and month < 12:
     ! 1semester
         act 'Go to the dean':
         cla
         if semestr = 2 and examen = 0:set examen = 2
         gt'univer','dekanat'
         end
     end
     if week < 6 and student > 0 and month > 1 and month < 5:
     ! 2semester
         act 'Go to the dean':
         cla
         if semestr = 1 and examen = 0:set examen = 2
         gt'univer','dekanat'
         end
     end
     if week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
     ! 1Semester exams
     act 'Go for exams':gt'univer','examen'
     end
     if week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
     ! 2Semester exams
     act 'Go for exams':gt'univer','examen'
     end

end


if $ARGS[0]='dekanat':
$sexloc = $CURLOC
cla
*clr

if examen = 1:
set examen = 0
     if semestr = 2:
     set semestr = 1
     set kurs = kurs + 1
     end
     if semestr = 1:
     set semestr = 2
     end
end

if kurs = 2:
set diplom = 1
set student = 0
set kurs = 0
set semestr = 0
set abiturient = 0
set stipuha = 0
'YOU awarded a diploma.'
end

if examen = 2:
set student = 0
set kurs = 0
set semestr = 0
set abiturient = 0
set stipuha = 0
set lektor = 0
'YOU expelled from university.'
end

set minut = minut + 5
'<center><B><font color=maroon>deanery</font></B></center>'
'<center><img src="pic/dekanat.jpg" ></center>'
clr
gs'stat'
'You learn in <<semestr>> semester <<kurs>> exchange_rate'
'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
if kursovikD > 0:'you passed <<kursovikD>> coursework.'


act 'Escape from the dean`s office':gt'univer','start'
     if hour < 8 and student > 0:
         act 'at the lecture':
         cla
         *clr
         set minut = minut + 360
         set hour = 14
         set minut = 0
         set lektor = lektor + 1
         set intel = intel + 1
         '<center><img src="pic/Classroom1.jpg" ></center>'
         'You were sitting in lectures and recorded for teacher synopsis.'
         set zanrand=rand(0,9)
		 if zanrand=0:
			 set minut+=60
			 'During class lecturer starts you ask, but you did not really say can not, and he says that-Would you stayed after school.'
			 'classes ended, but you have to stay.'
			 act'To remain in the classroom':
				 cla
				 *clr
				 zanpicrand=rand(1,3)
				 '<center><img src="img/oldtown/zan<<zanpicrand>>.jpg"></center>'
				 'After the class teacher of an hour explains to you subject.'
				 act'Get_Away':gt'univer','dekanat'
				 act'seduce':
					 cla
					 *clr
					 if zanpicrand=1:set picrand=44
					 if zanpicrand=2:set picrand=45
					 if zanpicrand=3:set picrand=46
					 '<center><img src="img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
					 'You grab his dick, He reflexively pulls back, but then relaxes and allows you to continue.'
					 act'blow_job':gt'sex','minet'
					 end
				 end
			 end
		 if zanrand=1:
			 set minut+=60
			 'During class lecturer starts you ask, but you did not really say can not, and he says that-Would you stayed after school.'
			 'classes ended, but you have to stay.'
			 act'To remain in the classroom':
				 cla
				 *clr
				 zanpicrand=rand(4,6)
				 '<center><img src="img/oldtown/zan<<zanpicrand>>.jpg"></center>'
				 'After the class teacher of an hour tells you another girl the importance of its subject.'
				 act'Get_Away':gt'univer','dekanat'
				 act'seduce':
					 cla
					 *clr
					 if zanpicrand=4:set picrand=20
					 if zanpicrand=5:set picrand=21
					 if zanpicrand=6:set picrand=22
					 '<center><img src="img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
					 'You go down on his knees and grabs his dick, second girl looks at you with round eyes, but then also starts to stick to the teacher to, the first bit resists, but then completely given into your hand.'
					 act'blow_job':gt'podrsex','var'
					 end
				 end
			 end
         act 'Withdraw from the audience':gt'univer','dekanat'
         end
     end
     
     if kursovik >= 100:
         act 'Rent out your course work':
         cla
         *clr
         set intel = intel + 1
         set kursovik = 0
         set kursovikD = kursovikD + 1
         '<center><img src="pic/Classroom1.jpg" ></center>'
         'You passed the course work.'
         act 'Withdraw from the audience':gt'univer','dekanat'
         end
     end

end

if $ARGS[0]='examen':
cla
*clr
set minut = minut + 60
'<center><B><font color=maroon>exam</font></B></center>'
'<center><img src="pic/examen.jpg" ></center>'
clr
gs'stat'
     if lektor > 55 and kursovikD >= kurs:
     set examen = 1
     set kursovikD = 0
     set stipuha = 1
     set lektor = 0
     !1200
     'You are well attended classes and you do not have arrears of coursework, so the exam you put a gun.'
     
     jump 'exitexamem'
     end
     if ((intel>=80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
     set examen = 1
     set kursovikD = 0
     set stipuha = 0
     'You have answered all the questions in the ticket and you do not have arrears of coursework, so the exam you score?.'
     set lektor = 0
     act 'Withdraw from the audience':gt'univer','dekanat'
	 exit
	 end
     if (intel>=100) and kursovikD >= kurs + 10:
     set examen = 1
     set kursovikD = 0
     set stipuha = 1
     'You have shown great zeal and self- learning, so the exam you put a gun.'
     set lektor = 0
     jump 'exitexamem'
	 !exit
	 end
     if (intel<70 and lektor <= 40) or kursovikD < kurs:
     set examen = 2
     set stipuha = 0
     'You do not pass the exam.'
     end
     if examen = 0:
     set examen = 2
     set stipuha = 0
     'You do not pass the exam.'
     end
:exitexamem
act 'Withdraw from the audience':gt'univer','dekanat'
end
--- univer ---------------------------------

# yarik
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Apartment businessman Jaroslav</font></B></center>'
'<center><img src="yaroslav/3609.11_paradniy_pod-ezd.jpg"></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	 act 'Ring the doorbell':
	 cla
	     if hour >= 16 and hour <=17 and yaq = 1:
	     'You`ve reached the door and you discover'
	     act 'Go to the apartment':gt'yarik','yaqw'
	     else
		 'You`ve reached the door but no one answers.'
			 act 'Get_Away':
			 cla
			 set minut = minut + 5
			 gt'down'
			 end
		 end
	 end

end

if $ARGS[0]='yaqw':
cla
*clr
'<center><img src="yaroslav/1365154132_studentka-ischet-rabotu-1.jpg" width=750 height=450 ></center>'
'Oh, Sveta! hello! Come. - said Yaroslav.'
     act 'Come and listen to Yaroslav':
     cla
     *clr
     '<center><img src="yaroslav/1365154130_studentka-ischet-rabotu-2.jpg" width=750 height=450 ></center>'
     'I need you wiped the dust, removed the socks, and wash clothes.'
		 act 'Fair_Enough':
		 set minut = minut + 20
		 cla
		 '<b>You cleaned the apartment to Yaroslav, while he was sitting at what-papers and read them.</b>'
		 'Suddenly he came to you. Svetsik, can go wipe tile in the bathroom?'
		 clr
		 gs'stat'
			 act 'Excuse_Me, I can not, need to run':
			 cla
			 set minut = minut + 120
			 set manna = manna + 50
			 set money = money + 2000
			 set uborkayar = uborkayar + 1
			 'I dare you not to delay. Here are your 2 pieces. Come again, if you want to. visit.'
			 gt'down'
			 end
			 
			 act 'Ok':
			 set minut = minut + 10
			 cla
			 *clr
			 '<center><img src="yaroslav/1365154198_studentka-ischet-rabotu-3.jpg" width=750 height=450 ></center>'
			 'damn. Made me scrub his bathroom, Well, to which I sunk - grumbled to myself - my manicure, my clothes - all messed up, Well at least we have to earn money for the club.'
			     act 'scrub the floor':
			     set minut = minut + 5
			     cla
			     *clr
			     '<center><img src="yaroslav/1365154197_studentka-ischet-rabotu-4.jpg" width=750 height=450 ></center>'
			     'Apparently decided to check how I cope, Jaroslav came into the bathroom, and stood in the entrance, but when he saw me, sexy embarked crustaceans and nadraivat foam sponge floor, all thoughts about the quality of flew out of his head.'
					 act 'rebel':
					 cla
					 *clr
					 '<center><img src="yaroslav/1365154177_studentka-ischet-rabotu-5.jpg" width=750 height=450 ></center>'
					 '- hey! - I whirled - pyalites you that on my ass? - I cried indignantly, but immediately appreciate the richness of the men I had a plan to earn tips.'
						 act 'up':
						 cla
						 *clr
						 '<center><img src="yaroslav/1365154183_studentka-ischet-rabotu-6.jpg" width=750 height=450 ></center>'
						 'Yaroslav I started making excuses stopped, stood up to his full height and making eyes householder, began to rub the transparent wall. Listen, I`m here, that would be enough for me to a new fashionable clothes. I hope you do not mind? - I defiantly said Yaroslav.'
							 act 'become_dirty':
							 cla
							 *clr
							 '<center><img src="yaroslav/1365154181_studentka-ischet-rabotu-7.jpg" width=750 height=450 ></center>'
							 '- But I do not know how to properly and - I said, wringing over the sponge with soapy water - So you see, all soiled, where I am now in a wet t-shirt, will have to remove it and wait until dry.'
								 act 'remove the T-shirt':
								 cla
								 *clr
								 '<center><img src="yaroslav/1365154123_studentka-ischet-rabotu-8.jpg" width=750 height=450 ></center>'
								 'With these words, then squeeze onto the remnants of foam asked Yaroslav - Could you help me, I need to dry, and I so wet...'
									 act 'listen Yaroslav':
									 cla
									 *clr
									 '<center><img src="yaroslav/1365154153_studentka-ischet-rabotu-9.jpg" width=750 height=450 ></center>'
									 'It has long been understood what I am, overexcited Yaroslav, taking out a fat wallet from his pants, appeals to me - You said that you did not have enough money - I suggest you combine business with pleasure.'
									     act 'See what`s next':
										 set minut = minut + 10
										 cla
										 *clr
										 '<center><img src="yaroslav/1365154194_studentka-ischet-rabotu-10.jpg" width=750 height=450 ></center>'
										 'Taking cock from his pants  - Show me what you can do with their hands and get a good tip.'
										     act 'take a member':
											 cla
											 *clr
											 '<center><img src="yaroslav/1365154141_studentka-ischet-rabotu-13.jpg" width=750 height=450 ></center>'
											 'pleased, I could so easily dissolve man on the headstock, I, took his penis in his pen, began to drive it up-down, it is accelerating the pace slowing, leaned her pink lips to lips lustful men and sticking his tongue, stuffed in his mouth.'
											     act 'fall down':
												 cla
												 *clr
												 '<center><img src="yaroslav/1365154216_studentka-ischet-rabotu-12.jpg" width=750 height=450 ></center>'
												 'Then I slowly dropped to her knees and began to swallow his farm to his sensual mouth, licking it like ice cream. Jaroslav not expecting such abilities at such a young girl moaned with pleasure, sprayed stronger, wanting to push member is not in your mouth, and in my tender pussy.'
												     act 'sucking dick':
													 set minut = minut + 20
													 cla
													 *clr
													 '<center><img src="yaroslav/1365154178_studentka-ischet-rabotu-11.jpg" width=750 height=450 ></center>'
													 '- Do you want to earn more? - the man asked me. In response, nodded furiously.'
													     act 'up':
														 cla
														 *clr
														 '<center><img src="yaroslav/1365154172_studentka-ischet-rabotu-14.jpg" width=750 height=450 ></center>'
														 '- Very_Well, I knew you were a good girl. Having said that, He stuck his phallus out of my mouth and took me in his arms, seated on the countertop.'
														     act 'Extend the legs':
															 cla
															 *clr
															 '<center><img src="yaroslav/1365154194_studentka-ischet-rabotu-15.jpg" width=750 height=450 ></center>'
															 'Taking off his pants, he was flexing my vagina, thrusting his strong male hands in my crack.'
															     act 'Savoury':
																 cla
																 *clr
																 '<center><img src="yaroslav/1365154144_studentka-ischet-rabotu-16.jpg" width=750 height=450 ></center>'
																 'However, He rubbed his penis to the lips sex, and after cutting inside his vognul.'
																     act 'moan':
																	 cla
																	 *clr
																	 '<center><img src="yaroslav/1365154203_studentka-ischet-rabotu-17.jpg" width=750 height=450 ></center>'
																	 'Grabbing me comfortably , I moaned from such pressure, clinging to their feet nails, to escape from the pain that delivers huge penis male, developing my pussy.'
																	     act 'Savoury':
																	     set minut = minut + 20
																	     cla
																	     *clr
																	     '<center><img src="yaroslav/1365154147_studentka-ischet-rabotu-18.jpg" width=750 height=450 ></center>'
																	     'Big dick Yaroslav continued to ram my pussy. I was moaning and panting.'
																			 act 'ask':
																			 set minut = minut + 20
																			 cla
																			 *clr
																			 '<center><img src="yaroslav/1365154175_studentka-ischet-rabotu-19.jpg" width=750 height=450 ></center>'
																			 '- I hope you will not forget to thank me for my ability - I asked. In response Jaroslav nodded and stuck his dick only stronger in the warm, wet cunt, working it like a piston.'
																			     act 'unfold':
																				 cla
																				 *clr
																				 '<center><img src="yaroslav/1365154194_studentka-ischet-rabotu-20.jpg" width=750 height=450 ></center>'
																				 '<center><img src="yaroslav/1365154188_studentka-ischet-rabotu-21.jpg" width=750 height=450 ></center>'
																				 'Unfolding me, He grabbed me by the leg and began pulling me to him, in unison with the movements of the pelvis, the other hand penetrated into my mouth ajar sexy.'
																				     act 'breathe':
																					 set minut = minut + 20
																					 cla
																					 *clr
																					 'Finally put out his, he heard my sigh of disappointment,and after playing near smuglovo member ring anus, several times drove the head of the penis in my razdrochenny valve.'
																					 '<center><img src="yaroslav/1365154232_studentka-ischet-rabotu-22.jpg" width=750 height=450 ></center>'
																					 '<center><img src="yaroslav/1365154212_studentka-ischet-rabotu-23.jpg" width=750 height=450 ></center>'
																					 '<center><img src="yaroslav/1365154145_studentka-ischet-rabotu-24.jpg" width=750 height=450 ></center>'
																						 act 'Get_Off':
																						 cla
																						 *clr
																						 '<center><img src="yaroslav/1365154164_studentka-ischet-rabotu-26.jpg" width=750 height=450 ></center>'
																						 '<center><img src="yaroslav/1365154143_studentka-ischet-rabotu-25.jpg" width=750 height=450 ></center>'
																						 'Then put me on the floor, He lay on his back, and I began to pull on his dick, stretching my bread. I moved her hips, poprygivaya periodically on its bolts and re- tucking it into the full depth.'
																							 act 'Peel and substitute face':
																							 set minut = minut + 5
																							 set horny = horny = 0
																							 set vagina = vagina + 1
																							 set throat = throat + 1
																							 set orgasm = orgasm + 1
																							 cla
																							 *clr
																							 '<center><img src="yaroslav/1365154169_studentka-ischet-rabotu-27.jpg" width=750 height=450 ></center>'
																							 'As soon as he felt began to moan loudly Yaroslav, and how to increase his penis in a final burst of, I jumped out of the man and kneeling, eagerly opened her mouth in anticipation of, as I will splash warm thick liquid from the penis of men, give me so much pleasant minutes. And finally escaped from the phallus jet seed, Fill in all my face and chest.'
																							     act 'In the bathroom':
																								 set minut = minut + 20
																								 set sweat = sweat = 0
																								 set hapri = 0
																								 cla
																								 *clr
																								 '<center><img src="yaroslav/1365154231_studentka-ischet-rabotu-28.jpg" width=750 height=450 ></center>'
																								 '- Well done girl, you are a good worker, ran up to me after class, I `ll help you with incomes for. Now go Rinse and I will pay off for your excellent work - said Yaroslav.'
																									 act 'Get dressed and go':
																									 set money = money + 3000
																									 set uborkayar = uborkayar + 1
																									 cla
																									 set minut = minut + 25
																									 gt'down'
																									 end
                                                                                                 end
                                                                                             end
                                                                                         end
                                                                                     end
                                                                                 end
                                                                             end
                                                                         end
                                                                     end
                                                                 end
                                                             end
                                                         end
                                                     end
                                                 end
                                             end
                                         end
                                     end
                                 end
                             end
                         end
                     end
                 end
             end
         end
      act 'Get_Away':gt'down'
     end
act 'Get_Away':gt'down'
end
--- yarik ---------------------------------

# zoomagazine
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>pet-shop "Pet"</font></B></center>'
'<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
''
'dog 3000'
'rabbit 2000'
'parrot 3000'

     if money >= 3000 and sobaka = 0:
     	 act 'buy a dog 3000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
			 act 'hello, I would like to buy a dog':
			 cla
			 *clr
			 '<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
			 '<center><b>Excuse_Me, but we were only male dog.</center></b>'
				 act 'Buy a dog':
				 cla
				 *clr
				 set minut = minut + 10
				 set sobaka = sobaka + 1
				 set money = money - 3000
				 '<center><img src="zoo/846660628.jpg" width=600 height=500 ></center>'
				 '<center><b>You bought a dog-Dalmatians.</center></b>'
				 $namesob = input ("I will call the dog...")
				 act 'Move away from the counter':gt'zoomagazine','start'
				 end
				 
				 act 'Get_Away':gt'zoomagazine','start'
			 end
			 
			 
		 end
     end

     
     if money >= 2000 and krolik = 0:
		 act 'Buy rabbit 2000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/x_2b1d398b.jpg"></center>'
		 '<center><b>You bought a rabbit.</center></b>'
		 $namekrol = input ("I call rabbit...")
		 set minut = minut + 10
		 set krolik = krolik + 1
		 set money = money - 2000
		 act 'Move away from the counter':gt'zoomagazine','start'
		 end
     end
     
     if money >= 3000 and popugai = 0:
		 act 'Buy parrot 3000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/131998525345003210.png"></center>'
		 '<center><b>You bought a parrot.</center></b>'
		 $namepopu = input ("I`ll call a parrot...")
		 set minut = minut + 10
		 set popugai = popugai + 1
		 set money = money - 3000
		 act 'Move away from the counter':gt'zoomagazine','start'
		 end
     end
act 'Get_Away':gt'torgcentr'
end
--- zoomagazine ---------------------------------

# Nord
$metka = $ARGS[0]
$loc = $CURLOC
$metkaStreet = $ARGS[0]
$locStreet = $CURLOC
gs'dinam'
'<center><B>Northern region</B></center>'
'<center><img src="pic/nord.jpg" ></center>'
clr
gs'stat'
gs'time'

!act 'Exit at North Highway':minut+=15&nroad=0&gt'road'

     act 'wait':
     cla
     waiting = input ("How many minutes to wait? (not any more 120 minutes)")
         if waiting <= 0 or waiting > 120:
         set minut = minut + 15
         end
         if waiting > 0 and waiting <= 120:
         set minut = minut + waiting
         end
     act 'Look at the clock':gt curloc
     end
     
act 'Taxi':
	 cla
	 *clr
	 '<center><img src="pic/taxi1.jpg" ></center>'
	 'You caught a passing taksishku.
	 fare 250 RUB.'
   	 set minut+=5
	 if $loc!'street':
		 act 'Go to the sleeping area':
			 set $loc='street'
			 dynamic $taxi
			 end
		 end
	 if $loc!'down':
		 act 'Go to the center':
			 set $loc='down'
			 dynamic $taxi
			 end
		 end
	 if $loc!'Nord':
		 act 'Go to the northern region':
			 set $loc='Nord'
			 dynamic $taxi
			 end
		 end
	 act 'Opt_Out':gt'<<$loc>>'
	 end

if car > 0:
	 if cardrive = 3 or cardrive >= 6 and cardrive <= 9:'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end
if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'
'<a href="exec:minut+=15&GT ''vokzal''">railway_station</a>.'
if slavaQW>=1:'<a href="exec:GT ''qwBarPolet''">bar "flight"</a>.'
litltown=0
'Automotive <a href="exec:GT ''zaprF'',''start''">filling</a>'
if hour >= 5 and hour <= 23:'station <a href="exec:GT ''metro'',''start''">subway</a> situated in 5 walking distance.'
if hour >= 9 and hour <= 17 and week > 1:'<a href="exec:GT ''autosalonF'',''start''">Motor Show</a>'
if hour >= 9 and hour <= 20 and week < 7:'<a href="exec:GT ''autoservisF'',''start''">Service_and_repair</a>'
if hour >= 9 and hour <= 17 and week > 1:'<a href="exec:GT ''autotraidF'',''start''">Car_market</a>'
if hour >= 9 and hour <= 17 and week < 6:'<a href="exec:GT ''dk'',''start''">The House of Culture named after Lenin</a>'
if hour >= 8 and hour <= 20:'A bright spot in a vacant lot worth <a href="exec:GT ''shop'',''start''">supermarket</a>'
if hour>=12 and hour<20:'Above the door to the basement emblazoned inscription <a href="exec:GT ''pirsingsalon''">piercing parlor</a>'
if tobiQW >= 1:'The old mansion home <a href="exec:GT ''kakuzu'',''start''">Kakuzu</a>'
'The huge building which houses <a href="exec:GT ''casino''">casino</a> hotel sparkles and lights.'
if hour >= 14 or hour < 4:'Not far from the buildings located <a href="exec:GT ''lakecafe'',''main''">Barbecue</a>.'
if jouryResult=10:'In one of the newly located <a href="exec:GT ''youry''">apartment Yuri</a>'
if IvanKvartira>0:'In one of the houses is <a href="exec:GT ''ivanRoom''">Apartment manager Ivan</a>'
'For a long concrete fence is <a href="exec:GT ''Terminal''">storage terminal</a>'

dynamic $din_street_cum








--- Nord ---------------------------------

# Terminal
set minut = minut + 5
'<center><B><font color=maroon>storage terminal</font></B></center>'
'<center><img src="pic/terminal.jpg" ></center>'
clr
gs'stat'
!fcolor=rgb(0,0,0)
!bcolor=rgb(255,255,255)
!LCOLOR = rgb(106,90,205)
'A plurality of storage buildings to which drive up truck for loading and unloading.'


     act 'Get_Away':
     cla
     set minut = minut + 5
     gt'nord'
     end
     
     if TerminalPapper=1 and DayTerminalPapper=day:
         act 'classified documents':
		 cls
		 set minut = minut + 15
		 TerminalPapper=2
		 fcolor=rgb(0,0,0)
         bcolor=rgb(255,255,255)
         LCOLOR = rgb(106,90,205)
		 gs'stat'
		 'You went into the office and gave the documents to the manager.'
		 act 'Get_Away':minut+=5&gt'nord'
		 end
     
     end
     
     if money>=100:
         act 'Buy small items on the 100 rubles':
		 cls
		 set minut = minut + 15
		 gs'stat'
		 'You went to the office and spoke with the manager about buying small things.'
		     if tovarskladlevel=0:
		         if tovarL>=30:
		         'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
		         end
		         if tovarL<30:
		         maxtov=30-tovarL
		         'Do you have a place for storage <<maxtov>> One unit of product.'
		             act 'buy':
		             cls
		             gs'stat'
		             'Do you have a place for storage <<maxtov>> One unit of product.'
		             tovarpokup=input("How much product you want to buy at a price 100 rubles apiece?")
		                 if tovarpokup>maxtov or tovarpokup*100>money:
		                 'Manager shakes his head "No, so it will not work"'
		                 else
		                 tovarL+=tovarpokup
		                 money-=tovarpokup*100
		                 gs'stat'
		                 'you bought <<tovarpokup>> One unit of small goods and now you have stored <<tovarL>> One unit of product.'
		                 end
		                 act 'Get_Away':minut+=5&gt $curloc
		             end
		         end
		     end
		     
		 act 'Get_Away':minut+=5&gt'nord'
		 end
		 
		 if YouCanGar>0:
		     act 'Buy small items on the 100 RUB A storage garage':
			 cls
			 set minut = minut + 15
			 gs'stat'
			 'You went to the office and spoke with the manager about buying small things.'
				 if tovarskladlevel=0:
					 if GarTorgItem>=100:
					 'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
					 end
					 if GarTorgItem<100:
					 maxtov=100-GarTorgItem
					 'Do you have a place for storage <<maxtov>> One unit of product.'
						 act 'buy':
						 cls
						 gs'stat'
						 'Do you have a place for storage <<maxtov>> One unit of product.'
						 tovarpokup=input("How much product you want to buy at a price 100 rubles apiece?")
							 if tovarpokup>maxtov or tovarpokup*100>money:
							 'Manager shakes his head "No, so it will not work"'
							 else
							 GarTorgItem+=tovarpokup
							 money-=tovarpokup*100
							 gs'stat'
							 'you bought <<tovarpokup>> One unit of small goods in the garage and now you have stored <<GarTorgItem>> One unit of product.'
							 end
							 act 'Get_Away':minut+=5&gt $curloc
						 end
					 end
				 end
				 
			 act 'Get_Away':minut+=5&gt'nord'
			 end
		 end
     end
--- Terminal ---------------------------------

# ivanRoom
set minut = minut + 5
'<center><B><font color=maroon>The apartment manager Ivan</font></B></center>'
'<center><img src="pic/podezdhr.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'The door to the apartment of Ivan iron, with good locks.'


     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'nord'
     end

if poverKAR=1:
'You came to the door behind you and Ivan was a rustling. You turned and saw Juugo. He came up to you and said "Ivan apartment. Take this here -and-shoot camera. Now we `ll get."'
     act 'Come on we`ll get this monster':
     cls
     IvanKvartira=0
     poverKAR=2
     minut+=15
     gs'stat'
     '<center><img src="pic/gun.jpg" ></center>'
     'Juugo went to the door, you noticed a tattoo on his face woke up and came to life, covering their skin black lines. Line broke and you see like Juugo fists began to increase. He growled and slammed his fist on the door. The door rattled bent. Juugo hand grabbed the door and opened it. Juugo a roar broke into the apartment. You ran into the apartment after Juugo and saw Ivan left the room holding a gun. Ivan shot and jerked Juugo, Ivan then fired again and again. Juugo fell to the floor. Ivan ran out of bullets and he began feverishly to reload the gun.'
         if dom>0:
			 act 'embed Ivan':
			 cls
			 gs'stat'
			 !'<center><img src="pic/gun.jpg" ></center>'
			 'You ran to Ivan with the intent to kick him while he reloads his gun. Ivan suddenly jumped back into the room and slammed the door in front of your nose. The inertia you hit the door. Immediately shot and slammed the door flew chips, Only by chance the bullet did not hurt you. Behind you heard a movement and as you saw in the hallway on his feet gets Juugo, his wounds are tightened. Even the bullet hole in his forehead became rapidly tightened. Pokryvatsya body was black and then a scab, color grown horns. Juugo yelled furiously "NOW YOU DIE!!!" and rushed to the wooden door behind which hid Ivan turning it into pieces and flung away you away. Have you seen, Ivan lying on the floor in the blood and without movement, gun fell from his hands weakened. Juugo with a triumphant cry rushed to Ivan and became powerful blows to beat the motionless body. You have seen how just a second Juugo turned his head into a bloody mess Ivan. But Juugo did not stop there and you feel like it `s going to force, concentrating in his hand. The air smelled of ozone and there was a nasty, thin squeal. you understand, Juugo now hit than a very powerful.'
				 act 'run_Away':
				 cls
				 gs'stat'
				 !'<center><img src="pic/gun.jpg" ></center>'
				 'You turned and ran out of the apartment. Behind a powerful explosion hit, house shuddered, ringing in your ears . Looking around you to understand, Ivan struck the apartment, from the doorway stuck a piece of concrete slab, spinning dust in the air, ears ringing.'
				 act 'Run away from the entrance':gt'nord'
				 end
			 end
		 end
		 
		 act 'Freeze in horror':
		 cls
		 gs'stat'
		 '<center><img src="pic/gun.jpg" ></center>'
		 'You froze in horror and stared at Ivan and Juugo. Juugo was lying in blood, in his head was a decent bullet hole from which it follows bloody mess. Ivan quickly reloaded his gun and pointed it at you. Juugo suddenly turned over on the floor and you saw his wounds are tightened. The body is covered with black and then a crust. Ivan started and pointing a gun at Juugo shot at it. Bullets whistled hit the wall deflects off the body Juugo. Juugo finally turned into what that monster with horns and jumped to his feet angrily screamed "NOW YOU DIE!!!" Ivan began to retreat back, trying to reload the gun. Juugo instantly jumped up to him and hit Ivan, zashvyrnuv him like a rag doll in the room. Have you seen, Ivan lying on the floor in the blood and without movement, gun fell from his hands weakened. Juugo with a triumphant cry rushed to Ivan and became powerful blows to beat the motionless body. You have seen how just a second Juugo turned his head into a bloody mess Ivan. But Juugo did not stop there and you feel like it `s going to force, concentrating in his hand. The air smelled of ozone and there was a nasty, thin squeal. you understand, Juugo now hit than a very powerful.'
		     act 'run_Away':
			 cls
			 gs'stat'
			 !'<center><img src="pic/gun.jpg" ></center>'
			 'You turned and ran out of the apartment. Behind a powerful explosion hit, house shuddered, ringing in your ears . Looking around you to understand, Ivan struck the apartment, from the doorway stuck a piece of concrete slab, spinning dust in the air, ears ringing.'
			 act 'Run away from the entrance':gt'nord'
			 end
		 end
		 
		 
     end
end
if softKAR=1:
'You have come to kavrtire Ivan and saw there Karin. She adjusted her glasses and told you. "Ivan is now in his apartment."'
	 act 'what plan?':
	 cls
	 horny=0
	 gs'stat'
	 '<center><img src="picPRE/karinPRE.jpg" ></center>'
	 'Karin started to explain "I can impose on you a temporary spell. Ivan did not recognize you. We seduce him, for this I have means, enough to smell it and immediately vozbudishsya. The main thing we keep ourselves in the hands of. Then when he is ready to offer him a drink, Podillya it means, that would unleash his tongue. We write his confession on camera. And the hat."'
	     act 'Let`s begin':
	     cls
	     minut+=5
	     horny+=10
	     gs'stat'
	     '<center><img src="picPRE/karinPRE.jpg" ></center>'
	     'Karina something probomotala and touched your face palm. She took her hand and said "all, Ivan did not recognize you, Here you go . There is a strong aphrodisiac, which works when it sniffs. Watch_Out, We are also subject to it." Karin gave you a bubble and you sprinkled a little before the door, trying not to inhale the aroma. Karin rang the bell at the door and the door opened. Appeared on the threshold Ivan, he`s a little confused looking at you. Karin smiled sweetly Ivan "We service of social surveys, Can we ask you a few questions?" Ivan aside gesture inviting you to go to the apartment.'
	         act 'Log in to the apartment':
			 cls
			 minut+=5
			 horny+=50
			 gs'stat'
			 '<center><img src="picPRE/karinPRE.jpg" ></center>'
			 'Together with Karin you entered the apartment and went to Ivan in his living room. The room was clean and comfortable. Ivan invited you to sit down on the sofa and sat down in front of you. Karin started asking questions about sex Ivan. Ivan looked surprisingly calm for a man fell under the aphrodisiac. You tried not to breathe and still feel its effects. Karin elbow and pushed you look revealed your bubble.'
			     act 'splash in secret':
				 cls
				 minut+=5
				 horny+=25
				 gs'stat'
				 '<center><img src="picPRE/karinPRE.jpg" ></center>'
				 'While Karin distracted Ivan showing him her cleavage, you still secretly streamed aphrodisiac in the air and feel like themselves become excited. Karin all alluring and seductive talked with Ivan trying to seduce him, you even noticed her cheeks flushed. But Ivan reacted rather calmly to what is happening and you just noticed how he became interested in, but did not notice any signs of excitation. Meanwhile.'
				     act 'Splash again':
					 cls
					 minut+=5
					 horny+=25
					 gs'stat'
					 '<center><img src="picPRE/karinPRE.jpg" ></center>'
					 'Karin got up from the sofa and turning his back to Ivan leaned over and began fumbling in his bag seductively curving. Ivan looked curiously at the bottom Karin and calmly looked away. You spurted again and felt, as your pussy swelled and began to demand the attention. Karin meanwhile sat on the sofa. It was evident, acted as an aphrodisiac and it. She flushed lips, reddened cheeks and she frantically clutched his feet. Ivan looked at you with interest, but again, no signs of the beyond excitement did not show. Karin broke down and snatched you from the hands of the bubble. She stood up and asked Ivan to smell perfume, and tell her what he thought of them. Ivan smiled at it and said "Excuse_Me, i have a runny nose. I do not feel quite odors." Karin helplessly sat on the sofa, all her cunning plan with magic and alchemy fell from the banal common cold.'
					     act 'suggest drink':
						 cls
						 minut+=5
						 gs'stat'
						 '<center><img src="picPRE/karinPRE.jpg" ></center>'
						 'You are offered a drink Ivan. he grinned "girls, I do not know what you `re up here, but there is no. think for yourself, two unknown girls, come to my house, ask me stupid questions, seduce, offered a drink, can you klofelinschitsy? Podolete me certain things, I pass out?" Karin visibly confused understanding, that her plan raspolzsya at the seams. Ivan got up from the couch and asked you to leave the apartment. Karin tried something else to take. But Ivan had already been set up to show the door and you vym nothing left to do, but to proceed to the exit.'
						     act 'Leave the apartment':
							 cls
							 minut+=5
							 softKAR=0
							 gs'stat'
							 '<center><img src="picPRE/karinPRE.jpg" ></center>'
							 'Together with Karin you left the apartment and Ivan closed the door behind you. Karin angrily slammed fist into his palm. "devil. Well? Fair_Enough, I ran. disassemble itself."'
							 act 'Withdraw from the entrance':gt'nord'
							 end
						 end
						 
						 act 'to_be_silent':
						 cls
						 minut+=5
						 gs'stat'
						 '<center><img src="picQW/Threesome.jpg" ></center>'
						 'You perplexed silence, but Karin found the first. "cold? I know the perfect remedy for the common cold." Karin went to Ivan and put her hand on his nose, starting his massage. According to Ivan became clear eyes, that nasmortk began to pass and he began to feel an aphrodisiac. Ivan grabbed Karin and drew her to him. She tried to rebel by, but very powerful aphrodisiac and she pounced on Ivan began to kiss him. Second hand Ivan attracted you to your. You feel powerful excitement of this situation.'
						     act '...':
							 cls
							 minut+=5
							 softKAR=2
							 gs'stat'
							 '<center><img src="picQW/Threesome1.jpg" ></center>'
							 'Karin kissing Ivan began to unbutton his pants. Finally. Karin leaned against a member and began to suck. Ivan dug its lips in your lips and began to kiss you, a greedy smacking Karina. Ivan took your head in his hands and sent it to his groin.'
							 	 act 'Suck dick together with Karin':
								 cls
								 minut+=5
								 guy+=1
								 if KarinSex=0:KarinSex=1&girl+=1
								 bj+=1
								 gang+=1
								 gs'stat'
								 '<center><img src="picQW/Threesome2.jpg" ></center>'
								 'Exhausted from a painful desire you moaning, together with Karin, suck dick, vylizyvyete eggs. You greedy bites his lips in a hard and hot flesh crimson member, trying to suck in your mouth as much as possible.'
								 	 act '....':
									 cls
									 minut+=5
									 
									 gs'stat'
									 '<center><img src="picQW/Threesome3.jpg" ></center>'
									 'Karin Ivan dropped on his back and on the go tearing off his clothes jumped on top of his cock. While Karin furiously rides a member Ivan you caress his balls and stroking ass Karin.'
									 	 act 'Pussy sit on the face of Ivan':
										 cls
										 minut+=5
										 kuni+=1
										 gs'stat'
										 '<center><img src="picQW/Threesome4.jpg" ></center>'
										 'While Karin jumps on a limb you walked Ivan and transferred over his head leg placing her pussy in front of his face. Ivan began to lick your pussy, incredible bliss enveloped you. Ivan after a while you took off your face and put Karin on her back.'
										 	 act '69 Karin':
											 cls
											 minut+=5
											 lesb+=1
											 sex+=1
											 vagina+=1
											 orgasm+=1
											 gs'stat'
											 '<center><img src="picQW/Threesome5.jpg" ></center>'
											 'You started to lick pussy Karin and felt something hard like that boils down to you in the pussy juices expiring. When hard cock parted the folds of your pussy, You suffocated by surging feelings for you. Do you dizzy and the whole body girth bliss, suddenly you covered under this orgasm, shuddering convulsions, you heard his cry as if from the outside and feel the body Karin under you also start to shake with orgasm. Ivan groaned and pulled his dick out of you, he grabbed you with Karin and set you on your knees in front of him.'
											 	 act 'on your knees':
												 cls
												 minut+=5
												 facial+=1
												 cumface+=1
												 gs'stat'
												 '<center><img src="picQW/Threesome6.jpg" ></center>'
												 'You knelt together with Karin and Ivan began to masturbate his penis in front of your faces. Suddenly flew out of his cock and a hot jet of sperm hit on your faces. From a member for some time flying a jet of sperm fall on your face with Karin. But finally dried up and exhausted Ivan sat on the couch trying to catch my breath. Karin whispered to you, Prepare the camera.'
												     act 'cooking chamber':
													 cls
													 softKAR=10
													 IvanEvidence=1
													 cumface=0
													 gs'stat'
													 '<center><img src="picPRE/karinPRE.jpg" ></center>'
													 'You secretly prepared a camera pointing her out of her purse at Ivan and included it. Karin meanwhile, Ivan thirsty drank the water and Karin asked him. Tell us how you stole from his boss. Ivan smiled "elementary! I lost in the casino and I urgently need money. I knew, that this old asshole lie in the safe money on bribes. This slut has not given me a dishwasher. And I was born a brilliant plan. I naboltal this fool that it will take manager. Yup, how manager. And Imagine this fool bought into such nonsense. I gave her the keys, who stole. stood there, where I will not see the camera, and sent this pridurochnuyu cleaner to take the money. She brought them to me" Karin asked "And where is the money?" Ivan said sadly "debts distributed. you know, holy card debt." Karin grinned, "it`s done. And you go to sleep Ivan." Ivan immediately started snoring on the couch. Karin turned to you. "Yes_I_Am, I almost screwed up because of his rhinitis. A good lesson for you. Things can not go according to plan. I had the idea to paralyze him, but I`ve since tried once. Paralyzed object choked, when I gave to drink. Hardly his Evacuate. Fair_Enough, go away faster. Here are just umoemsya." You quickly washed in the bathroom along with Karin, wash sperm. She obviously avoiding your eyes and you should be on the streets, She immediately began to say goodbye to you.'
													 act 'Get_Away':gt'nord'
													 end
												 end
											 end
										 end
									 end
								 end
							 end
						 end
						 
						 
						 
						 
					 end
				 end
			 end
	     end
	 end
end







--- ivanRoom ---------------------------------

# dk
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>The House of Culture named after Lenin</B></center>'
'<center><img src="pic/dk.jpg" ></center>'
'Opening hours 9 prior_to 17, weekend Saturday, Sunday.'

     if hour >= 9 and hour <= 17 and week < 6:
     act 'Go to the House of Culture':gt'dk','holl'
     end
     
	 if avtoskul >= 1 and avtoskul < 11 and skulday ! day and week>=6 and money>=1000 and age>=18:
		 act 'Learn from the law for a fee (1000 RUB 2 hours)':
		 cla
		 *clr
		 money-=1000
		 set skulday = day
		 set avtoskul = avtoskul + 1
		 set minut = minut + 120
		 '<center><img src="pic/dk2.jpg" ></center>'
		 'You were trained in modern methods driving.'
		 act 'Get_Away':gt'dk','holl'
		 end
	 end

act 'Get_Away':gt 'nord'
end


if $ARGS[0]='holl':
cla
*clr
set minut = minut + 5
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>The House of Culture</B></center>'
'<center><img src="pic/dk1.jpg" ></center>'
'services, Driving_School, payment 30sput. 10 Occupation, at any convenient time during the working day recreation.'
'Education office programs, degree-granting Secretary. 15sput, training period 30 days.'
!'Medium for new opportunities - Once we, only freebies.'
'On the wall hangs an ad. voice lessons. 500 rubles per lesson.
Education massage, one lesson 5000 RUB.
Courses of personal growth 1000 rub one session.'

    !' act 'Go to a medium':
	 cla
	 *clr
	 Set minut=minut +30
	 killobj
	 addobj 'back'
	 'You have not understood, Does that happen-some, and mixed feelings came from the charlatan.'
	 act 'Get_Away':gt'dk','holl'
     end'
     
     if money>=1000:
         act 'Courses of personal growth 1sput':
         cls
         money-=1000
         dom+=5
         minut+=60
         gs'stat'
         'You are within an hour with the other guests and played up the lead different life situations and learn to be a winner in life situations, defend their interests. After the course you feel, your dominance increased.'
         act 'Get_Away':gt'dk','holl'
         end
     end


if secrDiplom = 0 and sekrObu > 0:set sekrObuA = sekrObu - 1&'Trained on the Secretary <<sekrObuA>> days of 30'
     if hour >= 9 and hour <= 17 and week < 6:
         if vokalday!day and alexeySex>0 and alexeyVopros=2:
             act 'Go to singing lessons':
             cls
             alexeyQW+=1
             vokal+=1
             vokalday=day
             horny+=30
             gs'stat'
             'You are within an hour doing vocals with Alex, which is occasionally caressing your leg, then touch the ass, then stroked his chest.'
             deystrand=RAND(0,10)
                 if deystrand>=8:
                 'After time spent Alex turned to you "Today I can not Svetsik, a lot of work, suck me quick.'
                     act 'Kneel down and take in the mouth':
					 cls
					 alexeySex+=1
					 horny+=10
					 bj+=1
					 minut+=10
					 gs'stat'
					 picrand=RAND(0,13)
					 if picrand=0:'<center><img src="qwest/alexey/bj.jpg" ></center>'
					 if picrand=1:'<center><img src="qwest/alexey/bj1.jpg" ></center>'
					 if picrand=2:'<center><img src="qwest/alexey/bj2.jpg" ></center>'
					 if picrand=3:'<center><img src="qwest/alexey/bj3.jpg" ></center>'
					 if picrand=4:'<center><img src="qwest/alexey/bj4.jpg" ></center>'
					 if picrand=5:'<center><img src="qwest/alexey/bj5.jpg" ></center>'
					 if picrand=6:'<center><img src="qwest/alexey/bj6.jpg" ></center>'
					 if picrand=7:'<center><img src="qwest/alexey/bj7.jpg" ></center>'
					 if picrand=8:'<center><img src="qwest/alexey/bj8.jpg" ></center>'
					 if picrand=9:'<center><img src="qwest/alexey/bj9.jpg" ></center>'
					 if picrand=10:'<center><img src="qwest/alexey/bj10.jpg" ></center>'
					 if picrand=11:'<center><img src="qwest/alexey/bj11.jpg" ></center>'
					 if picrand=12:'<center><img src="qwest/alexey/bj12.jpg" ></center>'
					 if picrand=13:'<center><img src="qwest/alexey/bj13.jpg" ></center>'
					 'You knelt before him and clasped his dick <<$liptalk>> began sucking. Alex helped her hips almost hammering you in the mouth. Finally he groaned "Catch huesoska their rations, if that is on the floor, lick will make."'
					 gs'oral','0'
					     act 'substitute mouth':
						 cls
						 horny+=10
						 minut+=10
						 swallow+=1
						 cumlip+=1
						 gs'stat'
						 picrand=RAND(0,13)
						 if picrand=0:'<center><img src="qwest/alexey/bjcum.jpg" ></center>'
						 if picrand=1:'<center><img src="qwest/alexey/bjcum1.jpg" ></center>'
						 if picrand=2:'<center><img src="qwest/alexey/bjcum2.jpg" ></center>'
						 if picrand=3:'<center><img src="qwest/alexey/bjcum3.jpg" ></center>'
						 if picrand=4:'<center><img src="qwest/alexey/bjcum4.jpg" ></center>'
						 if picrand=5:'<center><img src="qwest/alexey/bjcum5.jpg" ></center>'
						 if picrand=6:'<center><img src="qwest/alexey/bjcum6.jpg" ></center>'
						 if picrand=7:'<center><img src="qwest/alexey/bjcum7.jpg" ></center>'
						 if picrand=8:'<center><img src="qwest/alexey/bjcum8.jpg" ></center>'
						 if picrand=9:'<center><img src="qwest/alexey/bjcum9.jpg" ></center>'
						 if picrand=10:'<center><img src="qwest/alexey/bjcum10.jpg" ></center>'
						 if picrand=11:'<center><img src="qwest/alexey/bjcum11.jpg" ></center>'
						 if picrand=12:'<center><img src="qwest/alexey/bjcum12.jpg" ></center>'
						 if picrand=13:'<center><img src="qwest/alexey/bjcum13.jpg" ></center>'
						 'Jet of sperm hit you in the mouth and began to run down your <<$liptalk>>. Alex wiped his penis on your <<$liptalk>> and put it in your pants.'
						 'You became diligently to swallow warm, sharply smelling sperm and semen to collect the remains of spilled chin. Once you have swallowed the seed, you licked his lips and stood up from the floor ready to leave.'
						 act 'Get_Away':gt'dk','holl'
						 end
					 end
                 else
                 'After the lesson.'
                 if sashaClubQW=0:act 'go':gt'alex'
                     if sashaClubQW>0:
                     ivrand=RAND(0,10)
                         if ivrand<8:act 'go':gt'alex'
                         if ivrand>=8:act 'go':gt'alexgang'
                     end
                 end
             end
         end
     
         if money>=500 and vokalday!day and alexeySex>0 and alexeyVopros=1:
             act 'Go to singing lessons (500 rubles 1 h)':
             cls
             money-=500
             alexeyQW+=1
             vokal+=1
             vokalday=day
             gs'stat'
             'You are within an hour doing vocals with Alex, which showed no signs of, that when he otduplil you in all holes.'
             act 'Get_Away':gt'dk','holl'
             end
         end
         
     
         if money>=500 and vokalday!day and alexeySex>0 and alexeyVopros=0:
             act 'Go to singing lessons (500 rubles 1 h)':
             cls
             alexeyQW+=1
             vokal+=1
             vokalday=day
             gs'stat'
             'You are logged in to the office to Alexey. He guiltily looked at you and said. "Sorry, musician is primarily a creative person , drunken rednecks."'
             'You could not help smiling at the memory as you dragged the carcass of his teacher sleeping with his back, where he was snoring peacefully.'
             'Alex smiled openly walked up to you. "Svetsik. We can now proceed in two ways. Now we both forget, between us and that it would continue to learn how not in what happened, or we can vstrechatsya. If we vstrechatsya, I like a true gentleman will not charge you a fee, but will be very hard to invite you to visit me. choose."'
                 act 'Let`s forget, between us that it was.':
                 cls
                 money-=500
                 alexeyVopros=1
                 'You offered Alexei forget what happened and gave him 500 rubles per lesson, Lech nodded sadly and began to teach you singing.'
                 act 'Get_Away':gt'dk','holl'
                 end
                 
                 act 'If you will not be so napivatsya, we could try again.':
                 cls
                 alexeyVopros=2
                 'You playfully smiled and said to him, that you do not mind him vstrechatsya, if it is not so napivatsya. Alex smiled with relief. "That`s good. And now engaged." The remaining time you have dedicated classes.'
                 act 'Get_Away':gt'dk','holl'
                 end
             end
         
         end
         
         
     
         if money>=500 and vokalday!day and alexeySex=0:
             act 'Go to singing lessons (500 rubles 1 h)':
             cls
             minut+=60
             set money = money - 500
             alexeyQW+=1
             vokal+=1
             vokalday=day
             gs'stat'
             !'<center><img src="pic/dk2.jpg" ></center>'
             if alexeyQW=1:'You entered the room where there was a man with long hair pulled back in a tail. He looked at you look confident and well -modulated voice said. "It takes a girl, You are on vocals?" You nodded and gave him 500 rubles. He put them in his pocket and rising introduced "I`m Alex, and you?" You answered him saying that your name is Light. After that. You did not notice as an hour passed. You went out and the man politely said good-bye to you.'
             if alexeyQW=2:horny+=10&'Alex met you and take the money started with you, when you have something that did not work, He touched her hand explaining you for your face. Not knowing what to, you is a little excited.'
             if alexeyQW>=3 and alexeyQW<7:horny+=10&'Alex met you and take the money started with you, when you have something that did not work, He touched her hand explaining you for your face. Not knowing what to, you is a little excited. After class .'
             if alexeyQW>=7:horny+=20&'Alex met you and take the money started with you, when you have something that did not work, He touched her hand explaining you for your face. Not knowing what to, you is aroused. Alex looked at you so, as if seen through you .'
                 if alexeyQW=10 and alexeyVQW=0:
                 'Even during the lessons you have caught from his teacher smell of alcohol. After class you came Alex and offered you go to somewhere together.'
                     act 'Go with Alex':
                     cls
                     'Alex took you by the elbow and led somewhere along the way telling you about myself, he was a professional musician. Laban could only where, phonics works in DC, moonlights as a DJ in a club. In it you immediately saw talent, voice you have not delivered, but he is rapidly developing, Alex just amazed that your data. During the conversation . Alex smiled charmingly and invited you to his home.'
                         act 'Get_Away':gt'nord'
                         
                         act 'Go to Alexey home':
                         cls
                         alexeyVQW+=1
                         minut+=120
                         gs'stat'
                         'Alex lives in a studio apartment, All decoration which suggests, that he was a bachelor, musician and rare wino. The floor was littered bottles, in the room are huge concert speakers occupying the floor kamnaty, worth some sort of equipment. Alex put you on the couch and brought alcohol with a snack. He sat on the Odal from you on an armchair. And you start to drink. Lech proved, simple, gay guy, with a rich biography and interesting outlook on life, you were very pleased with it obschatsya, but Alex quickly looked tipsy and drunk openly.'
                         'He looked at you and said intelligent expression "Well Light, You`re not just agreed to go to my house? I think it`s time to go to the main action. Come to me."'
                         'You think to yourself, what is he still arrogant, but did not expect to stand up and not solid legs went to the chair where he sat Lech.'
                         'When you come to the chair Alex brazenly took dick out of his pants and winked at you "Come, do not be shy, here all their."'
                         	 act 'Kneel down and take in the mouth':
							 cls
							 guy+=1
							 alexeySex=1
							 horny+=10
							 bj+=1
							 minut+=10
							 gs'stat'
							 '<center><img src="qwest/alexey/bj.jpg" ></center>'
							 'You knelt in front of him and stared at his cock, it is really great, not less 20 centimeters. Caressed his hands, you wrapped around his dick <<$liptalk>> and began to suck. While you are smacking their lips flushed on dick, Lech took a mug of beer and began to sip demonstratively. After that.'
							 gs'oral','0'
							     act 'unclothed':
								 cls
								 minut+=10
								 set $nameV = 'Alexey'
								 $boy=$nameV
								 set dick = 20
								 set silavag = 2
								 pose=1
								 gs'stat'
								 '<center><img src="qwest/alexey/sex.jpg" ></center>'
								 'You barely undressed, Alesya as practically force you pulled on the bed and put the cancer.'
								 dynamic $sexstart
								 'Alex slapped you in the ass with his hand and said "I see people at once, you`re a real slut, and place your cancer or kneeling with by a dick in her mouth. You want it herself."'
								 dynamic $sexstart2
								 'During sex Alex stuck somehow smeared cream finger in the ass and started to move it there. Soon he took his dick out of your overworked pussy and rested them to you in the ass.'
								 	 act 'moan':
									 cls
									 minut+=10
									 set $nameV = 'Alexey'
									 $boy=$nameV
									 set dick = 20
									 set silavag = 2
									 pose=1
									 gs'stat'
									 '<center><img src="qwest/alexey/anal.jpg" ></center>'
									 dynamic $analsex
									 gs 'BDsex','ancum'
									 'Alex had finished you fell on his back and kissed you on the cheek. You lay beneath him not knowing what to do. Soon he heard snoring Alexei. You tried to push apart but does. With difficulty you got rid of it with himself on the bed and got out from under his sleeping carcass. Lech slept soundly filling the room. You indignantly dressed and decided to leave the apartment.'
									 act 'Get_Away':gt'nord'
									 end
								 end
							 
							 end
                         end
                     end
                 end
             act 'Get_Away':gt'dk','holl'
             end
         end
         
         if avtoskul = 0 and money >= 30000 and prava = 0 and age>=18:
             act 'Checkout 30sput (training on the rights of)':
             cla
             set money = money - 30000
             set avtoskul = 1
             !'<center><img src="pic/dk2.jpg" ></center>'
             'You paid the money to the cashier and you can now learn every day for the right within 2hours.'
             act 'Get_Away':gt'dk','holl'
             end
         end
         
         if secrDiplom = 0 and sekrObu = 0 and money >= 15000:
             act 'Checkout 15sput (training Secretary)':
             cla
             set money = money - 15000
             set sekrObu = 1
             !'<center><img src="pic/dk2.jpg" ></center>'
             'You paid the money to the cashier and you can now learn every day for the secretary within 2hours. only 10five school days.'
             act 'Get_Away':gt'dk','holl'
             end
         end
         
         if sekrObu > 0 and sekrObu < 11 and secrday ! day:
             act 'To learn from the Secretary (2 hours)':
             cla
             *clr
             set secrday = day
             set sekrObu = sekrObu + 1
             set minut = minut + 120
             '<center><img src="pic/kurs.jpg" ></center>'
             'You went to the office with computers, mainly student in such courses women. In class the teacher came and began to tell you the subtleties of working secretary and the basics of working in the office programs.'
             if cumfrot > 0:set horny = horny + 10&'You fumble nervously in his chair trying to hide the stain of semen on her ass, but it seems from this worse. You started to pay attention to other student.'
             act 'Get_Away':gt'dk','holl'
             end
         end
         
         if sekrObu >= 11 and secrday ! day:
             act 'Get a diploma Secretary':
             cla
             *clr
             set secrday = day
             set sekrObu = 0
             set minut = minut + 15
             set secrDiplom = 1
             '<center><img src="pic/kurs.jpg" ></center>'
             'You went to the office with computers, mainly student in such courses women. In class the teacher came and began to tell you the subtleties of working secretary and the basics of working in the office programs.'
             act 'Get_Away':gt'dk','holl'
             end
         end
         
         if avtoskul >= 1 and avtoskul < 11 and skulday ! day and age>=18:
             act 'Learn rights (2 hours)':
             cla
             *clr
             set skulday = day
             set avtoskul = avtoskul + 1
             set minut = minut + 120
             '<center><img src="pic/dk2.jpg" ></center>'
             'You were trained in modern methods driving.'
                 if nikpravaQW=1:
                 
                 end
             act 'Get_Away':gt'dk','holl'
             end
         end
     if avtoskul >= 11 and skulday ! day and age>=18:
	     act 'To surrender the rights 2 hours':
		 cla
		 *clr
		 set minut = minut + 120
		 set avtoskul = 0
		 set prava = 1
		 set minut = minut + 120
		 '<center><img src="pic/dk3.jpg" ></center>'
		 'Have you been to the traffic cop during 2hours in the city, He was satisfied and did not find what pridratsya.'
		 'You gave ready right.'
		 act 'Get_Away':gt'dk','holl'
		 end
	 end
     if money>=5000 and masash<10 and masashshoolday ! day:
	     act'learn massage':
		 cla
		 set masashshoolday = day
		 set money-=5000
		 set masash+=1
		 set minut+=120
		 gs'stat'
		 'You two o`clock studied massage'
		 if masash=10:'You have issued a certificate of completion of courses masseurs.'
		 act 'Get_Away':gt'dk','holl'
		 end
	 end
end
act 'Get_Away':gt 'nord'
end
--- dk ---------------------------------

# kakuzu
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>mansion Kakuzu</B></center>'
'<center><img src="pic/mansion.jpg" ></center>'
'Ancient gloomy mansion, to which local even a cannon shot afraid to approach and sincerely believe, that lives there that something very bad. No need to have some sort of ability, make your system, emanates from this place of death.'

     act 'Sign in mansion':gt 'kakuzu','mansion'
act 'Get_Away':gt 'nord'
end

if $ARGS[0]='mansion':
cla
*clr
set minut = minut + 5
clr
gs'stat'
'<center><B>mansion Kakuzu</B></center>'
'<center><img src="pic/mansion1.jpg" ></center>'
'The room sits Kakuzu not paying any attention to you'

     act 'Talk to Kakuzu':gt 'kakuzu','mansion1'
act 'Get_Away':gt 'kakuzu','start'
end

if $ARGS[0]='mansion1':
cla
*clr
set minut = minut + 5
clr
gs'stat'
'<center><B>Kakuzu</B></center>'
'<center><img src="picQW/kakuzu.jpg" ></center>'
if tobiQW = 1:'I know who you are and what you need. pay 100 pieces and then I wiggled, that would teach you how to achieve affinity with the elements.'
if tobiQW = 2:'you have <<srodpaper>> sheets of paper to determine the affinity of the elements. If you do not have enough paper, you have to buy more at Kakuzu for 10 sput list.'



     if money >= 100000 and tobiQW = 1:
		 act 'Here`s the money (100 sput)':
		 cla
		 set money = money - 100000
		 set tobiQW = 2
		 set srodpaper = 10
		 'You put money in front of Kakuzu. He threw them in a drawer without looking.'
		 'you asked "Not even going to count?" What Kakuzu said quietly, "if there is not enough though ruble, I will find and kill you."'
		 '(Kakuzu) - Listen carefully. There are five pieces of Elements,
		 fire - this school is the strongest of all the damage and the weakest protection. But there is nothing better school fire, that would beat the enemy with one blow.
		 lightning - this school each his hit paralyzes the enemy, Done weaker than fire, but if you hooked lightning, then quickly will achieve any.
		 wind - weak Done, weak protection, but no fog, or clones can not save the wind, any attack spell destroys clones wind and fog, plus spell wind is almost impossible to dodge.
		 land - protective school, but the attacks are very dangerous ground, if the enemy attacks miss, it will stick in the ground and can not move. Just near the ground is the most powerful protection from all, protect the land regenerate itself and absolute defense to attack the enemy.
		 water - The damage from this small school, but the spell of water taken from the enemy manna, the same high-level protection of water is very dangerous, she eats manna from the enemy and regenerates, although it is weaker cham similar land protection.
		 Affinity with the element means, that you can learn exactly this element. You can not examine another verse after selecting affinity, not yet fully izuchish element. I give you 10 sheets of paper magic. Each leaf cost me 5000 rubles. Concentrate the energy in a piece of paper and when you can do it, then you can either start over and look forward to another element, or select the element on which you managed skontsentrirovatsya.'
		 act 'Take a sheet of paper':gt 'kakuzu','mansion1'
		 end
     end
     
     if tobiQW = 2 and srodpaper <= 0 and money >= 10000:
     	 act 'I need another paper (10 sput)':
		 cla
		 set money = money - 10000
		 set srodpaper = srodpaper + 1
		 'You gave money and Kakuzu handed you a piece of paper.'
		 act 'Take a sheet of paper':gt 'kakuzu','mansion1'
		 end
     end
     
     if tobiQW = 2:
         act 'Tell me again about the elements':
		 cla
         '(Kakuzu) - Dumbass, listen and remember. There are five pieces of Elements,
		 fire - this school is the strongest of all the damage and the weakest protection. But there is nothing better school fire, that would beat the enemy with one blow.
		 lightning - this school each his hit paralyzes the enemy, Done weaker than fire, but if you hooked lightning, then quickly will achieve any.
		 wind - weak Done, weak protection, but no fog, or clones can not save the wind, any attack spell destroys clones wind and fog, plus spell wind is almost impossible to dodge.
		 land - protective school, but the attacks are very dangerous ground, if the enemy attacks miss, it will stick in the ground and can not move. Just near the ground is the most powerful protection from all, protect the land regenerate itself and absolute defense to attack the enemy.
		 water - The damage from this small school, but the spell of water taken from the enemy manna, the same high-level protection of water is very dangerous, she eats manna from the enemy and regenerates, although it is weaker cham similar land protection.
		 Affinity with the element means, that you can learn exactly this element. You can not examine another verse after selecting affinity, not yet fully izuchish element. I give you 10 sheets of paper magic. Each leaf cost me 5000 rubles. Concentrate the energy in a piece of paper and when you can do it, then you can either start over and look forward to another element, or select the element on which you managed skontsentrirovatsya.'
		 act 'move_away':gt 'kakuzu','mansion1'
		 end
     end
     if tobiQW = 2 and srodpaper > 0 and manna < 2000:'You have no strength, that would continue the concentration.'
     
     if tobiQW = 2 and srodpaper > 0 and manna >= 2000:
         act 'To concentrate energy on the sheet of paper (1 h)':
		 cla
		 set minut = minut + 60
		 set manna = manna - 2000
		 set sweat = sweat + 5
		 if srodstvo = 0:set srodrand = RAND (1,5)
		 set srodstvo = srodstvo + RAND (1,10)
		 'You concentrate energy in the sheet of paper. Do you feel, that spend a huge amount of mana to this action.'
		     if srodstvo < 100:
		     'You get tired and sweating like a horse, but your efforts nor lead to anything.'
             act 'move_away':gt 'kakuzu','mansion1'
             end
             if srodstvo >= 100:
             set srodpaper = srodpaper - 1
                 if srodrand = 1:'Paper broke in your hands. Kakuzu nodded approvingly, affinity with fire. Will you fix it?'
                 if srodrand = 2:'Paper electrified in your hands, and from sparks. Kakuzu nodded approvingly, affinity with lightning. Will you fix it?'
                 if srodrand = 3:'Paper hardened in your hands. Kakuzu nodded approvingly, affinity with the land. Will you fix it?'
                 if srodrand = 4:'Paper shattered to pieces in your hands. Kakuzu nodded approvingly, affinity with the wind. Will you fix it?'
                 if srodrand = 5:'Paper soaked in your hands. Kakuzu nodded approvingly, affinity for water. Will you fix it?'
             
                 act 'Fix the affinity':
                 cla
                 set tobiQW = 3
                 set stihia = srodrand
                 set srodstvo = 0
                 gt 'kakuzu','mansion1'
                 end
                 
                 act 'Unsubscribe from this affinity':
                 set srodstvo = 0
                 gt 'kakuzu','mansion1'
                 end
             end
		 end
     
     end
     if tobiQW = 3 and manna < 1000:
     'Kakuzu tells you "You have almost no energy, you need to rest."'
     end
     if tobiQW = 3 and manna >= 1000:
         if stihia = 1:
             if magik >= 6 and spellfire1 = 0:
                 act 'study Flames (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellfireL = spellfireL + RAND (1,10)
                     if spellfireL < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellfireL >= 100:
                      set spellfire1 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 7 and spellfire2 = 0:
                 act 'Study the release of fire (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellfire2L = spellfire2L + RAND (1,10)
                     if spellfire2L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellfire2L >= 100:
                      set spellfire2 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 8 and spellfire3 = 0:
                 act 'Study Fire Barrier (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellfire3L = spellfire3L + RAND (1,10)
                     if spellfire3L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellfire3L >= 100:
                      set spellfire3 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 9 and spellfire4 = 0:
                 act 'Study Firestorm (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellfire4L = spellfire4L + RAND (1,10)
                     if spellfire4L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellfire4L >= 100:
                      set spellfire4 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 10 and spellfire5 = 0:
                 act 'Learn Flame Shield (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellfire5L = spellfire5L + RAND (1,10)
                     if spellfire5L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellfire5L >= 100:
                      set spellfire5 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
         
         end
         if stihia = 2:
             if magik >= 6 and spellele1 = 0:
                 act 'study Rank (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spelleleL = spelleleL + RAND (1,10)
                     if spelleleL < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spelleleL >= 100:
                      set spellele1 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 7 and spellele2 = 0:
                 act 'Lightning study (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellele1L = spellele1L + RAND (1,10)
                     if spellele1L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellele1L >= 100:
                      set spellele2 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 8 and spellele3 = 0:
                 act 'Study Electro barrier (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellele2L = spellele2L + RAND (1,10)
                     if spellele2L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellele2L >= 100:
                      set spellele3 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 9 and spellele4 = 0:
                 act 'Dance study thousands of birds (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellele3L = spellele3L + RAND (1,10)
                     if spellele3L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellele3L >= 100:
                      set spellele4 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 10 and spellele5 = 0:
                 act 'To study the scope Plyaschuschaya (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellele4L = spellele4L + RAND (1,10)
                     if spellele4L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellele4L >= 100:
                      set spellele5 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             
         end
         if stihia = 3:
             if magik >= 6 and spellert1 = 0:
                 act 'Study quicksand (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellertL = spellertL + RAND (1,10)
                     if spellertL < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellertL >= 100:
                      set spellert1 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 7 and spellert2 = 0:
                 act 'Active protection study (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellert2L = spellert2L + RAND (1,10)
                     if spellert2L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellert2L >= 100:
                      set spellert2 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 8 and spellert3 = 0:
                 act 'learn Abyss (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellert3L = spellert3L + RAND (1,10)
                     if spellert3L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellert3L >= 100:
                      set spellert3 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 9 and spellert4 = 0:
                 act 'Absolute protection study (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellert4L = spellert4L + RAND (1,10)
                     if spellert4L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellert4L >= 100:
                      set spellert4 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 10 and spellert5 = 0:
                 act 'study Sando (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellert5L = spellert5L + RAND (1,10)
                     if spellert5L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellert5L >= 100:
                      set spellert5 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
         end
         if stihia = 4:
             if magik >= 6 and spellwind1 = 0:
                 act 'A gust of wind study (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwind1L = spellwind1L + RAND (1,10)
                     if spellwind1L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwind1L >= 100:
                      set spellwind1 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 7 and spellwind2 = 0:
                 act 'Study horrific pressure (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwind2L = spellwind2L + RAND (1,10)
                     if spellwind2L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwind2L >= 100:
                      set spellwind2 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 8 and spellwind3 = 0:
                 act 'Vacuum protective sphere (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwind3L = spellwind3L + RAND (1,10)
                     if spellwind3L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwind3L >= 100:
                      set spellwind3 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 9 and spellwind4 = 0:
                 act 'vacuum shells (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwind4L = spellwind4L + RAND (1,10)
                     if spellwind4L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwind4L >= 100:
                      set spellwind4 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 10 and spellwind5 = 0:
                 act 'devouring vacuum (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwind5L = spellwind5L + RAND (1,10)
                     if spellwind5L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwind5L >= 100:
                      set spellwind5 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
         end
         if stihia = 5:
             if magik >= 6 and spellwater1 = 0:
                 act 'Study Creek manna (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwaterL = spellwaterL + RAND (1,10)
                     if spellwaterL < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwaterL >= 100:
                      set spellwater1 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 7 and spellwater2 = 0:
                 act 'study Flooding (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwater2L = spellwater2L + RAND (1,10)
                     if spellwater2L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwater2L >= 100:
                      set spellwater2 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 8 and spellwater3 = 0:
                 act 'Study the water bubbles (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwater3L = spellwater3L + RAND (1,10)
                     if spellwater3L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwater3L >= 100:
                      set spellwater3 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 9 and spellwater4 = 0:
                 act 'Water rocket to study shark (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwater4L = spellwater4L + RAND (1,10)
                     if spellwater4L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwater4L >= 100:
                      set spellwater4 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
             if magik >= 10 and spellwater5 = 0:
                 act 'Study the Great Flood (1 h)':
                 cla
                 set manna = manna - 1000
                 set minut = minut + 60
                 set spellwater5L = spellwater5L + RAND (1,10)
                     if spellwater5L < 100:
                     'You diligently spell an hour, but has not been able to comprehend.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                      if spellwater5L >= 100:
                      set spellwater5 = 1
                     'Finally you will able to study the spell.'
                     act 'move_away':gt 'kakuzu','mansion1'
                     end
                 end
             
             end
         end
         
         
     
     end
     
act 'Get_Away':gt 'kakuzu','mansion'
end























--- kakuzu ---------------------------------

# youry
$roomyour={
 set $nameV = 'Yuri'
 $boy=$nameV
 set dick = 18
 set silavag = 2
 harakBoy=1
 NoGuy=1
 GoToGuy=1
 finance=1
 act 'on the bed':gt'BDsex','start'
}

set minut = minut + 5
'<center><B><font color=maroon>apartment Yuri</font></B></center>'
'<center><img src="peter/peterdoor.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'nord'
     end
     
     act 'Ring the doorbell':
     cla
		 if hour>16:
		 'You`ve reached the door. The door opened very quickly, Yuri stood on the threshold. He has invited you to enter.'
		     act 'Login to Jury':
		     cls
		     minut+=15
		     gs'stat'
		     'You entered the apartment to Jury, he held you in the room and sat on the chair. I went into the kitchen and priens bottle of champagne with grapes.'
		         act 'Drinking with Yuri':
				 cls
				 minut+=15
				 gs'stat'
				 'You are listening to Yuri praises your sex skills drank champagne. Yuri suggested we go to bed.'
				 dynamic $roomyour
				 end
		     end
		 exit
		 else
		 'You`ve reached the door, but you no one opened.'
		 end
     act 'Move away from the door':gt $curloc
     end




--- youry ---------------------------------

# alex
minut+=30
horny+=10
gs'stat'
'Arriving at the apartment Lech that hour dragged various alcohol and made snack, Then you sit down at a table in the hall talking to each other.'
'Finally you opyaneli and Lech attracted you to your.'

act 'Kneel down and take in the mouth':
cls
alexeySex+=1
horny+=10
bj+=1
minut+=10
gs'stat'
picrand=RAND(0,13)
if picrand=0:'<center><img src="qwest/alexey/bj.jpg" ></center>'
if picrand=1:'<center><img src="qwest/alexey/bj1.jpg" ></center>'
if picrand=2:'<center><img src="qwest/alexey/bj2.jpg" ></center>'
if picrand=3:'<center><img src="qwest/alexey/bj3.jpg" ></center>'
if picrand=4:'<center><img src="qwest/alexey/bj4.jpg" ></center>'
if picrand=5:'<center><img src="qwest/alexey/bj5.jpg" ></center>'
if picrand=6:'<center><img src="qwest/alexey/bj6.jpg" ></center>'
if picrand=7:'<center><img src="qwest/alexey/bj7.jpg" ></center>'
if picrand=8:'<center><img src="qwest/alexey/bj8.jpg" ></center>'
if picrand=9:'<center><img src="qwest/alexey/bj9.jpg" ></center>'
if picrand=10:'<center><img src="qwest/alexey/bj10.jpg" ></center>'
if picrand=11:'<center><img src="qwest/alexey/bj11.jpg" ></center>'
if picrand=12:'<center><img src="qwest/alexey/bj12.jpg" ></center>'
if picrand=13:'<center><img src="qwest/alexey/bj13.jpg" ></center>'
'You knelt before him and clasped his dick <<$liptalk>> began sucking. Alex lay relaxed and caught the buzz, Finally he removed you from the penis and resulted in the bed.'
gs'oral','0'
	 act 'unclothed':
	 cls
	 minut+=10
	 set $nameV = 'Alexey'
	 $boy=$nameV
	 set dick = 20
	 set silavag = 2
	 pose=1
	 gs'stat'
	 '<center><img src="qwest/alexey/sex.jpg" ></center>'
	 'You barely undressed, Alesya as practically force you pulled on the bed and put the cancer.'
	 dynamic $sexstart
	 'Alex slapped you in the ass with his hand and said "Well, techesh already slut? Like ass on dick twist?"'
	 dynamic $sexstart2
	 'During sex Alex stuck somehow smeared cream finger in the ass and started to move it there. Soon he took his dick out of your overworked pussy and rested them to you in the ass.'
		 act 'moan':
		 cls
		 minut+=10
		 set $nameV = 'Alexey'
		 $boy=$nameV
		 set dick = 20
		 set silavag = 2
		 pose=1
		 gs'stat'
		 '<center><img src="qwest/alexey/anal.jpg" ></center>'
		 dynamic $analsex
		 gs 'BDsex','ancum'
		 'Alex had finished with you slipped and went into the bathroom.'
		 act 'Get_Away':gt'nord'
		 end
	 end
end





















--- alex ---------------------------------

# alexgang
minut+=30
horny+=10
gs'stat'
'Arriving at the apartment Lech that hour dragged various alcohol and made snack, Then you sit down at a table in the hall talking to each other.'
'At this point, Lech went to open. You heard a man`s voice in the hallway "Hi Lech, I do not opazdal?" Lech said "Come."'
	if alexgangbang=0:
	'You`re a little surprised, Who could it be. At this moment entered the room Alexander E., nightclub owner. He greeted you and sat down on a chair.'
	else
	'Entered the room Alexander E., nightclub owner. He greeted you and sat down on a chair.'
	end
'Alex began pouring alcohol and you have been drinking in Troy.'
	if alexgangbang=0:
	'Alex finally put down the bottle aside and pulled out a member of his pants. "crawl here" You looked at him in surprise and looked at Sasha. Lech hastened you "C`mon, not tushuysya, it`s ok."'
	else
	'Alex finally put down the bottle aside and pulled out a member of his pants. "crawl here"'
	end

act 'Kneel down and take in the mouth':
cls
alexgangbang+=1
horny+=10
bj+=1
minut+=10
gs'stat'
picrand=RAND(0,13)
if picrand=0:'<center><img src="qwest/alexey/bj.jpg" ></center>'
if picrand=1:'<center><img src="qwest/alexey/bj1.jpg" ></center>'
if picrand=2:'<center><img src="qwest/alexey/bj2.jpg" ></center>'
if picrand=3:'<center><img src="qwest/alexey/bj3.jpg" ></center>'
if picrand=4:'<center><img src="qwest/alexey/bj4.jpg" ></center>'
if picrand=5:'<center><img src="qwest/alexey/bj5.jpg" ></center>'
if picrand=6:'<center><img src="qwest/alexey/bj6.jpg" ></center>'
if picrand=7:'<center><img src="qwest/alexey/bj7.jpg" ></center>'
if picrand=8:'<center><img src="qwest/alexey/bj8.jpg" ></center>'
if picrand=9:'<center><img src="qwest/alexey/bj9.jpg" ></center>'
if picrand=10:'<center><img src="qwest/alexey/bj10.jpg" ></center>'
if picrand=11:'<center><img src="qwest/alexey/bj11.jpg" ></center>'
if picrand=12:'<center><img src="qwest/alexey/bj12.jpg" ></center>'
if picrand=13:'<center><img src="qwest/alexey/bj13.jpg" ></center>'
'You knelt before him and clasped his dick <<$liptalk>> began sucking. Alex sat relaxed and caught the buzz, Finally he removed you from the penis and resulted in the bed.'
gs'oral','0'
'Lech you raised and moved to the bed where Sasha was already. He put you on all fours facing Sasha.'
	 act 'Take by mouth Sasha':
	 cls
	 if sashaclubsex=0:sashaclubsex=1&guy+=1
	 gang+=1
	 alexgangbang+=1
	 horny+=10
	 bj+=1
	 minut+=10
	 set $nameV = 'Alexey'
	 $boy=$nameV
	 set dick = 20
	 set silavag = 2
	 pose=1
	 cumlip+=1
	 swallow+=1
	 gs'stat'
	 picrand=RAND(0,9)
	 if picrand=0:'<center><img src="qwest/alexey/gang.jpg" ></center>'
	 if picrand=1:'<center><img src="qwest/alexey/gang1.jpg" ></center>'
	 if picrand=2:'<center><img src="qwest/alexey/gang2.jpg" ></center>'
	 if picrand=3:'<center><img src="qwest/alexey/gang3.jpg" ></center>'
	 if picrand=4:'<center><img src="qwest/alexey/gang4.jpg" ></center>'
	 if picrand=5:'<center><img src="qwest/alexey/gang5.jpg" ></center>'
	 if picrand=6:'<center><img src="qwest/alexey/gang6.jpg" ></center>'
	 if picrand=7:'<center><img src="qwest/alexey/gang7.jpg" ></center>'
	 if picrand=8:'<center><img src="qwest/alexey/gang8.jpg" ></center>'
	 if picrand=9:'<center><img src="qwest/alexey/gang9.jpg" ></center>'
	 'Standing on all fours, you started to suck Sasha. He was not big and soft dick hard standing in your mouth. But the hard work you made вЂ‹вЂ‹him a member of the strain.'
	 dynamic $sexstart
	 'Your body Mota from bumps in the ass during frictions Lehi and nebilo you need to move your head during a blowjob, just enough to work sponges clasping member snugly.'
	 dynamic $sexstart2
     'Sasha also finished your mouth. Sperm was not much and you can easily swallow all.'
     act 'Get_Away':gt'nord'
	 end
end











--- alexgang ---------------------------------

# lakecafe
if $ARGS[0]='main':

cla
*clr
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
gs 'stat'
set barrnd = rand (1,3)
!LCWorkRand=RAND(1,6)
'<center><img src="LakeCafe/LakeCafe.jpg" ></center>'
*nl
*nl
'Naiobyknovenneyshaya barbecue, whom many in the vast country.'
'The cost of lunch - 75 rubles'
'Hours CafГ© - with 14:00 prior_to 04:00'
*nl

	if hour >= 14 or hour <4:

		 if barmenshameet = 0:
			 if barrnd = 1:'The bar stands smiling <a href="exec:GT ''lakecafe'',''barmensha''">barmaid</a> and polishes glasses'
			 if barrnd = 2:'The bar stands smiling <a href="exec:GT ''lakecafe'',''barmensha''">barmaid</a> and wipes the table'
			 if barrnd = 3:'The bar stands smiling <a href="exec:GT ''lakecafe'',''barmensha''">barmaid</a> so what- it mixes'
		 end

		 if barmenshameet = 1:
			 if barrnd = 1:'The bar is worth <a href="exec:GT ''lakecafe'',''barmensha''">Zhenya</a> and polishes glasses'
			 if barrnd = 2:'The bar is worth <a href="exec:GT ''lakecafe'',''barmensha''">Zhenya</a> and wipes the table'
			 if barrnd = 3:'The bar is worth <a href="exec:GT ''lakecafe'',''barmensha''">Zhenya</a> so what- it mixes'
		 end
		 
		 
		 
		 if week = 1 and hour = 22: 
			 
			 if LCWorkRand = 1:
			 randguycafe=RAND(3,6)
			 if LCwork = 0: 'One of the tables sat a group of men and drinks, talking loudly and laughing.'
			 if LCwork = 1: 'One of the tables sits <a href="exec:GT ''LCwork'',''start1''"><<randguycafe>> men</a> and drinks, talking loudly and laughing.'
			 end
			 
			 if LCWorkRand = 2:
			 if LCwork = 0: 'One of the tables sat an old man and eats barbecue.'
			 if LCwork = 1: 'One of the tables sits <a href="exec:GT ''LCwork'',''start2''">elderly man</a> and eating a kebab.'
			 end
			 
			 if LCWorkRand = 3:
			 if LCwork = 0: 'One of the tables sit two guys and drink.'
			 if LCwork = 1: 'One of the tables sit <a href="exec:GT ''LCwork'',''start3''">two guys</a> and drink.'
			 end
			 
			 if LCWorkRand = 4:
			 if LCwork = 0: 'One of the tables sit a guy with a girl and talk about what- then.'
			 if LCwork = 1: 'One of the tables sit <a href="exec:GT ''LCwork'',''start4''">boy and girl</a> and talk about what- then.'
			 end
			 
			 if LCWorkRand = 5:
			 if LCwork = 0: 'One of the tables and sitting girl dines.'
			 if LCwork = 1: 'One of the tables sits <a href="exec:GT ''LCwork'',''start5''">girl</a> and supper.'
			 end
			 
			 if LCWorkRand = 6:
			 if LCwork = 0: 'One of the tables sat a fat man and talking on the phone.'
			 if LCwork = 1: 'One of the tables sits <a href="exec:GT ''LCwork'',''start6''">fat man</a> and talking on the phone.'
			 end
		end
	*nl
	'- <a href="exec:GT ''laketoilet'',''main''">Wc</a>'

		if money >= 75:
			 act 'eat 75 RUB':
			 cla
			 *clr
				 act 'Get up from the table':set minut = minut + 20&gt 'lakecafe','main' 
			 '<center><img src="pics/food.jpg" ></center>'
			 set minut = minut + 30
			 set health = health + 10
			 set money = money - 75
			 set manna = manna + 5
			 set willpower = willpower + 5
				 if energy >= 30:
				 set fat = fat + 5
				 'You can no longer have.'
				 end
				 if energy >= 20 and energy < 30:
				 set fat = fat + 3
				 set energy = energy + 10
				 'You pushed through the power of a meal.'
				 end
				 if energy < 20:
				 set energy = energy +20
				 set fat = fat + 1
				 'You gladly ate food.'
				 end
				 if water >= 20:
				 'Tea in you no longer climbs.'
				 end
				 if water < 20:
				 'You gladly drank a cup of tea.'
				 set water = water +20
				 end
			 end
		end

	end

if LCwork2 => 1 and LCwork2day ! day and hour = 18:
     act 'Help in the kitchen':
     gt 'LCwork','Kitchen'
     end
end

act 'Get_Away':set minut = minut + 2&gt'nord'
end

if $ARGS[0]='barmensha':
cls
gs 'stat'
'<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
*nl
*nl
	if barmenshameet = 0:

	'The bartender looked at your eyes and, smilingly, asked:'
	'-Would you like that- some?'

	end

	if barmenshameet = 1:

	'Jack smiled, when you come to it'
	'-hello! - she said with a smile'

	end

	if hour >= 14 or hour < 4:
		if barmenshameet = 0:
			 act 'chat':
			 cla
			 *clr
			 set barmenshameet = 1
			 set JenyaLC = 10
			 set minut = minut + 30
			 gs 'stat'
			 '<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
			 'You chatted with bartender. During the conversation, that her name is Eugene and it works here with his girlfriend, Angela, which is a cook on the barbecue.'
				 act '...':
				 gt 'lakecafe','barmensha'
				 end
			 end
		end

		if barmenshameet = 1:
			act 'chat':
			cla
			*clr
			if JenyaLC < 60: set JenyaLC = JenyaLC + 3
			set minut = minut + 30
			gs 'stat'
			'<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
			'You are talking to the works of Eugene, work, life and all sorts of trivia.'
				 act '...':
				 gt 'lakecafe','barmensha'
				 end
			end
		end
         
         
		if JenyaLC >=60 and horny > 50:
			act 'flirt':
			cla
			*clr
			set minut = minut + 10
			gs 'stat'
			'<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
			'You chat with Zhenya, making it ambiguous hints. Zhenya, it_seems, understands you and invites you to go for it. You agree and follow along with her to the kitchen.'
				 act '...':
				 if JenyaLCfirst = 0: gt 'LCporn','firsttime'
				 if JenyaLCfirst = 1: gt 'LCporn','sex'
				 end
			end
		end
		
        if JenyaLC >=35:
             act 'Ask about work':
             cla
             *clr
             '<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
                 if LCworkwork2 < 1:
                 
                 
                 'You ask about the work of Eugene. It tells you, that her sister needed help in the kitchen, come to 18 hours, you need to work a half hour, for that you will be paid 175 rubles.'
                 set LCworkwork2 = 1
                 set LCwork2 = 1
                 
                 act '...':
				 set minut = munut + 4
				 gt 'lakecafe','barmensha'
				 end
                 
                 else
                 
                 'You ask about the work of Eugene. It reminds you that, that her sister needed help in the kitchen, come to 18 hours, you need to work a half hour, pay for it 175 rubles.'
                 
                 
                 act '...':
				 set minut = munut + 4
				 gt 'lakecafe','barmensha'
				 end
				 
				 end
			 end
		 end
		 
		if JenyaLC >= 80:
			 act 'ask about "special" work':
			 cla
			 *clr
			 '<center><img src="LakeCafe/LakeBarmensha.jpg" ></center>'
				 if LCworkwork = 0:
				 
				 'You ask about Eugene "special" work. It tells you, that on Mondays, in 22 hours, in the cafe visitors, which require qualitative "service". pay from 500 prior_to 2000 rubles.'
					 act '...':
					 set LCworkwork = 1
					 set LCwork = 1
					 set minut = munut + 4
					 gt 'lakecafe','barmensha'
					 end
				 end
				 
				 if LCworkwork = 1:
				 'You ask about the work of Eugene. It reminds you of conditions: Mondays, in 22 hours, must be "serve" certain visitors. Paid for it by 500 prior_to 2000 rubles.'
					 act '...':
					 set minut = minut + 3
					 gt 'lakecafe','barmensha'
					 end
				 end
			 
			 end
		end

	end

act 'move_away':gt 'lakecafe','main'


end
--- lakecafe ---------------------------------

# laketoilet
set LCtoiletiventrand = rand (1,100)



if $ARGS[0]='main':
cla
*clr
if hour <4 and LCtoiletiventrand => 83 and LCtoiletivent = 0:
'<center><img src="LakeCafe/ToiletSexStart.jpg" ></center>'
'You went to the bathroom and saw a man in the corner drochaschego. It_Seems, he did not see you.'

act 'Be company':
set LCtoiletivent = 1
gt 'LCporn','toiletsex'
end

act 'Exit out of the closet': gt 'lakecafe','main'

else
'<center><img src="LakeCafe/Toilet.jpg" ></center>'
'Dirty and smelly toilet, wherein, seems, never cleaned'
clr
gs'stat'

     if tanga=1:
     act 'Remove underwear':
     cla
     set tanga = 0
     gt'laketoilet','main'
     end
     end
     
     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
         act 'View results':gt'laketoilet','main'
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
             act 'Go_Out':gt'laketoilet','main'
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				 act 'Go_Out':gt'laketoilet','main'
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
				 act 'Go_Out':gt'laketoilet','main'
				 end
             end
         end
     end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
     act 'substitution 15 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumanus =0
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm with yourself.'
     act 'Go_Out':gt'laketoilet','main'
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 15 min':
     cla
     *clr
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 15
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':gt'laketoilet','main'
     end
end

if cumfrot > 0:
     act 'Wipe the cum from clothes 15 min':
     cla
     *clr
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 15
     !'<center><img src="pic/facesp.jpg" ></center>'
     'You have erased the traces of semen from clothing.'
     act 'Go_Out':gt'laketoilet','main'
     end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 act 'End_Up':gt'sexshop','toi'
		 end
	 end

act 'Exit out of the closet':gt'lakecafe','main'
end
end

--- laketoilet ---------------------------------

# LCporn
if $ARGS[0]='firsttime':
cla
*clr
set JenyaLCfirst = 1
gs 'stat'
'You enter the kitchen, then fold in the pantry. Jack looks at you and says:'
'-This may scare you a little bit, but you should have when- anything is found...'
'She priopuskaet skirt and you see... member! Jack begins to caress his fingers, looking at you. She touches your chest.'
'<center><img src="LakeCafe/LakeFirstTime.jpg" ></center>'
     act 'Resume':
     cla
     *clr
     set randlcpic = rand (1,7)
     !set sex = sex + 1
     set sexfuta = sexfuta + 1
     !set cumass = cumass + 1
     !set cumpussy = cumpussy + 1
     set JenyaLC = JenyaLC + 5
     set minut = minut + 40
     set $nameV = 'Zhenya'
     $boy='Zhenya'
	 set dick = 17
	 set silavag = 1
	 pose=1
     gs 'stat'
     if randlcpic = 1: '<center><img src="LakeCafe/RandSex1/1.jpg" ></center>'
     if randlcpic = 2: '<center><img src="LakeCafe/RandSex1/2.jpg" ></center>'
     if randlcpic = 3: '<center><img src="LakeCafe/RandSex1/3.jpg" ></center>'
     if randlcpic = 4: '<center><img src="LakeCafe/RandSex1/4.jpg" ></center>'
     if randlcpic = 5: '<center><img src="LakeCafe/RandSex1/5.jpg" ></center>'
     if randlcpic = 6: '<center><img src="LakeCafe/RandSex1/6.jpg" ></center>'
     if randlcpic = 7: '<center><img src="LakeCafe/RandSex1/7.jpg" ></center>'
     *nl
     *nl
     'You allow it to continue. She takes off her clothes with you and together you go on the mattress.'
     dynamic $sexudo
     dynamic $sexcum
         act 'Go_Out':gt 'Lakecafe','main'
     end
     
     act 'escape':
     cla
     *clr
     'frightened, you run away from the barbecue.'
     set JenyaLC = JenyaLC - 10
     set minut = minut + 7
     gs 'stat'
         act '...':gt'nord'
     end
end

if $ARGS[0]='sex':
cla
*clr
'<center><img src="LakeCafe/LakeFirstTime.jpg" ></center>'
'Eugene leads you into the closet and looks at you expectantly.'
set randlcpic = rand (1,7)
     act 'vaginal':
     cla
     *clr
     set sexfuta = sexfuta + 1
     set JenyaLC = JenyaLC + 5
     set minut = minut + 40
     Set horand = RAND (1,100)
	 set $nameV = 'Zhenya'
	 $boy='Zhenya'
	 set dick = 17
	 set silavag = 1
	 pose=1
     if randlcpic = 1: '<center><img src="LakeCafe/RandSex1/1.jpg" ></center>'
     if randlcpic = 2: '<center><img src="LakeCafe/RandSex1/2.jpg" ></center>'
     if randlcpic = 3: '<center><img src="LakeCafe/RandSex1/3.jpg" ></center>'
     if randlcpic = 4: '<center><img src="LakeCafe/RandSex1/4.jpg" ></center>'
     if randlcpic = 5: '<center><img src="LakeCafe/RandSex1/5.jpg" ></center>'
     if randlcpic = 6: '<center><img src="LakeCafe/RandSex1/6.jpg" ></center>'
     if randlcpic = 7: '<center><img src="LakeCafe/RandSex1/7.jpg" ></center>'
     *nl
     *nl
     'You Zhenya undress, then lie down on the mattress.'
     dynamic $sexudo
     dynamic $sexcum
     gs 'stat'
         act 'Go_Out':gt 'Lakecafe','main'
     end
     
     act 'oral':
     cla
     *clr
     set bj = bj + 1
     set sexfuta = sexfuta + 1
     set JenyaLC = JenyaLC + 5
     set minut = minut + 20
     set cumface = cumface + 1
     set facial = facial + 1
     set minut = minut + 40
     set $nameV = 'Zhenya'
	 $boy='Zhenya'
     Set horand = RAND (1,100)
     
     if randlcpic = 1: '<center><img src="LakeCafe/RandSex2/1.jpg" ></center>'
     if randlcpic = 2: '<center><img src="LakeCafe/RandSex2/2.jpg" ></center>'
     if randlcpic = 3: '<center><img src="LakeCafe/RandSex2/3.jpg" ></center>'
     if randlcpic = 4: '<center><img src="LakeCafe/RandSex2/4.jpg" ></center>'
     if randlcpic = 5: '<center><img src="LakeCafe/RandSex2/5.jpg" ></center>'
     if randlcpic = 6: '<center><img src="LakeCafe/RandSex2/6.jpg" ></center>'
     if randlcpic = 7: '<center><img src="LakeCafe/RandSex2/7.jpg" ></center>'
     *nl
     *nl
     'You Zhenya undress, then you clasps her jaw member. Jack takes vases hair and fuck you in the mouth. Groaning, Jack pulled out his cock and cum on face you, then got dressed and went out of the closet.'
     gs'oral','0'
     gs 'stat'
         act 'Go_Out':gt 'Lakecafe','main'
     end
end


if $ARGS[0]='toiletsex':
cla
*clr
set dick = 14
set hj = hj + 1
$nameV = 'muzhik'
set $boy = 'muzhik'
'<center><img src="LakeCafe/ToiletSexEnd.jpg" ></center>'
'You came back and hugged a man. Going down to his cock, you started it nadrachivat. The man stopped you, took her hand and led through the back door to the street. Will take you behind the trash cans, He bent and began to fuck you.' 
dynamic $sexudo
dynamic $sexcum
act 'Get_Away':
gt 'laketoilet','main'
end

end
--- LCporn ---------------------------------

# LCwork
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 1: start
if $ARGS[0]='start1':
set horand = rand (1,100)+ 40
set facial = facial + 1
set gang = gang + 1
set slutty = slutty + 1
set anal = anal + 1
set bj = bj + 1
dynamic $venerasiak
set randLCpay = rand (500,2000)
set minut = minut + 140
guy+=randguycafe
if vagina<20:vagina+=randguycafe
cla
*clr
'<center><img src="LakeCafe/LakeWork/1a.jpg" ></center>'
'You walk up to a group of men and say, that today you serve them. They get up and lead to you to the car. During the trip they were stroking your boobs and legs, put their hands into her panties and fingers in her mouth. When you come, They undressed and put you in the position. The men ripped you into all the cracks, obkonchalas then your whole body. '
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'
     act '...':
     cls
     '<center><img src="LakeCafe/LakeWork/1b.jpg" ></center>'
     'They gave you wash and able to take home. You get over it <<randLCpay>> rubleyyu'
     gs 'stat'
     act '...':set money = money + randLCpay&gt 'street'
     end
end


!LC WORK 1: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 2: start
if $ARGS[0]='start2':
cla
*clr
set horand = rand (1,100)
set sex = sex + 1
set slutty = slutty + 1
set facial = facial + 1
set cumface = cumface + 1
set randLCpay = rand (500,2000)
set minut = minut + 140
if vagina<18:vagina+=1
dynamic $venerasiak
guy+=1
'<center><img src="LakeCafe/LakeWork/2a.jpg" ></center>'
'You walk up to the old man and say, that you have come to serve him. he stands, priobnimaet you and you go with him to his car. He carries you into the woods, where you stopped and strips. He spread your legs and you fucked in the pussy, then finished your face.'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'

     act '...':
     cls
     '<center><img src="LakeCafe/LakeWork/2b.jpg" ></center>'
     'He sat in the car and dovС‘z you home. For this you got <<randLCpay>> rubles.'
     gs 'stat'
     act '...':set money = money + randLCpay&gt 'street'
     end
end

!LC WORK 2: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 3: start
if $ARGS[0]='start3':
cla
*clr
set horand = rand (1,100) + 20
set sex = sex + 1
set anal = anal + 1
set bj = bj + 1
set slutty = slutty + 1
set facial = facial + 1
set cumface = cumface + 1
set cumlip = cumlip + 1
set randLCpay = rand (500,2000)
set minut = minut + 140
dynamic $venerasiak
guy+=2
if vagina<18:vagina+=2
'<center><img src="LakeCafe/LakeWork/3a.jpg" ></center>'
'You come to two guys and say, that you `re going with them today. They will lead you into a car and taken to the apartment, where the fuck you in all the cracks. Groaning, they got their huytsy and finished your face.'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'

     act '...': 
     cls
     '<center><img src="LakeCafe/LakeWork/3b.jpg" ></center>'
     'Not allowing you to wash, they kicked you out of the house. For this you got <<randLCpay>> rubles.'
     gs 'stat'
     act '...':set money = money + randLCpay&gt 'Nord'
     end
end
!LC WORK 3: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 4: start
if $ARGS[0]='start4':
cla
*clr
set horand = rand (1,100) + 20
set sex = sex + 1
set kuni = kuni + 1
set gang = gang + 1
set lesbian = lesbian + 1
set anal = anal + 1
set bj = bj + 1
set slutty = slutty + 1
set cumbelly = cumbelly + 1
set randLCpay = rand (500,2000)
set minut = minut + 140
dynamic $venerasiak
girl+=1
guy+=1
if vagina<18:vagina+=1
'<center><img src="LakeCafe/LakeWork/4a.jpg" ></center>'
'You come to a pair and say, that today serve them. They will lead you to his apartment. You start with a girl in every possible way to please a Man. After a while the man broke down and you had finished on his tummy. His little girl licked seed from your stomach.'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'
     act '...':
     cls
     '<center><img src="LakeCafe/LakeWork/4b.jpg" ></center>'
     'You went out of their apartment and came to the house. For this you got <<randLCpay>> rubles.'
     act '...':set money = money + randLCpay&gt 'street'
     end
end

!LC WORK 4: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 5: start
if $ARGS[0]='start5':
set horand = rand (1,100)
set lesbian = lesbian + 1
set kuni = kuni + 1
set slutty = slutty + 1
set randLCpay = rand (500,2000)
girl+=1
dynamic $venerasiak
cla
*clr
'<center><img src="LakeCafe/LakeWork/5.jpg" ></center>'
'You walk up to a girl and say, you today with her. It leads you to his apartment. You start with the girl caress each other, Suva fingers and all sorts of things in their holes. After_playing, Girl lets you.'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'
'You went out of her apartment and came to the house. For this you got <<randLCpay>> rubles.'
gs 'stat'
     act '...':set money = money + randLCpay&gt 'street'
end


!LC WORK 5: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 6: start
if $ARGS[0]='start6':
cla
*clr
set horand = rand (1,100)
set sex = sex + 1
set hj = hj + 1
set facial = facial + 1
set slutty = slutty + 1
set randLCpay = rand (500,2000)
guy+=1
dynamic $venerasiak
if vagina<18:vagina+=1
'<center><img src="LakeCafe/LakeWork/6a.jpg" ></center>'
'You go to the fat man , that today serves its. He leads you to the car and luck into your home, where the fuck you in the vagina. Groaning, he took out his dick and you, masturbate dick, took the sperm itself on face.'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
if horand > horny:Set horny = horny + 10&'You were not satisfied'
     act '...':
     cls
	 '<center><img src="LakeCafe/LakeWork/6b.jpg" ></center>'
	 'You went out of their apartment and came to the house. For this you got <<randLCpay>> rubles.'
	 gs 'stat'
     act '...':set money = money + randLCpay&gt 'street'
     end
end
!LC WORK 6: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK KITCHEN: start
if $ARGS[0]='Kitchen':
cla
*clr
set minut = minut + 90
set LCwork2 = LCwork2 + 1
set money = money + 175
set LCwork2day = day
'<center><img src="LakeCafe/KitchenWorkCafe.jpg" ></center>'
*nl
'You wash the dishes, floors, chopped vegetables, preparing a meal for one and a half hours, for which you give your deserved 175 rubles.'
     act '...':
     gt 'lakecafe','main'
     end
end
! LC WORK KITCHEN: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

--- LCwork ---------------------------------

# pirsingsalon
$pirsyaz={
cls
minut+=30
money-=5000
pirsA = 1
pirs_pain_ton=7
gs'stat'
'<center><img src="pic/pirsing.jpg" ></center>'
'Sitting on the chair you are stuck out his tongue, Master pierced tongue and put you back post.'
act 'Get_Away':gt $curloc
}
$pirsyazout={
cls
minut+=30
money-=5000
pirsA = 0
gs'stat'
'<center><img src="pic/pirsing.jpg" ></center>'
'Master took the rod from your language.'
act 'Get_Away':gt $curloc
}
$pirsgub={
cls
minut+=30
money-=6000
pirsB = 1
gs'stat'
'<center><img src="pic/pirsing2.jpg" ></center>'
'Master pierced lip and you put the ring back.'
act 'Get_Away':gt $curloc
}
$pirsgubout={
cls
minut+=30
money-=6000
pirsB = 0
gs'stat'
'<center><img src="pic/pirsing2.jpg" ></center>'
'Master took the ring out of your mouth.'
act 'Get_Away':gt $curloc
}
$pirsysh={
cls
minut+=30
money-=3000
pirsC = 1
gs'stat'
'Master pierced your ears and put back earrings.'
act 'Get_Away':gt $curloc
}
$pirsyshout={
cls
minut+=30
money-=3000
pirsC = 0
gs'stat'
'Master took the earrings from your ears.'
act 'Get_Away':gt $curloc
}
$pirsnos={
cls
minut+=30
money-=5000
pirsD = 1
gs'stat'
'Master pierced your nose and put the ring back.'
act 'Get_Away':gt $curloc
}
$pirsnosout={
cls
minut+=30
money-=5000
pirsD = 0
gs'stat'
'Master took the ring out of your nose.'
act 'Get_Away':gt $curloc
}
$pirsbro={
cls
minut+=30
money-=5000
pirsE = 1
gs'stat'
'Master pierced eyebrow and put you back post.'
act 'Get_Away':gt $curloc
}
$pirsbroout={
cls
minut+=30
money-=5000
pirsE = 0
gs'stat'
'Master took the rod from your eyebrows.'
act 'Get_Away':gt $curloc
}
$pirssos={
cls
minut+=30
money-=10000
pirsF = 1
nippain=2
nippainday=daystart
gs'stat'
'Master pierced nipples and put you back rings.'
act 'Get_Away':gt $curloc
}
$pirssosout={
cls
minut+=30
money-=10000
pirsF = 0
gs'stat'
'Master took the rings from your nipples.'
act 'Get_Away':gt $curloc
}
$pirsvla={
cls
minut+=30
money-=25000
pirsG = 1
painpub=2
painpubday=daystart
gs'stat'
'Master your pierced labia vagina and inserted back post.'
act 'Get_Away':gt $curloc
}
$pirsvlaout={
cls
minut+=30
money-=25000
pirsG = 0
gs'stat'
'Master took the post of your labia.'
act 'Get_Away':gt $curloc
}
$pirspyp={
cls
minut+=30
money-=10000
pirsN = 1
gs'stat'
'Master pierced navel and put you back post.'
act 'Get_Away':gt $curloc
}
$pirspypout={
cls
minut+=30
money-=10000
pirsN = 0
gs'stat'
'Master took the rod from your navel.'
act 'Get_Away':gt $curloc
}

gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>piercing parlor</B></center>'
'<center><img src="pic/pirsingstudia.jpg" ></center>'
'Small salon where he works a single master.'
if hour>=12 and hour<20 and pirsA = 0 and money>=5000:'<a href="exec:dynamic $pirsyaz">Make a tongue piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsA = 1 and money>=5000:'<a href="exec:dynamic $pirsyazout">Remove tongue piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsB = 0 and money>=6000:'<a href="exec:dynamic $pirsgub">Make a lip piercing 6000 RUB.</a>.'
if hour>=12 and hour<20 and pirsB = 1 and money>=6000:'<a href="exec:dynamic $pirsgubout">Remove lip piercing 6000 RUB.</a>.'
if hour>=12 and hour<20 and pirsC = 0 and money>=3000:'<a href="exec:dynamic $pirsysh">Get pierced ears 3000 RUB.</a>.'
if hour>=12 and hour<20 and pirsC = 1 and money>=3000:'<a href="exec:dynamic $pirsyshout">Remove pierced ears 3000 RUB.</a>.'
if hour>=12 and hour<20 and pirsD = 0 and money>=5000:'<a href="exec:dynamic $pirsnos">Make a nose piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsD = 1 and money>=5000:'<a href="exec:dynamic $pirsnosout">Remove nose piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsE = 0 and money>=5000:'<a href="exec:dynamic $pirsbro">Make eyebrow piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsE = 1 and money>=5000:'<a href="exec:dynamic $pirsbroout">Remove eyebrow piercing 5000 RUB.</a>.'
if hour>=12 and hour<20 and pirsF = 0 and money>=10000:'<a href="exec:dynamic $pirssos">Get pierced nipples 10000 RUB.</a>.'
if hour>=12 and hour<20 and pirsF = 1 and money>=10000:'<a href="exec:dynamic $pirssosout">Remove nipple piercings 10000 RUB.</a>.'
if hour>=12 and hour<20 and pirsG = 0 and money>=25000:'<a href="exec:dynamic $pirsvla">Get pierced vagina 25000 RUB.</a>.'
if hour>=12 and hour<20 and pirsG = 1 and money>=25000:'<a href="exec:dynamic $pirsvlaout">Remove piercing vagina 25000 RUB.</a>.'
if hour>=12 and hour<20 and pirsN = 0 and money>=10000:'<a href="exec:dynamic $pirspyp">Make a navel piercing 10000 RUB.</a>.'
if hour>=12 and hour<20 and pirsN = 1 and money>=10000:'<a href="exec:dynamic $pirspypout">Remove navel piercing 10000 RUB.</a>.'
act 'Get_Away':gt'nord'
--- pirsingsalon ---------------------------------

# vokzal
'<center><H4>railway_station</H4></center>'
'<center><img src="pic/vokzal.jpg" ></center>'
'.'
clr
gs'stat'
gs'time'







act 'Get_Away':minut+=15&gt'nord'

act 'Exit at North Highway':minut+=15&nroad=0&gt'road'

if money>=200:
     act 'Buy a ticket to town':
     cls
     money-=200
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped at the station.'
     
         act 'go further':
         cls
         minut+=15
         gs'stat'
         '<center><img src="pic/electri.jpg" ></center>'
         'through 15 minute train stopped at the station.'
          
             act 'go further':
			 cls
			 minut+=15
			 gs'stat'
			  '<center><img src="pic/electri.jpg" ></center>'
			 'through 15 minute train stopped at the station.' 
			     act 'go further':
				 cls
				 minut+=15
				 gs'stat'
				  '<center><img src="pic/electri.jpg" ></center>'
				 'through 15 minute train stopped in town.'
				  
				 act 'Go_Out':minut+=5&nroad=20&gt'VokzalG'
				 end
				 
				 act 'Go_Out':minut+=5&nroad=15&gt'road'
			 end
			 
			 act 'Go_Out':minut+=5&nroad=10&gt'road'
         end
         
         act 'Go_Out':minut+=5&nroad=5&gt'road'
     end

end
--- vokzal ---------------------------------

# obekt
'<center><H4>object</H4></center>'
'<center><img src="pic/obekt.jpg" ></center>'
'Construction on the facility is stopped and the territory of silence, Only guard walks.'
clr
gs'stat'
gs'time'

if car > 0 and cardrive = 12:
set cardrive = 12
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

act 'Penetrate to the construction site':
cls
minut+=5
gs'stat'
	 if ObjektOpen=0:
	 if ObjektBil=0:ObjektBil=1
     'Construction guarded very carefully, just not be able to enter.'
     act 'Get_Away':gt $curloc
	 else
	 gt'obekt2'
	 end
end

if ObjektBil=1:

end

act 'Take to the road':minut+=15&nroad=16&gt'road'














--- obekt ---------------------------------

# obekt2
'<center><H4>object</H4></center>'
'<center><img src="pic/obekt.jpg" ></center>'
'At the construction site is no longer art, but still worth Bungalow which sits guard. The dip in the ground closed iron plate.'
clr
gs'stat'
gs'time'




act 'Penetrate the failure':
cls
minut+=10
gs'stat'

gt'dangeon'
end

act 'Come up with a building site.':
cls
minut+=5
gs'stat'
gt'obekt'
end
--- obekt2 ---------------------------------

# dangeon
$dundincif={
cls
gs'stat'
'8809 = 6
7111 = 0
2172 = 0
6666 = 4
1111 = 0
3213 = 0
7662 = 2
9312 = 1
0000 = 4
2222 = 0
3333 = 0
5555 = 0
8193 = 3
8096 = 5
7777 = 0
9999 = 4
7756 = 1
6855 = 3
9881 = 5
5531 = 0
There is a clever sense in such tomfoolery, because often clever fool walks.
'
act 'Move away from the inscriptions':gt $curloc
}
$dundinboch={
cls
gs'stat'
if openstateDM2=0:openstateDM2=1
'Soon you will hear the chimes, reconcile those who quarrel.'
act 'Move away from the barrel':gt $curloc
}
$dundinsvitok={
cls
gs'stat'
svitokRTS=1
heart+=1
'You picked up the scroll and he crumbled. As if you breathed in the wind. You listened to feel and understand that in you that something has changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
act 'move_away':gt $curloc
}

gs'stat'

if dungeonMark=0:
'<center><img src="picPRE/dunPRE.jpg" ></center>'
'Man-made caves which can be seen in the depths of the door.'
     act 'Get out of the dungeon':minut+=5&gt'obekt2'
     
     act 'Sign on the door':minut+=5&dungeonMark=1&gt $curloc

end
if dungeonMark=1:
'<center><img src="picPRE/dunPRE1.jpg" ></center>'
'Quite a large and desolate room in which there is nothing but a heap of bones in a corner.'
     act 'Go_Out':minut+=5&dungeonMark=0&gt $curloc
     act 'Go deep into the':minut+=5&dungeonMark=2&gt $curloc
end
if dungeonMark=2:
     if svitokRTS=1:
     
     exit
     end
     
'<center><img src="picPRE/dunPRE2.jpg" ></center>'
'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
     act 'Exit from the gallery':minut+=5&dungeonMark=1&gt $curloc
     act 'Log in 1th room':minut+=5&dungeonMark=3&gt $curloc
     act 'Log in 2th room':
     cls
         if openstateDM=1: 
         minut+=5
         dungeonMark=4
         gt $curloc
         end
         if openstateDM=0:
         :markanotherrand
         DMN[1]=RAND(0,9)
         DMN[2]=RAND(0,9)
         DMN[3]=RAND(0,9)
         DMN[4]=RAND(0,9)
         if DMN[1]=DMN[2] and DMN[1]=DMN[3] and DMN[1]=DMN[4]:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=8 and DMN[3]=0 and DMN[4]=9:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=1 and DMN[3]=1 and DMN[4]=1:jump'markanotherrand'
         if DMN[1]=2 and DMN[2]=1 and DMN[3]=7 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=3 and DMN[2]=2 and DMN[3]=1 and DMN[4]=3:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=6 and DMN[3]=6 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=9 and DMN[2]=3 and DMN[3]=1 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=1 and DMN[3]=9 and DMN[4]=3:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=0 and DMN[3]=9 and DMN[4]=6:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=7 and DMN[3]=5 and DMN[4]=6:jump'markanotherrand'
         if DMN[1]=6 and DMN[2]=8 and DMN[3]=5 and DMN[4]=5:jump'markanotherrand'
         if DMN[1]=9 and DMN[2]=8 and DMN[3]=8 and DMN[4]=1:jump'markanotherrand'
         if DMN[1]=5 and DMN[2]=5 and DMN[3]=3 and DMN[4]=1:jump'markanotherrand'
         i=0
         numdmr=0
         :markdnm
         i+=1
         if DMN[i]=0 or DMN[i]=6 or DMN[i]=9:
         numdmr+=1
         elseif DMN[i]=8:
         numdmr+=2
         else
         end
         if i<4:jump'markdnm'
         numberOSDM=input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>>=?")
             if numberOSDM<0 or numberOSDM>8 or numdmr!numberOSDM:
             MSG("silence, nothing has changed")
             gt $curloc
             else
             openstateDM=1
             MSG("At the door that something clicked")
             gt $curloc
             end
         end
     end
     if openstateDM2=2:act 'Log in 3th room':minut+=5&dungeonMark=5&gt $curloc
end
if dungeonMark=3:
'<center><img src="picPRE/dunPRE3.jpg" ></center>'
'The room in which the center of the standing stone dais on which there are a variety of dusty bottles.'
'Scrawled on the wall of what is <a href="exec:dynamic $dundincif ">insignia</a>.'
     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
     
end
if dungeonMark=4:
'<center><img src="picPRE/dunPRE4.jpg" ></center>'
'Small room in which there are some that <a href="exec:dynamic $dundinboch ">barrels</a>.'

     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
     
     if openstateDM2=1:
     'In the other barrel you see a device where you can enter the numbers.'
         act 'Enter digits':
         cls
         numberOSDM2=input("12,1,1,1,2,1,3,?,?,?,?")
             if numberOSDM2=rikudootvet:
             openstateDM2=2
             MSG("Outside.")
             else
             MSG("silence, nothing has changed")
             end
         gt $curloc
         end
     end
end
if dungeonMark=5:
'<center><img src="picPRE/dunPRE5.jpg" ></center>'
'The room in which the middle, sitting on a stone throne skeleton covered with cobwebs.'
if svitokRTS=0:'In the hands of the skeleton is <a href="exec:dynamic $dundinsvitok ">scroll</a>.'
     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
end









--- dangeon ---------------------------------

# dachain
'<center><B><font color=maroon>dacha</font></B></center>'
'<center><img src="etogame/dachain.jpg" ></center>'
'Your favorite summer residence.'
clr
gs'stat'
gs'time'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if hour >= 6 and hour <= 20 and etoexhib=11:'Kopashatsya working in the garden, huh... can both-some <a href="exec:GT ''etoexhib'',''pos10''">motivate</a> their, to work quicker and smarter.'
if hour >= 6 and hour <= 20 and etoexhib=12:'leave in <a href="exec:GT ''etoexhib'',''pos11''">garden in lingerie and robe.</a>'
if hour >= 6 and hour <= 20 and etoexhib=13 and temp!day:'interestingly, as there <a href="exec:GT ''etoexhib'',''pos12''">garden</a>'


if hour < 23:
	act 'Lie down on the couch':
		 cla
		 minut+=60
		 !!!amend
		 son+=10
		 'I relax lying on the couch.'
		act 'pull':gt'dachain'
	end 
end

if hour =>23:
	 act 'Sleep in the bed':
		 cla
		 *clr
		 '<center><img src="pics/son.jpg" ></center>'
		 if analplugIN = 1:set analplugIN = 0&'Before going to bed you remove a butt plug.'
		 if vibratorIN=1:set vibratorIN=0&'Before going to bed .'
		 if mop > 1:set mop = 0&set vidageday = vidageday - 1&'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
		 set tanga = 1
		 set health = health + 5
		 set hapri = 0
		 InSleep=1
		 gs'stat'
		 'you slept'
			 act 'up':
			 cla
			 InSleep=0
			 minut+=480
			 son=30
			 gt'dachain'
			 end
	 end	 
end
act 'come out':minut+=15&gt'dachamy'
--- dachain ---------------------------------

# dachamy
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>dacha</H4></center>'
'<center><img src="etogame/dachamy.jpg" ></center>'
'Your favorite summer residence.'
clr
gs'stat'
gs'time'
act 'Go to the house':gt'dachain'
if hour <23 and hour=>7:
	 act 'inspect the garden':
		 cla
		 minut+=5
		 if etoexhib<16:gt'dachaogr0'
		 if etoexhib=16: gt'dachaogr'
		 end
	 end
act 'Get off at the mall':minut+=15&gt'dachi'
--- dachamy ---------------------------------

# dachaogr
*clr
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBed = $ARGS[0]
$locBed = $CURLOC
$metkaP = $ARGS[0]
$locP = $CURLOC
$metkaFight = $ARGS[0]
$locFight = $CURLOC

'<center><H4>garden</H4></center>'
if month>4 and month<10:
	 '<center><img src="etogame/vspah.jpg" ></center>'
	 'Landscaped garden.'
	 end
if month<=4 or month>=10:
	 '<center><img src="etogame/vspah.jpg" ></center>'
	 'Not for planting season'
	 end
gs'stat'
!fcolor=rgb(0,0,0)
!bcolor=rgb(255,255,255)
!LCOLOR = rgb(106,90,205)
gs'time'
act 'Get_Away':
minut=minut+5
gt'dachamy'
end
--- dachaogr ---------------------------------

# dachaogr0
clr
gs'stat'
gs'time'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'<center><B><font color=maroon>garden</font></B></center>'
'<center><img src="etogame/burjan.jpg" ></center>'
if etoexhib<11:'Vegetable garden all overgrown with weeds and weeds. Any crop are outgrowths impossible. It looks like former owners did not care about him. We must figure out how to dig the garden.'
if etoexhib=11:'Workers lazy and smoke breaks dig in the ground, pull weeds.'
if etoexhib=>12 and etoexhib<14:'Workers digging the ground. Stow stumps.'
if etoexhib=14 and temp!day:
	cls
	gs'stat'
	'<center><B><font color=maroon>garden</font></B></center>'
	'<center><img src="etogame/vspah.jpg" ></center>'
	'Your kitchen garden plowed. Beds neatly razchercheny. planted with apple trees.'
	'Satisfied drunken workers take a break in the shade. I_Get_It, on the money they took a drink. And, apparently under doping, quickly finished.'
	act 'square': gt'etoexhib', 'pos14'
	end

if etoexhib=15 and temp!day:
	cls
	gs'stat'
	'<center><B><font color=maroon>garden</font></B></center>'
	'<center><img src="etogame/vspah.jpg" ></center>'
	'Your kitchen garden plowed. Beds neatly razchercheny. planted with apple trees.'
	'Tired workers are resting in the shade.'
	act 'pay money':
		cla
		*clr
		'You paid workers 3000 rubles.'
		money-=3000
		etoexhib=16
		gs'stat'
		act 'to the house':minut+=15&gt'dachamy'
		end
	if etoexhib=15 and horny>30:
		act 'pay body':gt 'etoexhib','pos13'
		end
	end	
act 'to the house':minut+=15&gt'dachamy'
--- dachaogr0 ---------------------------------

# dachi
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>dacha cooperative</H4></center>'
'<center><img src="pic/dachi.jpg" ></center>'
clr
gs'stat'
gs'time'
if car > 0 and cardrive = 18:
	 set cardrive = 18
	 'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end
'Initially alley embedded in the ground <a href="exec:GT ''etoexhib'',''pos7''">column advertisement</a>.'
'At the end of the alley located <a href="exec:GT ''etoexhib'',''pos6''">spring with spring water</a>.'
if dachaest=1:
	 'your <a href="exec:GT ''dachamy'',''start''">country cottage area</a>.'
	 'On the contrary your 6 hectare is exactly the same <a href="exec:GT ''etoexhib'',''pos8''">plot neighbor</a>.'
	 end
if etoexhib<13:'You chuvtvuete slight presence of magic.'
act 'Stroll through the alleys': gt 'etoexhib','pos2'
act 'Exit the highway':minut+=15&nroad=5&gt'road'
--- dachi ---------------------------------

# graveyard
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cemetery</H4></center>'
'<center><img src="pic/graveyard.jpg" ></center>'
'Very quiet place surrounded by peace wound philosophical thoughts about the impermanence of life.'
'At the far end of the cemetery you can see the dilapidated building, which used to be whether the crypt, whether chapel.'
clr
gs'stat'
gs'time'



act 'Exit the highway':minut+=15&nroad=3&gt'road'


act 'Go to the tomb':
cls
minut+=15
gs'stat'
gs'time'
'<center><img src="pic/graveyard2.jpg" ></center>'
'On the lattice windows protect dusty window, all around the overgrown bushes.'
act 'Exit the highway':minut+=15&gt $curloc
end







--- graveyard ---------------------------------

# locmansion
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>gated development</H4></center>'
'<center><img src="pic/locmansion.jpg" ></center>'
'Elite settlement which can afford to live only the cream of society.'
clr
gs'stat'
gs'time'

if car > 0 and cardrive = 19:
set cardrive = 19
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end


act 'Exit the highway':minut+=15&nroad=1&gt'road'


if placeMansion>0:'<a href="exec:GT ''youplace''">Your land</a>.'



--- locmansion ---------------------------------

# motel
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>motel</H4></center>'
'<center><img src="pic/motel.jpg" ></center>'
'Roadside motel where truckers stop for something to eat and sleep.'
clr
gs'stat'
gs'time'



act 'Exit the highway':minut+=15&nroad=14&gt'road'
--- motel ---------------------------------

# road
$polustanok={
cls
gs'stat'
'Ordinary railway platform.'
act 'Go_Out':minut+=10&nroad=5&gt'road'
if money>=150:
     act 'Buy a ticket to town (150 RUB)':
     cls
     money-=150
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped at the station.'
     
         act 'go further':
         cls
         minut+=15
         gs'stat'
         '<center><img src="pic/electri.jpg" ></center>'
         'through 15 minute train stopped at the station Gadyukino.'
          
             act 'go further':
			 cls
			 minut+=15
			 gs'stat'
			  '<center><img src="pic/electri.jpg" ></center>'
			 'through 15 minute train stopped in town.'
				 act 'Go_Out':minut+=20&nroad=20&gt'vokzalG'
			 end
			 
			 act 'Go_Out':minut+=15&nroad=15&gt'road'
         end
         
         act 'Go_Out':minut+=10&nroad=10&gt'road'
     end
end
if money>=50:
     act 'Buy a ticket to the Center (50 RUB)':
     cls
     money-=50
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped in the center.'
	 act 'Go_Out':minut+=5&nroad=0&gt'Vokzal'
     end
end
}

$polustanok2={
cls
gs'stat'
'Ordinary railway platform.'
act 'Go_Out':minut+=10&nroad=10&gt'road'
if money>=100:
     act 'Buy a ticket to town (100 RUB)':
     cls
     money-=100
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped at the station Gadyukino.'
     
         act 'go further':
         cls
         minut+=15
         gs'stat'
         '<center><img src="pic/electri.jpg" ></center>'
         'through 15 minute train stopped in town.'
			act 'Go_Out':minut+=20&nroad=20&gt'vokzalG'
         end
         
         act 'Go_Out':minut+=10&nroad=15&gt'road'
     end
end
if money>=100:
     act 'Buy a ticket to the Center (100 RUB)':
     cls
     money-=100
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
         act 'go further':
         cls
         minut+=15
         gs'stat'
         '<center><img src="pic/electri.jpg" ></center>'
         'through 15 minute train stopped in the center.'
	      act 'Go_Out':minut+=5&nroad=0&gt'Vokzal'
			
         end
     act 'Go_Out':minut+=20&nroad=5&gt'road'
     end
end
}
$polustanok3={
cls
gs'stat'
'Ordinary railway platform.'
act 'Go_Out':minut+=15&nroad=15&gt'road'
if money>=50:
     act 'Buy a ticket to town (50 RUB)':
     cls
     money-=100
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped in town.'
		 act 'Go_Out':minut+=20&nroad=20&gt'vokzalG'
     end
end
if money>=150:
     act 'Buy a ticket to the Center (150 RUB)':
     cls
     money-=150
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
		 act 'go further':
		 cls
		 minut+=15
		 gs'stat'
		  '<center><img src="pic/electri.jpg" ></center>'
		 'through 15 minute train stopped at the station.' 
			 act 'go further':
			 cls
			 minut+=15
			 gs'stat'
			  '<center><img src="pic/electri.jpg" ></center>'
			 'through 15 minute train stopped in the center.'
			  
			 act 'Go_Out':minut+=5&nroad=0&gt'Vokzal'
			 end
			 
			 act 'Go_Out':minut+=5&nroad=5&gt'road'
		 end
     act 'Go_Out':minut+=20&nroad=10&gt'road'
     end
end
}
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Northern Highway</H4></center>'
'<center><img src="pic/road.jpg" ></center>'
'<center><<nroad>> kilometer</center>'
'Highway vehicles that fly at high speed, with sweeping trucks rumble enveloping wind.'
clr
gs'stat'
gs'time'
if car > 0 and cardrive = 19 and ncarroad=nroad:
'Standing on the sidelines <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if nroad=0:act 'Go to town':minut+=60&gt'nord'

if nroad=16:act 'Go to the object':minut+=60&gt'obekt'

if nroad=20:act 'Go into town':minut+=60&gt'gorodok'

if nroad<20:act 'Go north':minut+=60&nroad+=1&gt $curloc

if nroad>0:act 'Go south':minut+=60&nroad-=1&gt $curloc


if nroad=0:
'Outskirts of the town which brought sad dilapidated huts among the trees kryazhestyh.'
'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
end
if nroad=1:
'Not podaleku of the city are seen <a href="exec:minut+=15&GT ''locmansion''">mansions</a>.'
end
if nroad=2:
''
end
if nroad=3:
'Podaleku not seen from the road <a href="exec:minut+=15&GT ''graveyard''">cemetery</a>.'
end
if nroad=4:
''
end
if nroad=5:
'Not podaleku from the road is <a href="exec:dynamic $polustanok">train whistle-stop</a> next to which is <a href="exec:minut+=15&GT ''dachi''">dacha cooperative</a>.'
end
if nroad=6:
''
end
if nroad=7:
''
end
if nroad=8:
''
end
if nroad=9:
''
end
if nroad=10:
'Not podaleku from the road is <a href="exec:dynamic $polustanok2">train whistle-stop</a>.'
end
if nroad=11:
''
end
if nroad=12:
''
end
if nroad=13:
''
end
if nroad=14:
'Near the road is <a href="exec:minut+=15&GT ''motel''">motel</a>'
end
if nroad=15:
'Not podaleku from the road is <a href="exec:dynamic $polustanok3">train whistle-stop</a>. From the little station leads to a dirt road <a href="exec:minut+=30&GT ''gadukino''">village Gadyukino</a>'
end
if nroad=16:
'Not podaleku from the road you can see the abandoned building.'
end
if nroad=17:
''
end
if nroad=18:
''
end
if nroad=19:
''
end
if nroad=20:
'Track rests on the old provincial town.'
'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
end
--- road ---------------------------------

# gadukino
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>village Gadyukino</H4></center>'
if month>=5 and month<=9:
'<center><img src="pic/gadukino.jpg" ></center>'
else
'<center><img src="pic/gadukino_winter.jpg" ></center>'
end
'A small village with a rickety wooden houses.'
clr
gs'stat'
gs'time'
if StoryLine=1:'In one <a href="exec:minut+=5&GT ''Gaddvor''">huts live your grandparents</a>.'


act 'Exit the highway':minut+=30&nroad=15&gt'road'
--- gadukino ---------------------------------

# youplace
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Your land</H4></center>'
if placeMansion<2:'<center><img src="pic/yzemelniy.jpg" ></center>'
if placeMansion=2:'<center><img src="pic/ystart.jpg" ></center>'
if placeMansion=3:'<center><img src="pic/yosobnak.jpg" ></center>'
''
clr
gs'stat'
gs'time'

if car > 0 and cardrive = 18:
set cardrive = 18
'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end


act 'Exit the village':minut+=15&gt'locmansion'

if bassMansion=1:'<a href="exec:gt ''ybass''">Swimming_Pool</a>.'
if banaMansion>=1:'<a href="exec:gt ''yban''">bath</a>.'
if placeMansion=3:'<a href="exec:gt ''ymans''">mansion</a>.'

if karta>=1500000 and placeMansion=0:
     act 'Buy land for cottage 1,5 million':
     cls
     karta-=1500000
     placeMansion=1
     minut+=5
     gs'stat'
     'You bought a plot cottage'
     act 'Get_Away':gt $curloc
     end
end


if karta>=500000 and placeMansion=1:
     act 'Pay for supply of communications and building foundations 500 sput':
     cls
     karta-=500000
     placeMansion=2
     minut+=5
     gs'stat'
     'You paid for a supply of communications to the site '
     act 'Get_Away':gt $curloc
     end
end

if karta>=1500000 and placeMansion=2:
     act 'Pay for construction and exterior of the building 1,5 million':
     cls
     karta-=1500000
     placeMansion=3
     minut+=5
     gs'stat'
     'You paid for the construction of housing mansion'
     act 'Get_Away':gt $curloc
     end
end

if karta>=500000 and placeMansion=3 and ymanrem[3]=0:
     act 'Pay for the construction of rooms 500 sput':
     cls
     karta-=500000
     ymanrem[3]=1
     minut+=5
     gs'stat'
     'You paid for the construction of rooms.'
     act 'Get_Away':gt $curloc
     end
end

if karta>=800000 and placeMansion>=2 and banaMansion=0:
     act 'Pay for building baths 800 thousand':
     cls
     karta-=800000
     banaMansion=1
     minut+=5
     gs'stat'
     'You paid for the construction of baths.'
     act 'Get_Away':gt $curloc
     end
end

if karta>=500000 and placeMansion>=2 and bassMansion=0:
     act 'Pay build basseynai 500 thousand':
     cls
     karta-=500000
     bassMansion=1
     minut+=5
     gs'stat'
     'You paid for the construction of swimming pools'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[3]=1:
     act 'Pay for repairs hall 250 thousand':
     cls
     karta-=250000
     ymanrem[3]=2
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=150000 and placeMansion=3 and ymanrem[3]=2:
     act 'Pay furniture for living room 150 thousand':
     cls
     karta-=150000
     ymanrem[3]=3
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[4]=0:
     act 'Pay for repairs bedroom 250 thousand':
     cls
     karta-=250000
     ymanrem[4]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=300000 and placeMansion=3 and ymanrem[4]=1:
     act 'Pay furniture for bedroom 300 thousand':
     cls
     karta-=300000
     ymanrem[4]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[5]=0:
     act 'Pay for bathroom renovation 250 thousand':
     cls
     karta-=250000
     ymanrem[5]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[5]=1:
     act 'Pay for furniture and fixtures for the bathroom 250 thousand':
     cls
     karta-=250000
     ymanrem[5]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture and sanitary ware.'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[6]=0:
     act 'Pay for a kitchen renovation 250 thousand':
     cls
     karta-=250000
     ymanrem[6]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=350000 and placeMansion=3 and ymanrem[6]=1:
     act 'Pay kitchen furniture 350 thousand':
     cls
     karta-=250000
     ymanrem[6]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture for kitchen.'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[7]=0:
     act 'Pay for repairs hall 250 thousand':
     cls
     karta-=250000
     ymanrem[7]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[7]=1:
     act 'Pay furniture hall 250 thousand':
     cls
     karta-=250000
     ymanrem[7]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture for the hall'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[8]=0:
     act 'Pay for repairs fireplace room 250 thousand':
     cls
     karta-=250000
     ymanrem[8]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[8]=1:
     act 'Pay for the purchase of furniture for the fireplace room 250 thousand':
     cls
     karta-=250000
     ymanrem[8]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture.'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[9]=0:
     act 'Pay repair a child`s room 250 thousand':
     cls
     karta-=250000
     ymanrem[9]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[9]=1:
     act 'Pay for the purchase of furniture for children`s rooms 250 thousand':
     cls
     karta-=250000
     ymanrem[9]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[10]=0:
     act 'Pay for repairs library 250 thousand':
     cls
     karta-=250000
     ymanrem[10]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[10]=1:
     act 'Pay for the purchase of furniture for the library 250 thousand':
     cls
     karta-=250000
     ymanrem[10]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[11]=0:
     act 'Pay for repairs gym 250 thousand':
     cls
     karta-=250000
     ymanrem[11]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[11]=1:
     act 'Pay furniture for the gym 250 thousand':
     cls
     karta-=250000
     ymanrem[11]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture for the gym'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[12]=0:
     act 'Pay for repairs Cabinet 250 thousand':
     cls
     karta-=250000
     ymanrem[12]=1
     minut+=5
     gs'stat'
     'You pay for repairs'
     act 'Get_Away':gt $curloc
     end
end

if karta>=250000 and placeMansion=3 and ymanrem[12]=1:
     act 'Pay for the purchase of furniture for the office 250 thousand':
     cls
     karta-=250000
     ymanrem[12]=2
     minut+=5
     gs'stat'
     'You pay for the purchase of furniture.'
     act 'Get_Away':gt $curloc
     end
end




















--- youplace ---------------------------------

# ybass
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>Swimming_Pool</font></B></center>'
'<center><img src="pic/ybass.jpg" ></center>'
clr
gs'stat'

act 'Enter the site':minut+=5&gt'youplace'
--- ybass ---------------------------------

# yban
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>bath</font></B></center>'
'<center><img src="pic/yban.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Enter the site':minut+=5&gt'youplace'
--- yban ---------------------------------

# ymans
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>hall</center>'
if ymanrem[3]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[3]=1:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[3]=2:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[3]=3:'<center><img src="pic/ymans.jpg" ></center>'
if ymanrem[3]=3:'<a href="exec:GT ''mirror'',''start''">mirror</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)



if ymanrem[3]>=1:act 'bedroom':minut+=1&gt'ybedr'
if ymanrem[3]>=1:act 'bathroom':minut+=1&gt'yvan'
if ymanrem[3]>=1:act 'kitchen':minut+=1&gt'ykuh'
if ymanrem[3]>=1:act 'hall':minut+=1&gt'yzal'
if ymanrem[3]>=1:act 'fireplace room':minut+=1&gt'ykamin'
if ymanrem[3]>=1:act 'nursery':minut+=1&gt'ydet'
if ymanrem[3]>=1:act 'library':minut+=1&gt'ybib'
if ymanrem[3]>=1:act 'gym':minut+=1&gt'ysport'
if ymanrem[3]>=1:act 'cabinet':minut+=1&gt'ykabinet'
if nude = 0:act 'Enter the site':minut+=5&gt'youplace'



--- ymans ---------------------------------

# ybedr
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>bedroom</center>'
if ymanrem[4]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[4]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[4]=2:'<center><img src="pic/ybedr.jpg" ></center>'
if ymanrem[4]=2:'<a href="exec:GT ''bed'',''start''">Double</a> <a href="exec:GT ''loker'',''start''">cupboard</a> <a href="exec:GT ''mirror'',''start''">mirror</a>'
clr
gs'stat'
act 'Exit the room':minut+=1&gt'ymans'
--- ybedr ---------------------------------

# yvan
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>bathroom</center>'
if ymanrem[5]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[5]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[5]=2:'<center><img src="pic/yvan.jpg" ></center>'
if ymanrem[5]=2:'<a href="exec:GT ''mirror'',''start''">mirror</a> <a href="exec: gt''vann'',''start'' ">have_a_wash</a>'
clr
gs'stat'
if tampon > 0:
'On a shelf is packing tampons. It will suffice for <B><<tampon>></B> time'
else
'<B><font color=red>You do not have tampons.</font></B>'
end
if stanok > 0:'On a shelf is a machine for shaving, it will have the blades out, that would shave <B><<stanok>></B> time.'
if dirtbelo>0:'Your cart is <font color=red><B><<dirtbelo>></B></font> Power. dirty laundry.'
if poroshok>0:
'Under the bath worth can for washing powder, which is enough for <B><<poroshok>></B> washings.'
else
'<B><font color=red>You do not have washing powder and nothing to wash clothes.</font></B>'
end
if clrbelo > 0:
'In the locker is <font color=blue><B><<clrbelo>></B></font>Power. clean linen. you can <a href="exec: gt''vann'',''start'' ">have_a_wash</a> change clothes.'
else
'<B><font color=red>You can not wash, because you do not what to change.</font></B>'
end
     if husband>0 and husbanday>0 and husporday!day and poroshok>=2:
	 husband+=5
	 set poroshok = poroshok - 2
	 husporday=day
	 'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
	 end
     if dirtbelo>0 and poroshok>=dirtbelo:
     clrbelo+=dirtbelo
     poroshok-=dirtbelo
     dirtbelo=0
     'Washer washed the your laundry'
     elseif poroshok<dirtbelo:
     'You run out of powder for washing machine.'
     end



act 'Exit the room':minut+=1&gt'ymans'

     if tanga=0:
		 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt $curloc
		 end
     end
     if tanga=1:
		 act 'Do not wear underwear':
		 cla
		 set tanga = 0
		 gt $curloc
		 end
     end

if tampon > 0 and mesec > 0 and isprok = 0:
     act 'change swab':
     cla
     *clr
     set tampon = tampon - 1
     set isprok = 1
     set minut = minut + 5
     set manna = manna - 5
     '<center><img src="pics/wash3.jpg" ></center>'
     'You change a tampon.'
     act 'Go_Out':gt $curloc
     end
end


if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
     act 'substitution 5 min':
     cla
     *clr
     set cumpussy = 0
     set cumbelly = 0
     set cumass = 0
     set cumlip = 0
     set cumface = 0
     set cumanus = 0
     set cumfrot = 0
     set sweat = sweat - 1
     set minut = minut + 5
     set clrbelo = clrbelo - 1
     set dirtbelo = dirtbelo + 1
     '<center><img src="pics/wash5.jpg" ></center>'
     'You carefully washed sperm in the bathroom.'
     act 'Go_Out':gt $curloc
     end
end

if cumlip > 0 or cumface > 0:
     act 'Wash off with facial cum 5 min':
     cla
     *clr
     set cumlip = 0
     set cumface = 0
     set sweat = sweat - 1
     set minut = minut + 5
     '<center><img src="pic/facesp.jpg" ></center>'
     'You carefully washed sperm from the face.'
     act 'Go_Out':gt $curloc
     end

end

if mop ! 1:
     act 'wash off cosmetics':
     cla
     set mop = 1
     set minut = minut + 15
     'You have washed off cosmetics.'
     act 'Go_Out':gt $curloc
     end
end


if klisma = 1 and klismaday ! day:
     act 'Make yourself an enema 5 min':
     cla
     *clr
     set minut = minut + 5
     set klismaday = day
     set klismaday1= 1
     '<center><img src="picV/klisma.jpg" ></center>'
     'You have set yourself an enema and clean the intestines, now your ass ready for anal sex.'
     act 'Go_Out':gt $curloc
     end
end

if vibrator = 1 and vibratorIN=0:
     act 'insert the vibrator 5 min':
     cla
     *clr
     set minut = minut + 5
     set vibratorIN = 1
     if vagina < 30:set vagina = vagina + 2
     '<center><img src="pic/vibrator.jpg" ></center>'
     'You leaned over and put in a phallic object currently in the pussy.'
     act 'Go_Out':gt $curloc
     end
end

if vibrator = 1 and vibratorIN=1:
     act 'Remove the vibrator 5 min':
     cla
     *clr
     set minut = minut + 5
     set vibratorIN = 0
     if vagina < 30:set vagina = vagina + 1
     '<center><img src="pic/vibrator.jpg" ></center>'
     'You bent down and took out a vibrator from the vagina.'
     act 'Go_Out':gt $curloc
     end
end


if analplug = 1 and analplugin=0 and klismaday1= 1:
     act 'Insert a butt plug 5 min':
     cla
     *clr
     set minut = minut + 5
     set analplugIN = 1
     if anus < 30:set anus = anus + 5
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
     if butpluguse = 0:set butpluguse = 1&'"I do this not even touch,and why I bought!" think you. Then they all decided to take a closer look. feel, sniffed, in general. "Oh," think you "It is necessary to develop the ass ever, It will have great adventures, one might even say a huge and thick adventures with crimson heads, uh, I was fascinated by that." Scratched you thin fingers unusually hairy head. Then you sent gag myself in the ass, felt a little hurt when rastyagivatsya anus began taking a foreign object, but as soon as the widest part plunged into the murky depths of anal, become easier, and gag herself practically flew to the end, and stood on the situation of producers place.'
     act 'Go_Out':gt $curloc
     end
end

if analplug = 1 and analplugin=1:
     act 'Remove the butt plug 5 min':
     cla
     *clr
     set minut = minut + 5
     set analplugIN = 0
     if anus < 30:set anus = anus + 1
     '<center><img src="pic/analplug.jpg" ></center>'
     if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'
     act 'Go_Out':gt $curloc
     end
end
--- yvan ---------------------------------

# ykuh
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>kitchen</center>'
if ymanrem[6]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[6]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[6]=2:'<center><img src="pic/ykuh.jpg" ></center>'
if ymanrem[6]=2:''
clr
gs'stat'
 if dirttarelka>0 and fairy>=dirttarelka:
 cltarelka+=dirttarelka
 fairy-=dirttarelka
 dirttarelka=0
 'Dishwasher washed the dirty dishes.'
 elseif fairy<dirttarelka:
 'It ended with dishwashing detergent.'
 end
if cltarelka>0:
'Standing over the sink <B><<cltarelka>></B> pieces of clean plates'
else
'<B><font color=red>You have not left clean dishes.</font></B>'
end
if dirttarelka > 0:'In the sink are <B><<dirttarelka>></B> pieces of dirty dishes. <a href="exec: dynamic $dirtarm ">That can be washed and</a>.'
if fairy>0:
'Standing over the sink dishwashing detergent, which is enough for <B><<fairy>></B> time.'
else
'<B><font color=red>You do not have to wash the dishes than, need to buy dishwashing detergent.</font></B>'
end
if eda>0:
if cltarelka=0 or edahot > 0:$edagot=''
if cltarelka>0 and edahot = 0:$edagot='<a href="exec: dynamic $edagotd ">It can be prepared</a>'
'The refrigerator kept food that will last for <B><<eda>></B> servings. <<$edagot>>'
elseif edaD=0 and eda=0:
'<B><font color=red>The refrigerator ball Roll, generally have nothing to eat.</font></B>'
end
if edaD>0:
'The refrigerator is kept healthy meal that will last for <B><<edaD>></B> servings.'
end

act 'Exit the room':minut+=1&gt'ymans'


if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal.</a>'


if pranik>0:
'Cookie will suffice for <<pranik>> time.'
     act 'Cup of tea with cookies (5 min)':
     cla
     *clr
     minut+=5
     pranik-=1
     set health = health + 30
     set manna = manna + 100
     energy += 20
     water += 20
     fat+=50
     frost=0
     gs'stat'
     '<center><img src="pics/food.jpg" ></center>'
     'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
     act 'Get up from the table':gt $curloc
     end
end

if edaD > 0:
     act 'There are diet food (30 min)':
     cla
     *clr
     frost=0
     '<center><img src="pics/food.jpg" ></center>'
     set minut = minut + 30
     set health = health + 10
     set manna = manna + 20
     set edaD = edaD - 1
         if energy >= 30:
         'You can no longer have.'
         end
         if energy >= 20 and energy < 30:
         set energy = energy + 10
         'You pushed through the power of a meal.'
         end
         if energy < 20:
         set energy = energy +20
         'You gladly ate cooked food.'
         end
         if water >= 20:
         'Tea in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a cup of tea.'
         set water = water +20
         end
     act 'Get up from the table':gt $curloc
     end
end

if fatdel > 0:
     act 'to use fat burners':
     cla
     *clr
     set fatdel = fatdel - 1
     set fat = fat - 25
     if fat<0:fat=0
     'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
     act 'Get up from the table':gt $curloc
     end
end

     act 'drink':
     cla
     set minut = minut + 5
         if water >= 20:
         'Water in you no longer climbs.'
         end
         if water < 20:
         'You gladly drank a glass of water.'
         set water = water +20
         end
     act 'Get up from the table':gt $curloc
     end

if husband>0 and husbanday>0 and huseatday!day and eda>=2:
     act 'Cook a meal for her husband 1 h (2 unit of food)':
     cla
     *clr
     husband+=5
     set eda = eda - 2
     set minut = minut + 60
     huseatday=day
     manna-=25
     '<center><img src="pics/cook.jpg" ></center>'
     'You cooked food on a plate for her husband.'
     act 'Move away from the stove':gt $curloc
     end
end

if lekarstvo>0:
'you have <<lekarstvo>> tablets.'
     if sick>0 and lekarday!day:
         act 'take a pill':
		 cla
		 *clr
		 set minut = minut + 5
		 lekarday=day
		 lekarstvo-=1
		 sick-=sick*20/100
		 set lekrand = RAND (0,8)
		 if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
		 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
		 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
		 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
		 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
		 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
		 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
		 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
		 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
		 'You drank the pill'
		 act 'move_away':gt $curloc
		 end
     end
end

if vitamin>0:
'you have <<vitamin>> vitaminok.'
     if vitaminday!day:
         act 'drink Vitaminki':
		 cla
		 *clr
		 set minut = minut + 5
		 vitaminday=day
		 vitamin-=1
		 frost=0
		 if KandidozOnce=1:Kandidoz-=2
		 if GerpesOnce=1:Gerpes-=2
		 if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
		 set skinvan = skinvan + 1
         if skinvan = 20:set skinvan = 0&set skin = skin + 1
		 'You drank Vitaminki'
		 act 'move_away':gt $curloc
		 end
     end
end
--- ykuh ---------------------------------

# yzal
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>hall</center>'
if ymanrem[7]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[7]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[7]=2:'<center><img src="pic/yzal.jpg" ></center>'
if ymanrem[7]=2:'<a href="exec:GT ''TV'',''start''">tv_set</a> <a href="exec:GT ''divan'',''start''">leather sofa</a>'
clr
gs'stat'




act 'Exit the room':minut+=1&gt'ymans'
--- yzal ---------------------------------

# ykamin
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>fireplace room</center>'
if ymanrem[8]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[8]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[8]=2:'<center><img src="pic/ykamin.jpg" ></center>'
if ymanrem[8]=2:'<a href="exec:GT ''stol'',''start''">table</a>'
gs'stat'




act 'Exit the room':minut+=1&gt'ymans'
--- ykamin ---------------------------------

# ydet
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>child</center>'
if ymanrem[9]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[9]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[9]=2:'<center><img src="pic/ydet.jpg" ></center>'
if ymanrem[9]=2:''
clr
gs'stat'




act 'Exit the room':minut+=1&gt'ymans'
--- ydet ---------------------------------

# ybib
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>library</center>'
if ymanrem[10]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[10]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[10]=2:'<center><img src="pic/bib.jpg" ></center>'
if ymanrem[10]=2:''
clr
gs'stat'




act 'Exit the room':minut+=1&gt'ymans'
--- ybib ---------------------------------

# ysport
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>Gymnasium</center>'
if ymanrem[11]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[11]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[11]=2:'<center><img src="pic/ysport.jpg" ></center>'
if ymanrem[11]=2:''
clr
gs'stat'
if obruchday ! day:
'<a href="exec: dynamic $sitrobrd ">twist hoop</a>'
end
if bookYogday ! day:
'<a href="exec: dynamic $sitryogd ">meditation</a>'
end
if skakday ! day:
'<a href="exec: dynamic $sitrskakd ">jumping rope</a>'
end
if pressday ! day:
'<a href="exec: dynamic $sitrpressd ">abdominal exercises</a>'
end
if pushday ! day:
'<a href="exec: dynamic $sitrpushd ">such as push-ups</a>'
end



act 'Exit the room':minut+=1&gt'ymans'
--- ysport ---------------------------------

# ykabinet
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>cabinet</center>'
if ymanrem[12]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[12]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[12]=2:'<center><img src="pic/ykabinet.jpg" ></center>'
if ymanrem[12]=2:'<a href="exec:GT ''Komp'',''start''">computer</a>'
clr
gs'stat'




act 'Exit the room':minut+=1&gt'ymans'











--- ykabinet ---------------------------------

# BDSM
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr 
clr
gs'stat'
'You`ve come to the set where everything was ready for filming porn.'
act 'Begin participating in the sets of':
cla
*clr
if hcol = 0:'<center><img src="studiand/Brunette_2.jpg" ></center>'
if hcol=1:'<center><img src="studiand/Brown_2.jpg" ></center>'
if hcol = 2:'<center><img src="studiand/Redhead_2.jpg" ></center>'
if hcol=3:'<center><img src="studiand/Blonde_2.jpg" ></center>'
'You began to shoot a scene with two actors'
	 act 'Blow job scene':
	 cla
     *clr
     guy+=2
     bj+=2
     gang+=1
	 if hcol = 0:'<center><img src="studiand/Brunette_3.jpg" ></center>'
     if hcol=1:'<center><img src="studiand/Brown_3.jpg" ></center>'
     if hcol = 2:'<center><img src="studiand/Redhead_3.jpg" ></center>'
     if hcol=3:'<center><img src="studiand/Blonde_3.jpg" ></center>'
	 'You are a member of her lips and took in the palm of the second member of the actor and began to work energetically in front of camera, alternately sucking members and trying to pull her mouth at once both members.'
		 act 'get cancer':
		 cla
         *clr
         anal+=1
         anus+=1
		 	 if hcol = 0:'<center><img src="studiand/Brunette_4.jpg" ></center>'
             if hcol=1:'<center><img src="studiand/Brown_4.jpg" ></center>'
             if hcol = 2:'<center><img src="studiand/Redhead_4.jpg" ></center>'
             if hcol=3:'<center><img src="studiand/Blonde_4.jpg" ></center>'
         
		 'One of the actors put you cancer and began rudely shove you my hard cock in the ass, after his cock went into you , and you continue to suck vtrogo ...'
			 act 'sit on top ...':
			 cla
             *clr
			 if hcol = 0:'<center><img src="studiand/Brunette_5.jpg" ></center>'
             if hcol=1:'<center><img src="studiand/Brown_5.jpg" ></center>'
             if hcol = 2:'<center><img src="studiand/Redhead_5.jpg" ></center>'
             if hcol=3:'<center><img src="studiand/Blonde_5.jpg" ></center>'
			 'You famously sat on one dick ass and proceeded to suck the other ...'
				 act 'continue movements':
				 cla
                 *clr
				 if hcol = 0:'<center><img src="studiand/Brunette_6.jpg" ></center>'
                 if hcol=1:'<center><img src="studiand/Brown_6.jpg" ></center>'
                 if hcol = 2:'<center><img src="studiand/Redhead_6.jpg" ></center>'
                 if hcol=3:'<center><img src="studiand/Blonde_6.jpg" ></center>'
				 'The peasants were swapped and prodlolzhili to fuck you'
					 act 'Get ready for Double Penetration':
					 cla
                     *clr
                     sex+=1
                     vagina+=1
					 if hcol = 0:'<center><img src="studiand/Brunette_7.jpg" ></center>'
                     if hcol=1:'<center><img src="studiand/Brown_7.jpg" ></center>'
                     if hcol = 2:'<center><img src="studiand/Redhead_7.jpg" ></center>'
                     if hcol=3:'<center><img src="studiand/Blonde_7.jpg" ></center>'
					 'You got pussy on a dick, and felt like part of the second term you itchy anus and broken'
						 act 'enjoy':
						 cla
                         *clr
						 if hcol = 0:'<center><img src="studiand/Brunette_8.jpg" ></center>'
                         if hcol=1:'<center><img src="studiand/Brown_8.jpg" ></center>'
                         if hcol = 2:'<center><img src="studiand/Redhead_8.jpg" ></center>'
                         if hcol=3:'<center><img src="studiand/Blonde_8.jpg" ></center>'
						 'Outstretched legs, you enjoy the action in two bow, members of hammering your body as pistons, You moan and pushes the bread hands, that the operator was convenient to take close-up.'
							 act 'time to finish ...':
							 cla
                             *clr
                             facial+=1
                             swallow+=1
							 if hcol = 0:'<center><img src="studiand/Brunette_9.jpg" ></center>'
                             if hcol=1:'<center><img src="studiand/Brown_9.jpg" ></center>'
                             if hcol = 2:'<center><img src="studiand/Redhead_9.jpg" ></center>'
                             if hcol=3:'<center><img src="studiand/Blonde_9.jpg" ></center>'
							 'The guys took out his thick member of you and you willingly vsali in front of them on their knees and opened her mouth lasciviously awaiting sperm, guys did not take long and soon the hot jet of sperm began to whip your face and run down his chin on his chest.'
								 act 'Get royalty':
								 minut=minut+480
								 film=film+1
								 BDSMfilm=BDSMfilm+1
								 money=money+vnesh*500
								 actr = 0
								 cla
								 *clr 
								 clr
								 gs'stat'
								 '<center><img src="studiand/dvd-diswith.jpg" ></center>'
								 'you spent 9 hours of shooting the film'
								 'and received <<vnesh*500>>r. in_cash'
									 act 'Leave the studio': gt'down'
								 end
							 end	 
						 end
					 end
				 end
			 end
		 end     
	 end
end

--- BDSM ---------------------------------

# toilet
if $ARGS[0]='start':
cla
$metka = $ARGS[0]
$loc = $CURLOC
*clr
set minut = minut + 5
'<center><img src="toilet/cabin.jpg" ></center>'
'You hear what-rustle at some of the booths ...'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	 act 'Exit the toilet':
	 cla
	 set minut = minut + 5
	 gt'sexshop','podval'
	 end

	 act 'Look at each booth':
	 cla
	 *clr 
	 clr
	 gs'stat'
	 toisexrand = RAND (0,100)
	 '<center><img src="toilet/pry_1.jpg" ></center>'
	 'You looked in all cabins and ....'
		 if toisexrand < 66 :
			 act 'And anyone not found ...':
			 set minut = minut + 10
			 cla
			 *clr 
			 clr
			 gs'stat'
			 '<center><img src="toilet/cabin_0.jpg" ></center>'
			 'And all the booths were empty'
				 act 'Exit the toilet': gt'sexshop','podval'
		     end
	     end
	     
		 if toisexrand >= 66 :
		     act 'Saw a naked girl masturbating ....':
		     set toigirlrand = RAND (1,2)
			     if toigirlrand = 1:
				 set minut = minut + 10
				 cla
				 *clr 
				 clr
				 gs'stat'
				 '<center><img src="toilet/toisex_1_1.jpg" ></center>'
				 'You know it -this girl watched porn in the next stall ....'
				 'You have included a mobile phone and started filming as she caresses herself ...'
					 act 'Enter into the booth and show this bitch ....': gt'toilet','1'
					 act 'You filmed on a mobile phone and left a good movie ...': gt'toilet','0'
					 
				 end
				 
			     if toigirlrand = 2:
				 set minut = minut + 10
				 cla
				 *clr 
				 clr
				 gs'stat'
				 '<center><img src="toilet/toisex_2_1.jpg" ></center>'
				 'You know it - this girl watched porn in the next stall ....'
				 'You have included a mobile phone and started filming as she caresses herself ...'
					 act 'Enter into the booth and show this bitch ....': gt'toilet','2'
					 act 'You filmed on a mobile phone and left a good movie...': gt'toilet','0'
				 end
			 end
		 end                 
	 end
end        


if $ARGS[0]='0':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut = minut + 10
horny=horny+50
'<center><img src="toilet/pornjrolik.jpg" ></center>'
'After you locate and view video on the phone you are very excited ...' 
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


	 act 'Delete video and get out of the basement ...': gt'sexshop','start'
	 act 'Sell вЂ‹вЂ‹video on one of the porn sites ...!':
	 cla
	 *clr
	 bankfond=bankfond+1000
	 '<center><img src="toilet/pornjrolik.jpg" ></center>'
     'Uploading video to the Internet, You sold it to a porn site for 1000 rubles!'
	 'The money you transferred to the bank account ...'
         act 'Get out of the basement ...': gt'sexshop','start'  
     end
end     

if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
clr
gs'stat'
gs'time'
'<center><img src="toilet/toisex_1_2.jpg" ></center>'
'You knocked on the booth and she opened the door a little delay'
'She managed to get dressed, but her cheeks were burning eyes and ran - she realized that he had slept ... '
'Do_You: - Well? I wrote down all your antics on mobile ... ' 
'she: - why?! What you want?'
'Do_You: - you rested? And I want to relax ... So again ...'
'Otherwise! gee-gee-gee ...' 

     act 'She agreed and took off her bra ...':
     cla
     *clr
     '<center><img src="toilet/toisex_1_3.jpg" ></center>'
     'Papillae on her small breasts sticking out excitedly ...'
     'Looking at it you excited and your dick swollen ...' 
     'She was staring at you  ....'
     'Do_You: - Take off your panties and kiss my dick ...'
		 act '...':
		 cla
		 *clr
		 '<center><img src="toilet/toisex_1_4.jpg" ></center>'
		 'Removing the panties she knelt down and began to kiss you dick ...'
		 'Kissing is certainly nice, but would like a good suction ...' 
			 act 'Let ka darling poaktivnee ....':
			 cla
			 *clr
			 '<center><img src="toilet/toisex_1_5.jpg" ></center>'
			 'She has been actively otsayvat you ...'
			 'You are excited and wanted to shove her cock in her mouth deeper ....' 
				 act 'Put in your mouth most tomatoes ...':
				 cla
				 *clr
				 '<center><img src="toilet/toisex_1_6.jpg" ></center>'
				 'You are rude and started to fuck her deep in her mouth ...'
				 'We must certainly try it pogrubee ...' 
					 act 'Swat by the hair and bend to the toilet ...':
					 cla
					 *clr
					 '<center><img src="toilet/toisex_1_7.jpg" ></center>'
					 'Bent his head to the toilet you started insulting her ...' 
					 'You called her a dirty whore and her slave...'
					 'Bitch was excited and kept saying: - Yes!' 
						 act 'Dunk his head in the toilet and wash ...':
						 cla
						 *clr
						 '<center><img src="toilet/toisex_1_8.jpg" ></center>'
						 'You okunli her head in the ass ...' 
						 'She was trembling with excitement and asked cum in her mouth ...'
							 act 'Give her suck ...':
							 cla
							 *clr
							 '<center><img src="toilet/toisex_1_9.jpg" ></center>'
							 'She began to masturbate you substituting your sexy mouth ...' 
							 'After reaching a peak excitation you removed it aside ... '
							 'Do_You: - Get on your knees bitch! Open your mouth and wait!'
								 act '...':
								 cla
								 *clr
								 '<center><img src="toilet/toisex_1_10.jpg" ></center>'
								 'He dutifully got up and looking into your eyes waiting, when it`s apogee ...' 
								 'You run out sperm in her mouth, a few drops fell on the rim of the toilet bowl ...'
								 'Continuing to play the role of the Master  ...'
									 act '- Swallow all the sperm and lick the toilet bowl ...':
									 set horny = 0
									 set girl = girl + 1
									 set minut = minut + 30
									 sexm=sexm+1
									 manna=manna+25
									 cla
									 *clr 
									 clr
									 gs'stat'
									 '<center><img src="toilet/toisex_1_11.jpg" ></center>'
									 'Meekly she began to lick the toilet clean ...' 
									 'And you have a thought: "Do not offer if she participated in the filming" ...'
									 'Judging by her inclination to obey - it could play in the genre BDSM' 
									 'These films are more expensive than conventional, and actresses of this genre is not enough ...'
									 'Do_You: - Listen sweetheart! you`re gorgeous! I offer to you ... '
										 act 'I needed an actress in the genre BDSM':
										 set BDSMactressrand = RAND (1,2)
											 if BDSMactressrand = 1:
											 cla
											 *clr
											 BDSMactress=BDSMactress+1
											 '<center><img src="toilet/toisex_1_1.jpg" ></center>'
											 'she: - This is an interesting aredlozhenie. Where and when?' 
											 'Do_You: - Come to the casting on Saturday! Shooting on Sunday!'
											 'she: - I agree!' 
											 'Do_You: - I am very happy'
												 act 'Here! And before the meeting ...': gt'sexshop','start'
											 end
											 
											 if BDSMactressrand=2:
											 cla
											 *clr
											 '<center><img src="toilet/oblom_1.jpg" ></center>'
											 'she: - Fuck you on the dick!!! goaty!!!' 
											 'Do_You: -Honey you so? I thought you might like submission!!!'
											 'she: - Yes - thought you were a maniac-then!' 
											 'Do_You: - Well excuse neponyatochka left! Video phone I remove as dogovorivatsya!'
												 act 'Get_Away ...':
												 cla
												 *clr
												 bankfond=bankfond+1000
												 '<center><img src="toilet/pornjrolik.jpg" ></center>'
												 '- That`s because of a bitch! - You thought ....' 
												 'You have me still become a star!!! Though on the Internet!'
												 'And finding a video on your phone, sold it to one of the sites for porn 1000 rubles!'
												 'The money you transferred to the bank account ...'  
													 act 'Get out of the basement':gt'sexshop','start'
												 end
											 end
										 end
									 end
                                 end
                             end
                         end
		             end
                 end
		     end
         end
     end
end






if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
clr
gs'stat'
gs'time'
'<center><img src="toilet/toisex_2_2.jpg" ></center>'
'You knocked on the booth and she opened the door a little delay'
'She managed to get dressed, but her cheeks were burning eyes and ran - she realized that he had slept ... '
'Do_You: - Well? I wrote down all your antics on mobile ... ' 
'she: - why?! What you want?'
'Do_You: - you rested? And I want to relax ... So again ...'
'Otherwise! gee-gee-gee ...' 

     act 'She agreed and removed the blouse ...':
     cla
     *clr
     '<center><img src="toilet/toisex_2_3.jpg" ></center>'
     'Papillae on her small breasts sticking out excitedly ...'
     'Looking at it you excited and your dick swollen ...' 
     'She was staring at you  ....'
     'Do_You: - Take off your pants and suck my dick ...'
		 act '...':
		 cla
		 *clr
		 '<center><img src="toilet/toisex_2_4.jpg" ></center>'
		 'Removing the panties she sank to her knees and began to suck your dick ...'
		 'It`s certainly nice, but would like a good suction ...' 
			 act 'Let ka darling poaktivnee ....':
			 cla
			 *clr
			 '<center><img src="toilet/toisex_2_5.jpg" ></center>'
			 'She has been actively otsayvat you ...'
			 'You are excited and wanted to shove her cock in her mouth deeper ....' 
				 act 'Put in your mouth most tomatoes ...':
				 cla
				 *clr
				 '<center><img src="toilet/toisex_2_6.jpg" ></center>'
				 'You are rude and started to fuck her deep in her mouth ...'
				 'We must certainly try it pogrubee ...' 
					 act 'Swat by the hair and bend to the toilet ...':
					 cla
					 *clr
					 '<center><img src="toilet/toisex_2_7.jpg" ></center>'
					 'Bent his head to the toilet you started insulting her ...' 
					 'You called her a dirty whore and her slave...'
					 'Do_You: - Bitch lick the toilet bowl!!!' 
					 'she: - Yes!' 
						 act 'Dunk his head in the toilet and wash ...':
						 cla
						 *clr
						 '<center><img src="toilet/toisex_2_8.jpg" ></center>'
						 'You okunli her head in the ass ...' 
						 'She was trembling with excitement and asked cum in her mouth ...'
							 act 'Give her a lick dick ...':
							 cla
							 *clr
							 '<center><img src="toilet/toisex_2_9.jpg" ></center>'
							 'She began to lick you a member of their sexual tab ...' 
							 'Reaching a peak of excitement you had finished her mouth ... '
							 'Do_You: - Swallow cum bitch! Open your mouth and show me how you did it!'
								 act '...':
								 cla
								 *clr
								 '<center><img src="toilet/toisex_2_10.jpg" ></center>'
								 'He obediently swallowed and opened her mouth ...' 
								 'Have you checked - she really swallowed everything up posleedney drops ...'
								 'Do_You: - Well ka bitch conducted in hand between your legs and show me ...'
									 act '....':
									 set horny = 0
									 set girl = girl + 1
									 set minut = minut + 30
									 sexm=sexm+1
									 manna=manna+25
									 cla
									 *clr 
									 clr
									 gs'stat'
									 '<center><img src="toilet/toisex_2_11.jpg" ></center>'
									 'Groaning she held her fingers on her pussy ...' 
									 'It was full of grease vlagalishe - you can see that it is excited ...'
									 'And you have a thought: "Do not offer if she participated in the filming" ...'
									 'Judging by her inclination to obey - it could play in the genre BDSM' 
									 'These films are more expensive than conventional, and actresses of this genre is not enough ...'
									 'Do_You: - Listen sweetheart! you`re gorgeous! I offer to you ... '
										 act 'I needed an actress in the genre BDSM':
										 set BDSMactressrand = RAND (1,2)
											 if BDSMactressrand = 1:
											 cla
											 *clr
											 BDSMactress=BDSMactress+1
											 '<center><img src="toilet/toisex_2_3.jpg" ></center>'
											 'she: - This is an interesting aredlozhenie. Where and when?' 
											 'Do_You: - Come to the casting on Saturday! Shooting on Sunday!'
											 'she: - I agree!' 
											 'Do_You: - I am very happy'
												 act 'Here! And before the meeting ...': gt'sexshop','start'
											 end
											 
											 if BDSMactressrand=2:
											 cla
											 *clr
											 '<center><img src="toilet/oblom_1.jpg" ></center>'
											 'she: - Fuck you on the dick!!! goaty!!!' 
											 'Do_You: -Honey you so? I thought you might like submission!!!'
											 'she: - Yes - thought you were a maniac-then!' 
											 'Do_You: - Well excuse neponyatochka left! Video phone I remove as dogovorivatsya!'
												 act 'Get_Away ...':
												 cla
												 *clr
												 bankfond=bankfond+1000
												 '<center><img src="toilet/pornjrolik.jpg" ></center>'
												 '- That`s because of a bitch! - You thought ....' 
												 'You have me still become a star!!! Though on the Internet!'
												 'And finding a video on your phone, sold it to one of the sites for porn 1000 rubles!'
												 'The money you transferred to the bank account ...'  
													 act 'Get out of the basement':gt'sexshop','start'
												 end
											 end
										 end
									 end
                                 end
                             end
                         end
		             end
                 end
		     end
         end
     end
end



--- toilet ---------------------------------

# pornstudio
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
'<center><img src="studiand/studia_0.jpg" ></center>'

act 'Get_Away':gt'down'

	 if hour>=9 and hour<=22:
	 'Manager`s office opened.'
     
	 act 'Go to the manager':gt'pornstudio','man'
     act 'Go to the Assistant queries manager':gt'pornstudio','pomman'
     
     if bomzQW=1 and week=4 and workDisk=0:act 'Go to the expense of work':dynamic $workbomzdi
     
     if workDisk=1 and week=5:
         act 'take a drive':
         cls
         minut+=5
         gs'stat'
         workDisk=2
         'You are given a drive, and clarify, Do you remember all the instructions. You nod your head and head with the disc to the output. Moving away from the studio near you heard, as someone-something else came out of a nearby building and headed for you. "Avoid deserted places, maybe blow" hope you, and went on.'
         act 'Get_Away':gt'down'
         end
     end
     
     if workDisk=3 and week=5:
         act 'give the envelope':
         cls
         minut+=5
         workDisk=4
         gs'stat'
             if konvert=0:
             'Starting kopatsya in things you struck terror. no envelope. You once again scoured all, but no envelope.'
             '-WHAT!!! But how could this happen!!! you understand, in which you have got dibs?!! 
You stand and you can not squeeze out a word. It_seems, your situation is really deplorable.
Manager grabs the phone and explains the situation to the other party. After listening to a few minutes, He put the phone down.
-so so - he began - his superiors in a good mood, so I have good news. Do you have a week. Until next Friday night you should bring to the studio 200 000. If you bring - we part, but more than an actress you we will not be able to work. 
-Otherwise.'
             workDolg=200000
             workDolgDay=7
             else
             konvert=0
             money+=5000
             'You gave the envelope to the manager and he gave you 5000 rubles'
             end
             act 'Get_Away':gt'down'
         end
     end
     
     if workDolg>0 and money>=workDolg:
         act 'to repay a debt':
         cls
         minut+=5
         gs'stat'
         workDisk=0
         money-=workDolg
         workDolg=0
         'You gave money owed вЂ‹вЂ‹to the studio.'
         act 'Get_Away':gt'down'
         end
     end
     
     if pfilmNO=1 and pfilmNoVenera=1 and Venera=0:
         act 'Display help about sexually transmitted diseases cured':
         cls
         minut+=5
         pfilmNoVenera=0
         pfilmNO=0
         gs'stat'
         'You are given a certificate of sexually transmitted diseases are cured and you promised to consider your reinstatement as a porn actress.'
         act 'Get_Away':gt'down'
         end
     end
     
	 else
	 'Porn studio closed'
	 end

end

if $ARGS[0]='pomman':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5

'Young guy knocks on the computer keys in a small office.'
'"How can I help you ?."'

if pfilmSTOP = 0:act 'What rating display at my video ?':gt'pornstudio','myvid'

act 'Get_Away':gt'pornstudio','start'
end

if $ARGS[0]='myvid':
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
set minut = minut + 5
if film=0:'"You have no videos."'
	 if film>0:
	 '"you have <<film>> video. Their rating is still very low, simply put, they almost nobody looks."'
	 'Man whispering "By the way if you suddenly want, can contribute to their removal from the network - if you go down to the price."'
	 act 'rasprosit more':gt'pornstudio','myvid2'
	 end
act 'Get_Away':gt'pornstudio','start'
end

if $ARGS[0]='myvid2':
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
set minut = minut + 5
set films_stop_payment = film * 40000
'So long as the video display little, we are not very interested in them, and I can remove them. But will have to pay all the costs of the studio, order 40000 per. The total amount will be <<films_stop_payment>>. moreover, website-hoster does not like such models, so the more you will not get a job with us.'
  if money >= films_stop_payment:act 'agree':gt'pornstudio','myvid3'
act 'Get_Away':gt'pornstudio','start'
end

if $ARGS[0]='myvid3':
$metka = $ARGS[0]
$loc = $CURLOC
gs'stat'
set minut = minut + 5
set money = money - films_stop_payment
set pfilmSTOP = 1
$pfilmstory_new = 'In the porn industry you know the name of ' + $pfname + '. You starred in porn ' + film + ' time. Shootings were discontinued, All videos seized.'
set film = 0
'And_So, your video removed. all the best.'
act 'Get_Away':gt'pornstudio','start'
end

if $ARGS[0]='man':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
'<center><img src="studiand/studia_0.jpg" ></center>'
'Boss porn studio met you warmly and gestured for you to sit down on the sofa.'

	 if pfilmNO=1:
	 'You`re in the black list, with you no decent studio Affairs will not have, adieu.'
	 act 'Get_Away':gt'pornstudio','start'
	 exit
	 end

	 if pfilmSTOP = 1:
	 'You yourself decided to complete all the work with us.'
	 act 'Get_Away':gt'pornstudio','start'
	 exit
	 end

	 if pfilmday=daystart and pfilm>0:
	 'Do not distract me from my work. I told, tomorrow shooting.'
	 act 'Get_Away':gt'pornstudio','start'
	 exit
	 end

	 if pfilmday>=daystart+2:
	 pfilmNO=1
	 'You did not come to shooting. tore them. I paid a lot of dough assistants, actors, operators, plus rent studio, and you took it and threw me. No, with you I do not want to work and am submitting your name to blacklist.'
	 act 'Get_Away':gt'pornstudio','start'
	 exit
	 end

	 if pfilm>0 and hour=10:
	 pfilmday=day
	 'Go to medical examination.'
	 act 'Go for medical check-up':gt'pf','doc'
	 exit
	 elseif pfilm>0 and hour=11:
	 pfilmday=day
	 'Do not be late, my patience is not eternal, Strictly speaking you Peter. Vividly honey inspection.'
	 act 'Go for medical check-up':gt'pf','doc'
	 exit
	 elseif pfilm>0 and hour=12:
	 pfilmday=day
	 'what dick? There is only one waiting for you. Hurry honey inspection.'
	 act 'Go for medical check-up':gt'pf','doc'
	 exit
	 elseif pfilm>0 and hour>12:
	 pfilmday=day
	 'I told you not to be late? said. Get out of here, I`m out for you a lot of money lost. paid actors, assistants, operator, doctor, and because of you slut, all shooting broke down.'
	 'Or come back tomorrow and work for free, or get out and I know you do not want.'
		 act 'Himself to work for free moron':
		 pfilmNO=1
		 pfilm=0
		 gt'pornstudio','start'
		 end
		 
		 act 'Fair_Enough, in return for free.':
		 pfilmNOPAY=1
		 gt'pornstudio','start'
		 end
	 !else
	 !'Peter speaks on the phone, it covers a second tube. "Listen, while not up to you, Come as some other time."'
	 !act 'Get_Away':gt'pornstudio','start'
	 exit
	 end


if film=0 and firstkasting=0:
'You sat down on the sofa and asked the boss. I see you for the first time we have. Want to rent a porno movie?'

     act 'I changed my mind':gt'pornstudio','start'
     
     act 'Yes_I_Am':
     cla
     set minut = minut + 5
     gs'stat'
     'You have confirmed their desire to play in a porn movie. boss nodded. Ok. First you need to hold the casting.'
     'Razdentes, I will search your body.'
     act 'I changed my mind':gt'pornstudio','start'
     
         act 'unclothed':
         cla
         minut+=5
         gs'stat'
         'You undressed in front of the boss, He rose from his chair and walked looking at you. "Lie down on the couch and push the legs."'
         act 'I changed my mind':gt'pornstudio','start'
             act 'Lie down on the couch and spread her legs':
             cla
              minut+=5
             gs'stat'
             'You lay down on the couch and spread his legs. Boss took fotoaparat and took a few pictures, explaining that this Portfolio. After that.'
                 act 'Kneel':
				 cla
				  minut+=5
				 gs'stat'
				 'You get up off the couch and knelt down in front of the boss. He took a few more photos. "Now open your mouth and tongue Vysun, as if you now face will finish."'
				     act 'Open your mouth stick his tongue IT':
					 cla
					  minut+=5
					 gs'stat'
					 'You have opened my mouth and stuck out her tongue. Boss again sfotkal you. "Not_Bad, Now suck my finger" He put you in the mouth with his thick finger as sordelka.'
					     act 'thumb sucking':
						 cla
						  minut+=5
						 gs'stat'
						 'You started to suck his finger trying to look as much as possible sexier. Boss touched your breasts with the other hand while you were busy with his finger.'
						 'He pulled his finger out of your mouth, curtly you, "dress." and sat down at the table. You quickly got dressed and sat on the couch.'
						 '(boss) - I can call Peter. First you need a nickname for filming.'
						     act 'called alias':
						     cla
						     firstkasting=1
						     $pfname = input ("What is your nickname will be in porn movies?")
						         if $pfname<=0:$pfname='light Huesoskina'
						         
						     '<<$pfname>>, huh, fair_enough, will_go. now listen, composition pornoaktera men have permanent, The shooting took place in front of all the medical examination. You. If you find any sign of a sexually transmitted disease, then dosvidaniya forever. This point is clear? Take care of your health. I`m not going to jeopardize his actors.'
						     'Movies we shoot less frequently. Approximately once per month.'
						     ''
						     'now let`s see. What we need.'
						     act '.....':gt'pornstudio','man'
						     end
						 
						 end
					 end
				 end
             end
         end
     end
elseif film=0 and firstkasting=1 and pfilm=0:
'so_Much, you`re a girl new, and we just have an order for a brand new girl. In the genre handdzhob. You`ll have a guy masturbate, and it would end on your chest. All this for 3 thousands.'
     act 'agree':
     cla
     pfilm=1
     pfilmday=daystart
     'And_So, Shooting will be tomorrow. Come to 10 hours. Do not be late.'
     act 'Get_Away':gt'pornstudio','start'
     end
     
     act 'I changed my mind':gt'pornstudio','start'
elseif film>0:
     if daystart>pffilmday and pfilm = 0:
     'Come <<$pfname>>. so_Much, let`s see what I can pick up for you.'
     frand=RAND(1,6)
     !frand=6
     if frand=1:'work handles, need podorochit guy and he goes down on his chest. 2 thousands.'
     if frand=2:'Make the guy a blowjob, with the end in the mouth and face. 3 thousand.'
     if frand=3:'classic, first blowjob, then sex with the end in the mouth and face. 5 thousand.'
     if frand=4:'tough classics, first blowjob, then sex, then anal and ending in the mouth and face. 6 thousand.'
     if frand=5:'Group sex with two guys, in all holes, but without double penetration. 7 thousand.'
     if frand=6:'Group sex with two guys, with double penetration. 9 thousand.'
     
     
         act 'Perhaps wait for more suitable suggestions':
         pffilmday=daystart+1
         gt'pornstudio','start'
         end
         
         act 'agree':
		 cla
		 pfilm=frand
		 pfilmday=daystart
		 'And_So, Shooting will be tomorrow. Come to 10 hours. Do not be late.'
		 act 'Get_Away':gt'pornstudio','start'
		 end
     
     else
     if pffilmday-daystart>0:
		$talkpsno='Come back <<pffilmday-daystart>> days'
		'Sorry <<$pfname>>, Now there is not a job for you. <<$talkpsno>>.'
	 end
     if pffilmday-daystart=0:
		$talkpsno='Come tomorrow'
		'Sorry <<$pfname>>, Now there is not a job for you. <<$talkpsno>>.'
	 end
     act 'Get_Away':gt'pornstudio','start'
     end

end

'Peter speaks on the phone, it covers a second tube. "Listen, while not up to you, Come as some other time."'
act 'Get_Away':gt'pornstudio','start'

	 !'if week < 6 and pornstudio>1 and pfilmA=0 and pfilmB=0:
	 set porand = RAND (1,3)
	     if porand <3:
         'Who needs an actress, do blowjob. 1000 h. filming will take 5 hours. Not necessarily immediately removed. Can come and shoot for an hour.'
         
             act 'agree':
             Set pfilm = 1
             gt 'the_film','the_film'
             end
         end
         
         if porand = 3:
         'Who needs an actress for the film, anal, classic, Deepthroating. 3000 h. filming will take 10 hours. Not necessarily immediately removed. Can come and shoot for an hour.'
         
             act 'agree':
             Set pfilm = 2
             gt 'the_film','the_film2'
             end
         end
	 
     end
     
     if week < 6 and hour>=10 and pfilmA>0:
     'You may not end up starring in the film and you have to continue.'
		 act 'Go to the set':
		 Set pfilm = 1
		 gt 'the_film','the_film'
		 end
     end
     
     if week < 6 and hour>=10 and pfilmB>0:
     'You may not end up starring in the film and you have to continue.'
		 act 'Go to the set':
		 Set pfilm = 2
		 gt 'the_film','the_film2'
		 end
     end
	 
	 if actr=1 and pfilmA=0 and pfilmB=0:
	 'Now you have nothing to do in the studio, Come Sunday'
	 end
	 
	 if week=6 and actr=0:
		 act 'Try your luck at castinge for the title role':gt'pornstudio','2'
	 end
	 
	 if week=7 and actr=1:
		 act 'Go to the shooting':gt'pornstudio','3'
     end
     
     if week < 6 and hour >= 22:
         act 'go home':gt 'down'
	 end'
end


 
if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
set minut = minut + 5
clr
gs'stat'
'<center><img src="studiand/Pierre_1.jpg" ></center>'
'You`ve come to the studio, looking for someone to look-some, Who can come up with a question. 
To you approached the young man, Peter introduced himself, you are greeted and met.'
     act 'To state the purpose of your visit':
     cla
	 *clr
	 minut=minut+60
	 '<center><img src="studiand/Pierre_2.jpg" ></center>'
	 'Peter smiled and said, that the new actresses are always welcome, just terrible, of course, business do not take. The first couple will have to pass auditions, if you like the public - you can not pass them.'
	 'I `ll tell you, here and as, but under one condition - you need to undress.'
	 
		 act 'undress':
		 cla
		 *clr
		 '<center><img src="studiand/casting_3.jpg" ></center>'
		 'First there is a casting actresses - as I have said, if you are terrible - can not hope, comes only when you have a beautiful appearance.'  
		  
			 act '......':
			 cla
			 *clr
			 '<center><img src="studiand/model_0.jpg" ></center>'
			 'Then the girl chosen for the lead role.' 
			 'Here you have to be the most beautiful.' 
			  
				 act '......':
				 cla
				 *clr
				 '<center><img src="studiand/Film_0.jpg" ></center>'
				 'Well then she sС‘mka - processes interesting and exciting'
				 'And the output we obtain ....'
				 
					 act '......':
					 cla
					 *clr
                     '<center><img src="studiand/dvd-diswith.jpg" ></center>'
                     'Then on what I make money.'
						 act 'all clear, and how and where it is all sold? can, I want to look at yourself..':
						 cla
						 *clr
						 '<center><img src="studiand/Pierre_2.jpg" ></center>'
						 'The sauna is in a residential area we have one man.. And in a sex shop, how could you understand, there garters. Now that`s thinking about selling at the University. If we have helped with this one - b good profits increased, entitlements to dividends assistant, of course.' 
						     act 'And what-problems with the law?':
							 cla
							 *clr
							 '<center><img src="studiand/ment_0.jpg" ></center>'
							 'Specifically for you - yet. We`ve got their contracts with the cops, maybe in the future you will be able to help us to keep them in force, and yet - I told you everything, weekends have to try.'
							 	 act 'Well':
								 cla
								 *clr
								 '<center><img src="studiand/Pierre_2.jpg" ></center>'
								 'Good_For_You, girl, enjoy yourself and do not deprive me more time' 
								 pornstudio=3 
								 gt'pornstudio','start'
								 end
								  
                             end    
                         end
		             end
                 end    
		     end
         end
     end
end


if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs'stat'
set carraf=rand(10,250)
castingrand=RAND(1,6)
if castingrand=1: '<center><img src="studiand/casting_1.jpg" ></center>'
if castingrand=2: '<center><img src="studiand/casting_2.jpg" ></center>'
if castingrand=3: '<center><img src="studiand/casting_3.jpg" ></center>'
if castingrand=4: '<center><img src="studiand/casting_4.jpg" ></center>'
if castingrand=5: '<center><img src="studiand/casting_5.jpg" ></center>'
if castingrand=6: '<center><img src="studiand/casting_6.jpg" ></center>'
'You spent eight o`clock on the casting undressing in front by producer and taking various poses.'
minut=minut+120
gs'stat'
minut=minut+120
gs'stat'
minut=minut+120
gs'stat'
minut=minut+120
gs'stat'
     if vnesh<carrar:
     'You have not taken on the role of, too bad'
     end
     
     if vnesh>=carrar:
     'your role'
     actr = 1
     end
     
     act 'End_Up':
     gt'pornstudio','start'
     end
end

if $ARGS[0]='3':
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs'stat'
actr=0
gt'bdsm'
end
--- pornstudio ---------------------------------

# pf
if $ARGS[0]='boss':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30


film+=1
if pfilm=1:pfcash=2000&$filmtext=' where you snimalilis as otdrachivali guy and he goes down on your tits.'
if pfilm=2:pfcash=3000&$filmtext=' where you snimalilis sucking dick a guy and he goes down into your mouth and face.'
if pfilm=3:pfcash=5000&$filmtext=' where you snimalilis sucking dick guy, then he fucked you .'
if pfilm=4:pfcash=6000&$filmtext=' where you snimalilis sucking dick guy, then he fucked you in the pussy and ass and pulled you into his mouth.'
if pfilm=5:pfcash=7000&$filmtext=' where you snimalilis like you in all holes hollows of two men.'
if pfilm=6:pfcash=9000&$filmtext=' where you snimalilis as you hammering in all holes two men .'


$pfilmhistory+=' '+'your '+film+'First porn'+' was removed '+day+''+$mons+$filmtext
if pfilmNOPAY=0:
money+=pfcash
'Peter counted you <<pfcash>> rubles for shooting the film and wished good luck'
end
if pfilmNOPAY=1:
pfilmNOPAY=0
'You have fulfilled his sentence and the film was made for free.'
end
pfilm=0
if film<10:filmkoef=2
if film>=10 and film<20:filmkoef=5
if film>=20:filmkoef=10
pffilmday=daystart+(film+filmkoef)
pfilmday=0
'I think we will have a job for you no earlier than <<pffilmday-daystart>> days.'
	 act 'Get_Away':gt'pornstudio','start'
end


if $ARGS[0]='doc':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
'You went to the office where the doctor was waiting in a white coat. He quickly pulled on rubber gloves and briefly told you, Undress.'
'You took off his clothes and is located in a high gynecological chair legs spread. The doctor came up to you and started inspection. After the inspection .'
'Now after half an hour will be ready analyzes, if you have anything that is, they will show.'

act 'wait':gt'pf','lab'
end


if $ARGS[0]='lab':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30

	 if venera>0:
	 'Your analysis showed a sexually transmitted disease. doctor told you and called Peter. Peter looked at the piece of paper with analyzes.'
	 'Oh well, <<$pfname>>, I think your career is over. adieu.'
	 pfilmNO=1
	 pfilmNoVenera=1
	 act 'Get_Away':gt'pornstudio','start'
	 else
     'Oh well, you clean. Go into the dressing room'
     act 'Go to the dressing room':gt'pf','grim'
	 end

end

if $ARGS[0]='grim':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
'In the dressing room waiting for you already lean and withered as the roach woman.'
hapri=1
mop=4
gs'stat'
if pfilm > 3:
	'First for you to put a powerful enema.'
end
'You put in front of a mirror, combed and laid -up.'
!if the scene with anal, then enema.

!
     act 'Go to the set':
     if pfilm=1:gt'pf','1'
     if pfilm=2:gt'pf','2'
     if pfilm=3:gt'pf','3'
     if pfilm=4:gt'pf','4'
     if pfilm=5:gt'pf','5'
     if pfilm=6:gt'pf','6'
     end
end


if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30

akrand=RAND(1,5)
if akrand=1:$pakter='Alexey'
if akrand=2:$pakter='Sergey'
if akrand=3:$pakter='George'
if akrand=4:$pakter='Ignat'
if akrand=5:$pakter='Semen'

'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
     act 'removed':
     cla
     *clr
     minut+=30
     gs'stat'
     if akrand=1 and aksex1=0:aksex1=1&guy+=1
	 if akrand=2 and aksex2=0:aksex2=1&guy+=1
	 if akrand=3 and aksex3=0:aksex3=1&guy+=1
	 if akrand=4 and aksex4=0:aksex4=1&guy+=1
	 if akrand=5 and aksex5=0:aksex5=1&guy+=1
	 hj+=1
	 '<center><img src="studiand/hj.gif" ></center>'
     '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in her hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
         act 'Wank on his chest':
         cla 
         *clr
         minut+=5
         '<center><img src="studiand/hjcumontits.gif" ></center>'
         '<<$pakter>> began to finish on your chest, and you continued to masturbate his penis squeezing his hot cum over.'
             act 'Go to the shower':
			 cla 
			 *clr
			 minut+=5
			 set sweat = -3
			 set horny = horny + 1
			 set mop = 1
			 set cumpussy = 0
			 set cumbelly = 0
			 set cumass = 0
			 set cumanus =0
			 set cumlip = 0
			 set cumface = 0
			 '<center><img src="pics/dush.jpg" ></center>'
			 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
			 act 'Go to Peter':gt'pf','boss'
			 end
         end
     end

end

if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
akrand=RAND(1,5)
if akrand=1:$pakter='Alexey'
if akrand=2:$pakter='Sergey'
if akrand=3:$pakter='George'
if akrand=4:$pakter='Ignat'
if akrand=5:$pakter='Semen'

'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
     act 'removed':
     cla
     *clr
     minut+=30
     gs'stat'
     if akrand=1 and aksex1=0:aksex1=1&guy+=1
	 if akrand=2 and aksex2=0:aksex2=1&guy+=1
	 if akrand=3 and aksex3=0:aksex3=1&guy+=1
	 if akrand=4 and aksex4=0:aksex4=1&guy+=1
	 if akrand=5 and aksex5=0:aksex5=1&guy+=1
	 hj+=1
	 '<center><img src="studiand/hj.gif" ></center>'
     '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in her hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
         act 'Take by mouth':
         cla 
         *clr
         bj+=1
         minut+=5
         '<center><img src="studiand/bj.gif" ></center>'
         '<<$pakter>> sat down on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
             act 'suck':
			 cla 
			 *clr
			 minut+=5
			 '<center><img src="studiand/deep.gif" ></center>'
             '<<$pakter>> began to fuck you in the mouth hammering his cock in your throat every move.'
             'Finally he took a member of you. It is time to remove the ejaculation.'
                 act 'Sit on your knees and open your mouth':
				 cla 
				 *clr
				 minut+=5
				 cumlip+=1
				 facial+=1
				 gs'stat'
				 '<center><img src="studiand/cum.gif" ></center>'
			     '<<$pakter>> cumshot in your mouth, whipping hot jet of sperm you by language and once in the throat.'
			         act 'Clean the mouth from his cock cum':
					 cla 
					 *clr
					 minut+=5
					 cumface+=1
					 swallow+=1
					 gs'stat'
					 '<center><img src="studiand/bj2.gif" ></center>'
					 'You began to gently clean his cock from her sperm swallowing and devotedly looking into the eyes.'
						 act 'Go to the shower':
						 cla 
						 *clr
						 minut+=5
						 set sweat = -3
						 set horny = horny + 1
						 set mop = 1
						 set cumpussy = 0
						 set cumbelly = 0
						 set cumass = 0
						 set cumanus =0
						 set cumlip = 0
						 set cumface = 0
						 '<center><img src="pics/dush.jpg" ></center>'
						 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
						 act 'Go to Peter':gt'pf','boss'
						 end
					 end
				 
				 end
			 end
         end
     end

end

if $ARGS[0]='3':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
akrand=RAND(1,5)
if akrand=1:$pakter='Alexey'
if akrand=2:$pakter='Sergey'
if akrand=3:$pakter='George'
if akrand=4:$pakter='Ignat'
if akrand=5:$pakter='Semen'

'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
     act 'removed':
     cla
     *clr
     minut+=30
     gs'stat'
     if akrand=1 and aksex1=0:aksex1=1&guy+=1
	 if akrand=2 and aksex2=0:aksex2=1&guy+=1
	 if akrand=3 and aksex3=0:aksex3=1&guy+=1
	 if akrand=4 and aksex4=0:aksex4=1&guy+=1
	 if akrand=5 and aksex5=0:aksex5=1&guy+=1
	 hj+=1
	 '<center><img src="studiand/hj.gif" ></center>'
     '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in her hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
         act 'Take by mouth':
         cla 
         *clr
         bj+=1
         minut+=5
         '<center><img src="studiand/bj.gif" ></center>'
         '<<$pakter>> sat down on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
             act 'suck':
			 cla 
			 *clr
			 minut+=5
			 '<center><img src="studiand/deep.gif" ></center>'
             '<<$pakter>> began to fuck you in the mouth hammering his cock in your throat every move.'
             
                 act 'get up cancer':
				 cla 
				 *clr
				 
				 sex+=1
				 vagina+=1
				 minut+=15
				 '<center><img src="studiand/sex.gif" ></center>'
				 'You got up on all fours and <<$pakter>> you drove his cock in pussy on the eggs. He began to fuck you hard-, hitting all the body you on the behind and if his hands tightly not keep your buttocks, then you `d have fallen, after the first strike.'
			     
					 act 'Sit on your knees and open your mouth':
					 cla 
					 *clr
					 minut+=5
					 cumlip+=1
					 facial+=1
					 gs'stat'
					 '<center><img src="studiand/cum.gif" ></center>'
					 '<<$pakter>> cumshot in your mouth, whipping hot jet of sperm you by language and once in the throat.'
						 act 'Clean the mouth from his cock cum':
						 cla 
						 *clr
						 minut+=5
						 cumface+=1
						 swallow+=1
						 gs'stat'
						 '<center><img src="studiand/bj2.gif" ></center>'
						 'You began to gently clean his cock from her sperm swallowing and devotedly looking into the eyes.'
							 act 'Go to the shower':
							 cla 
							 *clr
							 minut+=5
							 set sweat = -3
							 set horny = horny + 1
							 set mop = 1
							 set cumpussy = 0
							 set cumbelly = 0
							 set cumass = 0
							 set cumanus =0
							 set cumlip = 0
							 set cumface = 0
							 '<center><img src="pics/dush.jpg" ></center>'
							 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
							 act 'Go to Peter':gt'pf','boss'
							 end
						 end
					 
					 end
				 
				 end
			 end
         end
     end
end

if $ARGS[0]='4':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
akrand=RAND(1,5)
if akrand=1:$pakter='Alexey'
if akrand=2:$pakter='Sergey'
if akrand=3:$pakter='George'
if akrand=4:$pakter='Ignat'
if akrand=5:$pakter='Semen'

'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
     act 'removed':
     cla
     *clr
     minut+=30
     gs'stat'
     if akrand=1 and aksex1=0:aksex1=1&guy+=1
	 if akrand=2 and aksex2=0:aksex2=1&guy+=1
	 if akrand=3 and aksex3=0:aksex3=1&guy+=1
	 if akrand=4 and aksex4=0:aksex4=1&guy+=1
	 if akrand=5 and aksex5=0:aksex5=1&guy+=1
	 hj+=1
	 '<center><img src="studiand/hj.gif" ></center>'
     '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in her hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
         act 'Take by mouth':
         cla 
         *clr
         bj+=1
         minut+=5
         '<center><img src="studiand/bj.gif" ></center>'
         '<<$pakter>> sat down on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
             act 'suck':
			 cla 
			 *clr
			 minut+=5
			 '<center><img src="studiand/deep.gif" ></center>'
             '<<$pakter>> began to fuck you in the mouth hammering his cock in your throat every move.'
             
                 act 'get up cancer':
				 cla 
				 *clr
				 sex+=1
				 vagina+=1
				 minut+=5
				 '<center><img src="studiand/sex.gif" ></center>'
				 'You got up on all fours and <<$pakter>> you drove his cock in pussy on the eggs. He began to fuck you hard-, hitting all the body you on the behind and if his hands tightly not keep your buttocks, then you `d have fallen, after the first strike.'
			     'Finally.'
			         act 'relax the anus':
					 cla 
					 *clr
					 anal+=1
					 anus+=1
					 minut+=5
					 '<center><img src="studiand/sex.gif" ></center>'
					 'You have tried as best they could relax the anus that would painlessly Hollow member. <<$pakter>> gradually came into your ass and began to peck your ass like a steam hammer.'
				     
						 act 'Sit on your knees and open your mouth':
						 cla 
						 *clr
						 minut+=5
						 cumlip+=1
						 facial+=1
						 gs'stat'
						 '<center><img src="studiand/cum.gif" ></center>'
						 '<<$pakter>> cumshot in your mouth, whipping hot jet of sperm you by language and once in the throat.'
							 act 'Clean the mouth from his cock cum':
							 cla 
							 *clr
							 minut+=5
							 cumface+=1
							 swallow+=1
							 gs'stat'
							 '<center><img src="studiand/bj2.gif" ></center>'
							 'You began to gently clean his cock from her sperm swallowing and devotedly looking into the eyes.'
								 act 'Go to the shower':
								 cla 
								 *clr
								 minut+=5
								 set sweat = -3
								 set horny = horny + 1
								 set mop = 1
								 set cumpussy = 0
								 set cumbelly = 0
								 set cumass = 0
								 set cumanus =0
								 set cumlip = 0
								 set cumface = 0
								 '<center><img src="pics/dush.jpg" ></center>'
								 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
								 act 'Go to Peter':gt'pf','boss'
								 end
							 end
						 
						 end
					 end
				 
				 end
			 end
         end
     end
end

if $ARGS[0]='5':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
akrand=RAND(1,5)
	 if akrand=1:
	 $pakter='Alexey'
	 if aksex1=0:aksex1=1&guy+=1
	 akrand2=RAND(1,4)
	     if akrand2=1:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=2:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
	 end
     if akrand=2:
     $pakter='Sergey'
     if aksex2=0:aksex2=1&guy+=1
     akrand2=RAND(1,4)
	     if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
	     if akrand2=2:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=3:
     $pakter='George'
     if aksex3=0:aksex3=1&guy+=1
     akrand2=RAND(1,4)
     	 if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=4:
     $pakter='Ignat'
     if aksex4=0:aksex4=1&guy+=1
     akrand2=RAND(1,4)
         if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=5:
     $pakter='Semen'
     if aksex5=0:aksex5=1&guy+=1
          akrand2=RAND(1,4)
         if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
     end
gang+=1
'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'actors <<$pakter>> and <<$pakter2>> peppers to play dirty magazines, that would bring them into a state of alert.'
     act 'removed':
     cla
     *clr
     minut+=10
     gs'stat'
	 bj+=2
	 '<center><img src="studiand/tbj.gif" ></center>'
	 'Cast members and got you started banging on their faces.'
	     act 'suck':
		 cla
		 *clr
		 minut+=15
		 gs'stat'
		 '<center><img src="studiand/tbj2.gif" ></center>'
		 'You started to suck both members of the old one is not to overlook, caressed their language, lips and sucked.'
		 	 act 'fuck':
			 cla
			 *clr
			 minut+=15
			 sex+=1
			 vagina+=1
			 gs'stat'
			 '<center><img src="studiand/three.gif" ></center>'
			 'You got up on all fours and <<$pakter>> you drove his cock in pussy, while you are sucking <<$pakter22>>.'
			 	 act 'anal':
				 cla
				 *clr
				 minut+=15
				 anal+=1
				 anus+=1
				 gs'stat'
				 '<center><img src="studiand/threea.gif" ></center>'
				 '<<$pakter>> you drove a screw in the ass, while you are sucking <<$pakter22>>.'
					 act 'Cum on face':
					 cla 
					 *clr
					 minut+=5
					 cumface+=1
					 facial+=1
					 gs'stat'
					 '<center><img src="studiand/tcum.gif" ></center>'
					 '<<$pakter22>> cumshot in your mouth, whipping hot jet of sperm you by language and once in the throat.'
						 act 'Go to the shower':
						 cla 
						 *clr
						 minut+=5
						 set sweat = -3
						 set horny = horny + 1
						 set mop = 1
						 set cumpussy = 0
						 set cumbelly = 0
						 set cumass = 0
						  set cumanus =0
						 set cumlip = 0
						 set cumface = 0
						 '<center><img src="pics/dush.jpg" ></center>'
						 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
						 act 'Go to Peter':gt'pf','boss'
						 end
					 
					 end
				 end
			 end
		 end
	 end

end



if $ARGS[0]='6':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 30
akrand=RAND(1,5)
	 if akrand=1:
	 $pakter='Alexey'
	 if aksex1=0:aksex1=1&guy+=1
	 akrand2=RAND(1,4)
	     if akrand2=1:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=2:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
	 end
     if akrand=2:
     $pakter='Sergey'
     if aksex2=0:aksex2=1&guy+=1
     akrand2=RAND(1,4)
	     if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
	     if akrand2=2:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=3:
     $pakter='George'
     if aksex3=0:aksex3=1&guy+=1
     akrand2=RAND(1,4)
     	 if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=4:
     $pakter='Ignat'
     if aksex4=0:aksex4=1&guy+=1
     akrand2=RAND(1,4)
         if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Semen'
         $pakter22='seed'
         if aksex5=0:aksex5=1&guy+=1
         end
     end
     if akrand=5:
     $pakter='Semen'
     if aksex5=0:aksex5=1&guy+=1
          akrand2=RAND(1,4)
         if akrand2=1:
         $pakter2='Alexey'
         $pakter22='Alexei'
         if aksex1=0:aksex1=1&guy+=1
         end
     	 if akrand2=2:
         $pakter2='Sergey'
         $pakter22='Sergei'
         if aksex2=0:aksex2=1&guy+=1
         end
	     if akrand2=3:
         $pakter2='George'
         $pakter22='George'
         if aksex3=0:aksex3=1&guy+=1
         end
	     if akrand2=4:
         $pakter2='Ignat'
         $pakter22='Ignat'
         if aksex4=0:aksex4=1&guy+=1
         end
     end
gang+=1
'On-site assistants already bustling setting lighting, like_this, that there were no shadows.'
'actors <<$pakter>> and <<$pakter2>> peppers to play dirty magazines, that would bring them into a state of alert.'
     act 'removed':
     cla
     *clr
     minut+=10
     gs'stat'
	 bj+=2
	 '<center><img src="studiand/tbj.gif" ></center>'
	 'Cast members and got you started banging on their faces.'
	     act 'suck':
		 cla
		 *clr
		 minut+=15
		 gs'stat'
		 '<center><img src="studiand/tbj2.gif" ></center>'
		 'You started to suck both members of the old one is not to overlook, caressed their language, lips and sucked.'
		 	 act 'fuck':
			 cla
			 *clr
			 minut+=15
			 sex+=1
			 vagina+=1
			 gs'stat'
			 '<center><img src="studiand/three.gif" ></center>'
			 'You got up on all fours and <<$pakter>> you drove his cock in pussy, while you are sucking <<$pakter22>>.'
			 	 act 'anal':
				 cla
				 *clr
				 minut+=15
				 anal+=1
				 anus+=1
				 gs'stat'
				 '<center><img src="studiand/threea.gif" ></center>'
				 '<<$pakter>> you drove a screw in the ass, while you are sucking <<$pakter22>>.'
				 
				 	 act 'double penetration':
					 cla
					 *clr
					 minut+=15
					 anus+=1
					 vagina+=1
					 gs'stat'
					 '<center><img src="studiand/three2.gif" ></center>'
					 '<<$pakter>> You lay down and sat on his cock pussy, <<$pakter2>> came from behind and you feel his cock penetrates your anus. The boys began to peck you in two holes, hard dicks rubbing against each other through a thin stenochku in your body.'
				     
						 act 'Cum on face':
						 cla 
						 *clr
						 minut+=5
						 cumface+=1
						 facial+=1
						 gs'stat'
						 '<center><img src="studiand/tcum.gif" ></center>'
						 '<<$pakter22>> cumshot in your mouth, whipping hot jet of sperm you by language and once in the throat.'
							 act 'Go to the shower':
							 cla 
							 *clr
							 minut+=5
							 set sweat = -3
							 set horny = horny + 1
							 set mop = 1
							 set cumpussy = 0
							 set cumbelly = 0
							 set cumass = 0
							  set cumanus =0
							 set cumlip = 0
							 set cumface = 0
							 '<center><img src="pics/dush.jpg" ></center>'
							 'You entered the shower and turned on the shower. Soaped and washed the body in the shower removing all traces of semen from your body.'
							 act 'Go to Peter':gt'pf','boss'
							 end
						 end
					 end
				 end
			 end
		 end
	 end

end












--- pf ---------------------------------

# BDman
if $ARGS[0]='givi':
!set stopboy = 0
$boy='Givi Karapetovich'
$boybody='little'
$boybod='thick'
$boyface='pleshyvy'
!long cock
dick=20
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=10
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=1
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end


if $ARGS[0]='ashot':
!set stopboy = 0
$boy='Ashot'
$boybody='average height'
$boybod='muscular'
$boyface='black-haired'
!long cock
dick=18
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=1
!!check in appearance, a parameter vnesh
vneshBoy=15
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end


if $ARGS[0]='arthur':
!set stopboy = 0
$boy='Arthur'
$boybody='average height'
$boybod='muscular'
$boyface='black-haired'
!long cock
dick=19
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end

if $ARGS[0]='abdula':
!set stopboy = 0
$boy='Abdul'
$boybody='long'
$boybod='skinny'
$boyface='gray'
!long cock
dick=21
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end

if $ARGS[0]='hasan':
!set stopboy = 0
$boy='Hasan'
$boybody='average height'
$boybod='paunchy'
$boyface='black-haired'
!long cock
dick=18
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end


if $ARGS[0]='kamil':
!set stopboy = 0
$boy='Camille'
$boybody='average height'
$boybod='thin'
$boyface='black-haired'
!long cock
dick=20
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end

if $ARGS[0]='aslan':
!set stopboy = 0
$boy='Aslan'
$boybody='little'
$boybod='thin'
$boyface='black-haired'
!long cock
dick=17
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end

if $ARGS[0]='muhtar':
!set stopboy = 0
$boy='Mukhtar'
$boybody='little'
$boybod='thick'
$boyface='black-haired'
!long cock
dick=18
!! sexual force of 0 prior_to 2
silaVag=2
!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
finance=2
!!check in appearance, a parameter vnesh
vneshBoy=25
$boyClo='dressed in a leather jacket and a cap'
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
figurBoy=2
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
titBoy=2
!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
haerBoy=3
!character 0 - soft, 1 -norm 2 - aggressor
harakBoy=2
!perversity
izvrat=1
end

--- BDman ---------------------------------

# BDsex
if $ARGS[0]='start':
!range of interactions
!gs'BDsex','start'
minut+=3
if NoGuy=0:guy+=1
horny+=10
gs'stat'
'<center><img src="picKav/petting.jpg" ></center>'
     if harakBoy=0:
     '<<$boy>> hugs you and gently caresses your breasts.'
     act 'Lick me':gt'BDsex','kuni'
     act 'Masturbate his penis':gt'BDsex','hj'
     act 'Take by mouth':gt'BDsex','minet'
     act 'Lie on your back and spread her legs':gt'BDsex','sex'
     act 'Stand on all fours':gt'BDsex','sex2'
     act 'anal':gt'BDsex','anal2'
     end
     
     if harakBoy=1:
     '<<$boy>> you and skillfully caresses your breasts.'
     brand=RAND(0,100)
         if brand<70:
         '<<$boy>> hugs you and caress your pussy with my fingers.'
         trand=RAND(0,2)
             if trand<2:
             'He puts you in the back.'
             act 'Lie on your back and spread her legs':gt'BDsex','sex'
             else
             'He turns you on belly.'
             act 'Stand on all fours':gt'BDsex','sex2'
             end
             act 'Let me suck':gt'BDsex','minet'
         else
         '<<$boy>> baby, caressed my mouth.'
             act 'Masturbate his penis':gt'BDsex','hj'
             act 'Take by mouth':gt'BDsex','minet'
             act 'I do not want. Lie on your back and spread her legs':gt'BDsex','sex'
         end
     end
     
     if harakBoy=2:
     '<<$boy>> embraces you and passionately caress your breasts.'
     brand=RAND(0,100)
         if brand<70:
         '<<$boy>> caress your pussy with my fingers.'
         trand=RAND(0,2)
             if trand<2:
             'He puts you in the back.'
             act 'Lie on your back and spread her legs':gt'BDsex','sex'
             else
             'He turns you on belly.'
             act 'Stand on all fours':gt'BDsex','sex2'
             end
         end
         
         if brand>=70 and brand<90:
         '<<$boy>> takes you behind your head and pulls you face to its members.'
         act 'Take by mouth':gt'BDsex','minet'
             if dom>0:
                 act 'Lie on your back and spread her legs':gt'BDsex','sex'
                 act 'Stand on all fours':gt'BDsex','sex2'
             end
         end
         
         if brand>=90:
         '<<$boy>> tells you that he wants you in the ass.'
         act 'anal':gt'BDsex','anal2'
             if dom>0:
                 act 'I do not want! Lie on your back and spread her legs':gt'BDsex','sex'
                 act 'I `ll get cancer, but the priest will not give!':gt'BDsex','sex2'
                 act 'Take by mouth':gt'BDsex','minet'
             end
         end
     end
end


if $ARGS[0]='kuni':
minut+=15
gs'stat'
set DOM = DOM + 1
set kuni = kuni + 1
set horny = horny + DOM + (silaVag*2 + 5)
 '<center><img src="picV/kuni.jpg" ></center>'
 'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
 '<<$boy>> lay down between your legs and began to work on your tongue pussy.'
     if horny >= 90:
     set horny = 0
	 set manna = manna + 15
	 set willpower = willpower + 15
	 set orgasm = orgasm + 1
     'Man of skillful actions you covered orgasm.'
     else
     'Action Man though they were exciting, but they began to bore you.'
     end
     
     act 'Masturbate his penis':gt'BDsex','hj'
     act 'Take by mouth':gt'BDsex','minet'
     act 'Lie on your back and spread her legs':gt'BDsex','sex'
     act 'Stand on all fours':gt'BDsex','sex2'
     act 'anal':gt'BDsex','anal2'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!vagina    
!!!!!!!!!!!!!!!!!sex
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0]='sex':
!missionary position
minut+=10
gs'stat'
'<center><img src="picV/vag.jpg" ></center>'
pose=0
gs'BDsex','org'
givfinrand=RAND(0,10)
     if harakBoy>0:
		 if givfinrand>=8:
		 'suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		 act 'substitute person':gt'BDsex','facial'
		 act 'open your mouth':gt'BDsex','swallow' 
		 exit
		 end 
     end
givfinrand=RAND(0,10)
     if harakBoy=2:
		 if givfinrand>=8:
		 'suddenly <<$boy>> took out of you cock and began to fondle your ass preparing its penetration.'
		 act 'anal':gt'BDsex','anal2'
		 exit
		 end 
     end    
gs'BDsex','cum'
act 'Get_Away':gt'BDsex','end'
end

if $ARGS[0]='sex2':
!cancer
minut+=10
gs'stat'
picrand=RAND(1,5)
if picrand=1:'<center><img src="pics/vagdog.jpg" ></center>'
if picrand=2:'<center><img src="pics/vagdog2.jpg" ></center>'
if picrand=3:'<center><img src="pics/vagdog3.jpg" ></center>'
if picrand=4:'<center><img src="pics/vagdog4.jpg" ></center>'
if picrand=5:'<center><img src="pics/vagdog5.jpg" ></center>'
pose=1
gs'BDsex','org'
givfinrand=RAND(0,10)
     if harakBoy>0:
		 if givfinrand>=8:
		 'suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		 act 'substitute person':gt'BDsex','facial'
		 act 'open your mouth':gt'BDsex','swallow' 
		 exit
		 end 
     end
givfinrand=RAND(0,10)
     if harakBoy=2:
		 if givfinrand>=8:
		 'suddenly <<$boy>> took out of you cock and began to fondle your ass preparing its penetration.'
		 act 'anal':gt'BDsex','anal2'
		 exit
		 end 
     end 
gs'BDsex','cum'
act 'Get_Away':gt'BDsex','end'
end

if $ARGS[0]='sex3':
!to top
minut+=10
gs'stat'
picrand=RAND(1,5)
if picrand=1:'<center><img src="pics/vagcow.jpg" ></center>'
if picrand=2:'<center><img src="pics/vagcow.jpg" ></center>'
if picrand=3:'<center><img src="pics/vagcow.jpg" ></center>'
if picrand=4:'<center><img src="pics/vagcow.jpg" ></center>'
if picrand=5:'<center><img src="pics/vagcow.jpg" ></center>'
pose=0
gs'BDsex','org'
gs'BDsex','cum'

end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!anal
!!!!!!!!!!!!!!!!!!anus
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0]='anal':
!missionary position
minut+=10
gs'stat'

gs'bdsex','an'
gs'bdsex','ancum'

end

if $ARGS[0]='anal2':
!cancer
minut+=10
gs'stat'
picrand=RAND(1,10)
if picrand=1:'<center><img src="pics/anal.jpg" ></center>'
if picrand=2:'<center><img src="pics/anal2.jpg" ></center>'
if picrand=3:'<center><img src="pics/anal3.jpg" ></center>'
if picrand=4:'<center><img src="pics/anal4.jpg" ></center>'
if picrand=5:'<center><img src="pics/anal5.jpg" ></center>'
if picrand=6:'<center><img src="pics/anal6.jpg" ></center>'
if picrand=7:'<center><img src="pics/anal7.jpg" ></center>'
if picrand=8:'<center><img src="pics/anal8.jpg" ></center>'
if picrand=9:'<center><img src="pics/anal9.jpg" ></center>'
if picrand=10:'<center><img src="pics/anal10.jpg" ></center>'
gs'bdsex','an'
givfinrand=RAND(0,10)
     if harakBoy>0:
		 if givfinrand>=8:
		 'suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		 act 'substitute person':gt'BDsex','facial'
		 act 'open your mouth':gt'BDsex','swallow' 
		 exit
		 end 
     end
gs'bdsex','ancum'
act 'Get_Away':gt'BDsex','end'
end

if $ARGS[0]='anal3':
!to top

gs'bdsex','an'
gs'bdsex','ancum'

end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!hj
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0]='hj':
!handzhob
hj+=1
minut+=5
gs'stat'
'<center><img src="picV/hand1.jpg" ></center>'
'You got it <<dick>> inch cock and began to caress her arms around his hands, moving the skin on purple head.'
bjrand=RAND(0,100)
     if bjrand>=75:
		 if harakBoy=0:
		 '<<$boy>> groaned "I `ll finish."'
			 act 'Let cums':
			 cla
			 *clr
			 '<center><img src="picV/hand2.jpg" ></center>'
			 '<<$boy>> you had finished her hands covering their hot and sticky sperm.'
			 act 'Get_Away':gt'BDsex','end'
			 end
			 
			 act 'Take by mouth':gt'BDsex','minet'
			 act 'Lie on your back and spread her legs':gt'BDsex','sex'
			 
		 elseif harakBoy=1:
		 '<<$boy>> groaned "Svetsik, Take in the mouth or sex Let us come."'
			 act 'Take by mouth':gt'BDsex','minet'
			 act 'Lie on your back and spread her legs':gt'BDsex','sex'
		 else
		  brand=RAND(0,100)
			 if brand<70:
			 '<<$boy>> caress your pussy with my fingers.'
			 trand=RAND(0,2)
				 if trand<2:
				 'He puts you in the back.'
				 act 'Lie on your back and spread her legs':gt'BDsex','sex'
				 else
				 'He turns you on belly.'
				 act 'Stand on all fours':gt'BDsex','sex2'
				 end
			 end
			 
			 if brand>=70 and brand<80:
			 '<<$boy>> tells you that he wants you in the ass.'
			 act 'anal':gt'BDsex','anal2'
				 if dom>5:
					 act 'I do not want! Lie on your back and spread her legs':gt'BDsex','sex'
					 act 'I `ll get cancer, but the priest will not give!':gt'BDsex','sex2'
					 act 'Take by mouth':gt'BDsex','minet'
				 end
			 end
			 if brand>=80:
			 '<<$boy>> tightens your face to its members.'
			 act 'Take by mouth':gt'BDsex','minet'
			 end
		 
		 end
     else
     '<<$boy>> now finish.'
		 act 'substitute person':gt'BDsex','facial'
		 act 'open your mouth':gt'BDsex','swallow' 
     end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!bj
!!!!!!!!!!!!!!!!!!!!throat
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0]='minet':
!blow_job
minut+=5
gs'stat'
picrand=RAND(0,4)
if picrand=0:'<center><img src="picV/bj.jpg" ></center>'
if picrand=1:'<center><img src="picV/bj1.jpg" ></center>'
if picrand=2:'<center><img src="picV/bj2.jpg" ></center>'
if picrand=3:'<center><img src="picV/bj3.jpg" ></center>'
if picrand=4:'<center><img src="picV/bj4.jpg" ></center>'
gs'bdsex','autobj'
bjrand=RAND(0,100)
     if bjrand>=75:
		 if harakBoy=0:
		 '<<$boy>> groaned "I `ll finish."'
			 act 'In the palm of your hand':
			 cla
			 *clr
			 '<center><img src="picV/hand2.jpg" ></center>'
			 '<<$boy>> you had finished her hands covering their hot and sticky sperm.'
			 act 'Get_Away':gt'BDsex','end'
			 end
			 
			 act 'Lie on your back and spread her legs':gt'BDsex','sex'
			 
		 elseif harakBoy=1:
		 '<<$boy>> groaned "Svetsik, Take in the mouth or sex Let us come."'
			 act 'Lie on your back and spread her legs':gt'BDsex','sex'
		 else
		  brand=RAND(0,100)
			 if brand<70:
			 '<<$boy>> caress your pussy with my fingers.'
			 trand=RAND(0,2)
				 if trand<2:
				 'He puts you in the back.'
				 act 'Lie on your back and spread her legs':gt'BDsex','sex'
				 else
				 'He turns you on belly.'
				 act 'Stand on all fours':gt'BDsex','sex2'
				 end
			 end
			 
			 if brand>=70:
			 '<<$boy>> tells you that he wants you in the ass.'
			 act 'anal':gt'BDsex','anal2'
				 if dom>0:
					 act 'I do not want! Lie on your back and spread her legs':gt'BDsex','sex'
					 act 'I `ll get cancer, but the priest will not give!':gt'BDsex','sex2'
				 end
			 end
		 
		 end
     else
     '<<$boy>> now finish.'
		 act 'substitute person':gt'BDsex','facial'
		 act 'open your mouth':gt'BDsex','swallow' 
		 if harakBoy=0:
			 act 'In the palm of your hand':
			 cla
			 *clr
			 '<center><img src="picV/hand2.jpg" ></center>'
			 '<<$boy>> you had finished her hands covering their hot and sticky sperm.'
			 act 'Get_Away':gt'BDsex','end'
			 end
		 end
     end
end

if $ARGS[0]='facial':
facial+=1
cumface+=1
minut+=3
gs'stat'
picrand=RAND(1,5)
if picrand=1:'<center><img src="pics/facial.jpg" ></center>'
if picrand=2:'<center><img src="pics/facial2.jpg" ></center>'
if picrand=3:'<center><img src="pics/facial3.jpg" ></center>'
if picrand=4:'<center><img src="pics/facial4.jpg" ></center>'
if picrand=5:'<center><img src="pics/facial5.jpg" ></center>'
'Thick jet sharply smelling sperm hit you in the face.'
act 'Brush up':gt'BDsex','end'
end

if $ARGS[0]='swallow':
swallow+=1
cumlip+=1
minut+=3
gs'stat'
picrand=RAND(1,10)
if picrand=1:'<center><img src="pics/cum.jpg" ></center>'
if picrand=2:'<center><img src="pics/cum2.jpg" ></center>'
if picrand=3:'<center><img src="pics/cum3.jpg" ></center>'
if picrand=4:'<center><img src="pics/cum4.jpg" ></center>'
if picrand=5:'<center><img src="pics/cum5.jpg" ></center>'
if picrand=6:'<center><img src="pics/cum6.jpg" ></center>'
if picrand=7:'<center><img src="pics/cum7.jpg" ></center>'
if picrand=8:'<center><img src="pics/cum8.jpg" ></center>'
if picrand=9:'<center><img src="pics/cum9.jpg" ></center>'
if picrand=10:'<center><img src="pics/cum10.jpg" ></center>'
'Thick jet sharply smelling sperm hit you in the mouth.'
act 'Brush up':gt'BDsex','end'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!sign_out
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0]='end':
NoGuy=0
     if InYouHome=1:
     InYouHome=0
     '<<$boy>> politely said goodbye and left.'
     act 'Get_Away':gt'korr'
     exit
     end
     
	 if harakBoy=0:
	 set minut = minut + 15
	 set sweat = -3
	 set horny = horny + 1
	 set hapri = 1
	 set mop = 1
	 dynamic $showerdin
	 '<center><img src="pics/dush.jpg" ></center>'
	 'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
	 end
	 if harakBoy=1:
	 if cumface>0:cumface=0
	 'You washed and <<$boy>> you began to hurry.'
	 end
	 if harakBoy=2:
	 '<<$boy>> not given you even go to the bathroom.'
	 end


!
	 if finance>0:
	 if finance=1:money+=300
	 if finance=2:money+=500
	 '<<$boy>> gave you the money for a taxi and evicted from the apartment.'
	 end
	 if finance=0:
	 '<<$boy>> shoved you out of the apartment.'
	 end
     if GoToGuy=0:
		 act 'Get_Away':
		 gorand=RAND(0,2)
		 if gorand=0:gt'street'
		 if gorand=1:gt'down'
		 if gorand=2:gt'nord'
		 end
	 end
	 if GoToGuy>0:
	 	 act 'Get_Away':
		 if GoToGuy=1:GoToGuy=0&gt'nord'
		 if GoToGuy=2:GoToGuy=0&gt'street'
		 end
	 end
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0]='org':
set protect = 0
set vidageday = vidageday - 1

     if tabletki <= 0 and prezik > 0:
     set prezik = prezik - 1
     set protect = 1 
     '<<$boy>> You took the condom and put it on your <<dick>> inch dick.'
     end


     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> inch dick fuck your pussy.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         !member of the critical features more years
             if silavag = 0:set orgazm = 0
             if silavag = 1:set orgazm = 1
             if silavag = 2:set orgazm = 2
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny >= 80 and horny < 90:set orgazm = 3
                 if horny >= 70 and horny < 80:set orgazm = 2
                 if horny >= 60 and horny < 70:set orgazm = 1
                 if horny < 60:set orgazm = 0
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny >= 70 and horny < 80:set orgazm = 3
                 if horny >= 60 and horny < 70:set orgazm = 2
                 if horny >= 50 and horny < 60:set orgazm = 1
                 if horny < 50:set orgazm = 0
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny >= 60 and horny < 70:set orgazm = 3
                 if horny >= 50 and horny < 60:set orgazm = 2
                 if horny >= 40 and horny < 50:set orgazm = 1
                 if horny < 40:set orgazm = 0
             end
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
             if silavag = 0:
                 if horny >= 80:set orgazm = 5
                 if horny >= 60 and horny < 80:set orgazm = 4
                 if horny >= 40 and horny < 60:set orgazm = 3
                 if horny < 40:set orgazm = 2
             end
             if silavag = 1:
                 if horny >= 70:set orgazm = 5
                 if horny >= 50 and horny < 70:set orgazm = 4
                 if horny >= 30 and horny < 50:set orgazm = 3
                 if horny < 30:set orgazm = 2
             end
             if silavag = 2:
                 if horny >= 60:set orgazm = 5
                 if horny >= 40 and horny < 60:set orgazm = 4
                 if horny >= 20 and horny < 40:set orgazm = 3
                 if horny < 20:set orgazm = 2
             end
         end
         if dick <= prinat and dick < vagina:
             if silavag = 0:
                 if horny >= 100:set orgazm = 5
                 if horny >= 90 and horny < 100:set orgazm = 4
                 if horny < 90:set orgazm = 6
             end
             if silavag = 1:
                 if horny >= 90:set orgazm = 5
                 if horny >= 80 and horny < 90:set orgazm = 4
                 if horny < 80:set orgazm = 6
             end
             if silavag = 2:
                 if horny >= 80:set orgazm = 5
                 if horny >= 70 and horny < 80:set orgazm = 4
                 if horny < 70:set orgazm = 6
             end
         end
         
         if orgazm = 0:
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when <<$boy>> You entered, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 1:
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when <<$boy>> You entered, between the legs pain. You are frowning and moaning in pain while strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 2:
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when <<$boy>> You entered, between the legs pain, which gradually settle down and become quite tolerable. Are you trying to be excited until strong <<dick>> inch dick fuck your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on elde. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel as a member gets into your pussy, when <<$boy>> You entered. Between her legs nice, but much smaller than your dick and pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<$boy>> You entered, break your hymen. You weeping and moaning while strong <<dick>> inch dick fucks your bloody pussy.'
     end
if vagina<dick:vagina+=1
sex+=1
end



if $ARGS[0]='cum':
     if protect ! 1:
     !unprotected sex
     set finrand = RAND (0,1)
         if finrand = 0:
         !inside
         set cumpussy = cumpussy + 1
         '<<$boy>> groaned and you feel like a jet of sperm hit you inside your body.'
             if tabletki <= 0 and mesec <= 0:
             gs'preg'
             set manna = manna - 15
             set willpower = willpower - 15
             'Damn, because after all, you thought with horror.'
             end 
         end
         if finrand = 1:
         !out
             if pose = 0:
             set cumbelly = cumbelly + 1
             '<<$boy>> groaned and removing a member of you, cumshot on your stomach.'
             end 
             if pose = 1:
             set cumass = cumass + 1
             '<<$boy>> groaned and removing a member of you, cumshot on your ass.'
             end 
         end 
     end
     if protect = 1:
     set protect = 0
     '<<$boy>> groaned and you realize, he finished in a condom.'
     end
set pose = 0
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0]='autobj':
bj+=1
'You little fingers caress <<dick>> inch dick, then wrapped around his lips and began to suck.'
     if harakBoy = 0:
     '<<$boy>> closed his eyes in pleasure and enjoys the affection of your lips.'
     end
     if harakBoy = 1:
     '<<$boy>> staring you in the face until your lips slide on his hard dick.'
     end
     if harakBoy = 2:
     if mop > 1:set mop = 0
     set hapri = 0
     set throat = throat + 1
     '<<$boy>> took you by the hair and began to fuck you in the mouth, from members beat you to the throat tears flowed from his eyes.'
     end
     set horny = horny + throat + SUB + VAF - DOM
'Hard and hot cock slides in your wet her mouth filling it completely, your lips firmly wrapped around his dick caressing.'
     if horny >= 100:
     set VAF = VAF + 1
     set orgasm = orgasm + 1
     set horny = 20
     set manna = manna + 15
     set willpower = willpower + 15
     set lipkoef = lipkoef + 1
         if lipkoef > 50:
         set lipkoef = 0
         set lip = lip + 1
         end
     'Suddenly. Fire was burning between her legs and waves of pleasure covered body, You groaned but did not release a member of continuing his mouth to suck.'
     end
!'At_Last <<$boy>> groaned and you realize, now he begins to cum.'
end


if $ARGS[0]='an':
     
     !'if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         if anus < 16:'<<$boy>> pulled out of your more narrow and tight ass plug,'
         
         if anus >= 16:'<<$boy>> pulled out of your ass juices oozing feverish plug,'
         'and you feel like hard cock ran into your hole.'
          
         if anus + analpluginbonus < dick:
	     'You screamed and bit his lip from a sharp pain when his <<dick>> Member inch apart your ass you entered.'
	     end
	     if anus + analpluginbonus >= dick:
	     'You groaned feeling of fullness when it <<dick>> Member inch apart your ass you entered.'
	     end
         !gs 'BDsex','ancum'
     end'
     
      
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         '<<$boy>> pulled out of your more narrow and tight ass plug,'
     end
     
      if dick < anus:set anus = anus + 1
     
     
     if lubri = 0:
     set lubonus = 2
     'Lubricant and you do not <<$boy>> spitting on his fingers began to lubricate your ass saliva.'
     end
     
     if lubri > 0:
     set lubri = lubri - 1
     set lubonus = 10
     'You took a tube of lubricant and handed him over to the guy, He choked a little on his palm and rubbed your anus.'
     end
     
'<<$boy>> put your stomach on the bed apart and your buttocks began to massage your anus with your fingers, first one, then two.'
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$boy>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
	if anus + lubonus < dick:'You screamed and bit his lip from a sharp pain when his <<dick>> Member inch apart your ass you entered.'
	if anus + lubonus >= dick:'You groaned feeling of fullness when it <<dick>> Member inch apart your ass you entered.'
	'<<$boy>> froze for a moment giving your ass adapt to sticking out of her term, then began to drive them all the more insistent.'
	if anus + lubonus + 2 < dick:
	if mop > 1:set mop = 0
	'You cry and sank his teeth into the pillow when <<dick>> inch cock began to fuck your ass at full power.'
	end
	if anus + lubonus + 2 >= dick:
	'You started moaning rhythmically to the beat of limb movements inside you.'
	end
anal+=1
end

if $ARGS[0]='ancum':
'At_Last <<$boy>> grabbed you stronger for the back and drove into your aching ass dick down to the eggs you finished inside.'
cumass+=1
set minut = minut + 3
set cumanus = cumanus + 1
if anus < dick:set anus = anus + 1
set horny = horny + ((anus-dick)*3)
if horny< 1: set horny = 1
     if horny >=100:
         horny  = 1
         set orgasm = orgasm + 1
         set analorgasm= analorgasm+1
         'In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
     end
end





--- BDsex ---------------------------------

# boy
!'<<$boy>> <<$boybody>> <<$boybod>> <<$boyface>>.<<$boy>> <<$boyClo>>'

!Randomly male names
Set boynamerand = RAND (1,38)
!Russian names
if boynamerand = 1:Set $boy = 'Alexander'
if boynamerand = 2:Set $boy = 'Alexey'
if boynamerand = 3:Set $boy = 'Albert'
if boynamerand = 4:Set $boy = 'Anatoly'
if boynamerand = 5:Set $boy = 'Anton'
if boynamerand = 6:Set $boy = 'Arkady'
if boynamerand = 7:Set $boy = 'Andrew'
if boynamerand = 8:Set $boy = 'Boris'
if boynamerand = 9:Set $boy = 'Vadim'
if boynamerand = 10:Set $boy = 'Valentine'
if boynamerand = 11:Set $boy = 'Valery'
if boynamerand = 12:Set $boy = 'Basil'
if boynamerand = 13:Set $boy = 'Victor'
if boynamerand = 14:Set $boy = 'Vitali'
if boynamerand = 15:Set $boy = 'Vladimir'
if boynamerand = 16:Set $boy = 'Vyacheslav'
if boynamerand = 17:Set $boy = 'Gennady'
if boynamerand = 18:Set $boy = 'George'
if boynamerand = 19:Set $boy = 'Gregory'
if boynamerand = 20:Set $boy = 'Denis'
if boynamerand = 21:Set $boy = 'Eugene'
if boynamerand = 22:Set $boy = 'Egor'
if boynamerand = 23:Set $boy = 'Ivan'
if boynamerand = 24:Set $boy = 'Igor'
if boynamerand = 25:Set $boy = 'Cyril'
if boynamerand = 26:Set $boy = 'Leonid'
if boynamerand = 27:Set $boy = 'Maxim'
if boynamerand = 28:Set $boy = 'Michael'
if boynamerand = 29:Set $boy = 'Oleg'
if boynamerand = 30:Set $boy = 'Paul'
if boynamerand = 31:Set $boy = 'Peter'
if boynamerand = 32:Set $boy = 'Semen'
if boynamerand = 33:Set $boy = 'Sergey'
if boynamerand = 34:Set $boy = 'Stepan'
if boynamerand = 35:Set $boy = 'Fedor'
if boynamerand = 36:Set $boy = 'Edward'
if boynamerand = 37:Set $boy = 'Yuri'
if boynamerand = 38:Set $boy = 'Jacob'
$namev=$boy

!appearance
Set boybodyrand = RAND (1,3)
if boybodyrand = 1:Set $boybody = 'high'
if boybodyrand = 2:Set $boybody = 'average height'
if boybodyrand = 3:Set $boybody = 'small'

Set boybodrand = RAND (1,4)
if boybodrand = 1:Set $boybod = 'thin'
if boybodrand = 2:Set $boybod = 'Athletic'
if boybodrand = 3:Set $boybod = 'chunky'
if boybodrand = 4:Set $boybod = 'full'

Set boyfacerand = RAND (1,3)
if boyfacerand = 1:Set $boyface = 'brunet'
if boyfacerand = 2:Set $boyface = 'brown-haired_person'
if boyfacerand = 3:Set $boyface = 'blond'
!size eldy
set grdikrand = RAND (0,100)
if grdikrand < 80:
set dick = RAND (12,18)
end
if grdikrand >= 80 and grdikrand < 90:
set dick = RAND (8,12)
end
if grdikrand >= 90:
set dick = RAND (18,25)
end
! sexual force
set silaVag = RAND (0,2)

!variable is responsible for guy
set boyonce = 0

set harakBoy = RAND (0,2)

!Variables responsible for any features like
!security, is responsible for the money and requirements
set finance = RAND (0,2)
     if finance = 0:
     !Gopnik beggar or a hard worker
     !check in appearance Primary
         if harakBoy = 0:set vneshBoy = RAND (0,2)
         if harakBoy = 1:set vneshBoy = RAND (0,4)
         if harakBoy = 2:set vneshBoy = RAND (0,8)
     set $boyClo = 'dressed in baggy tracksuit.'
     end 
     if finance = 1:
     !middle_peasant
     !check in appearance
         if harakBoy = 0:set vneshBoy = RAND (0,4)
         if harakBoy = 1:set vneshBoy = RAND (0,6)
         if harakBoy = 2:set vneshBoy = RAND (0,8)
      set $boyClo = 'dressed in jeans and a sweater.'
     end 
     if finance = 2:
     !middle_peasant
     !check in appearance
         if harakBoy = 0:set vneshBoy = RAND (4,8)
         if harakBoy = 1:set vneshBoy = RAND (6,8)
         if harakBoy = 2:set vneshBoy = RAND (8,10)
      set $boyClo = 'dressed in an expensive suit.'
     end 

!requirements of the figure, chest size, hair color.
!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100 
set figurBoy = RAND (0,2)
!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
set titBoy = RAND (0,2)
!0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
set haerBoy = RAND (0,3)
!character 0 - soft, 1 -norm 2 - aggressor

set randizvrat = RAND (0,100)
if randizvrat < 80:set izvrat = 0
if randizvrat >= 80:set izvrat = 1


--- boy ---------------------------------

# boyfrend
if $ARGS[0]='start':
	 if bfA = 0 and stopboy = 0:
	 set stopboy = 1
	 gs'boyfrend','A'
	 end
	 if bfA > 0 and bfB = 0 and stopboy = 0:
	 set stopboy = 1
	 gs'boyfrend','B'
	 end
	 if bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
	 set stopboy = 1
	 gs'boyfrend','C'
	 end
     if bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:
     'Hmm, You are already three boyfriend, Why do you need a fourth?'
     end
end

if $ARGS[0]='A':
!set stopboy = 0
Set $boyA = $boy
set boybodyrandA = boybodyrand
Set $boybodyA = $boybody
set boybodrandA = boybodrand
Set $boybodA = $boybod
set boyfacerandA = boyfacerand
set $boyfaceA = $boyface
set dickA = dick
set silaVagA = silaVag
set financeA = finance
set vneshBoyA = vneshBoy
set $boyCloA = $boyClo
set figurBoyA = figurBoy
set titBoyA = titBoy
set haerBoyA = haerBoy
set harakBoyA = harakBoy
set boydayA = day
set bfA = 1
set daya = 0
set boyonceA = 0
set izvratA = izvrat
set giftDayA = 0
set giftNumA = 0
set love = 0
end

if $ARGS[0]='B':
!set stopboy = 0
Set $boyB = $boy
set boybodyrandB = boybodyrand
Set $boybodyB = $boybody
set boybodrandB = boybodrand
Set $boybodB = $boybod
set boyfacerandB = boyfacerand
set $boyfaceB = $boyface
set dickB = dick
set silaVagB = silaVag
set financeB = finance
set vneshBoyB = vneshBoy
set $boyCloB = $boyClo
set figurBoyB = figurBoy
set titBoyB = titBoy
set haerBoyB = haerBoy
set harakBoyB = harakBoy
set boydayB = day
set bfB = 1
set dayb = 0
set boyonceB = 0
end

if $ARGS[0]='C':
!set stopboy = 0
Set $boyC = $boy
set boybodyrandC = boybodyrand
Set $boybodyC = $boybody
set boybodrandC = boybodrand
Set $boybodC = $boybod
set boyfacerandC = boyfacerand
set $boyfaceC = $boyface
set dickC = dick
set silaVagC = silaVag
set financeC = finance
set vneshBoyC = vneshBoy
set $boyCloC = $boyClo
set figurBoyC = figurBoy
set titBoyC = titBoy
set haerBoyC = haerBoy
set harakBoyC = harakBoy
set boydayC = day
set bfC = 1
set dayc = 0
set boyonceC = 0
end
--- boyfrend ---------------------------------

# boylove
if $ARGS[0]='haer':
     if haerBoyA ! hcol:
     bfA = bfA - 1
         if haerBoyA = 0:'<<$boyA>> speaks, you are very beautiful, although he likes brunettes.'
         if haerBoyA = 1:'<<$boyA>> speaks, you are very beautiful, although he likes the brown-haired.'
         if haerBoyA = 2:'<<$boyA>> speaks, you are very beautiful, although he likes redheads.'
         if haerBoyA = 3:'<<$boyA>> speaks, you are very beautiful, although he likes blondes.'
     end
     if haerBoyA = hcol:
     set bfA = bfA + 1
     '<<$boyA>> speaks, that you have beautiful hair.'
     end 
end

if $ARGS[0]='figure':

	 if figurBoyA = 0:
	     if bedra < 80:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have a perfect figure.'
	     end
	     
	     if bedra >= 80:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, that you really like him despite the fact, that he always met with hudyshku.'
	     end
	 end
	 
	 if figurBoyA = 1:
	     if bedra > 80 and bedra < 100:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have a perfect figure.'
	     end
	     
	     if bedra <= 80:
	     set bfA = bfA - 1
	     '<<$boyA>> asks, whether you have anorexia.'
	     end
	     
	     if bedra >= 100:
	     set bfA = bfA - 1
	     '<<$boyA>> asks, are you going to go on a diet.'
	     end
	 end
	 
	 if figurBoyA = 2:
	     if bedra >= 100:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have a perfect figure.'
	     end
	     
	     if bedra < 100:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, you are beautiful, but a woman should be in the body.'
	     end
	 end
end

if $ARGS[0]='tits':
!titBoyA
	 if titBoyA = 0:
	     if tits < 3:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have beautiful breasts.'
	     end
	     
	     if tits >= 3:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, that you really like him despite the fact, that he prefers small breasts.'
	     end
	 end
	 
	 if titBoyA = 1:
	     if tits >= 3 and tits <= 4:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have the perfect breasts.'
	     end
	     
	     if tits < 3:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, that you have a beautiful, although small breasts.'
	     end
	     
	     if tits > 4:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, that you have a really huge breasts.'
	     end
	 end
	 
	 if titBoyA = 2:
	     if tits > 4:
	     set bfA = bfA + 1
	     '<<$boyA>> tells you, that you have great breasts.'
	     end
	     
	     if tits <= 4:
	     set bfA = bfA - 1
	     '<<$boyA>> speaks, that you have a beautiful, although small breasts.'
	     end
	 end

end
--- boylove ---------------------------------

# svi
if $ARGS[0]='poor':
set minut = minut + 20
     if Venera >= 3:
     set bfA = 0
     '<<$boyA>> you saw signs of venereal disease and left you.'
     act 'Get_Away':gt'street'
     exit
     end
     if sweat > 1:
     !sweating
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
         if harakBoyA = 3:'<<$boyA>> tells you, that it appeared urgent business.'
         if harakBoyA = 4:'<<$boyA>> wrinkles her nose in disgust and tells you, that it appeared urgent business.'
         if harakBoyA = 5:'<<$boyA>> tells you, you would do well to wash.'        
     act 'Get_Away':gt'street'
     exit
     end
     
     if vatnik = 2:
     !quilted_jacket
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
         if harakBoyA = 3:'<<$boyA>> tells you, that it appeared urgent business.'
         if harakBoyA = 4:'<<$boyA>> scornfully looks at you and tells you, that it appeared urgent business.'
         if harakBoyA = 5:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if harakBoyA>0 and izvrat=0 and (cumface > 0 or cumlip > 0):
     set bfA = 0
     '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if daya < 10 and boyonceA = 0:
     !candy buketny period
     set vstrand = RAND (0,2)
         if vstrand = 0:
		 '<<$boyA>> offers a walk in the park.'
			 act 'Walk in the park':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You walk in the park with a guy. <<$boyA>> telling stories and jokes hunted.'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
                 gt'svidan','kvartA'
                 end
				 
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 1:
		 '<<$boyA>> offers to go to the cinema.'
			 act 'Go to the cinema':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You went to the cinema to a new film. <<$boyA>> hug you.'
			     act 'Hug his hand':
			     cla
			     'You watch a movie hugging Man `s hand. Finally.'
			     set bfA = bfA + 1
					 act 'To invite':
					 cla
					 if dayA < 3:set bfA = bfA - 1
					 gt'svidan','kvartA'
					 end
					 
					 act 'Say goodbye and go home':
					 cla
					 set bfA = bfA + 1
					 gt'street'
					 end
                 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 2:
		 '<<$boyA>> offers pivasika drink in the stairwell.'
			 act 'drink beer':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 '<<$boyA>> pivasika bought and crackers and you went with him into the entrance, where drinking and fun chatting.'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
				 gt'svidan','kvartA'
				 end
					
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
     end
     
     if daya >= 10 and boyonceA = 0:
     '<<$boyA>> speaks, that he was a grown man .'
     	 act 'leave':
	     cla
	     set bfA = 0
	     gt'street'
	     end
	     
	     act 'Agreed to have sex':
	     cla
	     *clr
	     set minut = minut + 20
	     'You agreed to have sex. <<$boyA>> delighted.'
	     	 act 'Go to your apartment':gt'svidan','kvartA'
	     	 act 'Go into the bushes':gt'svidan','kustA'
	     end
     exit
     end
     
     if dayA > 15:gs'boylove','haer'
     if dayA > 30:gs'boylove','figure'
     if dayA > 60:gs'boylove','tits'
     
     if boyonceA > 0:
     '<<$boyA>> offers to hang out in the stairwell with pivasikom.'
	     act 'hang_out':
	     cla
	     set minut = minut + 60
	     set fat = fat + 1
	     set bfA = bfA + 1
	     'You drank beer in the hallway with her boyfriend. <<$boyA>> hugged you and said, he wants you.'
	         act 'Go to your apartment':gt'svidan','kvartA'
	         act 'Go into the bushes':gt'svidan','kustA'
	     end
          
         act 'Opt_Out':
         cla
         set bfA = bfA - 1
         gt'street'
         end
     end
end

if $ARGS[0]='norm':
set minut = minut + 20
     if Venera >= 3:
     set bfA = 0
     '<<$boyA>> you saw signs of venereal disease and left you.'
     act 'Get_Away':gt'street'
     exit
     end
     if sweat > 1:
     !sweating
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if vatnik = 2:
     !quilted_jacket
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if harakBoyA >0 and izvrat=0 and (cumface > 0 or cumlip > 0):
     set bfA = 0
     '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if daya < 10 and boyonceA = 0:
     !candy buketny period
     set vstrand = RAND (0,2)
         if vstrand = 0:
		 '<<$boyA>> offers go to the cafe.'
			 act 'Go to the cafe':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
                 gt'svidan','kvartA'
                 end
				 
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 1:
		 '<<$boyA>> offers to go to the cinema.'
			 act 'Go to the cinema':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You went to the cinema to a new film. <<$boyA>> hug you.'
			     act 'Hug his hand':
			     cla
			     'You watch a movie hugging Man `s hand. Finally.'
			     set bfA = bfA + 1
					 act 'To invite':
					 cla
					 if dayA < 3:set bfA = bfA - 1
					 gt'svidan','kvartA'
					 end
					 
					 act 'Say goodbye and go home':
					 cla
					 set bfA = bfA + 1
					 gt'street'
					 end
                 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 2:
		 '<<$boyA>> offers a walk.'
			 act 'walk':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 '<<$boyA>> took you by the arm and you`re walking down the street talking.'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
				 gt'svidan','kvartA'
				 end
					
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
     end
     
     if daya >= 10 and boyonceA = 0:
     '<<$boyA>> speaks, that he was a grown man .'
     	 act 'leave':
	     cla
	     set bfA = 0
	     gt'street'
	     end
	     
	     act 'Agreed to have sex':
	     cla
	     *clr
	     set minut = minut + 20
	     'You agreed to have sex. <<$boyA>> delighted.'
	     	 act 'Go to your apartment':gt'svidan','kvartA'
	     	 
	     	 act 'To go to his car':gt'svidan','carA'
	     end
     exit
     end
     if dayA > 12 and skin < 2:set bfA = bfA - 1
     if dayA > 12:gs'boylove','haer'
     if dayA > 24:gs'boylove','figure'
     if dayA > 48:gs'boylove','tits'
     if dayA > 22 and glaraz < 1:set bfA = bfA - 1
     if dayA > 40 and lip < 1:set bfA = bfA - 1
     
     if boyonceA > 0:
     '<<$boyA>> offers sit in a cafe.'
	     act 'The CafГ©':
	     cla
	     set minut = minut + 60
	     set fat = fat + 1
	     set bfA = bfA + 1
	     'You`ve come to the cafe, <<$boyA>> ordered a full table and you were sitting talking and having fun. <<$boyA>> hugged you and said, he wants you.'
	         act 'Go to your apartment':gt'svidan','kvartA'
	         act 'To go to his car':gt'svidan','carA'
	     end
          
         act 'Opt_Out':
         cla
         set bfA = bfA - 1
         gt'street'
         end
     end
end

if $ARGS[0]='reach':
set minut = minut + 20
     if Venera >= 3:
     set bfA = 0
     '<<$boyA>> you saw signs of venereal disease and left you.'
     act 'Get_Away':gt'street'
     exit
     end
     if sweat > 1:
     !sweating
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if vatnik = 2:
     !quilted_jacket
     set bfA = bfA - 1
         if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
         if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
         if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if harakBoyA>0 and izvrat=0 and (cumface > 0 or cumlip > 0):
     set bfA = 0
     '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
     act 'Get_Away':gt'street'
     exit
     end
     
     if dayA > 5 and skin < 3:set bfA = bfA - 1
     if dayA > 10:gs'boylove','haer'
     if dayA > 20:gs'boylove','figure'
     if dayA > 30:gs'boylove','tits'
     if dayA > 10 and glaraz < 2:set bfA = bfA - 1
     if dayA > 6 and lip < 2:set bfA = bfA - 1
     if dayA > 8 and resnic < 1:set bfA = bfA - 1
     
     
     if daya < 10 and boyonceA = 0:
     !candy buketny period
     set vstrand = RAND (0,2)
         if vstrand = 0:
		 '<<$boyA>> offers go to the cafe.'
			 act 'Go to the cafe':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
                 gt'svidan','kvartA'
                 end
				 
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 1:
		 '<<$boyA>> offers to go to the cinema.'
			 act 'Go to the cinema':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 'You went to the cinema to a new film. <<$boyA>> hug you.'
			     act 'Hug his hand':
			     cla
			     'You watch a movie hugging Man `s hand. Finally.'
			     set bfA = bfA + 1
					 act 'To invite':
					 cla
					 if dayA < 3:set bfA = bfA - 1
					 gt'svidan','kvartA'
					 end
					 
					 act 'Say goodbye and go home':
					 cla
					 set bfA = bfA + 1
					 gt'street'
					 end
                 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
         
         if vstrand = 2:
		 '<<$boyA>> offers go to a restaurant.'
			 act 'Go to a restaurant':
			 cla
			 set minut = minut + 60
			 set fat = fat + 1
			 set bfA = bfA + 1
			 '<<$boyA>> brought you to the restaurant. There waiter quickly covered the table and you were sitting enjoying a meal, wine and socializing'
				 act 'To invite':
				 cla
				 if dayA < 3:set bfA = bfA - 1
				 gt'svidan','kvartA'
				 end
					
				 act 'Say goodbye and go home':
				 cla
				 set bfA = bfA + 1
				 gt'street'
				 end
			 end
			  
			 act 'Opt_Out':
			 cla
			 set bfA = bfA - 1
			 gt'street'
			 end
         end
     end
     
     if daya >= 10 and boyonceA = 0:
     '<<$boyA>> speaks, that he was a grown man .'
     	 act 'leave':
	     cla
	     set bfA = 0
	     gt'street'
	     end
	     
	     act 'Agreed to have sex':
	     cla
	     *clr
	     set minut = minut + 20
	     'You agreed to have sex. <<$boyA>> delighted.'
	     	 act 'Go to your apartment':gt'svidan','kvartA'
	     	 act 'Go to him':gt'svidan','hisA'
	     end
     exit
     end
     
     if boyonceA > 0:
     '<<$boyA>> offers sit in a cafe.'
	     act 'The CafГ©':
	     cla
	     set minut = minut + 60
	     set fat = fat + 1
	     set bfA = bfA + 1
	     'You`ve come to the cafe, <<$boyA>> ordered a full table and you were sitting talking and having fun. <<$boyA>> hugged you and said, he wants you.'
	         act 'Go to your apartment':gt'svidan','kvartA'
	         act 'Go to him':gt'svidan','hisA'
	     end
          
         act 'Opt_Out':
         cla
         set bfA = bfA - 1
         gt'street'
         end
     end 
end
--- svi ---------------------------------

# svidan
if $ARGS[0]='start':
     if svidanieA = 1 and svidanieB = 1 and svidanieC = 1:
     set bfA = 0
     set bfB = 0
     set bfC = 0
     set svidanieA = 0
     set svidanieB = 0
     set svidanieC = 0
     set manna = 0
     set willpower = willpower - 30
     '<<$boyA>>, <<$boyB>> and <<$boyC>> suited to you, then look at each other in bewilderment. They all understand and go. <<$boyC>> throws you goodbye "Well!"'
     act 'Get_Away.':gt'street'
     exit
     end
     
     if svidanieA = 1 and svidanieB = 1 and svidanieC = 0:
     set bfA = bfA - 1
     set bfB = 0
     !set bfC = 0
     set svidanieA = 0
     set svidanieB = 0
     set svidanieC = 0
     set manna = manna - 10
     set willpower = willpower - 20
     '<<$boyA>> and <<$boyB>> suited to you, then look at each other in bewilderment. <<$boyA>> asks, what kind of bloke you pinned. what <<$boyB>> resents, he`s your guy, rather than the poludurok.'
         if bfA > 0:'<<$boybodyA>> <<$boybodA>> <<$boyA>> punches in the face of its competitor. <<$boyB>> falls to the ground with a broken face. <<$boyA>> says a defeated opponent, "once you see near my girls generally kill fuck."'
         if bfA <= 0:'<<$boyA>> spits angrily to the ground and said. "You went on dick, slut." throwing flowers and leaves in the trash. <<$boyB>> looks at what is happening and leaves without saying a word.'
     act 'Get_Away.':gt'street'
     exit
     end
     
     if svidanieA = 1 and svidanieB = 0 and svidanieC = 1:
     set bfA = bfA - 1
     !set bfB = 0
     set bfC = 0
     set svidanieA = 0
     set svidanieB = 0
     set svidanieC = 0
     set manna = manna - 10
     set willpower = willpower - 20
     '<<$boyA>> and <<$boyC>> suited to you, then look at each other in bewilderment. <<$boyA>> asks, What is this dick with a mountain to you pinned. what <<$boyC>> resents, he`s your guy, rather than the poludurok.'
         if bfA > 0:'<<$boybodyA>> <<$boybodA>> <<$boyA>> punches in the face of its competitor. <<$boyC>> falls to the ground with a broken face. <<$boyA>> says a defeated opponent, "once you see near my girls generally kill fuck."'
         if bfA <= 0:'<<$boyA>> spits angrily to the ground and said. "You went on dick, slut." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
     act 'Get_Away.':gt'street'
     exit
     end
     
     if svidanieA = 0 and svidanieB = 1 and svidanieC = 1:
     set bfB = bfB - 1
     !set bfB = 0
     set bfC = 0
     set svidanieA = 0
     set svidanieB = 0
     set svidanieC = 0
     set manna = manna - 10
     set willpower = willpower - 20
     '<<$boyB>> and <<$boyC>> suited to you, then look at each other in bewilderment. <<$boyB>> asks, What is this dick with a mountain to you pinned. what <<$boyC>> resents, he`s your guy, rather than the poludurok.'
         if bfb > 0:'<<$boybodyB>> <<$boybodB>> <<$boyB>> punches in the face of its competitor. <<$boyC>> falls to the ground with a broken face. <<$boyB>> says a defeated opponent, "once you see near my girls generally kill fuck."'
         if bfb <= 0:'<<$boyB>> spits angrily to the ground and said. "You went on dick, slut." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
     act 'Get_Away.':gt'street'
     exit
     end
     
     if svidanieA = 1 and svidanieB = 0 and svidanieC = 0:
     set dayA = dayA + 1
     set svidanieA = 0
     set willpower = willpower + RAND (5,10)
     set manna = manna + RAND (5,10)
         if harakBoy = 0:
             if mop <= 2 and mop > 0:set bfA = bfA + 1
             if mop = 4:set bfA = bfA - 1
         end
         if harakBoy = 1:
             if mop <= 3 and mop > 0:set bfA = bfA + 1
             if mop = 4:set bfA = bfA - 1
         end
         if harakBoy = 2:
             if mop = 4:set bfA = bfA + 1
             if mop <= 2 and mop > 0:set bfA = bfA - 1
         end
     '<<$boybodyA>> <<$boybodA>> <<$boyA>> comes to you and kisses you Welcoming.'
         if dayA >= 30:
         set giftrand = RAND (0,2)
             if giftrand <= financeA:
             set gift = RAND (bfa*10,bfa*50)
             set money = money + gift
             '<<$boyA>> did you gift to <<gift>> rubles.'
             end
         end
     act 'kiss.':gt'svidan','a'
         act 'avoid kissing.':
         cla
         set bfA = bfA - 1
         gt'svidan','a'
         end
     exit
     end
     
     if svidanieA = 0 and svidanieB = 1 and svidanieC = 0:
     set dayB = dayB + 1
     set svidanieB = 0
     '<<$boybodyb>> <<$boybodb>> <<$boyb>> comes to you and kisses you Welcoming.'
     act 'kiss.':gt'svidan','b'
     exit
     end
     
     if svidanieA = 0 and svidanieB = 0 and svidanieC = 1:
     set dayc = dayc + 1
     set svidaniec = 0
     '<<$boybodyc>> <<$boybodc>> <<$boyc>> comes to you and kisses you Welcoming.'
     act 'kiss.':gt'svidan','c'
     exit
     end
end

if $ARGS[0]='a':
     if financeA = 0:gt'svi','poor' 
     if financeA = 1:gt'svi','norm' 
     if financeA = 2:gt'svi','reach' 
end


if $ARGS[0]='kustA':
*clr
set minut = minut + 20
'You hid in a corner and ukromnoi <<$boyA>> pulled out his penis.'
	 act 'Take by mouth':
	 cla
	 *clr
	 set bfA = bfA + 1
		 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
	 set bj = bj + 1
	 set dick = dickA
	 set harakBoy = harakBoyA
	 set minut = minut + 30
	 set $nameV = $boyA
	 '<center><img src="picV/bj.jpg" ></center>'
	 'You knelt and <<$nameV>> pulled out his penis and offered it to your face.'
	 gs'oral','start'
		 act 'continue to suck.':
		 cla
		 *clr
		 set swallow = swallow + 1
		 set cumlip = cumlip + 1
		 '<center><img src="picV/swallow.jpg" ></center>'
		 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
		 end
		 
		 act 'Remove the mouth.':
		 cla
		 *clr
			 if harakBoyA = 0:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
			 end
			 if harakBoyA = 1:
			 set tiprand = RAND (0,3)
				 if tiprand < 3:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
				 end 
				 if tiprand = 3:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 'Have you taken the member and at this point <<$nameV>> discharged directly on your face, covering it with warm and sticky sperm.'
				 end
			 end
			 if harakBoyA = 2:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 '<center><img src="picV/facial.jpg" ></center>'
			 '<<$nameV>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
			 end
		  
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
	     end
     end
end

if $ARGS[0]='carA':
*clr
set minut = minut + 20
'You got in the car and <<$boyA>> hugged you and started kissing.'
	 act 'sex':
	 cla
	 *clr
	 set bfA = bfA + 1
		 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
	 set sex = sex + 1
	 set minut = minut + 30
	 set pose = 0
	 set $nameV = $boyA
	 set dick = dickA
	 set silavag = silavagA
	 '<center><img src="picV/vag.jpg" ></center>'
	 '<<$nameV>> put you on your back and spread your legs.'
	 gs'orgazm','start'
		 act 'Get_Away.':
		 cla
		 gt'street'
		 end
	 end
	 
	 act 'Take by mouth':
	 cla
	 *clr
	 set bfA = bfA + 1
		 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
	 set bj = bj + 1
	 set dick = dickA
	 set harakBoy = harakBoyA
	 set minut = minut + 30
	 set $nameV = $boyA
	 '<center><img src="picV/bj.jpg" ></center>'
	 'You knelt and <<$nameV>> pulled out his penis and offered it to your face.'
	 gs'oral','start'
		 act 'continue to suck.':
		 cla
		 *clr
		 set swallow = swallow + 1
		 set cumlip = cumlip + 1
		 '<center><img src="picV/swallow.jpg" ></center>'
		 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
		 end
		 
		 act 'Remove the mouth.':
		 cla
		 *clr
			 if harakBoyA = 0:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
			 end
			 if harakBoyA = 1:
			 set tiprand = RAND (0,3)
				 if tiprand < 3:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
				 end 
				 if tiprand = 3:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 'Have you taken the member and at this point <<$nameV>> discharged directly on your face, covering it with warm and sticky sperm.'
				 end
			 end
			 if harakBoyA = 2:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 '<center><img src="picV/facial.jpg" ></center>'
			 '<<$nameV>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
			 end
		  
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
	     end
     end
end

if $ARGS[0]='hisA':
*clr
set minut = minut + 20
'Once you have entered the apartment <<$boyA>> hugged you and started kissing.'
	 act 'sex':
	 cla
	 *clr
	 set bfA = bfA + 1
		 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
	 set sex = sex + 1
	 set minut = minut + 30
	 set pose = 0
	 set $nameV = $boyA
	 set dick = dickA
	 set silavag = silavagA
	 '<center><img src="picV/vag.jpg" ></center>'
	 '<<$nameV>> put you on your back and spread your legs.'
	 gs'orgazm','start'
		 act 'Get_Away.':
		 cla
		 gt'street'
		 end
	 end
	 
	 act 'Take by mouth':
	 cla
	 *clr
	 set bfA = bfA + 1
		 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
	 set bj = bj + 1
	 set dick = dickA
	 set harakBoy = harakBoyA
	 set minut = minut + 30
	 set $nameV = $boyA
	 '<center><img src="picV/bj.jpg" ></center>'
	 'You knelt and <<$nameV>> pulled out his penis and offered it to your face.'
	 gs'oral','start'
		 act 'continue to suck.':
		 cla
		 *clr
		 set swallow = swallow + 1
		 set cumlip = cumlip + 1
		 '<center><img src="picV/swallow.jpg" ></center>'
		 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
		 end
		 
		 act 'Remove the mouth.':
		 cla
		 *clr
			 if harakBoyA = 0:
			 '<center><img src="picV/hand.jpg" ></center>'
			 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
			 end
			 if harakBoyA = 1:
			 set tiprand = RAND (0,3)
				 if tiprand < 3:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
				 end 
				 if tiprand = 3:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 'Have you taken the member and at this point <<$nameV>> discharged directly on your face, covering it with warm and sticky sperm.'
				 end
			 end
			 if harakBoyA = 2:
			 set facial = facial + 1
			 set cumface = cumface + 1
			 '<center><img src="picV/facial.jpg" ></center>'
			 '<<$nameV>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
			 end
		  
			 act 'Get_Away.':
			 cla
			 gt'street'
			 end
	     end
     end
end

if $ARGS[0]='kvartA':
*clr
if housr > 0:set housrA = 1&set housrMir = 0
set minut = minut + 20
'Once you have entered the apartment <<$boyA>> hugged you and started kissing.'
     if husband = 0:
		 act 'sex':
		 cla
		 *clr
		 set bfA = bfA + 1
			 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
		 set sex = sex + 1
		 set minut = minut + 30
		 set pose = 0
		 set $nameV = $boyA
		 set dick = dickA
		 set silavag = silavagA
		 '<center><img src="picV/vag.jpg" ></center>'
		 '<<$nameV>> put you on your back and spread your legs.'
		 gs'orgazm','start'
			 act 'Hold up doors.':
			 cla
			 gt'mirror','fin'
			 end
		 end
		 
		 
		 act 'Take by mouth':
		 cla
		 *clr
		 set bfA = bfA + 1
			 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
		 set bj = bj + 1
		 set dick = dickA
		 set harakBoy = harakBoyA
		 set minut = minut + 30
		 set $nameV = $boyA
		 '<center><img src="picV/bj.jpg" ></center>'
		 'You knelt and <<$nameV>> pulled out his penis and offered it to your face.'
		 gs'oral','start'
			 act 'continue to suck.':
			 cla
			 *clr
			 set swallow = swallow + 1
			 set cumlip = cumlip + 1
			 '<center><img src="picV/swallow.jpg" ></center>'
			 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally.'
				 act 'Hold up doors.':
				 cla
				 gt'mirror','fin'
				 end
			 end
			 
			 act 'Remove the mouth.':
			 cla
			 *clr
				 if harakBoyA = 0:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
				 end
				 if harakBoyA = 1:
				 set tiprand = RAND (0,3)
					 if tiprand < 3:
					 '<center><img src="picV/hand.jpg" ></center>'
					 'You remove a member from the mouth and <<$nameV>> finished you in the palm.'
					 end 
					 if tiprand = 3:
					 set facial = facial + 1
					 set cumface = cumface + 1
					 '<center><img src="picV/facial.jpg" ></center>'
					 'Have you taken the member and at this point <<$nameV>> discharged directly on your face, covering it with warm and sticky sperm.'
					 end
				 end
				 if harakBoyA = 2:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 '<<$nameV>> hold your hair pulled dick out of your mouth and on your face cumshot, covering it with warm and sticky sperm.'
				 end
			  
				 act 'Hold up doors.':
				 cla
				 gt'mirror','fin'
				 end
			 end
		 end
		 
		 act 'masturbate him':
		 cla
		 *clr
		     if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
		 set DOM = DOM + 1
		 set hj = hj + 1
		 set minut = minut + 30
		 set horny = horny + DOM
		 '<center><img src="picV/hand1.jpg" ></center>'
		 'You stripped and laid on the bed Man, while they themselves sat down next to him and began to fondle his penis hands.'
		 'Soon.'
		 if harakBoyA = 0:set bfA = bfA - 1
		 if harakBoyA = 1:set bfA = bfA - 5
		 if harakBoyA = 2:set bfA = bfA - 10
			 act 'Wipe your hands and hold up to the door.':
			 cla
			 gt'mirror','fin'
			 end
		 end
		 
		 if DOM > 1 and kunday ! day and mesec <= 0:
		 	 act 'Cooney':
			 cla
			 *clr
			 set kunday = day
				 if boyonceA = 0:set boyonceA = 1&set guy = guy + 1&set vneshBoyA = vneshBoyA + 10
			 set DOM = DOM + 1
			 set kuni = kuni + 1
			 set minut = minut + 30
			 set horny = horny + DOM + (silaVag*2 + 5)
			 '<center><img src="picV/kuni.jpg" ></center>'
			 'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
			 '<<$boyA>> lay down between your legs and began to work on your tongue pussy.'
			 if harakBoyA = 0:set bfA = bfA - 1
			 if harakBoyA = 1:set bfA = bfA - 5
			 if harakBoyA = 2:set bfA = bfA - 10
			     if horny >= 90:
			     set horny = 0
				 set manna = manna + 15
				 set willpower = willpower + 15
				 set orgasm = orgasm + 1
			     'Man of skillful actions you covered orgasm.'
			     else
			     'Action Man though they were exciting, but they began to bore you.'
			     end
			     
				 act 'further.':
				 cla
				 gt'svidan','kvartA'
				 end
			 end
		 
		 end
		 
	 end
end




--- svidan ---------------------------------

# KGstart
$KGOLklassvibor={
cls
'You must select a character class.'
if KGOLrace=1:
'For people available classes Warrior, thief, magician.'
     act 'warrior':$KGOLklass='warrior'&KGOLklass=1&dynamic $KGOLklassvibor2
     act 'thief':$KGOLklass='thief'&KGOLklass=2&dynamic $KGOLklassvibor2
     act 'magician':$KGOLklass='magician'&KGOLklass=3&dynamic $KGOLklassvibor2
elseif KGOLrace=2:
'For Elves available classes Priest, archer.'
     act 'priest':$KGOLklass='priest'&KGOLklass=4&dynamic $KGOLklassvibor2
     act 'archer':$KGOLklass='archer'&KGOLklass=5&dynamic $KGOLklassvibor2
else
'For zveroidov available classes Barbarian.'
     act 'barbarian':$KGOLklass='barbarian'&KGOLklass=6&dynamic $KGOLklassvibor2
end

}
$KGOLklassvibor2={
cls
KGOLexp=0
KGOLlvl=1
KGOLbrona=0
KGOLwpower=0
'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
if KGOLklass=1:
KGOLstren=30
KGOLspeed=20
KGOLvital=30
KGOLintel=20
elseif KGOLklass=2:
KGOLstren=20
KGOLspeed=30
KGOLvital=20
KGOLintel=30
elseif KGOLklass=3:
KGOLstren=10
KGOLspeed=20
KGOLvital=20
KGOLintel=50
elseif KGOLklass=4:
KGOLstren=10
KGOLspeed=10
KGOLvital=10
KGOLintel=70
elseif KGOLklass=5:
KGOLstren=20
KGOLspeed=40
KGOLvital=10
KGOLintel=30
else
KGOLstren=40
KGOLspeed=10
KGOLvital=40
KGOLintel=10
end
KGHP=KGOLvital*10
KGManna=KGOLintel*10
act 'play':KGOLpers=1&gt 'KGOLgame'

	 act 'Delete character':
	 KGOLpers=0
	 gt $curloc
	 end
}
minut+=1
gs'stat'
if KFOnLineReaga>0:
'Welcome to the game Vertep World. You can still play <<KFOnLineReaga>> days'
'You can always pay with a credit card, that would extend the duration of the account.'
'30 days 1000 rubles, on your credit card <<karta>> rubles'
     if KGOLpers>0:
     'You can get in the game your character or delete it'
     '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
         act 'play':gt 'KGOLgame'
         
         act 'Delete character':
         KGOLpers=0
         gt $curloc
         end
         
         
     else
     'You can create a character'
         act 'Create a character':
         cls
         $KGOLname=input("Enter your nickname")
         if $KGOLname<=0:msg'Not valid nickname'&gt $curloc
         'your nickname <<$KGOLname>>'
         'You must select the player race'
         act 'man':$KGOLrace='man'&KGOLrace=1&dynamic $KGOLklassvibor
         act 'elf':$KGOLrace='elf'&KGOLrace=2&dynamic $KGOLklassvibor
         act 'Zveroid':$KGOLrace='Zveroid'&KGOLrace=3&dynamic $KGOLklassvibor
         end
     end 
     
     if karta>=1000:
         act 'Payment akkuaunta':
         karta-=1000
         KFOnLineReaga+=30
         gt $curloc
         end
     
     end
     
     if karta>0:
         act 'Donat money into the game (1RUB=1coin)':
         cla
         KGOLdonat=input("How much money do you want zadonatit?")
			 if KGOLdonat<=0 or KGOLdonat<karta:
			 msg'Not admissible operation'
			 else
			 karta-=KGOLdonat
			 KGOLmoney+=KGOLdonat
			 msg'Transferred to your account <<KGOLdonat>> coin'
			 end
         gt $curloc
         end
     end

else
'Welcome to the online game Vertep World'
'To play this game you need to pay 1000 rub 30 days with a credit card.'
     if karta>=1000:
         act 'payment':
         karta-=1000
         KFOnLineReaga+=30
         gt $curloc
         end
     
     end

end

act 'Go_Out':gt'Komp','start'






















--- KGstart ---------------------------------

# KGOLgame
minut+=1
gs'stat'
if KGOLset=0:$KGOLset='On the head there is nothing'
if KGOLset2=0:$KGOLset2='On the body of simple clothes'
if KGOLset3=0:$KGOLset3='Simple shoes on his feet'
if KGOLset4=0:$KGOLset4='In the hands of no gloves'
if KGOLset5=0:$KGOLset5='no weapons'
$KGOLstat={
clr
pl'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
pl'<a href="exec:dynamic $KGOLstat2 ">Close Statistics</a>'
if KGOLneedExp>0:pl'Total experience <<KGOLexp>>, necessary to the next level <<KGOLneedExp>> experience'
if KGOLneedExp<=0:pl'<a href="exec:dynamic $KGOLrise "><font color=red>You need to raise the level of.</font></a>'
pl'power <<KGOLstren>>,speed and dodge <<KGOLspeed>>,endurance <<KGOLvital>>,intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, bonus damage from weapons <<KGOLwpower>>'
pl''
pl'<center>Exodus</center>'
pl'<<$KGOLset>>'
pl'<<$KGOLset2>>'
pl'<<$KGOLset3>>'
pl'<<$KGOLset4>>'
pl'<<$KGOLset5>>'
pl''
pl'<center>inventory</center>'
if KGOLpotionH>0:pl'health potions <<KGOLpotionH>> pcs. <a href="exec:KGOLpotionH-=1&KGHP+=100&gs''stat''&gt $curloc "><font color=red>drink.</font></a>'
if KGOLpotionM>0:pl'mana potions <<KGOLpotionM>> pcs. <a href="exec:KGOLpotionM-=1&KGManna+=100&gs''stat''&gt $curloc "><font color=red>drink.</font></a>'

pl'<center>PVE</center>'
pl'Wins <<KGOLWin>>, lesions <<KGOLLoss>>'
pl'<center>PVP</center>'
pl'Wins <<KGOLpvpWin>>, lesions <<KGOLpvpLoss>>'
}
$KGOLstat2={
gs'stat'
}
KGHPMAX=KGOLvital*10
KGMannaMax=KGOLintel*10
if KGHP>KGHPMAX:KGHP=KGHPMAX
if KGManna>KGMannaMax:KGManna=KGMannaMax
KGOLbrona-=KGOLbronaMod
KGOLbronaMod=0
KGOLstren-=KGOLstrenMod
KGOLstrenMod=0
KGOLspeed-=KGOLspeedMod
KGOLspeedMod=0
KGOLvital-=KGOLvitalMod
KGOLvitalMod=0
KGOLintel-=KGOLintelMod
KGOLintelMod=0
KGOLwpower-=KGOLwpowerMod
KGOLwpowerMod=0
KGOLcooldown=0

if KGHP<KGHPMAX and KGOLhirka>0:
kghneed=KGHPMAX-KGHP
     if KGOLhirka>=kghneed:
     KGOLhirka-=kghneed
     KGHP=KGHPMAX
     else
     KGHP=KGOLhirka
     KGOLhirka=0
     end
end
if KGHP<0:KGHP=0

gs'KGOLexpa'
'<a href="exec:GT ''KGstart''">Leave the game</a>'
'<a href="exec:dynamic $KGOLstat ">View Statistics</a>'
'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
'life <<KGHP>>, manna <<KGManna>>'
if KGHP<KGHPMAX:'You have left <<KGHP*100/KGHPMAX>>% life'
if KGManna<KGMannaMax:'You have left <<KGManna*100/KGMannaMax>>% manna from'
if KGOLhirka>0:'Khirqa can recover automatically <<KGOLhirka>> health units'
if KGOLPrizeM>0:'you have <<KGOLmoney>> coin'
if KGOLneedExp<=0:'<a href="exec:dynamic $KGOLrise "><font color=red>You need to raise the level of.</font></a>'
if KGOLpoint>0:'<a href="exec:dynamic $KGOLrise "><font color=red>You have not allocated skill points.</font></a>'
if KGOLspellpoint>=4:'<a href="exec:dynamic $KGOLrise2 "><font color=red>You can choose your skill.</font></a>'
'<<KGOLspellpoint>>'
''

'<center><B>village</B></center>'
'You are in the picturesque village where to spawn stand motionless characters. NPCs are the pillars and in the distance one can see the monsters.'

act 'Approach the NPC':
cls
minut+=1
     if KGOLmqw=12 and KGOLlvl>=5:
     KGOLmqw=13
     '(NPS) - <<$KGOLname>> you have to kill 10five royal beetles. reward 200 experience.'
     end
     
     if KGOLmqw=13 and KGOLqwvip>=10:
     KGOLqwvip=0
     KGOLmqw=14
     KGOLexp+=200
     '(NPS) - <<$KGOLname>> congratulations, Here is a reward 200 experience.'
     end
     
     if KGOLmqw=10 and KGOLlvl>=5:
     KGOLmqw=11
     '(NPS) - <<$KGOLname>> you have to kill 10five toads. reward 100 experience.'
     end
     
     if KGOLmqw=11 and KGOLqwvip>=10:
     KGOLqwvip=0
     KGOLmqw=12
     KGOLexp+=100
     '(NPS) - <<$KGOLname>> congratulations, Here is a reward 100 experience.'
     end
     
     if KGOLmqw=8:
     KGOLmqw=9
     '(NPS) - <<$KGOLname>> you have to kill 30be young cacti. Then I`ll give you a helmet.'
     end
     
     if KGOLmqw=9 and KGOLqwvip>=30:
     KGOLqwvip=0
     KGOLmqw=10
     KGOLset=1
     KGOLbrona+=2
     $KGOLset='Helmet rough skin'
     '(NPS) - <<$KGOLname>> congratulations, Here`s your helmet.'
     end
     
     if KGOLmqw=6:
     KGOLmqw=7
     '(NPS) - <<$KGOLname>> you have to kill 25be toothless wolves. Then I`ll give you mittens.'
     end
     
     if KGOLmqw=7 and KGOLqwvip>=25:
     KGOLqwvip=0
     KGOLmqw=8
     KGOLset4=1
     KGOLbrona+=2
     $KGOLset4='Gauntlets of rough skin'
     '(NPS) - <<$KGOLname>> congratulations, Here are your mittens.'
     end
     
     if KGOLmqw=4:
     KGOLmqw=5
     '(NPS) - <<$KGOLname>> you have to kill 20be rosyanok. Then I will give you boots.'
     end
     
     if KGOLmqw=5 and KGOLqwvip>=20:
     KGOLqwvip=0
     KGOLmqw=6
     KGOLset3=1
     KGOLbrona+=2
     $KGOLset3='Rind Leather Boots'
     '(NPS) - <<$KGOLname>> congratulations, Here are your boots.'
     end
     
     if KGOLmqw=2:
     KGOLmqw=3
     '(NPS) - <<$KGOLname>> you have to kill 10be iridescent beetles. Then I`ll give you the armor.'
     end
     
     if KGOLmqw=3 and KGOLqwvip>=10:
     KGOLqwvip=0
     KGOLmqw=4
     KGOLset2=1
     KGOLbrona+=10
     $KGOLset2='simple armor'
     '(NPS) - <<$KGOLname>> congratulations, here is your armor.'
     end
     
     if KGOLmqw=0:
     KGOLmqw=1
     '(NPS) - <<$KGOLname>> you have to kill 5be carnivorous flowers. Then I`ll give you a weapon.'
     end
     
     if KGOLmqw=1 and KGOLqwvip>=5:
     KGOLqwvip=0
     KGOLmqw=2
     KGOLset5=1
     KGOLwpower=10
     if KGOLklass=1 or KGOLklass=6:$KGOLset5='In the hands of a simple sword'
     if KGOLklass=2:$KGOLset5='In the hands of ordinary daggers'
     if KGOLklass=3 or KGOLklass=4:$KGOLset5='In the hands of a simple staff'
     if KGOLklass=5:$KGOLset5='In the hands of a simple bow'
     '(NPS) - <<$KGOLname>> congratulations, Here is your weapon.'
     end
act 'Get_Away':gt $curloc
end

act 'Go to the store':
cls
minut+=1
     if KGOLmoney>=300:
         act 'Buy health potion 300':
         KGOLmoney-=300
         KGOLpotionH+=1
         gt $curloc
         end
     end
     if KGOLmoney>=300:
         act 'Buy mana potion 300':
         KGOLmoney-=300
         KGOLpotionM+=1
         gt $curloc
         end
     end
     if KGOLmoney>=1500 and KGOLhirka<=0:
         act 'Buy Khirqa 1500':
         KGOLmoney-=1500
         KGOLhirka+=10000
         gt $curloc
         end
     end
act 'Get_Away':gt $curloc
end

if KGHP<KGHPMAX or KGManna<KGMannaMax:
	 act 'regenerate (1 h)':
	 cls
	 minut+=60
	 KGHP=KGHPMAX
	 KGManna=KGMannaMax
	 'It was very sad. You sat for an hour regenerating your character. But free.'
	 act 'Get_Away':gt $curloc
	 end
end

if KGHP>0:
	 act 'Farm near the village':
	 cls
	 minut+=1
	 KGOLdist=RAND(1,10)
	 'On a variety of monsters roam the field'
		 act 'predatory flower':
		 gs'KGOLenemy','0'
		 gt'KGOLfight'
		 end
		 
		 act 'Rainbow beetle':
		 gs'KGOLenemy','1'
		 gt'KGOLfight'
		 end
		 
		 act 'sundew':
		 gs'KGOLenemy','2'
		 gt'KGOLfight'
		 end
		 
		 act 'toothless dog':
		 gs'KGOLenemy','3'
		 gt'KGOLfight'
		 end
		 
		 act 'young cactus':
		 gs'KGOLenemy','4'
		 gt'KGOLfight'
		 end
	 end
end

if KGOLlvl>=5 and KGHP>0:
	 act 'Farm near Mill':
	 cls
	 minut+=1
	 KGOLdist=RAND(1,10)
	 'About a variety of monsters roam the mill'
		 act 'toad':
		 gs'KGOLenemy','5'
		 gt'KGOLfight'
		 end
		 
		 act 'Royal beetle':
		 gs'KGOLenemy','6'
		 gt'KGOLfight'
		 end
		 
		 act 'spotted mantis':
		 gs'KGOLenemy','7'
		 gt'KGOLfight'
		 end
		 
		 act 'plague Rat':
		 gs'KGOLenemy','8'
		 gt'KGOLfight'
		 end
		 
		 act 'prickly cactus':
		 gs'KGOLenemy','9'
		 gt'KGOLfight'
		 end
	 end
	 
	 act 'boss 5level':
	 gs'KGOLboss','1'
	 gt'KGOLfight'
	 end

end




























--- KGOLgame ---------------------------------

# KGOLenemy
if $ARGS[0]='0':
$KGname='predatory flower'
KGOLstrenV=10
KGOLspeedV=10
KGOLvitalV=10
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(1,3)
KGOLPrizeM=RAND(10,30)
KGOLennum=0
KGOLbronaV=0
KGOLneedDist=10
KGOLpowerV=KGOLintelV
end

if $ARGS[0]='1':
$KGname='Rainbow beetle'
KGOLstrenV=20
KGOLspeedV=10
KGOLvitalV=10
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(2,5)
KGOLPrizeM=RAND(15,35)
KGOLennum=1
KGOLbronaV=0
KGOLneedDist=4
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='2':
$KGname='sundew'
KGOLstrenV=20
KGOLspeedV=20
KGOLvitalV=10
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(3,7)
KGOLPrizeM=RAND(20,40)
KGOLennum=2
KGOLbronaV=0
KGOLneedDist=5
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='3':
$KGname='toothless dog'
KGOLstrenV=25
KGOLspeedV=20
KGOLvitalV=20
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(5,10)
KGOLPrizeM=RAND(30,50)
KGOLennum=3
KGOLbronaV=0
KGOLneedDist=5
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='4':
$KGname='young cactus'
KGOLstrenV=25
KGOLspeedV=25
KGOLvitalV=20
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(7,14)
KGOLPrizeM=RAND(35,60)
KGOLennum=4
KGOLbronaV=0
KGOLneedDist=6
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='5':
$KGname='toad'
KGOLstrenV=25
KGOLspeedV=30
KGOLvitalV=25
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(10,18)
KGOLPrizeM=RAND(40,65)
KGOLennum=5
KGOLbronaV=0
KGOLneedDist=6
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='6':
$KGname='Royal beetle'
KGOLstrenV=25
KGOLspeedV=30
KGOLvitalV=35
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(12,20)
KGOLPrizeM=RAND(45,65)
KGOLennum=6
KGOLbronaV=0
KGOLneedDist=4
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='7':
$KGname='spotted mantis'
KGOLstrenV=35
KGOLspeedV=30
KGOLvitalV=35
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(14,22)
KGOLPrizeM=RAND(50,70)
KGOLennum=7
KGOLbronaV=0
KGOLneedDist=4
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='8':
$KGname='plague Rat'
KGOLstrenV=40
KGOLspeedV=30
KGOLvitalV=40
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(16,24)
KGOLPrizeM=RAND(55,75)
KGOLennum=8
KGOLbronaV=0
KGOLneedDist=4
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='9':
$KGname='prickly cactus'
KGOLstrenV=40
KGOLspeedV=40
KGOLvitalV=40
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(18,20)
KGOLPrizeM=RAND(60,85)
KGOLennum=9
KGOLbronaV=0
KGOLneedDist=4
KGOLpowerV=KGOLstrenV
end

if $ARGS[0]='10':

end
--- KGOLenemy ---------------------------------

# KGOLboss
if $ARGS[0]='1':
$KGname='BOSS "blue rat"'
KGOLstrenV=30
KGOLspeedV=30
KGOLvitalV=100
KGOLintelV=10
KGHPV=KGOLvitalV*10
KGMannaV=KGOLintelV*10
KGOLPrizeExp=RAND(25,50)
KGOLPrizeM=RAND(150,350)
KGOLennumBoss=1
KGOLbronaV=0
KGOLneedDist=3
KGOLpowerV=KGOLstrenV
KGOLennum=-1
end

if $ARGS[0]='2':

end

if $ARGS[0]='3':

end

if $ARGS[0]='4':

end

if $ARGS[0]='5':

end
--- KGOLboss ---------------------------------

# KGOLfight
minut+=1
gs'stat'
if otkathirki>0:otkathirki-=1

if KGHP<KGHPMAX and KGOLhirka>0 and otkathirki<=0:
kghneed=KGHPMAX-KGHP
otkathirki=3
     if KGOLhirka>=kghneed:
     KGOLhirka-=kghneed
     KGHP=KGHPMAX
     else
     KGHP=KGOLhirka
     KGOLhirka=0
     end
end
if KGOLdist<0:KGOLdist=0
if KGOLtimer>0:
KGOLtimer-=1
     if KGOLtimer<=0:
     KGOLbrona-=KGOLbronaMod
	 KGOLbronaMod=0
	 KGOLstren-=KGOLstrenMod
	 KGOLstrenMod=0
	 KGOLspeed-=KGOLspeedMod
	 KGOLspeedMod=0
	 KGOLvital-=KGOLvitalMod
	 KGOLvitalMod=0
	 KGOLintel-=KGOLintelMod
	 KGOLintelMod=0
	 KGOLwpower-=KGOLwpowerMod
	 KGOLwpowerMod=0
     end
end
if unvis>0:'you are invisible'
if poison>0:poison-=1&KGHPV-=KGOLspell4*10&'The poison causes damage to the enemy <<KGOLspell4*10>>'
if firecircle>0:firecircle-=1&KGHPV-=KGOLspell9*50&'Circle of fire causes damage to the enemy <<KGOLspell9*50>>'
'life <<KGHP>>, manna <<KGManna>>'
'<<$KGname>> life <<KGHPV>>, manna <<KGMannaV>>'
if KGOLhirka>0:'Khirqa can recover automatically <<KGOLhirka>> health units'
if otkathirki>0:'Khirqa retrace through <<otkathirki>> moves.'
'distance <<KGOLdist>>'
if KGOLtimer>0:'Obkast will act more <<KGOLtimer>> Rounds'
if KGOLcooldown>0:'Rollback skills completed in <<KGOLcooldown>> Rounds'
!end of the fight
if KGHP<=0:
KGOLloss+=1
poison=0
firecircle=0
manna-=100
'You lost the fight'
act 'Leave for rep':gt'KGOLgame'
exit
end
if KGHPV<=0:
poison=0
firecircle=0
KGOLWin+=1
KGOLmoney+=KGOLPrizeM
KGOLexp+=KGOLPrizeExp
manna+=100
'<<$KGname>> down. You win the fight.'
'you got <<KGOLPrizeM>> coins and <<KGOLPrizeExp>> experience'
if KGOLennumBoss=1 and boss5lvl=0:boss5lvl=1&KGOLhirka+=5000&'With boss fell out small Khirqa'
if KGOLennum=0 and KGOLmqw=1:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=1 and KGOLmqw=3:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=2 and KGOLmqw=5:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=3 and KGOLmqw=7:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=4 and KGOLmqw=9:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=5 and KGOLmqw=11:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
if KGOLennum=6 and KGOLmqw=13:KGOLqwvip+=1&'Another mob zafarmlen for Quest'
act 'Out of combat':gt'KGOLgame'
exit
end
!initiative
KGOLiniV=RAND(KGOLspeedV/2,KGOLspeedV*2)
KGOLini=RAND(KGOLspeed/2,KGOLspeed*2)
if KGOLini=KGOLiniV:
hodrand=RAND(0,1)
if hodrand=0:KGOLini=1&KGOLiniV=0
if hodrand=1:KGOLini=0&KGOLiniV=1
end
if KGOLini>KGOLiniV:KGOLiniSUM+=1
if KGOLini<KGOLiniV:KGOLiniSUM-=1
if KGOLiniSUM>3:KGOLini=0&KGOLiniV=1&KGOLiniSUM=0
if KGOLiniSUM<-3:KGOLini=1&KGOLiniV=0&KGOLiniSUM=0
!moves
if KGOLini>KGOLiniV or unvis>0:
'Now your turn'
	 if KGOLklass=1:
	 !warrior
	     if KGOLdist<3:
	         act 'attack':
	         cla
	         KGOLpower=KGOLstren+KGOLwpower
	         dynamic $KGOLatk
	         act 'further':gt $curloc
	         end
	         
	         if KGOLspell>0 and KGManna>=KGOLspell*10:
	             act 'powerful blow (<<KGOLspell*10>> manna)':
				 cla
				 KGManna-=KGOLspell
				 KGOLpower=KGOLstren+KGOLwpower+(KGOLspell*100)
				 dynamic $KGOLatk
				 act 'further':gt $curloc
				 end
	         end
	         
	         if KGOLspell2>0 and KGManna>=KGOLspell2*10:
	             act 'multiple punch (<<KGOLspell2*10>> manna)':
				 cla
				 KGManna-=KGOLspell2
				 KGOLpower=KGOLstren+KGOLwpower
				 KGLOloop=KGOLspell2+1
				 dynamic $KGOLatkKGOLspell2
				 act 'further':gt $curloc
				 end
	         end
	         
	         if KGOLspell3>0 and KGManna>=KGOLspell3*10 and KGOLcooldown<=0:
	             act 'increase armor (<<KGOLspell3*10>> manna)':
				 cla
				 KGManna-=KGOLspell3
				 KGOLbronaMod+=KGOLspell3*5
				 KGOLtimer+=KGOLspell3+1
				 KGOLcooldown+=KGOLspell3+3
				 act 'further':gt $curloc
				 end
	         end
	     end
	 elseif KGOLklass=2:
	 !thief
	 	 if KGOLdist<5:
	         act 'attack':
	         cla
	         KGOLpower=KGOLstren+KGOLwpower
	         dynamic $KGOLatk
	         act 'further':gt $curloc
	         end
	         
	         if KGOLspell4>0 and KGManna>=KGOLspell4*10:
	             act 'sneaky punch (<<KGOLspell4*10>> manna)':
				 cla
				 KGManna-=KGOLspell4
				 KGOLpower=KGOLstren+KGOLwpower+(KGOLspell5*100)
				 dynamic $KGOLatk
				 act 'further':gt $curloc
				 end
	         end
	         
	         if KGOLspell5>0 and KGManna>=KGOLspell5*10:
	             act 'Poison Blade (<<KGOLspell5*10>> manna)':
				 cla
				 KGManna-=KGOLspell5
				 KGOLpower=KGOLstren+KGOLwpower
				 dynamic $KGOLatkPoison
				 act 'further':gt $curloc
				 end
	         end
	         
	         if KGOLspell6>0 and KGManna>=KGOLspell6*10 and KGOLcooldown<=0:
	             act 'invisibility (<<KGOLspell6*10>> manna)':
				 cla
				 KGManna-=KGOLspell6
				 unvis+=KGOLspell6+1
				 KGOLcooldown+=KGOLspell6+3
				 act 'further':gt $curloc
				 end
	         end
	     end
	 elseif KGOLklass=3:
	 !magician
		 act 'attack':
		 cla
		 KGOLpower=KGOLintel+KGOLwpower
		 dynamic $KGOLatk
		 act 'further':gt $curloc
		 end
		 
		 if KGOLspell7>0 and KGManna>=KGOLspell7*10:
			 act 'Faerboll (<<KGOLspell7*10>> manna)':
			 cla
			 KGManna-=KGOLspell7
			 KGOLpower=RAND(KGOLspell7*100,KGOLspell7*200)
			 dynamic $KGOLatkFB
			 act 'further':gt $curloc
			 end
		 end
		 
		 if KGOLspell8>0 and KGManna>=KGOLspell8*10:
			 act 'Dropping (<<KGOLspell5*10>> manna)':
			 cla
			 KGManna-=KGOLspell5
			 KGOLdist+=RAND(KGOLspell5*10,KGOLspell5*50)
			 'You flung the enemy and now the distance between you <<KGOLdist>> meters'
			 act 'further':gt $curloc
			 end
		 end
		 
		 if KGOLspell9>0 and KGManna>=KGOLspell9*10 and KGOLcooldown<=0:
			 act 'circle of fire (<<KGOLspell9*10>> manna)':
			 cla
			 KGManna-=KGOLspell9
			 firecircle+=KGOLspell9+1
			 KGOLcooldown+=KGOLspell9+3
			 'All around you is burning flames of hell'
			 act 'further':gt $curloc
			 end
		 end
	 elseif KGOLklass=4:
	 !priest
	 	 act 'attack':
		 cla
		 KGOLpower=KGOLintel+KGOLwpower
		 dynamic $KGOLatk
		 act 'further':gt $curloc
		 end
	 elseif KGOLklass=5:
	 !archer
	 	 act 'attack':
		 cla
		 KGOLpower=KGOLspeed+KGOLwpower
		 dynamic $KGOLatk
		 act 'further':gt $curloc
		 end
	 else
	 !barbarian
	 	 if KGOLdist<2:
	         act 'attack':
			 cla
			 KGOLpower=KGOLstren+KGOLwpower
			 dynamic $KGOLatk
			 act 'further':gt $curloc
			 end
	     end
	 end
     
	 if KGOLdist>0:
		 act 'Run to the enemy':
		 KGOLdist-=RAND(KGOLspeed/20,KGOLspeed/10)
		 gt $curloc
		 end
	 end

     act 'Run away from the enemy':
     KGOLdist+=RAND(KGOLspeed/20,KGOLspeed/10)
     gt $curloc
     end
     
     if KGOLpotionH>0:
         act 'Drink a health potion':
		 KGOLpotionH-=1
         KGHP+=100
		 gt $curloc
		 end
     end
     
     if KGOLpotionM>0:
         act 'Drink the potion of mana':
		 KGOLpotionM-=1
         KGManna+=100
		 gt $curloc
		 end
     end
else
'Now move the enemy'
     if KGOLdist<=KGOLneedDist:
     '<<$KGname>> attacks you'
     dynamic $KGOLatkV
     else
     KGOLdist-=RAND(KGOLspeedV/20,KGOLspeedV/10)
     '<<$KGname>> run to you'
     end
     
	 act 'further':gt $curloc
end
















--- KGOLfight ---------------------------------

# KGOLexpa
KGOLneedExpNextLvl=(KGOLlvl*10)*KGOLlvl
KGOLneedExp=KGOLneedExpNextLvl-KGOLexp
if KGOLneedExp<=0 and KGOLlvl>KGOLlvlr:KGOLlvlr=KGOLlvl&KGOLpoint+=10&KGOLspellpoint+=1&KGOLlvl+=1&KGOLexp=0

$KGOLatk={
KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV)
KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2)
if KGOLataka>=KGOLzasV:
     if KGOLataka>=KGOLzasV*2:
     KGHPnpow=RAND(KGOLpower/2,KGOLpower)
     KGHPV-=KGHPnpow
     '<font color=green>CRETE <<KGHPnpow>></font>'
     else
     KGHPnpow=RAND(KGOLpower/10,KGOLpower/4)
     KGHPntpow=KGHPnpow-KGOLbronaV
     if KGHPntpow<=0:KGHPntpow=1
     KGHPV-=KGHPnpow
     '<font color=blue>hit <<KGHPnpow>></font>'
     end
else
'<font color=red><<$KGname>> dodged your attack</font>'
end
}
$KGOLatkPoison={
KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV)
KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2)
if KGOLataka>=KGOLzasV:
poison+=KGOLspell4+1
     if KGOLataka>=KGOLzasV*2:
     KGHPnpow=RAND(KGOLpower/2,KGOLpower)
     KGHPV-=KGHPnpow
     '<font color=green>CRETE <<KGHPnpow>></font>'
     else
     KGHPnpow=RAND(KGOLpower/10,KGOLpower/4)
     KGHPntpow=KGHPnpow-KGOLbronaV
     if KGHPntpow<=0:KGHPntpow=1
     KGHPV-=KGHPnpow
     '<font color=blue>hit <<KGHPnpow>></font>'
     end
else
'<font color=red><<$KGname>> dodged your attack</font>'
end
}
$KGOLatkFB={
KGHPV-=KGOLpower
'<font color=green>Faerbol deals damage <<KGOLpower>> Power</font>'
}
$KGOLatkV={
KGOLzas=RAND(KGOLspeed/4,KGOLspeed)
KGOLatakaV=RAND(KGOLspeedV/2,KGOLspeedV*2)
if KGOLatakaV>=KGOLzas:
     if KGOLatakaV>=KGOLzas*2:
     KGHPnpow=RAND(KGOLpowerV/2,KGOLpowerV)
     KGHP-=KGHPnpow
     '<font color=red>CRETE <<KGHPnpow>></font>'
     else
     KGHPnpow=RAND(KGOLpowerV/10,KGOLpowerV/4)
     KGHPntpow=KGHPnpow-KGOLbrona
     if KGHPntpow<=0:KGHPntpow=1
     KGHP-=KGHPnpow
     '<font color=brown>hit <<KGHPnpow>></font>'
     end
else
'<font color=green>You dodged the attack</font>'
end
}

$KGOLrise={
cls
'<center><B>Screen improve</B></center>'
'power <<KGOLstren>>,speed and dodge <<KGOLspeed>>,endurance <<KGOLvital>>,intelligence <<KGOLintel>>'
'Improve the skills of the available points <<KGOLpoint>>'
if KGOLpoint>0:
     act 'power':
     KGOLstren+=1
     KGOLpoint-=1
     dynamic $KGOLrise
     end
     
     act 'speed/dodge':
     KGOLspeed+=1
     KGOLpoint-=1
     dynamic $KGOLrise
     end
     
     act 'endurance':
     KGOLvital+=1
     KGOLpoint-=1
     dynamic $KGOLrise
     end
     
     act 'intelligence':
     KGOLintel+=1
     KGOLpoint-=1
     dynamic $KGOLrise
     end
end

act 'Exit the screen improve':gt'KGOLgame'
}
$KGOLrise2={
cls
'<center><B>screen skills</B></center>'
'Increase skill points available <<KGOLspellpoint/4>>'
''
if KGOLspellpoint>=4:
if KGOLklass=1:
!warrior
'powerful blow, skill=<<KGOLspell>>. <a href="exec:KGOLspellpoint-=4&KGOLspell+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'multiple punch, skill=<<KGOLspell2>>. <a href="exec:KGOLspellpoint-=4&KGOLspell2+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'increase armor, skill=<<KGOLspell3>>. <a href="exec:KGOLspellpoint-=4&KGOLspell3+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
elseif KGOLklass=2:
!thief
'sneaky punch, skill=<<KGOLspell4>>. <a href="exec:KGOLspellpoint-=4&KGOLspell4+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'Poison Blade, skill=<<KGOLspell5>>. <a href="exec:KGOLspellpoint-=4&KGOLspell5+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'invisibility, skill=<<KGOLspell6>>. <a href="exec:KGOLspellpoint-=4&KGOLspell6+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
elseif KGOLklass=3:
!magician
'Faerbol, skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint-=4&KGOLspell7+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'Dropping, skill=<<KGOLspell8>>. <a href="exec:KGOLspellpoint-=4&KGOLspell8+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'circle of fire, skill=<<KGOLspell9>>. <a href="exec:KGOLspellpoint-=4&KGOLspell9+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
elseif KGOLklass=4:
!priest
'blow magic, skill=<<KGOLspell10>>. <a href="exec:KGOLspellpoint-=4&KGOLspell10+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'treatment, skill=<<KGOLspell11>>. <a href="exec:KGOLspellpoint-=4&KGOLspell11+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'Obkast, skill=<<KGOLspell12>>. <a href="exec:KGOLspellpoint-=4&KGOLspell12+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
elseif KGOLklass=5:
!archer
'powerful shot, skill=<<KGOLspell13>>. <a href="exec:KGOLspellpoint-=4&KGOLspell13+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'triple shot, skill=<<KGOLspell14>>. <a href="exec:KGOLspellpoint-=4&KGOLspell14+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'regen mana, skill=<<KGOLspell15>>. <a href="exec:KGOLspellpoint-=4&KGOLspell15+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
else
!barbarian
'thunderous, skill=<<KGOLspell16>>. <a href="exec:KGOLspellpoint-=4&KGOLspell16+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'camp, skill=<<KGOLspell17>>. <a href="exec:KGOLspellpoint-=4&KGOLspell17+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
'recovery, skill=<<KGOLspell18>>. <a href="exec:KGOLspellpoint-=4&KGOLspell18+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
end
end
act 'Exit the screen skills':gt'KGOLgame'
}


$KGOLatkKGOLspell2={
:multiloop
KGLOloop-=1
dynamic $KGOLatk
if KGLOloop>0:jump'multiloop'
}






































--- KGOLexpa ---------------------------------

# KGDstart
'<center><B>Disopl</B></center>'
''



if KGDsave>0:act 'Load a saved game':gt'KGDgame'

act 'Play new game':
KGDsave=1
KGDmoney=1000
KGDHP=100
KGDlvl=1
KGDexp=0
KGDdam=10
KGDkarta=5
KGDsput2=0
KGDsput3=0
KGDsput4=0
KGDsput5=0
KGDsput6=0
KGDday=1
KGDfarm=0
KGDlvlr=0
KGDlvlr2=0
KGDlvlr3=0
KGDlvlr4=0
KGDlvlr5=0
KGDlvlr6=0
KGDpartyCreate=0
gt'KGDgame'
end


act 'Go_Out':gt'Komp','start'
--- KGDstart ---------------------------------

# KGDgame
minut+=1
gs'stat'
gs'KGDexp'
'<center><B>day <<KGDday>></B></center>'
'<center><B>your city</B></center>'
'<center>Structures</center>'
'tower hero, which is stored <<KGDmoney>> resources'
'farms <<KGDfarm>> pcs'
''
'<center><B>List of party hero (6five people maximum)</B></center>'
'hero. level <<KGDlvl>>, life <<KGDHP>>, damage <<KGDdam>>'
if KGDsput2>0:'<<$KGDname2>>. level <<KGDlvl2>>, life <<KGDHP2>>, damage <<KGDdam2>>'
if KGDsput3>0:'<<$KGDname3>>. level <<KGDlvl3>>, life <<KGDHP3>>, damage <<KGDdam3>>'
if KGDsput4>0:'<<$KGDname4>>. level <<KGDlvl4>>, life <<KGDHP4>>, damage <<KGDdam4>>'
if KGDsput5>0:'<<$KGDname5>>. level <<KGDlvl5>>, life <<KGDHP5>>, damage <<KGDdam5>>'
if KGDsput6>0:'<<$KGDname6>>. level <<KGDlvl6>>, life <<KGDHP6>>, damage <<KGDdam6>>'
''
'<center><B>territory</B></center>'
'Do you own <<KGDkarta>>% territory'


act 'the next day':
cls
KGDbrod=0
KGDday+=1
KGDmoney+=KGDkarta*5+KGDfarm*10
gt $curloc
end

if KGDmoney>=150 and KGDfarm>KGDkarta:
	 act 'build a farm (150 resources)':
	 cls
	 KGDmoney-=150
	 KGDfarm+=1
	 gt $curloc
	 end
end

	 act 'arrange the soldiers':
	 cls
     KGDpartyCreate=1
     $kgdplace='1place empty'
     $kgdplace2='2place empty'
     $kgdplace3='3place empty'
     $kgdplace4='4place empty'
     $kgdplace5='5place empty'
     $kgdplace6='6place empty'
     kgdplace=0
     kgdplace2=0
     kgdplace3=0
     kgdplace4=0
     kgdplace5=0
     kgdplace6=0
	 gt 'KGDparty'
	 end

if KGDbrod=0 and KGDpartyCreate>0:
	 act 'win territory':
	 cls
     KGDbrod=1
     
	 gt 'KGDbefore'
	 end
end



if KGDsput6=0 and KGDmoney>=250:
	 act 'hire satellite (250 resources)':
	 cls
     KGDmoney-=250
     KGDpartyCreate=0
		 act 'warrior':
		     if KGDsput2=0:
		     $KGDname2='warrior'
		     KGDlvl2=1
		     KGDHP2=100
		     KGDdam2=10
		     KGDsput2=1
		     KGDexp2=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput3=0:
		     $KGDname3='warrior'
		     KGDlvl3=1
		     KGDHP3=100
		     KGDdam3=10
		     KGDsput3=1
		     KGDexp3=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput4=0:
		     $KGDname4='warrior'
		     KGDlvl4=1
		     KGDHP4=100
		     KGDdam4=10
		     KGDsput4=1
		     KGDexp4=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput5=0:
		     $KGDname5='warrior'
		     KGDlvl5=1
		     KGDHP5=100
		     KGDdam5=10
		     KGDsput5=1
		     KGDexp5=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput6=0:
		     $KGDname6='warrior'
		     KGDlvl6=1
		     KGDHP6=100
		     KGDdam6=10
		     KGDsput6=1
		     KGDexp6=0
		     gt $curloc
		     exit
		     end
		 
		 end
		 
		 act 'magician':
		     if KGDsput2=0:
		     $KGDname2='magician'
		     KGDlvl2=1
		     KGDHP2=60
		     KGDdam2=20
		     KGDsput2=1
		     KGDexp2=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput3=0:
		     $KGDname3='magician'
		     KGDlvl3=1
		     KGDHP3=60
		     KGDdam3=20
		     KGDsput3=1
		     KGDexp3=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput4=0:
		     $KGDname4='magician'
		     KGDlvl4=1
		     KGDHP4=60
		     KGDdam4=20
		     KGDsput4=1
		     KGDexp4=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput5=0:
		     $KGDname5='magician'
		     KGDlvl5=1
		     KGDHP5=60
		     KGDdam5=20
		     KGDsput5=1
		     KGDexp5=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput6=0:
		     $KGDname6='magician'
		     KGDlvl6=1
		     KGDHP6=60
		     KGDdam6=20
		     KGDsput6=1
		     KGDexp6=0
		     gt $curloc
		     exit
		     end
		 
		 end
		 
		 act 'archer':
		     if KGDsput2=0:
		     $KGDname2='archer'
		     KGDlvl2=1
		     KGDHP2=80
		     KGDdam2=15
		     KGDsput2=1
		     KGDexp2=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput3=0:
		     $KGDname3='archer'
		     KGDlvl3=1
		     KGDHP3=80
		     KGDdam3=15
		     KGDsput3=1
		     KGDexp3=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput4=0:
		     $KGDname4='archer'
		     KGDlvl4=1
		     KGDHP4=80
		     KGDdam4=15
		     KGDsput4=1
		     KGDexp4=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput5=0:
		     $KGDname5='archer'
		     KGDlvl5=1
		     KGDHP5=80
		     KGDdam5=15
		     KGDsput5=1
		     KGDexp5=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput6=0:
		     $KGDname6='archer'
		     KGDlvl6=1
		     KGDHP6=80
		     KGDdam6=15
		     KGDsput6=1
		     KGDexp6=0
		     gt $curloc
		     exit
		     end
		 
		 end
		 
		 act 'priest':
		     if KGDsput2=0:
		     $KGDname2='priest'
		     KGDlvl2=1
		     KGDHP2=40
		     KGDdam2=20
		     KGDsput2=1
		     KGDexp2=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput3=0:
		     $KGDname3='priest'
		     KGDlvl3=1
		     KGDHP3=40
		     KGDdam3=20
		     KGDsput3=1
		     KGDexp3=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput4=0:
		     $KGDname4='priest'
		     KGDlvl4=1
		     KGDHP4=40
		     KGDdam4=20
		     KGDsput4=1
		     KGDexp4=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput5=0:
		     $KGDname5='priest'
		     KGDlvl5=1
		     KGDHP5=40
		     KGDdam5=20
		     KGDsput5=1
		     KGDexp5=0
		     gt $curloc
		     exit
		     end
		     
		     if KGDsput6=0:
		     $KGDname6='priest'
		     KGDlvl6=1
		     KGDHP6=40
		     KGDdam6=20
		     KGDsput6=1
		     KGDexp6=0
		     gt $curloc
		     exit
		     end
		 
		 end
	 end
end





act 'Leave the game':gt'Komp','start'






























--- KGDgame ---------------------------------

# KGDexp
KGDneedExpNextLvl=(KGDlvl*10)*KGDlvl
KGDneedExp=KGDneedExpNextLvl-KGDexp
if KGDneedExp<=0 and KGDlvl>KGDlvlr:KGDlvlr=KGDlvl&KGDlvl+=1&KGDexp=0&KGDHP+=10&KGDdam+=5

KGDneedExpNextLvl2=(KGDlvl2*10)*KGDlvl2
KGDneedExp2=KGDneedExpNextLvl2-KGDexp2
if KGDneedExp2<=0 and KGDlvl2>KGDlvlr2:KGDlvlr2=KGDlvl2&KGDlvl2+=1&KGDexp2=0&KGDHP2+=10&KGDdam2+=5

KGDneedExpNextLvl3=(KGDlvl3*10)*KGDlvl3
KGDneedExp3=KGDneedExpNextLvl3-KGDexp3
if KGDneedExp3<=0 and KGDlvl3>KGDlvlr3:KGDlvlr3=KGDlvl3&KGDlvl3+=1&KGDexp3=0&KGDHP3+=10&KGDdam3+=5

KGDneedExpNextLvl4=(KGDlvl4*10)*KGDlvl4
KGDneedExp4=KGDneedExpNextLvl4-KGDexp4
if KGDneedExp4<=0 and KGDlvl4>KGDlvlr4:KGDlvlr4=KGDlvl4&KGDlvl4+=1&KGDexp4=0&KGDHP4+=10&KGDdam4+=5

KGDneedExpNextLvl5=(KGDlvl5*10)*KGDlvl5
KGDneedExp5=KGDneedExpNextLvl5-KGDexp5
if KGDneedExp5<=0 and KGDlvl5>KGDlvlr5:KGDlvlr5=KGDlvl5&KGDlvl5+=1&KGDexp5=0&KGDHP5+=10&KGDdam5+=5

KGDneedExpNextLvl6=(KGDlvl6*10)*KGDlvl6
KGDneedExp6=KGDneedExpNextLvl6-KGDexp6
if KGDneedExp6<=0 and KGDlvl6>KGDlvlr6:KGDlvlr6=KGDlvl6&KGDlvl6+=1&KGDexp6=0&KGDHP6+=10&KGDdam6+=5
--- KGDexp ---------------------------------

# KGDbefore

KGDhealth=KGDHP
KGDhealth2=KGDHP2
KGDhealth3=KGDHP3
KGDhealth4=KGDHP4
KGDhealth5=KGDHP5
KGDhealth6=KGDHP6

gt'KGDfight'
--- KGDbefore ---------------------------------

# KGDfight
'Your party'
'first Line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'The second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'
''
'The party of the enemy'
''
'first Line. <<$kgdplacev>> <<$kgdplacev2>> <<$kgdplacev3>>'
'The second line. <<$kgdplacev4>> <<$kgdplacev5>> <<$kgdplacev6>>'

act 'Get_Away':gt'KGDgame'


!here I am and crap, niasilil group fight
--- KGDfight ---------------------------------

# KGDparty
'The party 2 lines, lobby, protects a back. Each maximum 3 fighter.'
''
if KGDrazm=0:
'hero. level <<KGDlvl>>, life <<KGDHP>>, damage <<KGDdam>>. <a href="exec:KGDrazm=1&KGDsubsp=1&dynamic $kgddin ">locate</a>'
else
'hero. level <<KGDlvl>>, life <<KGDHP>>, damage <<KGDdam>>'
end
if KGDsput2>0:
     if KGDrazm2=0:
     '<<$KGDname2>>. level <<KGDlvl2>>, life <<KGDHP2>>, damage <<KGDdam2>>. <a href="exec:KGDrazm2=1&KGDsubsp=2&dynamic $kgddin ">locate</a>'
     else
     '<<$KGDname2>>. level <<KGDlvl2>>, life <<KGDHP2>>, damage <<KGDdam2>>'
     end
end
if KGDsput3>0:
     if KGDrazm3=0:
     '<<$KGDname3>>. level <<KGDlvl3>>, life <<KGDHP3>>, damage <<KGDdam3>>. <a href="exec:KGDrazm3=1&KGDsubsp=3&dynamic $kgddin ">locate</a>'
     else
     '<<$KGDname3>>. level <<KGDlvl3>>, life <<KGDHP3>>, damage <<KGDdam3>>'
     end
end
if KGDsput4>0:
     if KGDrazm4=0:
     '<<$KGDname4>>. level <<KGDlvl4>>, life <<KGDHP4>>, damage <<KGDdam4>>. <a href="exec:KGDrazm4=1&KGDsubsp=4&dynamic $kgddin ">locate</a>'
     else
     '<<$KGDname4>>. level <<KGDlvl4>>, life <<KGDHP4>>, damage <<KGDdam4>>'
     end
end
if KGDsput5>0:
     if KGDrazm5=0:
     '<<$KGDname5>>. level <<KGDlvl5>>, life <<KGDHP5>>, damage <<KGDdam5>>. <a href="exec:KGDrazm5=1&KGDsubsp=5&dynamic $kgddin ">locate</a>'
     else
     '<<$KGDname5>>. level <<KGDlvl5>>, life <<KGDHP5>>, damage <<KGDdam5>>'
     end
end
if KGDsput6>0:
     if KGDrazm6=0:
     '<<$KGDname6>>. level <<KGDlvl6>>, life <<KGDHP6>>, damage <<KGDdam6>>. <a href="exec:KGDrazm6=1&KGDsubsp=6&dynamic $kgddin ">locate</a>'
     else
     '<<$KGDname6>>. level <<KGDlvl6>>, life <<KGDHP6>>, damage <<KGDdam6>>'
     end
end

'first Line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'The second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'

$kgddin={
cls
'first Line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'The second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'
if kgdplace=0:
     act '1place':
     kgdplace=1
         if KGDsubsp=1:$kgdplace='hero'&KGDsput=1
         if KGDsubsp=2:$kgdplace=$KGDname2&KGDsput2=1
         if KGDsubsp=3:$kgdplace=$KGDname3&KGDsput3=1
         if KGDsubsp=4:$kgdplace=$KGDname4&KGDsput4=1
         if KGDsubsp=5:$kgdplace=$KGDname5&KGDsput5=1
         if KGDsubsp=6:$kgdplace=$KGDname6&KGDsput6=1
     gt $curloc
     end
end
if kgdplace2=0:
     act '2place':
     kgdplace2=1
         if KGDsubsp=1:$kgdplace2='hero'&KGDsput=2
         if KGDsubsp=2:$kgdplace2=$KGDname2&KGDsput2=2
         if KGDsubsp=3:$kgdplace2=$KGDname3&KGDsput3=2
         if KGDsubsp=4:$kgdplace2=$KGDname4&KGDsput4=2
         if KGDsubsp=5:$kgdplace2=$KGDname5&KGDsput5=2
         if KGDsubsp=6:$kgdplace2=$KGDname6&KGDsput6=2
     gt $curloc
     end
end
if kgdplace3=0:
     act '3place':
     kgdplace3=1
         if KGDsubsp=1:$kgdplace3='hero'&KGDsput=3
         if KGDsubsp=2:$kgdplace3=$KGDname2&KGDsput2=3
         if KGDsubsp=3:$kgdplace3=$KGDname3&KGDsput3=3
         if KGDsubsp=4:$kgdplace3=$KGDname4&KGDsput4=3
         if KGDsubsp=5:$kgdplace3=$KGDname5&KGDsput5=3
         if KGDsubsp=6:$kgdplace3=$KGDname6&KGDsput6=3
     gt $curloc
     end
end
if kgdplace4=0:
     act '4place':
     kgdplace4=1
         if KGDsubsp=1:$kgdplace4='hero'&KGDsput=4
         if KGDsubsp=2:$kgdplace4=$KGDname2&KGDsput2=4
         if KGDsubsp=3:$kgdplace4=$KGDname3&KGDsput3=4
         if KGDsubsp=4:$kgdplace4=$KGDname4&KGDsput4=4
         if KGDsubsp=5:$kgdplace4=$KGDname5&KGDsput5=4
         if KGDsubsp=6:$kgdplace4=$KGDname6&KGDsput6=4
     gt $curloc
     end
end
if kgdplace5=0:
     act '5place':
     kgdplace5=1
         if KGDsubsp=1:$kgdplace5='hero'&KGDsput=5
         if KGDsubsp=2:$kgdplace5=$KGDname2&KGDsput2=5
         if KGDsubsp=3:$kgdplace5=$KGDname3&KGDsput3=5
         if KGDsubsp=4:$kgdplace5=$KGDname4&KGDsput4=5
         if KGDsubsp=5:$kgdplace5=$KGDname5&KGDsput5=5
         if KGDsubsp=6:$kgdplace5=$KGDname6&KGDsput6=5
     gt $curloc
     end
end
if kgdplace6=0:
     act '6place':
     kgdplace6=1
         if KGDsubsp=1:$kgdplace6='hero'&KGDsput=6
         if KGDsubsp=2:$kgdplace6=$KGDname2&KGDsput2=6
         if KGDsubsp=3:$kgdplace6=$KGDname3&KGDsput3=6
         if KGDsubsp=4:$kgdplace6=$KGDname4&KGDsput4=6
         if KGDsubsp=5:$kgdplace6=$KGDname5&KGDsput5=6
         if KGDsubsp=6:$kgdplace6=$KGDname6&KGDsput6=6
     gt $curloc
     end
end
}

act 'Get_Away':gt'KGDgame'




--- KGDparty ---------------------------------

# KGZstart
minut+=1
nosave=1
gs'stat'
KGZrec=KGZday*24+KGZhour-32
if KGZrecord<KGZrec:KGZrecord=KGZrec
'<center><B>sunset dead</B></center>'
'<center><B>record <<KGZrecord>> hours</B></center>'
if KGZdost=1:'achievement: Found Fort Bragg'
'This is a game of survival, task will hold as much as possible.'



if KGZHP>0:act 'Load a saved game':gt'KGZgame'

act 'Play new game':
cls
KGZHP=100
KGZplace=0
KGZday=1
KGZhour=8
KGZsup=3
KGZmedkit=1
KGZcopcar=0
KGZgun=0
bullet=0
KGZgun2=0
bullet2=0
KGZgun3=0
bullet3=0
KGZgenerator=0
KGZbolgarka=0
KGZcopdoor=0
KGZratia=0
KGZfortQW=0
KGZfortOru=0
KGZgranade=0
KGZdost=0
KGZgruzBenz=0
KGZgruzBenzMark=0
KGZgruzovik=0
KGZlok=0
KGZlok2=0
KGZweapon=0
'ENTRY
DeGross entertainment
in partnership with
PAPA_GANS inc.
are
sunset dead.
As harsh and merciless this world. Not that past life was better or worse. All its advantages and disadvantages. Do_You, right, wondering, what kind of a zombie apocalypse there are pros? I`ll tell you ... Freedom. Freedom of action and freedom of choice, everyone is free to do what, What really wants. for me, the beginning of the end of the world, was release. And even now, i understand, here I was only thanks to his choice, their freedom.
In a past life I was an ordinary man: go to work, met a girl, pay loans and was going to fly on vacation for a-a resort. At day, when everything changed, I woke up surprisingly early, the sun`s rays penetrate through the curtains and joyously heralded a new day, and with it the complete collapse of the old society.
My girl was not there, Then I thought, she left for work early. How wrong I was. To my surprise, the apartment was no light, and I put the coffee brewed in the old.  Usually I did not have time, to follow him, but that day I decided not to rush to work, and just enjoy the morning. Fire a couple of eggs, noted, that we ought to go to the grocery store and began to absorb pleased breakfast and read the long deferred Detective.
My peace interrupted by a-noise at the front door. I heard heart-rending cries, which resulted in a few seconds. Not understanding, what`s happening, I grabbed the phone and quickly dialed 911. In the tube was silence, frightening and ruthless, no beeps, no sound at all, just my own echo was given in the endless corridors of radio waves.'
act 'play':gt'KGZgame'
end


act 'Go_Out':nosave=0&gt'Komp','start'
--- KGZstart ---------------------------------

# KGZgame
minut+=1
gs'stat'
gs'KGZdyn'

if KGZHP<=0:
cla
*clr
'<center><B>GAME OVER</B></center>'
act 'Leave the game':gt'KGZstart'
exit
end

if KGZhour>=6 and KGZhour<=21:
KGZsvet=1
else
KGZsvet=0
end

'<a href="exec:GT ''KGZstart''">Leave the game</a>'
'health <<KGZHP>>. day <<KGZday>>, h <<KGZhour>>.'
if KGZsup<=0:'You do not have provisions, you starve!'
'cold arms: <<$KGZweapon>>'
if KGZgun>0:'<<$KGZgun>>'
if KGZgun2>0:'<<$KGZgun2>>'
if KGZgun3>0:'<<$KGZgun3>>'
if KGZgenerator>0:
if KGZbenzin=0:$KGZbenzin='But the generator does not work, since you do not have gasoline.'
if KGZbenzin=1:$KGZbenzin='You have filled a full tank of petrol.'
'Do you have a portable generator running on gasoline. <<$KGZbenzin>>' 
end
if KGZbolgarka>0:'Do you have a Bulgarian powered by electricity.'
if KGZratia=1:'Do you have a portable radio.'
''
if KGZplace=0:
'<center><B>apartment</B></center>'
'Your apartment safe place. The apartment is kept provisions, which will be enough for <<KGZsup>> days'
     if KGZmedkit>0:
     'kits <<KGZmedkit>> pcs'
         if KGZHP<100:
             act 'treated':
             cls
             KGZhour+=1
             KGZHP=100
             KGZmedkit-=1
             minut+=1
             gs'stat'
             'You cured with the help of health kits.'
             act 'further':gt $curloc
             end
         end
     end
     
     act 'laze':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
	 act 'further':gt $curloc
     end
     
     
     act 'Leave the apartment':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=1
	 KGZbatl=0
	 'You cautiously left the apartment trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
end

if KGZplace=1:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>street</B></center>'
'On the street broken machine, lie the corpses.'
     if KGZbatl=0:
     'Roam the streets <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(5,30)
                 if KGZsvet=2:KGZdist=RAND(3,10)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod
     end

end

if KGZplace=2:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>shop</B></center>'
'The store stale air from spoiled food and dead.'
     if KGZbatl=0:
     'Wander around the store <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(3,10)
                 if KGZsvet=2:KGZdist=RAND(2,8)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod2
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod2
     end

end

if KGZplace=3:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>hospital</B></center>'
'Hospital floor is littered with papers and dead bodies of patients and physicians.'
     if KGZbatl=0:
     'Wander around the hospital <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(3,10)
                 if KGZsvet=2:KGZdist=RAND(2,8)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod3
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod3
     end

end

if KGZplace=4:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>boulevard</B></center>'
'On the boulevard cluster of abandoned and broken machines, corpses everywhere.'
     if KGZbatl=0:
     'Wander along the boulevard <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(5,30)
                 if KGZsvet=2:KGZdist=RAND(3,10)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod4
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod4
     end

end

if KGZplace=5:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>hunting store</B></center>'
'In hunting store all counters are turned, scattered on the floor and some things which are seen decomposing bodies.'
     if KGZbatl=0:
     'Wander around the room <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,6)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod5
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod5
     end

end

if KGZplace=6:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>police station</B></center>'
'At the police station the police corpses scattered on the floor, the tables are turned and the terms of roll paper.'
     if KGZbatl=0:
     'Wander around the room <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod6
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod6
     end

end

if KGZplace=7:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>hardware store</B></center>'
'The store everything upside down and smells mertvyachinoy.'
     if KGZbatl=0:
     'Wander around the room <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod7
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod7
     end

end

if KGZplace=8:
KGZdead=RAND(KGZday*2,KGZday*4)
'<center><B>highway</B></center>'
'On the highway, where there are some broken machines and the dead bodies.'
     if KGZbatl=0:
     'Wandering on the highway <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(5,30)
                 if KGZsvet=2:KGZdist=RAND(3,10)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod8
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod8
     end

end

if KGZplace=9:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>filling</B></center>'
'At the gas station is a pair of abandoned vehicles. No electricity and columns are only manually.'
     if KGZbatl=0:
     'Wander around the room <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod9
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod9
     end

end

if KGZplace=10:
KGZdead=RAND(KGZday*5,KGZday*10)
     if KGZplaceA=20:KGZplace=100&gt $curloc
     if KGZplaceA=10:KGZplace=11&gt $curloc
     if KGZplaceA=0:KGZplace=8&gt $curloc
'<center><B>Highway in Fort Bragg</B></center>'
'<center><B><<KGZplaceA>>th kilometer</B></center>'
'On the highway are broken machines are corpses.'
     if KGZbatl=0:
     'Wandering on the highway <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
             act 'srazhatsya':
                 if KGZsvet=1:KGZdist=RAND(5,30)
                 if KGZsvet=2:KGZdist=RAND(3,10)
             gt'KGZfight'
             end
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod10
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod10
     end

end

if KGZplace=11:
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Fort Bragg</B></center>'
'Fort Bragg is a small building surrounded by a fence.'
     if KGZbatl=0:
     'Roam around the fort <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(3,10)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod11
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod11
     end

end

if KGZplace=12:
if KGZdost=0:KGZdost=1
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Roof Fort Bragg</B></center>'
'On the roof is full of lying motionless rotting bodies, a lot of spent cartridges.'
'Provisions enough for <<KGZsup>> days'
if KGZfortQW>0:'<a href="exec:dynamic $KGZvincent">Tired young man in the form of Ranger</a>, sits leaning on a sniper rifle.'
     if KGZmedkit>0:
     'kits <<KGZmedkit>> pcs'
         if KGZHP<100:
             act 'treated':
             cls
             KGZhour+=1
             KGZHP=100
             KGZmedkit-=1
             minut+=1
             gs'stat'
             'You cured with the help of health kits.'
             act 'further':gt $curloc
             end
         end
     end
     
     act 'rest':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 'You settled for convenient roof, not taking his eyes off the hatch which can climb dead.'
	 act 'further':gt $curloc
     end
     
     
     act 'Go to the fort':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=11
	 KGZbatl=0
	 'You gently down the hatch, trying not to run into dead.'
	 act 'further':gt $curloc
     end

end

if KGZplace=13:
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Fort Bragg</B></center>'
'<center><B>The food warehouse</B></center>'
'In stock dark and heard noises.'
     if KGZbatl=0:
     'The warehouse roam <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod13
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod13
     end

end

if KGZplace=14:
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Fort Bragg</B></center>'
'<center><B>infirmary</B></center>'
'In the hospital is dark and heard noises.'
     if KGZbatl=0:
     'According to the infirmary roam <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod14
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod14
     end

end

if KGZplace=15:
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Fort Bragg</B></center>'
'<center><B>Armory</B></center>'
'In the armory dark and heard noises.'
     if KGZbatl=0:
     'On weapons roam <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod15
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod15
     end

end

if KGZplace=16:
KGZdead=RAND(KGZday*10,KGZday*20)
'<center><B>Fort Bragg</B></center>'
'<center><B>garage</B></center>'
'The garage is dark and heard noises.'
     if KGZbatl=0:
     'Roam the garage <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod16
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod16
     end

end


if KGZplace=100:
KGZdead=RAND(KGZday*20,KGZday*30)
'<center><B>city вЂ‹вЂ‹Koldkrik</B></center>'
'The city was destroyed and could be seen fires.'
     if KGZbatl=0:
     'Roam the streets <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod100
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod100
     end
end

if KGZplace=101:
'<center><B>house</B></center>'
'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
     if KGZmedkit>0:
     'kits <<KGZmedkit>> pcs'
         if KGZHP<100:
             act 'treated':
             cls
             KGZhour+=1
             KGZHP=100
             KGZmedkit-=1
             minut+=1
             gs'stat'
             'You cured with the help of health kits.'
             act 'further':gt $curloc
             end
         end
     end
     
     act 'laze':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
	 act 'further':gt $curloc
     end
     
     
     act 'Out of the house':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=100
	 KGZbatl=0
	 'You cautiously left the apartment trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
end

if KGZplace=102:
KGZdead=RAND(KGZday*5,KGZday*10)
'<center><B>supermarket</B></center>'
'At the supermarket.'
     if KGZbatl=0:
     'Roam the halls of the Trade <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod102
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod102
     end
end

if KGZplace=200:
KGZdead=RAND(KGZday,KGZday*2)
'<center><B>forest</B></center>'
'In the dark woods and heard noises.'
     if KGZbatl=0:
     'Wander through the woods <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod200
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod200
     end
end

if KGZplace=201:
KGZdead=RAND(KGZday,KGZday*3)
'<center><B>farm</B></center>'
'Large fenced farm fence.'
     if KGZbatl=0:
     'Wander around the neighborhood <<KGZdead>> dead'
     KGZagr=RAND(0,10)
         if KGZagr<=8:
         'sensing you, dead immediately rush to the attack.'
         act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
         else
         'for luck, Dead you have not noticed.'
         dynamic $KGZvihod201
         end 
     else
     'The Walking Dead is not visible.'
     dynamic $KGZvihod201
     end
end

if KGZplace=202:
'<center><B>house</B></center>'
'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
     if KGZmedkit>0:
     'kits <<KGZmedkit>> pcs'
         if KGZHP<100:
             act 'treated':
             cls
             KGZhour+=1
             KGZHP=100
             KGZmedkit-=1
             minut+=1
             gs'stat'
             'You cured with the help of health kits.'
             act 'further':gt $curloc
             end
         end
     end
     
     act 'laze':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
	 act 'further':gt $curloc
     end
     
     
     act 'Out of the house':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=201
	 KGZbatl=0
	 'You cautiously left the apartment trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
end





--- KGZgame ---------------------------------

# KGZdyn

if KGZweapon=0:$KGZweapon='fists'&$KGZweapona='fist'
if KGZweapon=1:$KGZweapon='baton'&$KGZweapona='shillelagh'
if KGZweapon=2:$KGZweapon='ax'&$KGZweapona='ax'
if KGZgun>0:$KGZgun='gun, ammunition <<bullet>>Pieces'
if KGZgun2>0:$KGZgun2='shotgun, ammunition <<bullet2>>Pieces'
if KGZgun3>0:$KGZgun3='automatic, ammunition <<bullet3>>Pieces'

if KGZhour>=24:
KGZhour-=24
KGZday+=1
     if KGZsup=0:
     KGZHP-=10
     else
     KGZsup-=1
     end
     
end



$KGZvihod={
if KGZweapon=0:KGZweapon=1&'You found a good cudgel lying on the pavement and took her'
     act 'Go to the apartment':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=0
	 KGZbatl=0
	 'You went to the apartment carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the store':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=2
	 KGZbatl=0
	 'You carefully went to the store with broken shop windows trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the hospital':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=3
	 KGZbatl=0
	 'You carefully went to the hospital, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the boulevard':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=4
	 KGZbatl=0
	 'You gingerly walked down the street, trying not to run into dead.'
	 act 'further':gt $curloc
     end

}
$KGZvihod2={

     act 'Go to the street':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=1
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Search provisions':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the store looking for food.'
	 KGZsupoisk=RAND(0,100)
	     if KGZsupoisk=100:
	     KGZsup+=1
	     'You find enough food, to stretch another day.'
	     elseif KGZday<KGZsupoisk:
	     KGZsup+=1
	     'You find enough food, to stretch another day.'
	     else
	     'You have not been able to find anything edible, all that you have found spoiled and is not suitable for food.'
	     end
	 act 'further':gt $curloc
     end

}
$KGZvihod3={

     act 'Go to the street':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=1
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Search kits':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the hospital looking for first-aid kit.'
	 KGZsupoisk=RAND(0,100)
	     if KGZsupoisk=100:
	     KGZmedkit+=1
	     'You find a first aid kit.'
	     elseif KGZday<KGZsupoisk:
	     KGZmedkit+=1
	     'You find a first aid kit.'
	     else
	     'You are not able to find anything useful.'
	     end
	 act 'further':gt $curloc
     end

}
$KGZvihod4={

     act 'Go to the street to the side of her house':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=1
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the hunting store':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=5
	 KGZbatl=0
	 'You carefully went to the hunting store trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the police station':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=6
	 KGZbatl=0
	 'You carefully went to the police station trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the hardware store':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=7
	 KGZbatl=0
	 'You carefully went to the hardware store trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZcopcar=0:
		 act 'Search the police car':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 !KGZplace=2
		 KGZbatl=1
		 KGZcopcar=1
		 'Trying not to make a noise you started searching the police car.'
		 if KGZgun=0:KGZgun=1&'You found a gun'
		 bullet+=10
		 'you found 10five rounds of ammunition for the gun.'
		 act 'further':gt $curloc
		 end
     end
     
     act 'Go on the highway':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=8
	 KGZbatl=0
	 'You carefully walked towards the highway trying not to run into dead.'
	 act 'further':gt $curloc
     end

}

$KGZvihod5={

     act 'Leave the store':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=4
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
	 act 'Search salesroom':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the hunting store.'
	 if KGZgun2=0:KGZgun2=1&'You `ve found the shotgun'
	 bulletrand=RAND(3,20)
	 bullet2+=bulletrand
	 'you found <<bulletrand>>five cartridges for shotgun.'
	 act 'further':gt $curloc
	 end

}

$KGZvihod6={

     act 'Go outside':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=4
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
	 act 'Search the police station':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the police station.'
	 if KGZgun=0:KGZgun=1&'You found a gun'
	 bulletrand=RAND(3,20)
	 bullet+=bulletrand
	 'you found <<bulletrand>>five rounds of ammunition for the gun.'
	 act 'further':gt $curloc
	 end
	 
	 if KGZcopdoor=0:
	 'Armed locked room on a massive iron door, which can be opened only Bulgarian, but the trouble is, no electricity.'
	     if KGZgenerator>0 and KGZbenzin>0 and KGZbolgarka>0:
	     	 act 'Open the Bulgarian armed room':
			 cls
			 KGZhour+=1
			 minut+=1
			 gs'stat'
			 KGZcopdoor=1
			 KGZbatl=0
			 'Trying not to make a noise you started searching the police station.'
			 if KGZgun3=0:KGZgun3=1&'You `ve found the machine'
			 bullet3+=500
			 'you found 500tons of ammunition for machine.'
			 KGZdead=KGZday*10
			 'The noise from the Bulgarian ran dead and attacked you.'
			 act 'srazhatsya':KGZdist=RAND(5,8)&gt'KGZfight'
			 end
	     end
	 end
	 
	 if KGZcopdoor=1:
	 'Armory is empty, just a bunch of dead on the floor, evidence of a recent fight with you.'
	     if KGZratia=0:
	     	 act 'pick up the radio':
			 cls
			 KGZhour+=1
			 minut+=1
			 gs'stat'
			 KGZratia=1
			 KGZbatl=1
			 'You `ve found the radio. Including its you heard the voice repeating the same phrase. "Everyone who hears me. Safe Haven is on 10kilometer highway. Go to Fort Bragg."'
			 act 'further':gt $curloc
			 end
	     end
	 end

}
$KGZvihod7={

     act 'Go outside':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=4
	 KGZbatl=0
	 'You went into the street carefully trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
	 act 'search the shop':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the hardware store.'
		 if KGZweapon<2:
		 KGZweapon=2
		 'You found an ax'
		 act 'further':gt $curloc
		 exit
		 end
		 
	     if KGZgenerator=0:
         KGZgenerator=1
         'You `ve found a portable generator with gasoline refillable.'
         act 'further':gt $curloc
         exit
         end
         
	     if KGZbolgarka=0:
         KGZbolgarka=1
         'You found grinders running on electricity.'
         act 'further':gt $curloc
         exit
         end
     'You did not find anything useful.'
	 act 'further':gt $curloc
	 end

}
$KGZvihod8={

     act 'Exit at Boulevard':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=4
	 KGZbatl=0
	 'You carefully went to the boulevard trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
	 act 'Go to the gas station':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=9
	 KGZbatl=0
	 'Trying not to make a noise you went to a gas station.'
	 act 'further':gt $curloc
	 end
	 
	 if KGZratia>0:
	 	 act 'Go in the direction of Fort Bragg':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZplace=10
		 KGZplaceA=1
		 KGZbatl=0
		 'Trying not to make a noise you went toward Fort Bragg.'
		 act 'further':gt $curloc
		 end
	 end

}
$KGZvihod9={

     act 'Exit the highway':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplace=8
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZbenzin=0:
		 act 'pour gasoline':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZbenzin=1
		 KGZbatl=0
		 'Trying not to make a noise you poured gasoline from the column.'
		 act 'further':gt $curloc
		 end
	 end

}
$KGZvihod10={

if KGZplaceA<10:$KGZplaceA='fort Bragg'&$KGZplaceB='from the city'
if KGZplaceA>10:$KGZplaceA='from the city'&$KGZplaceB='fort Bragg'
     act 'Go to page <<$KGZplaceA>>':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplaceA+=1
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to page <<$KGZplaceB>>':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplaceA-=1
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZplaceA>10:
         act 'Go to the forest':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZbatl=0
		 KGZplace=200
		 'You went off the road into the woods.'
		 act 'further':gt $curloc
		 end
     
     end

}
$KGZvihod11={
if KGZfortQW=0:'From the roof a shot rang sniper rifle.'
if KGZfortQW=0:'The man on the roof screaming you. "Fort Bragg fell. I stayed one living person. save me. I end cartridges, and ghouls and climb."'
     act 'Probivatsya on the roof':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 if KGZfortQW=0:KGZfortQW=1
     KGZplace=12
	 KGZbatl=0
	 KGZdead=RAND(KGZday*20,KGZday*30)
	 'You ran into the fort surrounded on all sides by the dead.'
	 act 'srazhatsya':KGZdist=RAND(5,12)&gt'KGZfight'
     end
     
     act 'Go to the side of the highway (side leading into the city)':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplaceA=9
	 KGZplace=10
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the side of the highway (side leading out of the city)':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplaceA=11
	 KGZplace=10
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZfortQW=2:
         act 'Probivatsya on food warehouse':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZplace=13
		 KGZbatl=0
		 KGZdead=RAND(KGZday*20,KGZday*30)
		 'You ran to a warehouse surrounded on all sides by the dead.'
		 act 'srazhatsya':KGZdist=RAND(5,12)&gt'KGZfight'
		 end
		 
		 act 'Probivatsya in hospital':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZplace=14
		 KGZbatl=0
		 KGZdead=RAND(KGZday*20,KGZday*30)
		 'You ran into the hospital surrounded on all sides by the dead.'
		 act 'srazhatsya':KGZdist=RAND(5,12)&gt'KGZfight'
		 end
		 
		 act 'Probivatsya the armory':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZplace=15
		 KGZbatl=0
		 KGZdead=RAND(KGZday*20,KGZday*30)
		 'You ran into the hospital surrounded on all sides by the dead.'
		 act 'srazhatsya':KGZdist=RAND(5,12)&gt'KGZfight'
		 end
		 
		 act 'Probivatsya in the garage':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZplace=16
		 KGZbatl=0
		 KGZdead=RAND(KGZday*20,KGZday*30)
		 'You ran into the hospital surrounded on all sides by the dead.'
		 act 'srazhatsya':KGZdist=RAND(5,12)&gt'KGZfight'
		 end
     
     end

}

$KGZvihod13={

     act 'Exit to Fort Bragg':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=11
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'search the store':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the dark warehouse.'
	 udacharand=RAND(0,1)
	     if udacharand=1:
		 KGZsuprand=RAND(1,3)
		 KGZsup+=KGZsuprand
		 'You `ve found the diet on <<KGZsuprand>> days'
		 end
		 if udacharand=0:
		 KGZdead=RAND(KGZday*5,KGZday*10)
		 'Because of the box seemed barely distinguishable in the dark and dead with uterine howling toward you.'
		 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
		 exit
		 end
	 act 'further':gt $curloc
	 end

}
$KGZvihod14={

     act 'Exit to Fort Bragg':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=11
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'search the infirmary':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	 'Trying not to make a noise you started searching the dark infirmary.'
	 udacharand=RAND(0,1)
	     if udacharand=1:
		 KGZmedkit+=1
		 'You find a first aid kit'
		 end
		 if udacharand=0:
		 KGZdead=RAND(KGZday*5,KGZday*10)
		 'Because of the box seemed barely distinguishable in the dark and dead with uterine howling toward you.'
		 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
		 exit
		 end
	 act 'further':gt $curloc
	 end

}
$KGZvihod15={

     act 'Exit to Fort Bragg':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=11
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'search the armory':
	 cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 !KGZplace=2
	 KGZbatl=0
	     if KGZfortOru=1:
	     'In Oruzheyka nothing useful.'
	     end 
	     if KGZfortOru=0:
	     KGZfortOru=1
	     'In Oruzheyka you find ammunition for the machine 300 pieces and 10 garnet.'
	     KGZgranade+=10
	     bullet3+=300
	     end 
	 '.'
	 act 'further':gt $curloc
	 end

}
$KGZvihod16={

     act 'Exit to Fort Bragg':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=11
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZgruzovik=0:
		 act 'Climb into the truck':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 !KGZplace=2
		 KGZbatl=0
			 if KGZgruzBenz=1:
			 'You sat in the cab on the driver`s seat and started the truck.'
				 act 'go':
				 cls
				 'Truck uterine growl jumped into the courtyard of the fort where a crowd had gathered Dead, you are on the move ran into the crowd and began to push the Undead, the engine speed drops, straining the engine roared gliding over crushed bodies, dead hands clung to the cabin. Some ghouls hanging on the cabin, in the mirror it was evident that the body you also climbed dead. Gateway to the fort closed and they will have to beat out.'
					 act 'knock gate':
					 cls
					 'You hit a truck to disperse the gate of the fort. You strongly shaken and rattled the gate collapsed. Something like a truck to leave the yard of the fort on the highway clogged.'
						 act 'Driving on the highway in the city':
						 cls
						 KGZgruzovik=1
						 KGZplace=10
						 KGZplaceA=9
						 'Your truck surrounded by a ring of the dead trying to clear the road from the traffic jam. But you will quickly get stuck. There is no choice, already dead like flies stuck truck.'
						 KGZdead=RAND(KGZday*50,KGZday*100)
						 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
						 end
						 
						 act 'Driving on the highway out of town':
						 cls
						 KGZgruzovik=2
						 KGZplace=10
						 KGZplaceA=11
						 'Your truck surrounded by a ring of the dead trying to clear the road from the traffic jam. But you will quickly get stuck. There is no choice, already dead like flies stuck truck.'
						 KGZdead=RAND(KGZday*50,KGZday*100)
						 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
						 end
						 
						 act 'Go along the side of the city':
						 cls
						 KGZgruzovik=3
						 KGZplace=10
						 KGZplaceA=7
						 'Your truck surrounded by a ring of the dead went on slippery sidelines. When the truck crushed corpses wheel very punt and you still have made a mistake, truck slid into a ditch and overturned. There is no choice, already dead like flies stuck truck.'
						 KGZdead=RAND(KGZday*50,KGZday*100)
						 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
						 end
						 
						 act 'Go along the side of the city':
						 cls
						 KGZgruzovik=4
						 KGZplace=10
						 KGZplaceA=13
						 'Your truck surrounded by a ring of the dead went on slippery sidelines. When the truck crushed corpses wheel very punt and you still have made a mistake, truck slid into a ditch and overturned. There is no choice, already dead like flies stuck truck.'
						 KGZdead=RAND(KGZday*50,KGZday*100)
						 act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
						 end
					 
					 end
				 
				 end
			 end
			 if KGZgruzBenz=0:
			 KGZgruzBenzMark=1
			 'Damn, have an empty tank truck, speaker stands next, only need to fill.'
			 end
		 act 'Get out of the cab':gt $curloc
		 end
	 end
	 
	 if KGZgruzBenzMark=1:
	     act 'Exit to Fort Bragg':
		 cls
		 KGZhour+=1
		 minut+=1
		 gs'stat'
		 KGZbatl=0
		 KGZgruzBenz=1
		 'You carefully tucked truck gasoline.'
		 act 'further':gt $curloc
		 end
	 end

}


$KGZvihod100={

     act 'Wander through the dead city':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=100
	 'You went cautiously, trying not to run into dead.'
	 KGZlocrand=RAND(0,100)
	     if KGZlocrand>=90 and KGZlok=0:
	     'You have found a solid house with iron bars on the windows'
	     KGZlok=1
	         act 'Enter the house':KGZplace=101&gt $curloc
	     end
	     if KGZlocrand>=80 and KGZlok2=0:
	     KGZlok2=1
	     'You find a large supermarket in which when it sold a variety of goods'
	         act 'Sign in supermarket':KGZplace=102&gt $curloc
	     end
	 act 'further':gt $curloc
     end
     
     act 'Go to the side of the highway':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZplaceA=19
	 KGZplace=10
	 KGZbatl=0
	 'You carefully went to the highway, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     if KGZlok=1:act 'Enter the house':KGZhour+=1&KGZplace=101&gt $curloc
     
     if KGZlok2=1:act 'Sign in supermarket':KGZhour+=1&KGZplace=102&gt $curloc

}
$KGZvihod102={

     act 'Exit from the supermarket':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=100
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'scour supermarket':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 'You gently began to fumble in search of useful, trying not to run into dead.'
	 udarand=RAND(0,100)
	     if udarand>=90:
	     tiprand=RAND(0,1)
	         if tiprand=0:KGZsup+=1&'You are lucky and you find food'
	         if tiprand=1:KGZmedkit+=1&'You are lucky and you find a first aid kit'
	     end
	 act 'further':gt $curloc
     end

}
$KGZvihod200={

     act 'Walk through the woods to the highway':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=10
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Walk through the woods to the highway':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=201
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end

}
$KGZvihod201={

     act 'Go to the forest':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=200
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end
     
     act 'Go to the farmhouse':
     cls
	 KGZhour+=1
	 minut+=1
	 gs'stat'
	 KGZbatl=0
	 KGZplace=202
	 'You went cautiously, trying not to run into dead.'
	 act 'further':gt $curloc
     end

}




$KGZvincent={
cls
if KGZfortQW=1:KGZfortQW=2
'The fort is and arsenal, storage of food, infirmary and a garage with trucks. But a lot of dead people, really a lot. Some soldiers tried to break but died. Some have tried to use flamethrowers, but as long as the dead are burning, they manage to reach the end of the rights and. From the fort should leave as soon as possible.'

act 'further':gt $curloc
}




































$KGZfizatk={
if KGZweapon=0:
KGZuspeh=RAND(0,100)
     if KGZuspeh<=30:
     KGZdead-=1
     'You have got a very good ghouls fist on the head and he fell stopping moves.'
     else
     'Ghoul irreversible any attention to your punch.'
     end
end
if KGZweapon=1:
KGZuspeh=RAND(0,100)
     if KGZuspeh<=50:
     KGZdead-=1
     'You have got a very good ghouls club on the head and he fell stopping moves.'
     else
     'Ghoul irreversible any attention to blow your club.'
     end
end
if KGZweapon=2:
KGZuspeh=RAND(0,100)
     if KGZuspeh<=70:
     KGZdead-=1
     'You have got a very good ghouls ax on the head and he fell stopping moves.'
     else
     'Ghoul irreversible any attention to blow your ax.'
     end
end
if KGZdead>0:
'<<KGZdead>> Dead clung to you, trying to tear.'
kgzuron=RAND(KGZdead*2,KGZdead*5)
KGZHP-=kgzuron
'<B><font color=red>You have caused damage <<kgzuron>> units.</font></B>'
end
}
$KGZgunatk={
KGZuspeh=RAND(0,100)
     if KGZdist<=5:
         if KGZuspeh<=90:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     elseif KGZdist<=10:
         if KGZuspeh<=80:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     else
         if KGZuspeh<=70:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     end
}
$KGZgunatk2={
KGZuspeh=RAND(0,100)
     if KGZdist<=5:
         if KGZuspeh<=100:
		 KGZdead-=1
		 'You have thrust charge shot in the head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     elseif KGZdist<=10:
         if KGZuspeh<=70:
		 KGZdead-=1
		 'You have thrust charge shot in the head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     else
         if KGZuspeh<=50:
		 KGZdead-=1
		 'You have thrust charge shot in the head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     end
}
$KGZgunatk3={
KGZuspeh=RAND(0,100)
     if KGZdist<=5:
         if KGZuspeh<=70:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     elseif KGZdist<=10:
         if KGZuspeh<=95:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     else
         if KGZuspeh<=85:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not fall into the dead man.'
		 end
     end
}
$KGZgunatk4={
:KGZmarkgun
KGZbulgun-=1
KGZuspeh=RAND(0,100)
     if KGZdead>0:
		 if KGZdist<=5:
			 if KGZuspeh<=80:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 elseif KGZdist<=10:
			 if KGZuspeh<=70:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 else
			 if KGZuspeh<=60:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 end
     end
if KGZbulgun>0:jump'KGZmarkgun'
}
$KGZgunatk5={
:KGZmarkgunb
KGZbulgun-=1
KGZuspeh=RAND(0,100)
     if KGZdead>0:
		 if KGZdist<=5:
			 if KGZuspeh<=70:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 elseif KGZdist<=10:
			 if KGZuspeh<=60:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 else
			 if KGZuspeh<=50:
			 KGZdead-=1
			 'You put a bullet in his head and he fell ghoul stopping moves.'
			 else
			 'You do not fall into the dead man.'
			 end
		 end
     end
if KGZbulgun>0:jump'KGZmarkgunb'
}
$KGZdeadmanatk={
if KGZdist>0:KGZdist-=1
if KGZdead>0 and KGZdist<=2:
'<<KGZdead>> Dead clung to you, trying to tear.'
kgzuron=RAND(KGZdead*2,KGZdead*5)
KGZHP-=kgzuron
'<B><font color=red>You have caused damage <<kgzuron>> units.</font></B>'
elseif KGZdist>2 and KGZdead>0:
'<<KGZdead>> Dead wheezing and limping closer to you.'
end

}

$KGZgranatk={
KGZuspeh=RAND(0,100)
KGZgranade-=1
'You threw a grenade into the Dead'
     if KGZdist<=5:
     'Powerful explosion threw the dead in different directions'
     KGZdist+=RAND(1,5)
     KGZdead-=RAND(5,20)
     KGZHP-=RAND(5,20)
     'You hurt by a grenade'
     elseif KGZdist<=10:
     'Powerful explosion threw the dead in different directions'
     KGZdist+=RAND(1,3)
     KGZdead-=RAND(3,10)
     else
         if KGZuspeh<=5:
		 KGZdead-=1
		 'You put a bullet in his head and he fell ghoul stopping moves.'
		 else
		 'You do not dokinuli grenade and it exploded harmlessly.'
		 end
     end
}








--- KGZdyn ---------------------------------

# KGZfight
minut+=1
gs'stat'
gs'KGZdyn'

if KGZHP<=0:
cla
*clr
manna-=100
'<center><B>GAME OVER</B></center>'
act 'Leave the game':gt'KGZstart'
exit
end

if KGZdead<=0:
cls
KGZbatl=1
manna+=100
'All the dead were silent on the ground.'
act 'Get_Away':gt'KGZgame'
exit
end
if GZdist<0:GZdist=0

!'<a href="exec:GT ''KGZstart''">Leave the game</a>'
'health <<KGZHP>>. day <<KGZday>>, h <<KGZhour>>.'
'cold arms: <<$KGZweapon>>'
if KGZgun>0:'<<$KGZgun>>'
if KGZgun2>0:'<<$KGZgun2>>'
if KGZgun3>0:'<<$KGZgun3>>'
'To you run <<KGZdead>> dead. They distance <<KGZdist>> meters.'

if KGZdost=1:
'Vincent shoots a rifle.'
KGZdead-=1
'One of the dead drops with prostrelyanny head.'
     if KGZdead<=0:gt $curloc
end

if KGZgun>0 and bullet>0:
     act 'Pistol shot':
     cls
     bullet-=1
     dynamic $KGZgunatk
     dynamic $KGZdeadmanatk
     act 'further':gt $curloc
     end
end

if KGZgun2>0 and bullet2>0:
     act 'A shotgun blast':
     cls
     bullet2-=1
     dynamic $KGZgunatk2
     dynamic $KGZdeadmanatk
     act 'further':gt $curloc
     end
end

if KGZgun3>0 and bullet3>0:
     act 'Shoot a machine gun (single)':
     cls
     bullet3-=1
     dynamic $KGZgunatk3
     dynamic $KGZdeadmanatk
     act 'further':gt $curloc
     end
     
     if bullet3>=3:
		 act 'Shoot a machine gun (short burst)':
		 cls
		 bullet3-=3
		 KGZbulgun=3
		 dynamic $KGZgunatk4
		 dynamic $KGZdeadmanatk
		 act 'further':gt $curloc
		 end
     end
     
     if bullet3>=10:
		 act 'Shoot a machine gun (long queue)':
		 cls
		 bullet3-=10
		 KGZbulgun=10
		 dynamic $KGZgunatk5
		 dynamic $KGZdeadmanatk
		 act 'further':gt $curloc
		 end
     end
end

if KGZgranade>0:
     act 'throw a grenade':
     cls
     dynamic $KGZgranatk
     act 'further':gt $curloc
     end
end

if KGZdist<=2:
     act 'hit <<$KGZweapona>>':
     cls
     dynamic $KGZfizatk
     act 'further':gt $curloc
     end
else
     act 'wait':
     cls
     KGZdist-=1
     gt $curloc
     end
     
     act 'Go to meet the dead':
     cls
     KGZdist-=2
     gt $curloc
     end
     
     act 'Take_To_One`S_Legs':
     cls
         if KGZdead>=10:
         KGZdist-=5
         'Dead too much and they surrounded you, You can not escape.'
         act 'your mother!':gt $curloc
         else
         KGZdedrandrun=RAND(0,1)
             if KGZdedrandrun=0:
             KGZbatl=1
             'You managed to escape from the dead.'
             act 'Get_Away':gt'KGZgame'
             end
             if KGZdedrandrun=1:
             KGZdist-=5
             KGZdead+=RAND(KGZdead,KGZdead*5)
             'You stumbled on the other dead and now you have to fight with a lot of dead people.'
             act 'your mother!':gt $curloc
             end
         end
     end
end

















--- KGZfight ---------------------------------

# FSstart
minut+=1
nosave=1
gs'stat'
'<center><B>Albida</B></center>'
'.'
'<B>Your character is a valid</B>'
'<<$FSpers>>'

if FSpers=1:act 'Load a saved game':gt'KGZgame'

act 'Play new game':
cls
FSfemin=0
FSfigur=0
FScolor=0
FSface=0
FSskin=0
FShvost=0
dicktipe=0
FSdick=18
FSvagina=0
FStits=0
FStitsLine=0
FSpers=1
FSday=0
FShour=8
FSsup=1
FSplace=0
FSgem=0
FSmedkit=0

FSlvl=1
FSexp=0
FSstren=10
FSspeed=10
FSagil=10
FSreakt=10
FSvital=10
FSHP=FSvital*10

FSbrona=0
FSweaponDam=0

$FSname=input("enter your nickname")
if $FSname<=0:$FSname='player'
'character Name <<$FSname>>'
act 'play':gt'FSgame'
end




act 'Go_Out':nosave=0&gt'Komp','start'


















--- FSstart ---------------------------------

# FSgame
minut+=1
gs'stat'
gs'FSstat'
'<center><B>The room at the hotel</B></center>'
''
     if FSmedkit>0:
     'kits <<FSmedkit>> pcs'
         if FSHP<100:
             act 'treated':
             cls
             FShour+=1
             FSHP=100
             FSmedkit-=1
             minut+=1
             gs'stat'
             'You cured with the help of health kits.'
             act 'further':gt $curloc
             end
         end
     end
     
     act 'laze':
     cls
	 FShour+=1
	 minut+=1
	 gs'stat'
	 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
	 act 'further':gt $curloc
     end
     
     
     act 'Exit the room':
     cls
	 FShour+=1
	 minut+=1
	 gs'stat'
	 !'You left the room.'
	 gt 'FSroom'
     end






































--- FSgame ---------------------------------

# FSstat
FSneedExpNextLvl=(FSlvl*10)*FSlvl
FSneedExp=FSneedExpNextLvl-FSexp
if FSneedExp<=0 and FSlvl>FSlvlr:FSlvlr=FSlvl&FSpoint+=5&FSlvl+=1&FSexp=0









if FSfemin<45:$FSfemin='Men'
if FSfemin>=45 and FSfemin>=55:$FSfemin='androgynous'
if FSfemin>55:$FSfemin='women`s'

if FSfigur<45:$FSfigur='male figure'
if FSfigur>=45 and FSfigur>=55:$FSfigur='androgynous figure'
if FSfigur>55:$FSfigur='female figure'

if FScolor<0:FScolor=0
if FScolor>5:FScolor=5
if FScolor=0:$FScolor='black hair'&$FSsherst='black'
if FScolor=1:$FScolor='brown hair'&$FSsherst='brown'
if FScolor=2:$FScolor='red hair'&$FSsherst='Redhead'
if FScolor=3:$FScolor='blond hair'&$FSsherst='light'
if FScolor=4:$FScolor='pink hair'&$FSsherst='pink'
if FScolor=5:$FScolor='white hair'&$FSsherst='white'


if FSface<=0:$FSface='<<$FSfemin>> face. <<$FScolor>>'
if FSface=1:$FSface='<<$FSfemin>> face with cat ears and nose. <<$FScolor>>'
if FSface=2:$FSface='<<$FSfemin>> face with dog ears and nose. <<$FScolor>>'
if FSface=3:$FSface='<<$FSfemin>> face with fox ears and nose. <<$FScolor>>'
if FSface=4:$FSface='<<$FSfemin>> person with horse ears and nose. <<$FScolor>>'
if FSface=5:$FSface='<<$FSfemin>> face with cow ears and nose. <<$FScolor>>'
if FSface>=6:$FSface='<<$FSfemin>> face with ears and nose like a lizard. <<$FScolor>>'

if FSskin<=0:$FSskin='normal skin'
if FSskin=1:$FSskin='<<$FSsherst>> hair on the body'
if FSskin>=2:$FSskin='Scales on body'

if FShvost<=0:$FShvost=''
if FShvost=1:$FShvost='cat`s tail'
if FShvost=2:$FShvost='dog`s tail'
if FShvost=3:$FShvost='foxtail'
if FShvost=4:$FShvost='horse`s tail'
if FShvost=5:$FShvost='cow tail'
if FShvost>=6:$FShvost='tail reptiles'


if dicktipe<=0:$dicktipe='normal, men`s'
if dicktipe=1:$dicktipe='conical, covered with soft spikes cat'
if dicktipe=2:$dicktipe='red, with a large knot at the base of the dog'
if dicktipe=3:$dicktipe='covered with coarse, black leather bull'
if dicktipe>=4:$dicktipe='powerful horse'

if FSdick>0:$FSdick='<<$dicktipe>> member of the longest <<FSdick>> cm.'
if FSdick<=0:$FSdick=''

if FSvagina>0:$FSvagina='Between your legs you are Snatch.'
if FSvagina<=0:$FSvagina=''

if FStits=1:$FStitrazm='AA'
if FStits=2:$FStitrazm='A size'
if FStits=3:$FStitrazm='size B'
if FStits=4:$FStitrazm='With size'
if FStits=5:$FStitrazm='size D'
if FStits=6:$FStitrazm='size E'
if FStits=7:$FStitrazm='size F'
if FStits>8:$FStitrazm='size F+'

if FStits>0 and FStitsLine=0:$FStits='female breasts <<$FStitrazm>>'
if FStits>0 and FStitsLine=1:$FStits='Two pairs of female breasts <<$FStitrazm>>'
if FStits>0 and FStitsLine>=2:$FStits='Three pairs of female breasts <<$FStitrazm>>'


if FSpers=0:$FSpers='You do not have the character'
if FSpers>0:$FSpers='<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>
level <<FSlvl>>, experience <<FSexp>>, necessary to the next level <<FSneedExp>> experience
life <<FSHP>>
power <<FSstren>>
speed <<FSspeed>>
dodge <<FSagil>>
Initsiantiva <<FSreakt>>
endurance <<FSvital>>
'

if FShour>=24:
FShour-=24
FSday+=1
     if FSsup=0:
     FSHP-=10
     else
     FSsup-=1
     end
end

if FSHP>100:FSHP=100

'<a href="exec:GT ''FSstart''">Leave the game</a>'
'day <<FSday>>, h <<FShour>>'
'<<FSgem>> coin. Food enough for <<FSsup>> days'
''




$FSatk={
KGOLzas=RAND(FSagilV/4,FSagilV)
KGOLataka=RAND(FSspeed/2,FSspeed*2)
if KGOLataka>=KGOLzas:
     if KGOLataka>=KGOLzas*2:
     KGHPnpow=RAND(FSstren/2,FSstren)+ RAND(FSweaponDam/2,FSweaponDam)
     FSHPV-=KGHPnpow
     '<font color=green>CRETE <<KGHPnpow>></font>'
     else
     KGHPnpow=RAND(FSstren/4,FSstren/2)+ RAND(FSweaponDam/4,FSweaponDam/2)
     KGHPntpow=KGHPnpow-FSbronaV
     if KGHPntpow<=0:KGHPntpow=1
     FSHPV-=KGHPnpow
     '<font color=blue>hit <<KGHPnpow>></font>'
     end
else
'<font color=red><<$FSnameV>> dodged your attack</font>'
end
}
$FSatkV={
KGOLzas=RAND(FSagil/4,FSagil)
KGOLataka=RAND(FSspeedV/2,FSspeedV*2)
if KGOLataka>=KGOLzas:
     if KGOLataka>=KGOLzas*2:
     KGHPnpow=RAND(FSstrenV/2,FSstrenV)+ RAND(FSweaponDamV/2,FSweaponDamV)
     FSHP-=KGHPnpow
     '<font color=red>CRETE <<KGHPnpow>></font>'
     else
     KGHPnpow=RAND(FSstrenV/4,FSstrenV/2)+ RAND(FSweaponDamV/4,FSweaponDamV/2)
     KGHPntpow=KGHPnpow-FSbrona
     if KGHPntpow<=0:KGHPntpow=1
     FSHP-=KGHPnpow
     '<font color=brown>hit <<KGHPnpow>></font>'
     end
else
'<font color=green>You dodged the attack</font>'
end
}




















--- FSstat ---------------------------------

# FSfight
minut+=1
gs'stat'
'Cheers <<FSHP>>.'
'<<$FSnameV>>, health <<FSHPV>>'

!end of the fight
if FSHP<=0:
FSloss+=1
'You lost the fight'
act 'Get_Away':gt'FSgame'
exit
end
if FSHPV<=0:
FSWin+=1
'<<$FSnameV>> down. You win the fight.'
'you got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
act 'Out of combat':gt'FSgame'
exit
end
!initiative
KGOLiniV=RAND(FSreaktV/2,FSreaktV*2)
KGOLini=RAND(FSreakt/2,FSreakt*2)
if KGOLini=KGOLiniV:
hodrand=RAND(0,1)
if hodrand=0:KGOLini=1&KGOLiniV=0
if hodrand=1:KGOLini=0&KGOLiniV=1
end
if KGOLini>KGOLiniV:KGOLiniSUM+=1
if KGOLini<KGOLiniV:KGOLiniSUM-=1
if KGOLiniSUM>3:KGOLini=0&KGOLiniV=1&KGOLiniSUM=0
if KGOLiniSUM<-3:KGOLini=1&KGOLiniV=0&KGOLiniSUM=0
!moves
if KGOLini>KGOLiniV:
'Now your turn'
     act 'attack':
     cls
     ''
     dynamic $FSatk
     act 'further':gt $curloc
     end
else
'Now move the enemy'
'<<$FSnameV>> attacks you'
     dynamic $FSatkV
	 act 'further':gt $curloc
end






































--- FSfight ---------------------------------

# FSroom
minut+=1
gs'stat'
gs'FSstat'
'<center><B>street</B></center>'



     act 'Go into the room':
     cls
	 FShour+=1
	 minut+=1
	 gs'stat'
	 !'You left the room.'
	 gt 'FSgame'
     end
     
     act 'wander':
     cls
	 FShour+=1
	 minut+=1
	 gs'stat'
	 'You wander through the deserted streets.'
	 act 'further':gt $curloc
     end


                                         tdsmtsssssss

















--- FSroom ---------------------------------

# young_shop
if $ARGS[0]='start':
$sexloc = $CURLOC
gs'stat'
act 'finish the job':dynamic $endwork
end

$endwork={
 !if young_shop_work = 1 and young_shop_miss < 3:
 cla
 if week = 5 and young_shop_salary > 0:
	 act '<font color=green>get salary</font>':
	 gt 'andrey'
	 end
 else
	 act '<B>Leave the store</B>':
	 minut+=3
	 gt 'torgcentr'
	 end
 end
}

'<B><center><font size=4><font color=black>''Keys-pussy''</font></center></B>'
*nl
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
$sexloc = $CURLOC
'<center><img src = "pictures/young_shop.jpg"></center>'
*nl
'Small shop clothing for young people. Mostly pretty daring outfits for emancipation of young people with attractive bodies.'
	 !if young_shop_work = 0:
	 'Manager works with 10:00 prior_to 18:00.'
		 act '<font color=navy>Go to the manager</font>':
		 minut+=1
		 gt 'andrey'
		 end
	 !end
*nl

act '<B>Leave the store</B>':
minut+=3
gt 'torgcentr'
end

act '<font color=navy>Department of women`s clothing</font>':
minut+=1
gt 'sell_young_clothes'
end

if hour = 15 and young_shop_work = 1 and week<6:
'Manager works with 10:00 prior_to 18:00.' & *nl
     act '<font color=green>work</font>':
     cla
     inWorkYoungShop=1
     young_shop_salary+=1
     '<B>I Cleaned two o`clock in the department, and straighten the hang clothes, serve a customer. Rabotenka not dusty and even quite nice.</B>'
     *nl
     minut+=135
     gs'stat'
     set random = rand (1,80)
		 if random > 50 and random <= 55:gt'young_shop','0'
		 if random > 55 and random <= 60:gt'young_shop','1'
		 if random > 60 and random <= 65:gt'young_shop','2'
		 if random > 65 and random <= 70:gt'young_shop','3'
		 if random > 70 and random <= 75:gt'young_shop','4'
		 if random > 75 and random <= 80:gt'young_shop','5'

         if random >= 1 and random <= 20 and (kira <> 0 or young_shop_salary < 3): 
          '<B>Normal unremarkable day at work comes to an end.</B>'
          *nl
          act 'finish the job':dynamic $endwork
         end
         
         if random >= 1 and random <= 20 and kira = 0 and young_shop_salary >= 3: 
         cla
         set kira = 1
         *clr
         '<B><center><font size=4><font color=black>At work</font></center></B>'
         *nl
         'Twenty minutes before the end of the day a lady comes up to me with a girl glamorous appearance. Girl constantly turns and asks women: 
- moms, Well. Let`s buy in stores.. well, MAAM..
- enough capricious! All your classmates in such clothes go, i do not want, over to my girl bullied out-In order for, she do not like it! - woman is determined and definitely not going to change their intentions.
- hello, help? - with a smile on my face I go to my mother and daughter.
Lady appreciatively examining me down so the head and turns to her daughter:
- You see, Cyrus, girl a little older than you, well dressed.. - she does not have time to finish the phrase, as Vick starts acting up again:
- Well! I can not on the street in such a sound, and even without a bra. With me everything will be seen!
- And what `s wrong with that? - woman throws up his hands in surprise. - It would be something to be ashamed of, you have not grown yet! so_Much, enough, I`m sick of. 
She turns to me and with a haughty smile:
- girl, Now, your clothes fit like my children Kira? - slightly nodding his head and says it clearly is just waiting for a positive response.'
         *nl
             act 'Yes_I_Am, of_course':
             cla
             *clr
             'Throwing another look at the girl, I confidently answer:
- naturally! All my friends to buy clothes only at this store. We have a transparent blouse kakraz, which will look great on your daughter! And there is a suitable size. And yes, All our products are designed to be worn without a bra, - I quickly find the right size and helpfully stretch blouse tearful Cyrus. - booth there, can try!
Woman takes daughter in his arms and carries with it a little in the cabanas. minutes later 7 they return.'
             *nl
             '<center><img src = "pictures/young_shop_quest9.png"></center>'
             *nl
             '- As I thought, you goes perfectly this blouse! By_The_Way, This model has just arrived in our shop, she created a beautiful Italian designer..- I am pleased to pronounce.
- Yes_I_Am, all Kirin girlfriend obzaviduyutsya! And how much is this beauty?
- exclusive offer - only 2400.
I notice, Kira already resigned to his fate and decide to provoke her a little:'
             *nl
             
                 act 'With mini-skirt better':
                 *clr
                 '- know, mini-your skirt blouse open at all 100%. Look at this model, imagine, how wonderful it would look on your daughter!
- For what I do is?.. - no longer hoping for a positive outcome, sighs Cyrus.
A woman takes her skirt in hand, twirls her, inspect for defects and marriage, and with a confident expression daughter leads to the locker room.
- And such as skirts without panties are or I am wrong? - woman looks at me.
- It is very desirable, - I say, nodding.
- It_Is_Clear.
After a couple of minutes behind the curtain begins what-scuffling. Apparently the girl again started to act up and abut. mom, already fairly shabby and tired, out of the booth and asks for help:
- She always rests, can you that-you can do?
In the words of the woman`s face becomes clear to me, now that if my daughter I did not get rid of the underwear completely, they will simply leave and did not buy, I lose my bonus, which could earn in this sale.
I go into the booth and see Cyrus, which, despite her tearful appearance, looks amazing in a new dress. It_Is_A_Pity, what`s words are unlikely to have the desired impact, but, if I do it myself, then shy skromnyasha Cyrus likely do not even try to stop me.'
                 *nl   
                 cla
                     act 'persuade Cyrus':
                     *clr
                     delact 'persuade Cyrus'
                     'I decide to contact their psychological skills and persuade Cyrus off her panties.'
                     *nl
						 if intel >= 50:
						 cla 
						 *clr
						 'Fortunately Cyrus very trusting girl, and my leadership qualities are not pumped. I managed to convince her, totally embarrassed that it is not necessary and that the mother wants for her only good.
	Vic slowly puts his hands under her skirt and pulls her panties.
	- You feel like a breeze blowing from the bottom? Imagine how pleasant it would be to go walking on the street.
	- And if someone-would see?
	- oh, do not be so greedy, - I clap on the shoulder Cyrus. - Let them look and dream. All your friends will envy you and ask, why when you`re with them, then all the guys only look at you.
	I bring Kira from the locker room and pass her panties mom.
	- how-something embarrassing, but you can afford to leave them or throw? I want to wean my daughter from underwear, and all of these purchases will be wasted. Hide from it all panties and bra until she gets used.
	I decide to leave himself panties and shove them in her purse. Mom is paying at the cash register and takes her daughter dressed in a blouse and a new mini-skirt. 
	Cyrus looks back and smiles at me goodbye, and then goes, flashing naked booty in every breeze.'
						 *nl
						 '<center><img src = "pictures/characters/photo_dressed_[$vika]_13.png"></center>'
						 *nl
						 
							 act 'finish the job':dynamic $endwork
						 else 
						 'Unfortunately, despite my efforts, I did not get her to talk ..'
						 *nl
							 act 'Remove her panties':
							 cla
							 *clr
							 '- Well, - I bend over and shove his hands under her skirt Cyrus. The girl could not have assumed, what is possible. 
			I lift my mini-Cyrus skirt and slowly pulls off her panties. She bares pussy is right in front of my eyes at a distance 10 centimeters. I notice, that girl is very excited from-Because of this situation . Delicate aroma hit me in the nose and I smiled.
			Kira took off her panties, I show her wet spot, and then hiding behind her panties and get out of the booth.
			- We managed to negotiate, - I pretend smile, I managed to convince Cyrus off her panties on their own.
			- oh, how great, that`s_great, - woman examining her daughter and decides to buy and blouse, and mini-skirt.
			Before leaving, I wink at her, to which she gives a very pleasant smile.'
							 *nl
							 '<center><img src = "pictures/characters/photo_dressed_[$vika]_13.png"></center>'
							 *nl
								 act 'finish the job':dynamic $endwork
							 end
						 end
                     end
                 end
             end
             
             
             act 'No, it is too early':
             cla
             *clr
             '- Excuse_Me, but it still too early to wear such clothes. Especially since she does not want to, - I breed hands.
- how come? I see on TV, that they all go to such outfits! - woman looks at me with a puzzled. She obviously could not imagine, that she would be against clothing, in which she dressed and who must sell.
"Glamorous m obviously revised zomboyaschik and wants to make a whore of the daughters," - I think, looking lady in the eye and ulybayus.'
             *nl
                 act 'convince a woman':
                 cla
                 delact 'convince a woman'
                 'This is not so leave! I decide to do everything, that depends on me, to convince a strange mother.'
                 *nl
                     if intel >= 60: 
                     '- You seriously think so, but I also..? - glamorous lady considering my words their meager umishkom and decides, that they eat meaning. - Fair_Enough, will go to the normal shop.
Before leaving: 
- Thank_U.. as_long_as! - girl waving my pen and runs after her mother.'
                     *nl
                     '<center><img src = "pictures/characters/photo_dressed_[$vika]_13.png"></center>'
                     *nl
                     
						 act 'finish the job':dynamic $endwork
                     else
                     '- You do not say?! And on TV, so, untruth show? What I do talk to you! - glamorous lady could not understand the meaning of my words. - everything, Cyrus, we go to another store.
Before leaving.'
                     *nl
                     '<center><img src = "pictures/characters/photo_dressed_[$vika]_13.png"></center>' 
                     *nl
                     
						 act 'finish the job':dynamic $endwork             
                     end
                 end
             end
         end
         
         if random = 21:
         cla
         *clr
         '<B><center><font size=4><font color=black>At work</font></center></B>'
         *nl
         'I just end up hanging pretty bluzochki from the new collection, as the old lady comes up to me years 70 and begins a long, dull monologue from which I learned a lot about myself, their work, modern fashion and old traditions.
To start grandmother complains about modern society and its mores: whoredom, debauchery, drugs, seals and all the works. Then she remembers the old happy time, when the grass was greener and girls 18 years married virgins:
- And now that.. That`s my granddaughter in the classroom any virgins left. And she`s in 7 classroom learning, they have there 15 girls in the classroom! how come.. And one girl, Lena name like, already 3 abortion made. Where is the world coming, - grandmother prichetala minutes 20 and I could not manage to calm her down and show the door of the shop.
- Here_It_Is, granddaughter, You also learn at school probably, why do you dress, Are not you ashamed?'
         *nl
         
             act 'Do not be ashamed!':
             cla
             '- And from what I ought to be ashamed of it? I did nothing wrong and do not depraved! It`s just beautiful clothes, now such a fashion, This is not a Stalinist era.
- yeah, Comrade Stalin at this just would not have happened! - here begins a new lecture about old times, honesty, decency, correct.
The old woman for a long time crucified, but it is also finally get tired and it starts to hobble to the door, showering our shop and curses of modern youth.'
             *nl
				 act 'finish the job':dynamic $endwork 
             end
             
             
             act 'It is only at work so':
             cla
             '- Of course ashamed, but I can not for-other. It is necessary to earn money, no work, want to eat. And I have a little sister, and it is necessary to take care of her, - I long crucified, talking about his plight and promising grandmother never go out in such a way.
finally grandmother, satisfied with my answer, I began to praise and, cross_over, I wish happiness and good.
I `m an old lady with relief to the exit.'
             *nl 
				 act 'finish the job':dynamic $endwork
             end
         end
         
         if random = 22:
          cla
          *clr
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          'Passing the cabanas, I hear strange noises out. surely, who-then dresses, but then that-is not.
Going on about curiosity, I, making, that I did not notice, look inside and see a rather strange picture:'
          *nl
          '<center><img src = "pictures/young_shop_quest2.jpg"></center>'
          *nl
          'Whether a couple is not doterpela, whether they have nowhere else, whether they are just perverts. difficult to say, and the values вЂ‹вЂ‹it now has no special.
I watch as a pretty girl very skillfully swallows man`s penis and do not know how I react to it. Watch them further  - that think of me, if they see, as an employee of spying for customers to change clothes.'
          *nl
             if horny >= 80:
             'I`m too excited, to ignore what is happening or disperse representation.'  
                 act 'eavesdrop':
                 cla
                 *clr
                 'I decide to stand next to the cabin and listen to the joy of a young couple. I listen as she licks and sucks smacking member. Then she utters a strange rattle and changing nature of what is happening.
- Will they not be limited blowjob? - I look down again to the booth and see, that was wrong. The guy holding the girl`s hair and pulls her mouth firmly on the penis. I have never seen, that girl with such force fucked in throat.
- She could suffocate, - but instead of, to help minetchitsa, I spend a hand through his hardened nipples and rushes to the skirt.
Then I hear the guy starts moaning, and the girl, cough, plaintively asks him:
- Come, come_on, Cum on my face, yes_they_are.. - I once again look in the booth.'
                 *nl
                     act 'Look into the booth':
                     cla
                     *clr  
                     '<center><img src = "pictures/young_shop_quest3.jpg"></center>'
                      *nl 
                     'All the girl`s face is covered with thick sperm. 
Guy again pokes member in her mouth for, choby she brushed him from sperm. Then he quietly began to wear trousers, watching as the girl palms collects sperm from the face and hides her mouth.
I decide to move away from a little stall, and then they can suddenly go out and caught me. A minute later, that girl is not very carefully wiped her face and traces of semen visible to the naked eye.
As such.'
                     *nl
                     horny+=10
						 act 'finish the job':dynamic $endwork
					 end
                 end           
             end
             
             if horny < 80:
                 act 'ignore':
                 cla
                 *clr
                 'This is clearly not my business, and just as the spy and eavesdrop-indecently. I, of_course, could get rid of them, but I do not want to deprive young people of good memories and spoil their fun.
I am going away from the booth and start to develop scattered visitors bluzochki and hang them in place. After a few minutes of steam coming out of the booth and I noticed traces of semen on the girl`s face. All my efforts to overcome smile turn into failure and I just hide her hand.
Meanwhile minetchitsa with her boyfriend leaves the shop on the street.'
                 *nl
					 act 'finish the job':dynamic $endwork
                 end  
             
                 act 'overclock':
                 cla
                 *clr
                 'GHM, huh.. - I expectorate. - You all right, can help you?
- Yup, you can come in and help, - I hear a muffled voice Man. - ouch, that hurts.
Girl takes out a member of his mouth and, hit a guy in the balls, loudly pronounces:
- We now finish and exit.
After a moment the pair is shown out of the booth and she gives to me embarrassed smile and, slightly blushing, takes the guy from the store.'
                 *nl
              		 act 'finish the job':dynamic $endwork
                 end        
             end         
         end
         
         if random = 23:
          cla
          *clr
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          'I go to the cabanas and find a left -shirt. just remember, she was put on buyers, which 5 minutes ago bought a blouse and it is gone from the store. apparently, T-shirt she decided to throw it away and just left in the booth.
I decide to postpone it to the end of the shift, shopper can return. An hour passes , none of the T-shirt does not come. I carefully look around it: ordinary T-shirt, almost new, no holes, there is no dirt. Can pick up a?'
          *nl
          
             act 'pick up a':
             cla
             'leaving, I take a T-shirt with a. Girl, and I am not so rich, to almost throw new things.'
             *nl
                 if wear_chest_have_[6] = 0:
                 'no action'
                 else
                 '<B>- although, I also already have such. With such a heap of things like me, easy and lured.. Fair_Enough, the second is the same I do not need, - I leave in a T-shirt shop.</B>'
                 *nl
                 end
                  
				 act 'finish the job':dynamic $endwork
             end
             
			 act 'finish the job':dynamic $endwork 
			 
         end
         
         if random = 24:
          cla
          *clr
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          'I go I am today in the cabanas and collecting clothes not coming up, which left another buyer after fitting. Accidentally drops mini-skirt and, raising it, I notice a very inconspicuous element on the baseboard. I immediately throws in the heat:
- Yes this is a hidden camera, - thought pierces me like an arrow. I could not think, what we have in store may show that-something like!
What to do now, must, surely, inform the manager, he will understand, or.. What if he knows?! No, It can not be.'
          *nl
             act 'Share your camcorder':
             cla
             'I`m not knocking broke into the manager`s office and start chattering about what happened.
- hey, hey, <<$name>>, calm_down! what happened??
- Over_There, over_there, in the booth, - trembling hands I point in the direction of cubicles for changing. - faster!
Manager reluctantly rises from his chair and walks me. Going into the booth .
- you must call.. - I begin to prompt manager, but he interrupts me in mid-sentence:
- Hang_On, should think, - manager stands and twirls in the hands kamerku. - If we call the cops, here is a start.. shop closed, all here pereroyut, More and fined or something worse may. The owner learns how, so really get mad, pouvolnyaet indiscriminately.
- Let`s just so: Now you calm down and you go home, and I will search everything here. We all problems to anything! You for your vigilance Prize good write out, only or anyone word, realized?
- Yes_I_Am, of_course, - my shift all-still coming to an end and I decide to just go home and forget about everything.'
             *nl
				 act 'finish the job':dynamic $endwork
             end
             
             act 'keep_silent':
             cla
            'I take a few deep breaths and force myself to calm down, bring thoughts in order.
- I did not install the camera, can not take responsibility, I can always tell, that had no idea about it. In the booth . in_general-then, girls, which will remove the camera, still do not know, and who-then look, entertain, earn. I do not mind.
I decide not to touch the camera and just keep working.'
            *nl
				 act 'finish the job':dynamic $endwork 
             end          
         end
         
         if random = 25:
          cla
          *clr
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          'A man comes up to me years 40 and asks for help in choosing clothes for her little daughter:
- Hello, beauty, Help me choose a gift for my daughter `s birthday.
- Yes_I_Am, of_course. What`s her size?
- Yes.. well, her figure like yours, Only smaller breasts. Can you try on?
- in principle, i do not mind, Now you will pick up a suit. How old is your daughter? - I do not work, Visitors today why-is not shown, so that the fitting clothes will be a great way to while away a few minutes.
- She is much younger than you, only develops beyond his years, the figure is less than 16 do not give! - his eyes sparkled as the buyer .'
          *nl
             if intel >= 40:
             'Hit me like a boiling water.. Yes, he can choose his little daughter such clothes, but still with a smile on his face. Maybe I need-something about it?..'
             *nl
             
				 act 'To rent a pedophile':
				 cla
				  '- I am happy for you to try on a few options. wait here, I `ll run to the store and immediately find all bluzochki and skirts for her figure and will try! - trying not to betray nervousness, I ulabyyus men who hide behind the door to the premises.
	Telling all manager, I go to the warehouse, quickly find several options of clothes and ran into the booth to change clothes. Pedophile lustfully watching as I `m better in front of him once skirt, go to the store when several policemen.
	Pedoisteriya in full swing, on-that the police do not even think to listen to the arguments of men and, twist it, leads to the patrol car.
	- It`S_Nothing, Now send your daughter to the workers guardianship, They psychologists will understand your fault or not, - With these words.'
				  *nl
					 act 'finish the job':dynamic $endwork
				 end  
			 end
			 
         
             act 'try on clothes':
             *clr
             cla
                 if intel >= 40:
                 'in_general-it is not my business, if his daughter that-is not satisfied, she herself may appeal to the authorities, I can still ruin the whole family, with his nose in where it should not be!'
                 *nl
                 end
                 
                 if intel < 40:
                 'Nothing suspecting, I say, Now that all children do not develop over the years.'
                 'I go to the warehouse and, collecting all the clothes, that I will approach, back to the cabanas..
Man constantly joking and making very nice compliments about my figure. Every time I `m hiding behind the curtain booths, he tries to peep as I dress up and continues to laugh it off when I noticed.
During display, he continually turns me on the spot, trying to see what is hidden under the skirt and my chest feels the, considering bluzochki.
His actions seem to me a little suspicious, but I write it off on A lovely mood and sociability.
after, I finally try on all skirts and bluzochki, he chooses and asks me to change once more.
- How beautiful, for my daughter it will look simply amazing. Listen.. and you do not want to make some money?
- In what sense? - I was surprised to breed hands.
- understand, you are so beautiful and sexy, I`m very excited looking at you! I will pay 5000, if you`re just in this billeting clothes, lifted up her skirt. naturally, without panties and bra. More than anything else to do.'
                 *nl
                 horny+=30
                 gs 'stat'
                 end
                 
				 act 'Opt_Out':
				 *clr
				 cla
				 '<center><img src = "pictures/young_shop_quest4.jpg"></center>'
				 *nl
				 '- Are you, crazy? I`m not going to do that! - such brazen offer I just discouraged. - You do not have to persuade me, this will not be exact! Go ask my daughter is.
- Be sure and do, - buyer goes out of the booth and waits until I disguise myself, then quietly pays and out of the store. I`m disgusted look after him.'
				 *nl
					 act 'finish the job':dynamic $endwork
				 end
                 
                 if horny>=80: delact 'Opt_Out' & '<font size=3><font color=black><B>I`m too excited, to refuse such an offer.</B></font>'
				 
                 act 'agree':
                 cla
				 set money = money + 5000
				 msg 'Horny buyer pulls out of his pocket a purse and hands me <B>5000</B> rubles'
				 set horny = horny + 10
				 *clr
				 cla
				 '- Fair_Enough, but the more I will do nothing! - 5000 rubles - a great motivator .' 
				 if horny >= 100:'Yes, it to someone-then watched.'
				 'I unfasten and disclaims any bra exposing her breasts to a stranger. After that.'
				 'I`m a little pull blouse, podcherktut to their almost bare chest and put their hands under her skirt, to slowly remove her panties.'
				 'I unfasten and disclaims any bra exposing her breasts to a stranger.'
				 'licking his lips, I take the edge of the mini-skirts and, slightly arched back ago, begins to raise its edges up. Meanwhile.
I, flushed with excitement, standing in the locker room without panties and bra, lifting her skirt so, my pussy is perfectly visible and look at what, as a man fingering his dick. Do not have time to recover as a man begins to wheeze and realize, he now finish.
Suddenly. Strong motion. I want to argue against such behavior, referring to our agreement, but I understand, just do not have time to do it. Man starts muffled moan and I understand, his cock explode now.'
				 *nl
				 gs 'stat'
				 
					 act 'Close your eyes':
					 set horny = horny + 10
					 facial+=1
					 cumface+=1
					 gs'stat'
					 *clr
					 cla
					 *nl
					 '<center><img src = "pictures/young_shop_quest8.jpg"></center>'
					 *nl
					 'I have nowhere to go. I barely have time to close his eyes before a powerful jet of sperm hit me in the face. Then another. I feel a strong masculine scent. Cum completely covers my face, falls into the hair and begins to drain on clothes, leaving a thick spot.'
					 *nl
					 
						 if vaf > 10: 
						 'It`s so much on me, I`m starting to collect the sperm into the hands of, and then with great pleasure lick her fingers with.'
						 *nl
						 swallow+=1
						 cumlip+=1
						 gs'stat'
						 'The smell and taste of driving me crazy, my legs give way and I feel like the abdomen begins to shudder. I am finishing.'
						 'When he came to, I see a man standing over me and smiling:
- you voskhotitelna, beauty! Let`s take off your clothes, I buy these clothes, - Then I start to talk, you need to bring new things, and these soiled or at least clean, but the buyer interrupts me. - No, do not need to be cleaned, these tracks will remind me of the wonderful moments with you.
I undress and change into your clothes, then quickly ran to the locker room. My shift could finish until I measure all these outfits, and before leaving we must put himself in order.'
							 act 'finish the job':dynamic $endwork                   
						 else
						 'When the flow of sperm stopped beating me in the face, I open my eyes and see right before your eyes big tasty dick, all covered with sperm. He comes from a strong masculine scent.'
						 *nl
						 
						 if vaf > 0:swallow+=1&cumlip+=1&'I do not hold back and take a cock in her mouth. It_turns_out, he has not yet completely drained and I feel like the last time he shudders and my mouth filled with sperm. I am very neat and clean out the member takes it out of his mouth.'
						 'I look up to the buyer and smile at him.
- you voskhotitelna, beauty! Let`s take off your clothes, I buy these clothes, - Then I start to talk, you need to bring new things, and these soiled or at least clean, but the buyer interrupts me. - No, do not need to be cleaned, these tracks will remind me of the wonderful moments with you.
I undress and change into your clothes, then quickly ran to the locker room. My shift could finish until I measure all these outfits, and before leaving we must put himself in order.'
						 *nl
							 act 'finish the job':dynamic $endwork
						 end
					 end
				 end
                     
				 act 'finish the job':dynamic $endwork 
             end  
         end
         
         if random = 26:
          *clr
          cla
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          '<<$name>>, see here, - approached me Nastya. - I`ve got a nice blouse, new, but with a small defect. The manager is going to put it to good discount <B>-70%</B>, may want to take yourself?
In the shop we have it for <B>2400</B> rubles for sale, you can buy <B>720</B>. look here:'
			 act 'finish the job':dynamic $endwork 
         end
         
         if random = 27:
          *clr
          cla
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          '<center><img src = "pictures/young_shop_quest5.jpg"></center>'
          *nl
          'In the shop go 2 Man very glamorous appearance and begin to consider transparent bluzochki. I often notice them in this district, probably live somewhere-nearby. They constantly walk together and hold hands. I go to the guys and helpfully interested:'
          *nl
          
             act 'help?':
             cla
             '- hello, I see you pick up a gift for your girls, can help you?'
				 if vnesh < 50:
				  'Guys appreciatively examine me from head to toe and one of them says with disdain:
	- Get_out, nasty, without you shall understand, you most care is not hurt! - and starts insulting to discuss my appearance with her boyfriend.
	I am going away from them.'
				  *nl
					 act 'finish the job':dynamic $endwork
				 else
				 'Guys appreciatively examine me from head to toe and one of them says with interest:
	- What a pretty little girl. do not worry, beauty, ourselves with a mustache! - guy waving me goodbye and, taking his friend `s arm, begins admiringly discuss my appearance.
	I am going away from them.'
				  *nl
					 act 'finish the job':dynamic $endwork            
				 end
             end
         end 
          
         if random = 28:
          *clr
          cla
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          money+=1000
          '<center><img src = "pictures/young_shop_quest6.jpg"></center>'
          'In store tumble three boozy woman of indeterminate age, dressed in clothes podrypannuyu. All as one in torn kalgotkah, colored mini-skirts and dirty T-shirts.
- whores? - I ask Nasty.
- Yup, by_the_way, see the, in red skirt? - Nastya nods in the direction of the ugliest of them. - She studied in a parallel class.
- her that, 18 year_old?? horror, what brings dissolute lifestyle, - I declare accusingly.
- Depraved nothing to do with - says Nastya. - Some girls have been an order of magnitude more guys, than she, but they do not look like! You just have to take care of yourself, rather than plump and dope Shiryaev in the doorways.
slut, not even having tried, choose the first available things and carry them to the checkout. Nastya`s friend throws on the counter pile of dirty crumpled rubles and pulling a face says:
- order? - not waiting for an answer, virgins take their belongings and leave the store.
- Here_You_Go, half of you, - Nastya pokes me a pile of rubles. - They`re a little short-changed, not in cash is to lay down..'
              *nl
			 act 'finish the job':dynamic $endwork 
         end
         
         if random >= 29 and random <= 34:
          *clr
          cla
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          'In the beginning of the shift manager asked me to visit him after work, but the reasons are not named.
I go to the door to his office and going to knock. Then I notice, the door a little and look inside preotkryta.'
          *nl
          
             act 'look inside':
             cla
             '<center><img src = "pictures/young_shop_quest10.jpg"></center>'
             *nl
             'Then my eyes opened obscene picture. Andrei Mikhailovich is facing a monitor, his pants are down, and in the hands of a member of. The manager looks at the monitor and Fingering his penis, where the condom is put on. Almost immediately .
Sperm filled condom, he takes it, wipes member and throws a condom in the trash bin. Then he starts to pull his pants and walk in the door.
I, trying not to make a sound, running back from the door and hide behind the boxes near the official release. Andrew M., noticed nothing, go to the toilet. I come out from his hiding place and I go to his office. Out of curiosity. Then I throw a look into the basket and see her lying in a condom, full of sperm.'
             *nl
             
				 act 'wait manager':
				 cla
				  'With a smile, representing what would have, if he saw me at the monitor, so even with a condom in her hand.
		A minute later :
		- A, <<$name>>, good_for_you, that came! Wait , you need to sign it, - manager comes to his desk, long paper enumerates and finally gave me a-then the document.
		I thought in my head was not on pieces of paper, on-I have not read this, sign the document and return to the manager. Saying_goodbye, I go back to the shop floor.'
				  *nl
					 act 'finish the job':dynamic $endwork            
				 end
				 
                 act 'take a condom':
                 cla
                 *clr
                 '<center><img src = "pictures/condom_cum.jpg"></center>'
                 *nl
                 'I decide a little hooliganism. Reaches into the basket and took out a condom out. He is slippery and still warm. I pick up a condom over your head, to see through it to the light bulb. Then I suddenly hear, how to open the door to the office. More half a second and saw me with a condom in her hand! I do not even have extra moments, to hide his hands behind his back.'
                 *nl
                     act 'In the mouth!':
                     cla
                     'I have no other options.. I barely have time to shove a condom in her mouth, I see the eyes of Andrei Mikhailovich:
- A, <<$name>>, good_for_you, that came! Wait , you need to sign it, - manager comes to his desk, long paper enumerates and finally gave me a-then the document.
I do not read it and then sign, then pronouncing:
- Dohvianiya, - I vygozhu the office and run straight to the locker room and, taking out of his mouth condom, throw it in the trash.
Ok, Andrei Mikhailovich tied condom, before you throw, otherwise I would have a mouth full of sperm!'
                     *nl
						 act 'finish the job':dynamic $endwork
                     end
                 end
                 
             end
         end
        
         if random >= 35 and random <= 39:
          cla
          *clr
          !set katia = 1
          '<B><center><font size=4><font color=black>At work</font></center></B>'
          *nl
          if katia = 0:'Very often in the store comes a strange girl with brown hair. Today. As usual it is very long walks through the cabin and that-examines thread, but I have never seen, to it that-or tried on. 
I constantly get the impression, she looks at me. When I raise my eyes, I see, as she starts to fuss, turns and glares at the nearest skirt, it starts with interest to examine.
I tried many times to step up and offer assistance, but she always looks down, red and muttered under his breath:
- No, thank_you, I myself can handle, - a minute after that. 
in_general-then, I do not even remember, so that it at least once that-then bought: just goes forever, considers, chooses. Equip it prostenko, but not poor, we can not say, that she can not afford and just comes to dream.
Strange how she-then..' 
          if katia = 1:'Today again comes Katia. She is a very shy girl and difficult to understand that in her mind. I told her several times asked the question, that she comes, selects and buys nothing, but it always remained silent. And I just want to help.
It_Is_A_Pity, that staff is forbidden to invite friends to shop and chat with them, from-Because of this I have to stay away from Katie on-further. although, if I could talk to her, doubt, that we would have made a constructive dialogue. Usually all the questions she answers: "not know", "simply", or "well.." and silence.
it seems to me, Katya is constantly looking at me, and when we met views, she smiles, blushes and looks away.'
          *nl
          katia = 1
			 act 'finish the job':dynamic $endwork      
         end  
        
         if random >= 40 and random <= 44:
          cla
          *clr
          '<B><center><font size=4><font color=black>Quiet Time</font></center></B>'
          *nl
          'Not a single buyer for the rest of my shift. I calmly chat with Nastya broken 2 hours. She usually talks about his sexual experiences and feelings.
Today she decided to recall their first sexual experience. This is her favorite topic, I even lost count how many times she told me everything is described in great detail. one happy, though it is not confused and always calls the same number of boys, with whom she lost her virginity in a school locker room after the nat-ry.'    
            *nl               
			 act 'finish the job':dynamic $endwork       
         end 

         if random >= 45 and random <= 50:
          cla
          *clr
          '<B><center><font size=4><font color=black>Hard working day</font></center></B>'
          *nl
          'Buyers rod in abundance. I was knackered all. one tell me, other Post, find a third, bring fourth, fifth generally sticks with incomprehensible conversations. Ok, that does not work all day, and only two hours.
At the end of my shift manager comes and asks to stay for an hour.
- Listen, <<$name>>, Here is the deal: see itself - Dam we. Hold for an hour, and I`ll award Naquin, you will not regret!'
          gs 'stat'
          *nl
             act 'Ok':
             cla
             '- It_seems, I have no choice: I can not throw you to the wolves!
After working for another hour, I was very tired, but the idea of вЂ‹вЂ‹premium warms the soul.'
             *nl 
             set minut+= 70
             gs'stat'
             set young_shop_bonus = young_shop_bonus + 3    
				 act 'finish the job':dynamic $endwork
             end
             
             act 'I can not':
             cla
             if young_shop_bonus>0:young_shop_bonus-=1
             '- If in any other day, but today I can not.. - I begin to make excuses, but the manager just shrugs his hand:
- Fair_Enough, go home, You `ll manage without. Just do not count on the premium for today!' 
             *nl            
				 act 'finish the job':dynamic $endwork                 
             end     
          end     
     end 

end

if hour>=8 and hour <=18 and young_shop_work=1 and young_shop_miss>=3 and week<6:gt 'andrey'
if hour > 21 or hour < 8 or week>=6:
	 cla
	 '<B>Excuse_Me, but the shop is closed, - comes up to me guard. - Follow the exit.</B>'
	 '<B><center><font color=red>The store is closing.</font></center></B>'
	 act '<B>Leave the store</B>':gt 'torgcentr'
	 end
gs 'stat'

if $ARGS[0] = '0':
cla
'In the store includes a black man and long underwear rassmatiraet nizhneС‘, for the requests you to try clothes, referring to the fact that you have a figure like his girls.'
act 'Opt_Out':dynamic $endwork
act 'Change into the booth':
	 cla
	 'You went into the booth and showed him dressed lingerie, dressed in his clothes, you are making a purchase.'
	 act 'Get_Away':dynamic $endwork
	 end
act 'Change clothes with him':
	 cla
	 *clr
	 set guy+=1
	 '<center><img src="img/centr/mag0.jpg" ></center>'
	 'You start to change right in front of him, spinning in front of him backwards and otherwise showing all its charms, soon you will have the desired, when you have once again pushed the legs demonstiruya her pussy he stood in front of you on your knees and pressed his lips to your crotch'
	 set picrand=19
	 act 'have_a_good_time':gt 'sex','kuni'
	 end
end

if $ARGS[0] = '1':
cla
'In the store includes a man and a women`s clothing long rassmatiraet, for the requests you to try, referring to the fact that you have a figure like his girls.'
act 'Opt_Out':dynamic $endwork
act 'Change into the booth':
	 cla
	 *clr
	 set picrand=29
	 '<center><img src="img/centr/mag1.jpg" ></center>'
	 'You begin to change into a booth and notice, that guy spying on you through the curtains tightly closed.'
	 act 'Close the curtains':dynamic $endwork
	 act 'Lay back room':set guy+=1&gt 'sex','minet'
	 end
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="img/centr/mag2.jpg" ></center>'
'In the store includes a young couple, they had a long walk around the store and constantly watch over you and what you are arguing. In the end, of its zbivchevogo raskaza you understand that it devstvenitsa and is not ready to leave her with this, but the guy does not want to lose, why is it the girls at once, and she oversees the process, it offers 2000RUB. for having sex with her вЂ‹вЂ‹boyfriend right here with her.'
act 'Opt_Out':dynamic $endwork
act 'agree':
	 set guy+=1
	 set money+=2000
	 set picrand=35
	 gt 'sex','minet'
	 end
end

if $ARGS[0] = '3':
cla
*clr
'<center><img src="img/centr/mag3.jpg" ></center>'
'In the store includes the company of boys, long walk down the hall as the dispute, and after that come up to you, and declares that they have argued, you`re a little osharanenaya listens essence of the dispute. It turned out that they had an argument that you can not tell whose dick suck black or white, and the winners will fuck you.'
act 'Send them':dynamic $endwork
act 'Ask what you will get':
	 cla
	 set picrand=15
	 'You ask what you will with it, guys laugh and say, you unforgettable feeling.'
	 act 'Send them':dynamic $endwork
	 act 'Lay back room':
		 cla
		 *clr
		 set guy+=2
		 '<center><img src="img/centr/mag4.jpg" ></center>'
		 'You make the guys in the back room , and you are blindfolded and you start to try every member of taste, but you have not tried and could not guess which is which, win two white guys, the rest come from the back room.'
		 act 'prize winners':xgt'sexdvoe','var'
		 end
	 end
end

if $ARGS[0] = '4':
cla
*clr
'<center><img src="img/centr/mag5.jpg" ></center>'
'Half a day at the store rub two guys postojano flirting with you and interfering with work, nars and they pinch you for your ass, after several unsuccessful attempts to send them, you are quite desperate to get rid of them.'
act 'call the manager':
	 cla
	 'The manager quickly shoved the guys in the shop.'
	 act 'finish the job':dynamic $endwork
	 end
act 'give them':
	 set guy+=2
	 set picrand=16
	 xgt'sexdvoe','var'
	 end
end

if $ARGS[0] = '5':
cla
'In the shop went two girls, about an hour you showed them the goods, at the same time they are constantly concerned you accidentally, when they bought all they wanted, One of them came up to you and whether you can sporosila kiss you on the lips, so you`re a little dumbfounded expression of gratitude on the machine responded duty phrase:
"Of_Course, whatever you want"
"Well, I want to kiss your lips sex"'
act 'Send them':dynamic $endwork
act 'remove briefs':
	 cla
	 *clr
	 set girl+=2
	 set lesbian+=1
	 '<center><img src="img/centr/mag6.jpg" ></center>'
	 'You shoot panties, sodites on the counter and spreads her legs, girl crouches to your lips pussy then licking the clitoris is fucking your vagina with his long tongue, it bears fruit .'
	 act 'thank her':
		 cla
		 *clr
		 '<center><img src="img/centr/mag7.jpg" ></center>'
		 'You lozhite girl on the floor and bites his lips in her crotch caressing tongue her pussy, soon she grabs your head and greatly hugged her violently ends, her juices melt on your lips and chin.'
		 act 'further':
			 cla
			 *clr
			 '<center><img src="img/centr/mag8.jpg" ></center>'
			 'The second girl all this time stood on the sidelines and watching you masturbate, When you have finished she sat in a chair widely spread her legs and called you:
			 "Hey girls and completely forgotten about me"
			 The two of you came to the girl and knelt began to lick her pussy, constantly touching your language, it was like a strange kiss'
			 act 'further':
				 cla
				 *clr
				 '<center><img src="img/centr/mag9.jpg" ></center>'
				 'One of the girls moved, leaving you alone to meet her friend, you carefully licked her clitoris without forgetting stuff tongue in her vagina. Soon she squeezed his feet and your head was wedged between her thighs, you had nothing to breathe, and from it a flood in your mouth, when she finally opened her legs all your face in her secretions, they trickled down her thighs and, you again floated his tongue licking her thighs thoroughly, leaving them a drop of juice.'
				 act 'Get_Away':dynamic $endwork
				 end
			 end
		 end
	 end
end
--- young_shop ---------------------------------

# sell_young_clothes
set mag=1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
'<B><center><font size=4>Women`s clothing</font></center></B>'
*nl
act '<font color=navy>Get_Away</font>':
minut+=1
gt 'young_shop'
end
if odekis[1] = 0:
	 act '<font color=navy>View first variant of clothes</font>':set numdres=1&payclo=10000&gt'loker','odekis'
	 end
if odekis[2] = 0:
	 act '<font color=navy>See the second variant of clothes</font>':set numdres=2&payclo=10000&gt'loker','odekis'
	 end
if odekis[3] = 0:
	 act '<font color=navy>See the third variant of clothes</font>':set numdres=3&payclo=10000&gt'loker','odekis'
	 end
if odekis[4] = 0:
	 act '<font color=navy>View fourth variant of clothes</font>':set numdres=4&payclo=10000&gt'loker','odekis'
	 end
if odekis[5] = 0:
	 act '<font color=navy>View the fifth variant of clothes</font>':set numdres=5&payclo=10000&gt'loker','odekis'
	 end
if odekis[6] = 0:
	 act '<font color=navy>View a sixth embodiment of clothes</font>':set numdres=6&payclo=10000&gt'loker','odekis'
	 end
if odekis[7] = 0:
	 act '<font color=navy>View seventh embodiment clothes</font>':set numdres=7&payclo=10000&gt'loker','odekis'
	 end
if odekis[8] = 0:
	 act '<font color=navy>View eighth embodiment clothes</font>':set numdres=8&payclo=10000&gt'loker','odekis'
	 end
if odekis[9] = 0:
	 act '<font color=navy>View ninth embodiment clothes</font>':set numdres=9&payclo=10000&gt'loker','odekis'
	 end
if odekis[10] = 0:
	 act '<font color=navy>View tenth embodiment clothes</font>':set numdres=10&payclo=10000&gt'loker','odekis'
	 end
--- sell_young_clothes ---------------------------------

# andrey
'<B><center><font size=4><font color=purple>Manager Andrew M. Sobulyagin</font></center></B>'
*nl
*nl

if hour>=18:
  msg '<B><center>Andrew M. Sobulyagin says goodbye and leaves. His workday ended</center></B>'
  gt 'young_shop'
end

if young_shop_work = 0:
'<B>I knock on the door and walk into a room manager. He sits at a table and reads what-papers.</B>'
     act 'Talk about work':
     cla
     minut+=5
     'The manager tells me, that the store need a girl consultant to work in the evening. small salary, but stable.'
     'Begin work on the next working day after the employment.'
     '<B>details</B>: you need to work 5 days per week (Monday-Friday) on 2 hours. salary - 800 rubles per day. Need to come to work in 15 hours. Wages paid each week on Friday according to hours worked. for 3 truancy fired from their jobs.'
         act '<B>Consider the conditions and come at another time</B>':
         gt 'young_shop'
         end
         
         if work = 0 and hour<15:
         'If I am satisfied with the working conditions, I can now fill in the blanks and sign documents.'
         *nl
			 act 'To get a job':
			 work = 1
			 set young_shop_work = 1
			 if week >= 1 and week <= 4: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. starts tomorrow!</center></B>'
			 if week = 5: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. Begins on Monday!</center></B>'
			 minut+= 5
			 gt 'young_shop'
			 end
         end
     end
     
act 'Get_Away':gt 'young_shop'
end

if young_shop_work = 1:
 '<B>I knock on the door and walk into a room manager. Andrew M. Sobulyagin as usual picks in the papers, simultaneously looking at pictures of naked girls in the monitor.</B>' & *nl
      if week = 5 and young_shop_salary > 0:
      '<B>- hello, <<$char_name>>. For salary came?</B>' & *nl
         act 'get salary':
         minut+=15
             !'if char_responsible < 400 and young_shop_bonus >=1:
              '<B><<$char_name>>, you are very irresponsible work, I have to deprive you of some bonuses! try better.</B>'
              *nl
              set young_shop_bonus = young_shop_bonus - 2
              if young_shop_bonus < 0: set young_shop_bonus = 0
              set bonus_mood = bonus_mood - 100
             end
             
             if char_responsible >= 600:
              '<B><<$char_name>>, you are a very responsible person! Continue in the same spirit. ah yes, and you still relies nadbavochka.</B>'
              *nl
              set young_shop_bonus = young_shop_bonus + 2
              set bonus_mood = bonus_mood + 100
             end'
             
         set money = money + young_shop_salary*800 + young_shop_bonus*200
         
             msg '<center>I worked <B><<young_shop_salary>></B> days and get paid <B><<young_shop_salary*800>></B> rubles and bonus <B><<young_shop_bonus*200>></B> rubles. only <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles</center>'
         '<B>Manager counts me <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles, getting my signature, again puts his nose in his papers.</B>'  
            *nl        
            set young_shop_salary = 0
            set young_shop_bonus = 0
         act 'Get_Away':gt 'young_shop'   
         end
     exit
     end
     
     if young_shop_miss >= 3:
     cla
     '- what people! - Andrew M. leans back in his studio. - Where have you disappeared? We agreed, 3 truancy - dismissal.'
     *nl
         act '<font color=green>Agree to dismissal</font>':
         cla
         '- Ok, I did not get to go to work every day, - I sigh.
         The manager gets the paper and starts to fill out forms. A few minutes later .
         More I do not work in the store.'
          *nl
          set young_shop_work = 2
          set young_shop_miss = 0
          set char_honest = char_honest + 5
          work=0
          set bonus_mood = bonus_mood - 100
          
             if young_shop_salary > 0 or young_shop_bonus > 0:
             set money = money + young_shop_salary*800 + young_shop_bonus*200
             msg 'for <B><<young_shop_salary>></B> days I get paid <B><<young_shop_salary*800>></B> rubles and bonus <B><<young_shop_bonus*200>></B> rubles. only <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles'
             '<B>Andrew M. counts me <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles.</B>'  
             *nl        
             set young_shop_salary = 0
             set young_shop_bonus = 0
             end
         minut+=15
         act 'Get_Away':gt 'young_shop'
         end
         
         act '<font color=navy>beg leave</font>':
         cla
          '- But I can not lose work! I really need, - I was in tears. - You`Re_Welcome, do not dismiss me.
         - Then you have only one option: lock the door and show how your jaws are able to convince, - Andrew M. rises to his feet and takes his right hand for eggs.'
          *nl
             act '<B>escape</B>':
             minut+=2
             gt 'young_shop'
             end
             
             
             act '<font color=green>Lock the door and get on your knees</font>':
             cla
            '"It`s for work, done and go home, Nothing bad will happen," - I try to calm myself until lock the door. turning, I see Sobulyagin unzips his pants and throws Mighty 18 inch dick. I go over and kneel, eyes closed.
- which froze? Let`s start! - grins Andrew.
I open my eyes and take a cock in both hands. From a distance 5 centimeters. I slightly opened mouth and sticks out his tongue. First I lick the head, then the whole barrel member. A few minutes later I put my dick in your mouth and start to do the translational movements of the head, constantly licking the head of the language. I have a feeling, that it increases in my mouth.
I am very fond of their occupation and do not notice, as a member starts hitting streaks of sperm into my throat and into the airways. Struggling I try not to stop and keep coughing, but I have enough only seconds 15. cough, I open my eyes and see the manager fastens his pants and goes to the door.
- And you do so! Such a valuable employee . Sleepin you last absenteeism and write an award for efforts. And you go home, to work today can not go, already fulfilled! Just to any more truancy was not! - With these words, and I begin to brush up.'
             *nl
             minut+=15
             if sobulaginsex=0:sobulaginsex=1&guy+=1
             bj+=1
             swallow+=1
             cumlip+=1
             set young_shop_miss = 2
             set young_shop_salary = 1
             set young_shop_bonus = 2
             act 'Get_Away':gt 'young_shop'
             end
         end
         
     end
     
     
     if young_shop_miss < 3:
     
         act '<font color=maroon>resign</font>':
         cla
          '- I would like to retire, - I come to the table manager.
- I`m_sure? I, of_course, I can arrange everything directly Wait, - Andrew M. pochС‘syvaet head. - But then suddenly?'
         *nl 
          
             act '<B>change_your_mind</B>':
             '- know, I need to think things through more, - I pyachus to the door. - Let_Us, I will come next time.
- right, that may be more-something like?'   
             *nl
             act 'Get_Away':gt 'young_shop'
             end
             
             act '<font color=maroon>resign</font>':
            '- No, I think things through very thoroughly!
Fair_Enough, owner - gentleman! - Manager fills in some blanks and hands me ifcpoint for the signature.'
            *nl
				 if young_shop_salary > 0 or young_shop_bonus > 0:
				  set money = money + young_shop_salary*800 + young_shop_bonus*200
				  msg '<center>for <B><<young_shop_salary>></B> days I get paid <B><<young_shop_salary*800>></B> rubles and bonus <B><<young_shop_bonus*200>></B> rubles. only <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles</center>'
				  '<B>Andrew M. counts me <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles.</B>'  
				  *nl        
				  set young_shop_salary = 0
				  set young_shop_bonus = 0
				 end
             set young_shop_work = 3
             set young_shop_miss = 0
             work=0
             act 'Get_Away':gt 'young_shop'
             end
         end
     end
act 'Get_Away':gt 'young_shop'
end

if young_shop_work = 2 and work=0:
'<B>I could ask the manager to get me back to work.</B>'

     act 'Beg to return to work':
     cla
     '- I do not even know, - Andrei Mikhailovich obviously do not want to hire progulschitsu.
- Oh! I`ll do anything, I really need this job! - I do not even know how to convince him..
- Anything? ha! I know what you could do, - manager begins to open his eyes to evaluate my body. - Frankly: I `ll fuck you in the ass, and then you and I still otsosС‘sh. hand?'
     *nl
         act '<B>No way!</B>':
         cla
         'Paint rushed to my face. I was a little stunned by what he heard :
- Do you want to do with me anal sex, and then I `ll have to lick all the juices from your member? - it does not even fit in my head. - I will not do it!
- Do not want to, as you wish! - Andrei Mikhailovich clearly upset.'
          *nl
         act 'Get_Away':gt 'young_shop'
         end
         
         act '<font color=green>agree</font>':
         'It`s not fair! You know how I need this job, - I want to try to convince Andrew Sobulyagina.
- I`m just giving you the opportunity to. in_general-then, according to the rules I had you categorically deny! So I `m doing a very good deed, - Manager rises from the chair. - Decide.
- Fair_Enough, I agree, - seems, This is the best way out of the situation. - Thank_U.
Andrew goes to the door and locks it, I undress before the goal.
- And you have me shalunishka! - he comes up behind me and, hugged, begins to pull at her nipples.
I`m getting on-convenient and lean forward. Spreading the buttocks with both hands and close my eyes.
- Fair_Enough, can do without foreplay, - Sobulyagin immediately with swing plants dick into my ass and I turbid in the head by a sharp tearing.
I come to myself:
- I became interested in your hole, I did not manage to take out time and finished into your anus, - Manager pochС‘syvaet head. - then look, what are you-strange: glass eyes, to touch or words not react. You do not worry, everything was fine! So get dressed and go home, I`ll work now decorated.
I get up and begin to slowly dress. hands which-then cotton and listen hard, and anus just lit. dressing, I wipe the ass aching palm and fingers remain dirty-brown sperm.
- Thank you so much! - I try to smile on the face.'
          *nl
          set young_shop_work = 1
          work=1
          if week >= 1 and week <= 4: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. starts tomorrow!</center></B>'
          if week = 5: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. Begins on Monday!</center></B>'
          minut+=60
          act 'Get_Away':gt 'young_shop'
         end
     end
act 'Get_Away':gt 'young_shop'
end

if young_shop_work = 3:
'<B>The manager is not against again take me to work, since I resigned, and was not fired for absenteeism.</B>'
         act 'Back to work':
         cla
         '- And we waited for you! - Andrei Mikhailovich gave me forms. - I even argued with Valera from the male department, that you come back to us!
I fill the forms and return them to the manager.'
         *nl
         work=1
         set young_shop_work = 1
         if week >= 1 and week <= 4: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. starts tomorrow!</center></B>'
         if week = 5: msg '<B><center>I get a job in a shop of youth clothes ''Keys-pussy''. Begins on Monday!</center></B>'
         minut+=15
         act 'Get_Away':gt 'young_shop'
         end
     
act 'Get_Away':gt 'young_shop'
end
--- andrey ---------------------------------

# gopnew
$gopsexboy1={
if VasanTut=3:
	 set $guygop='Vasya'
	 if vasansex=0:vasansex=1&guy+=1
	 end
if BerezaTut=3:
	 if berezasex=0:berezasex=1&guy+=1
	 set $guygop='birch'
	 end
if VitekTut=3:
	 if viteksex=0:viteksex=1&guy+=1
	 set $guygop='Vitek'
	 end
if KostilTut=3:
	 if kostilsex=0:kostilsex=1&guy+=1
	 set $guygop='crutch'
	 end
if UdmurtTut=3:
	 if udmurtsex=0:udmurtsex=1&guy+=1
	 set $guygop='Udmurt'
	 end
if SeriTut=3:
	 if serisex=0:serisex=1&guy+=1
	 set $guygop='gray'
	 end
cla
act 'give':gt'gopnew','1'
act 'suck':gt'gopnew','11'
act 'Writing in the ass':gt'gopnew','12'
}

if $ARGS[0]='start':
'<center><B>Yard at the house</B></center>'
'<center><img src="pic/dvor.jpg" ></center>'
'You walk slowly around the yard, you go to a meeting a couple of guys gopnicheskogo species, with pivasom, Semko and caps.'
gtalkrand=RAND(0,10)
if gtalkrand=0:$goptalk='vaflersha'
if gtalkrand=1:$goptalk='waffle-iron'
if gtalkrand=2:$goptalk='shkvarnaya'
if gtalkrand=3:$goptalk='slut'
if gtalkrand=4:$goptalk='tvarina'
if gtalkrand=5:$goptalk='nipple'
if gtalkrand=6:$goptalk='sheep'
if gtalkrand=7:$goptalk='Shmarev'
if gtalkrand=8:$goptalk='slut'
if gtalkrand=9:$goptalk='huesoska'
if gtalkrand=10:$goptalk='blyadushka'
set gtalkrand=RAND(0,10)
if gtalkrand=0:$goptalk2='how many cocks sucked today?'
if gtalkrand=1:$goptalk2='want to take the canine?'
if gtalkrand=2:$goptalk2='you struhnya on fucked.'
if gtalkrand=3:$goptalk2='Th silent? Full mouth Cum scored?'
if gtalkrand=4:$goptalk2='but in your mouth already Ssali? or not?'
if gtalkrand=5:$goptalk2='a hollow you have more? Ass or pussy?'
if gtalkrand=6:$goptalk2='I went from shock, and forgot to wipe the ass, podlizhesh tongue?'
if gtalkrand=7:$goptalk2='come to me, a ride on a scooter hairy.'
if gtalkrand=8:$goptalk2='you in the mouth berushka? Or a beggar in the ass?'
if gtalkrand=9:$goptalk2='want in your mouth Nass, to smell the sea?'
if gtalkrand=10:$goptalk2='do you like to lick struhnyu?'
gs'gopwho'
gs'goplust'
if opusk>0:
	 'hey <<$goptalk>>, <<$goptalk2>> <<$gopnik>>'
	 act 'Wait until suitable Gopnik':
		 cla
		 'To you came Gopnik'
		 if gopopusday!day:
			 'You brought us babosy?.'
			 if money>=2000:
				 act 'give money':
					 cla
					 money-=2000
					 gopopusday=day
					 'You gave money goparyam.'
					 act 'Get_Away.':gt'street'
					 if GLust>0: 
						 cla
						 '<<$gopnik>>'
						 'Come with us, stick to tea.'
						 act 'Go with Gopnik':gt'gopnew','sexstart'
						 end
					 end
				 else
				 act 'children, you`re_welcome, I have no money':
					 cla
					 'you prayed "children, you`re_welcome, I have no money", you immediately embedded in the stomach, ebalo Zavala bitch. I see you do not vkurivaesh the seriousness of your situation. Soot this filth in the car, go punish her.'
					 act 'In the car':gt'gopnew','degrading'
					 end
				 end
			 end
		 if gopopusday=day:
			 if GLust>0: 
				 cla
				 '<<$gopnik>>'
				 'Come with us, stick to tea.'
				 act 'Go with Gopnik':gt'gopnew','sexstart'
				 else
				 'Fair_Enough, stamp your here, while we are good.'
				 act 'Get_Away.':gt'street'
				 end
			 end
		 end
	 act 'make an appearance, that you did not notice.':
		 cla
		 'You have tried to make it look, that do not see Gopnik and went to his house.'
		 if gopopusday=day:
			 'Gopnik neighing "Look how rushed. Probably her there fresh dick kisnet, and we distract her."'
			 act 'Run into the apartment.':gt'street'
			 end
		 if gopopusday!day:
			 'Gopnik immediately catch up with you and surrounded. "You slut struhnya in the ears or something hit? Not slyshish that appeal to you."'
			 'You brought us babosy?.'
			 if money>=2000:
				 act 'give money':
					 cla
					 money-=2000
					 gopopusday=day
					 'You gave money goparyam.'
					 act 'Get_Away.':gt'street'
					 if GLust>0: 
						 cla
						 '<<$gopnik>>'
						 'Come with us, stick to tea.'
						 act 'Go with Gopnik':gt'gopnew','sexstart'
						 end
					 end
				 else
				 act 'children, you`re_welcome, I have no money':
					 cla
					 'you prayed "children, you`re_welcome, I have no money", you immediately embedded in the stomach, ebalo Zavala bitch. I see you do not vkurivaesh the seriousness of your situation. Soot this filth in the car, go punish her.'
					 act 'In the car':gt'gopnew','degrading'
					 end
				 end
			 end
		 end
	 exit
	 end
if sipovka>0:
	 'Hey sipovka shout you Gopnik. <<$gopnik>>'
	 if GLust>0: 
		 cla
		 'Come with us, stick to tea.'
		 act 'Go with Gopnik':gt'gopnew','sexstart'
		 act 'Get_Away.':gt'street'
		 else
		 'Fair_Enough, stamp your here, while we are good.'
		 act 'Get_Away.':gt'street'
		 end
	 exit
	 end
if rosetka>0:
	 'Hey outlet shout you Gopnik. <<$gopnik>>'
	 if GLust>0: 
		 cla
		 'Come with us, stick to tea.'
		 act 'Go with Gopnik':gt'gopnew','sexstart'
		 act 'Get_Away.':gt'street'
		 else
		 'Fair_Enough, stamp your here, while we are good.'
		 act 'Get_Away.':gt'street'
		 end
	 exit
	 end
if loh>0:
	 'Hey lohushka shout you Gopnik. <<$gopnik>>'
	 if gopdolg>0 and gopdaydolg>daystart:
		 'Do not forget, of duty.'
		 end
	 if gopdolg>0 and gopdaydolg<=daystart:
		 'what, slut, earned money?'
		 if money>=gopdolg:
			 act 'Checkout.':
				 cla
				 money-=gopdolg
				 gopdolg=0
				 'you gave <<gopdolg>> rubles Gopnik.'
				 act 'Get_Away.':gt'street'
				 end
			 else
			 'You have admitted that you have no money, that would pay Gopnik. they chuckled, then kneel, slut.'
			 act 'Kneel before Gopnik':gt'gopnew','rapebj'
			 end
		 exit
		 end
	 act 'Get_Away.':gt'street'
	 exit
	 end
if gnewQW=4:
	 '!hey, Sveta sweetie, go pivas drink? <<$gopnik>>'
	 act 'I would like to, but I hasten':
		 cla
		 '(Do_You) - Excuse_Me, but I hasten'
		 '(Vasya) - Yes_I_Am, fair_enough, sit half an hour, chat, have_time.'
		 act 'drink pivasika':gt'gopnew','pivas'
		 act 'go':gt'street'
		 end
	 act 'drink pivasika':gt'gopnew','pivas'
	 end
if gnewQW=3:
	 set gopota+=5
	 set gnewQW=4
	 'It`S_Great, Light you say cops swept, but you have done no one passed, sit down raskazhesh has passed. <<$gopnik>>
	 You sat down and began to Gopnik raskazyvat, omitting some details. When you have finished, one of Gopnik said "We find this Cop bitch on a leash and you lurk, You shall have klasnaya sobachenka" they began to laugh, and you.'
	 act 'Get_Away.':gt'street'
	 end
if gnewQW=2:
'hey, Sveta sweetie, go pivas drink, or you can walk through the park in good suckers pootzhimat? <<$gopnik>>'
	 act 'I would like a beer, but I hasten':
		 cla
		 '(Do_You) - Excuse_Me, but I hasten'
		 '(Vasya) - Yes_I_Am, fair_enough, sit half an hour, chat, have_time.'
		 act 'drink pivasika':gt'gopnew','pivas'
		 act 'Get_Away':gt'street'
		 end
	 act 'drink pivasika':gt'gopnew','pivas'
	 act 'Go to delyugu':
		 *clr
		 cla
		 '<center><img src="pic/park.jpg" ></center>'
		 Set goprandwork = RAND (1,100)
		 if goprandwork < 75:
			 cla
			 Set minut+=60
			 'You poshlyatsya with Kompashki, but suckers will not see.'
			 Set gopota+=1
			 act 'go home':gt 'street'
			 end
		 if goprandwork >= 75 and goprandwork < 95:
			 cla
			 set gopstop+=1
			 Set gopota+=1
			 Set minut+=60
			 'You boys overcame mobilku, but passing Mobil pawnshop you got money only pivas.'
			 act 'go home':gt 'street'
			 end
		 if goprandwork >= 95:
			 cla
			 set gopstop+=1
			 Set gopota+=1
			 Set minut+=60
			 Set randmon = RAND (50,500)
			 Set money = money + randmon
			 'You boys have pressed the suckers money and mobile telephones, surrendering to the pawnshop , you got <<randmon>> rubles.'
			 act 'go home':gt 'street'
			 end
		 end
	 end
if gnewQW=1:
	 'hey, Sveta sweetie, go pivas drink? <<$gopnik>>'
	 act 'I would like to, but I hasten':
		 cla
		 '(Do_You) - Excuse_Me, but I hasten'
		 '(Vasya) - Yes_I_Am, fair_enough, sit half an hour, chat, have_time.'
		 act 'drink pivasika':gt'gopnew','pivas'
		 act 'go':gt'street'
		 end
	 act 'drink pivasika':gt'gopnew','pivas'
	 end
if gnewQW=0:
	 'One of them is recovering cap, thieves step is sent to you. "hello! Are you cool chick, will pivas for familiarity?"'
	 act 'drink pivasika':gt'gopnew','pivas'
	 act 'No':
		 cla
		 'You shook your head and come to move on, but Gopnik not going to give up so easy.'
		 '(Gopnik) - Yes_I_Am, Relax you, no you will not do anything wrong, we are decent guys, rather than what you scumbags.'
		 act 'Fair_Enough, let`s go have a cup of beer':gt'gopnew','pivas'
		 act 'I told, no.':
			 cla
			 *clr
			 'You have already given up hooligan sharper, implying, they do not intend to drink beer with them. Gopar viciously squinted, "Brezguesh our society?"'
			 act 'Fair_Enough, let`s go have a cup of beer':gt'gopnew','pivas'
			 act 'Get off me':
				 cla
				 'You said rudely hooligan fork, but he grabbed you by the hand and angrily hissed. "You`re not right bitch, come to you with good intentions, and you are rude. I will ask to you for it."'
				 'Gopar took you by the hand and pulled into the driveway.'
				 act 'resist':
					 cla
					 'You tried to snatch her вЂ‹вЂ‹hand from his grasp , which almost knocked you to the ground.'
					 'He roughly pulled into the driveway and you against the wall.'
					 act 'What do you want from me?':gt'gopnew','bazar'
					 end
				 act 'obey':
					 cla
					 'You dutifully trudged for Gopnik. He roughly pulled into the driveway and you against the wall.'
					 act 'What do you want from me?':gt'gopnew','bazar'
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0]='pivas':
'<center><B>Yard at the house</B></center>'
'<center><img src="pic/dvor.jpg" ></center>'
minut+=30
gs'stat'
'You and the guys went to the playground, where sat on the bench.'
if cumface>0 or cumlip > 0 or cumfrot > 0:
	 'Bob looked closer to you, "fuck, yes you`re in struhne, ohuet and sat with us zaforshmachennaya pivas drink, go bitch, need to talk"'
	 act 'Go through the gate with the boys':gt'gopnew','bazar'
	 exit
	 end
if gnewQW>0:
	 'You sat down with the guys on the bench and began to drink beer.'
	 'For the playground came burly Udmurt and shaven bald Grey.'
	 if film>0:
		 pfknowrand=RAND(0,100)
		 if film>=pfknowrand:filmknow=1
		 end
	 if filmknow=1:
		 'Udmurt sat on the bench and keep an eye you. Suddenly he turned to you a rough voice sipyaschim "Slysh, where I could see you before?"'
		 'You shrugged, But you never know where, I live here. Udmurt scratched his head. "epta, tochnyak, Look guys." Udmurt got Mobil and began to show that that kid.'
		 'You hear from the speakers as the phone a woman`s moans and sucking sounds. Boys in unison to squeeze out "ohuet, you whore."'
		 'Udmurt silently turned the phone screen to you and you saw, that it is a video where you suck dick.'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 if kavslut >= 3:
		 kavknowrand=RAND(0,100)
		 if kavknowrand>=95:kavslutknow=1
		 end
	 if kavslutknow=1:
		 'Gray looked at you and smiled evil. "hey guys, I`ll tell you one now prikolyuh. In_short, I cook Ashot, Well, told how they Givi, waitress in all holes after work zhuchat. He showed me the Shmarev. In_short, you are now with her pivas Buchau, ha ha, prikinte, it you schA struhnyu Ashot in bottle pivasom let, and?"'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 if frot>=3:
		 frotknowrand=RAND(0,100)
		 if frot>=frotknowrand:frotknow=1
		 end
	 if frotknow=1:
		 'Gray looked at you and smiled evil. "hey guys, I`ll tell you one now prikolyuh. In_short, I for one huylo pogonyalom Grater, such prikolyuh told, he rides on the subway and Babskii zhoptsam sticks, that would rub on them. so, says was got on the subway faultless slut always ready for suffering ass podstvait for friendship. He it on mobile sfotkal. So this is your Light is the very slut Underground, in funny yes?'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 end
if gnewQW=0:
	 gnewQW=1
	 'boys introduce themselves, the one who invited you call Bob Nail, long blond Birch, small, swarthy and apelike Vitek, and a skinny guy named Crutch.'
	 'Bob opened the baklashku with pivasom and drank from it, then passed around the circle baklashku.'
	 'For the playground came not tall and burly shaven bald guy with gold teeth.'
	 'Fortress introduced Udmurtia, and zolotozuby turned gray.'
	 if film>0:
		 pfknowrand=RAND(0,100)
		 if film>=pfknowrand:filmknow=1
		 end
	 if filmknow=1:
		 'Udmurt sat on the bench and keep an eye you. Suddenly he turned to you a rough voice sipyaschim "Slysh, where I could see you before?"'
		 'You shrugged, But you never know where, I live here. Udmurt scratched his head. "epta, tochnyak, Look guys." Udmurt got Mobil and began to show that that kid.'
		 'You hear from the speakers as the phone a woman`s moans and sucking sounds. Boys in unison to squeeze out "ohuet, you whore."'
		 'Udmurt silently turned the phone screen to you and you saw, that it is a video where you suck dick.'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 if kavslut >= 3:
		 kavknowrand=RAND(0,100)
		 if kavknowrand>=95:kavslutknow=1
		 end
	 if kavslutknow=1:
		 'Gray looked at you and smiled evil. "hey guys, I`ll tell you one now prikolyuh. In_short, I cook Ashot, Well, told how they Givi, waitress in all holes after work zhuchat. He showed me the Shmarev. In_short, you are now with her pivas Buchau, ha ha, prikinte, it you schA struhnyu Ashot in bottle pivasom let, and?"'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 if frot>=3:
		 frotknowrand=RAND(0,100)
		 if frot>=frotknowrand:frotknow=1
		 end
	 if frotknow=1:
		 'Gray looked at you and smiled evil. "hey guys, I`ll tell you one now prikolyuh. In_short, I for one huylo pogonyalom Grater, such prikolyuh told, he rides on the subway and Babskii zhoptsam sticks, that would rub on them. so, says was got on the subway faultless slut always ready for suffering ass podstvait for friendship. He it on mobile sfotka. So this is your Light is the very slut Underground, in funny yes?'
		 'Bob angrily threw a beer bottle towards. "You bastard beer obschakovoe their fucking lips zafarshmachila. Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 if bomjshet >= 3:
		 bomjknowrand = RAND(0,100)
		 if bomjknowrand >= 95:bomjknow=1
		 end
	 if bomjknow=1:
		 'Gray for a few minutes then looked at you, then on the phone, squinted, if that- then looked at. After he gave the kid a mobile phone and said "Listen, pozyrte, I immediately threw garbage, and there is some woman- boobs showed that homeless, it, do_not?". The phone went on hands, then looked at him, then you. You blushed, then Bob said "shit, yeah exactly it!"'
		 'Bob angrily threw a beer bottle towards. "You do bomzhiha ohuel us yashkatsya? Let`S_Go, Bazaar for you there."'
		 act 'Go through the gate with the boys':gt'gopnew','bazar'
		 exit
		 end
	 end
'You sat on the bench and drank beer with Gopnik.'
'<<$gopnik>>'
set gopota+=1
if gnewQW>1:
	 if VasanTut=2 or BerezaTut=2 or VitekTut=2 or KostilTut=2 or UdmurtTut=2 or SeriTut=2:gt'gopnew','sexstart'
	 end
act 'go':gt'street'
end

if $ARGS[0]='bazar':
'You are fearfully mumbled "What do you want from me?". And at that moment it hit you in the gut. "Shut up bitch."'
'The first goparyu joined by his three cronies and surrounded you.'
'(Gopar) - You bitch rights not specifically. I`m Bob Nail. I know the area at all, and you saucy slut specifically zagrubit. You owe me!'
'Bob shook you roughly by the shoulders "You agree bitch?"'
if magic > 0:'At this point you felt someone-something wicked and mighty magical power, which suppresses your and does not use against Gopnik.'
act 'I_agree':
	 cla
	 *clr
	 'Bob turned to buddies. "everyone has heard? she agrees, that she did and that she should be a bitch."'
	 act 'I`m not a bitch!':
		 cla
		 *clr
		 'who snitch, that in the mouth fuck?'
		 act 'Yes_I_Am':
			 cla
			 *clr
			 'Then you waiting huyli? Take on the canine, because you pizdobolka. eyewitnesses confirm. You do agree that you bitch and napizdela us, you`re not a bitch. Moreover.'
			 act 'Kneel before Gopnik':gt'gopnew','rapebj'
			 act 'Opt_Out':
				 cla
				 *clr
				 'You said tvordo, no. And then in the head like a shell burst. Bob hit you in the face with his fist. You flew from his shock and strong neck kissed the wall. Legs were like cotton and forces stand no more.'
				 act 'Kneel before Gopnik':gt'gopnew','rapebj'
				 end
			 end
		 act 'No':
			 cla
			 *clr
			 'you ohuel? Pizdabolka! Immediately you strongly embedded in the stomach and strength to stay on his feet left.'
			 act 'Kneel before Gopnik':gt'gopnew','rapebj'
			 end
		 act 'I do not pizzhu!':
			 cla
			 *clr
			 'You bitch twice napizdela! boys, you may have heard? Boys readily confirmed. Bob turned to you. "I`ll bitch now `ll knock your teeth, even if you will complain."'
			 'You agree, you pizdobolka?'
			 act 'I_agree':
				 cla
				 *clr
				 'You agree not seeing the other way. Bob nodded and said "Well, then on his knees, I`m your fucking mouth shoving his dick, to complain could no longer."'
				 act 'Kneel before Gopnik':gt'gopnew','rapebj'
				 end
			 act 'No':
				 cla
				 *clr
				 'you ohuel? Pizdabolka! Immediately you strongly embedded in the stomach and strength to stay on his feet left.'
				 act 'Kneel before Gopnik':gt'gopnew','rapebj'
				 end
			 end
		 end
	 act 'keep_silent':
		 cla
		 *clr
		 'So understood. You bitch and specifically nakosyachila. Now you owe me.'
		 act 'how_Much?':gt'gopnew','dolg'
		 end
	 end
act 'No!':
	 cla
	 *clr
	 'Explain why you do not agree. Are you? I think pizdobolom?'
	 act 'Yes_I_Am, you pizdobol':
		 cla
		 *clr
		 'you ohuel? Pizdabolka! Immediately you strongly embedded in the stomach and strength to stay on his feet left.'
		 act 'Kneel before Gopnik':gt'gopnew','rapebj'
		 end
	 act 'No, you do not pizdobol':
		 cla
		 *clr
		 'Well then turns, you bitch and pizdobolka.'
		 act 'agree':
			 cla
			 'So understood. you bitch, pisdobolka and specifically nakosyachila. Now you owe me.'
			 act 'how_Much?':gt'gopnew','dolg'
			 end
		 act 'disagree':
			 cla
			 'You Th bitch, hardheaded. After it roar Bob punched you in the face with his fist.'
			 act 'Fall on his knees before Gopnik':gt'gopnew','rapebj'
			 end
		 end
	 end
end

if $ARGS[0]='rapebj':
minut+=3
rape+=1
'<center><img src = "pictures/rapebj.jpg"></center>'
'Bob pulled out his dick is not washed . he growled "Hula you tupish bitch? razevat ebalo."'
act 'Clasp member lips':
	 cla
	 *clr
	 if vasansex=0:vasansex=1&guy+=1
	 bj+=1
	 '<center><img src = "pictures/rapebj1.jpg"></center>'
	 'You clasped lips purple member Bob which is located in front of your face just seemed huge and slowly began to suck.'
	 'Bob growled at you "What is this garbage? Suck on normal, vaflersha."'
	 act 'try':gt'gopnew','tf'
	 act 'Suck sucking':gt'gopnew','tf'
	 end
act 'Lick dick language':
	 cla
	 *clr
	 if vasansex=0:vasansex=1&guy+=1
	 bj+=1
	 '<center><img src = "pictures/rapebj2.jpg"></center>'
	 'You open your mouth and gently touched to a hot tongue member.'
	 'Bob growled at you "What is this garbage? Suck on normal, vaflersha."'
	 act 'suck':gt'gopnew','tf'
	 act 'lick on':gt'gopnew','tf'
	 end
act 'No!':
	 cla
	 *clr
	 if vasansex=0:vasansex=1&guy+=1
	 bj+=1
	 '<center><img src = "pictures/rapebj3.jpg"></center>'
	 'Bob grabbed you by the hair with one hand, and the other strongly squeezed his throat and planted your mouth on his hat.'
	 act 'chokes':gt'gopnew','tf'
	 end
end

if $ARGS[0]='tf':
minut+=3
throat+=1
'<center><img src = "pictures/rapebjt2.jpg"></center>'
'Bob holding your hair began to fuck you in the mouth. His cock hit you in the throat causing gagging reaction and causing tears streaming from his eyes.'
'You choke on these impacts in a throat.'
act '.....':
	 cla
	 *clr
	 minut+=3
	 '<center><img src = "pictures/rapebjt.jpg"></center>'
	 'Suddenly Bob severe blow member drove it in your throat to the ground and began to hold you for a head. you feel, that you are going to throw up.'
	 act '.....':
		 cla
		 *clr
		 minut+=3
		 facial+=1
		 cumface+=1
		 if mop!1:mop=0
		 gs'stat'
		 '<center><img src = "pictures/rapebjcum.jpg"></center>'
		 'Bob abruptly pulled out of your throat cock and started to cum on your face. He growled at you "what are you waiting, slut lowered? Clean Language."'
		 act 'clean Language':
			 cla
			 *clr
			 minut+=3
			 swallow+=1
			 cumlip+=1
			 gs'stat'
			 '<center><img src = "pictures/rapebjcum2.jpg"></center>'
			 'You wrapped around his lips smeared with warm sperm head and began to suck her cum swallowing.'
			 'Soon Vasyanya is tired and he tore your mouth from his cock clean "Now listen here Shmarev. You lowered vaflersha, fuck, slut and proshmandovka, Now as an apology will come every day and pay me two mower, and fuck me like you earned it, i_get_it? If you do not bring, I`ll shove a bottle in the pussy and in the belly pendalya ladies, that she would burst tearing apart your pizden. And do not try to hide from me, I you `ll get out of the ground, and mentovku Claim, my pals in the woods you will remove, vobyut ass handle of a shovel, and then buried with this shovel in the ass. You all clear?"'
			 'And do not forget bitch, you are my property and do not have the right to vote. My pals can have fun with you when they want, it_is_clear? slut.'
			 act 'Yes_I_Am':
				 cla
				 *clr
				 minut+=3
				 opusk=1
				 '<center><img src = "pictures/spit.jpg"></center>'
				 'Bob grabbed your hand and spit in your face, then hit you in the stomach and you fell.'
				 'Someone of the guys said "Vasya, oh well, enough already with this whore." Bob growled "use boys, slut."'
				 'In the driveway ran some guy and hissed "Atas boys, waste" Lightning Gopnik resorbed from the gateway leaving you lying on the asphalt in Koncha, saliva, snot and tears.'
				 act 'Get_Away':gt'street'
				 end
			 end
		 end
	 end
end

if $ARGS[0]='dolg':
minut+=3
loh+=1
gopdolg=money+stolmoney+karta+10000
gopdaydolg=daystart+10
'through 10 days you give <<gopdolg>> rubles. And I do not fuck where you are going to take them, though by a pussy while trading, I FSUs, money to be. Where to find us you know, if she does not come, then we will come to you and deal with you harshly. truncated? Now get out of here slut.'
act 'Get_Away':gt'street'
act 'children, it`s too much, I do not have that kind of money':
	 cla
	 '(Do_You) - children, it`s too much, I do not have that kind of money'
	 '(Vasya) - And who is fuck?'
	 act 'Get_Away':gt'street'
	 act 'Maybe something like a different take?':
		 cla
		 '(Do_You) - Maybe something like a different take?'
		 '(Vasya) - Well.'
		 act 'Get_Away':gt'street'
		 act 'payment in kind':
			 set sipovka+=1
			 set gopdolg=0
			 set VasanTut=3
			 gt'gopnew','sexstart'
			 end
		 end
	 end
end

!rosetka
!sipovka
if $ARGS[0]='sexstart':
minut+=3
if opusk>0 or sipovka>0:
	 if GLust=1:
		 if tiprand=0:gt'gopnew','1'
		 if tiprand=1:gt'gopnew','11'
		 if tiprand=2:gt'gopnew','12'
		 end
	 if GLust=2:gt'gopnew','2'
	 if GLust=3:gt'gopnew','3'
	 if GLust=4:gt'gopnew','4'
	 if GLust=5:gt'gopnew','5'
	 if GLust=6:gt'gopnew','6'
	 end
if opusk=0 and sipovka=0:
	 if GLust=2:
		 'Two Gopnik suggest you to go with them into the driveway'
		 act 'Agree to fuck with two':sipovka+=1&gt'gopnew','2'
		 end
	 if GLust=3:
		 'Three Gopnik suggest you to go with them into the driveway'
		 act 'Agree to fuck with three':sipovka+=1&gt'gopnew','2'
		 end
	 if GLust=4:
		 'Four Gopnik suggest you to go with them into the driveway'
		 act 'Agree to fuck with four':sipovka+=1&gt'gopnew','2'
		 end
	 if GLust=5:
		 'Five Gopnik suggest you to go with them into the driveway'
		 act 'Agree to fuck with five':sipovka+=1&gt'gopnew','2'
		 end
	 if GLust=6:
		 'Six Gopnik suggest you to go with them into the driveway'
		 act 'Agree to fuck with six':sipovka+=1&gt'gopnew','2'
		 end
	 if VasanTut=2:
		 'Bob offers you to go with him into the driveway'
		 act 'Go with Vasyanya':VasanTut=3&dynamic $gopsexboy1
		 end
	 if BerezaTut=2:
		 'Birch offers you to go with him into the driveway'
		 act 'Go with birch':BerezaTut=3&dynamic $gopsexboy1
		 end
	 if VitekTut=2:
		 'Witek offers you to go with him into the driveway'
		 act 'Go with Vityok':VitekTut=3&dynamic $gopsexboy1
		 end
	 if KostilTut=2:
		 'Crutch offers you to go with him into the driveway'
		 act 'Go with crutches':KostilTut=3&dynamic $gopsexboy1
		 end
	 if UdmurtTut=2:
		 'Udmurt offers you to go with him into the driveway'
		 act 'Go with Udmurtia':UdmurtTut=3&dynamic $gopsexboy1
		 end
	 if SeriTut=2:
		 'Grey offers you to go with him into the driveway'
		 act 'Go gray':SeriTut=3&dynamic $gopsexboy1
		 end
	 act 'Get_Away':gt'street'
	 end
end


if $ARGS[0]='1':
minut+=15
gs'stat'
vagina+=1
sex+=1
Set cumass  = cumass  + 1
set picrand = RAND (1,6)
if picrand = 1:'<center><img src="pics/gopslut.jpg" ></center>'
if picrand = 2:'<center><img src="pics/gopslut2.jpg" ></center>'
if picrand = 3:'<center><img src="pics/gopslut3.jpg" ></center>'
if picrand = 4:'<center><img src="pics/gopslut4.jpg" ></center>'
if picrand = 5:'<center><img src="pics/gopslut5.jpg" ></center>'
if picrand = 6:'<center><img src="pics/gopslut6.jpg" ></center>'
'<<$guygop>> Turns you into a secluded place, which puts a pose and fucks.'
Set horand = RAND (1,100)
if horand > horny:
	 Set horny = horny + 10
	 'You were not satisfied'
	 else
	 Set horny = 0
	 set orgasm+=1
	 'You covered orgasm'
	 end
'<<$guygop>> kills you on the ass and wipes his penis on your ass. After this dress pants and goes on to thump.'
act 'get_away':gt 'street'
end

if $ARGS[0]='11':
minut+=15
gs'stat'
bj+=1
Set throat = throat + 1
set picrand = RAND (1,10)
if picrand = 1:'<center><img src="pics/bj.jpg" ></center>'
if picrand = 2:'<center><img src="pics/bj2.jpg" ></center>'
if picrand = 3:'<center><img src="pics/bj3.jpg" ></center>'
if picrand = 4:'<center><img src="pics/bj4.jpg" ></center>'
if picrand = 5:'<center><img src="pics/bj5.jpg" ></center>'
if picrand = 6:'<center><img src="pics/bj6.jpg" ></center>'
if picrand = 7:'<center><img src="pics/bj7.jpg" ></center>'
if picrand = 8:'<center><img src="pics/bj8.jpg" ></center>'
if picrand = 9:'<center><img src="pics/bj9.jpg" ></center>'
if picrand = 10:'<center><img src="pics/bj10.jpg" ></center>'
'You remove a member Gopnik and take it in your mouth carefully sucking.'
!'Set horand = RAND (1,100)
if horand > oral:Set horny = horny + 10&'You were not satisfied'
if horand <= oral:Set horny = 0&orgasm+=1&'You covered orgasm'
'Do you feel that <<$guygop>> now finish''
gs'oral','0'
act 'continue to suck':
	 cla
	 *clr
	 set picrand = RAND (1,10)
	 if picrand = 1:'<center><img src="pics/cum.jpg" ></center>'
	 if picrand = 2:'<center><img src="pics/cum2.jpg" ></center>'
	 if picrand = 3:'<center><img src="pics/cum3.jpg" ></center>'
	 if picrand = 4:'<center><img src="pics/cum4.jpg" ></center>'
	 if picrand = 5:'<center><img src="pics/cum5.jpg" ></center>'
	 if picrand = 6:'<center><img src="pics/cum6.jpg" ></center>'
	 if picrand = 7:'<center><img src="pics/cum7.jpg" ></center>'
	 if picrand = 8:'<center><img src="pics/cum8.png" ></center>'
	 if picrand = 9:'<center><img src="pics/cum9.jpg" ></center>'
	 if picrand = 10:'<center><img src="pics/cum10.jpg" ></center>'
	 'A powerful jet of sperm hit you in the mouth'
	 act 'swallow':
		 cla
		 Set cumlip = cumlip + 1
		 set swallow=swallow+1
		 'You swallow sperm, <<$guygop>> wipes member of your lips and leaves.'
		 act 'Get_Away':gt 'street'
		 end
	 act 'spit_out':
		 cla
		 Set cumlip = cumlip + 1
		 'You spat on the ground sperm.'
		 act 'Get_Away':gt 'street'
		 end
	 end
act 'Remove the mouth':
	 cla
	 Set bjrand = RAND (0,1)
	 set picrand = RAND (1,5)
	 if picrand = 1 and bjrand = 1:'<center><img src="pics/facial.jpg" ></center>'
	 if picrand = 2 and bjrand = 1:'<center><img src="pics/facial2.jpg" ></center>'
	 if picrand = 3 and bjrand = 1:'<center><img src="pics/facial3.jpg" ></center>'
	 if picrand = 4 and bjrand = 1:'<center><img src="pics/facial4.jpg" ></center>'
	 if picrand = 5 and bjrand = 1:'<center><img src="pics/facial5.jpg" ></center>'
	 if bjrand = 0:'You have time to remove the member from his mouth and <<$guygop>> ends by you.'
	 if bjrand = 1:Set cumface = cumface + 1&'<<$guygop>> cums on your face.'
	 if bjrand = 1:'All in your face sticky and hot sperm, Gopnik wipes member of your lips and leaves.'
	 act 'Get_Away':gt 'street'
	 end
end

if $ARGS[0]='12':
minut+=15
gs'stat'
anal+=1
anus+=1
Set cumass  = cumass  + 1
set picrand = RAND (1,6)
if picrand = 1:'<center><img src="pics/gopslut.jpg" ></center>'
if picrand = 2:'<center><img src="pics/gopslut2.jpg" ></center>'
if picrand = 3:'<center><img src="pics/gopslut3.jpg" ></center>'
if picrand = 4:'<center><img src="pics/gopslut4.jpg" ></center>'
if picrand = 5:'<center><img src="pics/gopslut5.jpg" ></center>'
if picrand = 6:'<center><img src="pics/gopslut6.jpg" ></center>'
'<<$guygop>> Turns you into a secluded place, which puts a pose and fucks.'
Set horand = RAND (1,100)
if horand > horny:
	 Set horny = horny + 10
	 'You were not satisfied'
	 else
	 Set horny = 0
	 set orgasm+=1
	 'You covered orgasm'
	 end
'<<$guygop>> kills you on the ass and wipes his penis on your ass. After this dress pants and goes on to thump.'
act 'get_away':gt 'street'
end

if $ARGS[0]='2':
minut+=30
gs'stat'
if VasanTut=3:
	$namgop='Vasya'
	else
	$namgop=''
	end
if BerezaTut=3:
	$namgop2='birch'
	else
	$namgop2=''
	end
if VitekTut=3:
	$namgop3='Vitek'
	else
	$namgop3=''
	end
if KostilTut=3:
	$namgop4='crutch'
	else
	$namgop4=''
	end
if UdmurtTut=3:
	$namgop5='Udmurt'
	else
	$namgop5=''
	end
if SeriTut=3:
	$namgop6='gray'
	else
	$namgop6=''
	end
$namgopsum='<<$namgop>> <<$namgop2>> <<$namgop3>> <<$namgop4>> <<$namgop5>> <<$namgop6>> got his penis and began to strip off your clothes.'
if GLust!2:tiprand=RAND(0,1)
if tiprand=0 and GLust!2:
     Set bj = bj + 3
	 set gang=gang+1
	 Set throat = throat + 3
	 Set cumlip = cumlip + 2
	 Set cumface = cumface + 1
	 set picrand = RAND (1,11)
	 if picrand = 1:'<center><img src="pics/tri.jpg" ></center>'
	 if picrand = 2:'<center><img src="pics/tri2.jpg" ></center>'
	 if picrand = 3:'<center><img src="pics/tri3.jpg" ></center>'
	 if picrand = 4:'<center><img src="pics/tri4.jpg" ></center>'
	 if picrand = 5:'<center><img src="pics/tri5.jpg" ></center>'
	 if picrand = 6:'<center><img src="pics/tri6.jpg" ></center>'
	 if picrand = 7:'<center><img src="pics/tri7.jpg" ></center>'
	 if picrand = 8:'<center><img src="pics/tri8.bmp" ></center>'
	 if picrand = 9:'<center><img src="pics/tri9.jpg" ></center>'
	 if picrand = 10:'<center><img src="pics/tri10.jpg" ></center>'
	 if picrand = 11:'<center><img src="pics/tri11.jpg" ></center>'
	 '<<$namgopsum>>. They put you on his haunches and began to beat their members in the face and you in turn have you in the mouth.'
	 Set horand = RAND (1,100)
	 if horand > horny:
		 Set horny = horny + 10
		 'You were not satisfied'
		 else
		 Set horny = 0
		 set orgasm+=1
		 'You covered orgasm'
		 end
	 'They obkonchalas you all face and mouth.'
	 act 'Get_Away':gt 'street'
     end
if tiprand=1 or GLust=2:
	 bj = bj + 1
	 vagina+=1
	 sex+=1
	 anal+=1
	 anus+=5
	 set gang=gang+1
	 Set throat = throat + 3
	 Set cumlip = cumlip + 2
	 Set cumface = cumface + 1
	 set picrand = RAND (1,15)
	 if picrand = 1:'<center><img src="pics/gang.jpg" ></center>'
	 if picrand = 2:'<center><img src="pics/gang2.jpg" ></center>'
	 if picrand = 3:'<center><img src="pics/gang3.jpg" ></center>'
	 if picrand = 4:'<center><img src="pics/gang4.jpg" ></center>'
	 if picrand = 5:'<center><img src="pics/gang5.jpg" ></center>'
	 if picrand = 6:'<center><img src="pics/gang6.jpg" ></center>'
	 if picrand = 7:'<center><img src="pics/gang7.bmp" ></center>'
	 if picrand = 8:'<center><img src="pics/gang8.jpg" ></center>'
	 if picrand = 9:'<center><img src="pics/gang9.jpg" ></center>'
	 if picrand = 10:'<center><img src="pics/gang10.jpg" ></center>'
	 if picrand = 11:'<center><img src="pics/gang11.jpg" ></center>'
	 if picrand = 12:'<center><img src="pics/gang12.jpg" ></center>'
	 if picrand = 13:'<center><img src="pics/gang13.jpg" ></center>'
	 if picrand = 14:'<center><img src="pics/gang14.jpg" ></center>'
	 if picrand = 15:'<center><img src="pics/gang15.jpg" ></center>'
	 '<<$namgopsum>>. They started to fuck you in all holes at a time.'
	 Set horand = RAND (1,100)
	 if horand > horny:
		 Set horny = horny + 10
		 'You were not satisfied'
		 else
		 Set horny = 0
		 set orgasm+=1
		 'You covered orgasm'
		 end
	 'You otimeli in all holes and obkonchalas from all sides.'
	 act 'Get_Away':gt 'street'
     end
end

if $ARGS[0]='degrading':
minut+=120
gs'stat'
if VasanTut=3 and vasansex=0:vasansex=1&guy+=1
if BerezaTut=3 and berezasex=0:berezasex=1&guy+=1
if VitekTut=3 and viteksex=0:viteksex=1&guy+=1
if KostilTut=3 and kostilsex=0:kostilsex=1&guy+=1
if UdmurtTut=3 and udmurtsex=0:udmurtsex=1&guy+=1
if SeriTut=3 and serisex=0:serisex=1&guy+=1
if VasanTut=3:
	 $namgop='Vasya'
	 else
	 $namgop=''
	 end
if BerezaTut=3:
	 $namgop2='birch'
	 else
	 $namgop2=''
	 end
if VitekTut=3:
	 $namgop3='Vitek'
	 else
	 $namgop3=''
	 end
if KostilTut=3:
	 $namgop4='crutch'
	 else
	 $namgop4=''
	 end
if UdmurtTut=3:
	 $namgop5='Udmurt'
	 else
	 $namgop5=''
	 end
if SeriTut=3:
	 $namgop6='gray'
	 else
	 $namgop6=''
	 end
vagina+=10
anus+=10
anal+=1
sex+=1
rape+=1
gopopusday=day
$namgopsum='<<$namgop>> <<$namgop2>> <<$namgop3>> <<$namgop4>> <<$namgop5>> <<$namgop6>> got his penis and began to strip off your clothes.'
degrand=RAND(0,8)
if degrand=0:'<center><img src = "pictures/deg.jpg"></center>'
if degrand=1:'<center><img src = "pictures/deg1.jpg"></center>'
if degrand=2:'<center><img src = "pictures/deg2.jpg"></center>'
if degrand=3:'<center><img src = "pictures/deg3.jpg"></center>'
if degrand=4:'<center><img src = "pictures/deg4.jpg"></center>'
if degrand=5:'<center><img src = "pictures/deg5.jpg"></center>'
if degrand=6:'<center><img src = "pictures/deg6.jpg"></center>'
if degrand=7:'<center><img src = "pictures/deg7.jpg"></center>'
if degrand=8:'<center><img src = "pictures/deg8.jpg"></center>'
'Gopota mocks you, You hit on the cheeks and breasts. Poke in the pussy different objects and spit in your face. After playing Gopnik let you.'
act 'Get_Away':gt 'street'
end
--- gopnew ---------------------------------

# goplust
VasanLust=RAND(0,100)
BerezaLust=RAND(0,100)
VitekLust=RAND(0,100)
KotilLust=RAND(0,100)
UdmurtLust=RAND(0,100)
SeriLust=RAND(0,100)
GLust=0


if VasanLust>=50 and VasanTut=1:
VasanTut=2
GLust+=1
$gopV='Bob Nail looks at you greedy eyes'
elseif VasanLust<80 and VasanTut=1:
$gopV='Bob Nail looks at you with indifference'
elseif VasanTut=0:
$gopV=''
end

if BerezaLust>=60 and BerezaTut=1:
BerezaTut=2
GLust+=1
$gopB='Birch looks at you with interest'
elseif BerezaLust<95 and BerezaTut=1:
$gopB='Birch is not looking at you'
elseif BerezaTut=0:
$gopB=''
end

if VitekLust>=60 and VitekTut=1:
VitekTut=2
GLust+=1
$gopVi='Vitek on taking his eyes from your chest'
elseif VitekLust<90 and VitekTut=1:
$gopVi='Vitek delves into the phone'
elseif VitekTut=0:
$gopVi=''
end

if KotilLust>=70 and KostilTut=1:
KostilTut=2
GLust+=1
$gopK='Crutch rummage your figure leer'
elseif KotilLust<90 and KostilTut=1:
$gopK='Crutch schelykaet Semyon'
elseif KostilTut=0:
$gopK=''
end

if UdmurtLust>=80 and UdmurtTut=1:
UdmurtTut=2
GLust+=1
$gopU='Udmurt stared hard look at you and you can see how in his pants, bulge between his legs grows.'
elseif UdmurtLust<90 and UdmurtTut=1:
$gopU='Udmurt squats and spits on the pavement'
elseif UdmurtTut=0:
$gopU=''
end

if SeriLust>=90 and SeriTut=1:
SeriTut=2
GLust+=1
$gopS='Grey spits on the pavement through his gold teeth and grinning slyly staring at your feet.'
elseif SeriLust<95 and SeriTut=1:
$gopS='Gray turned and talking on the phone'
elseif SeriTut=0:
$gopS=''
end

$gopnik='<<$gopV>> <<$gopB>> <<$gopVi>> <<$gopK>> <<$gopU>> <<$gopS>>'
--- goplust ---------------------------------

# gopwho
VasanTut=1
brand=RAND(1,100)
if brand>=40:
BerezaTut=1
else
BerezaTut=0
end
vrand=RAND(1,100)
if vrand>=50:
VitekTut=1
else
VitekTut=0
end
krand=RAND(1,100)
if krand>=60:
KostilTut=1
else
KostilTut=0
end
urand=RAND(1,100)
if urand>=70:
UdmurtTut=1
else
UdmurtTut=0
end
srand=RAND(1,100)
if srand>=80:
SeriTut=1
else
SeriTut=0
end
--- gopwho ---------------------------------

# avtonorm

if car = 1:set normhour = 20
if car = 2:set normhour = 20
if car = 3:set normhour = 20
if car = 4:set normhour = 20
if car = 5:set normhour = 20
if car = 6:set normhour = 20
if car = 7:set normhour = 20
if car = 8:set normhour = 20
if car = 9:set normhour = 15
if car = 10:set normhour = 18
if car = 11:set normhour = 15

if car >= 95:set normhour = 50



if wrek = 0:
set normneed = tehcar - teh
set normrem = normneed*normhour
end
if wrek = 1:
set normneed = tehcar - teh
set normremK = (normneed*normhour)*70
set normrem = (normneed*normhour)+ normremK
end
--- avtonorm ---------------------------------

# avt

!set tehNT = 200
!set tehT = RAND (10,200)



if tehT >= tehNT*75/100:set $tehT = 'The machine is in excellent condition.'
if tehT < tehNT*75/100 and tehT >= tehNT*50/100:set $tehT = 'When the engine have any extraneous noise'
if tehT < tehNT*50/100 and tehT >= tehNT*25/100:set $tehT = 'The car rumbles and smokes.'
if tehT < tehNT*25/100:set $tehT = 'As the toilet was able to start the engine it is not clear.'

if carT = 1:
if tehT >= tehNT*75/100:set bupay = RAND (100000,180000)
if tehT < tehNT*75/100 and tehT >= tehNT*50/100:set bupay = RAND (60000,130000)
if tehT < tehNT*50/100 and tehT >= tehNT*25/100:set bupay = RAND (35000,65000)
if tehT < tehNT*25/100:set bupay = RAND (15000,50000)
end

if carT = 2:
if tehT >= tehNT*75/100:set bupay = RAND (80000,100000)
if tehT < tehNT*75/100 and tehT >= tehNT*50/100:set bupay = RAND (50000,90000)
if tehT < tehNT*50/100 and tehT >= tehNT*25/100:set bupay = RAND (30000,60000)
if tehT < tehNT*25/100:set bupay = RAND (15000,40000)
end

--- avt ---------------------------------

# avb

if car = 1:
     if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
     if wrek=0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (50000,100000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (40000,60000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (20000,40000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (10000,20000)
	 end
end

if car > 1 and car < 6:
     if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
     if wrek = 0:
     if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (100000,200000)
     if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (80000,120000)
     if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (60000,90000)
     if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,70000)
     end
end

if car >= 6 and car < 11:
     if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
     if wrek = 0:
     if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (150000,220000)
     if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (100000,160000)
     if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (80000,120000)
     if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,90000)
     end
end

if car >= 11 and car <= 12:
     if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
     if wrek = 0:
     if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (70000,100000)
     if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (40000,80000)
     if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (20000,60000)
     if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (10000,30000)
     end
end

if car = 95:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (500000,900000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (400000,600000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (300000,500000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,300000)
	 end
end

if car = 96:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,4800000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1150000,2550000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1160000)
	 end
end

if car = 97:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (1000000,1800000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (540000,1200000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (150000,550000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,160000)
	 end
end

if car = 98:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,4800000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1150000,2550000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1160000)
	 end
end

if car = 99:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (2000000,3800000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (1540000,2200000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (550000,1550000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,560000)
	 end
end

if car = 100:
     if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
	 if wrek = 0:
	 if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,5800000)
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1550000,2550000)
	 if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1560000)
	 end
end

--- avb ---------------------------------

# zaprF
if $ARGS[0]='start':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>AZS</B></center>'
'<center><img src="pic/zapr.jpg" ></center>'
'advert, in connection with the features of the device gas stations, all cars are filled up to a full tank.'
'cost 1 liter of gasoline 30 rubles.'
if car > 0:
	 if cardrive = 6 or cardrive = 21:'At the gas station stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end
set zprbenz = 40 - benz
if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
	 set zprbenz = 40 - benz
	 if zprbenz*30 <= money:
		 act 'fill petrol':
			 cla
			 *clr
			 set benz = 40
			 set zprpay = zprbenz*30
			 set money = money - zprpay
			 if pol > 0:'<center><img src="pic/zapr1.jpg" ></center>'
			 'You have filled a full tank and paid <<zprpay>> rubles.'
			 act 'remove gun':gt 'zaprF','start'
			 end
		 else
			 'You do not have enough money at the gas station.'
		 end
	 end
if car > 0:
	 act 'Buy canister 5liters of gasoline 150 RUB':
		 cla
		 set kanistra = kanistra + 1
		 set money = money - 150
		 'You bought a canister of gasoline. (it is automatically added to the trunk)'
		 act 'remove gun':gt 'zaprF','start'  
		 end
	 end
     act 'Get_Away':
	     if cardrive = 6:
		 gt'nord'
		 elseif cardrive = 21:
		 gt'gorodok'
		 elseif litltown=0:
		 gt'nord'
		 elseif litltown=1:
		 gt'gorodok'
		 end
	 end
end
--- zaprF ---------------------------------

# autosalonF
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
set cartraid = 1
'<center><B>auto_show</B></center>'
'<center><img src="pic/manager.jpg" ></center>'
'List of cars for sale'
'<a href="exec:GS ''carF1'',''car''">VAZ 2107</a>. - new, price 200sput'
'<a href="exec:GS ''carF1'',''car2''">VAZ 2115</a>. - new, price 310sput'
'<a href="exec:GS ''carF1'',''car3''">VAZ 2113</a>. - new, price 290sput'
'<a href="exec:GS ''carF1'',''car4''">VAZ 2114</a>. - new, price 300sput'
'<a href="exec:GS ''carF1'',''car5''">VAZ 2110</a>. - new, price 350sput'
'<a href="exec:GS ''carF1'',''car6''">Kalina VAZ</a>. - new, price 400sput'
'<a href="exec:GS ''carF1'',''car7''">WHA PRIORA</a>. - new, price 450sput'
'<a href="exec:GS ''carF1'',''car8''">Chevrolet NIVA</a>. - new, price 500sput'
'<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - new, price 500sput'
'<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - new, price 600sput'
'<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - new, price 1 million'
'<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - new, price 5 million'
'<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - new, price 2 million'
'<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - new, price 5 million'
'<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - new, price 4,5million'
'<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - new, price 8million'
act 'Talk to the manager':gt'autosalonF','manager1'
act 'Get_Away':gt'Nord'
end

if $ARGS[0]='manager1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
'<center><B>auto_show</B></center>'
'<center><img src="pic/manager.jpg" ></center>'
'In the bank <<karta>> rubles'
*nl
'Manager friendly smiles and says. To purchase , we do not work for cash payment. As it is impossible to have two cars, excuse_me, but this is a new, antiprobkovy Law City Hall.'
act 'Get_Away':gt'Nord'
     if prava = 1 and car = 0:
         if karta >= 200000:
             act 'Buy VAZ 2107 (200 sput)':
             cla
             *clr
             set karta = karta - 200000
             set $car = 'VAZ 2107'
             set car = 1
             set benz = 3
             set cardrive = 8
             set teh = 200
             set tehcar = 200
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 310000:
             act 'Buy VAZ 2115 (310 sput)':
             cla
             *clr
             set karta = karta - 310000
             set $car = 'VAZ 2115'
             set car = 2
             set benz = 3
             set cardrive = 8
             set teh = 300
             set tehcar = 300
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 290000:
             act 'Buy VAZ 2113 (290 sput)':
             cla
             *clr
             set karta = karta - 290000
             set $car = 'VAZ 2113'
             set car = 3
             set benz = 3
             set cardrive = 8
             set teh = 290
             set tehcar = 290
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 300000:
             act 'Buy VAZ 2114 (300 sput)':
             cla
             *clr
             set karta = karta - 300000
             set $car = 'VAZ 2114'
             set car = 4
             set benz = 3
             set cardrive = 8
             set teh = 300
             set tehcar = 300
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 350000:
             act 'Buy VAZ 2110 (350 sput)':
             cla
             *clr
             set karta = karta - 350000
             set $car = 'VAZ 2110'
             set car = 5
             set benz = 3
             set cardrive = 8
             set teh = 350
             set tehcar = 350
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 400000:
             act 'Buy VAZ Kalina (400 sput)':
             cla
             *clr
             set karta = karta - 400000
             set $car = 'Kalina VAZ'
             set car = 6
             set benz = 3
             set cardrive = 8
             set teh = 400
             set tehcar = 400
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 450000:
             act 'Buy VAZ Priora (450 sput)':
             cla
             *clr
             set karta = karta - 450000
             set $car = 'WHA PRIORA'
             set car = 7
             set benz = 3
             set cardrive = 8
             set teh = 450
             set tehcar = 450
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 500000:
             act 'Buy Chevrolet Niva (500 sput)':
             cla
             *clr
             set karta = karta - 500000
             set $car = 'Chevrolet NIVA'
             set car = 8
             set benz = 3
             set cardrive = 8
             set teh = 500
             set tehcar = 500
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 500000:
             act 'Buy UAZ Hunter (500 sput)':
             cla
             *clr
             set karta = karta - 500000
             set $car = 'UAZ HUNTER'
             set car = 9
             set benz = 3
             set cardrive = 8
             set teh = 300
             set tehcar = 300
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 600000:
             act 'Buy UAZ Patriot (600 sput)':
             cla
             *clr
             set karta = karta - 600000
             set $car = 'UAZ Patriot'
             set car = 10
             set benz = 3
             set cardrive = 8
             set teh = 400
             set tehcar = 400
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 1000000:
             act 'buy Mitsubishi l200 (1 million)':
             cla
             *clr
             set karta = karta - 1000000
             set $car = 'Mitsubishi l200'
             set car = 95
             set benz = 3
             set cardrive = 8
             set teh = 2000
             set tehcar = 2000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 5000000:
             act 'buy Audi Q7 (5 million)':
             cla
             *clr
             set karta = karta - 5000000
             set $car = 'Audi Q7'
             set car = 96
             set benz = 3
             set cardrive = 8
             set teh = 5000
             set tehcar = 5000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 2000000:
             act 'buy Cadillac Escalade (2 million)':
             cla
             *clr
             set karta = karta - 2000000
             set $car = 'Cadillac Escalade'
             set car = 97
             set benz = 3
             set cardrive = 8
             set teh = 4000
             set tehcar = 4000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'autosalonF','manager'
             end
         
         end 
         
         if karta >= 5000000:
             act 'buy Porsche Cayenne (5 million)':
             cla
             *clr
             set karta = karta - 5000000
             set $car = 'Porsche Cayenne'
             set car = 98
             set benz = 3
             set cardrive = 8
             set teh = 3000
             set tehcar = 3000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 4500000:
             act 'buy BMW X6 (4,5 million)':
             cla
             *clr
             set karta = karta - 4500000
             set $car = 'BMW X6'
             set car = 99
             set benz = 3
             set cardrive = 8
             set teh = 4000
             set tehcar = 4000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         end 
         
         if karta >= 8000000:
             act 'buy Mercedes-Benz S 600 (8 million)':
             cla
             *clr
             set karta = karta - 8000000
             set $car = 'Mercedes-Benz S 600'
             set car = 100
             set benz = 3
             set cardrive = 8
             set teh = 8000
             set tehcar = 8000
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         end 
     end
end
--- autosalonF ---------------------------------

# autoservisF
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
gs'avtonorm'
'<center><B>Service_and_repair</B></center>'
'<center><img src="pic/autoservis1.jpg" ></center>'
if cardrive = 7:
	 if wrek = 0:
		 if teh >= tehcar*75/100:'Master looked at your car and said, that it does not need to be repaired, any of those service.'
		 if teh < tehcar*75/100:
			 'Master looked at your car and said, that the cost of the work <<normrem>>.'
			 if money >= normrem:
				 act 'Pay and repair':
					 cla
					 *clr
					 set money = money - normrem
					 set minut = minut + 60
					 set teh = tehcar
					 wrek=0
					 '<center><img src="pic/autoservis2.jpg" ></center>'
					 'You sat for an hour in the lounge pretending that watching TV, Finally the car repaired and you paid in cash <<normrem>> rubles'
					 act 'Get_Away':gt'Nord'
					 end
				 end
			 end
		 end
	 if wrek = 1:
		 'Master prisvisnul looking at your unit and said, that the cost of the work <<normrem>>.'
		 if money >= normrem:
			 act 'Pay and repair':
				 cla
				 *clr
				 set money = money - normrem
				 set minut = minut + 60
				 set tehcar = tehcar/2
				 set teh = tehcar
				 wrek=0
				 '<center><img src="pic/autoservis2.jpg" ></center>'
				 'You sat for an hour in the lounge pretending that watching TV, Finally the car repaired and you paid in cash <<normrem>> rubles'
				 'Master before you hand over the keys you said, what would you have tried not to bring the car to a state.'
				 act 'Get_Away':gt'Nord'
				 end
			 end
		 end
	 end
if cardrive ! 7:'Master smiled and said "girl, I need a car to see, that would at least, what you say. -Fit it to the car service, we`ll_see."'
if wrek = 1 and cardrive ! 7 and car > 0:
	 'In the service station operates service to evacuate damaged cars Car, cost 2500'
	 if money >= 2500:
		 act 'Pay shipping cars 2500RUB (1 h)':
			 cla
			 *clr
			 set money = money - 2500
			 set cardrive = 7
			 set minut = minut + 60
			 '<center><img src="pic/autoservis2.jpg" ></center>'
			 'You sat for an hour in the service station, waiting when will bring your car. Finally the time has passed and your car was taken to the gate Car.'
			 act 'To master':gt'autoservisF','start'
			 end
		 end
	 end
act 'Get_Away':gt'Nord'
end
--- autoservisF ---------------------------------

# autotraidF
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
set minut = minut + 5
gs'stat'
cla
*clr
'<center><B>Car_market</B></center>'
'<center><img src="pic/autotraid.jpg" ></center>'
'The machine can be purchased only at presence of the rights. And you can not have two cars.'
if hour <= 17:
	 if car > 0:act 'Approach to the buyer-':gt'autotraidF','manager1'
	 act 'View cars for sale':gt'autotraidF','car'
	 end
act 'Get_Away':gt'Nord'
end

if $ARGS[0]='manager1':
$metka = $ARGS[0]
$loc = $CURLOC
set minut = minut + 5
gs'stat'
cla
*clr
'<center><B>Car_market</B></center>'
'<center><img src="pic/autotraid.jpg" ></center>'
gs'avb'
if cardrive = 9 and car > 0:
	 'Fence walked around the car and asked you for it <<bupay>> rubles'
     act 'sell for <<bupay>> (1 h)':
         cla
         set minut = minut + 60
         money=money+bupay
         car=0
         'You sold your car.'
         act 'Get_Away':gt'Nord'
         end
	 end
if cardrive ! 9:
	 'Fence says, that he needs to look at the car, before you put a price, and if you want, it calls for a tow truck 2500, that would deliver your car to the market.'
     if money >= 2500:
		 act 'Tow truck to market 2500RUB (1 h)':
			 cla
			 set minut = minut + 60
			 set cardrive = 9
			 set money = money - 2500
			 'You gave money and waited for an hour and when you bring the car, Finally.'
			 act 'For buyers-up':gt'autotraidF','manager1'
			 end
         end
	 end
act 'Get_Away':gt'Nord'
end

if $ARGS[0]='car':
$metka = $ARGS[0]
$loc = $CURLOC
set minut = minut + 5
gs'stat'
cla
*clr
'<center><B>Car_market</B></center>'
'<center><img src="pic/autotraid.jpg" ></center>'
'So many cars in the parking lot, that you can spend a lifetime and never osmotrish all cars, if still with the machines on the go , then the machine is not on the moves is a cat in a bag, may be a bargain, and can be a waste of money, and do not forget, you still deliver it to the service will need to be.'
set carT = 0
if hour <= 17:
	 act 'inspect VAZ 2107 (on the run)':
		 cla
		 *clr
		 '<center><B>VAZ 2107 (on the run)</B></center>'
		 '<center><img src="picar/car.jpg" ></center>'
		 set tehNT = 200
		 set tehT = RAND (10,tehNT)
		 set carT = 1
		 gs'avt' 
		 '<<$tehT>> trader wants <<bupay>> rubles'
		 act 'Get_Away':gt'autotraidF','car'
	     if car = 0 and prava = 1 and money >= bupay:
	         act 'Buy for <<bupay>> rubles':
		         cla
		         set money = money - bupay
		         set $car = 'VAZ 2107'
				 set car = 1
				 set benz = 3
				 set cardrive = 9
				 set teh = tehT
				 set tehcar = 200
				 set wrek = 0
				 'you paid <<bupay>> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
		         act 'Get_Away':gt'Nord'
		         end
		     end
		 end
	 act 'inspect VAZ 2107 (not on the move)': 
		 cla
		 *clr
		 set tehNT = 200
		 set tehT = RAND (10,tehNT)
		 set bupay = RAND (10000,50000) 
		 'The machine is not on the move. trader wants <<bupay>> rubles'
		 act 'Get_Away':gt'autotraidf','car'
	 	 if car = 0 and prava = 1 and money >= bupay:
	         act 'Buy for <<bupay>> rubles':
		         cla
		         set money = money - bupay
		         set $car = 'VAZ 2107'
				 set car = 1
				 set benz = 3
				 set cardrive = 9
				 set teh = tehT
				 set tehcar = 200
				 set wrek = 1
				 'you paid <<bupay>> rubles and bought a car. Trader put it near the market.'
		         act 'Get_Away':gt'Nord'
		         end
		     end
		 end
	 act 'inspect GAS 3102 (on the run)':
		 cla
		 *clr
		 '<center><B>GAZ 3102 (on the run)</B></center>'
		 '<center><img src="picar/car11.jpg" ></center>'
		 set tehNT = 1000
		 set tehT = RAND (10,tehNT)
		 set carT = 2
		 gs'avt' 
		 '<<$tehT>> trader wants <<bupay>> rubles'
		 act 'Get_Away':gt'autotraidf','car'
	     if car = 0 and prava = 1 and money >= bupay:
	         act 'Buy for <<bupay>> rubles':
		         cla
		         set money = money - bupay
		         set $car = 'GAZ 3102'
				 set car = 11
				 set benz = 5
				 set cardrive = 9
				 set teh = tehT
				 set tehcar = 1000
				 set wrek = 0
				 'you paid <<bupay>> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
		         act 'Get_Away':gt'Nord'
		         end
		     end
		 end
	 act 'inspect GAS 3110 (on the run)':
		 cla
		 *clr
		 '<center><B>GAZ 3110 (on the run)</B></center>'
		 '<center><img src="picar/car12.jpg" ></center>'
		 set tehNT = 800
		 set tehT = RAND (10,tehNT)
		 set carT = 2
		 gs'avt' 
		 '<<$tehT>> trader wants <<bupay>> rubles'
		 act 'Get_Away':gt'autotraidF','car'
	     if car = 0 and prava = 1 and money >= bupay:
	         act 'Buy for <<bupay>> rubles':
		         cla
		         set money = money - bupay
		         set $car = 'GAZ 3110'
				 set car = 12
				 set benz = 5
				 set cardrive = 9
				 set teh = tehT
				 set tehcar = 800
				 set wrek = 0
				 'you paid <<bupay>> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
		         act 'Get_Away':gt'Nord'
		         end
		     end
		 end
     end
act 'Get_Away':gt'Nord'
end






--- autotraidF ---------------------------------

# carF
$enddrive={
if cardrive = 1:gt'street'
if cardrive = 2:gt'down'
if cardrive = 3:gt'Nord'
if cardrive = 4:gt'lake','start'
if cardrive = 5:gt'park','start'
if cardrive = 6:gt'zaprF','start'
if cardrive = 7:gt'autoservisF','start'
if cardrive = 8:gt'autosalonF','start'
if cardrive = 9:gt'autotraidF','start'
if cardrive = 10:gt'park','whore'
if cardrive = 11:gt'sauna'
if cardrive = 12:gt'obekt'
if cardrive = 18:gt'youplace'
if cardrive = 19:gt'road'
if cardrive = 20:gt'gorodok'
if cardrive = 21:gt'zaprF','start'
}
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 1
clr
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><<$car>></B></center>'
if car = 1:'<center><img src="picar/car.jpg" ></center>'
if car = 2:'<center><img src="picar/car2.jpg" ></center>'
if car = 3:'<center><img src="picar/car3.jpg" ></center>'
if car = 4:'<center><img src="picar/car4.jpg" ></center>'
if car = 5:'<center><img src="picar/car5.jpg" ></center>'
if car = 6:'<center><img src="picar/car6.jpg" ></center>'
if car = 7:'<center><img src="picar/car7.jpg" ></center>'
if car = 8:'<center><img src="picar/car8.jpg" ></center>'
if car = 9:'<center><img src="picar/car9.jpg" ></center>'
if car = 10:'<center><img src="picar/car10.jpg" ></center>'
if car = 11:'<center><img src="picar/car11.jpg" ></center>'
if car = 12:'<center><img src="picar/car12.jpg" ></center>'
if car = 13:'<center><img src="picar/car13.jpg" ></center>'
if car = 14:'<center><img src="picar/car14.jpg" ></center>'
if car = 15:'<center><img src="picar/car15.jpg" ></center>'
if car = 16:'<center><img src="picar/car16.jpg" ></center>'
if car = 17:'<center><img src="picar/car17.jpg" ></center>'
if car = 18:'<center><img src="picar/car18.jpg" ></center>'
if car = 19:'<center><img src="picar/car19.jpg" ></center>'
if car = 20:'<center><img src="picar/car20.jpg" ></center>'
if car = 21:'<center><img src="picar/car21.jpg" ></center>'
if car = 22:'<center><img src="picar/car22.jpg" ></center>'
if car = 23:'<center><img src="picar/car23.jpg" ></center>'
if car = 24:'<center><img src="picar/car24.jpg" ></center>'
if car = 25:'<center><img src="picar/car25.jpg" ></center>'
if car = 26:'<center><img src="picar/car26.jpg" ></center>'
if car = 27:'<center><img src="picar/car27.jpg" ></center>'
if car = 28:'<center><img src="picar/car28.jpg" ></center>'
if car = 29:'<center><img src="picar/car29.jpg" ></center>'
if car = 30:'<center><img src="picar/car30.jpg" ></center>'
if car = 95:'<center><img src="picar/car95.jpg" ></center>'
if car = 96:'<center><img src="picar/car96.jpg" ></center>'
if car = 97:'<center><img src="picar/car97.jpg" ></center>'
if car = 98:'<center><img src="picar/car98.jpg" ></center>'
if car = 99:'<center><img src="picar/car99.jpg" ></center>'
if car = 100:'<center><img src="picar/car100.jpg" ></center>'
act 'Move away from the machine':dynamic $enddrive
if kanistra > 0:
'In the trunk <<kanistra>> Pieces. five-liter jerry cans of gasoline.'
     if benz <= 35:
         act 'Pour a can into the tank':
             cla
             set benz = benz + 5
             set kanistra = kanistra - 1
             'You have filled the canister of gasoline in the tank.'
             act 'move_away':gt'carF','start'
             end
         end 
     end
act 'Get in the car':gt'carF','salon'
end

if $ARGS[0]='salon':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 1
clr
if car = 1:'<center><img src="picar/salon.jpg" ></center>'
if car = 2:'<center><img src="picar/salon2.jpg" ></center>'
if car = 3:'<center><img src="picar/salon3.jpg" ></center>'
if car = 4:'<center><img src="picar/salon4.jpg" ></center>'
if car = 5:'<center><img src="picar/salon5.jpg" ></center>'
if car = 6:'<center><img src="picar/salon6.jpg" ></center>'
if car = 7:'<center><img src="picar/salon7.jpg" ></center>'
if car = 8:'<center><img src="picar/salon8.jpg" ></center>'
if car = 9:'<center><img src="picar/salon9.jpg" ></center>'
if car = 10:'<center><img src="picar/salon10.jpg" ></center>'
if car = 11:'<center><img src="picar/salon11.jpg" ></center>'
if car = 12:'<center><img src="picar/salon12.jpg" ></center>'
if car = 13:'<center><img src="picar/salon13.jpg" ></center>'
if car = 14:'<center><img src="picar/salon14.jpg" ></center>'
if car = 15:'<center><img src="picar/salon15.jpg" ></center>'
if car = 16:'<center><img src="picar/salon16.jpg" ></center>'
if car = 17:'<center><img src="picar/salon17.jpg" ></center>'
if car = 18:'<center><img src="picar/salon18.jpg" ></center>'
if car = 19:'<center><img src="picar/salon19.jpg" ></center>'
if car = 20:'<center><img src="picar/salon20.jpg" ></center>'
if car = 21:'<center><img src="picar/salon21.jpg" ></center>'
if car = 22:'<center><img src="picar/salon22.jpg" ></center>'
if car = 23:'<center><img src="picar/salon23.jpg" ></center>'
if car = 24:'<center><img src="picar/salon24.jpg" ></center>'
if car = 25:'<center><img src="picar/salon25.jpg" ></center>'
if car = 26:'<center><img src="picar/salon26.jpg" ></center>'
if car = 27:'<center><img src="picar/salon27.jpg" ></center>'
if car = 28:'<center><img src="picar/salon28.jpg" ></center>'
if car = 29:'<center><img src="picar/salon29.jpg" ></center>'
if car = 30:'<center><img src="picar/salon30.jpg" ></center>'
if car = 95:'<center><img src="picar/salon95.jpg" ></center>'
if car = 96:'<center><img src="picar/salon96.jpg" ></center>'
if car = 97:'<center><img src="picar/salon97.jpg" ></center>'
if car = 98:'<center><img src="picar/salon98.jpg" ></center>'
if car = 99:'<center><img src="picar/salon99.jpg" ></center>'
if car = 100:'<center><img src="picar/salon100.jpg" ></center>'
'gasoline - <<benz>>l, Fuel tank capacity 40 liters.'
if teh <= 0:set teh = 0&set wrek = 1
if wrek = 1 or teh <= 0:set $teh = 'Car will not start, it needs repair.'
if teh >= tehcar*75/100 and wrek = 0:set $teh = 'The machine is in excellent condition.'
if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set $teh = 'When moving the machine have any extraneous noise'
if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set $teh = 'Car crash and barely goes.'
if teh < tehcar*25/100 and wrek = 0:set $teh = 'As the toilet can still go, is a mystery even for designers.'
'<<$teh>>'
if cardrive = 1:'Through the windshield you see the sleeping area.'
if cardrive = 2:'Through the windshield you see downtown.'
if cardrive = 3:'Through the windshield you see the northern region.'
if cardrive = 4:'Through the windshield you see the lake.'
if cardrive = 5:'Through the windshield you see the park.'
if prava=0:'You are not authorized.'

act 'Out of the car':dynamic $enddrive
if benz > 0 and wrek = 0 and prava>0:
	 if teh >= tehcar*75/100 and wrek = 0:
		 set wrekrand = RAND (0,1000)
		 if wrekrand = 1000:set wrek = 1
		 end
	 if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:
		 set wrekrand = RAND (0,100)
		 if wrekrand = 100:set wrek = 1
		 end
	 if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:
		 set wrekrand = RAND (0,100)
		 if wrekrand >= 80:set wrek = 1
		 end
	 if teh < tehcar*25/100 and wrek = 0:
		 set wrekrand = RAND (0,100)
		 if wrekrand >= 40:set wrek = 1
		 end
	 if wrek = 1:
		 'What is pounding loudly and the engine stalled.'
		 act 'your mother':gt'carF','salon'
		 end
	 if alko >0:
		 dpsrand=RAND(0,100)
		 if dpsrand <= alko:
			 'Policeman stops you, He looks at your situation and asks to breathe into a tube. You breathe and instrument panel lights red lamochka.'
			 'Traffic police snorts and says something in his cell, then shows you. It is written with the number sms 50000'
			 'Or let`s make the report. Now all of the exclusion for driving while not sober.'
			 if money>= 50000:
				 act 'bribe 50 pcs':
					 cla
					 money=money-50000
					 'You pay and the police warns you, that you will not be riding in this state.'
					 act 'In salon':gt'carF','salon'
					 end
				 end
			 act 'Bring_It_On, all under the law':
				 cla
				 prava=0
				 'You disempower, for driving while not sober.'
				 act 'In salon':gt'carF','salon'
				 end
			 exit
			 end
		 end
	 if alko >= 10:
		 avarand=RAND(0,100)
		 if avarand>=50:
			 teh=teh/2
			 wrek=1
			 'You are a drunken hit a tree, crashed the car into smithereens.'
			 act 'In salon':gt'carF','salon'
			 exit
			 end
		 end
	 if wrek = 0:
		 if cardrive >= 20:
			 if cardrive ! 3:
				 act 'Go to town':
					 cla
					 set minut = minut + 75
					 set benz = benz - 1
					 set teh = teh - RAND(3,6)
					 set cardrive = 3
					 'You drive more than an hour on the highway that would get here before the city.'
					 dynamic $enddrive
					 end
				 end
			 if cardrive ! 21:
				 act 'Go to the gas station':
					 cla
					 set minut = minut + 15
					 set benz = benz - 1
					 set teh = teh - RAND(1,3)
					 set cardrive = 21
					 'Are you in favor 15 minutes get to your destination.'
					 dynamic $enddrive
					 end
				 end 
			 end
		 if placeMansion>0 and cardrive ! 18:
			 act 'Go to your site':
				 cla
				 if cardrive >= 20:
				 set minut = minut + 60
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 18
				 else
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 18
				 end
				 'You got to their land.'
				 dynamic $enddrive
				 end
			 end
		 if cardrive ! 1:
			 act 'Go to the sleeping area':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 1
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 2:
			 act 'Go to the center of the city':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 2
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 3:
			 act 'Go to the northern region':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 3
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 4:
			 act 'Go to the lake':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 4
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end
		 if cardrive ! 5:
			 act 'Go to the park':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 5
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 6:
			 act 'Go to the gas station':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 6
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 7:
			 act 'Go to the car wash':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 7
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 8:
			 act 'Go to the auto show':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 8
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 9:
			 act 'Go to the car market':
				 cla
				 set minut = minut + 15
				 set benz = benz - 1
				 set teh = teh - RAND(1,3)
				 set cardrive = 9
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end 
		 if cardrive ! 12:
			 act 'Go to the object':
				 cla
				 set minut = minut + 60
				 set benz = benz - 1
				 set teh = teh - RAND(2,5)
				 set cardrive = 12
				 'Are you in favor 15 minutes get to your destination.'
				 dynamic $enddrive
				 end
			 end
		 if cardrive ! 20:
			 act 'Go to town':
				 cla
				 set minut = minut + 75
				 set benz = benz - 1
				 set teh = teh - RAND(3,6)
				 set cardrive = 20
				 'You eat more than an hour on the highway to the town.'
				 dynamic $enddrive
				 end
			 end 
		 act 'Ride on the highway (1 h)':
			 cla
			 'You go on the road.'
			 numberRoad=input("In what city will stop (from 0 prior_to 20)")
			 if numberRoad>=0 and numberRoad<=20:
				 set cardrive = 19
				 set nroad=numberRoad
				 set ncarroad=numberRoad
				 end
			 xgt'carF','salon'
			 end
		 act 'Drive on the highway (1 h)':
			 cla
			 set minut = minut + 60
			 set benz = benz - 4
			 set teh = teh - RAND(2,6)
			 set manna = manna + 20
			 set wipo=wipo+10
			 'You go on the road and having fun scorcher, then turn back.'
			 act'End_Up':xgt'carF','salon'
			 end
		 end 
	 end
end
--- carF ---------------------------------

# carF1
if $ARGS[0]='car':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>VAZ 2107</B></center>'
'<center><img src="picar/car.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon.jpg" ></center>'
     act 'Get_Away':gt'carF1','car'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end


if $ARGS[0]='car2':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ 2115</B></center>'
'<center><img src="picar/car2.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon2.jpg" ></center>'
     act 'Get_Away':gt'carF1','car2'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car3':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ 2113</B></center>'
'<center><img src="picar/car3.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon3.jpg" ></center>'
     act 'Get_Away':gt'carF1','car3'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car4':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ 2114</B></center>'
'<center><img src="picar/car4.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon4.jpg" ></center>'
     act 'Get_Away':gt'carF1','car4'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car5':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ 2119</B></center>'
'<center><img src="picar/car5.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon5.jpg" ></center>'
     act 'Get_Away':gt'carF1','car5'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car6':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>Kalina VAZ</B></center>'
'<center><img src="picar/car6.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon6.jpg" ></center>'
     act 'Get_Away':gt'carF1','car6'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car7':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>WHA PRIORA</B></center>'
'<center><img src="picar/car7.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon7.jpg" ></center>'
     act 'Get_Away':gt'carF1','car7'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car8':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>Chevrolet NIVA</B></center>'
'<center><img src="picar/car8.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon8.jpg" ></center>'
     act 'Get_Away':gt'carF1','car8'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car9':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>UAZ HUNTER</B></center>'
'<center><img src="picar/car9.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon9.jpg" ></center>'
     act 'Get_Away':gt'carF1','car9'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car10':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>UAZ Patriot</B></center>'
'<center><img src="picar/car10.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon10.jpg" ></center>'
     act 'Get_Away':gt'carF1','car10'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car95':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>Mitsubishi l200</B></center>'
'<center><img src="picar/car95.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon95.jpg" ></center>'
     act 'Get_Away':gt'carF1','car95'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end

if $ARGS[0]='car96':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>Audi Q7</B></center>'
'<center><img src="picar/car96.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon96.jpg" ></center>'
     act 'Get_Away':gt'carF1','car96'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end


if $ARGS[0]='car97':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>Cadillac Escalade</B></center>'
'<center><img src="picar/car97.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon97.jpg" ></center>'
     act 'Get_Away':gt'carF1','car97'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end


if $ARGS[0]='car98':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>Porsche Cayenne</B></center>'
'<center><img src="picar/car98.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon98.jpg" ></center>'
     act 'Get_Away':gt'carF1','car98'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end



if $ARGS[0]='car99':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>BMW X6</B></center>'
'<center><img src="picar/car99.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon99.jpg" ></center>'
     act 'Get_Away':gt'carF1','car99'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end


if $ARGS[0]='car100':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
clr
'<center><B>Mercedes-Benz S 600</B></center>'
'<center><img src="picar/car100.jpg" ></center>'

     act 'Sit in the salon':
     cla
     *clr
     '<center><img src="picar/salon100.jpg" ></center>'
     act 'Get_Away':gt'carF1','car100'
     end

     act 'Get_Away':
     cla
     if cartraid = 1:gt'autosalonF','start'
     if cartraid = 2:gt'autotraidF','manager'
     end
end
--- carF1 ---------------------------------

# qwBarPolet
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
minut+=5
gs'stat'
'<center><B><font color=maroon>bar "flight"</font></B></center>'
if hour>=10:
'<center><img src="qwest/kim/bar.jpg" ></center>'
'At the bar sat a few visitors. The bartender with a face scarred missing pours beer mugs.'


else
'The bar is closed and inlet written "Opening hours 10 prior_to 24hours."'
end
act 'Get_Away':gt'nord'

















--- qwBarPolet ---------------------------------

# qwbereg
$qwvlsexhjdy={
	 act 'Pat his hand between her legs.':
	 cls
	 minut+=5
	 VladimirHJ+=1
	 hj+=1
	 gs'stat'
	 '<center><img src="qwest/sex/hand.jpg" ></center>'
	 'You started stroking his hand over his fly and Vladimir felt his cock gets. He unzipped and pulled standing member who put you in the palm.'
	 'You began to fondle her slender fingers hard and hot cock Vladimir.'
	     act 'wank him.':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/sex/hand2.jpg" ></center>'
		 'You develop a strong jerk his cock and soon finished Vladimir moan in your hands.'
		 act '....':gt'qwbereg2'
		 end
		 
		 act 'Take by mouth.':
		 cls
		 minut+=5
		 bj+=1
		 VladimirBJ+=1
		 gs'stat'
		 '<center><img src="qwest/sex/bj.jpg" ></center>'
		 'Going down on your knees you wrapped around his lips a member of Vladimir and began to suck absorbing every movement of his hard cock to throat and abundantly wetting saliva.'
		 'Finally .'
		 	 act 'continue to suck.':
			 cla
			 *clr
			 set swallow = swallow + 1
			 set cumlip = cumlip + 1
			 '<center><img src="picV/swallow.jpg" ></center>'
			 'A jet of hot cum hit you in the mouth. You started to swallow cum, and Vladimir continued to cum in your mouth. Finally.'
				 act '....':gt'qwbereg2'
			 end
			 
			 act 'Remove the mouth.':
			 cla
			 *clr
			 set tiprand = RAND (0,1)
				 if tiprand = 1:
				 '<center><img src="picV/hand.jpg" ></center>'
				 'You remove a member from the mouth and Vladimir finished you in the palm.'
				 end 
			 
				 if tiprand = 0:
				 set facial = facial + 1
				 set cumface = cumface + 1
				 '<center><img src="picV/facial.jpg" ></center>'
				 'Have you taken the member and at this point Vladimir discharged directly on your face, covering it with warm and sticky sperm.'
				 end
			  
				 act '....':gt'qwbereg2'
			 end
		 end
	 
	 end
}

minut+=30
gs'stat'
'<center><B><font color=maroon>boat</font></B></center>'
'<center><img src="qwest/vladimir/kater.jpg" ></center>'
'The boat is moored to the shore and Glory jumping off a boat tied moorings. Everyone began to descend from the boat to the shore. Vladimir said "Glory to you now razvezet home, and then pick me up and the light."' 
'Nicholas, Vitaly and Isolde said goodbye and got in the car. Glory sat behind the wheel and drove off. You were near the boat together with Vladimir.'
'Vladimir gathered the remnants of food in a bag and threw it in the trash. Boxes with unspoiled food delivered to the deck, as long as you wipe with a damp cloth table on the deck.'
'Finally with the cleaning has been completed and Vladimir sat down on the sofa to rest on deck.'

	 act 'sit down.':
	 cls
	 '<center><B><font color=maroon>Vladimir</font></B></center>'
     '<center><img src="qwest/vladimir/001.jpg" ></center>'
	 'You sat next to Vladimir and he hugged you by the shoulders. "Well?"'
	     act 'It was not bad. excellent boat.':
		 cla
		 '(Do_You) - It was not bad. Excellent you have a boat.'
		 '(Vladimir) - The boat is not my. Borrowed from an acquaintance pokatatsya. Absolutely no pleasure, therefore it is necessary to combine business meetings with relaxation.'
		 'Vladimir leaned toward your face trying to kiss him.'
		     act 'tselovatsya.':
			 cla
			 minut+=5
			 horny+=10
			 VladimirSex+=1
			 guy+=1
			 gs'stat'
			 'You started with Vladimir tselovatsya sitting on the couch. His hands slid to your chest and began to knead her through clothing.'
			  dynamic $qwvlsexhjdy
				 
				 act 'Savoury.':
				 cls
				 minut+=5
				 horny+=15
				 gs'stat'
				 '<center><img src="qwest/sex/tits.jpg" ></center>'
				 'Vladimir lifted your shirt and began to lick and suck your breasts. Gentle warmth pierced you and you become very good caresses Vladimir.'
				 dynamic $qwvlsexhjdy
				 
				     act 'Savoury.':
				     cla
				     minut+=5
				     horny+=15
				     DOM+=1
                     kuni+=1
				     gs'stat'
				     '<center><img src="qwest/sex/kuni.jpg" ></center>'
				     'Vladimir started to remove your clothes, that would get here before your pussy. He began to caress the tongue your pussy.'
				         if horny >= 90:
						 set horny = 0
						 set manna = manna + 15
						 set willpower = willpower + 15
						 set orgasm = orgasm + 1
						 'By skillful actions of Vladimir orgasm you covered.'
						 else
						 'Actions Vladimir though they were exciting, but they began to bore you.'
						 end
						 
						 dynamic $qwvlsexhjdy
						 
						 act 'give him.':
						 cls
						 set sex = sex + 1
						 set minut = minut + 30
						 set pose = 0
						 set $nameV = 'Vladimir'
						 set dick = 16
						 set silavag = 1
						 '<center><img src="picV/vag.jpg" ></center>'
						 '<<$nameV>> spread your legs and began to caress her fingers pussy.'
						 gs'orgazm','start'
						 act '....':gt'qwbereg2'
						 end
				     end
				 end
				 
			 end
		 end
	 end









--- qwbereg ---------------------------------

# qwbereg2
minut+=15
vladimirday=day
vladimirQW=35
gs'stat'
'<center><img src="qwest/vladimir/car.jpg" ></center>'
'Once you are done with Vladimir fuck, as to the pier drove Audi. From it came Fame and invited you to sit in the car.'
'You sat in the back seat of the car and Vladimir, pleased, although tired and sat down next to you. Glory as usual vtopil and flew down the road.'
'Soon you were already around your porch. Vladimir promised you a call and went along with Slava.'

act 'go home.':gt 'street'






--- qwbereg2 ---------------------------------

# QwestDisdock

!in location stat at any place
if qwestonce=0:
set qwestonce=1
!ADDQST 'qwest/qwest.qsp'
end

!reference to a transition
!located in the location park  array luna
if vladimirQW=0 and hour >= 9 and hour <= 20 and week>5:'<a href="exec:GT ''qwloc''">Near the fence stands a strong man and looks at you</a>.'


!in location korr
if vladimirday!day and vladimirQW=20 and hour = 16:'<a href="exec:GT ''qwloc2''">The phone rings</a>.'


!in location telefon array start 
if vladimirday!day and vladimirQW=20 and hour = 16:gt 'qwloc2'


!in location restoran array start

if vladimirday=day and vladimirQW=21 and hour = 20:gt 'qwmeet'


!in location korr
if vladimirday!day and vladimirQW=25 and hour = 16 and week=6:'<a href="exec:GT ''qwloc3''">The phone rings</a>.'


!in location telefon array start 
if vladimirday!day and vladimirQW=25 and hour = 16 and week=6:gt 'qwloc3'

!street
if vladimirday=day and vladimirQW=30 and hour >= 16 and week=6:'<a href="exec:GT ''qwmeet2''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'


!down
if izoldaWQ>=1:'<a href="exec:GT ''qwIzoldaApp''">apartment Isolde</a>.'

!nord
if slavaQW>=1:'<a href="exec:GT ''qwBarPolet''">bar "flight"</a>.'






--- QwestDisdock ---------------------------------

# qwIzoldaApp
minut+=15
gs'stat' 

if hour>=16 and izoldaday!day:
izoldaday=day
'<center><B><font color=maroon>Isolde</font></B></center>'
'<center><img src="qwest/kolan/izolda.jpg" ></center>'
'The door you opened Isolde. "Hello World, Come."'


act 'Get_Away':gt'down'
     act 'Log in to the apartment':
     cla
     minut+=30
     izoldaWQ+=1
     gs'stat' 
         if izoldaWQ<5:
         'You went to the apartment and Isolde escort you to the kitchen. There she poured tea. You sat at the table and began to talk about all sorts of trivia.'
         end
         if izoldaWQ>=5 and izoldaSex=0:
         'Isolde offer you a drink of wine. You agreed and went to the kitchen. Isolde opened a bottle of wine and poured by the glass. You drank it.'
             if izoldaWQ>=10 and izoldaSex=0:
             'Soon you both got drunk and Isolde invited you to go to the gym to relax.'
                 act 'Go with Isolde':
                 cls
                 girl+=1
                 lesbian+=1
                 izoldaSex=1
                 horny+=10
                 gs'stat' 
                 '<center><img src="qwest/kolan/izoldasex.jpg" ></center>'
                 'The room suddenly Isolde you kissed and hugged her gently.'
                     act 'Tselovatsya Isolde':
                     cls
                     horny+=10
                     gs'stat' 
                     '<center><img src="qwest/kolan/izoldasex1.jpg" ></center>'
                     'Isolde`s head gently slipped from your lips to your breasts and began to fondle them.'
                         act '...':
						 cls
						 horny+=10
						 gs'stat' 
						 '<center><img src="qwest/kolan/izoldasex2.jpg" ></center>'
						 'Isolde you dropped on the couch and gently kisses section covering. after, as you lay on your back, she began to lick your pussy.'
							 act '...':
							 cls
							 horny=0
							 orgasm+=1
							 gs'stat' 
							 '<center><img src="qwest/kolan/izoldasex3.jpg" ></center>'
							 'The blonde turned and climbed on you without stopping to lick your pussy. She throw the leg over his sweaty you up and expiring juices crack for fondling. You began to caress her clitoris tongue and kiss her luscious lips, Finally you both shook orgasm.'
								 act 'Get_Away':gt'down'
							 end
						 end
                     end
                 end
             end
         end
         if izoldaSex>0:
         'Isolde offer you a drink of wine and you have been with her in the kitchen, drinking a bottle she took you by the hand and led into the room.'
			 act 'Go with Isolde':
			 cls
			 lesbian+=1
			 izoldaSex+=1
			 horny+=10
			 gs'stat' 
			 '<center><img src="qwest/kolan/izoldasex.jpg" ></center>'
			 'The room suddenly Isolde you kissed and hugged her gently.'
				 act 'Tselovatsya Isolde':
				 cls
				 horny+=10
				 gs'stat' 
				 '<center><img src="qwest/kolan/izoldasex1.jpg" ></center>'
				 'Isolde`s head gently slipped from your lips to your breasts and began to fondle them.'
					 act '...':
					 cls
					 horny+=10
					 gs'stat' 
					 '<center><img src="qwest/kolan/izoldasex2.jpg" ></center>'
					 'Isolde you dropped on the couch and gently kisses section covering. after, as you lay on your back, she began to lick your pussy.'
						 act '...':
						 cls
						 horny=0
						 orgasm+=1
						 gs'stat' 
						 '<center><img src="qwest/kolan/izoldasex3.jpg" ></center>'
						 'The blonde turned and climbed on you without stopping to lick your pussy. She throw the leg over his sweaty you up and expiring juices crack for fondling. You began to caress her clitoris tongue and kiss her luscious lips, Finally you both shook orgasm.'
							 act 'Get_Away':gt'down'
						 end
					 end
				 end
			 end
         end
     act 'Get_Away':gt'down'
     end
else
'You rang the bell but no one opened to you.'
act 'Get_Away':gt'down'
end
--- qwIzoldaApp ---------------------------------

# qwloc

$qwnamedy={
act '<<$name>>':
cla
vladimirQW=10
'(Do_You) - <<$name>>'
'(Vladimir) - beautiful name, a match for you. I unfortunately have to go, but would like to meet with you again. Go to a restaurant, talk. Leave me your phone number, I `ll call you tomorrow.'
	 act 'No (Get_Away)':
	 cla
	 vladimirQW=2
	 'You turned on the man and went away from him.'
	 act 'Get_Away':gt'park','luna'
	 end
	 
	 act 'Dictate the phone number':
	 cla
	 vladimirQW=20
	 vladimirday=day
	 'You dictated phone number Vladimir and he wrote it down in a small notebook in leather cover.'
	 act 'Get_Away':gt'park','luna'
	 end
end
}



$qwvladdy={
'(The_Man) - hello. I Vladimir, I liked you, I would like to pointeresovatsya your name.'

dynamic $qwnamedy

act 'Excuse_Me, I have no time.':
cla
vladimirQW=1
'(Do_You) - Excuse_Me, I have no time.'
'(Vladimir) - Well? I will not bite. Just want to know the name from the charming stranger.'
dynamic $qwnamedy

	 act 'Still (Get_Away)':
	 cla
	 vladimirQW=2
	 'You turned on the man and went away from him.'
	 act 'Get_Away':gt'park','luna'
	 end
end

}

minut+=5
gs'stat'
gs'time'
'<center><B><font color=maroon>The_Man</font></B></center>'
'<center><img src="qwest/vladimir/001.jpg" ></center>'
if mop>1 and hapri=1:
	 'A man standing near the fence noticed your eyes and smiled at you.'



	 act 'Come to a man':
	 cla
	 'You went to the man and he went away from the fence toward you.'
	 dynamic $qwvladdy
	 end

	 act 'smile':
	 cla
	 'You the man smiled back and he went away from the fence toward you.'
	 dynamic $qwvladdy
	 end

	 act 'unscrew':
	 cla
	 'You have turned away from the man and heard in his footsteps behind him.'
	 dynamic $qwvladdy
	 end
else
'The man looked at you and turned away.'
act 'Get_Away':gt'park','luna'
end












--- qwloc ---------------------------------

# qwloc2
gs'stat'

'You raised a tube and a male voice said "Hello World, Vladimir is, remember we are not met for a long time in the park?"'


	 act 'hello, Of course I remember.':
	 cla
	 vladimirQW=21
	 '(Do_You) - hello, Of course I remember.'
	 '(Vladimir) - My suggestion is to go to the restaurant is still in force. As you look at it?'
	     act 'oh, I have a lot to do, Today I can not get.':
		 cla
		 vladimirQW=20
		 vladimirday=day
		 '(Do_You) - oh, I have a lot to do, I just can not segdnya.'
		 '(Vladimir) - Fair_Enough. Then I `ll call you tomorrow 4 pm.'
		 act 'hang Up.':gt 'korr'
		 end
		 
		 act 'I do not mind.':
		 cla
		 vladimirQW=21
		 vladimirday=day
		 '(Do_You) - I do not mind.'
		 '(Vladimir) - That`S_Great. Then come to the restaurant in 20 hours.'
		 act 'hang Up.':gt 'korr'
		 end
		 
		 
	 end








--- qwloc2 ---------------------------------

# qwloc3
gs'stat'

'You raised a tube and a male voice said "Hello World, Vladimir is, wanna take a ride on a boat?"'


	 act 'oh, I have a lot to do, Today I can not get.':
	 cla
	 vladimirday=day
	 '(Do_You) - oh, I have a lot to do, I just can not segdnya.'
	 '(Vladimir) - Fair_Enough. Then I `ll call you tomorrow 4 pm.'
	 act 'hang Up.':gt 'korr'
	 end
	 
	 act 'I do not mind.':
	 cla
	 vladimirQW=30
	 vladimirday=day
	 '(Do_You) - I do not mind.'
	 '(Vladimir) - That`S_Great. Now for you to come my driver take you and Glory.'
	 act 'hang Up.':gt 'korr'
	 end

--- qwloc3 ---------------------------------

# qwloc4
gs'stat'
'You raised a tube and a male voice said "Hello World, Vladimir is, Can we go somewhere else?"'

	 act 'oh, I have a lot to do, Today I can not get.':
	 cla
	 vladimirday=day
	 '(Do_You) - oh, I have a lot to do, I just can not segdnya.'
	 '(Vladimir) - Fair_Enough. Then I `ll call you tomorrow 4 pm.'
	 act 'hang Up.':gt 'korr'
	 end
	 
	 act 'I do not mind.':
	 cla
	 vladimirQW=40
	 vladimirday=day
	 '(Do_You) - I do not mind.'
	 '(Vladimir) - That`S_Great. Now for you to come my driver take you and Glory.'
	 act 'hang Up.':gt 'korr'
	 end
--- qwloc4 ---------------------------------

# qwmeet
$qwmeetdy={
'The door opened cars and drivers gave you a hand.'
	 act 'Leaning out of the car on the driver`s hand.':
	 cls
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/kim/001.jpg" ></center>'
	 'Coming out of the car you just now spotted the driver. It appeared to be a young man of Asian descent. He seemed confident guy and impudent smile at you.'
	 'Vladimir looked out of the car "This is my driver, glory. He will call in for you. While Svetulya, I `ll call you."'
	 'Asian smiled again and you shut the back door. Jumping into the driver`s seat he once again looked at you greedy, undressing eyes and slammed the door with a grin. The car skidded to immediately jumped up and flew away disappearing in the distance.'
	 act 'go home.':gt 'street'
	 end
}




minut+=5
gs'stat'
vladimirQW=25
vladimirday=day
'<center><B><font color=maroon>Vladimir</font></B></center>'
'<center><img src="qwest/vladimir/001.jpg" ></center>'
'Once you`ve entered the door of the restaurant you went to Vladimir lush bouquet of roses. Hello World. Well?'

	 act 'Take the bouquet and go to a restaurant with Vladimir.':
	 cla
	 minut+=3
	 gs'stat'
	 'You`re a little embarrassed took a bouquet of roses and hands of Vladimir and he took you by the elbow led you to a restaurant. He led you to a table where the table plate "Special_order" and substituting the chair you sit invited.'
	     act 'Sit on a chair':
	     cla
	     minut+=3
	     gs'stat'
	     'The waiter brought the menu you and Vladimir asked you not to hesitate and order whatever you want.'
	         act 'to order':
			 cla
			 minut+=3
			 gs'stat'
			 'You made the order and the waiter taking the Delete. At the table there was an awkward pause. Vladimir paused and asked. "Light whom you work?"'
			 if workrin=1:
             $qwvladwork='I work in the market.'
			 elseif young_shop_work = 1:
             $qwvladwork='I work in a store.'
			 elseif workKafe > 0:
             $qwvladwork='I work as a waitress in a cafe.'
             else
             $qwvladwork='For the most part nothing.'
             end
			 
			     act '<<$qwvladwork>>':
	             cla
	             minut+=15
			     gs'stat'
	             '(Do_You) - <<$qwvladwork>>'
	             '(Vladimir) - I_Get_It. I know not a big desk, your Business. Buy Sell, In short.'
	             'At this time. After the plates were placed. Vladimir continued.'
	             '"me 40 year_old. married, have a baby. My wife and I have for a long time nothing in common and I am ready to divorce her anytime."'
	             'Vladimir poured wine into glasses and proposed a toast to the first acquaintance.'
	                 act 'drink':
					 cla
					 minut+=15
					 energy=21
					 water=21
					 gs'stat'
					 'You drank wine and started to dig in a salad fork. Vladimir said. "Let`s move on you, I hope you do not mind?" You shake your head confirming that you .'
					 'Vladimir continued "In business laws wolf. You can not stand still, must constantly evolve. Now I open another business. Therefore."'
					 'You chewed lettuce and looked at him. "We just met, You do not know me."' 
					 'Vladimir nodded "Yes_I_Am, but you`re special girl. unique. I just feel it."'
					 'The restaurant began to play live music and Vladimir invited you to tenets.'
					     act 'Dance with Vladimir':
						 cla
						 minut+=15
						 gs'stat'
						 'Vladimir took you by the hand and brought to the dance floor. There it you hard, embraced and began to confidently lead in the dance. Do you feel the dance as your breasts pressed against his chest Vladimir and his hot hands tightly holding your waist.'
						 'Soon the dance ended and Vladimir pododvinuv you a chair help you to sit down. You have continued to dine and converse. At this time.'
						 'Once you ate and drank Vladimir suggested you hold up the house. He paid the waiter left a generous tip and took you by the hand went with you from the restaurant.'
						     act 'Get out of the restaurant':
							 cls
							 '<center><img src="qwest/vladimir/car.jpg" ></center>'
							 minut+=15
							 gs'stat'
							 'The restaurant car was already prepared for you with Vladimir, it helped you to sit in the back seat and beating the car sat next to you. The driver closed the door and sat behind the wheel. Without turning around .'
							 'You practically flew through the streets at breakneck speed. The driver was a real ace, he deftly fit into corners and bypassed barely moving machines have never hit the brakes. Very quickly you come to your porch. Vladimir remarked sadly "I unfortunately need to make a couple of cases, so I `m in a hurry. I`ll call you tomorrow."'
							 'He leaned forward to you trying to kiss you.'
							     act 'Kiss on the cheek':
							     cla
							     'You cheek and gently kissed you .'
							     dynamic $qwmeetdy
							     end
							     
							     act 'Kiss on the lips':
							     cla
							     'You kissed on the lips of Vladimir. His strong and firm lips gently digging into your soft and gentle sponge.'
							     dynamic $qwmeetdy
							     end
							 end
						 end
					 end
	             end
			 end
	     end
	 end


















--- qwmeet ---------------------------------

# qwmeet2
$qwmeetkatdy={
'After the kiss . Near motor yacht talked two men and one woman.'
'Vladimir brought you to the thin one man is not a certain age, hard, squeamish person. This Nikolai, this is the light.'
	 act 'very nice':
	 cls
	 minut+=5
	 gs'stat'
	 '<center><B><font color=maroon>Nicholas</font></B></center>'
     '<center><img src="qwest/kolan/001.jpg" ></center>'
	 'Nicholas did not close the flashing eyes looked at you and said politely pointed "very nice".'
	 'Vladimir brought you to the girl standing next to Nicholas and introduced you to each other. "This Isolde, this is the light."'
	 	 act 'very nice':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><B><font color=maroon>Isolde</font></B></center>'
		 '<center><img src="qwest/kolan/izolda.jpg" ></center>'
		 'A young blonde smiled graciously and say hello to you.'
		 'Vladimir brought you to my second friend. "This Vitaly, this is the light."'
		     act 'very nice':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><B><font color=maroon>Vitali</font></B></center>'
			 '<center><img src="qwest/marafet/001.jpg" ></center>'
			 'The man looked at you and smiled wild eyes. "Hello beauty, Welcome to our warm company"'
			 'Vladimir looked "Well, let`s go on a boat." Nicholas looked at the driver`s Glory. "Hey Banzai, moorings and lend at the helm." Asian nodded and started fussing around boats.'
			 	 act 'Vzayti aboard boats':
				 cls
				 minut+=5
				 gs'stat'
				 '<center><B><font color=maroon>boat</font></B></center>'
				 '<center><img src="qwest/vladimir/kater.jpg" ></center>'
				 'You boarded the boat and Asian Glory which Nicholas called Banzai cast off and deftly jumped on the boat. Glory started the boat and raced down the river at full speed.'
				 'Nicholas sat on a seat on the deck and plopped down beside him Vitaly. Vladimir began hustling on the deck but Nicholas interrupted him "Vovk, Stop running, Let us pamper girls. Sit_down, talk."'
				 'Isolde after the words of Nicholas ducked into the cabin.'
				     act 'Go to the cabin after Isolde':
					 cls
					 minut+=5
					 gs'stat'
					 '<center><B><font color=maroon>cabin</font></B></center>'
					 '<center><img src="qwest/kolan/izolda.jpg" ></center>'
					 'The cabin was a box with a variety of provisions and Isolde expertly served on a tray meal. She nodded tomatoes, less often until. You took the knife began to chop the tomatoes.'
					     act 'Ask about her and Nicholas':
						 cla
						 minut+=5
						 gs'stat'
						 'You asked that binds her and Nicholas. Isolde immediately replied "We are not married, but there are. Nicholas idle, do not have anyone Nigo, no wife, no children. He is a very influential person in the city, at one of its mention all toe the line begin to walk."'
						 'Nicholas mediates and solves a variety of disputes and questions. The very same Isolde according to her works in one the desk, almost nothing to make and receive not a bad salary. Nicholas gave her back.'
						     act 'Ask about Vitali.':
							 cla
							 minut+=5
							 gs'stat'
							 'You wanted to know who the Vitali. Isolde shrugged, "Do not really know, Nikolay his cop calls. So maybe he is cop."'
							     act 'Ask about the glory.':
								 cla
								 minut+=5
								 gs'stat'
								 'You asked whether she knows Glory, she smiled "I do not know, Banzai but all the time around Koli rubs, that it has attached to the driver Vovka. Insolent and crazy type, really excellent driver. It sort of master of sports of skiing."'
								 act 'Come on deck with a tray.':gt'qwpaluba'
								 end
							 end
						 end
					 end
				 end
			 
			 end
		 end
	 end
}


$qwslavady={
'Glory is not looking at you said "light, where you met Volodka?"'
'You`re a little surprised that the driver calls his boss Volodka but told him that you met in the park.'
'The driver grinned "Yeah I remember. I drove him to the park with his wife and child. You are already aware that he has a wife and child?"'
'you nodded "Yes_I_Am, he told me." Glory chuckled avoiding another car at full speed "I_Get_It. Cinderella found her prince on a white horse."'
'Behind a police siren wailed and began to demand that the megaphone to Audi stopped. Slava laughed even harder pressed the gas to the floor. "Not yet been born a man who will be able to catch up with me."'
'The car flew quite a crazy speed and cars moving in the same direction disappeared behind you not having to appear in front of you. Glory brought the car out of the city and sirens was not audible. he grinned "I told, intestine have thin catch up with me."'
'Audi will soon flew to the river and stood near the pier on which are so few people. Glory got out and helped you vybratsya.'
'To you walked Vladimir.'
	 act 'Kiss on the cheek':
	 cls
	 '<center><B><font color=maroon>Vladimir</font></B></center>'
     '<center><img src="qwest/vladimir/001.jpg" ></center>'
	 'You cheek and gently kissed you .'
	 dynamic $qwmeetkatdy
	 end
	 
	 act 'Kiss on the lips':
	 cls
	 '<center><B><font color=maroon>Vladimir</font></B></center>'
     '<center><img src="qwest/vladimir/001.jpg" ></center>'
	 'You kissed on the lips of Vladimir. His strong and firm lips gently digging into your soft and gentle sponge.'
	 dynamic $qwmeetkatdy
	 end
}

minut+=3
gs'stat'
'<center><img src="qwest/kim/001.jpg" ></center>'
'Glory to you smiled and gestured to sit in the car on the front passenger seat.'

	 act 'Sit next to the driver.':
	 cls
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/kim/002.jpg" ></center>'
	 'You sat on the seat next to the driver. Glory came to the door and slammed it. He walked to his seat and sat behind the wheel drove off. Glory again flew around the city spit on traffic lights, other machinery and marks.'
	 dynamic $qwslavady
	 end

	 act 'Sit in the back seat.':
	 cls
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/kim/002.jpg" ></center>'
	 'You defiantly sat in the back seat and Glory hmyknuv shut the door behind you. He walked to his seat and sat behind the wheel drove off. Glory again flew around the city spit on traffic lights, other machinery and marks.'
	 dynamic $qwslavady
	 end











--- qwmeet2 ---------------------------------

# qwmeet3
minut+=3
gs'stat'
'<center><img src="qwest/kim/001.jpg" ></center>'
'Glory to you smiled and gestured to sit in the car on the front passenger seat.'

	 act 'Sit next to the driver.':
	 cls
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/kim/002.jpg" ></center>'
	 'You sat on the seat next to the driver. Glory came to the door and slammed it. He walked to his seat and sat behind the wheel drove off. Glory again flew around the city spit on traffic lights, other machinery and marks.'
	     if slavaQW>0:slavaQW+=1&'As long as you drove through the city .'
	     if slavaQW=0:slavaQW=1&'As long as you drove through the city, Glory to tell you, he tusit in your spare time, Flying in a bar located in the northern area of вЂ‹вЂ‹the city.'
	 dynamic $qwmeetdin
	 end

	 act 'Sit in the back seat.':
	 cls
	 minut+=3
	 gs'stat'
	 '<center><img src="qwest/kim/002.jpg" ></center>'
	 'You defiantly sat in the back seat and Glory hmyknuv shut the door behind you. He walked to his seat and sat behind the wheel drove off. Glory again flew around the city spit on traffic lights, other machinery and marks.'
	 dynamic $qwmeetdin
	 end

$qwmeetdin={
'Finally the car stopped near the restaurant.'
	 act 'Out of the car.':
	 cls
	 minut+=60
	 energy=21
	 water=21
	 vladimirday=day
     vladimirQW=35
	 gs'stat'
	 'At the restaurant you already met Vladimir. He held you to book a table. You drank and ate together with Vladimir, who spoke little and mostly compliments.'
		 if VladimirKnowAboutHusband=0:
		 'Then you come out of the restaurant and sat in the car with Vladimir, Glory to you vividly drove to your house. Vladimir pointedly whispered, "can priglasish me in?"'
		 act 'Sorry, but I still have a case.':gt 'street'
			 if husband<=0:
				 act 'Invite.':
				 cls
				 minut+=15
				 set $nameV = 'Vladimir'
				 $boy = 'Vladimir'
				 set dick = 16
				 silavag = 1
				 NoGuy=1
				 InYouHome=1
				 harakBoy=0
				 finance=2
				 money+=5000
				 'You went with Vladimir in bedroom. Vladimir skeptical osvotrel your humble abode and took out his wallet. I hope you will not mind if I give you money? He handed you five thousand. You are a little hidden money offered to you.'
				 act '...':gt'BDsex','start'
				 end
			 end
			 if husband>0 and VladimirKnowAboutHusband=0:
				 act 'I am married.':
				 cls
				 VladimirKnowAboutHusband=1
				 'You said Vladimir that you have a husband. He kept apologizing and said good-bye to you.'
				 act 'Get_Away.':gt 'street'
				 end
			 end
		 end
		 if VladimirKnowAboutHusband=1:
		 'After the feast . He suggested that you go to him, to a safe place.'
		     act 'Sorry, but I still have a case.':gt 'street'
			 act 'agree.':
			 cls
			 minut+=15
			 set $nameV = 'Vladimir'
			 $boy = 'Vladimir'
			 set dick = 16
			 silavag = 1
			 NoGuy=1
			 harakBoy=0
			 finance=2
			 GoToGuy=2
			 'Glory to you vividly drove a rented apartment to Vladimir. You got out and went to the apartment.'
			 'In the apartment you went with Vladimir in bedroom.'
			 act '...':gt'BDsex','start'
			 end
		 end
	 end
}










--- qwmeet3 ---------------------------------

# qwpaluba
minut+=30
energy=21
water=21
gs'stat'
'<center><B><font color=maroon>boat</font></B></center>'
'<center><img src="qwest/vladimir/kater2.jpg" ></center>'
'You brought a tray on the deck and set it on the table in front of men. Vladimir started to pour a glass of vodka and showed you sit down on a chair inviting. Isolde came and also brought a variety of eatables on a tray.'
'You all but Glory sat at a table on the deck . Nicholas raised a toast "For the ladies present here."' 
'All drank a pile and went back to their conversations. Vladimir in a floor vote that is explained Nicholas. And frankly Vitaly bummed sgaretu smoking and staring at your feet.' 
'Isolde stood leaning his hands on the gunwale and this neighborhood. Glory drove the boat on the river.' 

	 act 'To approach Isolde':
	 cls
	 izoldaWQ=1
	 minut+=15
	 gs'stat' 
	 '<center><B><font color=maroon>Isolde</font></B></center>'
	 '<center><img src="qwest/kolan/izolda.jpg" ></center>'
	 'Glory began to perform a U-turn that would come back to the place where you left. You clutched the railing beside Isolde, that would not fall, Nicholas cried "Banzai, careful, do not you carry firewood."'
	 'After the boat lined chat with you about all sorts of trivia Isolde. She called you my address in the city center and invited as a call on her.'
	 'The boat finally dropped the course and began to stick to the coast where you set sail for a walk.'
	 act 'To go ashore':gt'qwbereg'
	 end
	 
	 act 'Approach to Glory':
	 cls
	 minut+=15
	 gs'stat' 
	 '<center><B><font color=maroon>glory</font></B></center>'
	 '<center><img src="qwest/kim/001.jpg" ></center>'
	 'Glory grinned seeing you. "Hold on tight, I now turn to go." You clutched the handrails and Asian rider banked on a river boat turning. Nicholas cried "Banzai, careful, do not you carry firewood."'
	 'The driver smiled "I can not help myself, love speed. Do you love speed?"'
	     act 'not very':
	     cla
	     slavaQW=1
	     '(Do_You) - not very.'
	     '(glory) - You just do not feel it yet. What would you love to feel the speed it should be. In the evenings, near the bar "flight", We go there.'
	     'The boat finally dropped the course and began to stick to the coast where you set sail for a walk.'
	     act 'To go ashore':gt'qwbereg'
	     end
	     
	     act 'Yes_I_Am.':
	     cla
	     slavaQW=1
	     '(Do_You) - Yes_I_Am.'
	     '(glory) - In the evenings, bar "flight", We go there, I`ll show you, what real speed.'
	     'The boat finally dropped the course and began to stick to the coast where you set sail for a walk.'
	     act 'To go ashore':gt'qwbereg'
	     end
	 end
	 
	 act 'Talk Vitali':
	 cls
	 minut+=15
	 gs'stat' 
	 '<center><B><font color=maroon>Vitali</font></B></center>'
	 '<center><img src="qwest/marafet/001.jpg" ></center>'
	 'You started talking with Vitali, he acknowledged that working with the police in the rank of captain. At this time, you are not expecting such slipped from the couch and grabbed the Vitali that would not fall. Nicholas cried "Banzai, careful, do not you carry firewood."'
	 'Vitaly grabbed you that you would not have fallen to the floor. After the boat leveled it helped you network on the sofa, and his hands slid over your body and stopped by the pope. Then he sighed and removed his hands and poured vodka.'
	 'The boat finally dropped the course and began to stick to the coast where you set sail for a walk.'
	 act 'To go ashore':gt'qwbereg'
	 end
 
 
 
 
 
 
 
 
 
--- qwpaluba ---------------------------------

# AnalPR
if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut = minut + 1
set prosti = 0
clr
gs'stat'
'<center><img src="prost/anal.jpg" ></center>'
set dickK = dick*10/100
if dickK < 1:set dickK = 1
set anus = anus + dickK

	 if anus < dick:
	 set fun = 0
	 set $analsex = 'Ass ached when the member entered her, client waited a little, until your ass and began to adapt gradually to move his cock in you, gradually accelerating.' 
	 end
	 
	 if anus >= dick:
	 set horny = horny + anus
	 set $analsex = 'you feel, as similar to the vagina is stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.' 
	 end
'You got cancer and client uper you in your ass <<dick>> inch dick. <<$analsex>>'
'Finally.'
set anal = anal + 1
money+=ProsMoney*100
set analprotect = 1
act 'Get_Away.':GOTO $locSex, $metkaSex
end

if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut = minut + 1
set prosti = 0
clr
gs'stat'
set picanRand = RAND (1,6)
if picanRand = 1:'<center><img src="prost/cowl.jpg" ></center>'
if picanRand = 2:'<center><img src="prost/cowl2.jpg" ></center>'
if picanRand = 3:'<center><img src="prost/cowl3.jpg" ></center>'
if picanRand = 4:'<center><img src="prost/cowl4.jpg" ></center>'
if picanRand = 5:'<center><img src="prost/cowl5.jpg" ></center>'
if picanRand = 6:'<center><img src="prost/cowl6.jpg" ></center>'
set dickK = dick*10/100
if dickK < 1:set dickK = 1
set anus = anus + dickK
	 if anus < dick:
	 set fun = 0
	 set $analsex = 'A sharp pain shot through a member of the pop in the ass, making you wince moan. Client waited patiently until your anus, accustomed to stretching, but you still could not get rid of the nagging pain. fake smile, through the desire to end this torture quickly, you gave the signal to start the action. The client was cautious, starting with slow movements in the anus, gradually accelerating, he forgot about your suffering, surrendering his own pleasure, and are not seen as В«goodsВ», writhes and moans in pain.' 
	 end
	 if anus >= dick:
	 set horny = horny + anus
	 set $analsex = 'you feel, as similar to the vagina is stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.' 
	 end
'As soon as you lay on the hood of the car, legs spread, anus you rested <<dick>> inch dick. <<$analsex>>'

if klismaday ! day and analprotect = 0:act 'Get_Away':gt 'AnalPR','3'

	 if klismaday = day:
	 set money = money + 2000
	 set cumanalRand = RAND (0,2)
		 
		 if cumanalRand = 0: 
		 'Suddenly, client abruptly yanked member, before a drop of his seed watered half your ass. '
		 set anal = anal + 1
		 set cumanal = cumass + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end
		 
		 if cumanalRand = 1: 
		 'Suddenly, client abruptly yanked member, before a drop of his seed rain fell on your body, dirtying clothes traces of milk. '
		 set anal = anal + 1
		 set cumfrot = cumfrot + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end 
		 
		 if cumanalRand = 2: 
		 'Customer traffic has been a sharp and painful it literally rammed you in the ass, Finally you feel like you are inside the sperm flows, do you think it was over.'
		 set anal = anal + 1
		 set cumanus = cumanus + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end 
	 end
end

if $ARGS[0]='3':
cla
*clr
gs'stat'
'You were going to get the money but instead heard swearing. В«Are you really fear the nipple lost my entire bolt, in your shit, do_you, that do not know, I have a fuck, instead Toilet Brushes, get out of here while intact, And the money you can forgetВ». '
act 'Get_Away.':GOTO $locSex, $metkaSex
if intel <= 100:act 'be_rude':gt 'AnalPR','4'
if intel >= 50:act 'make amends':gt 'AnalPR','5'
end

if $ARGS[0]='4':
cla
*clr
gs'stat'
'<center><img src="prost/bjr.jpg" ></center>'
'В«Listen, I do not understand, whip my money ... В» agreement. The man hit you hard blows to the chest, from what you crashed to the ground. В«wanted money, Well bitch , but you have to correct his mistakeВ» After these words he drove you exuding the stench dick in her mouth. You choking from the stench, but there was nothing, eyes closed, how to say yes, you try to keep from vomiting, fear of causing mayhem. The stranger had you in the mouth, trying with every movement of your eggs to touch your lips. His cock soon became clear, but that did not stop him, it seemed an eternity before he again finished right in the throat. Looking at you roll in a mixture of saliva and vomit .'
set money+=ProsMoney*100
set manna = manna - 30
set health = health - 30
set willpower = willpower - 30
set bj = bj + 1
set throat = throat + 1
act 'Get_Away.':GOTO $locSex, $metkaSex
end

if $ARGS[0]='5':
cla
*clr
gs'stat'
'<center><img src="prost/bjr1.jpg" ></center>'
'You perfectly understand everything, you are to blame, and you are correct, client insanely angry and it seems, ready to tear you to pieces. You decide to make amends, guilt polished mouth stained body of the client. '
set bj = bj + 1
set throat = throat + 1
act 'suck':gt 'AnalPR','6'
end

if $ARGS[0]='6':
cla
*clr
gs'stat'
'<center><img src="prost/sexcar20.jpg" ></center>'
'Bitter taste in the mouth of feces did not give you a taste of diluted sperm. Freeing your desktop mouth, customer ordered to lie down on the grass. You dutifully and even with a certain touch of acting talent are acting as, innocent until you fuck doll. customer, warmed your skillful mouth, long twitching over you, quickly ran out into the condom. While you are lying recovering, your body fall three green paper, he was pleased with, smiling happily do you think.'
set vagina = vagina + 1
set money+=ProsMoney*110
act 'Get_Away.':GOTO $locSex, $metkaSex
end
--- AnalPR ---------------------------------

# blowPR
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
zpprand=RAND(0,100)
if zpprand>=70:dynamic $venerasiak
set minut = minut + 1
set guy = guy + 1
set bj = bj + 1
set throat = throat + 1
set prosta = prosta + 1
!set son = son - 1
clr
gs'stat'
'<center><img src="prost/bj.jpg" ></center>'
'Your hand slipped on the perineum Man and unzipped his pants. You have thrust his hand into his pants and pulled out his cock.'
if prezik > 0:act 'Dress up your mouth condom on the penis.':gt 'blowPR','1'
if prezik = 0:act 'Take a cock in her mouth.':gt 'blowPR','2'
end

if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut = minut + 5
set prezik = prezik - 1 
clr
gs'stat'
set picrand = RAND (0,6)
if picrand = 0:'<center><img src="prost/bjp.jpg" ></center>'
if picrand = 1:'<center><img src="prost/bjp2.jpg" ></center>'
if picrand = 2:'<center><img src="prost/bjp3.jpg" ></center>'
if picrand = 3:'<center><img src="prost/bjp4.jpg" ></center>'
if picrand = 4:'<center><img src="prost/bjp5.jpg" ></center>'
if picrand = 5:'<center><img src="prost/bjp6.jpg" ></center>'
if picrand = 6:'<center><img src="prost/bjp7.jpg" ></center>'
'You pulled my lips condom on the penis'
     if prosti = 0:
     'Your lips slide down the barrel of the client, until he cums in a condom'
     act 'Get_Away.':GOTO $locSex, $metkaSex
     end
     
     if prosti = 1:
     'Client warmed up enough and you can continue.'
     act 'further.':gt'NormPR','1'
     end
     
     if prosti = 2:
     'Client warmed up enough and you can continue.'
     act 'further.':gt'AnalPR','1'
     end
end

if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
dynamic $venerasiak
set minut = minut + 5
clr
gs'stat'
set picrand = RAND (0,5)
if picrand = 0:'<center><img src="prost/bjp8.jpg" ></center>'
if picrand = 1:'<center><img src="prost/bjp9.jpg" ></center>'
if picrand = 2:'<center><img src="prost/bjp10.jpg" ></center>'
if picrand = 3:'<center><img src="prost/bjp11.jpg" ></center>'
if picrand = 4:'<center><img src="prost/bjp12.jpg" ></center>'
if picrand = 5:'<center><img src="prost/bjp13.jpg" ></center>'
'You are a member of her lips.'
act'suck':gt'blowPR','12'
end

if $ARGS[0]='12':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
     if prosti = 0:
     bjrand = RAND (0,100)
         if bj <= 15 and bjrand > 0 and bjrand <= 50:
         'You clumsy movements suck dick client, until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
         set cumlip = cumlip + 1
         '<center><img src="prost/bjm.jpg" ></center>'
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bj > 15 and bjrand > 0 and bjrand <= 50:
         set cumlip = cumlip + 1
         '<center><img src="prost/bjm2.jpg" ></center>'
         'Your trained lips slide up and down, delivering customer delight. Very soon you will feel the taste of his seed, you swallow with pleasure to the last drop.'
         set cumlip = cumlip + 1
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
         set cumface = cumface + 1
         '<center><img src="prost/bjf.jpg" ></center>'
         'You clumsy movements suck dick client, suddenly he pulls you my dick, ending with your face, you do not have time to blink, little sperm gets in your eyes, but, despite the burning, you can not cry, can only smile.'
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
         set cumface = cumface + 1
         set mop = 0
         '<center><img src="prost/bjf.jpg" ></center>'
         'You clumsy movements suck dick client, suddenly he pulls you my dick, ending with your face, you do not have time to blink, little sperm gets in your eyes, but, despite the burning, you can not cry, can only smile.'
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bjrand > 50 and bjrand <= 80 and bj > 15:
         set cumface = cumface + 1
         '<center><img src="prost/bjf2.jpg" ></center>'
         'Your trained lips slide up and down, delivering customer delight, Once the client has released your mouth, you get the idea, Now that your face is flooded with sperm. you have time, tilt your head back with her eyes closed, heavy drops fall on your chin, forcing to smile at the thought of, not smeared makeup.'
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bjrand > 80 and bjrand <= 100 and bj <= 15:
         '<center><img src="prost/bjt2.jpg" ></center>'
         'You clumsy movements suck dick client, He stretches his hands to your chest trying to expose it. you bellowed, implying, that did not agree. Dissatisfied client continued to have you in the mouth. You have already relaxed, client, pushing, pulled wet with saliva member.  his eyes closed, you feel, as a drop of sperm not fall on your face, and chest! Surprised you open your eyes, with horror when he saw stained clothes in the semen, Pretty smiling and client.'
         set cumfrot = cumfrot + 1
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
         
         if bjrand > 80 and bjrand <= 100 and bj > 15:
         '<center><img src="prost/bjt.jpg" ></center>'
         'Your trained lips slide up and down, delivering customer delight. He stretches his hands to your chest does not patiently trying to expose it, Do you understand without words. Exposing tits you have become thoroughly work the mouth, when he was already on the verge of, you have stepped back sharply, slipped back to the member, became an instant client shoot sperm on your carefully the substituted Hemisphere. remains fairly, he handed you another Pjatihatki. '
         set money += 500
         act 'Get_Away.':GOTO $locSex, $metkaSex
         end
     end
     
     if prosti = 1:
     'Client warmed up enough and you can continue.'
     act 'further.':gt'NormPR','2'
     end
     
     if prosti = 2:
     'Client warmed up enough and you can continue.'
     act 'further.':gt'AnalPR','2'
     end
end







--- blowPR ---------------------------------

# NormPR
if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set prosti = 0
set minut = minut + 15
set sex = sex + 1
set protect = 1
clr
gs'stat'
set sexprostRand = RAND (0,1)
	 if sexprostRand = 0:
	 '<center><img src="prost/sexcar.jpg" ></center>'
	 'You obediently lay naked in the back seat, while in your hole includes members.'
	 gs'orgazm','start'
     end

	 if sexprostRand = 1:
	 '<center><img src="prost/sexcar2.jpg" ></center>'
	 'Standing on all fours.'
	 gs'orgazm','start'
	 end

act 'Get_Away.':GOTO $locSex, $metkaSex
end

if $ARGS[0]='2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set prosti = 0
set minut = minut + 15
set sex = sex + 1
clr
gs'stat'
set prostRand = RAND(0,100)

if prostRand > 0 and prostRand <= 50:
set picpRand = RAND (1,7)
set pose = 1
'becoming cancer, you feel hot prick seeking to get into the vagina.'
gs'orgazm','start'
end

if prostRand > 50 and prostRand <= 75:
set picpRand = RAND (8,10)
set pose = 1
'Standing on all fours .'
gs'orgazm','start'
end

if prostRand > 75 and prostRand <= 100:
set pose = 0
set picpRand = RAND (11,17)
'You were ordered to undress and lie down on the hood of the car.'
gs'orgazm','start'
end
if picpRand = 1:'<center><img src="prost/sexcar3.jpg" ></center>'
if picpRand = 2:'<center><img src="prost/sexcar4.jpg" ></center>'
if picpRand = 3:'<center><img src="prost/sexcar5.jpg" ></center>'
if picpRand = 4:'<center><img src="prost/sexcar6.jpg" ></center>'
if picpRand = 5:'<center><img src="prost/sexcar7.jpg" ></center>'
if picpRand = 6:'<center><img src="prost/sexcar8.jpg" ></center>'
if picpRand = 7:'<center><img src="prost/sexcar9.jpg" ></center>'
if picpRand = 8:'<center><img src="prost/sexcar10.jpg" ></center>'
if picpRand = 9:'<center><img src="prost/sexcar11.jpg" ></center>'
if picpRand = 10:'<center><img src="prost/sexcar12.jpg" ></center>'
if picpRand = 11:'<center><img src="prost/sexcar13.jpg" ></center>'
if picpRand = 12:'<center><img src="prost/sexcar14.jpg" ></center>'
if picpRand = 13:'<center><img src="prost/sexcar15.jpg" ></center>'
if picpRand = 14:'<center><img src="prost/sexcar16.jpg" ></center>'
if picpRand = 15:'<center><img src="prost/sexcar17.jpg" ></center>'
if picpRand = 16:'<center><img src="prost/sexcar18.jpg" ></center>'
if picpRand = 17:'<center><img src="prost/sexcar19.jpg" ></center>'
act 'Get_Away.':GOTO $locSex, $metkaSex
end
--- NormPR ---------------------------------

# Prostitute
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
$metkaSex = $ARGS[0]
$locSex = $CURLOC
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>prostitute</font></B></center>'
'<center><img src="pic/park2.jpg" ></center>'
clr
gs'stat'
gs'time'
if hour >= 16 and hour <= 23:
	 if whoreQW = 2:
		 'Prostitutes look at you with curiosity.'
		 end
	 if whoreQW = 1:
		 'Prostitutes look at you with interest.'
		 act 'talk':
			 cla
			 set whoreQW = 2
			 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are all free, do not work on anyone, but because of the many problems. Stella with her вЂ‹вЂ‹friends is svimi beat us and rob, sometimes come petty criminals and rob us of money. If you want to work here, you have to pay and Stella and bandyukov. You certainly cool, you can try to lay siege to Stella and her bridesmaids, but the bandits do not advise to contact. And more, you do not bite on customers, if you nebudesh dressed like a whore, you can buy some clothes in a sex shop."'
			 act 'move_away':gt'prostitute','start'
			 end
		 end
	 if whoreQW = 0:
		 'hey, you are not one of our, brought down to our terms, and that the teeth do not gather.'
		 act 'Fuck you!':
			 cla
			 set minut = minut + 15
			 set $nameV = 'stoned prostitute'
			 !stats
			 set strenV = 20
			 set speedV = 30
			 set agilV = 30
			 set reactV = 30
			 set vitalV = 50
			 set intelV = 10
			 set willV = 10
			 !skills
			 set magikV = 10
			 set boxingV = 10
			 set shootV = 10
			 !parameters
			 set healthV = vitalV*10 + strenV*5
			 set mannaV = intelV*10 + magikV*10
			 set willpowerV = willV*10
			 set BonusAtakV = 0
			 set BonusDefV = 0
			 !Programme of Action
			 set program = 0
			 set prostitutFight = 1
			 if spellavtoklon = 1:set klon = 3
			 if spellbefshild = 1:set defence = 500
			 gt'fight','start'
			 end
		 act 'How to become one of your?':
			 cla
			 'How to become one of your? asked you. Prostitute grinned impudently, spat. To do this.'
			 act 'move_away':gt'prostitute','start'
			 act 'I agree':
				 cla
				 whoreQW = 2
				 'you agreed. The prostitute told you, you need to buy some clothes in the sex shop. Then customers will immediately realize that you are a prostitute.'
				 act 'move_away':gt'prostitute','start'
				 end
			 end
		 end
	 if whoreQW > 1 and hook = 1 and son > 0:
		 act 'Stand on the panel 15 min':
			 cla
			 set minut = minut + 10
			 set prosrand = RAND (0,(vnesh+hour)*2)
			 if prosrand < 20:
				 'No you are not interested in.'
				 act 'Get_Away':gt'prostitute','start'
				 end
			 if prosrand >= 20:
				 'To you drove the car.'
				 set proseventrand = RAND (0,100)
				 if proseventrand <= 5:
					 'To you drove a black jeep, opened the window and leaned out healthy impudent face. "Hey whore, it`s time to pay tribute. Come here Shtukar and Wali further work."'
					 if money >= 1000:
						 act 'give money':
							 cla
							 set money = money - 1000
							 'You gave money big man in the jeep. He put them in his pocket and left.'
							 act 'move_away':gt'prostitute','start'
							 end
						 end
					 if money<1000:
						 act 'I still do not earn as much':
							 cla
							 money = 0
							 'You begin to explain big man, that you have not earned it grabbed you by the arm and threw him into a jeep, there you have it brushed his pocket, how to work.'
							 act 'work':
								 set $nameV = 'bandit'
								 set $boy = 'bandit'
								 set dick = RAND (18,21)
								 gt'blowPR','start'
								 end
							 end
						 end
					 act 'Fuck you!':
						 cla
						 set minut = minut + 15
						 set $nameV = 'bandit'
						 !stats
						 set strenV = 200
						 set speedV = 30
						 set agilV = 20
						 set reactV = 20
						 set vitalV = 150
						 set intelV = 10
						 set willV = 10
						 !skills
						 set magikV = 10
						 set boxingV = 10
						 set shootV = 10
						 !parameters
						 set healthV = vitalV*10 + strenV*5
						 set mannaV = intelV*10 + magikV*10
						 set willpowerV = willV*10
						 set BonusAtakV = 0
						 set BonusDefV = 0
						 !Programme of Action
						 set program = 0
						 set prostitutFight = 2
						 if spellavtoklon = 1:set klon = 3
						 if spellbefshild = 1:set defence = 500
						 gt'fight','start'
						 end
					 end
				 if proseventrand > 5 and proseventrand <= 50:
				 klient_needs=0
				 prosti = 0
				 KlientMON=RAND(1,10)
					 'The client wants a blowjob and asks how much it will cost.'
				 end
				 if proseventrand > 50 and proseventrand <= 75:
				 klient_needs=1
				 prosti = 0
				 KlientMON=RAND(3,25)
					 'The client wants sex and asks how much it will cost.'
				 end
				 if proseventrand > 75 and proseventrand <= 95:
				 klient_needs=2
				 prosti = 0
				 KlientMON=RAND(5,40)
					 'Client wants anal and asks how much it will cost.'
				 end 
				 if proseventrand > 5 and proseventrand <= 95:
				 klienVNPR=RAND(0,30)
				 
				 act 'Get_Away':gt'prostitute','start'
					 if ProsMoney>0:
						 act '<<ProsMoney*100>> rubles':
						 cls
						 dynamic $universalklient
						 end
					 end
					 
					 act 'put a price':
					 cls
					 gs'stat'
					 ProsMoney=input("Assign cost hundreds")
					     if ProsMoney<1:
					     'The client looked at you in surprise and muttered "Some sort of fucked." Then started the car and drove off.'
					     act 'Get_Away':gt'prostitute','start'
					     else
					     dynamic $universalklient
					     end
					 end
					     
					     
				 end
				 if proseventrand > 95:
					 'To you came prostitute. "Slysh, slut, If you do not want problems, you have to pay Stella. Come here pyatihatnik and Wali further work."'
					 if money >= 500:
						 act 'give money':
							 cla
							 set money = money - 500
							 'You gave money to a prostitute, She turned and walked away.'
							 act 'move_away':gt'prostitute','start'
							 end
						 end
					 if money<500:
						 act 'I still do not earn as much':
							 cla
							 set money = 0
							 'You started zhalovatsya that have not yet earned so much money. Prostitute search you took everything of value and left.'
							 act 'move_away':gt'prostitute','start'
							 end
						 end
					 act 'Fuck you!':
						 cla
						 set minut = minut + 15
						 set $nameV = 'prostitute'
						 !stats
						 set strenV = 50
						 set speedV = 50
						 set agilV = 40
						 set reactV = 30
						 set vitalV = 60
						 set intelV = 10
						 set willV = 10
						 !skills
						 set magikV = 10
						 set boxingV = 10
						 set shootV = 10
						 !parameters
						 set healthV = vitalV*10 + strenV*5
						 set mannaV = intelV*10 + magikV*10
						 set willpowerV = willV*10
						 set BonusAtakV = 0
						 set BonusDefV = 0
						 !Programme of Action
						 set program = 0
						 set prostitutFight = 3
						 if spellavtoklon = 1:set klon = 3
						 if spellbefshild = 1:set defence = 500
						 gt'fight','start'
						 end
					 end
				 end
			 end
		 end
	 end
act 'GET_AWAY':
	 cla
	 set minut = minut + 5
	 set prosta = 0
	 gt'park','start'
	 end	
end
--- Prostitute ---------------------------------

# Menu.Info
*NL 'Module for menu'
*NL 'version: 1.0'
*NL 'author: Olegus t.Gl. (c) 2011'
*NL 'website: http://olegus.ifiction.ru'
*NL 'e-mail: olegus.tgl@gmail.com'
*NL 'icq: 145 540 276'
*NL 'Forum topic: http://forum.ifiction.ru/viewtopic.php?id=1527'
--- Menu.Info ---------------------------------

# Menu.Create
if $ARGS[0]='': EXIT
!----------
$ARGS[0]='otg_Menyu_'+$ARGS[0]
!----------
killvar '<<$ARGS[0]>>'
killvar '<<$ARGS[0]>>_parameters'
killvar '<<$ARGS[0]>>_selected'
killvar '<<$ARGS[0]>>_VybrannyyPunkt'
killvar '<<$ARGS[0]>>_time'
killvar '<<$ARGS[0]>>_ModuliSobyty'

--- Menu.Create ---------------------------------

# Menu.Add
if $ARGS[0]='' or $ARGS[1]='': EXIT
!----------
if $ARGS[1]='---' or lcase($ARGS[1])='separator':
	dynamic "$otg_Menyu_<<$ARGS[0]>>[]='-:-'"
	EXIT
end
!----------
ARGS[10]=arrsize('ARGS')
if ARGS[10]<3: $ARGS[2]=''
if ARGS[10]<4: $ARGS[3]=''
!----------
$ARGS[0]='otg_Menyu_<<$ARGS[0]>>'
$ARGS[1]=replace($ARGS[1],'''','''''')
if $ARGS[2]<>'': $ARGS[2]=':'+replace($ARGS[2],'''','''''')
if $ARGS[3]<>'': $ARGS[3]=replace($ARGS[3],'''','''''')
!----------
dynamic "
	$<<$ARGS[0]>>[]='<<$ARGS[1]>>:menu.{treatment}<<$ARGS[2]>>'
	$<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_W']='<<$ARGS[1]>>'
	$<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_F']='<<$ARGS[3]>>'
"
!----------
$ARGS[3]=''
if ARGS[10]>4:
	ARGS[11]=4
	:otg_menyu_metka_1
	if ARGS[11]<ARGS[10]:
		if $ARGS[ARGS[11]]<>'':
			$ARGS[3]+=','''+replace($ARGS[ARGS[11]],'''','''''')+''''
		else
			if ARGS[ARGS[11]]<>0:
				$ARGS[3]+=','+str(ARGS[ARGS[11]])
			else
				$ARGS[3]+=','''''
			end
		end
		ARGS[11]+=1
		jump 'otg_menyu_metka_1'
	end
end
!----------
dynamic "
$<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_P']='<<replace($ARGS[3],'''','''''')>>'
"
--- Menu.Add ---------------------------------

# Menu.AddCondition
if $ARGS[0]='' or $ARGS[1]='': EXIT
!----------
ARGS[10]=dyneval("Result=arrsize('otg_Menyu_<<$ARGS[0]>>')")
if dyneval("$Result=$otg_Menyu_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-:-': EXIT
!----------
dynamic "
	$otg_Menyu_<<$ARGS[0]>>_parameters['<<ARGS[10]>>_Do']='<<replace($ARGS[1],'''','''''')>>'
"

--- Menu.AddCondition ---------------------------------

# Menu.AddModule
if $ARGS[0]='' or $ARGS[1]='': EXIT
!----------
ARGS[10]=dyneval("Result=arrsize('otg_Menyu_<<$ARGS[0]>>')")
if dyneval("$Result=$otg_Menyu_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-:-': EXIT
!----------
dynamic "
	$otg_Menyu_<<$ARGS[0]>>_parameters['<<ARGS[10]>>_M']='<<replace($ARGS[1],'''','''''')>>'
"

--- Menu.AddModule ---------------------------------

# Menu.AddEvent
if $ARGS[0]='' or $ARGS[1]='': EXIT
!----------
$ARGS[1]=lcase(trim($ARGS[1]))
!----------
if $ARGS[1]='when you select':
	dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
elseif $ARGS[1]='after selection processing':
	dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
elseif $ARGS[1]='failure of the choice':
	dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
end

--- Menu.AddEvent ---------------------------------

# Menu.Call
if $ARGS[0]='': EXIT
!----------
ARGS[10]=arrsize('otg_Menyu_<<$ARGS[0]>>')
if ARGS[10]=0: EXIT
!----------
$otg_Menu_Current='otg_Menyu_<<$ARGS[0]>>'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
ARGS[11]=0
:otg_menyu_metka_2
if ARGS[11]<ARGS[10]:
	dynamic "
		$ARGS[0]=$<<$otg_Menu_Current>>_parameters['<<ARGS[11]+1>>_Do']
		if $ARGS[0]='':
			$otg_Menyu_Vyzyvaemoe[]=$<<$otg_Menu_Current>>[<<ARGS[11]>>]
			otg_Menu_Compliance[]=<<ARGS[11]+1>>
		else
			if dyneval($ARGS[0])<>0:
				$otg_Menyu_Vyzyvaemoe[]=$<<$otg_Menu_Current>>[<<ARGS[11]>>]
				otg_Menu_Compliance[]=<<ARGS[11]+1>>
			end
		end
	"
	ARGS[11]+=1
	!----------
	jump 'otg_menyu_metka_2'
end
!----------
otg_Menu_Time=0
dynamic "
	<<$otg_Menu_Current>>_selected=0
	<<$otg_Menu_Current>>_VybrannyyPunkt=0
	<<$otg_Menu_Current>>_time=MSECSCOUNT
"
!----------
menu 'otg_Menyu_Vyzyvaemoe'
!----------
dynamic "
	if <<$otg_Menu_Current>>_selected=0:
		<<$otg_Menu_Current>>_time=MSECSCOUNT-<<$otg_Menu_Current>>_time
		$ARGS[0]=$<<$otg_Menu_Current>>_ModuliSobyty['failure of the choice']
		if $ARGS[0]<>'': dynamic $ARGS[0]
	else
		$ARGS[0]=$<<$otg_Menu_Current>>_ModuliSobyty['after selection processing']
		if $ARGS[0]<>'': dynamic $ARGS[0],$<<$otg_Menu_Current>>_parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_W']"+dyneval("$Result=$<<$otg_Menu_Current>>_parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_P']")+"
	end
"
!----------
killvar 'otg_Menyu_Tekuschee'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_selected")
--- Menu.Call ---------------------------------

# Menu.Chosen
if $ARGS[0]='': EXIT
Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_selected")
--- Menu.Chosen ---------------------------------

# Menu.Time
if $ARGS[0]='':
	Result=otg_Menu_Time
else
	Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_time")
end
--- Menu.Time ---------------------------------

# Menu.Destroy
if $ARGS[0]='': EXIT
GS 'Menu.Create',$ARGS[0]
--- Menu.Destroy ---------------------------------

# casino
*PL '<right><img src="casino/zdcasino.jpg" ></right>'
*PL 'You stand in front of the door of the huge building casino.'
ACT 'Sign in casino':
	gt 'hall'
END
ACT 'Back in the northern region':
	gt 'nord'
END
minut+=10
gs'stat'


!TEST

!if tobiQW < 1000:tobiQW = 1000






--- casino ---------------------------------

# mqroom
clr
gs'stat'
set minut=minut + 5

'<center><img src="casino/oldman1.jpg" ></center>'
'You have gone with Plato in his room Aristarkhovich, he sat down at the table and you, from his pocket a roll, put it in front of him.'
'Plato Aristarkhovich began to scrutinize the scroll. You shifting from foot to foot in anticipation of what he says.'
'(Plato Aristarkhovich) - prelyubopytny thing. Although, that most of the characters familiar to me, common sense written eludes my understanding. I learned a few phrases. then, that the roll is called a scroll Rikudo and need to stomp on his foot print. print - Here is this great character in the center of the scroll.'
'(Do_You) - stamp his foot? What`s this?'
'(Plato Aristarkhovich) - I have no idea. `d Never met. But that`s the phrase clearly indicates, out, that it is necessary to stamp on the central hieroglyph. Then there is a, what-something about the increase in strength, but it is unclear.'

act 'Put the roll on the floor and stamp his foot.':
cla
*clr
magika=1
'You put a roll on the floor and stamped his foot on the central large hieroglyph.'
'A bright flash and scroll erupted beneath your feet. Are you-I felt, what-is a breath of wind .'
     act 'your mother! As head pops!':
     cla
     'My head buzzed and was pounding like a steam hammer. You flew idea: "Now it seems I will have a stroke". You grabbed his head and sat down in the chair, unable to think about anything .'
     'Plato Aristarkhovich bustled around, "what the hell is going on, do not worry, I `ll call doctors."'
     'The man ran out of the room and soon returned with a girl. She came up to you and you took his hand under the chin.'
         act 'Look into her eyes.':
         cla
         *clr
		 inited = 1
		 music_on=1
		 volume = 100
		 $music_theme = 'orochimaru'
		 gs 'init_music'
         '<center><img src="casino/oro.jpg" ></center>'
         'Mother of God. Just thought you looked into her eyes. Deathly pale skin, cruel and cold snake eyes. The creature grinned.'
         '(being) - "So you see my true form. That`S_Great." Hissed the snake creature voice.'
         'Looking into those eyes and you only managed to whisper: "who are you?". being giggled: "long story, you do not break down and will soon die".'
         'At this point you are physically, whole body, experienced as reality is broken and that-something terrible and powerful squeezes into reality, trying to see you with his one eye.'
         'Being with snake eyes sharply turned and looked at the door. "he came! It is necessary to skedaddle" - hissed angrily creature. At this moment.'
             act 'Look at the stranger.':
             cla
			 *clr
			 '<center><img src="casino/tobi.jpg" ></center>'
			 'In the doorway stood a man in a black robe, on which were painted red clouds. His face was covered with a mask slit for the eyes. You feel great power, literally pervading space, extending from the eye of the. The masked man said dully: "Here we svidelis Orochimaru. Again?"'
			 'Zmeeglazoe creature with a female body and the snake hissed angrily eyes: "And I still do Toby? As long as you control Tsukuyomi, I can only escape. But believe me, I will change very quickly. You`re out of the hunter becoming a victim."'
			 'Suddenly a man in a mask named Toby attacked zmeeglazogo, He rushed forward, trying to grab the throat zmeeglazogo. At Orochimaru literally flew out of the sleeve snake toward Toby, but to your surprise snake flew through Toby and crashed into the door jamb.'
			 'Toby grabbed Orochimaru hand by the throat and lifted like a feather above the ground. "Now you die!" - Toby said grimly. Zmeeglazy opened his mouth , out of his mouth, what-then began to show. Toby said in surprise: "What is this trick, die with dignity."'
			 'But zmeeglazy not want to die and leave in the hands of Toby empty shell, he literally flew out of his mouth.'
			 'You watched in amazement through the headache as Toby is holding an empty skin zmeeglazogo, and he stands apart zmeeglazy. It lasted a second and Orochimaru, grab you as a feather, jumped out the window from the tenth floor.'
			     act 'Scream in panic.':
				 cla
				 *clr
				 '<center><img src="casino/oro.jpg" ></center>'
			     'Seeing the approaching land, you panicked, with the idea that now you will die. but zmeeglazy, You hold in your hands, landed on his feet, after breaking leg kick asphalt. You are seeing this strange creature in the face, it was cold and focused. suddenly-it crackled and looking down, as you saw the feet zmeeglazogo turn into a snake`s tail.'
			     'Sitting in the hands of steel Orochimaru, You literally flew through the streets, winding alleys and hop fences. You flew over the ground with tremendous speed, no time to even understand where you are. Very quickly. You feel physically as reality collapses behind you. Your pursuer Toby persisted, it, breaking reality, teleported, trying to overtake you.'
			     'With a busy person zmeeglazogo started to drip sweat. it hissed: "You also feel. He catches up with us. Remember, if I did not save, nobody will save. You`re going to die." Suddenly "Shinra Tensei" and had the feeling that you came down on the wall. You somewhere thrown and you rolling on the grass, corner of my eye noticed, zmeeglazy that also bounced from the impact.'
			         act 'raise your head.':
					 cla
					 *clr
					 '<center><img src="casino/pain.jpg" ></center>'
					 'Near you stood a tall, covered with piercings. Even the figure could be seen, that it is not one-eyed Tobey. Although hoodie was exactly the same, black, with drawings of red clouds.'
					 'Orochimaru raised his head and hissed: "Payne!" Skinny guy walked slowly towards Orochimaru: "No one can just walk away from the Dawn. Now I`m done with your immortal life."'
					 'Zmeeglazy opened his mouth and flew out of the blade of the sword. But Payne even not blink, blade, before reaching a few centimeters, shattered into fragments. "that`s all, that you can Orochimaru? Skedaddle from Toby into my hands, and before his death show a miserable spell?"'
					 'Payne raised his hand clenched and unclenched his hand. "CHIBAKU TENS"  - he said. Orochimaru howled "No!"'
					 'Did you feel like your body has become easier as, sand from the ground began to rise into the air and fly to the ball. Soon you too began to rise from the ground and pull the black ball. You clung to a tree stump, that you are not utyanulo. This black hole understand you, this guy with piercings just, before my eyes created a black hole and now we go there will tighten and grind. Pieces of land began to come off and fly toward the black hole. trees cracked. Orochimaru with a cry rushed to travel along the ground to you. He grabbed you and then you both get off the ground and carried to the black ball.'
					     act 'Look at Orochimaru.':
						 cla
						 *clr
						 '<center><img src="casino/oro.jpg" ></center>'
						 'Orochimaru, holding in your hands, grinning. But you felt his fear. You promptly flew into a black hole, located high in the sky and realized, that once there, you perish along with zmeeglazym.'
						 'Orochimaru hissed: "Remained the last hope. I opened my mouth, and you stick your hand in there, I roll in, uncover him and put her hand. Do it or we `ll both end."'
						 'Zmeeglazy opened his mouth so, that there is not something, that hand, and you could get through the whole. You disgust put his hand in his mouth and essentially feel there scroll. Removing it you will quickly unrolled, freaked characters.'
						 'Looking up you realized, that you have a few seconds until it touches the black hole.'
						 	 act 'Attach a hand to print in a book.':
							 cla
							 *clr
							 cursed=1
							 '<center><img src="casino/oro.jpg" ></center>'
							 'You put a hand to scroll and scroll lightning burned. You embraced the same strange feeling, and that on approaching Toby. There was a feeling, that reality burst, but this time the center of this hole were you. The sensation you tore the fact, Orochimaru that you sank his teeth into the neck. You pierced the deafening pain. Suddenly zmeeglazy let you go . You realized that he had spent everything forces trying to save you from destroying the spell Payne.'
							 'You flew down against the force of a black hole, while watching Orochimaru reached the black hole and his body began to break apart. But Orochimaru smiled despite his terrible, mortal pain and agony of his dying body. Finally from zmeeglazogo was only bloody mess that, swallow hole. Impulse makes you last effort Orochimaru ended and you start again attract a black hole. You flew toward her feeling gradually you get out of reality, just a little-a little and you`ll be far away from this place.'
							 'But the black hole is at hand, you to feel its impact, trying to tear you to shreds.'
							 music_on=0
							 act 'Close your eyes':gt'tuman'
							 end
						 end
					 
					 end
			     end
			 end
         end
     end
end
--- mqroom ---------------------------------

# $menu_skills
dynamic $objskills
--- $menu_skills ---------------------------------

# $menu_descrip
dynamic $objdescrip
--- $menu_descrip ---------------------------------

# $menu_statistika
dynamic $objstatistika
--- $menu_statistika ---------------------------------

# $menu_mobila
dynamic $objmobila
--- $menu_mobila ---------------------------------

# $menu_magic
dynamic $objmagic
--- $menu_magic ---------------------------------

# $menu_face
dynamic $objface
--- $menu_face ---------------------------------

# $menu_body
dynamic $objbody
--- $menu_body ---------------------------------

# $menu_clothes
dynamic $objclothes
--- $menu_clothes ---------------------------------

# $menu_tattoos
dynamic $objtattoos
--- $menu_tattoos ---------------------------------

# $menu_pirs
dynamic $objpirsing
--- $menu_pirs ---------------------------------

# $menu_obnovit
gs 'stat'
--- $menu_obnovit ---------------------------------

# $menu_bloknot
dynamic $objbloknot
--- $menu_bloknot ---------------------------------

# $menu_avariya
dynamic $objavariya
--- $menu_avariya ---------------------------------

# $menu_addoldmenu
dynamic $objoldmenu
--- $menu_addoldmenu ---------------------------------

# beg
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
set razdtumbler = 0

     act 'section jogging':
     cla
     *clr
     set minut = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 5
     set sweat = sweat + 3
     set beg = beg + RAND(2,5)
     '<center><img src="pic/fit5.jpg" ></center>'
     'You ran through the stadium practicing and developing the skill of running speed.'
     act 'Get_Away':gt'fit','razd'
     end
end

if begsec > 0:
	 act 'Go to coaching':
	 cla
	 ' Igor Y. in his coaching. Are you interested in him your progress.'
		 if beg < 50:
		 'You need to train, you have not even a third category can not be withdrawn, in running the main athleticism and dyhalki. Yet it is important that there was no excess weight, but undermine the diet in shape, therefore recommends that the coach used to dry sauna.'
		 act 'Go_Out':gt'beg','start'
		 end
		 if beg >= 50 and razradbegEG = 0:
		 'you`re doing fine, really well done, you can have a very good sporting future. It may even become European champion. But do not forget, The key to victory, dyhalki, athleticism and an ounce.'
		 act 'Get_Away':gt'beg','start'
		 end
     end
end
--- beg ---------------------------------

# beg1
if $ARGS[0]='start':
cla
*clr
clr
gs 'stat'
set minut = minut + 60
Set kolsorev = kolsorev + 1
Set begmon = month
     if razradbeg = 0:
     'You write to the group newbies.'
     act 'Exit to the track':xgt 'beg1','br'
     end
     if razradbeg = 1:
     'You write to the group treterazryadnikov.'
     act 'Exit to the track':xgt 'beg1','3'
     end
     if razradbeg = 2:
     'You write in the second group of digits. The city championship.'
     act 'Exit to the track':xgt 'beg1','2'
     end
     if razradbeg = 3:
     'You write in the first group of digits. Championship field.'
     act 'Exit to the track':xgt 'beg1','1'
     end
     if razradbeg = 4:
     'You write in the CCM group. region Championship.'
     act 'Exit to the track':xgt 'beg1','kms'
     end
     if razradbeg = 5:
     'You write to the group Masters of Sports. Russian Championship.'
     act 'Exit to the track':xgt 'beg1','ross'
     end
     if razradbeg >= 6 and razradbeg < 16:
     'You write in the group world-class athlete. Qualifying competition for access to the European Championship.'
     
     act 'Exit to the track':xgt 'beg1','kval'
     end
     if razradbeg = 16:
         if razradbegK < 8:
         cla
         Set razradbegK = 0
         Set razradbeg = 6
         'You are not logged qualification for the European Championship.'
         act 'Get_Away':gt 'fit','razd'
         end
         if razradbegK >= 8:
         cla
         Set razradbegK = 0
         Set razradbeg = 6
         'You write to the European Championship.'
          act 'Exit to the track':xgt 'beg1','evro'
         end
     end



end

if $ARGS[0]='br':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = salo + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 10:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 10 and begresult < 20:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 20 and begresult < 30:'You fought hard, but only managed to take 6 place.'
if begresult >= 30 and begresult < 40:'You fought hard, but only managed to take 5 place.'
if begresult >= 40 and begresult < 50:'You fought hard, but only managed to take 4 place.'
if begresult >= 50 and begresult < 60:Set bronzebeg = bronzebeg + 1&Set money = money + 100&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 100 rubles'
if begresult >= 60 and begresult < 70:Set silverbeg = silverbeg + 1&Set money = money + 500&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 500 rubles'
if begresult >= 70:Set razradbeg = 1&Set goldbeg = goldbeg + 1&Set money = money + 1000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 1000 rubles 3First sports category on the run.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end

if $ARGS[0]='3':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = salo + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 70:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 70 and begresult < 80:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 80 and begresult < 90:'You fought hard, but only managed to take 6 place.'
if begresult >= 90 and begresult < 100:'You fought hard, but only managed to take 5 place.'
if begresult >= 100 and begresult < 110:'You fought hard, but only managed to take 4 place.'
if begresult >= 110 and begresult < 120:Set bronzebeg = bronzebeg + 1&Set money = money + 500&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 500 rubles'
if begresult >= 120 and begresult < 130:Set silverbeg = silverbeg + 1&Set money = money + 1000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 1000 rubles'
if begresult >= 130:Set razradbeg = 2&Set goldbeg = goldbeg + 1&Set money = money + 2000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 2000 rubles 2First sports category on the run.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end


if $ARGS[0]='2':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = salo + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 130:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 130 and begresult < 140:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 140 and begresult < 150:'You fought hard, but only managed to take 6 place.'
if begresult >= 150 and begresult < 160:'You fought hard, but only managed to take 5 place.'
if begresult >= 160 and begresult < 170:'You fought hard, but only managed to take 4 place.'
if begresult >= 170 and begresult < 180:Set bronzebeg = bronzebeg + 1&Set money = money + 1000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 1000 rubles'
if begresult >= 180 and begresult < 190:Set silverbeg = silverbeg + 1&Set money = money + 2000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 2000 rubles'
if begresult >= 200:Set razradbeg = 3&Set goldbeg = goldbeg + 1&Set money = money + 3000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 3000 rubles 1First sports category on the run. You become a champion of the city on the run.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end


if $ARGS[0]='1':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = salo + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 200:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 200 and begresult < 210:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 210 and begresult < 220:'You fought hard, but only managed to take 6 place.'
if begresult >= 230 and begresult < 240:'You fought hard, but only managed to take 5 place.'
if begresult >= 240 and begresult < 250:'You fought hard, but only managed to take 4 place.'
if begresult >= 250 and begresult < 260:Set bronzebeg = bronzebeg + 1&Set money = money + 2000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 2000 rubles'
if begresult >= 260 and begresult < 270:Set silverbeg = silverbeg + 1&Set money = money + 3000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 3000 rubles'
if begresult >= 270:Set razradbeg = 4&Set goldbeg = goldbeg + 1&Set money = money + 4000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 4000 rubles and the title of the CCM on the run. You become a champion of the field.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end


if $ARGS[0]='kms':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = salo + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 270:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 270 and begresult < 280:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 280 and begresult < 290:'You fought hard, but only managed to take 6 place.'
if begresult >= 290 and begresult < 300:'You fought hard, but only managed to take 5 place.'
if begresult >= 300 and begresult < 310:'You fought hard, but only managed to take 4 place.'
if begresult >= 310 and begresult < 320:Set bronzebeg = bronzebeg + 1&Set money = money + 3000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 3000 rubles'
if begresult >= 320 and begresult < 330:Set silverbeg = silverbeg + 1&Set money = money + 4000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 4000 rubles'
if begresult >= 330:Set razradbeg = 5&Set goldbeg = goldbeg + 1&Set money = money + 5000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 5000 rubles and the title of Master of Sports in the run. You become a champion of the region.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end



if $ARGS[0]='ross':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'

Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = (salo*2) + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 330:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 330 and begresult < 340:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 340 and begresult < 350:'You fought hard, but only managed to take 6 place.'
if begresult >= 350 and begresult < 360:'You fought hard, but only managed to take 5 place.'
if begresult >= 360 and begresult < 370:'You fought hard, but only managed to take 4 place.'
if begresult >= 370 and begresult < 380:Set bronzebeg = bronzebeg + 1&Set money = money + 4000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 4000 rubles'
if begresult >= 380 and begresult < 390:Set silverbeg = silverbeg + 1&Set money = money + 5000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 5000 rubles'
if begresult >= 390:Set razradbeg = 6&Set goldbeg = goldbeg + 1&Set money = money + 6000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 6000 rubles and the title of International Master of Sports on the run. You become a champion of Russia.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end


if $ARGS[0]='kval':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
Set razradbeg = razradbeg + 1
Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = (salo*3) + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 450:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 450 and begresult < 500:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 500 and begresult < 550:'You fought hard, but only managed to take 6 place.'
if begresult >= 550 and begresult < 600:'You fought hard, but only managed to take 5 place.'
if begresult >= 600 and begresult < 650:'You fought hard, but only managed to take 4 place.'
if begresult >= 650 and begresult < 700:Set razradbegK = razradbegK + 1&Set bronzebeg = bronzebeg + 1&Set money = money + 5000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 5000 rubles'
if begresult >= 700 and begresult < 800:Set razradbegK = razradbegK + 1&Set silverbeg = silverbeg + 1&Set money = money + 10000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 10 thousand rubles'
if begresult >= 800:Set razradbegK = razradbegK + 1&Set goldbeg = goldbeg + 1&Set money = money + 15000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 15 thousand rubles.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt 'down'
end


if $ARGS[0]='evro':
cla
'<center><img src="pic/begsor.jpg" ></center>'
'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
Set razradbeg = razradbeg + 1
Set begplus = beg + speed + vital + RAND (1,20)
Set begminus = (salo*4) + RAND (1,20)
Set begresult = begplus - begminus
if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
if begresult > 0 and begresult < 450:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
if begresult >= 450 and begresult < 550:'You fought hard, but only managed to take the penultimate 7 place.'
if begresult >= 700 and begresult < 800:'You fought hard, but only managed to take 6 place.'
if begresult >= 800 and begresult < 1000:'You fought hard, but only managed to take 5 place.'
if begresult >= 1000 and begresult < 1300:'You fought hard, but only managed to take 4 place.'
if begresult >= 1300 and begresult < 1800:Set razradbegEB = razradbegEB + 1&Set money = money + 10000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 10 thousand rubles'
if begresult >= 1800 and begresult < 2500:Set razradbegES = razradbegES + 1&Set money = money + 15000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 15 thousand rubles'
if begresult >= 2500:Set razradbegEG = razradbegEG + 1&Set money = money + 20000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 20 thousand rubles. You champion of Europe.'
Set beg = beg + 1
Set fat = fat - 10
act 'Get_Away':gt'down'
end
--- beg1 ---------------------------------

# dinam
$taxi={
cla
*clr
if workDisk=3 and konvert=1:
	 badrand=RAND(0,100)
	 if badrand>=98:konvert=0
	 end
set minut+=15
if money >= 250:set money = money - 250 & gt'<<$loc>>'
if money < 250:
	 '<center><img src="picV/car.jpg" ></center>'
	 set bj = bj + 1
	 set guy = guy + 1
	 set swallow = swallow + 1
	 set cumlip = cumlip + 1
	 dynamic $venerasiak
	 'You have no money, that would pay the taxi driver. He drove to the garage and somehow taking out a member of his pants, told you "No money - then Fulfil."'
	 'You are inclined to the crotch taxi driver and took his cock in her mouth. After a few minutes of your mouth taxi driver has run into your mouth and you were forced to swallow his cum.'
	 act 'Get_Away':gt'<<$loc>>'
	 end
}
--- dinam ---------------------------------

# husb
if $ARGS[0]='start':
clr
gs'stat'
	 if week<6:
		 if hour>22 or hour<7:
		 'your husband <<$husName>> lying in bed opens his eyes. "what do you? night had, go to sleep."'
		 end
		 if hour=7:
		 '<<$husName>> sitting at the kitchen table.'
		 end
		 if hour=17:
		 '<<$husName>> sitting at the kitchen table.'
		 end
		 if hour>17 and hour<=22:
		 '<<$husName>> sitting on the couch and watching TV.'
		 end
	 else
		 if hour>22 or hour<7:
		 'your husband <<$husName>> lying in bed opens his eyes. "what do you? night had, go to sleep."'
		 end
		 if hour=7:
		 '<<$husName>> sitting at the kitchen table.'
		 end
		 if hour>7 and hour<17:
		 '<<$husName>> sitting on the couch and watching TV.'
		 end
		 if hour=17:
		 '<<$husName>> sitting at the kitchen table.'
		 end
		 if hour>17 and hour<=22:
		 '<<$husName>> sitting on the couch and watching TV.'
		 end
	 end

act 'Get_Away':GOTO $loc, $metka
if husbandsexday<4:
     act 'Sex with her husband.':gt'husbsex','room'
     end
end
--- husb ---------------------------------

# husbSex
if $ARGS[0]='room':
'<center><B><font color=maroon>bedroom</font></B></center>'
if rembedr = 0:'<center><img src="pic/bedr.jpg" ></center>'
if rembedr = 1:'<center><img src="pic/bedr2.jpg" ></center>'
clr
set minut+=60
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set $nameV = $husName
set dick = husDick
set silavag = silavagH
set husbandsexday+=1
set suprdolg+=1
'You have gone with her husband in the bedroom.'
'<<$husName>> roughly grabs you and pulls you to your starting passionately kiss you and try to steal your clothes.'
set sexrand = RAND (0,3)
'finally <<$husName>> won in an unequal battle with the straps of your bra and your profile.'
if Husbdolgday!day:set husbdolgrand=rand(1,100)
if husbdolgrand>95:
	 set Husbdolgday=day
	 set sexrand=4
	 set husbdolg=1
	 cla
	 *clr
	 '<center><img src="img/hasb/d0.jpg" ></center>'
	 'only <<$husName>> climbed up on you going to enter, as someone-then pulled it to you and you will see the two men in the room. One stood beside the bed holding your husband `s hair, second only in the side with a gun in his hand.
	 "What a moron will pay?" asked the one that was holding her husband.
	 "I told, that all give, I now have no money, but after a month I give" answered <<$husName>>.
	 "This must have been thinking when you sit down at the table, and the money we need now" continued bandit.
	 "but, where I`ll take them now, face or something?" pleaded <<$husName>>.
	 "Do not give birth to himself, we have them now at your bitch in all holes look for, and you already 100000" said the bandit.'
	 if harakHusb<2:
		 '"It is not necessary to touch, I `ll bring you all, Tomorrow all will return" said <<$husName>>.
		 "Well, here tomorrow and not touch, and now look for, yes beauty, open your mouth, yes on that wider-at once instead of two" neigh bandit.'
		 end
	 if harakHusb=2:
		 '"not boys, well, See what Kral." said <<$husName>>.'
		 if vnesh<15:'"Oh nah, what Kral, she just wash floors in public toilet" said the bandit.'
		 if vnesh>=15 and vnesh < 30:'"Well, You can popolzovavshis, but the discount does not pull" said the bandit.'
		 if vnesh>30:'"Yes good chick, but forget about the discount, Think of it as payment for our costs" laughed thug.'
		 end
	 if vnesh>=15:'"And you have a good little wife, Now we will try it and maybe take away with you let your payback will work, but what will work refund, unless of course want to go back" laughed thug.'
	 if money+stolmoney+karta>=100000:
		 act'suggest money':
			 cla
			 if money>=100000 and husbdolg=1:set money-=100000&set husbdolg=0
			 if money+stolmoney>=100000 and husbdolg=1:set money=money+stolmoney-100000&set husbdolg=0&set stolmoney=0
			 if money+stolmoney+karta>=100000 and husbdolg=1:set money=money+stolmoney+karta-100000&set husbdolg=0&set stolmoney=0&set karta=0
			 '"I have money I will give duty" Say you.
			 "Good_For_You, but to pay for the costs still need to" replied grinning bandit.'
			 act'open your mouth':gt'husbSex','dolg'
			 end
		 end
	 act'open your mouth':gt'husbSex','dolg'
	 end
if sexrand = 0:
	 '"Svetsik, I pine juicy huytsa."'
	 act 'do blowjob':
		 cla
		 husband+=1
		 gt'husbsex','minet'
		 end
	 act 'I do not want, Let`s take another':husband-=1&gt'husbsex','variant'
	 end
if sexrand = 1:
	 '"Svetsik, cup your ass."'
	 act 'anal':
		 cla
		 husband+=2
		 gt'husbsex','anal'
		 end
	 act 'Oh nafig, Let`s take another':husband-=1&gt'husbsex','variant'
	 end
if sexrand = 2:
	 '"Lie down and push the Svetsik Lyashko."'
	 act 'spread her legs':gt'husbsex','miss'
	 act 'I do not want, Let`s take another':husband-=1&gt'husbsex','variant'
	 end
if sexrand = 3:
	 '"Get up crustaceans Svetsik."'
	 act 'get cancer':gt'husbsex','dog'
	 act 'I do not want, Let`s take another':husband-=1&gt'husbsex','variant'
	 end
end

if $ARGS[0]='dolg':
cla
*clr
set minut+=30
set gyu+=2
set sex+=1
set anal+=1
set bj+=1
'<center><img src="img/hasb/d1.jpg" ></center>'
'Bandits took out their members and attempted to push you in the mouth both at once, you tried to open his mouth as wide as possible, but the second term so really is not got, eventually you spit on the case and began to suck them one by one. Soon they got tired and hurl you on the bed she began to argue who is where you first zasunet.'
act'further':
	 cla
	 *clr
	 '<center><img src="img/hasb/d2.jpg" ></center>'
	 'They began to twirl you as they please, each several times pereprobaval all your holes. Sometime you glanced at her husband.'
	 if harakHusb=0 and izvratH=0:'He huddled in a corner and wept quietly, not looking in your direction.'
	 if harakHusb=0 and izvratH=1:'He huddled in a corner and wept quietly, ukratkoy glancing in your direction, was seen, that he was very excited.'
	 if harakHusb=1 and izvratH=0:'He stood to one side, turned to the wall and did not look at you.'
	 if harakHusb=1 and izvratH=1:'He stood to one side, and watching you, was seen, that he was very excited.'
	 if harakHusb=2 and izvratH=0:'He stood on the sidelines and not looking at you swearing loudly, cursing that card, then himself, is calling you horny slut.'
	 if harakHusb=2 and izvratH=1:
		 cla
		 *clr
		 set picrand=18
		 '<center><img src="img/hasb/d2.jpg" ></center>'
		 'They began to twirl you as they please, each several times pereprobaval all your holes. Sometime you glanced at her husband.'
		 'He stood to one side, and looking at you, fingering herself a member. In the end, Well as you want, but it`s my bitch and I fuck her too. The bandits did not object.'
		 act'further':gt'paysex','var'
		 end
	 act'End_Up':gt'husbSex','dolgend'
	 end
end
if $ARGS[0]='dolgend':
cla
*clr
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumanus = 0
set cumlip = 0
set cumface = 0
set cumanus =0
set leghair = -5
set lobok = -5
set sweat = -3
set hapri = 1
set mop = 3
gs'stat'
'<center><img src="img/hasb/d3.jpg" ></center>'
'When it was over, they took you to the bathroom and ordered to put himself in order, then led into the bedroom.'
if vnesh>=15 and husbdolg=1:
	 cla
	 set husbdolg=0
	 set workDolg+=100000
	 '"Well babe, went c We `ll work out the debts of her husband kind" said a grinning.'
	 act'go':
		 cla
		 'You`ve come to the sauna. Bandits have been dragged into what that room and began to explain. "You will live here and work, until the debts are not rasplatishsya. all clear? Or try to escape the buzz, all, we`ll bullet in the head off and plunged into the forest bury, truncated?"'
		 'You nodded fearfully, realizing that they were not kidding.'
		 act 'Look_around':gt'saunaroom'
		 end
	 exit
	 end
if vnesh>=15 and husbdolg=0:
	 cla
	 set husbdolg=0
	 set saunaWorkWhore=1
	 '"Well babe, worked well, there is a desire to work more come to the sauna, there is a job for you there" said a grinning.'
	 act'End_Up':gt'bedr'
	 end
if vnesh<15:'"How Kikimora not combing, it will frights" said one, looking at you. "Okay, and you brought that money tomorrow, and then tomorrow we will be to fuck you." said second your husband.'
set husbdolg=0
act'End_Up':gt'bedr'
end


if $ARGS[0]='variant':
'<<$husName>> looks at you and waiting for what you say'
act 'spread her legs':gt'husbsex','miss'
act 'get cancer':gt'husbsex','dog'
act 'anal':gt'husbsex','anal'
act 'do blowjob':gt'husbsex','minet'
act 'masturbate him':gt'husbsex','hand'
     if kundayH ! day:
     act 'Cooney':gt'husbsex','kuni'
     end
     if DOM > 0 and harakHusb = 0 and izvratH = 1 and strapon > 0:
     act 'Otstraponit':gt'husbsex','strapon'
     end
end

if $ARGS[0]='minet':
*clr
gs'brosok'
set bj = bj + 1
set minut = minut + 30
'<center><img src="picV/bj.jpg" ></center>'
'her husband <<husDick>> centimeter member you spent on the lips.'
if bj = 1:'you think "Damn, I rolled, sit in front of a man, and he told me in the mouth by a dick pokes."'
gs'oral','start'
	 act 'continue to suck.':
	 cla
	 *clr
	 set swallow = swallow + 1
	 set cumlip = cumlip + 1
	 husband+=1
	 '<center><img src="picV/swallow.jpg" ></center>'
	 'A jet of hot cum hit you in the mouth. You started to swallow cum, and <<$husName>> continued to cum in your mouth. Finally.'
		 act 'Get_Away.':
		 cla
		 gt'vanr'
		 end
	 end
	 
	 act 'Remove the mouth.':
	 cla
	 *clr
	 set tiprand = RAND (0,1)
		 if tiprand = 1:
		 husband-=1
		 '<center><img src="picV/hand.jpg" ></center>'
		 'You remove a member from the mouth and <<$husName>> finished you in the palm.'
		 end 
	 
		 if tiprand = 0:
		 set facial = facial + 1
		 set cumface = cumface + 1
		 husband+=1
		 '<center><img src="picV/facial.jpg" ></center>'
		 'Have you taken the member and at this point <<$husName>> discharged directly on your face, covering it with warm and sticky sperm.'
		 end
	  
		 act 'Get_Away.':
		 cla
		 gt'vanr'
		 end
     end
end

if $ARGS[0]='hand':
*clr
gs'brosok'
 set DOM = DOM + 1
 set hj = hj + 1
 set minut = minut + 30
 set horny = horny + DOM
 '<center><img src="picV/hand1.jpg" ></center>'
 'You got it <<husDick>> inch cock and began to caress her arms around his hands, moving the skin on purple head.'
 'Soon, covering them with warm and sticky sperm.'

     act 'Go to the bathroom.':
     cla
	 gt'vanr'
	 end
end

if $ARGS[0]='kuni':
*clr
set kunday = day
gs'brosok'
set DOM = DOM + 1
set kuni = kuni + 1
set minut = minut + 30
set horny = horny + DOM + (silaVag*2 + 5)
 '<center><img src="picV/kuni.jpg" ></center>'
 'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
 '<<$husName>> lay down between your legs and began to work on your tongue pussy.'
     if horny >= 90:
     set horny = 0
	 set manna = manna + 15
	 set willpower = willpower + 15
	 set orgasm = orgasm + 1
     'Man of skillful actions you covered orgasm.'
     else
     'Actions husband though they were exciting, but they began to bore you.'
     end
     
	 act 'further.':
	 cla
	 gt'husbsex','variant'
	 end
end

if $ARGS[0]='strapon':
*clr
gs'brosok'
 set DOM = DOM + 5
 set pegging = pegging + 1
 set minut = minut + 30
 set horny = horny + DOM
 '<center><img src="picV/pegging.jpg" ></center>'
 'You got out of the drawer and put it strapon. <<$husName>> got cancer on the bed.'
 'Greased lubricated anus husband and stuck it strapon. While you fucked his ass and he moaned finally finished. You remove the strap from him and went to the bathroom.'
 
     act 'Go to the bathroom.':
     cla
	 gt'vanr'
	 end
end


if $ARGS[0]='anal':
*clr
gs'brosok'
set anal = anal + 1
      
     if analplugin=1 :
         '<center><img src="picV/dog2.jpg" ></center>'
         analpluginbonus = 10
         analplugin=0
         if anus < 16:'<<$husName>> pulled out of your more narrow and tight ass plug,'
         
         if anus >= 16:'<<$husName>>pulled out of your ass juices oozing feverish plug,'
         'and you feel like hard cock ran into your hole.'
          
         if anus + analpluginbonus < husDick:
	     'You screamed and bit his lip from a sharp pain when his <<husDick>> Member inch apart your ass you entered.'
	     end
	     if anus + analpluginbonus >= husDick:
	     'You groaned feeling of fullness when it <<husDick>> Member inch apart your ass you entered.'
	     end
         
         'At_Last <<$husName>> grabbed you stronger for the back and drove into your aching ass dick down to the eggs you finished inside.'
         cumass+=1
         set minut = minut + 3
         set cumanus = cumanus + 1
         if anus < husDick:set anus = anus + 1
         set horny = horny + ((anus-husDick)*3)
         if horny< 1 : set horny = 1
             if horny >=100 :
              horny  = 1
             set orgasm = orgasm + 1
             set analorgasm= analorgasm+1
             'In anus blazing fire and waves of pleasure swept body, you moaning and ass impaling themselves on the penis.'
             end
             act 'Go to the bathroom.':
	         cla
	          
	         gt'vanr'
	         end
         end
      
     if husDick < anus:set anus = anus + 1
 '<center><img src="picV/dog2.jpg" ></center>'
     if lubri = 0:
     set lubonus = 2
     'Lubricant and you do not <<$husName>> spitting on his fingers began to lubricate your ass saliva.'
     end
     if lubri > 0:
     set lubri = lubri - 1
     set lubonus = 10
     'You got out of the box with a tube of lubricant and handed him over to the guy, He choked a little on his palm and rubbed your anus.'
     end
'<<$husName>> put your stomach on the bed apart and your buttocks began to massage your anus with your fingers, first one, then two.'
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then the guy brought you three fingers and began to stretch your anus.'
'<<$husName>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
if anus + lubonus < husDick:
'You screamed and bit his lip from a sharp pain when his cock parted your ass you entered.'
end
if anus + lubonus >= husDick:
'You groaned feeling of fullness when his cock parted your ass you entered.'
end
'<<$husName>> froze for a moment giving your ass adapt to hang around in her member, then began to drive them all the more insistent.'
if anus + lubonus + 2 < husDick:
if mop > 1:set mop = 0
'You cry and sank his teeth into the pillow when <<husDick>> inch cock began to fuck your ass at full power.'
end
if anus + lubonus + 2 >= husDick:
'You started moaning rhythmically to the beat of limb movements inside you.'
end
'At_Last <<$husName>> grabbed you stronger for the back and drove into your aching ass dick down to the eggs you finished inside.'
     if klismaday ! day:
     husband-=1
     '<<$husName>> took out a member of your ass and see on your dick shit said, "Damn. Svetsik my ass before sex."'
     end
     if klismaday = day:
     husband+=5
     '<<$husName>> took a member of you and kiss you went to the bathroom.'
     end
set minut = minut + 30
if anus < husDick:set anus = anus + 1
	 act 'Go to the bathroom.':
	 cla
	 set lubonus = 0
	 gt'vanr'
	 end
end

if $ARGS[0]='miss':
*clr
husband+=1
gs'brosok'
set sex = sex + 1
set minut = minut + 30
set pose = 0
set $nameV = $husName
set dick = husDick
set silavag = silavagH
'<center><img src="picV/vag.jpg" ></center>'
'<<$husName>> spread your legs and began to caress her fingers pussy.'
gs'orgazm','start'
	 act 'Go to the bathroom.':
	 cla
	 gt'vanr'
	 end
end

if $ARGS[0]='dog':
*clr
husband+=1
gs'brosok'
set sex = sex + 1
set minut = minut + 30
set pose = 1
set $nameV = $husName
set dick = husDick
set silavag = silavagH
'<center><img src="picV/dog1.jpg" ></center>'
'<<$husName>> oncTawil you cancer and spread your bread before you enter the.'
gs'orgazm','start'
	 act 'Go to the bathroom.':
	 cla
	 gt'vanr'
	 end
end
--- husbSex ---------------------------------

# indik
if $ARGS[0]='1':
     if a >= 100 :          set $ind = '<font color=green> в–€в–€в–€в–€в–€в–€в–€в–€в–€в–€ <<a1>></font> '
     if a < 100 and a>=90 : set $ind = '<font color=green> в–€в–€в–€в–€в–€в–€в–€в–€в–€_ <<a1>></font> '
     if a < 90  and a>=80 : set $ind = '<font color=green> в–€в–€в–€в–€в–€в–€в–€в–€__ <<a1>></font> '
     if a < 80  and a>=70 : set $ind = '<font color=green> в–€в–€в–€в–€в–€в–€в–€____ <<a1>></font> '
     if a < 70  and a>=60 : set $ind = '<font color= blue> в–€в–€в–€в–€в–€в–€_____ <<a1>></font> '
     if a < 60  and a>=50 : set $ind = '<font color= blue> в–€в–€в–€в–€в–€______ <<a1>></font> '
     if a < 50  and a>=40 : set $ind = '<font color= blue> в–€в–€в–€в–€_______ <<a1>></font> '
     if a < 40  and a>=30 : set $ind = '<font color= red > в–€в–€в–€________ <<a1>></font> '
     if a < 30  and a>=20 : set $ind = '<font color= red > в–€в–€_________ <<a1>></font> '
     if a < 20  and a>=10 : set $ind = '<font color= red > в–€__________ <<a1>></font> '
     if a < 10  and a>=1 :  set $ind = '<font color= red > в–“__________ <<a1>></font> '
     if a<=0 :              set $ind = '<font color= red > __________ <<a1>></font> '
end
if $ARGS[0]='2':
     if a >= 100 :          set $ind = '<font color=red   > в–€в–€в–€в–€в–€в–€в–€в–€в–€в–€ </font> '
     if a < 100 and a>=90 : set $ind = '<font color=red   > в–€в–€в–€в–€в–€в–€в–€в–€в–€_ </font> '
     if a < 90  and a>=80 : set $ind = '<font color=red   > в–€в–€в–€в–€в–€в–€в–€в–€__ </font> '
     if a < 80  and a>=70 : set $ind = '<font color=orange> в–€в–€в–€в–€в–€в–€в–€____ </font> '
     if a < 70  and a>=60 : set $ind = '<font color=orange> в–€в–€в–€в–€в–€в–€_____ </font> '
     if a < 60  and a>=50 : set $ind = '<font color=yellow> в–€в–€в–€в–€в–€______ </font> '
     if a < 50  and a>=40 : set $ind = '<font color=yellow> в–€в–€в–€в–€_______ </font> '
     if a < 40  and a>=30 : set $ind = '<font color=green > в–€в–€в–€________ </font> '
     if a < 30  and a>=20 : set $ind = '<font color=green > в–€в–€_________ </font> '
     if a < 20  and a>=10 : set $ind = '<font color= blue > в–€__________ </font> '
     if a < 10  and a>=1 :  set $ind = '<font color= blue > в–“__________ </font> '
     if a<=0 :              set $ind = '<font color= blue > __________ </font> '
end 
--- indik ---------------------------------

# klofdomhouse1
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
	 act 'Ring the doorbell':
	 cla 
	     if klofQW = 2 and hour>=16 and klofday!day:
         gt 'klofdomhouse','ev1'
         elseif klofQW > 2 and hour>=16 and klofday!day:
         gt 'klofdomhouse','start1'
         else
         'No one is home'
         act 'go home':gt 'street'
         end
	 end

act 'go home':gt 'street'
end

if $args[0]='ev1':
cla
*clr
set klofday=day
set minut=minut+5 
'<center><img src="klof/klof.jpg" ></center>'
'You`ve reached the door.
You do not open and you want to leave, but then the door opened.
-hello- said Light
-And it`s you- said (smiling) guy- Come.'
act'go':gt 'klofdomhouse','ev2'
end

if $args[0]='ev2':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 1.JPG" ></center>'
'you looked around, the apartment was a pigsty ,wall with peeled wallpaper, littered everywhere socks. 
-how-is pathetic you guys here rebya - you said and smiled,eye contact with a guy. 
-It`S_Nothing, we just arrived in this city obzhivaya soon- said grinning guy. 
- It_Is_Clear. We are never met.
- Call me Zhora, and my sidekick Senya,and now quickly tidy apartment.'
act 'clean_up':gt 'klofdomhouse','ev4'
	 if sub<30 and horny<75:
	 act 'Get_Away':gt 'klofdomhouse','ev3'
	 end
end

if $args[0]='ev3':
cla
*clr
set minut=minut+5
set klofQW=klofQW-1
if dom>0:set dom=dom+5
if sub>0:set sub=sub-5
'<center><img src="picQW/pnx.jpg" ></center>'
'You have decided that the guy above you just izdevaetsya and left.'
act 'Get_Away':gt 'street'
end

if $args[0]='ev4':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 3.JPG" ></center>'
'Remove you approached and asked Zhora:.
-Jora you promised money and entertainment, but so far I have not seen what this
-well listen, As I said we are not in a long time, until now we need a girl for services at home
- When will become closer acquainted, to talk business.
- Now be obedient girl and I discussed '
act 'Open your legs Zhora':gt 'klofdomhouse','ev5'
end

if $args[0]='ev5':
cla
*clr
set minut=minut+5
sex+=1
vagina+=1
'<center><img src="klof/klof 4.jpg" ></center>'
'Jora began to fuck you in the pussy, Suddenly the door opened.
Entered the room and said: "Suck my cock baby ka"'
act 'To take by mouth in Seney':gt 'klofdomhouse','ev6'
end

if $args[0]='ev6':
cla
*clr
set hour=hour+23
set minut=minut+5
set klofQW=klofQW+1
cla
 *clr
 set money = money + 200
 Set bj = bj + 1
 Set cumface = cumface + 1
 set cumpussy = cumpussy + 1
'<center><img src="klof/klof 5.jpg" ></center>'
'Jora zhetko pecked in your pussy, Xian fuck you in the mouth.'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
'You are dressed and ready to go home.
To you came up and handed the money Jora: "earned crumb" '
	 if bj>=anal and bj>=sex:
	 set callnm=1
	 end
	 if anal>=oral and anal>=sex:
	 set callnm=2
	 end
	 if Sex>=bj and Sex>=anal:
	 set callnm=3
	 end
	 if vaf>=100:
	 set callnm=4
	 end
act 'go home':gt 'street'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0]='start1':
cla
*clr
set klofday=day
set minut = minut + 5
gt 'klofdomhouse','ev7'
end

if $args[0]='ev7':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 1.JPG" ></center>'
'You went to the apartment'
act 'Hello guys':gt 'klofdomhouse','ev8'
end

if $args[0]='ev8':
cla
*clr
set minut=minut+5
'<center><img src="klof/klof 6.jpg" ></center>'
'-Hi Babe- told the guys, Exposed you chest and began to caress you.
- Hello boys missed me?- you said and blushed'
act 'entertain Zhora':gt 'klofdomhouse','ev9'
act 'entertain Senya':gt 'klofdomhouse','ev10'
act 'entertain both':gt 'klofdomhouse','ev19'
act 'Pogovrit with Zhora on cases':gt 'klofdomhouse', 'ev20'
end




if $args[0]='ev9':
cla
*clr

act 'Post a pussy Zhora.':gt 'klofdomhouse','ev13'
act 'Writing in the ass Zhora.':gt 'klofdomhouse','ev14'
act 'suck Zhora.':gt 'klofdomhouse','ev19'
end

if $args[0]='ev13':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set vagina = vagina + 1                      
 Set sex = sex + 1
 set cumpussy = cumpussy + 1
'Jora zhetko pecked in your pussy.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 7.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 8.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 9.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
'you chustvuete, Jora razryazhaetsya that into you.'
'<center><img src="klof/klof 10.jpg" ></center>'
 'You are dressed and ready to go home.
 Jora handed you money: "earned crumb" '
act 'go home':gt 'street'
end

if $args[0]='ev14':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 Set anal = anal + 1
 set anus = anus + 1
 Set cumass = cumass + 1
 
'Jora with full force hammer you in the ass.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 11.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 12.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 13.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
	 'Jora discharge point you in, and inserts it in the ass gag'
	 '<center><img src="klof/klof 14.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Jora handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end


if $args[0]='ev15':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set bj = bj + 1 
 Set cumface = cumface + 1
'You are gripped with passion Zhorin member lips.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 15.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 16.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 17.jpg." ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
     'Jora discharged in your face'
     set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 18.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 19.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 20.jpg." ></center>'
     'You are dressed and ready to go home.
     Jora handed you money: "earned crumb" '
     act 'go home':gt 'street'
     end
end




if $args[0]='ev10':
cla
*clr

act 'Post a pussy Seine.':gt 'klofdomhouse','ev 16'
act 'Writing in the ass Seine.':gt 'klofdomhouse','ev 17'
act 'suck Seine.':gt 'klofdomhouse','ev 18'
end

if $args[0]='ev 16':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 set vagina = vagina + 1                      
 Set sex = sex + 1
'Senya zhetko pecked in your pussy.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 7.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 8.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 9.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
	 'you chustvuete, Jora razryazhaetsya that into you.'
	 '<center><img src="klof/klof 10.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Senya handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end

if $args[0]='ev 17':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 Set cumass = cumass + 1
 anal+=1
 anus+=1
'Senja with all his might hammer you in the ass.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 11.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 12.jpg" ></center>'
         if picrand = 3:'<center><img src="klof/klof 13.jpg" ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
 
     act '....':
     cla
     *clr
	 'Senya discharge point you in, and inserts it in the ass gag'
	 '<center><img src="klof/klof 14.jpg" ></center>'
	 'You are dressed and ready to go home.
	 Senya handed you money: "earned crumb" '
	 act 'go home':gt 'street'
	 end
end

if $args[0]='ev 18':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+1
 set money = money + 100
 bj+=1                 
 Set guy = guy + 1
 Set cumlip = cumlip + 1
'You are gripped with passion Senenin member lips.'
set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 15.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 16.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 17.jpg." ></center>'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
     act '....':
     cla
     *clr
     facial+=1
     'Senya discharged in your face'
     set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 18.jpg" ></center>'
         if picrand = 2:'<center><img src="klof/klof 19.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 20.jpg." ></center>'
     'You are dressed and ready to go home.
     Senya handed you money: "earned crumb" '
     act 'go home':gt 'street'
     end
end


if $args[0]='ev19':  
cla
*clr
set minut=minut+30
set klofQW=klofQW+2
set money = money + 200
sex+=1
 Set bj = bj + 1
 Set cumface = cumface + 1
 facial+=1
 set cumpussy = cumpussy + 1
 set vagina = vagina + 1    
 set picrand = RAND (1,3)
         if picrand = 1:'<center><img src="klof/klof 21.jpg." ></center>'
         if picrand = 2:'<center><img src="klof/klof 22.jpg." ></center>'
         if picrand = 3:'<center><img src="klof/klof 23.jpg." ></center>'
'Jora brutally fuck you in the mouth, and CEnja dryuchit pussy'
 Set horand = RAND (1,100)
 if horand <= sex:Set horny = 0&orgasm+=1&'You covered orgasm'
 if horand > sex:Set horny = horny + 10&'You were not satisfied'
 'Finally they both finished, one in the pussy, the other on the face.'
'You are dressed and ready to go home.
 Guys stretched you money: "earned crumb" '
act 'go home':gt 'street'
end

if $args[0]='ev20':
cla
*clr
set klofday=day
set minut=minut+5 
'<center><img src="klof/klof.jpg" ></center>'
'If you want to talk serious business with our boss '
	 act 'Talk with the boss':
	 cla 
	 if klofQW< 10:gt 'klofdomhouse','ev21'
	 if klofQW >= 10:gt 'klofdomhouse','ev22'
	 end
 end
 
if $args[0]='ev21':
cla
*clr
'The room came an ugly old man'
'<center><img src="klof/klof24.jpg" ></center>'
'"You climb a bit early in our affairs" - he said.'
act 'go home':gt 'street'
end

if $args[0]='ev22':
cla
*clr
'The room came an ugly old man'
'<center><img src="klof/klof24.jpg" ></center>'
'Boss carefully looked at you and said: "Come to me"'
act 'Go to the boss room.':gt 'klofdomhouse','ev23'
act 'go home':gt 'street'
end

if $args[0]='ev23':
cla
*clr
'You went into the room boss surprisingly it has been well renovated and furnished'
'<center><img src="klof/klof25.jpg" ></center>'
'Well Well take off your clothes and show yourself - said boss'

act 'Show yourself':gt 'klofdomhouse','ev24'
act 'Send it to .....':gt 'street'
end

if $args[0]='ev24':
cla
*clr
'You sat on the bed'
'<center><img src="klof/klof 26.jpg" ></center>'
act 'Show chest':gt'klofdomhouse','ev25'
end

if $args[0]='ev25':
cla
*clr
'You bared her breasts'
'<center><img src="klof/klof 26 (1).jpg" ></center>'
act 'Show the ass':gt'klofdomhouse','ev26'
end

if $args[0]='ev26':
cla
*clr
'You pokazli his ass'
'<center><img src="klof/klof 26 (3).jpg" ></center>'
act 'remove the dress':gt'klofdomhouse','ev27'
end

if $args[0]='ev27':
cla
*clr
'You took off her dress'
'<center><img src="klof/klof 26 (4).jpg" ></center>'
act 'seduce boss':gt'klofdomhouse','ev28'
end

if $args[0]='ev27':
cla
*clr
'You sat on the bed and parted legs'
'<center><img src="klof/klof 26 (6).jpg" ></center>'
act 'seduce boss':gt'klofdomhouse','ev28'
end

if $args[0]='ev28':
cla
*clr
'You turned on its side and the boss showed their charms'
'<center><img src="klof/1284364hjl.jpg)" ></center>'
act 'Twist ass in front of the boss':gt'klofdomhouse','ev29'
end

if $args[0]='ev29':
cla
*clr
'You turned on its side and the boss showed their charms'
'<center><img src="klof/1284365sgp.jpg" ></center>'
act 'seduce boss':gt'klofdomhouse','ev29'
end



--- klofdomhouse1 ---------------------------------

# Peterroom
if $ARGS[0]='start_door':
cla
*clr

set minut = minut + 5
'<center><B><font color=maroon>apartment Peter</font></B></center>'
'<center><img src="peter/peterdoor.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     act 'Ring the doorbell':
     cla
         if petersexday < 1:
         'you have reached, Peter opened the door. 
         - Come, change. I now.'
         set petersexday+=1
             act 'Go to the apartment':gt'peterroom','start'
         else
         'You`ve reached the door but no one answers.'
             act 'GO_OUT':
			 cla
			 set minut = minut + 5
			 gt'down'
			 end
         end
     end
end

if $ARGS[0]='start':
cla
*clr

     if peter > 0 : 
     set peterrand = rand (1,2)
     '<center><img src="peter/9.jpg" ></center>'
     'You get undressed, pinned collar and prepared. From the next room came the voice of Peter Vlasna: - Who is my whore?'
         act 'I, my lord...':
         petersex = petersex+1
         if analplugin=1 : gt 'peterroom','klap'
         if peterrand < 2 : gt 'peterroom','d1'
         if peterrand > 1 : gt 'peterroom','d2'
         end
     end
     if peter < 1 :
     set petersexday+=1
     set minut = minut + 10
     '<center><img src="peter/1.jpg" ></center>'
     '<center>Undressed and dressed it. He put before you the collar you took up this narrow strip of leather with studs and thinking.</center>'
         act 'Put_On' :
         *clr
         cla
         '<center><img src="peter/2.jpg" ></center>'
         '<center>You put the collar. Peter stroked whip you on the cheek: 
- lustful girl! Arise, turn_around, hands behind his back! 
You run and snapped the handcuffs on his hands.</center>'
             if analplugin=1 :
             'And what we have here ? Peter pulled the tip sticking out ass plug, and pulled her'
             set analplugin=0
             end
             act 'smile':
             gs'stat'
             cla
             *clr 
             '<center><img src="peter/3.jpg" ></center>'
             'Peter pulled you by the collar, put on his knees in front of him and ordered : - Come on slut, Now open your lustful mouth. '
     
             act 'submit':
             cla
             *clr
             '<center><img src="peter/4.jpg" ></center>'
             'Peter unzipped his pants and pulled out his 25inch dick. He grabbed you by the hair and put in your mouth the head of his penis.  You dutifully wrapped around her lips sucking, and caressed his tongue, feeling as it increases and strains in your mouth.  '
                 act 'continue Composition' :
                     cla
                     *clr
                     '<center><img src="peter/5.jpg" ></center>'
                     'And then you and Peter bent rude and impatient stuck dick in your pussy and began to fuck , like inflatable doll.  A few minutes later he stopped and pulled his cock pushed you on the floor and ordered : 
- Creep me, bitch!'
                         act 'creep ' : gt'peterroom','klap'
                     
                 end
         
         end
         
         act 'does not comply' :
             *clr
             cla
             '<center><img src="peter/4_1.jpg" ></center>'
             '-PridС‘tsya Punish - Peter with these words tipped you over the table and put you in the ass plug. - Pops up before you run out flogging, will receive the same amount: - Peter became the side of you, squared whip, and began spanking.  counting out loud blows, interspersed with your shouts and sobs ...
- ..._Ask, that I will fucked , nine.......will be obedient litter ? '
             act 'yes_they_are! I `ll be your whore!' : gt 'peterroom','klap'
         end
     
     
     end
       
end
     act 'get_away':
     gt 'down'
     end
end
end
if $ARGS[0]='klap':
cla
*clr
set horny = horny + 10
gs 'stat'
'<center><img src="peter/6.jpg" ></center>'
'Peter on a leash led you into the bedroom. Knocked on the huge bed and tied his hands and feet. 
Then deftly put into your mouth gag: - ball on the strap and fastened it on the back of the head.
- I really like, Sveta, as you moan, but when you`re talking about, you start talking nonsense. So it is better Stoney, sweet...'
     act 'moo': 
     cla
     *clr
     '<center><img src="peter/7.jpg" ></center>'
     '. Peter bore down on you from above. - Check whether you have a sweet ass? -  said Peter'
     if analplugin=1 : 
     ', pulled a butt plug'
     set analplugin=0
     end
     'and put his huge dick Horny your anus went into a half. You gasped in pain, lowed in and gag.  - And I see you can not wait to get it in the ass completely - I saw your response Peter and began to fuck your ass, with each stroke penetrating deeper and deeper, until his cock did not completely sink into you, eggs and hard slap on the buttocks. He fucks you so intensely, what you feel, both knees begin to tremble,  and of the priests and pussy juices flowing your.'
         act 'moo' :
         cla
         *clr
         '<center><img src="peter/8.jpg" ></center>'
         'He continues to stick you all soon, and then slows the rhythm, makes a few deep movements and cums filling your insides hot stream of sperm .... '
         set horny = horny + SUB - DOM + (anus-25)*3
         set anal=anal+1
         if 25 > anus:set anus = anus + 1
         if horny >=100:
             horny  = 1
             set orgasm = orgasm + 1
             set analorgasm= analorgasm+1
             'in the ass was hot and orgasm covered you with a head.'
         end
         'Ass to squelch is released from its members. Peter sat on the bed, panting, and you are so connected and lay , feeling as of ottrahanoy ass sperm slowly flows.'
         act 'chill_out' : gt 'peterroom','end'
         end
         
         
         
         
         
     
     
     
     end
     
end

if $ARGS[0]='end':
cla
*clr
set SUB = SUB + 1
set minut = minut + 30
gs 'stat'
'<center><img src="peter/vanroom.jpg" ></center>'
'- You were gorgeous - said Peter and smacking you on the cheek, raised his arms and carried you to the bathroom where you showered together.'
     act 'get out of the bath' : 
     cla
     *clr
     set peter = peter+1
     '<center><img src="peter/mash.jpg" ></center>'
     'You walked down to the yard, and stopped the car Peter. He kissed you on the lips and said: 
 -  Svetochka, You really brightened my lonely and gray existence. Your appearance like a ray of light in the dark, or as a breath of fresh air ... I really hope to see you again. but, now excuse me, affairs. you throw?'
     set minut = minut + 20
     act 'In the center' : gt 'down'
     act 'The house' : gt 'street'
     
     end

end

if $ARGS[0]='d1':
set horny = horny +  SUB - DOM + (anus-25)*3
set anal=anal+1
if 25 > anus:set anus = anus + 1
     cla
     *clr
     '<center><img src="peter/d1-1.jpg" ></center>'
     'Peter connects your hands behind your back. His hands take you for hips and lift your ass, putting you cancer. You obediently lean and Peter catches a rope on the hook.'
     act 'sucking fingers':
         cla
         *clr
         '<center><img src="peter/d1-2.jpg" ></center>'
         'Peter pushes your hands halves drives his cock in the ass. You gasped in pain, lowed in and gag.  - And I see you can not wait to get it in the ass completely - I saw your response Peter and began to fuck your ass, with each stroke penetrating deeper and deeper, until his cock did not completely sink into you, eggs and hard slap on the buttocks. '
         act 'moan':
             cla
             *clr
             '<center><img src="peter/d1-3.jpg" ></center>'
             'He fucks you so intensely, what you feel, both knees begin to tremble,  and from the legs pussy juice running down your.'
             act 'moan':
                 cla
                 *clr
                 '<center><img src="peter/d1-4.jpg" ></center>'
                 'He continues to stick you all soon'
                 if horny >= 100:
                 set orgasm = orgasm + 1
                 set analorgasm= analorgasm+1
                 
                 'You are very excited, in the ass grew sweet languor, and then suddenly become a hot orgasm and covered you with a head. At the same time with you , pounding dick deeper and filling your insides hot stream of sperm ....  '
                 end
                 
                 if horny < 100 :
                 ' and then slows the rhythm, makes a few deep movements and cums filling your insides hot stream of sperm .... '
                 end
                 'Ass to squelch is released from its members. Peter sat on the bed, panting, and you remained kneeling with protruding upward, ottrahanoy booty from which the legs dripping sperm.'
                 
                 
                 act 'further' : gt 'peterroom','end'
             end
         end
     end
     
end

if $ARGS[0]='d2':
     set horny = horny + SUB + VAF - DOM + (throat -25)*3
     cla
     *clr
     '<center><img src="peter/d2-1.jpg" ></center>'
     'Peter put you on your knees, then lifted your head, and holding her hands, with the power of your mouth planted a piston. His head slipped down his throat, but this has not calmed down, continuing to press. And his 25 centimeter count began to enter into you on.  '
     act 'suck':
         cla
         *clr
         '<center><img src="peter/d2-2.jpg" ></center>'
         '- Caxis better,slut! Inch by inch, pushing , relentlessly driving him deeper and deeper. After another jolt I felt you, your lips, in that it rested. And in a moment you realize, it all inside.  '
         act 'moan':
             cla
             *clr
             '<center><img src="peter/d2-3.jpg" ></center>'
             'Tears streamed from his eyes, Peter began and slowly began to move. He took his hands away from your head, and now you hands grabbed his buttocks and went to sit down on his spear.  You trembling, you are lost in the sensations, between the legs raging fire, nice chest ached with a sense of shamelessness and awareness of their depravity.'
             act 'moo':
             cla
             *clr
             '<center><img src="peter/d2-4.jpg" ></center>'
             'Peter began to finish and stopped drove a member as far as possible, you feel,  as where-in the depths of you pours his sperm., and on his balls your saliva flows ...'
             set SUB = SUB + 1
             set bj = bj + 1
             if horny >= 100:
             'Suddenly. Fire was burning between her legs and waves of pleasure covered body, You groaned and shuddered with orgasm,but Peter gripped you do not allow the members to slip out of his mouth...'
             set VAF = VAF + 1
             set willpower = willpower + 15
             set lipkoef = lipkoef + 1
             set orgasm = orgasm + 1
             end
             act 'swallow' : gt 'peterroom','end'
             end
         end
     end
     
end
--- Peterroom ---------------------------------

# portnoi
if odetjeans=1:set jeansB[numdress]=bedra
if odetyoga=1:set yogaB[numdress]=bedra
if odetsarafan=1:set sarafanB[numdress]=bedra
if odetshort=1:set shortB[numdress]=bedra
if odetskirt=1:set skirtB[numdress]=bedra
if odetdress=1:set dressB[numdress]=bedra
if odetprofi=1:set profiB[numdress]=bedra
if odetpants=1:set pantsB[numdress]=bedra
if odetlatex=1:set latexB[numdress]=bedra
if odethooker=1:set hookerB[numdress]=bedra
if odetkis=1:set odekisB[numdress]=bedra
if odetnewclo=1:set newcloB[numdress]=bedra
--- portnoi ---------------------------------

# portnoi1
if $ARGS[0]='start':
gs'stat'
cla

if odetjeans=1 and numdress!1 and jeans[1]=1 or odetjeans=0 and jeans[1]=1:'jeans 1 (remaining strength <<jeansH[1]>> , The size of the hips <<jeansB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''jeans''">take_in</a>'
if odetjeans=1 and numdress!2 and jeans[2]=1 or odetjeans=0 and jeans[2]=1:'jeans 2 (remaining strength <<jeansH[2]>> , The size of the hips <<jeansB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''jeans''">take_in</a>'
if odetjeans=1 and numdress!3 and jeans[3]=1 or odetjeans=0 and jeans[3]=1:'jeans 3 (remaining strength <<jeansH[3]>> , The size of the hips <<jeansB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''jeans''">take_in</a>'
if odetjeans=1 and numdress!4 and jeans[4]=1 or odetjeans=0 and jeans[4]=1:'jeans 4 (remaining strength <<jeansH[4]>> , The size of the hips <<jeansB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''jeans''">take_in</a>'
if odetjeans=1 and numdress!5 and jeans[5]=1 or odetjeans=0 and jeans[5]=1:'jeans 5 (remaining strength <<jeansH[5]>> , The size of the hips <<jeansB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''jeans''">take_in</a>'

if odetshort=1 and numdress!1 and short[1]=1 or odetshort=0 and short[1]=1:'Black shorts with a purple T-shirt (remaining strength <<shortH[1]>>, The size of the hips <<shortB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''short''">take_in</a>'
if odetshort=1 and numdress!2 and short[2]=1 or odetshort=0 and short[2]=1:'Black shorts with striped T-shirt (remaining strength <<shortH[2]>>, The size of the hips <<shortB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''short''">take_in</a>'
if odetshort=1 and numdress!3 and short[3]=1 or odetshort=0 and short[3]=1:'Black shorts with a black T-shirt (remaining strength <<shortH[3]>>, The size of the hips <<shortB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''short''">take_in</a>'
if odetshort=1 and numdress!4 and short[4]=1 or odetshort=0 and short[4]=1:'Pink shorts with pink favorite topics (remaining strength <<shortH[4]>>, The size of the hips <<shortB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''short''">take_in</a>'
if odetshort=1 and numdress!5 and short[5]=1 or odetshort=0 and short[5]=1:'Sexy white shorts (remaining strength <<shortH[5]>>, The size of the hips <<shortB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''short''">take_in</a>'

if odetskirt=1 and numdress!1 and skirt[1]=1 or odetskirt=0 and skirt[1]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[1]>>, The size of the hips <<skirtB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''skirt''">take_in</a>'
if odetskirt=1 and numdress!2 and skirt[2]=1 or odetskirt=0 and skirt[2]=1:'Black leather skirt with a red jacket (remaining strength <<skirtH[2]>>, The size of the hips <<skirtB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''skirt''">take_in</a>'
if odetskirt=1 and numdress!3 and skirt[3]=1 or odetskirt=0 and skirt[3]=1:'White skirt with a striped blouse (remaining strength <<skirtH[3]>>, The size of the hips <<skirtB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''skirt''">take_in</a>'
if odetskirt=1 and numdress!4 and skirt[4]=1 or odetskirt=0 and skirt[4]=1:'White skirt with a colorful blouse (remaining strength <<skirtH[4]>>, The size of the hips <<skirtB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''skirt''">take_in</a>'
if odetskirt=1 and numdress!5 and skirt[5]=1 or odetskirt=0 and skirt[5]=1:'Black leather skirt with a red blouse (remaining strength <<skirtH[5]>>, The size of the hips <<skirtB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''skirt''">take_in</a>'

if odetdress=1 and numdress!1 and dress[1]=1 or odetdress=0 and dress[1]=1:'Black dress (remaining strength <<dressH[1]>>, The size of the hips <<dressB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!2 and dress[2]=1 or odetdress=0 and dress[2]=1:'yellow dress (remaining strength <<dressH[2]>>, The size of the hips <<dressB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!3 and dress[3]=1 or odetdress=0 and dress[3]=1:'blue dress (remaining strength <<dressH[3]>>, The size of the hips <<dressB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!4 and dress[4]=1 or odetdress=0 and dress[4]=1:'Black short dress (remaining strength <<dressH[4]>>, The size of the hips <<dressB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!5 and dress[5]=1 or odetdress=0 and dress[5]=1:'Red long dress (remaining strength <<dressH[5]>>, The size of the hips <<dressB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!6 and dress[6]=1 or odetdress=0 and dress[6]=1:'Red polka dot dress (remaining strength <<dressH[6]>>, The size of the hips <<dressB[6]>>) <a href="exec:set numdres=6&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!7 and dress[7]=1 or odetdress=0 and dress[7]=1:'brown dress (remaining strength <<dressH[7]>>, The size of the hips <<dressB[7]>>) <a href="exec:set numdres=7&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!8 and dress[8]=1 or odetdress=0 and dress[8]=1:'dress 8(remaining strength <<dressH[8]>>, The size of the hips <<dressB[8]>>) <a href="exec:set numdres=8&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!9 and dress[9]=1 or odetdress=0 and dress[9]=1:'dress 9(remaining strength <<dressH[9]>>, The size of the hips <<dressB[9]>>) <a href="exec:set numdres=9&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!10 and dress[10]=1 or odetdress=0 and dress[10]=1:'dress 10(remaining strength <<dressH[10]>>, The size of the hips <<dressB[10]>>) <a href="exec:set numdres=10&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!11 and dress[11]=1 or odetdress=0 and dress[11]=1:'dress 11(remaining strength <<dressH[11]>>, The size of the hips <<dressB[11]>>) <a href="exec:set numdres=11&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!12 and dress[12]=1 or odetdress=0 and dress[12]=1:'dress 12(remaining strength <<dressH[12]>>, The size of the hips <<dressB[12]>>) <a href="exec:set numdres=12&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!13 and dress[13]=1 or odetdress=0 and dress[13]=1:'dress 13(remaining strength <<dressH[13]>>, The size of the hips <<dressB[13]>>) <a href="exec:set numdres=13&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!14 and dress[14]=1 or odetdress=0 and dress[14]=1:'dress 14(remaining strength <<dressH[14]>>, The size of the hips <<dressB[14]>>) <a href="exec:set numdres=14&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!15 and dress[15]=1 or odetdress=0 and dress[15]=1:'dress 15(remaining strength <<dressH[15]>>, The size of the hips <<dressB[15]>>) <a href="exec:set numdres=15&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!16 and dress[16]=1 or odetdress=0 and dress[16]=1:'dress 16(remaining strength <<dressH[16]>>, The size of the hips <<dressB[16]>>) <a href="exec:set numdres=16&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!17 and dress[17]=1 or odetdress=0 and dress[17]=1:'dress 17(remaining strength <<dressH[17]>>, The size of the hips <<dressB[17]>>) <a href="exec:set numdres=17&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!18 and dress[18]=1 or odetdress=0 and dress[18]=1:'dress 18(remaining strength <<dressH[18]>>, The size of the hips <<dressB[18]>>) <a href="exec:set numdres=18&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!19 and dress[19]=1 or odetdress=0 and dress[19]=1:'dress 19(remaining strength <<dressH[19]>>, The size of the hips <<dressB[19]>>) <a href="exec:set numdres=19&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!20 and dress[20]=1 or odetdress=0 and dress[20]=1:'dress 20(remaining strength <<dressH[20]>>, The size of the hips <<dressB[20]>>) <a href="exec:set numdres=20&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!21 and dress[21]=1 or odetdress=0 and dress[21]=1:'dress 21(remaining strength <<dressH[21]>>, The size of the hips <<dressB[21]>>) <a href="exec:set numdres=21&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!22 and dress[22]=1 or odetdress=0 and dress[22]=1:'dress 22(remaining strength <<dressH[22]>>, The size of the hips <<dressB[22]>>) <a href="exec:set numdres=22&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!23 and dress[23]=1 or odetdress=0 and dress[23]=1:'dress 23(remaining strength <<dressH[23]>>, The size of the hips <<dressB[23]>>) <a href="exec:set numdres=23&GT ''portnoi1'',''dress''">take_in</a>'
if odetdress=1 and numdress!24 and dress[24]=1 or odetdress=0 and dress[24]=1:'dress 24(remaining strength <<dressH[24]>>, The size of the hips <<dressB[24]>>) <a href="exec:set numdres=24&GT ''portnoi1'',''dress''">take_in</a>'

if odetprofi=1 and numdress!1 and profi[1]=1 or odetprofi=0 and profi[1]=1:'office clothes 1(remaining strength <<profiH[1]>>, The size of the hips <<profiB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''profi''">take_in</a>'
if odetprofi=1 and numdress!2 and profi[2]=1 or odetprofi=0 and profi[2]=1:'office clothes 2(remaining strength <<profiH[2]>>, The size of the hips <<profiB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''profi''">take_in</a>'

if odetpants=1 and numdress!1 and pants[1]=1 or odetpants=0 and pants[1]=1:'Tight black leggings with black top (remaining strength <<pantsH[1]>>, The size of the hips <<pantsB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''pants''">take_in</a>'
if odetpants=1 and numdress!2 and pants[2]=1 or odetpants=0 and pants[2]=1:'Tight black leggings with red blouse (remaining strength <<pantsH[2]>>, The size of the hips <<pantsB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''pants''">take_in</a>'
if odetpants=1 and numdress!3 and pants[3]=1 or odetpants=0 and pants[3]=1:'Purple skintight leggings with black top (remaining strength <<pantsH[3]>>, The size of the hips <<pantsB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''pants''">take_in</a>'
if odetpants=1 and numdress!4 and pants[4]=1 or odetpants=0 and pants[4]=1:'Black tight leggings with a black short topic (remaining strength <<pantsH[4]>>, The size of the hips <<pantsB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''pants''">take_in</a>'
if odetpants=1 and numdress!5 and pants[5]=1 or odetpants=0 and pants[5]=1:'White skinny jeans with black top (remaining strength <<pantsH[5]>>, The size of the hips <<pantsB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''pants''">take_in</a>'

if odetlatex=1 and numdress!1 and latex[1]=1 or odetlatex=0 and latex[1]=1:'Black latex jumpsuit (remaining strength <<latexH[1]>>, The size of the hips <<latexB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''latex''">take_in</a>'
if odetlatex=1 and numdress!2 and latex[2]=1 or odetlatex=0 and latex[2]=1:'Purple latex dress (remaining strength <<latexH[2]>>, The size of the hips <<latexB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''latex''">take_in</a>'

if odethooker=1 and numdress!1 and hooker[1]=1 or odethooker=0 and hooker[1]=1:'Prostitute outfit number1 (remaining strength <<hookerH[1]>>, The size of the hips <<hookerB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''hooker''">take_in</a>'
if odethooker=1 and numdress!2 and hooker[2]=1 or odethooker=0 and hooker[2]=1:'Prostitute outfit number2 (remaining strength <<hookerH[2]>>, The size of the hips <<hookerB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''hooker''">take_in</a>'
if odethooker=1 and numdress!3 and hooker[3]=1 or odethooker=0 and hooker[3]=1:'Prostitute outfit number3 (remaining strength <<hookerH[3]>>, The size of the hips <<hookerB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''hooker''">take_in</a>'
if odethooker=1 and numdress!4 and hooker[4]=1 or odethooker=0 and hooker[4]=1:'Prostitute outfit number4 (remaining strength <<hookerH[4]>>, The size of the hips <<hookerB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''hooker''">take_in</a>'
if odethooker=1 and numdress!5 and hooker[5]=1 or odethooker=0 and hooker[5]=1:'Prostitute outfit number5 (remaining strength <<hookerH[5]>>, The size of the hips <<hookerB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''hooker''">take_in</a>'

if odetkis=1 and numdress!1 and odekis[1]=1 or odetkis=0 and odekis[1]=1:'Youth outfit number1 (remaining strength <<odekisH[1]>>, The size of the hips <<odekisB[1]>>) <a href="exec:set numdres=1&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!2 and odekis[2]=1 or odetkis=0 and odekis[2]=1:'Youth outfit number2 (remaining strength <<odekisH[2]>>, The size of the hips <<odekisB[2]>>) <a href="exec:set numdres=2&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!3 and odekis[3]=1 or odetkis=0 and odekis[3]=1:'Youth outfit number3 (remaining strength <<odekisH[3]>>, The size of the hips <<odekisB[3]>>) <a href="exec:set numdres=3&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!4 and odekis[4]=1 or odetkis=0 and odekis[4]=1:'Youth outfit number4 (remaining strength <<odekisH[4]>>, The size of the hips <<odekisB[4]>>) <a href="exec:set numdres=4&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!5 and odekis[5]=1 or odetkis=0 and odekis[5]=1:'Youth outfit number5 (remaining strength <<odekisH[5]>>, The size of the hips <<odekisB[5]>>) <a href="exec:set numdres=5&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!6 and odekis[6]=1 or odetkis=0 and odekis[6]=1:'Youth outfit number6 (remaining strength <<odekisH[6]>>, The size of the hips <<odekisB[6]>>) <a href="exec:set numdres=6&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!7 and odekis[7]=1 or odetkis=0 and odekis[7]=1:'Youth outfit number7 (remaining strength <<odekisH[7]>>, The size of the hips <<odekisB[7]>>) <a href="exec:set numdres=7&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!8 and odekis[8]=1 or odetkis=0 and odekis[8]=1:'Youth outfit number8 (remaining strength <<odekisH[8]>>, The size of the hips <<odekisB[8]>>) <a href="exec:set numdres=8&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!9 and odekis[9]=1 or odetkis=0 and odekis[9]=1:'Youth outfit number9 (remaining strength <<odekisH[9]>>, The size of the hips <<odekisB[9]>>) <a href="exec:set numdres=9&GT ''portnoi1'',''odekis''">take_in</a>'
if odetkis=1 and numdress!10 and odekis[10]=1 or odetkis=0 and odekis[10]=1:'Youth outfit number10 (remaining strength <<odekisH[10]>>, The size of the hips <<odekisB[10]>>) <a href="exec:set numdres=10&GT ''portnoi1'',''odekis''">take_in</a>'

if odetnewclo=1 and numdress!1 and newclo[1]=1 or odetnewclo=0 and newclo[1]=1:'Clothing from Fashionistas number1 (remaining strength <<newcloH[1]>>, The size of the hips <<newcloB[1]>>) <a href="exec:numdres=1&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!2 and newclo[2]=1 or odetnewclo=0 and newclo[2]=1:'Clothing from Fashionistas number2 (remaining strength <<newcloH[2]>>, The size of the hips <<newcloB[2]>>) <a href="exec:numdres=2&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!3 and newclo[3]=1 or odetnewclo=0 and newclo[3]=1:'Clothing from Fashionistas number3 (remaining strength <<newcloH[3]>>, The size of the hips <<newcloB[3]>>) <a href="exec:numdres=3&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!4 and newclo[4]=1 or odetnewclo=0 and newclo[4]=1:'Clothing from Fashionistas number4 (remaining strength <<newcloH[4]>>, The size of the hips <<newcloB[4]>>) <a href="exec:numdres=4&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!5 and newclo[5]=1 or odetnewclo=0 and newclo[5]=1:'Clothing from Fashionistas number5 (remaining strength <<newcloH[5]>>, The size of the hips <<newcloB[5]>>) <a href="exec:numdres=5&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!6 and newclo[6]=1 or odetnewclo=0 and newclo[6]=1:'Clothing from Fashionistas number6 (remaining strength <<newcloH[6]>>, The size of the hips <<newcloB[6]>>) <a href="exec:numdres=6&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!7 and newclo[7]=1 or odetnewclo=0 and newclo[7]=1:'Clothing from Fashionistas number7 (remaining strength <<newcloH[7]>>, The size of the hips <<newcloB[7]>>) <a href="exec:numdres=7&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!8 and newclo[8]=1 or odetnewclo=0 and newclo[8]=1:'Clothing from Fashionistas number8 (remaining strength <<newcloH[8]>>, The size of the hips <<newcloB[8]>>) <a href="exec:numdres=8&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!9 and newclo[9]=1 or odetnewclo=0 and newclo[9]=1:'Clothing from Fashionistas number9 (remaining strength <<newcloH[9]>>, The size of the hips <<newcloB[9]>>) <a href="exec:numdres=9&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!10 and newclo[10]=1 or odetnewclo=0 and newclo[10]=1:'Clothing from Fashionistas number10 (remaining strength <<newcloH[10]>>, The size of the hips <<newcloB[10]>>) <a href="exec:numdres=10&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!11 and newclo[11]=1 or odetnewclo=0 and newclo[11]=1:'Clothing from Fashionistas number11 (remaining strength <<newcloH[11]>>, The size of the hips <<newcloB[11]>>) <a href="exec:numdres=11&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!12 and newclo[12]=1 or odetnewclo=0 and newclo[12]=1:'Clothing from Fashionistas number12 (remaining strength <<newcloH[12]>>, The size of the hips <<newcloB[12]>>) <a href="exec:numdres=12&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!13 and newclo[13]=1 or odetnewclo=0 and newclo[13]=1:'Clothing from Fashionistas number13 (remaining strength <<newcloH[13]>>, The size of the hips <<newcloB[13]>>) <a href="exec:numdres=13&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!14 and newclo[14]=1 or odetnewclo=0 and newclo[14]=1:'Clothing from Fashionistas number14 (remaining strength <<newcloH[14]>>, The size of the hips <<newcloB[14]>>) <a href="exec:numdres=14&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!15 and newclo[15]=1 or odetnewclo=0 and newclo[15]=1:'Clothing from Fashionistas number15 (remaining strength <<newcloH[15]>>, The size of the hips <<newcloB[15]>>) <a href="exec:numdres=15&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!16 and newclo[16]=1 or odetnewclo=0 and newclo[16]=1:'Clothing from Fashionistas number16 (remaining strength <<newcloH[16]>>, The size of the hips <<newcloB[16]>>) <a href="exec:numdres=16&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!17 and newclo[17]=1 or odetnewclo=0 and newclo[17]=1:'Clothing from Fashionistas number17 (remaining strength <<newcloH[17]>>, The size of the hips <<newcloB[17]>>) <a href="exec:numdres=17&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!18 and newclo[18]=1 or odetnewclo=0 and newclo[18]=1:'Clothing from Fashionistas number18 (remaining strength <<newcloH[18]>>, The size of the hips <<newcloB[18]>>) <a href="exec:numdres=18&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!19 and newclo[19]=1 or odetnewclo=0 and newclo[19]=1:'Clothing from Fashionistas number19 (remaining strength <<newcloH[19]>>, The size of the hips <<newcloB[19]>>) <a href="exec:numdres=19&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!20 and newclo[20]=1 or odetnewclo=0 and newclo[20]=1:'Clothing from Fashionistas number20 (remaining strength <<newcloH[20]>>, The size of the hips <<newcloB[20]>>) <a href="exec:numdres=20&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!21 and newclo[21]=1 or odetnewclo=0 and newclo[21]=1:'Clothing from Fashionistas number21 (remaining strength <<newcloH[21]>>, The size of the hips <<newcloB[21]>>) <a href="exec:numdres=21&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!22 and newclo[22]=1 or odetnewclo=0 and newclo[22]=1:'Clothing from Fashionistas number22 (remaining strength <<newcloH[22]>>, The size of the hips <<newcloB[22]>>) <a href="exec:numdres=22&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!23 and newclo[23]=1 or odetnewclo=0 and newclo[23]=1:'Clothing from Fashionistas number23 (remaining strength <<newcloH[23]>>, The size of the hips <<newcloB[23]>>) <a href="exec:numdres=23&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!24 and newclo[24]=1 or odetnewclo=0 and newclo[24]=1:'Clothing from Fashionistas number24 (remaining strength <<newcloH[24]>>, The size of the hips <<newcloB[24]>>) <a href="exec:numdres=24&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!25 and newclo[25]=1 or odetnewclo=0 and newclo[25]=1:'Clothing from Fashionistas number25 (remaining strength <<newcloH[25]>>, The size of the hips <<newcloB[25]>>) <a href="exec:numdres=25&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!26 and newclo[26]=1 or odetnewclo=0 and newclo[26]=1:'Clothing from Fashionistas number26 (remaining strength <<newcloH[26]>>, The size of the hips <<newcloB[26]>>) <a href="exec:numdres=26&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!27 and newclo[27]=1 or odetnewclo=0 and newclo[27]=1:'Clothing from Fashionistas number27 (remaining strength <<newcloH[27]>>, The size of the hips <<newcloB[27]>>) <a href="exec:numdres=27&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!28 and newclo[28]=1 or odetnewclo=0 and newclo[28]=1:'Clothing from Fashionistas number28 (remaining strength <<newcloH[28]>>, The size of the hips <<newcloB[28]>>) <a href="exec:numdres=28&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!29 and newclo[29]=1 or odetnewclo=0 and newclo[29]=1:'Clothing from Fashionistas number29 (remaining strength <<newcloH[29]>>, The size of the hips <<newcloB[29]>>) <a href="exec:numdres=29&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!30 and newclo[30]=1 or odetnewclo=0 and newclo[30]=1:'Clothing from Fashionistas number30 (remaining strength <<newcloH[30]>>, The size of the hips <<newcloB[30]>>) <a href="exec:numdres=30&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!31 and newclo[31]=1 or odetnewclo=0 and newclo[31]=1:'Clothing from Fashionistas number31 (remaining strength <<newcloH[31]>>, The size of the hips <<newcloB[31]>>) <a href="exec:numdres=31&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!32 and newclo[32]=1 or odetnewclo=0 and newclo[32]=1:'Clothing from Fashionistas number32 (remaining strength <<newcloH[32]>>, The size of the hips <<newcloB[32]>>) <a href="exec:numdres=32&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!33 and newclo[33]=1 or odetnewclo=0 and newclo[33]=1:'Clothing from Fashionistas number33 (remaining strength <<newcloH[33]>>, The size of the hips <<newcloB[33]>>) <a href="exec:numdres=33&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!34 and newclo[34]=1 or odetnewclo=0 and newclo[34]=1:'Clothing from Fashionistas number34 (remaining strength <<newcloH[34]>>, The size of the hips <<newcloB[34]>>) <a href="exec:numdres=34&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!35 and newclo[35]=1 or odetnewclo=0 and newclo[35]=1:'Clothing from Fashionistas number35 (remaining strength <<newcloH[35]>>, The size of the hips <<newcloB[35]>>) <a href="exec:numdres=35&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!36 and newclo[36]=1 or odetnewclo=0 and newclo[36]=1:'Clothing from Fashionistas number36 (remaining strength <<newcloH[36]>>, The size of the hips <<newcloB[36]>>) <a href="exec:numdres=36&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!37 and newclo[37]=1 or odetnewclo=0 and newclo[37]=1:'Clothing from Fashionistas number37 (remaining strength <<newcloH[37]>>, The size of the hips <<newcloB[37]>>) <a href="exec:numdres=37&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!38 and newclo[38]=1 or odetnewclo=0 and newclo[38]=1:'Clothing from Fashionistas number38 (remaining strength <<newcloH[38]>>, The size of the hips <<newcloB[38]>>) <a href="exec:numdres=38&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!39 and newclo[39]=1 or odetnewclo=0 and newclo[39]=1:'Clothing from Fashionistas number39 (remaining strength <<newcloH[39]>>, The size of the hips <<newcloB[39]>>) <a href="exec:numdres=39&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!40 and newclo[40]=1 or odetnewclo=0 and newclo[40]=1:'Clothing from Fashionistas number40 (remaining strength <<newcloH[40]>>, The size of the hips <<newcloB[40]>>) <a href="exec:numdres=40&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!41 and newclo[41]=1 or odetnewclo=0 and newclo[41]=1:'Clothing from Fashionistas number41 (remaining strength <<newcloH[41]>>, The size of the hips <<newcloB[41]>>) <a href="exec:numdres=41&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!42 and newclo[42]=1 or odetnewclo=0 and newclo[42]=1:'Clothing from Fashionistas number42 (remaining strength <<newcloH[42]>>, The size of the hips <<newcloB[42]>>) <a href="exec:numdres=42&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!43 and newclo[43]=1 or odetnewclo=0 and newclo[43]=1:'Clothing from Fashionistas number43 (remaining strength <<newcloH[43]>>, The size of the hips <<newcloB[43]>>) <a href="exec:numdres=43&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!44 and newclo[44]=1 or odetnewclo=0 and newclo[44]=1:'Clothing from Fashionistas number44 (remaining strength <<newcloH[44]>>, The size of the hips <<newcloB[44]>>) <a href="exec:numdres=44&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!45 and newclo[45]=1 or odetnewclo=0 and newclo[45]=1:'Clothing from Fashionistas number45 (remaining strength <<newcloH[45]>>, The size of the hips <<newcloB[45]>>) <a href="exec:numdres=45&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!46 and newclo[46]=1 or odetnewclo=0 and newclo[46]=1:'Clothing from Fashionistas number46 (remaining strength <<newcloH[46]>>, The size of the hips <<newcloB[46]>>) <a href="exec:numdres=46&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!47 and newclo[47]=1 or odetnewclo=0 and newclo[47]=1:'Clothing from Fashionistas number47 (remaining strength <<newcloH[47]>>, The size of the hips <<newcloB[47]>>) <a href="exec:numdres=47&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!48 and newclo[48]=1 or odetnewclo=0 and newclo[48]=1:'Clothing from Fashionistas number48 (remaining strength <<newcloH[48]>>, The size of the hips <<newcloB[48]>>) <a href="exec:numdres=48&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!49 and newclo[49]=1 or odetnewclo=0 and newclo[49]=1:'Clothing from Fashionistas number49 (remaining strength <<newcloH[49]>>, The size of the hips <<newcloB[49]>>) <a href="exec:numdres=49&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!50 and newclo[50]=1 or odetnewclo=0 and newclo[50]=1:'Clothing from Fashionistas number50 (remaining strength <<newcloH[50]>>, The size of the hips <<newcloB[50]>>) <a href="exec:numdres=50&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!51 and newclo[51]=1 or odetnewclo=0 and newclo[51]=1:'Clothing from Fashionistas number51 (remaining strength <<newcloH[51]>>, The size of the hips <<newcloB[51]>>) <a href="exec:numdres=51&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!52 and newclo[52]=1 or odetnewclo=0 and newclo[52]=1:'Clothing from Fashionistas number52 (remaining strength <<newcloH[52]>>, The size of the hips <<newcloB[52]>>) <a href="exec:numdres=52&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!53 and newclo[53]=1 or odetnewclo=0 and newclo[53]=1:'Clothing from Fashionistas number53 (remaining strength <<newcloH[53]>>, The size of the hips <<newcloB[53]>>) <a href="exec:numdres=53&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!54 and newclo[54]=1 or odetnewclo=0 and newclo[54]=1:'Clothing from Fashionistas number54 (remaining strength <<newcloH[54]>>, The size of the hips <<newcloB[54]>>) <a href="exec:numdres=54&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!55 and newclo[55]=1 or odetnewclo=0 and newclo[55]=1:'Clothing from Fashionistas number55 (remaining strength <<newcloH[55]>>, The size of the hips <<newcloB[55]>>) <a href="exec:numdres=55&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!56 and newclo[56]=1 or odetnewclo=0 and newclo[56]=1:'Clothing from Fashionistas number56 (remaining strength <<newcloH[56]>>, The size of the hips <<newcloB[56]>>) <a href="exec:numdres=56&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!57 and newclo[57]=1 or odetnewclo=0 and newclo[57]=1:'Clothing from Fashionistas number57 (remaining strength <<newcloH[57]>>, The size of the hips <<newcloB[57]>>) <a href="exec:numdres=57&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!58 and newclo[58]=1 or odetnewclo=0 and newclo[58]=1:'Clothing from Fashionistas number58 (remaining strength <<newcloH[58]>>, The size of the hips <<newcloB[58]>>) <a href="exec:numdres=58&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!59 and newclo[59]=1 or odetnewclo=0 and newclo[59]=1:'Clothing from Fashionistas number59 (remaining strength <<newcloH[59]>>, The size of the hips <<newcloB[59]>>) <a href="exec:numdres=59&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!60 and newclo[60]=1 or odetnewclo=0 and newclo[60]=1:'Clothing from Fashionistas number60 (remaining strength <<newcloH[60]>>, The size of the hips <<newcloB[60]>>) <a href="exec:numdres=60&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!61 and newclo[61]=1 or odetnewclo=0 and newclo[61]=1:'Clothing from Fashionistas number61 (remaining strength <<newcloH[61]>>, The size of the hips <<newcloB[61]>>) <a href="exec:numdres=61&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!62 and newclo[62]=1 or odetnewclo=0 and newclo[62]=1:'Clothing from Fashionistas number62 (remaining strength <<newcloH[62]>>, The size of the hips <<newcloB[62]>>) <a href="exec:numdres=62&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!63 and newclo[63]=1 or odetnewclo=0 and newclo[63]=1:'Clothing from Fashionistas number63 (remaining strength <<newcloH[63]>>, The size of the hips <<newcloB[63]>>) <a href="exec:numdres=63&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!64 and newclo[64]=1 or odetnewclo=0 and newclo[64]=1:'Clothing from Fashionistas number64 (remaining strength <<newcloH[64]>>, The size of the hips <<newcloB[64]>>) <a href="exec:numdres=64&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!65 and newclo[65]=1 or odetnewclo=0 and newclo[65]=1:'Clothing from Fashionistas number65 (remaining strength <<newcloH[65]>>, The size of the hips <<newcloB[65]>>) <a href="exec:numdres=65&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!66 and newclo[66]=1 or odetnewclo=0 and newclo[66]=1:'Clothing from Fashionistas number66 (remaining strength <<newcloH[66]>>, The size of the hips <<newcloB[66]>>) <a href="exec:numdres=66&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!67 and newclo[67]=1 or odetnewclo=0 and newclo[67]=1:'Clothing from Fashionistas number67 (remaining strength <<newcloH[67]>>, The size of the hips <<newcloB[67]>>) <a href="exec:numdres=67&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!68 and newclo[68]=1 or odetnewclo=0 and newclo[68]=1:'Clothing from Fashionistas number68 (remaining strength <<newcloH[68]>>, The size of the hips <<newcloB[68]>>) <a href="exec:numdres=68&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!69 and newclo[69]=1 or odetnewclo=0 and newclo[69]=1:'Clothing from Fashionistas number69 (remaining strength <<newcloH[69]>>, The size of the hips <<newcloB[69]>>) <a href="exec:numdres=69&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!70 and newclo[70]=1 or odetnewclo=0 and newclo[70]=1:'Clothing from Fashionistas number70 (remaining strength <<newcloH[70]>>, The size of the hips <<newcloB[70]>>) <a href="exec:numdres=70&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!71 and newclo[71]=1 or odetnewclo=0 and newclo[71]=1:'Clothing from Fashionistas number71 (remaining strength <<newcloH[71]>>, The size of the hips <<newcloB[71]>>) <a href="exec:numdres=71&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!72 and newclo[72]=1 or odetnewclo=0 and newclo[72]=1:'Clothing from Fashionistas number72 (remaining strength <<newcloH[72]>>, The size of the hips <<newcloB[72]>>) <a href="exec:numdres=72&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!73 and newclo[73]=1 or odetnewclo=0 and newclo[73]=1:'Clothing from Fashionistas number73 (remaining strength <<newcloH[73]>>, The size of the hips <<newcloB[73]>>) <a href="exec:numdres=73&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!74 and newclo[74]=1 or odetnewclo=0 and newclo[74]=1:'Clothing from Fashionistas number74 (remaining strength <<newcloH[74]>>, The size of the hips <<newcloB[74]>>) <a href="exec:numdres=74&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!75 and newclo[75]=1 or odetnewclo=0 and newclo[75]=1:'Clothing from Fashionistas number75 (remaining strength <<newcloH[75]>>, The size of the hips <<newcloB[75]>>) <a href="exec:numdres=75&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!76 and newclo[76]=1 or odetnewclo=0 and newclo[76]=1:'Clothing from Fashionistas number76 (remaining strength <<newcloH[76]>>, The size of the hips <<newcloB[76]>>) <a href="exec:numdres=76&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!77 and newclo[77]=1 or odetnewclo=0 and newclo[77]=1:'Clothing from Fashionistas number77 (remaining strength <<newcloH[77]>>, The size of the hips <<newcloB[77]>>) <a href="exec:numdres=77&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!78 and newclo[78]=1 or odetnewclo=0 and newclo[78]=1:'Clothing from Fashionistas number78 (remaining strength <<newcloH[78]>>, The size of the hips <<newcloB[78]>>) <a href="exec:numdres=78&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!79 and newclo[79]=1 or odetnewclo=0 and newclo[79]=1:'Clothing from Fashionistas number79 (remaining strength <<newcloH[79]>>, The size of the hips <<newcloB[79]>>) <a href="exec:numdres=79&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!80 and newclo[80]=1 or odetnewclo=0 and newclo[80]=1:'Clothing from Fashionistas number80 (remaining strength <<newcloH[80]>>, The size of the hips <<newcloB[80]>>) <a href="exec:numdres=80&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!81 and newclo[81]=1 or odetnewclo=0 and newclo[81]=1:'Clothing from Fashionistas number81 (remaining strength <<newcloH[81]>>, The size of the hips <<newcloB[81]>>) <a href="exec:numdres=81&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!82 and newclo[82]=1 or odetnewclo=0 and newclo[82]=1:'Clothing from Fashionistas number82 (remaining strength <<newcloH[82]>>, The size of the hips <<newcloB[82]>>) <a href="exec:numdres=82&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!83 and newclo[83]=1 or odetnewclo=0 and newclo[83]=1:'Clothing from Fashionistas number83 (remaining strength <<newcloH[83]>>, The size of the hips <<newcloB[83]>>) <a href="exec:numdres=83&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!84 and newclo[84]=1 or odetnewclo=0 and newclo[84]=1:'Clothing from Fashionistas number84 (remaining strength <<newcloH[84]>>, The size of the hips <<newcloB[84]>>) <a href="exec:numdres=84&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!85 and newclo[85]=1 or odetnewclo=0 and newclo[85]=1:'Clothing from Fashionistas number85 (remaining strength <<newcloH[85]>>, The size of the hips <<newcloB[85]>>) <a href="exec:numdres=85&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!86 and newclo[86]=1 or odetnewclo=0 and newclo[86]=1:'Clothing from Fashionistas number86 (remaining strength <<newcloH[86]>>, The size of the hips <<newcloB[86]>>) <a href="exec:numdres=86&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!87 and newclo[87]=1 or odetnewclo=0 and newclo[87]=1:'Clothing from Fashionistas number87 (remaining strength <<newcloH[87]>>, The size of the hips <<newcloB[87]>>) <a href="exec:numdres=87&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!88 and newclo[88]=1 or odetnewclo=0 and newclo[88]=1:'Clothing from Fashionistas number88 (remaining strength <<newcloH[88]>>, The size of the hips <<newcloB[88]>>) <a href="exec:numdres=88&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!89 and newclo[89]=1 or odetnewclo=0 and newclo[89]=1:'Clothing from Fashionistas number89 (remaining strength <<newcloH[89]>>, The size of the hips <<newcloB[89]>>) <a href="exec:numdres=89&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!90 and newclo[90]=1 or odetnewclo=0 and newclo[90]=1:'Clothing from Fashionistas number90 (remaining strength <<newcloH[90]>>, The size of the hips <<newcloB[90]>>) <a href="exec:numdres=90&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!91 and newclo[91]=1 or odetnewclo=0 and newclo[91]=1:'Clothing from Fashionistas number91 (remaining strength <<newcloH[91]>>, The size of the hips <<newcloB[91]>>) <a href="exec:numdres=91&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!92 and newclo[92]=1 or odetnewclo=0 and newclo[92]=1:'Clothing from Fashionistas number92 (remaining strength <<newcloH[92]>>, The size of the hips <<newcloB[92]>>) <a href="exec:numdres=92&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!93 and newclo[93]=1 or odetnewclo=0 and newclo[93]=1:'Clothing from Fashionistas number93 (remaining strength <<newcloH[93]>>, The size of the hips <<newcloB[93]>>) <a href="exec:numdres=93&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!94 and newclo[94]=1 or odetnewclo=0 and newclo[94]=1:'Clothing from Fashionistas number94 (remaining strength <<newcloH[94]>>, The size of the hips <<newcloB[94]>>) <a href="exec:numdres=94&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!95 and newclo[95]=1 or odetnewclo=0 and newclo[95]=1:'Clothing from Fashionistas number95 (remaining strength <<newcloH[95]>>, The size of the hips <<newcloB[95]>>) <a href="exec:numdres=95&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!96 and newclo[96]=1 or odetnewclo=0 and newclo[96]=1:'Clothing from Fashionistas number96 (remaining strength <<newcloH[96]>>, The size of the hips <<newcloB[96]>>) <a href="exec:numdres=96&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!97 and newclo[97]=1 or odetnewclo=0 and newclo[97]=1:'Clothing from Fashionistas number97 (remaining strength <<newcloH[97]>>, The size of the hips <<newcloB[97]>>) <a href="exec:numdres=97&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!98 and newclo[98]=1 or odetnewclo=0 and newclo[98]=1:'Clothing from Fashionistas number98 (remaining strength <<newcloH[98]>>, The size of the hips <<newcloB[98]>>) <a href="exec:numdres=98&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!99 and newclo[99]=1 or odetnewclo=0 and newclo[99]=1:'Clothing from Fashionistas number99 (remaining strength <<newcloH[99]>>, The size of the hips <<newcloB[99]>>) <a href="exec:numdres=99&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!100 and newclo[100]=1 or odetnewclo=0 and newclo[100]=1:'Clothing from Fashionistas number100 (remaining strength <<newcloH[100]>>, The size of the hips <<newcloB[100]>>) <a href="exec:numdres=100&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!101 and newclo[101]=1 or odetnewclo=0 and newclo[101]=1:'Clothing from Fashionistas number101 (remaining strength <<newcloH[101]>>, The size of the hips <<newcloB[101]>>) <a href="exec:numdres=101&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!102 and newclo[102]=1 or odetnewclo=0 and newclo[102]=1:'Clothing from Fashionistas number102 (remaining strength <<newcloH[102]>>, The size of the hips <<newcloB[102]>>) <a href="exec:numdres=102&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!103 and newclo[103]=1 or odetnewclo=0 and newclo[103]=1:'Clothing from Fashionistas number103 (remaining strength <<newcloH[103]>>, The size of the hips <<newcloB[103]>>) <a href="exec:numdres=103&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!104 and newclo[104]=1 or odetnewclo=0 and newclo[104]=1:'Clothing from Fashionistas number104 (remaining strength <<newcloH[104]>>, The size of the hips <<newcloB[104]>>) <a href="exec:numdres=104&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!105 and newclo[105]=1 or odetnewclo=0 and newclo[105]=1:'Clothing from Fashionistas number105 (remaining strength <<newcloH[105]>>, The size of the hips <<newcloB[105]>>) <a href="exec:numdres=105&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!106 and newclo[106]=1 or odetnewclo=0 and newclo[106]=1:'Clothing from Fashionistas number106 (remaining strength <<newcloH[106]>>, The size of the hips <<newcloB[106]>>) <a href="exec:numdres=106&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!107 and newclo[107]=1 or odetnewclo=0 and newclo[107]=1:'Clothing from Fashionistas number107 (remaining strength <<newcloH[107]>>, The size of the hips <<newcloB[107]>>) <a href="exec:numdres=107&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!108 and newclo[108]=1 or odetnewclo=0 and newclo[108]=1:'Clothing from Fashionistas number108 (remaining strength <<newcloH[108]>>, The size of the hips <<newcloB[108]>>) <a href="exec:numdres=108&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!109 and newclo[109]=1 or odetnewclo=0 and newclo[109]=1:'Clothing from Fashionistas number109 (remaining strength <<newcloH[109]>>, The size of the hips <<newcloB[109]>>) <a href="exec:numdres=109&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!110 and newclo[110]=1 or odetnewclo=0 and newclo[110]=1:'Clothing from Fashionistas number110 (remaining strength <<newcloH[110]>>, The size of the hips <<newcloB[110]>>) <a href="exec:numdres=110&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!111 and newclo[111]=1 or odetnewclo=0 and newclo[111]=1:'Clothing from Fashionistas number111 (remaining strength <<newcloH[111]>>, The size of the hips <<newcloB[111]>>) <a href="exec:numdres=111&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!112 and newclo[112]=1 or odetnewclo=0 and newclo[112]=1:'Clothing from Fashionistas number112 (remaining strength <<newcloH[112]>>, The size of the hips <<newcloB[112]>>) <a href="exec:numdres=112&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!113 and newclo[113]=1 or odetnewclo=0 and newclo[113]=1:'Clothing from Fashionistas number113 (remaining strength <<newcloH[113]>>, The size of the hips <<newcloB[113]>>) <a href="exec:numdres=113&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!114 and newclo[114]=1 or odetnewclo=0 and newclo[114]=1:'Clothing from Fashionistas number114 (remaining strength <<newcloH[114]>>, The size of the hips <<newcloB[114]>>) <a href="exec:numdres=114&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!115 and newclo[115]=1 or odetnewclo=0 and newclo[115]=1:'Clothing from Fashionistas number115 (remaining strength <<newcloH[115]>>, The size of the hips <<newcloB[115]>>) <a href="exec:numdres=115&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!116 and newclo[116]=1 or odetnewclo=0 and newclo[116]=1:'Clothing from Fashionistas number116 (remaining strength <<newcloH[116]>>, The size of the hips <<newcloB[116]>>) <a href="exec:numdres=116&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!117 and newclo[117]=1 or odetnewclo=0 and newclo[117]=1:'Clothing from Fashionistas number117 (remaining strength <<newcloH[117]>>, The size of the hips <<newcloB[117]>>) <a href="exec:numdres=117&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!118 and newclo[118]=1 or odetnewclo=0 and newclo[118]=1:'Clothing from Fashionistas number118 (remaining strength <<newcloH[118]>>, The size of the hips <<newcloB[118]>>) <a href="exec:numdres=118&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!119 and newclo[119]=1 or odetnewclo=0 and newclo[119]=1:'Clothing from Fashionistas number119 (remaining strength <<newcloH[119]>>, The size of the hips <<newcloB[119]>>) <a href="exec:numdres=119&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!120 and newclo[120]=1 or odetnewclo=0 and newclo[120]=1:'Clothing from Fashionistas number120 (remaining strength <<newcloH[120]>>, The size of the hips <<newcloB[120]>>) <a href="exec:numdres=120&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!121 and newclo[121]=1 or odetnewclo=0 and newclo[121]=1:'Clothing from Fashionistas number121 (remaining strength <<newcloH[121]>>, The size of the hips <<newcloB[121]>>) <a href="exec:numdres=121&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!122 and newclo[122]=1 or odetnewclo=0 and newclo[122]=1:'Clothing from Fashionistas number122 (remaining strength <<newcloH[122]>>, The size of the hips <<newcloB[122]>>) <a href="exec:numdres=122&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!123 and newclo[123]=1 or odetnewclo=0 and newclo[123]=1:'Clothing from Fashionistas number123 (remaining strength <<newcloH[123]>>, The size of the hips <<newcloB[123]>>) <a href="exec:numdres=123&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!124 and newclo[124]=1 or odetnewclo=0 and newclo[124]=1:'Clothing from Fashionistas number124 (remaining strength <<newcloH[124]>>, The size of the hips <<newcloB[124]>>) <a href="exec:numdres=124&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!125 and newclo[125]=1 or odetnewclo=0 and newclo[125]=1:'Clothing from Fashionistas number125 (remaining strength <<newcloH[125]>>, The size of the hips <<newcloB[125]>>) <a href="exec:numdres=125&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!126 and newclo[126]=1 or odetnewclo=0 and newclo[126]=1:'Clothing from Fashionistas number126 (remaining strength <<newcloH[126]>>, The size of the hips <<newcloB[126]>>) <a href="exec:numdres=126&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!127 and newclo[127]=1 or odetnewclo=0 and newclo[127]=1:'Clothing from Fashionistas number127 (remaining strength <<newcloH[127]>>, The size of the hips <<newcloB[127]>>) <a href="exec:numdres=127&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!128 and newclo[128]=1 or odetnewclo=0 and newclo[128]=1:'Clothing from Fashionistas number128 (remaining strength <<newcloH[128]>>, The size of the hips <<newcloB[128]>>) <a href="exec:numdres=128&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!129 and newclo[129]=1 or odetnewclo=0 and newclo[129]=1:'Clothing from Fashionistas number129 (remaining strength <<newcloH[129]>>, The size of the hips <<newcloB[129]>>) <a href="exec:numdres=129&GT ''portnoi1'',''newclo''">take_in</a>'
if odetnewclo=1 and numdress!130 and newclo[130]=1 or odetnewclo=0 and newclo[130]=1:'Clothing from Fashionistas number130 (remaining strength <<newcloH[130]>>, The size of the hips <<newcloB[130]>>) <a href="exec:numdres=130&GT ''portnoi1'',''newclo''">take_in</a>'
act 'End_Up':gt'clener','start'
end

if $ARGS[0]='jeans':
cla
'<center><img src="ode/jeans<<numdres>>.jpg" ></center>'
'(remaining strength <<jeansH[numdres]>>, The size of the hips <<jeansB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if jeansB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set jeansB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='short':
cla
'<center><img src="ode/short<<numdres>>.jpg" ></center>'
'(remaining strength <<shortH[numdres]>>, The size of the hips <<shortB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if shortB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set shortB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='skirt':
cla
'<center><img src="ode/skirt<<numdres>>.jpg" ></center>'
'(remaining strength <<skirtH[numdres]>>, The size of the hips <<skirtB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if skirtB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set skirtB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='dress':
cla
'<center><img src="ode/dress<<numdres>>.jpg" ></center>'
'(remaining strength <<dressH[numdres]>>, The size of the hips <<dressB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if dressB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set dressB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='profi':
cla
'<center><img src="ode/profi<<numdres>>.jpg" ></center>'
'(remaining strength <<profiH[numdres]>>, The size of the hips <<profiB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if profiB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set profiB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='pants':
cla
'<center><img src="ode/pants<<numdres>>.jpg" ></center>'
'(remaining strength <<pantsH[numdres]>>, The size of the hips <<pantsB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if pantsB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set pantsB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='latex':
cla
'<center><img src="ode/latex<<numdres>>.jpg" ></center>'
'(remaining strength <<latexH[numdres]>>, The size of the hips <<latexB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if latexB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set latexB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='hooker':
cla
'<center><img src="ode/hooker<<numdres>>.jpg" ></center>'
'(remaining strength <<hookerH[numdres]>>, The size of the hips <<hookerB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if hookerB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set hookerB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='odekis':
cla
'<center><img src="ode/k<<numdres>>.jpg" ></center>'
'(remaining strength <<odekisH[numdres]>>, The size of the hips <<odekisB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if odekisB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set odekisB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end

if $ARGS[0]='newclo':
cla
'<center><img src="ode/<<numdres>>.jpg" ></center>'
'(remaining strength <<newcloH[numdres]>>, The size of the hips <<newcloB[numdres]>>)'
act 'To Top':gt'portnoi1','start'
if newcloB[numdres]!bedra and money>=500:
	 'Can be closed for 500 RUB.'
	 act 'take_in':
		 set newcloB[numdres] = bedra
		 set money-=500
		 gt'portnoi1','start'
		 end
	 end
end
--- portnoi1 ---------------------------------

# portnoi2
set poshvalldrop=0
set o=0
:jensmet
set o+=1
if jeans[o]=1 and jeansB[o]!bedra:set poshvalldrop+=1
if o!5:jump'jensmet'
set o=0
:shortmet
set o+=1
if short[o]=1 and shortB[o]!bedra:set poshvalldrop+=1
if o!5:jump'shortmet'
set o=0
:skirtmet
set o+=1
if skirt[o]=1 and skirtB[o]!bedra:set poshvalldrop+=1
if o!5:jump'skirtmet'
set o=0
:dressmet
set o+=1
if dress[o]=1 and dressB[o]!bedra:set poshvalldrop+=1
if o!24:jump'dressmet'
set o=0
:profimet
set o+=1
if profi[o]=1 and profiB[o]!bedra:set poshvalldrop+=1
if o!2:jump'profimet'
set o=0
:pantsmet
set o+=1
if pants[o]=1 and pantsB[o]!bedra:set poshvalldrop+=1
if o!5:jump'pantsmet'
set o=0
:latexmet
set o+=1
if latex[o]=1 and latexB[o]!bedra:set poshvalldrop+=1
if o!2:jump'latexmet'
set o=0
:hookermet
set o+=1
if hooker[o]=1 and hookerB[o]!bedra:set poshvalldrop+=1
if o!5:jump'hookermet'
set o=0
:odekismet
set o+=1
if odekis[o]=1 and odekisB[o]!bedra:set poshvalldrop+=1
if o!10:jump'odekismet'
set o=0
:newclomet
set o+=1
if newclo[o]=1 and newcloB[o]!bedra:set poshvalldrop+=1
if o!130:jump'newclomet'
set o=0
if money<poshvalldrop*500:
	 'You do not have enough money, cost ushivki all clothing <<poshvalldrop*500>> RUB.'
	 act 'GO_OUT':gt'clener','start'
	 exit
	 end
if money>=poshvalldrop*500:
	 set money-=poshvalldrop*500
	 set o=0
	 :jensmet1
	 set o+=1
	 if jeans[o]=1 and jeansB[o]!bedra:set jeansB[o]=bedra
	 if o!5:jump'jensmet1'
	 set o=0
	 :shortmet1
	 set o+=1
	 if short[o]=1 and shortB[o]!bedra:set shortB[o]=bedra
	 if o!5:jump'shortmet1'
	 set o=0
	 :skirtmet1
	 set o+=1
	 if skirt[o]=1 and skirtB[o]!bedra:set skirtB[o]=bedra
	 if o!5:jump'skirtmet1'
	 set o=0
	 :dressmet1
	 set o+=1
	 if dress[o]=1 and dressB[o]!bedra:set dressB[o]=bedra
	 if o!24:jump'dressmet1'
	 set o=0
	 :profimet1
	 set o+=1
	 if profi[o]=1 and profiB[o]!bedra:set profiB[o]=bedra
	 if o!2:jump'profimet1'
	 set o=0
	 :pantsmet1
	 set o+=1
	 if pants[o]=1 and pantsB[o]!bedra:set pantsB[o]=bedra
	 if o!5:jump'pantsmet1'
	 set o=0
	 :latexmet1
	 set o+=1
	 if latex[o]=1 and latexB[o]!bedra:set latexB[o]=bedra
	 if o!2:jump'latexmet1'
	 set o=0
	 :hookermet1
	 set o+=1
	 if hooker[o]=1 and hookerB[o]!bedra:set hookerB[o]=bedra
	 if o!5:jump'hookermet1'
	 set o=0
	 :odekismet1
	 set o+=1
	 if odekis[o]=1 and odekisB[o]!bedra:set odekisB[o]=bedra
	 if o!10:jump'odekismet1'
	 set o=0
	 :newclomet1
	 set o+=1
	 if newclo[o]=1 and newcloB[o]!bedra:set newcloB[o]=bedra
	 if o!130:jump'newclomet1'
	 'You ushili all the clothes for <<poshvalldrop*500>> RUB.'
	 act 'GO_OUT':gt'clener','start'
	 exit
	 end
--- portnoi2 ---------------------------------

# sexorg
if $ARGS[0]='start':
cla
*clr
gs 'stat'
set picrand = RAND (0,1)
set minut+=30
set sweat+=1
gt'sexorg','var'
end

if $ARGS[0]='var':
set sexorgrand = RAND (0,6)
if sexorgrand=0:
	 cla
	 *clr
	 set horny+=10
	 if orsxbj=0:
		 set bj+=1
		 set orsxbj=1
		 end
	 set sexvar+=1
	 '<center><img src="img/sexorg/minet<<picrand>>.jpg"></center>'
	 'You two suck his dick, that in turn, then along lick his dildo, languages вЂ‹вЂ‹in contact.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=1:
	 cla
	 *clr
	 set horny+=10
	 set sexvar+=1
	 '<center><img src="img/sexorg/vag<<picrand>>.jpg"></center>'
	 'While she enjoys the member in her pussy, You also find yourself busy iteresnoe.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=2:
	 cla
	 *clr
	 set horny+=10
	 if orsxsex=0:
		 set sex+=1
		 set orsxsex=1
		 end
	 set sexvar+=1
	 '<center><img src="img/sexorg/uvag<<picrand>>.jpg"></center>'
	 'He comes into you, his cock moving inside your pussy bringing you pleasure, During this time she also did not lose her find things to do.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=3:
	 cla
	 *clr
	 set horny+=10
	 set sexvar+=1
	 '<center><img src="img/sexorg/anal<<picrand>>.jpg"></center>'
	 'Do you like the look of his cock in her ass and while she sweetly yells trying to absorb all of it you did not lose too.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=4:
	 cla
	 *clr
	 set horny+=10
	 if orsxanal=0:
		 set anal+=1
		 set pdsxanal=1
		 end
	 '<center><img src="img/sexorg/uanal<<picrand>>.jpg"></center>'
	 'When he enters you in the ass you hurt a little, but soon the pain goes away and its place is taken by a pleasant sensation, until it moves dildo in your ass it is not sitting idly by.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=5:
	 cla
	 *clr
	 set horny+=10
	 if orsxbj=0:
		 set bj+=1
		 set orsxbj=1
		 end
	 if orsxsex=0:
		 set sex+=1
		 set orsxsex=1
		 end
	 if orsxanal=0:
		 set anal+=1
		 set orsxanal=1
		 end
	 '<center><img src="img/sexorg/udp<<picrand>>.jpg"></center>'
	 'The two men are part of you and you moan with pleasure feeling both dildo moving inside.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
if sexorgrand=6:
	 cla
	 *clr
	 set horny+=10
	 set sexvar+=1
	 '<center><img src="img/sexorg/dp<<picrand>>.jpg"></center>'
	 'When they enter into it together you get a little jealous seeing as she enjoys.'
	 act 'More':gt'sexorg','var'
	 if sexvar>=3:act 'End_Up.':gt'sexorg','end'
	 end
end

if $ARGS[0]='end':
cla
*clr
set orsxbj=0
set orsxsex=0
set orsxanal=0
set sexvar=0
set cumlip=1
if horny>=80:
	 set horny=0
	 set orgasm+=1
	 end
'<center><img src="img/sexorg/cum<<picrand>>.jpg"></center>'
'they finished, and you lick each other cum.'
act 'Get_Away':gt '<<$sexloc>>','start'
end
--- sexorg ---------------------------------

# etoexhib
if $args[0]='pos1':
cla
*clr	
minut+=5  
gs'stat'
'<center><img src="etogame/solar1.jpg" ></center>'
'You walk into the room with solarium. The room is quiet and subdued light, It seems in the solarium anyone except an administrator no. You`re looking at the door.'
act 'close the door':
	 cla
	 *clr 
	 '<center><img src="etogame/solar8.jpg" ></center>'
	 'You close the door of the castle and stripped down to goal, Arrange in a solarium prone.'
	 act 'further':
		 cla
		 *clr
		 manna+=10
		 gs'stat' 
		 '<center><img src="etogame/solar9.jpg" ></center>'
		 'You are tanned and relaxed. pleased, You choose from tanning and dressing leave the hall interior.'
		 act'Get_Away':gt 'salon', 'start'
		 end
	 end
act 'Leave the door ajar':
	 cla
	 *clr
	 manna+=10
	 horny+=10
	 gs'stat'
	 '<center><img src="etogame/solar1.jpg" ></center>'
	 'You decide to fool around a bit and leave the door ajar to the room. You begin to slowly undress, when you shoot livchik and exposes breasts, light shivers run through your naked back. Suddenly now someone-some will go and see my breasts, he think of me?'
	 act 'undress':
		 cla
		 *clr
		 horny+=10
		 gs'stat'
		 '<center><img src="etogame/solar2.jpg" ></center>'
		 'You continue to undress and now your ass bare okazyvaetsya. Suddenly there is a feeling, that someone behind you-being watched. You breath quickens, and waves of excitation. If yours truly who-then spies, you decide to undress as possible erotic. You do not know why, just tells your feminine nature.'
		 act 'Undress before the goal':
			 cla
			 *clr
			 horny+=10
			 gs'stat'
			 '<center><img src="etogame/solar4.jpg" ></center>'
			 'You stripped naked and went to the solarium. Face just to the door. Out of curiosity. And you really see the glimpse of a shadow and hear what-then sniff. Can be no doubt, obviously someone behind you-being watched. One of awareness, that someone behind you-is watching, while you are lying completely naked, your body starts to shiver. The abdomen there is a pleasant feeling. And you are excited to such an extent, that start to push the legs in different directions. To the delight of the mysterious stranger.'
			 act 'spread her legs':
				 cla
				 *clr
				 horny+=10
				 gs'stat'
				 '<center><img src="etogame/solar5.jpg" ></center>'
				 '"I spread her legs as lustful bitch. What does he think of me. What if he`s not alone, and all the staff have fled to me to see. Jesus! What if they take me on camera and tomorrow I`ll be all over the internet." - thoughts rushing in your head, but the excitement is already large.'
				 act 'masturbate':
					 cla
					 *clr
					 horny+=20
					 gs'stat'
					 '<center><img src="etogame/solar6.jpg" ></center>'
					 'You start furiously rubbing her pussy, to finally finish his shameless adventure. And gradually become excited to the point, that you can not hold back emotions. You start to moan and push the labia with your fingers, stranger showing her pussy in all its glory.'
					 act 'further':
						 cla
						 *clr
						 orgasm+=1
						 horny-=50
						 manna+=200
						 gs'stat'
						 '<center><img src="etogame/solar7.jpg" ></center>'
						 'At_Last, you cover powerful orgasm subsides and you are exhausted. Sniff more also not heard, looks like a secret observer finished with you.'
						 ' '
						 'Gradually, get out of the booth.'
						 act'Get_Away':gt 'salon', 'start'
						 end
					 end
				 end
			 end
		 end
	 end
end

if $args[0]='pos2':
cla
*clr	
minut+=5  
gs'stat'
'<center><img src="etogame/1dachi.jpg" ></center>'
'You walked through the alleys. Basically society is not very crowded. Occasionally gardeners poking around on beds. where-I hear the clang of the saw. On the outskirts of the forest can be seen. At the end of the alley is an artificial reservoir. Some areas with houses sold.'
if etoexhib=0:'You do not know anybody here and truckers did not work any opinion about you.'
act 'Go to the forest':gt 'etoexhib','pos3'
act 'Go down to the lake':gt 'etoexhib', 'pos16'
if etoexhib=10:'go to <a href="exec:GT ''etoexhib'',''pos9''">clang saws</a>.'
act'Get_Away':gt 'dachi'
act'Get_Away':gt 'dachi'
end

if $args[0]='pos3':
cla
*clr	
minut+=5  
gs'stat'
foresrand=RAND(1,100)
'<center><img src="etogame/1fores.jpg" ></center>'
'Livstvenny forest.'
if foresrand<10:
	 cla
	 *clr
	 '<center><img src="etogame/1fores.jpg" ></center>'
	 'Livstvenny forest.'
	 'In the distant you see a mushroom picker.'
 	 act 'His attention':gt 'etoexhib', 'pos4'
 	 end
if foresrand>90:
	 cla
	 *clr
	 '<center><img src="etogame/1fores.jpg" ></center>'
	 'Livstvenny forest.'
	 act 'undress':gt 'etoexhib','pos5'
	 end
act'Get_Away':gt 'dachi'
end

if $args[0]='pos4':
cla
*clr	
minut+=5  
gs'stat'
'You mushroomer waving a pen and he stopped looking at you.'
act'show pussy':
	 cla
	 *clr	
	 minut+=5
	 horny+=sub
	 gs'stat'
	 '<center><img src="etogame/2fores.jpg" ></center>'
	 'smile, mushroomer you show her pussy. He stands in his tracks and stares at you, not knowing what`s going on.'
	 act'escape':gt 'dachi'
	 end
end

if $args[0]='pos5':
cla
*clr	
minut+=5
horny+=sub
gs'stat'
'<center><img src="etogame/3fores.jpg" ></center>'
'I stripped naked and went for a walk in the woods. Heart pounding in the chest. fresh air, gentle warm breeze caresses me. summer... The sun warms me. when there was a, thought that freeze quickly, but was hot summer sun prompted, I was wrong. wondered exactly. Do not get lost if I. Clothes left on earth, and if I did not find! Here are taken only pickers. but, if I povstechayu their? Which is a shame! Stumbled upon a good clearing. The wind had dropped.' 
act 'further':
	 cla
	 *clr
	 '<center><img src="etogame/4fores.jpg" ></center>'
	 'lie_down, Soak up the sun on the meadow naked. So anyone not met. Good or bad - it was nice, though a bit extreme. Well all, I plan completed. We must return, find clothes.'
	 act'Get_Away':gt 'dachi'	 
	 end
end

if $args[0]='pos6':
cla
*clr	
minut+=15  
gs'stat'
'<center><img src="etogame/rodnik.jpg" ></center>'
'Spring with spring water.' 
act 'drink':
	 if water >= 20:'Water in you no longer climbs.'
	 if water < 20:
		 'You gladly drank spring water.'
		 water+=20
		 gs'stat'
		 end
	 act 'Get_Away':gt'dachi'	
	 end
end

if $args[0]='pos7':
cla
*clr	
minut+=15  
gs'stat'
'<center><img src="etogame/stolbik.jpg" ></center>'
'Furthermore funny inscriptions on the column there is useful information.'
'Aunt Nina on 3 alley sells goat milk 300r/liter' 
if money>=300:
	 act 'Buy milk':
		 cla
		 *clr
		 money-=300
		 minut+=30
		 gs'stat'
		 frost=0
		 set edahot = 0
		 set health = health + 10
		 set manna = manna + 20
		 if energy >= 30:
			 set fat = fat + 2
			 'You do not want to drink.'
			 end
		 if energy < 30:
			 !!!etogame amend
			 energy+=10
			 fat+=1
			 'You gladly drank goat`s milk.'
			 end
		 act 'Get_Away':gt'dachi'	
		 end
	 end
act 'Get_Away':gt'dachi'
end

if $args[0]='pos8':
cla
*clr	
minut+=15  
gs'stat'
'<center><img src="etogame/dachakuz.jpg" ></center>'
'neighbor`s cottage.' 
if etoexhib<10:
	 act 'Apply neighbors':
		 cla
		 *clr
		 minut+=15  
		 gs'stat'
		 '<center><img src="etogame/kuzmich.jpg" ></center>'
		 etoexhib=10
		 'Do_You: -hello! Sveta, I`m your new neighbor, will be familiar.'
		 'neighbor: - hello. My name is all Kuzmich. So will the neighbors.'
		 'Do_You: - Can you help me, I understand the whole garden was overgrown with weeds. And so I would like to bring it in order.'
		 'Kuzmich: - well, hire local men. They will all plowed. Anyway bestolku the alleys stagger.'
		 act 'Get_Away':gt'dachi'
		 end
	 act 'Get_Away':gt'dachi'
	 end
act 'Get_Away':gt'dachi'
end

if $args[0]='pos9':
cla
*clr	
minut+=15  
gs'stat'
'<center><img src="etogame/dachastroy.jpg" ></center>'
'being built cottage. Go on a construction site workers and hauling boards.' 
act 'Ask workers about excavation':
	 cla
	 *clr
	 minut+=15  
	 gs'stat'
	 '<center><img src="etogame/dachastroy.jpg" ></center>'
	 'Do_You: -hello! I need to dig garden. you take? And how much will it cost?'
	 'working: - Writhing. for 3000 agree.'
	 act 'agree':
		 cls 
		 etoexhib=11
		 gs'stat'
		 '<center><img src="etogame/dachastroy.jpg" ></center>'
		 'You agreed with the workers, about, that they will put in order your garden.'
		 act 'Get_Away':gt'dachi'
		 end
	 act 'Get_Away':gt'dachi'
	 end
act 'Get_Away':gt'dachi'
end

if $args[0]='pos10':
cla
*clr	
minut+=30
horny+=10
temp=day
etoexhib=12  
gs'stat'
'<center><img src="etogame/dachabust.jpg" ></center>'
'You went out into the garden and going to work, asked:'
'- what, boys? How is?'
'- normally, hostess. Will do at its best.' 
act 'Get_Away':gt'dachamy'
end

if $args[0]='pos11':
cla
*clr	
minut+=15
etoexhib=13
horny+=10
temp=day  
gs'stat'
'<center><img src="etogame/dachaex.jpeg"></center>'
'You pretend, that hang laundry out to dry. you see, that through the mall on the site swarm your neighbor Kuzmich and sneak glances at you. Lightly tied robe is not able to hide your appetizing forms. but, you have them and do not hide, and give your neighbor to enjoy the beauty.' 
act 'Leave the house':gt'dachamy'	
end

if $args[0]='pos12':
cla
*clr	
minut+=15
horny+=10  
gs'stat'
'<center><img src="etogame/dachabust2.jpg" ></center>'
'Once in the garden, you heard the conversation of workers and decided to eavesdrop on his.'
'- A housewife-then, hot stuff. seen, as she paced her robe across the garden - just fire!'
'- I would vdul!'
'- Yes_I_Am, fair_enough. dreaming. This city bitch you can not handle!'
'- I tell you, she needs a good fuck, and that`s what it is in our backwoods forgotten!'
'- Fair_Enough, good tryndet.'
act 'Approach to work':
	 cla
	 *clr
	 minut+=15  
	 gs'stat'
	 '<center><img src="etogame/dachabust3.jpg" ></center>'
	 'Do_You: - common greetings! I see the work is progressing, but as-then slowly. Must be smarter than the guys!'
	 'working: - So in fact we had no advance work. Motivation need mistress.'
	 act 'disagree':
		 cls
		 etoexhib=15
		 temp=day
		 gs'stat'
		 '<center><img src="etogame/dachabust3.jpg" ></center>'
		 'Do_You: - While all do not do, get nothing.'
		 act 'Get_Away':gt'dachi'
		 end
	 act 'Accept and give half of the amount':
		 cls
		 money-=1500 
		 etoexhib=14
		 temp=day
		 gs'stat'
		 '<center><img src="etogame/dachabust3.jpg" ></center>'
		 'Ok, here`s a half. but, that by tomorrow morning everything is finished.'
		 act 'Get_Away':gt'dachi'
		 end
	 end
act 'Get_Away':gt'dachi'
end

if $args[0]='pos13':
cla
*clr	 
gs'stat'
'<center><img src="etogame/dachagang.jpg"></center>'
'You get up in the middle of the garden and start to undress.'
'Guys eyes on the forehead climb from such a spectacle.'
'- Boys, you did a good job and deserved the award!' 
act 'undress completely':
	 cla
	 *clr
	 gs'stat'
	 '<center><img src="etogame/dachagang1.jpg"></center>'
	 'You undressed and stand naked podmanivaya to his boys.'
	 '- Well, I do 100% percent discount?'
	 act 'surrender':
		cla
		*clr
		gs'stat'
		'<center><img src="etogame/dachagang4.jpg"></center>'
		'Guys jumped on you and after some caresses became greedy have in all holes.'
		minut+=120
		etoexhib=16
		horny+=50
		gang+=1
		cumass+=1
		cumlip+=1
		vagina+=1
		horand = RAND (1,100)
		if horand > horny:Set horny = horny + 10&'You were not satisfied'
		if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
		'When it was over, you raised clothes, wearing panties and ran into the house.'
		gs'stat'
		act 'further':gt'dachain'
		end
	 end	
end

if $args[0]='pos14':
cla
*clr	 
gs'stat'
'<center><img src="etogame/dachagang2.jpg"></center>'
'Drunken guys have surrounded you on all sides.'
'- Look, and here is our princess! You`re just in time for beauty, but come on guys, gave our hostess love!'
'Do_You: - What you do?' 
act 'further':
	 cla
	 *clr
	 gs'stat'
	 '<center><img src="etogame/dachagang3.jpg"></center>'
	 'Guys grabbed you and started to undress and grope.'
	 act 'surrender':
		 cla
		 *clr
		 gs'stat'
		 '<center><img src="etogame/dachagang4.jpg"></center>'
		 'Guys jumped on you and after some caresses became greedy have in all holes.'
		 minut+=120
		 etoexhib=16
		 horny+=50
		 gang+=1
		 cumass+=1
		 cumlip+=1
		 vagina+=1
		 horand = RAND (1,100)
		 if horand > horny:Set horny = horny + 10&'You were not satisfied'
		 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
		 'When it was over, you raised clothes, wearing panties and ran into the house.'
		 gs'stat'
		 act 'further':gt'dachain'
		 end
	 end	
end

if $args[0]='pos15':
cla
*clr	 
gs'stat'
'<center><img src="etogame/rinokplug.jpg"></center>'
'You felt nice, even the heady scent of expensive men`s eau de toilette. Abdomen immediately "zazudelo", passed through the body heat of excitation.
Behind was a guy with a purpose - He was a lover of the ladies feel, and now wanted to touch your ass.
A hand in the meantime turned and lay his hand on one half of your ass.'
act 'move_away':gt'rinok','start'
act 'stand':
	 cla
	 *clr
	 gs'stat'
	 '<center><img src="etogame/butplag.jpg"></center>'
	 'guy Fart: "victim" showed no displeasure, and his actions were closed from the surrounding, people did not care about him, all left to languish in the heat.
	 He moved his hand to the other "bun", stopped in the middle, A little below. started by-little by little squeeze ass in his hands. "victim" did not react. Then he began to promote his fingers through the fabric skirt depth, to tubercle between the legs.
	 he felt, what "victim" shuddered, but not of surprise. He was also a skilled, he realized, the lady excited and already "floats".
	 You really sailed. You were already not control myself. you want, the guy got under her skirt and put member... Feeling grabs you, excitement overwhelmed. you restrained, not to begin to groan and moan...
	 And the guy, in the meantime, pulled her skirt up, got a hand to the cut and skillful movement got under her skirt. His hand was on the bottom wet with perspiration ass and fingers touched the butt plug between the legs.
	 You even slightly shaken; no one noticed in a stampede, besides the tempter. He paused a little, seems shocked by the fact, the girl here and so can roam the market with no panties and plug in the ass. 
	 In my head you all circled, you were at the peak of excitement; a little more - and you end.
	 The guy certainly was not enough. He penetrated into the vagina with your fingers, and began their input and output. And then you began to tremble, made some noisy, deep breaths, and the fingers of the guy stood out moisture.
	 - wow!... - the guy did not expect such a reaction from the ladies, and even struhnul, that it can "kindle".
	 indeed, one woman approaching retirement age to ask you:
	 - devonka, you feel bad?
	 - No, thank_you, everything is gone - gather strength to reply you.'
	 minut+=10
	 orgasm+=1
	 horny=0
	 'Apparently the woman startled pervert. As for you .'
	 gs'stat'
	 act 'further':gt'rinok','start'
	 end
end	

if $args[0]='pos16':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>lake</font></B></center>'
'<center><img src="etogame/lake.jpg"></center>'
if temper >=20 and bikini > 0 and hour >= 6 and hour <= 20:
	 act 'Swim in a bathing suit':
		 cla
		 *clr
		 set cumpussy = 0
		 set cumbelly = 0
		 set cumass = 0
		 set cumlip = 0
		 set cumface = 0
		 set cumfrot = 0
		 set minut = minut + 60
		 set sweat = -3
		 set manna = manna + 5
		 set willpower = willpower + 5
		 if stren < 30:set stren = stren + 1
		 '<center><img src="pics/swim.jpg" ></center>'
		 'You iskupnulis in the lake, Water refreshes and invigorates.'
		 act 'Out of the water':gt'etoexhib','pos16'
		 end
	 end
if temper >=20 and hour >= 6 and hour <= 20:
	 act 'swim naked':
		 cla
		 *clr
		 set cumpussy = 0
		 set cumbelly = 0
		 set cumass = 0
		 set cumlip = 0
		 set cumface = 0
		 set cumfrot = 0
		 set minut = minut + 60
		 set sweat = -3
		 set manna = manna + 5
		 set willpower = willpower + 5
		 set horny+=10
		 if stren < 30:set stren = stren + 1
		 '<center><img src="etogame/lakenude.jpg" ></center>'
		 'You swim in the lake completely naked, Water refreshes and invigorates.'
		 act 'Out of the water':gt'etoexhib','pos16'
		 end	
	 end
act 'Back to the alley':gt'etoexhib','pos2'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!------------------------------------------------

if $args[0]='pos17':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>The House of Culture</font></B></center>'
if hour>=9 and hour<20:
	'<center><img src="etogame/dk.jpg"></center>'
	'on Fridays, Saturdays and Sundays from 20.00 prior_to 23.00 dancing. entrance 25 rubles.'
	end
if hour>=20 and hour<=23:
	'<center><img src="etogame/dk_night.jpg"></center>'
	'At the entrance to the recreation center is full of youth, guys just stand and smoke, joke and who-then look out for. Girls in groups on 2-3 man, what-then discuss, who-then just thumps in the bushes.'
	act'Join the club':money-=25&minut+=15&gt'etoexhib','pos18'
	end	
act 'Back to the train station':gt'gorodok'
end

if $args[0]='pos18':
cla
*clr
gs'stat'
'<center><B><font color=maroon>disco</font></B></center>'
if hour<23:	
	 temp=RAND(1,100)
	 if temp>=1 and temp<35:
		minut+=30
		'<center><img src="etogame/club_yaho.jpg"></center>'
		'On the dance floor full of people. All dancing and having fun.'
		act 'dance':
			cla
			*clr
			'<center><img src="etogame/club_dance.jpg"></center>'
			'Music is quite old, but catchy. And you have fun whirls in a dance, not paying any attention to anybody.'
			minut+=30
			fat-=1
			if dance<50 and agil>=dance:dance+=1
			manna+=10
			willpower+=10
			frost=0
			act 'further':gt'etoexhib','pos18'
			end
		act 'further':gt'etoexhib','pos18'
		end
	 if temp>=35 and temp<65:
		 minut+=30
		 '<center><img src="etogame/club_pusto.jpg"></center>'
		 'No one on the dance floor. Cold and sad. you havecazhivaetes the free space.'
		 if temp>=35 and temp<65:
			 'Here and there some runs-that kid with a camera and fotkaet girls.'
			 act'Pose for the photographer':
				 cla
				 *clr
				 gs'stat'
				 if alko<3 and vnesh>=5 and vnesh<30:
					 '<center><img src="etogame/club_foto.jpg"></center>'
					 'You poziruete for "novice" Photographer, trying to look as attractive as possible.'
					 act 'further':gt'etoexhib','pos18'
					 end
				 if alko<3 and vnesh>=30:
					 temp=RAND(1,2)
					 if temp=1:'<center><img src="etogame/club_foto1.jpg"></center>'
					 if temp=2:'<center><img src="etogame/club_foto2.jpg"></center>'
					 'You poziruete for the novice photographer, trying to look as attractive as possible.'
					 act 'further':gt'etoexhib','pos18'
					 end 	
				 if horny>10 and alko>1:
					 '<center><img src="etogame/club_glam.jpg"></center>'
					 'You push your foot on the table. you thought, so get erotic photo.'
					 end
				 end 
			 act 'further':gt'etoexhib','pos18'	
			 end	
		 end
	 if temp>=65 and temp<=100:
		 minut+=30
		 '<center><img src="etogame/club_yaho1.jpg"></center>'
		 'On the dance floor full of people. All dancing and having fun.'
		 act 'dance':
			 cla
			 *clr
			 '<center><img src="etogame/club_dance.jpg"></center>'
			 'Music is quite old, but catchy. And you have fun whirls in a dance, not paying any attention to anybody.'
			 minut+=30
			 fat-=1
			 if dance<50 and agil>=dance:dance+=1
			 manna+=10
			 willpower+=10
			 frost=0
			 act 'further':gt'etoexhib','pos18'
			 end
		 act 'further':gt'etoexhib','pos18'	
		 end
	 else
	 'The club is closed. turn on the light, music fades and all begin to diverge.'
	 end 	
act 'come out':gt'etoexhib','pos17'
end

if $args[0]='pos19':
cla
*clr
gs'stat'
'<center><B><font color=maroon>hall</font></B></center>'
'<center><img src="etogame/ptu_holl.jpg"></center>'
'Lyceum Hall. Here is pretty clean and quiet. At the table sits technicals. On the wall hangs a timetable.'
if workPTU=2:
	 cls
	 '<center><B><font color=maroon>board_of_directors</font></B></center>'
	 '<center><img src="etogame/ptu_angdir.jpg"></center>'
	 'what a shame, Svetlana! you disgrace, assigned to you honorable mission of the teacher! So you have no place in our ranks! Take your documents. you`re fired!'
	 manna-=100
	 workPTU=1
	 teachlevel=0
	 gs'stat'
	 act 'further':gt'etoexhib','pos20'
	 exit
	 end
if teachlevel=0:'You could not explain the technicals to whom you have come to continue the personnel department .'
if teachlevel>=1 and teachlevel<10:'You do not deserve to be a teacher.'
if teachlevel>=10 and teachlevel<20:'Treat you as a young, inexperienced intern.'
if teachlevel>=20 and teachlevel<30:'Do you already have a reputation.'
if teachlevel>=30 and teachlevel<50:'You deserve respect for the teacher.'
if teachlevel>=50 and teachlevel<70:'Turn to you for advice.'
if teachlevel>=70 and teachlevel<90:'Your experience and knowledge known outside the Lyceum.'
if teachlevel>=90:'You personify education.'
if workPTU>2:
	 act 'Corridor on the floor':gt'etoexhib','pos22'
	 act 'On the second floor':gt'etoexhib','pos23'
	 act 'On the third floor':gt'etoexhib','pos24'
	 end
if workPTU!1:
	 act'Contact the personnel department.':
		 if workPTU>2:
			 cla
			 *clr
			 set minut+=5
			 gs'stat'
			 '<center><B><font color=maroon>personnel department</font></B></center>'
			 '<center><img src="etogame/ptu_cadr.jpg"></center>'
			 act'resign':
				 set workPTU=0
				 cla
				 'Now you are no longer working.'
				 act 'Exit the hall':gt'etoexhib','pos19'
				 end
			 act 'Exit the hall':gt'etoexhib','pos19'
			 end
		 if workPTU=0:
			 cla
			 *clr
			 set minut+=15
			 gs'stat'
			 '<center><B><font color=maroon>personnel department</font></B></center>'
			 '<center><img src="etogame/ptu_cadr.jpg"></center>'
			 'good afternoon! Welcome you girl Personnel. And told, that they require a certified teacher for doing electives. Working days from Monday to Saturday, with 14.00 prior_to 16.00. payment 300 rubles per day of classes. Terms piecework, t.to. for full salary, at the moment, no free bets. Strict dress code, business. Also not recommended for bright makeup, strong perfume.'
			 if diplom=0:'you informed, they can not take you for a job without a diploma of higher pedagogical education.'
			 act 'Exit the hall':gt'etoexhib','pos19'
			 if diplom=1:
				 act 'Have an interview for a job':
					 cla
					 *clr
					 '<center><B><font color=maroon>personnel department</font></B></center>'
					 '<center><img src="etogame/ptu_cadr.jpg"></center>'
					 set minut = minut + 60
					 gs'stat'
					 'You have passed an oral interview, leave a copy of the diploma and other documents in the personnel department, where you are told, that can take you for a job.'
					 act 'Get a job instructor':
						 cla
						 set workPTU = 3
						 set teachlevel=16
						 'You have got work book and said, that you can go to work the next business day.'
						 act 'Exit the hall':gt'etoexhib','pos19'
						 end 		
					 end
				 end	
			 end
		 end
	 end
act 'on the street':gt'etoexhib','pos20'
end

if $args[0]='pos20':
cla
*clr
minut+=15
gs'stat'
'<center><B><font color=maroon>lyceum</font></B></center>'
'<center><img src="etogame/lizey.jpg"></center>'
'On the door hangs a classified: "Vocational School students is set on the basis of 11 school classes by function: (an extensive list). moreover, conducted training of the employees of enterprises. In college, a modern material-technical base."'
if workPTU>2:'Sport <a href="exec:GT ''etoexhib'',''pos21''">area.</a>'
if teachlevel>0 and teachlevel<10:workPTU=2
act 'Sign in high school':gt'etoexhib','pos19'
act 'Leave the station':gt'gorodok'
end

if $args[0]='pos21':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>playground</font></B></center>'
'<center><img src="etogame/stadion.jpg"></center>'
'You see all, what was left of a football field. sorry sight. Nonetheless, guys still, enjoy playing football here.'
temp=RAND(1,100)
if temp=>90:
	 cls
	 gs'stat'
	 '<center><img src="etogame/ptu_fight.jpg" ></center>'
	 'You see a group of girls, mock bed- Man.'
	 act 'Intercede for Man':
		 cls
		 teachlevel+=1
		 '- What you do?! immediately stop, I`ll call the police! Throw you on the girls. And they, snort: "Douchebag, himself to blame!" leave the guy alone.'
		 'You set a good example, helping defenseless man. This has a positive impact on your reputation.'
		 act 'further':gt'etoexhib','pos21'
		 end
	 act 'Disregard':gt'etoexhib','pos21'
	 end	
act 'return':gt'etoexhib','pos20'
end
	
if $args[0]='pos22':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>corridor (1 floor)</font></B></center>'
'<center><img src="etogame/ptu_1korr.jpg"></center>'
'On the first floor honey. cabinet, gym, dining room and classes.'
temp=RAND(1,100)
if temp=>90:
	 cls
	 horny+=5
	 gs'stat'
	 '<center><img src="etogame/PTU_rand.jpg" ></center>'
	 'You encounter Olga L., foreign language teachers. Hmm, She dressed pretty sexy, and this is against the rules.'
	 act 'further':gt'etoexhib','pos22'
	 end
act 'In the gym':gt'etoexhib','pos33'
act 'In a medical office':gt'etoexhib','pos36'
act 'In the dining room':gt'etoexhib','pos37'
act 'In the hall':gt'etoexhib','pos19'
end

if $args[0]='pos23':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>corridor (2 floor)</font></B></center>'
'<center><img src="etogame/ptu_2korr.jpg"></center>'
'On this floor there are classes, account Director, library and teacher toilet.'
temp=RAND(1,100)
if temp=>90:
	 cls
	 horny+=10
	 gs'stat'
	 '<center><img src="etogame/ptu_korr1.jpg" ></center>'
	 'One of the students, sitting on the windowsill. You struck by her revealing outfits and cheeky behavior.'
	 act 'further':gt'etoexhib','pos23'
	 end
act 'the principal`s office':gt'etoexhib','pos28'
act 'In the library':gt'etoexhib','pos38'
act 'The toilet':gt 'etoexhib','pos39'
act 'In the hall':gt'etoexhib','pos19'
end	

if $args[0]='pos24':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>corridor (3 floor)</font></B></center>'
'<center><img src="etogame/ptu_3korr.jpg"></center>'
'On this floor there is a class electives.'
if hour>=9 and hour<=13:act'In class':gt 'etoexhib','pos25'
if hour>=14 and hour<15:act'a lesson':gt'etoexhib','pos26'
if hour>=15 and hour<=18:act'In class':gt 'etoexhib','pos25'
act 'In the hall':gt'etoexhib','pos19'
end	

if $args[0]='pos25':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>cabinet</font></B></center>'
'<center><img src="etogame/ptu_klass.jpg"></center>'
'your class.'
if workPTU=3:
	 cls
	 minut+=15
	 gs'stat'
	 workPTU=4
	 '<center><img src="etogame/PTU_starosta.jpg" ></center>'
	 'Inna: - hello, Svetlana! (Inna greets you Robski - steward 657 A student group and round)' 
	 'Inna: - Today you look so chic!'
	 'Do_You: - Thank_U, Inna.'
	 act 'further':gt'etoexhib','pos25'
	 end
act 'Get out into the corridor':gt'etoexhib','pos24'
end	

if $ARGS[0]='pos26':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><B><font color=maroon>cabinet</font></B></center>'
'<center><img src="etogame/PTU_lesson0.jpg" ></center>'
'You went to class and ready to begin class. pupils, divided into groups, talk to each other, who-then laughs, who-then talking on the phone, who-then buried in the plate. Generally regular youth.'
act 'start of classes':
	 cla
	 set minut = 0
	 set hour = 14
	 gt'etoexhib','pos27'
     end
end

if $ARGS[0]='pos27':
cla
*clr
set minut = minut + 5
gs'stat'
'<center><B><font color=maroon>cabinet</font></B></center>'
'<center><img src="etogame/lesson1.jpg" ></center>'
'Pupils their seats and listen to you.'
if horny>30 and horny<70:
	 temp=RAND(1,100)
	 if temp>=95:
		 act 'Sexy pencil raise!':
			 cls
			 horny+=40
			 minut+=60
			 teachlevel-=5
			 gs'stat'
			 '<center><B><font color=maroon>cabinet</font></B></center>'
			 '<center><img src="etogame/ptu_karandash.jpg" ></center>'
			 'Pacing between rows, you go down on his haunches, pretending, which raises the fallen pencil. Nonetheless, sitting in the back row overlook your legs under her skirt. According to both eyes widened at one of the guys, you understand, the work is done.'
			 act 'further':gt 'etoexhib','pos27'
			 end	
		 end
	 if temp>=85 and temp<90:
		 act 'Climb on the table':
			 cls
			 horny+=40
			 minut+=60
			 teachlevel-=2
			 gs'stat'
			 '<center><B><font color=maroon>cabinet</font></B></center>'
			 '<center><img src="etogame/ptu_urok1.jpg" ></center>'
			 'explaining material, do_you, if the charter, sit on the edge of the table. wherein, the entire class overlook your legs.'
			 act 'further':gt 'etoexhib','pos27'
			 end	
		 end
	 if temp>=75 and temp<80:
		 act '"drop" chalk':
			 cls
			 horny+=40
			 minut+=60
			 teachlevel-=5
			 gs'stat'
			 '<center><B><font color=maroon>cabinet</font></B></center>'
			 '<center><img src="etogame/ptu_rak.jpg" ></center>'
			 'explaining material, do_you, unintentionally, drop the chalk. wherein, you raise it so, that any pornstar obzaviduetsya. First you cant, However, get down on all fours, raised his ass as if someone podmanivaya-then. those, who was sitting next, witnessed an unforgettable show.'
			 act 'further':gt 'etoexhib','pos27'
			 end	
		 end
	 if temp>=65 and temp<70:
		 act 'Sexy sit on a table':
			 cls
			 horny+=40
			 minut+=60
			 teachlevel-=2
			 gs'stat'
			 '<center><B><font color=maroon>cabinet</font></B></center>'
			 '<center><img src="etogame/ptu_nastol.jpg" ></center>'
			 'explaining material, do_you, if the charter, sit on the edge of the table. wherein, the entire class overlook your legs.'
			 act 'further':gt 'etoexhib','pos27'
			 end	
		 end
	 if temp>=55 and temp<60:
		 act 'Show stocking':
			 cls
			 horny+=40
			 minut+=60
			 teachlevel-=2
			 gs'stat'
			 '<center><B><font color=maroon>cabinet</font></B></center>'
			 '<center><img src="etogame/ptu_urok2.jpg" ></center>'
			 'when, you came to the student, to show a presentation, do_you, kakby casually crossed his legs, showing student, elastic stockings. Immediately after the poor fellow otprasilsya response to the toilet. Fingering neboys.'
			 act 'further':gt 'etoexhib','pos27'
			 end	
		 end
	end	
if hour < 16:
	 act 'teach':
		 cls
		 set minut = minut + 60
		 set manna = manna - 5
		 if ofclo=1 and mop=1 or ofclo=1 and mop=2:teachlevel+=1
		 if mop=4:teachlevel-=1	
		 money+=150
		 gs'stat'
		 '<center><img src="etogame/lesson.jpg" ></center>'
		 'You spend a lesson. Pupils listen attentively to you.'
		 act 'further':gt'etoexhib','pos27'
		 end	
     end
if hour >= 16:
	 act 'finish the lesson':
		 cla
		 'The lesson ends and students in a hurry to leave the classroom.'
		 act 'Get_Away':
			 cla
			 set minut = minut + 5
			 gt'etoexhib','pos24'
			 end
         end
     end
act 'Get out of class':gt'etoexhib','pos24'
end

if $args[0]='pos28':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>board_of_directors</font></B></center>'
'<center><img src="etogame/PTU_dir.jpg"></center>'
'- welcome, Svetlana! hope, Do you like to work for us. If you have any-any questions to me, I`m listening.'
act 'Exit out of the office':gt'etoexhib','pos23'
end	

if $args[0]='pos33':
cla
*clr	 
gs'stat'
'<center><B><font color=maroon>gym</font></B></center>'
'<center><img src="etogame/sportzal.jpg"></center>'
'Gym for team sports.'
act 'Women`s shower':gt 'etoexhib','pos34'
act 'Men`s shower':gt 'etoexhib','pos35'
act 'In the hall':gt'etoexhib','pos19'
end

if $args[0]='pos34':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>Women`s shower</font></B></center>'
'<center><img src="etogame/ptu_jen.jpg"></center>'
'shower_room.'
temp=RAND(1,100)
if temp>=90:
	 cls
	 minut+=15
	 horny+=20
	 gs'stat'
	 '<center><B><font color=maroon>Women`s shower</font></B></center>'
	 '<center><img src="etogame/ptu_dush.jpg" ></center>'
	 '- oh! Svetlana, leave, you`re_welcome, we do not wear! - two girls screamed, shower.'
	 act 'further':gt 'etoexhib','pos33'
	 end	
act 'In the room':gt'etoexhib','pos33'
end

if $args[0]='pos35':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>Men`s shower</font></B></center>'
'<center><img src="etogame/ptu_muz.jpg"></center>'
'Shower for boys. You should not be here. This will affect your reputation.'
teachlevel-=1
act 'In the room':gt'etoexhib','pos33'
end

if $args[0]='pos36':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>medical office</font></B></center>'
'<center><img src="etogame/ptu_medkab.jpg"></center>'
'There is first aid, conducted medical examinations and vaccinations.'
temp=RAND(1,100)
if temp>=90:
	 cls
	 minut+=15
	 horny+=10
	 gs'stat'
	 '<center><B><font color=maroon>medical office</font></B></center>'
	 '<center><img src="etogame/ptu_med1.jpg" ></center>'
	 'When you go into a medical office, nurses amused, that fotkali herself in her robe and seductive poses. But then lay out these pictures in the social network.'
	 act 'further':gt 'etoexhib','pos36'
	 end	
act 'In the corridor (1 floor)':gt'etoexhib','pos22'
end

if $args[0]='pos37':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>dining_Room</font></B></center>'
'<center><img src="etogame/ptu_stolovaya.jpg"></center>'
'You can have lunch or a snack.'
temp=RAND(1,100)
if temp>=90:
	act 'Say hello to the Director':
		cls
		minut+=15
		teachlevel+=1
		gs'stat'
		'<center><B><font color=maroon>dining_Room</font></B></center>'
		'<center><img src="etogame/ptu_stoldir.jpg" ></center>'
		'You met a director places. You politely greeted her, nezabyvaya pay a compliment.'
		act 'further':gt 'etoexhib','pos37'
		end	
	end	
act 'buy lunch (100 rubles)':
	cla
	*clr
	money-=100
	minut+=30
	gs'stat'
	frost=0
	edahot = 0
	health = health + 10
	manna = manna + 20
	if energy >= 30:
		set fat = fat + 2
		'You do not want to have.'
		end
	if energy < 30:
		energy+=20
		fat+=2
		'You ate pleasure.'
		end
	if water < 20:
		water+=20
		gs'stat'
		end
	act 'End_Up':gt'etoexhib','pos37'	
	end
act 'In the corridor (1 floor)':gt'etoexhib','pos22'
end

if $args[0]='pos38':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>library</font></B></center>'
'<center><img src="etogame/ptu_lib.jpg"></center>'
'Here.'
temp=RAND(1,100)
	if temp>=90:
		cls
		minut+=15
		horny+=10
		gs'stat'
		'<center><B><font color=maroon>library</font></B></center>'
		'<center><img src="etogame/ptu_ups.jpg" ></center>'
		'You became a casual witness, as librarian lighted his seductive crotch. But there were people in the hall, interestingly it intentionally or accidentally?!'
		act 'further':gt 'etoexhib','pos38'
		end	
act 'In the library':gt'etoexhib','pos23'
end

if $args[0]='pos39':
cla
*clr
minut+=15	 
gs'stat'
'<center><B><font color=maroon>Female toilet</font></B></center>'
'<center><img src="etogame/ptu_toilet_w.jpg"></center>'
'Wc, which in theory, Teachers can use only.'
temp=RAND(1,100)
if temp>=90:
	cls
	minut+=15
	horny+=10
	gs'stat'
	'<center><B><font color=maroon>Female toilet</font></B></center>'
	'<center><img src="etogame/ptu_zanato.jpg" ></center>'
	'Oops! Excuse_Me, must be closed.'
	act 'further':gt 'etoexhib','pos39'
	end	
act 'In the corridor':gt'etoexhib','pos23'
end

if $args[0]='pos50':
cla
*clr	
minut+=5 
gs'stat'
'Denounced by votes , you went straight to the group of adolescents, who have gathered here, to smoke, chat, drink beer. There were 7 people of all ages, from 18 prior_to 20 year_old. They watched with interest to you, appeared not know from where and waited, what do you say. 
You obviously did not expect, that they would be so much, and instead of a back seat, to severely chastise them for, that can start a fire, bleated, so they would not come here and, that they immediately went from here. Teens first looked at each other, and then laughed. 
You have become to back away, but not here - was then. You are surrounded on all sides and began to examine the disgusting ways. You felt uneasy. Teenagers began to speak of vulgarity in your address, touch clothing, and one, standing behind, pulled up your blouse. Blouse soared, showing your breasts in bra. Laughter intensified and insults rained down from all sides.
You have tried to adjust clothing, but, surround you with teenagers. Constantly pushed and pulled you in different directions. You begged release, speak, that most will never come here and all that jazz. But teenagers just laughed and has openly paw you. You suddenly felt, that behind whose-then hand picked for shorts and pulled sharply to force them together with clothes. And another villain pulled livchik and balances blouses. 
Now you`re standing in front of them completely naked. Where you began to push-in the depths of the attic, and only now you`ve seen a huge oblomlennymi legs with an old sofa. Going to the sofa you stopped and tried again to soften teenagers, but they do not even pay attention to it. You pushed sharply and you flopped on the sofa. Teenagers began to unbutton his jeans. First you came powerfully built man, roughly by the shoulders and pushed you down on your back, he unceremoniously, also roughly spread your feet, and lay on top, sending his penis in the right hole, and abruptly entered her.'
act 'further':
	 cla
	 *clr
	 '<center><img src="etogame/cherdak1.jpg" ></center>'
     'He fucked you in a fast and intense pace. after, as he had finished his place was taken 2-oh husky and it was the same as with 1-th. After you fucked it all by turns. And then , who lacked once.'  
	 act 'further':
		cla
		*clr
		'<center><img src="etogame/cherdak0.jpg" ></center>'
		'After the last finished in the mouth, Teens buttoned his pants and left, loudly laughing and discussing just what happened. And you, picked up clothes, put it, and slowly walked to his apartment.'
		minut+=120
		horny+=50
		gang+=1
		cumass+=1
		cumlip+=1
		vagina+=1
		horand = RAND (1,100)
		if horand > horny:Set horny = horny + 10&'You were not satisfied'
		if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
		gs'stat'
		 act 'In the apartment':gt'korr'
		 end
     end
end

if $args[0]='pos51':
cla
*clr	
minut+=5 
gs'stat'
'<center><img src="etogame/podezd.jpg" ></center>'
'access 5storey building in which you live. castle, closing the door on the technical floor, or attic, broken.'
     if sosedQW=0:
     'Suddenly, which almost ran flew up the stairs. He jumped on you and noticeably embarrassed. "oh sorry, I did not see you. you are in 69First settled apartment?"'
         act 'Yes_I_Am, I live in 69th':
		 cls
		 sosedQW=1
		 minut+=5 
         gs'stat'
         'You nodded confirming that live in 69First apartment. The guy was visibly delighted and said. "That`S_Great. previously lived there Petrovich, wino rare. The whole staircase torment. My name is Timothy way, and you?"'
             act 'Sveta':
			 cls
			 gs'stat'
			 'You said that you were a guy named Sveta. He nodded his head and began to get the key to open the door 68th apartment. "very nice. I am as you see in the neighboring apartment living." The guy opened the door and seemed on the verge of a curious face of an elderly woman. She sent you a sharp nose and became curiously you inspect. Timothy entered the apartment and said irritably "moms, Well !" closed the door.'
			 act '....':gt'etoexhib','pos51'
			 end
		 end
     exit
     end
     
     if sosedQW>0 and hour>=16 and sosedDay!day:
     sosedrand=RAND(0,100)
         if sosedrand>=70:
         'At the site worth your neighbor, young guy <a href="exec:Gt ''Timofei''">Timothy</a> and smoking a cigarette, flicking the ashes in a jar.'
         end
     end
     
     
     act 'on the street':
	 cls
	 if sick<=72 and nude = 0:
		xgt'street'
		elseif nude = 0:
		'<B><font color=red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
		xgt $curloc
		else
		'<B><font color=red>You have to get dressed.</font></B>'
		xgt $curloc
		end
     end


act'the attic':gt 'etoexhib','pos52'	 
act'home':gt 'korr'
end

if $args[0]='pos52':
cla
*clr	
minut+=5 
gs'stat'
'<center><img src="etogame/cherdak.jpg" ></center>'
'Flight of stairs leading to the roof through the attic. Dark and scary. There is clearly no place for a decent girl.'
temp=RAND(1,100)
if temp>90:'In the depths of the attic you hear <a href="exec:GT ''etoexhib'',''pos50''">cackling youth</a>. It seems they have not noticed.'
     act 'on the roof':
	 cla
	 *clr
	 gs'stat'
	 gt'etoexhib','pos53'
	 end
act'In the staircase':gt 'etoexhib','pos51'	 
end

if $args[0]='pos53':
cla
*clr	
minut+=5 
gs'stat'
'<center><img src="etogame/roof.jpg" ></center>'
'roof.'
if temper >=20 and bikini > 0 and hour >= 6 and hour <= 20:
	act 'zagarat 1 h':
		cla
		*clr
		set minut = minut + 60
		set sweat = sweat + 1
		set manna = manna + 5
		'<center><img src="etogame/zagar1.jpg" ></center>'
		if krem = 0:
			set tan = tan + 1
			'You went to sunbath.'
			end
		if krem > 0:
			set krem = krem - 1
			set tan = tan + 3
			'You smeared body suntan lotion and went to sunbathe.'
			end
		act 'up':gt'etoexhib','pos53'
		end
	end	
act 'the attic':
	cls
	gt'etoexhib','pos52'	
	end
end
--- etoexhib ---------------------------------

# musorkaexh
if $args[0]='pos2':
cla
*clr
bumtolik = 1
minut+=5
gs'stat' 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless. You looked at him angry look and turned away.'
act'Get_Away':gt 'street'
end	

if $args[0]='pos3':
cla
*clr
bumtolik = 2
minut+=5
gs'stat' 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless.'
'bum: - is that you, young lady, Fear not the old man! - with a predatory smile, said the homeless.'
act 'Ask what he needs':gt 'musorkaexh', 'pos4'
act'Get_Away':gt 'dis21'
end

if $args[0]='pos4':
cla
*clr
minut+=5
gs'stat' 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless.'
'Do_You: - What do you want from me?'
'bum: - ah, good lady. Just nothing, understand, Here is the deal, holiday today, I aground...'
'Do_You: - In_short, if I give money, you expect me to get behind?'
'bum: - Yes_I_Am,yes_they_are. money.'
act 'Give him a trifle (20 rubles)':gt 'musorkaexh', 'pos5'
act 'give him 100 rubles':gt 'musorkaexh', 'pos6'
act'Get_Away':gt 'trashplace'
end

if $args[0]='pos5':
cla
*clr
minut+=5
bumtolik=2
money-=20
gs'stat' 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless.'
'bum: - oh, young_lady, it`s so touching. I never helped anybody. I am so unhappy. My whole life just beat. can I, in appreciation, kiss your hand? Allow, old_man, the last time in my life?'
'(Looks at you with her tearful eyes)'
act 'Allow and lend a hand for a kiss':gt 'musorkaexh', 'pos7'
act'- of course, no! phew, nasty old man!':gt 'street'
end

if $args[0]='pos6':
cla
*clr
minut+=5
bumtolik=2
money-=100
gs'stat' 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless.'
'bum: - Wow, so much. have to napit... uh, ie to buy gifts for the grandchildren, cough-cough.'
act'Get_Away':gt 'street'
end	

if $args[0]='pos7':
cla
*clr
set minut=minut+5 
'<center><img src="etogame/bum_kiss.jpg" ></center>'
'You see the kind of hangover homeless.'
'bum, carefully, disbelief, stretches moist lips to your snow-white pen and kisses her. It`s all flutters and closes his eyes in pleasure. But when opened, you notice the evil twinkle in his eyes...' 
act 'further':
	 cls
	 gs'stat'
	 'suddenly, pulling your hand to yourself, He grabs your buttocks and starts, directly through clothing, violently kiss and sniff you between the legs. '
	 '<center><img src="etogame/bum_gra.jpg" ></center>'
	 'bum: - Argh, what a beauty!'
	 act'- nasty freak!(give a slap)':gt 'street'
	 end	
end

if $args[0]='pos8':
cla
*clr
set minut=minut+5 
'<center><img src="etogame/bum.jpg" ></center>'
'You see the kind of hangover homeless.'
'bum: - understand, cares. How would you say. I gathered some money, and spend them to me except on the booze, yes no place for grub. I`ve been watching you, you`re a girl business. Besides beautiful, takes as much heat!'
'But I`m a man , but the beauty of the female pleasure as I appreciate.'
*nl
'Do_You: - You are referring to that?!'
*nl
'bum: - Do not think anything like that, I just wanted to offer money in exchange for beauty. You tell me that-any show, I only look. Yes_I_Am, more money and give, All that for a week scraped. As_many_as 300 rubles!' 
act 'agree':
	 cls
	 money+=300
	 bumtolik=3
	 set bomjshet = bomjshet + 1
	 gs'stat'
	 '<center><img src="etogame/bumt1.jpg" ></center>'
	 'Looking around and making sure, that there is one near you show tramp breasts and panties. Homeless man looks at you with round eyes and violently pulls his dick. You get scared, suddenly someone-throw some garbage.'
	 'bum: - Argh, wait let me finish!'
	 'Finally homeless nachivaet loud sniff and collapses on the carboard box.'
	 'Do_You: - money, give money! - with this you cry grabs all his money to the homeless and laughing carried away.'
	 act'Get_Away':gt 'street'
	 end
act 'Opt_Out':gt 'street'	
end

if $args[0]='pos9':
cla
*clr
set minut=minut+5
bumtolik=4 
'It_turned_out, that girl named Olga. And it works in the service of the disadvantaged.'
*nl
'Olga: - I certainly never thought, I`ll be doing it. I was sent here Court, for public works, as a punishment for an administrative offense. Although in principle the right thing, yes and karma helpful, helping people. if you`re interested, take a business card, We really need people.'
act 'Get_Away':gt 'street'	
end
--- musorkaexh ---------------------------------

# nastja
     if $args[0]='pos1':
	 cla
	 *clr	
	 minut+=5  
	 gs'stat'
	 '<center><img src="etogame/nastja.jpg" ></center>'
	 'Girl smiling in response to you! What is it cute!'
		 act 'come to meet.':
         cla
         *clr
          minut+=5 
          gs'stat'
		 '<center><img src="etogame/nastja.jpg" ></center>'
		 'Do_You: - hello! I Light! Nevozrazhaesh if I sit? (That`S_Funny, think you, Seeking a woman in a restaurant, just like in the good old days.)'
		 'girl: - hello! I Nastya. Of_Course, me company!'
			 act '- And why are you sitting alone, also in the restaurant?':
			 cla
			 *clr
			 nastjaqw = 1	
			 set minut=minut+60 
			 gs'stat'
			 '<center><img src="etogame/nastja.jpg" ></center>'
			 'Nastya: - The same question I ask and you!'
			 'Do_You: - well, I have a pretty rough life! Have to be independent.'
			 'Nastya: - So I have the same story. oh, you`d know...'
			 '(You have talked for an hour with Nastya, it was surprisingly pleasant companion. Before leaving-something together.)'
			     act'Get_Away':gt 'restoran', 'zal'
			 end
		 end
		 act'Get_Away':gt 'restoran', 'zal'
	 end

	if $args[0]='pos4':
		cla
		*clr	
		set minut=minut+30
		gs'stat'
		'<center><img src="etogame/tel_talk.jpg" ></center>'
		'what-While you hear beeps. Finally.'
		' '
		'Do_You: - Nastya, greeting! This Light. remember me, we met in a restaurant?'
		'Nastya: - hello, Sveta! well, of_course, remember!'
		'Do_You: - How about where to go-something together?'
		'Nastya: - Yes_I_Am, with pleasure. Come on in half an hour.'
		'(You bring myself up. At_Last, Nastya comes up to you in a taxi and go to the beginning of the offers in the cafe.)'
		!'You see Nastya. Her gray-blue eyes, long blond hair and sexy plump lips. Everyone thinks Nastya, just beautiful and you agree with them. She is a good student and is constantly looking for-something new in life. She has quite a strong character, You `ve seen how she argued with those who were older or more of its. Also, who, as it considers, below its status.'
		!'however, this does not prevent her from making friends, whom she had a whole sea.'
		act'Go to the cafe':gt 'nastja', 'pos5'
	 end 

	 if $args[0]='pos5':
		cla
		*clr	
		set minut=minut+60
		nastjaqw = 2
		gs'stat'
		'<center><img src="etogame/1party0.jpg" ></center>'
		'You are coming to karaoke-cafe "mast".'
		'Nastya: - I like it here, and can sing and a beautiful view of the river. Let`s choose a table on the veranda, I like to sit in the open air!'
		'You take a table with a beautiful view of the waterfront.'
		'Nastya: - Sveta, choose what we drink!'
		act'champagne!':gt 'nastja', 'pos6'
		act 'And let`s vodka!':gt 'nastja', 'pos7'
		
		act'I do not drink alcohol.':gt 'nastja', 'pos8'
	 end

	if $args[0]='pos6':
		cla
		*clr	
		minut+=5
		gs'stat'
		'<center><img src="etogame/1shamp0.jpg" ></center>'
		'You bring salads and champagne. You sweet deal with Nastya. It turns out you have a lot in common. Nastya says, she likes to be the center of attention.'
		'Yes_I_Am, so her outfit really frank! With its figure to attract attention not be easy.'
		'Meanwhile ends is the second bottle of champagne and you, decently hopped, Do you think to tell her about his sexual adventures.'
		act'Modestly silent and listen only Nastya.':gt 'nastja', 'pos9'
		
		act'Tell us about your very best sex.':gt 'nastja', 'pos10'
		
		act'lay out everything, what happened to you, since you became a girl.':gt 'nastja', 'pos10'
	 end  

	if $args[0]='pos7':
		cla
		*clr	
		minut+=5
		gs'stat'
		'<center><img src="etogame/1party.jpg" ></center>'
		'You bring salads, snacks and vodka. You have fun chatting with Nastya. It turns out you have a lot in common. Nastya says, she likes to be the center of attention. Like when men look at her. And sometimes she, how-if by chance, shows them more than they should!'
		'Yes_I_Am, so her outfit really frank! With its figure to attract attention not be easy.'
		'Meanwhile, decently hopped, Do you think to tell her about his sexual adventures.'
		act'Tell us about your very best sex.':gt 'nastja', 'pos10'
		
		act'lay out everything, what happened to you, since you became a girl.':gt 'nastja', 'pos11'
	 end  

	 if $args[0]='pos8':
		cla
		*clr	
		minut+=5
		gs'stat'
		'<center><img src="etogame/1shamp0.jpg" ></center>'
		'Nastya: - The_Truth? It_Is_A_Pity... Well Well arrange evening tea (smiling at you). You brought salads, tea and sweets. You sweet deal with Nastya. Nastya says, that her father was a powerful man in the city. That she has received from childhood all, he wants. but, at the same time, it has always attracted "simple pleasures", She likes to be the center of attention and interaction with people.'
		'Yes_I_Am, so her outfit really frank! With its figure to attract attention not be easy.'
		'You had a great time. Leaving the cafe insisted Nastya, that paid the bills itself. You went out and waiting for a taxi. Nastya suddenly notices horizontal bars in front of the cafe and happily tells you:'
		'-Sveta, I`m not a hundred years hung on the bar, go have some fun!'
		 act'Go for Nastya.':
		 cla
		 *clr
		 horny+=30
		 minut+=60
		 gs'stat'
		 '<center><img src="etogame/1turnik.jpg" ></center>'
		 'On the bar is engaged in the local yard boy. Nastya jokingly pushed him, directly to their high kabluchischah grabs the horizontal bar, tightened and hangs so, that her chest is in front of a poor boy with round eyes. Then she straightens up on straight arms and leg lifts so, the guy opens his mouth involuntarily.'
		 'At_Last, it jumps from a horizontal bar. And smacking the boy on the cheek and giggled, takes you by the hand and ran toward the taxi drove up.'
		 'Now it is clear in the center of the attention she likes to be!'	
		 act 'Went home': gt 'street'
		 end	
	 end

	 if $args[0]='pos9':
	 cla
	 *clr	
	 minut+=5
	 gs'stat'
	 '<center><img src="etogame/nastja.jpg" ></center>'
	 'You had a great time. Leaving the cafe insisted Nastya, that paid the bills itself. You went out and waiting for a taxi.'
	 'Nastya: -Sveta, Listen I want to use the toilet, I quickly sprint for fence, to guard me and you, ok?'
	 'Do_You: - Why is it so difficult, I also want to, let`s go back to the cafe?'
	 'Nastya: - No, not everything I can no longer! - With these words she runs for garages.'
		 act 'wait for girlfriend':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="etogame/1shamp3.jpg" ></center>'
		 'As luck from-the turning leaves and pot-bellied little man goes in your favor.'
			 act 'warn friend':
			 cls
			 minut+=5
		     gs'stat'
			 'You warn Nastya and she hid, calmly finishes his business.'
			 '- Thank_U, Sveta! I`ll go to guard.'
				 act 'Go write for the fences':
				 cls
				 minut+=5
		         gs'stat'
				 '<center><img src="etogame/1shamp1.jpg" ></center>'
				 'You are quietly doing their business, when suddenly a loud voice.'
				 '- Vai a nut, what a beauty!'
				 '- hey, girl what are you doing, we`re a den sweep! Are you at home can not piss.'
				 ' '
				 'About horror, turned you see two janitors-migrant_workers! Where did Nastya looked!'
				 '<center><img src="etogame/1shamp4.jpg" ></center>'
				 '- oh, oh, oh! Do not look, you`re_welcome! - only and can tell you, clumsily trying to pull her panties. But the excitement your hands are shaking and it would be more convenient, if you tilt. While showing her crotch guest workers.'
					 act 'Dress and panties leaning vypyachena ass!':
					 cls
					 horny+=50
					 minut+=60
					 gs'stat'
					 '<center><img src="etogame/1shamp2.jpg" ></center>'
					 '- ooo - distributed by janitors.'
						 act 'Run out and leave in a taxi with Nastya.': gt 'street'
					 end
				 end
			 end
			 
			 act 'Peep that will':
			 cls
			 horny+=30
			 minut+=60
			 gs'stat'
			 'You do not warn Nastya and peasant skirted you set behind fences, behind which hid Nastya. minute pause. And suddenly.'
			 '- ooo, girl, shame on you. - hear the voice of contented peasant cunning.'
			 '- chtoo! Shame on you! immediately turn away! - Nastya babbles with bare ass, trying to pull her panties.'
			 '<center><img src="etogame/1shamp2.jpg" ></center>'
			 'A minute later she goes, red as a lobster. And you said smiling: - Count, I was there a-that guy with a naked booty caught.'
				act 'Sit in a taxi and went home': gt 'street'
			 end	
		end
	 end
	 
	if $args[0]='pos10':
		cla
		*clr	
		minut+=5
		gs'stat'
		'<center><img src="etogame/1shamp0.jpg" ></center>'
		'You tell Nastya about their sexual experiences. one_can_see, that this topic is much interested in it. Anastasia tells you, that it is always brought up in severity. And intimacy with a man she was not yet.'
		'And as to-then throw your sexual energy, she sometimes amused, that is engaged Wirth.'
		'You had a great time. Leaving the cafe insisted Nastya, that paid the bills itself. You went out and waiting for a taxi.'
		'- And I came up with, as we hurry to catch a ride! Look! - said drunken Nastya.'
		act'Look at Nastya.':
		cla
		*clr
		horny+=40
		minut+=60
		gs'stat'
		'<center><img src="etogame/1avtostop.jpg" ></center>'
		'C So saying.'
		'crazy, do you think. Fortunately, on the road so no one seemed. Nastya cooled and getting your adrenaline pumping dress dress.'	
		'Now it is clear in the center of the attention she likes to be!'
		'Meanwhile.'
		act 'Went home': gt 'street'
		end	
	end
	
	 if $args[0]='pos11':
	 cla
	 *clr	
	 minut+=5
	 gs'stat'
	 '<center><img src="etogame/1party2.jpg" ></center>'
	 'You tell Nastya about their sexual experiences. one_can_see, that this topic is much interested in it. Anastasia tells you, that it is always brought up in severity. And intimacy with a man she was not yet.'
	 'And as to-then throw your sexual energy, she sometimes amused, that is engaged Wirth.'
	 'Thank you so very drunk, that barely rises from-the table. Leaving the cafe insisted Nastya, that paid the bills itself. You went out and standing arm in arm.'
	 '- light, went for a walk along the beach. - suggested Nastya.'
		 act'Down to the river.':
		 cls
		 horny+=50
		 minut+=60
		 gs'stat'
		 '- her, let`s refresh, I have all summer had never bathed! - squeals Nastya ran into cold water.'
		 '<center><img src="etogame/1party3.jpg" ></center>'
		 '- oh, Momma, as a cold!.'
		 'You continue to rage and tear each groomsman dress staying in one, wet underwear.'
			 act 'further':
			 cls
			 gs'stat'
			 '<center><img src="etogame/1party4.jpg" ></center>'
			  '- oh, Sveta, and suddenly behind us who-some watches?!.'
			 '- Then Let`s enjoy it! - With these words.'
				 act 'further':
				 cls
				 gs'stat'
				 '<center><img src="etogame/1party5.jpg" ></center>'
				 ' '	
				 'Cool and a little sobered, you manage to get dressed and went out to the road to call a taxi.'
					 act 'wait for a taxi':
					 cla
					 *clr
					 'While waiting for a taxi, you Nastya exhausted sat on the curb...'
					 '<center><img src="etogame/1party6.jpg" ></center>'
					 '- Get up girl, it`s time to go home! - Suddenly there was over the ear. It_turns_out, while waiting for a taxi, I fell asleep. Piquant situation is Daubal, my legs were spread wide open. Should be considered a taxi driver horoshenechko between my legs. Damn Nastya and not even brought my legs together!'
					 'I, red with shame and hops, I sit in a taxi with Nastya.'
					 act 'Went home': gt 'street'
					 end
				 end
			 end
		end	
	end
	
	if $args[0]='pos12':
		cla
		*clr	
		minut+=10
		manna+=100
		nastjaqw=3
		gs'stat'
		'<center><img src="etogame/tel_talk.jpg" ></center>'
		'what-While you hear beeps. Finally.'
		' '
		'Do_You: - Nastya, hi! How is it going? '
		'Nastya: - hello, Sveta! It`s great we`re on the last Saturday walked. I remembered all week. Let`s Put on a swimsuit and shorter plateshko, go to the beach sunbath. meet there.Well all, whole, as_long_as-as_long_as!'
		'Do_You: - ok, I`m happy to come!'
		act'Hang up':gt 'telefon', 'fin'
	 end
	 
	 if $args[0]='pos13':
		cla
		*clr	
		minut+=30
		manna+=30
		nastjaday=day
		gs'stat'
		'<center><img src="etogame/tel_talk.jpg" ></center>'
		'what-While you hear beeps. Finally.'
		' '
		'Do_You: - Nastya, greeting! what`s new?'
		'Nastya: - hello, Sveta!'
		'(You chatted entire floor-hours. Nastya also told, that loves to be photographed. It would be nice to buy the camera down and go with her where-something of the nature of.'
		act'Hang up':gt 'telefon', 'fin'
	 end
	 
	 if $args[0]='pos14':
		cla
		*clr	
		minut+=30
		manna+=30
		nastjaday=day
		nastjaqw = 4
		gs'stat'
		'<center><img src="etogame/2hello.jpg" ></center>'
		'You see Nastya. Her short dresses with exciting neckline, that you even thought: "She does not hesitate to go out this."'
		'Nastya: - well, at_last-then, I have been waiting for you! Go change clothes in swimwear.'
		act'Going to the beach huts':gt 'nastja', 'pos15'
	 end

	if $args[0]='pos15':
		cla
		*clr	
		minut+=10
		gs'stat'
		'<center><img src="etogame/2bcabin.jpg" ></center>'
		'You go to a beach cabin.'
		'Nastya: - yeah. It`s not like Vivaldi. - Nastya says looking at the dilapidated cabins.'
		'Do_You: - Fair_Enough, go change clothes, I `ll wait for you. I even wore a swimsuit at home.'
		act'Nastya wait':gt 'nastja', 'pos16'
	 end
	 
	 if $args[0]='pos16':
		cla
		*clr	
		minut+=10
		horny+=10
		gs'stat'
		'<center><img src="etogame/2bgirl.jpg" ></center>'
		'While waiting for Nastya, you decide to explore the beach and bathing people. you notice, where begins nudist beach from the water comes out completely naked girl. And she has such a delicious form, that the views of all the men of the beach were fixed on her. Can you imagine yourself in the place of this girl. And the thoughts, be naked in front of a crowd, you are excited little.'
		'Nastya: - I`m ready! hey, where are you staring. - you hear a voice behind Nasty. You turn around and look at the girl Nastya specify. You see , and then, sly smile and a twinkle in her eyes. one_can_see, that she also liked this show.'
		'Do_You: - dressed? Come choose a comfortable place, to sunbathe.'
		act'select a place':gt 'nastja', 'pos17'
	 end 
	 
	 if $args[0]='pos17':
		cla
		*clr	
		minut+=60
		manna+=100
		gs'stat'
		'<center><img src="etogame/2bimbos.jpg" ></center>'
		'You have a good time. zagarat, swim, drink milkshakes, Nastya who picked up from home. Photograph on the background of the lake. And potehonku getting tired.'
		'Nastya: - This girl, who bathed naked. You could be so, take and undress in front of strangers? - with a smile. I was so Turns, I`m always about something this dream, but shy and afraid, what about think.'
		 act'interested':gt 'nastja', 'pos19'
		 act'not interested':gt 'nastja', 'pos18'
		 end
	 
	 if $args[0]='pos18':
		cla
		*clr	
		minut+=20
		gs'stat'
		'<center><img src="etogame/2bend.jpg" ></center>'
		'Do_You: - I do not think, it`s okay, show her body to strangers. Besides dangerous, might think, you`re easily available and start molesting or rape. Besides, can take a picture and put it on the Internet.'
		'Nastya: - Yes_I_Am, maybe you`re right. It`s just a fantasy.'
		'You talked to various women`s issues and zasobiralis home.'
		 act'home':gt 'street'
	 end
	 
	 if $args[0]='pos19':
		cla
		*clr	
		minut+=10
		manna+=100
		horny+=30
		gs'stat'
		'<center><img src="etogame/2btalk.jpg" ></center>'
		'Do_You: - I, also fantasized on this topic. This is a very exciting, When looking at you. Of_Course, there is a risk, that someone-anything wrong react, what-a grandmother naorС‘t. Or phone sfotkatsya and then lay out on the Internet. but, try like.'
		'Nastya: - I have an idea, Now we will check how bold. You see guys play ball, go play with them... topless?'
		'You look around. Around full of people. Including men and boys. On you and before that admired, and what will be bare-chested. You even blushed a little. but, Nastya has unleashed a strap in his bathing suit. nowhere to retreat.'
		act'bare chest':gt 'nastja', 'pos20'
	 end

	 if $args[0]='pos20':
		cla
		*clr	
		minut+=20
		manna+=30
		gs'stat'
		'<center><img src="etogame/2bvolley.jpg" ></center>'
		'Nastya you stand in the middle of the beach with bare chest. You literally feel the occiput, that you are chained views.'
		'"- where stared, dog!" - hear where-nearby. "Biff!" Which-byot peasant woman on the magazine cap. apparently something-who so admired views, that he forgot about his wife.'
		'Nastya: - here you go, nothing terrible has happened. went to play.'
		'You play ball with the guys and girls. any inconvenience, Is that funny bouncing breasts while playing. To the delight of the boys and girls envy.'
		act'finish the game':gt 'nastja', 'pos21'
	 end
	 
	 if $args[0]='pos21':
		cla
		*clr	
		minut+=20
		nastjaqw=5
		gs'stat'
		'<center><img src="etogame/2bslp.jpg" ></center>'
		'Plenty enough of you go back to his place and lay, no one is embarrassed, spread out his hands and showing off her body to everyone.'
		'Nastya: - Sveta, imagine how all these dorks want us now. So I want to show language. hee-hee.'
		'You have a little lie on the beach and decided to, that time would have to be collected.'
		act'home':gt 'street'
	 end
--- nastja ---------------------------------

# Timofei
minut+=1
sosedDay=day
gs'stat'
'<center><img src="qwest/sosed/sosed.jpg" ></center>'
'Timothy shakes off the ashes in a jar and nods to you "hello."'

act 'Say hello and leave':gt'etoexhib','pos51'

act 'chat':
cls
minut+=15
Sosed+=1
gs'stat'
'<center><img src="qwest/sosed/sosed.jpg" ></center>'
     if sosedSlut=0:
		 if sosed=1:
		 'Timothy says, that studying in college and soon it will end.'
		 end
		 if sosed=2:
		 'Timothy says, he lives with his mother, His father lives in a divorce with his mother and lives with another family.'
		 end
		 if sosed=3:
		 'Timothy says, that soon it will finish studying for law and father promised to give him a car.'
		 end
		 if sosed=4:
		 'Timothy says, that he and his childhood studying dance and still, he and his team sometimes act in the House of Culture.'
		 end
		 if sosed=5:
		 'Timothy says, that evening he earns repairing computers.'
		 end
		 if sosed=6:
		 'Timothy says, that after college he was going to go to college, that he had not been drafted into the army.'
		 end
		 if sosed>=7:
		 'Timothy fun chatting with you about life, computers, wheelbarrows.'
		 end
     end
     if sosedSlut=1:
     'You are trying to start a conversation, but Timothy answers in monosyllables .'
     end
act 'Say goodbye and leave':gt'etoexhib','pos51'
end









--- Timofei ---------------------------------

# TimofeiMetro
minut+=1
sosedMetroDay=day
gs'stat'
!'<center><img src="qwest/sosed.jpg" ></center>'
'Timothy saw you and said hello "Hello World."'
if cumfrot= 0 and cumface=0 and sosedSlut=0:'You chatted with Timothy while riding the subway.'
if sosedSlut=1:
'After greeting Timothy his whole appearance shows that he is not interested in your further communication.'
end
if sosedSlut=0:
	if cumfrot>0 or cumface>0:
	 sosedSlut=1
		 if cumface>0:
		 'He looked puzzled at your face. "light, Your face is somewhat smeared." He stared at you and after a moment he realized, that you cum on her face. "This is? sperm?"'
		 else
		 'He began to chat with you fun, then suddenly noticed semen on your clothes, His eyes widened considerably "This is? sperm?"'
		 end
		 
		 act 'excuse':
		 cls
		 gs'stat'
		 'You began to make excuses, claiming that it`s all an accident and you are absolutely nothing to do with. But Timothy frankly do not believe you and listens to you without interest.'
		 act 'Get out of the car':gt'metro','start'
		 end
		 
	end
end


act 'Get out of the car':gt'metro','start'
--- TimofeiMetro ---------------------------------

# generation
y=0
:markmonthfightx
y+=1
:markturnirotbory
x=0
:markturnirotborz
x+=1
turnirFighter[x]=RAND(2,NPCrost)
if x<2:jump'markturnirotborz'
if turnirFighter[1]=turnirFighter[2]:jump'markturnirotbory'
a=turnirFighter[1]
i=turnirFighter[2]
gs 'Autofight'
turnirFighter[1]=0
turnirFighter[2]=0
if y<20:jump'markmonthfightx'
--- generation ---------------------------------

# Autofight
if Formula=0:Formula=3

$endurdin={
Ken=(musle[a]/100)*Kus/100
if ken<=0:ken=1
Kene=(musle[i]/100)*Kuse/100
if kene<=0:kene=1

KoefUder=RAND(Uder*20/100,Uder)
KoefUderE=RAND(Udere*20/100,Udere)
KoefBros=RAND(Brosok*20/100,Brosok)
KoefBrosE=RAND(Brosoke*20/100,Brosoke)
KoefProt=RAND(Zash*20/100,Zash)
KoefProtE=RAND(Zashe*20/100,Zashe)
}

$uderdin={
Kus=5
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenW/2)+agilW+RAND(0,lustW)+KoefUder
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenWE+(agilWE/2))*koefE)/100)+RAND(0,lustWE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$uderdinE={
Kus=10
Kuse=5
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenWE/2)+agilWE+RAND(0,lustWE)+KoefUdere
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw+(agilw/2))*koef)/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMaxE
}
$brosdin={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenw+(agilw/2)+RAND(0,lustw)+KoefBros
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenwE/2)+agilwE)*koefE/100)+RAND(0,lustwE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$brosdinE={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenwE+(agilwE/2)+RAND(0,lustwE)+KoefBrosE
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw/2)+agilw)*koef/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMax
}

point=0
pointE=0
$nameE=$nikname[i]
$nameA=$nikname[a]
strenW=musle[a]/10
strenWE=musle[i]/10
agilW=flex[a]/10
agilWE=flex[i]/10
lustMax=wipo[a]
lustMaxE=wipo[i]
lustW=lustMax
lustWe=lustMaxe
Brosok=Bteh[a]/10
BrosokE=Bteh[i]/10
Uder=Uteh[a]/10
Udere=Uteh[i]/10
Zash=Zteh[a]/10
Zashe=Zteh[i]/10

resultFight=0
endurMax=stamina[a]/10
endurMaxE=stamina[i]/10
endur=endurMax
endurE=endurMaxE
croonce=0
round=1
rMin=8
stoper=0

Ku=0
Kb=0
Kz=0
KuE=0
KbE=0
KzE=0

 if strenw>strenwE:
 point+=1
 lustw+=1
 crouch=1
 end
 if strenw<strenwE:
 pointE+=1
 lustwE+=1
 crouch=0
 end
 if strenw=strenwE:
 varrand=rand(0,1)
 if varrand=0:crouch=1
 if varrand=1:crouch=0
 end

:markFightCrouch
stoper=0
if crouch=1:
     enrand=RAND(0,1)
     arand=RAND(0,1)
     if arand=0:
     endur-=2
         if enrand=0:
         pointE+=1
         jump'markfight'
         end
         if enrand=1:
         point+=2
         endurE-=1
         jump'markfight1'
         end
     end
     if arand=1:
     endur-=1
         if enrand=0:
         point+=1
         jump'markfight2'
         end
         if enrand=1:
         pointE+=1
         endurE-=1
         jump'markfight3'
         end
     end
else
     enrand=RAND(0,1)
     arand=RAND(0,1)
     if arand=0:
         if enrand=0:
         point+=1
         endurE-=2
         jump'markfightE'
         end
         if enrand=1:
         pointE+=1
         endurE-=1
         jump'markfightE1'
         end
     end
     
     if arand=1:
     endur-=1
         if enrand=0:
         pointE+=2
         endurE-=2
         jump'markfightE2'
         end
         if enrand=1:
         point+=1
         endurE-=1
         jump'markfightE3'
         end
     end
end


:markfight
koef=100
koefE=90
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
	 if rMin>0:
	 arand=RAND(0,1)
		 if arand=0:
		 dynamic $uderdin
			 if Aktiv>Passiv:
			 point+=1
			 Ku+=1
			 stoper=0
			 jump'markfight2'
			 end 
			 if Aktiv<Passiv:
			 pointE+=1
			 KzE+=1
			 stoper=0
			 jump'markfight3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfight'
			 end 
		 end
		 
		 if arand=1:
		 dynamic $brosdin
			 if Aktiv>Passiv:
			 point+=2
			 lustw+=1
			 Kb+=1
			 stoper=0
			 jump'markfight1'
			 end 
			 if Aktiv<Passiv:
			 pointE+=1
			 KzE+=1
			 stoper=0
			 jump'markfight3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfight'
			 end 
		 end
		 
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
	 jump'markRoundStop'
end
:markfight1
koef=100
koefE=85
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdin
		      if Aktiv>Passiv:
			 point+=1
			 Ku+=1
			 stoper=0
			 jump'markfight2'
			 end 
			 if Aktiv<Passiv:
			 pointE+=1
			 KzE+=1
			 stoper=0
			 jump'markfight3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfight1'
			 end 
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
	 jump'markRoundStop'
end
:markfight2
koef=100
koefE=80
lustE-=1
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdin
		 endurE-=2
			 if Aktiv>=Passiv:
			 point+=1
			 lustwE-=1
			 Ku+=1
			 jump'markfight2'
			 end 
			 if Aktiv<Passiv:
			 pointE+=1
			 KzE+=1
			 stoper=0
			 jump'markfight3'
			 end 
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
point+=3 
	 jump'markRoundStop'
end
:markfight3
koef=100
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
	 if rMin>0:
	 arand=RAND(0,1)
		 if arand=0:
		 dynamic $uderdin
		     if Aktiv>Passiv:
			 point+=1
			 Ku+=1
			 stoper=0
			 jump'markfight2'
			 end 
			 if Aktiv<=Passiv:
			 pointE+=1
			 KzE+=1
			 jump'markRoundStop'
			 end 
		 end
		 if arand=1:
		 dynamic $brosdin
		     if Aktiv>Passiv:
			 point+=2
			 lustw+=1
			 Kb+=1
			 stoper=0
			 jump'markfight1'
			 end 
			 if Aktiv<=Passiv:
			 pointE+=1
			 KzE+=1
			 jump'markRoundStop'
			 end 
		 end
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
	 jump'markRoundStop'
end
:markfightE
koef=90
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'

if stoper<3:
	 if rMin>0:
	 deystrand=RAND(0,1)
	     if deystrand=0:
		 dynamic $uderdinE
		     if Aktiv>Passiv:
			 pointE+=1
			 KuE+=1
			 stoper=0
			 jump'markfightE1'
			 end 
			 if Aktiv<Passiv:
			 point+=1
			 Kz+=1
			 stoper=0
			 jump'markfightE3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfightE'
			 end
		 end
		 if deystrand=1:
		 dynamic $brosdinE
			 if Aktiv>Passiv:
			 pointE+=2
			 lustwE+=1
			 KbE+=1
			 stoper=0
			 jump'markfightE2'
			 end 
			 if Aktiv<Passiv:
			 point+=1
			 Kz+=1
			 stoper=0
			 jump'markfightE3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfightE'
			 end 
		 end
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
point+=1 
	 jump'markRoundStop'
end
:markfightE1
koef=80
koefE=100
lust-=1
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdinE
		 endur-=2
			 if Aktiv>=Passiv:
			 pointE+=1
			 lustw-=1
			 KuE+=1
			 jump'markfightE1'
			 end 
			 if Aktiv<Passiv:
			 point+=1
			 Kz+=1
			 stoper=0
			 jump'markfightE3'
			 end 
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
pointE+=3 
	 jump'markRoundStop'
end

:markfightE2
koef=85
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdinE
		     if Aktiv>Passiv:
			 pointE+=1
			 KuE+=1
			 stoper=0
			 jump'markfightE1'
			 end 
			 if Aktiv<Passiv:
			 point+=1
			 Kz+=1
			 stoper=0
			 jump'markfightE3'
			 end 
			 if Aktiv=Passiv:
			 jump'markfightE2'
			 end 
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
point+=1 
	 jump'markRoundStop'
end
:markfightE3
koef=100
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
	 if rMin>0:
	 deystrand=RAND(0,1)
	     if deystrand=0:
		 dynamic $uderdinE
			 if Aktiv>Passiv:
			 pointE+=1
			 KuE+=1
			 stoper=0
			 jump'markfightE1'
			 end 
			 if Aktiv<=Passiv:
			 point+=1
			 Kz+=1
			 jump'markRoundStop'
			 end
		 end
		 if deystrand=1:
		 dynamic $brosdinE
			 if Aktiv>Passiv:
			 pointE+=2
			 lustwE+=1
			 KbE+=1
			 stoper=0
			 jump'markfightE2'
			 end 
			 if Aktiv<=Passiv:
			 point+=1
			 Kz+=1
			 jump'markRoundStop'
			 end 
		 end
	 else
		 jump'markRoundEnd'
	 end
end
if stoper>=3:
point+=1 
	 jump'markRoundStop'
end

:markRoundStop
stoper=0
if crouch=1 and croonce=0:crouch=0&croonce=1
if crouch=0 and croonce=0:crouch=1&croonce=1
croonce=0
jump'markFightCrouch'
:markSubWin
resultFight=0
jump'markEndFight'
:markSubLoss
resultFight=4
jump'markEndFight'
:markRoundEnd
round+=1
rMin=8
stoper=0
if round=Formula+1:
     if point>pointE:
     resultFight=1
     end
     if point<pointE:
     resultFight=3
     end
     if point=pointE:
     resultFight=2
     end
jump'markEndFight'
end
if round<Formula+1:
endur+=lustw*25/100
endurE+=lustwe*25/100
if crouch=1 and croonce=0:crouch=0&croonce=1
if crouch=0 and croonce=0:crouch=1&croonce=1
croonce=0
jump'markFightCrouch'
end
:markEndFight
if NoView=0:'<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
if NoView=0:'<<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
if NoView=0:'<<point>> points <<$nameA>> <<Ku>> Activism in the attacks retention, <<Kb>> Activism in the attacks throws, <<Kz>> successful defenses.'
if NoView=0:'<<pointE>> points <<$nameE>> <<KuE>> Activism in the attacks retention, <<KbE>> Activism in the attacks throws,  <<KzE>> successful defenses.'
if resultFight=0:
wipo[a]+=2
wipo[i]-=1
rating[a]+=2
rating[i]-=5
strand=RAND(0,2)
if strand=0:musle[a]+=10
if strand=1:flex[a]+=10
if strand=2:stamina[a]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[a]+=10
if tehrand=1:Uteh[a]+=10
if tehrand=2:Zteh[a]+=10
if NoView=0:'<b><<$nameA>> won surrender</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
'
win[a]+=1
SubWin[a]+=1
loss[i]+=1
SubLoss[i]+=1
end
if resultFight=1:
wipo[a]+=1
rating[a]+=1
rating[i]-=3
strand=RAND(0,2)
if strand=0:musle[a]+=10
if strand=1:flex[a]+=10
if strand=2:stamina[a]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[a]+=10
if tehrand=1:Uteh[a]+=10
if tehrand=2:Zteh[a]+=10
if NoView=0:'<b><<$nameA>> won</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
'
     win[a]+=1
     loss[i]+=1
end
if resultFight=2:
rating[a]-=1
rating[i]-=1
if NoView=0:'<b>The result of the fight a draw</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
'
     draw[a]+=1
     draw[i]+=1
end
if resultFight=3:
wipo[i]+=1
rating[a]-=3
rating[i]+=1
strand=RAND(0,2)
if strand=0:musle[i]+=10
if strand=1:flex[i]+=10
if strand=2:stamina[i]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[i]+=10
if tehrand=1:Uteh[i]+=10
if tehrand=2:Zteh[i]+=10
if NoView=0:'<b><<$nameE>> won</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
'
     win[i]+=1
     loss[a]+=1
end
if resultFight=4:
wipo[i]+=2
wipo[a]-=1
rating[a]-=5
rating[i]+=2
strand=RAND(0,2)
if strand=0:musle[i]+=10
if strand=1:flex[i]+=10
if strand=2:stamina[i]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[i]+=10
if tehrand=1:Uteh[i]+=10
if tehrand=2:Zteh[i]+=10
if NoView=0:'<b><<$nameE>> won surrender</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
'
win[i]+=1
SubWin[i]+=1
loss[a]+=1
SubLoss[a]+=1
end








--- Autofight ---------------------------------

# beforeFW
$endurdin={
Ken=(musle/100)*Kus/100
if ken<=0:ken=1
Kene=(musle[i]/100)*Kuse/100
if kene<=0:kene=1

KoefUder=RAND(Uder*20/100,Uder)
KoefUderE=RAND(Udere*20/100,Udere)
KoefBros=RAND(Brosok*20/100,Brosok)
KoefBrosE=RAND(Brosoke*20/100,Brosoke)
KoefProt=RAND(Zash*20/100,Zash)
KoefProtE=RAND(Zashe*20/100,Zashe)
}

$uderdin={
Kus=5
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenw/2)+agilw+RAND(0,lustw)+KoefUder
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenwE+(agilwE/2))*koefE)/100)+RAND(0,lustwE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$uderdinE={
Kus=10
Kuse=5
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenwE/2)+agilwE+RAND(0,lustwE)+KoefUdere
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw+(agilw/2))*koef)/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMaxE
}
$brosdin={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenw+(agilw/2)+RAND(0,lustw)+KoefBros
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenwE/2)+agilwE)*koefE/100)+RAND(0,lustwE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$brosdinE={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenwE+(agilwE/2)+RAND(0,lustwE)+KoefBrosE
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw/2)+agilw)*koef/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMax
}


!power, throws
!flexibility, protection, 
!speed, initiative
!equipment, 
!endurance
a=1
point=0
pointE=0
$nameE=$nikname[i]
$nameA=$nikname[a]
strenw=musle[1]/10
strenwE=musle[i]/10
agilw=flex[1]/10
agilwE=flex[i]/10
lustMax=wipo[1]
lustMaxE=wipo[i]
lustw=lustMax
lustwe=lustMaxe
Brosok=Bteh[1]/10
BrosokE=Bteh[i]/10
Uder=Uteh[1]/10
Udere=Uteh[i]/10
Zash=Zteh[1]/10
Zashe=Zteh[i]/10

resultFight=0
endurMax=stamina[1]/10
endurMaxE=stamina[i]/10
endur=endurMax
endurE=endurMaxE
croonce=0
round=1
rMin=8
stoper=0

Ku=0
Kb=0
Kz=0
KuE=0
KbE=0
KzE=0
!minus the endurance of fat
!force depends on the endurance
!speed depends on the endurance

if Formula=0:Formula=3


'<center><b>before round</b></center>'
'<center><img src="pic/fight/bef.jpg" ></center>'
'you and <<$nameE>> greeted each other.'
'Referee required to start a fight on his hands.'
!picture
act 'Fight on his hands':
cls
!picture
'<center><img src="pic/fight/arm.jpg" ></center>'
     if strenw>strenwE:
     point+=1
     lustw+=1
     $text='Stand your opponent on all fours, and you catch him from behind.'
     'You won the fight on his hands.'
     crouch=1
     end
     if strenw<strenwE:
     pointE+=1
     lustwE+=1
     $text='You get up on all fours, and your opponent to catch him from behind.'
     'You lost the battle on his hands.'
     crouch=0
     end
     if strenw=strenwE:
     'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
     varrand=rand(0,1)
     if varrand=0:crouch=1&$text='Stand your opponent on all fours, and you catch him from behind.'
     if varrand=1:crouch=0&$text='You get up on all fours, and your opponent to catch him from behind.'
     end

'Refferi stopped you and commanded <<$text>>'
     act 'Follow the instructions referees':
     gt'FightCrouch'
     end
end

--- beforeFW ---------------------------------

# FightStat

if endur>endurMax*75/100:$endur='You are active and vigorous'
if endur>endurMax*50/100 and endur<=endurMax*75/100:$endur='You are strongly sweating'
if endur>endurMax*25/100 and endur<=endurMax*50/100:$endur='Are you tired and short of breath'
if endur<=endurMax*25/100:$endur='You just clueless on where you are very tired'

if endure>endurMaxe*75/100:$endure='<<$nameE>> active and cheerful'
if endure>endurMaxe*50/100 and endure<=endurMaxe*75/100:$endure='<<$nameE>> much sweating'
if endure>endurMaxe*25/100 and endure<=endurMaxe*50/100:$endure='<<$nameE>> tired and pants'
if endure<=endurMaxe*25/100:$endure='<<$nameE>> hardly worth from severe fatigue'

if lustw>lustMax*75/100:$lust='You are determined to show it to your opponent what`s what'
if lustw>lustMax*50/100 and lustw<=lustMax*75/100:$lust='You`re a little puzzled by the tenacity rivals'
if lustw>lustMax*25/100 and lustw<=lustMax*50/100:$lust='Are you afraid of her rival'
if lustw<=lustMax*25/100:$lust='You are in a very real terror and on the verge of panic'

if lustwe>lustMaxe*75/100:$luste='<<$nameE>> bravely drills you with his unyielding gaze'
if lustwe>lustMaxe*50/100 and lustwe<=lustMaxe*75/100:$luste='<<$nameE>> looks a little surprised'
if lustwe>lustMaxe*25/100 and lustwe<=lustMaxe*50/100:$luste='<<$nameE>> looks frightened'
if lustwe<=lustMaxe*25/100:$luste='<<$nameE>> looks bruised and finished here now screwy panic'

'<center><b>round <<round>></b></center>'
'<center><b>Left before the end of the round <<rMin>> minutes</b></center>'
''
'your record <<win[1]>>-<<loss[1]>>-<<draw[1]>> <<SubWin[1]>>/<<SubLoss[1]>>'
'<<$nameE>> record <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
''
'<<$endur>>. <<$lust>>.'
'<<$endurE>>. <<$lustE>>.'
'you scored <<point>> points'
'<<$nameE>> scored <<pointE>> points'
''
''
''


















--- FightStat ---------------------------------

# FightCrouch
!rMin-=1
gs'fightStat'
stoper=0
'<center><img src="pic/fight/cro.jpg" ></center>'
if crouch=1:
     enrand=RAND(0,1)
     if enrand=0:$text='<<$nameE>> prizhimetsya to the floor'
     if enrand=1:$text='<<$nameE>> trying to roll over on his back'
     if enrand=2:$text='<<$nameE>> tries to counter roll'
     
'<<$nameE>> is on all fours in front of you.'
     act 'produce cast':
     cls
     endur-=2
     'You are trying to make a throw. <<$text>>'
         if enrand=0:
         pointE+=1
         '<center><img src="pic/fight/cron.jpg" ></center>'
         'Opponent managed pressed to the floor and you can not perform a roll.'
         act '...':gt'fightfw'
         end
         if enrand=1:
         point+=2
         endurE-=1
         '<center><img src="pic/fight/crob.jpg" ></center>'
         'You have intercepted an attempt to rival roll over and roll performed.' 
         act '...':gt'fight1'
         end
     end
     
     act 'Make an attempt to hold':
     cls
     endur-=1
     'You are attempting to hold. <<$text>>'
         if enrand=0:
         point+=1
         '<center><img src="pic/fight/crou.jpg" ></center>'
         'Opponent is pressed to the floor and you will easily manage to fix it.'
         act '...':gt'fight2'
         end
         if enrand=1:
         pointE+=1
         endurE-=1
         '<center><img src="pic/fight/cronu.jpg" ></center>'
         'Opponent flipped onto his back did not hold you to spend dvavaya.' 
         act '...':gt'fight3'
         end
         if enrand=2:
         ''
         end
     end
     
else

     enrand=RAND(0,1)
     if enrand=0:$text='<<$nameE>> tries to throw'
     if enrand=1:$text='<<$nameE>> trying to make an attempt to hold'
     
'You are standing on all fours in front of rival.'
     act 'Pressed to the floor':
     cls
     'You pressed to the floor. <<$text>>'
         if enrand=0:
         point+=1
         endurE-=2
         '<center><img src="pic/fight/cron.jpg" ></center>'
         'Opponent has no time to attempt a shot.'
         act '...':gt'fightE'
         end
         if enrand=1:
         pointE+=1
         endurE-=1
         '<center><img src="pic/fight/crou.jpg" ></center>'
         'Opponent successfully a hold.' 
         act '...':gt'fightE1'
         end
     end
     
     act 'Upside down on your back':
     cls
     endur-=1
     'You are trying to roll over on his back. <<$text>>'
         if enrand=0:
         pointE+=2
         endurE-=2
         '<center><img src="pic/fight/crob.jpg" ></center>'
         'Opponent easily captures and holds you throw.'
         act '...':gt'fightE2'
         end
         if enrand=1:
         point+=1
         endurE-=1
         '<center><img src="pic/fight/cronu.jpg" ></center>'
         'You pull out of the seizure of the opponent and turn on the back.' 
         act '...':gt'fightE3'
         end
     end
     
end


--- FightCrouch ---------------------------------

# fightFW
$resultUderDin={
     if Aktiv>Passiv:
     point+=1
     Ku+=1
     '<center><img src="pic/fight/fu.jpg" ></center>'
     'You have successfully commit rival'
     act '...':stoper=0&gt'fight2'
     end 
     if Aktiv<Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/fu1.jpg" ></center>'
     'You can not do anything about my opponent flips.'
     act '...':stoper=0&gt'fight3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}
$resultBrosDin={
     if Aktiv>Passiv:
     point+=2
     lustw+=1
     Kb+=1
     '<center><img src="pic/fight/fb.jpg" ></center>'
     'You have successfully throw the opponent'
     act '...':stoper=0&gt'fight1'
     end 
     if Aktiv<Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/fu1.jpg" ></center>'
     'You can not do anything about my opponent turned over on his back.'
     act '...':stoper=0&gt'fight3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}

!you top
!opponent lying on his stomach -10%
koef=100
koefE=90

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f.jpg" ></center>'
'<<$nameE>> lying on his stomach, while you sit on top of it. <<$nameE>> trying to wriggle out.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 act 'Make an attempt to hold':
		 cls
		 dynamic $uderdin
		 dynamic $resultUderDin
		 end
		 
		 act 'Make an attempt to throw':
		 cls
		 dynamic $brosdin
		 dynamic $resultBrosDin
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
	 act 'up':gt'RoundStop'
end




--- fightFW ---------------------------------

# fight1
$resultUderDin={
     if Aktiv>Passiv:
     point+=1
     Ku+=1
     '<center><img src="pic/fight/f1u.jpg" ></center>'
     'You have successfully commit rival'
     act '...':stoper=0&gt'fight2'
     end 
     if Aktiv<Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/f1u1.jpg" ></center>'
     'You can not do anything about my opponent flips.'
     act '...':stoper=0&gt'fight3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f1u2.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}
!you top
!opponent lies on his back after throwing -15%

koef=100
koefE=85

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f1.jpg" ></center>'
'<<$nameE>> lying on his back after throwing a little confused, while you sit on top of it. <<$nameE>> trying to wriggle out.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 act 'Make an attempt to hold':
		 cls
		 dynamic $uderdin
		 dynamic $resultUderDin
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
	 act 'up':gt'RoundStop'
end









--- fight1 ---------------------------------

# fight2
$resultUderDin={
endurE-=2
     if Aktiv>=Passiv:
     point+=1
     lustwE-=1
     Ku+=1
     '<center><img src="pic/fight/f2u.jpg" ></center>'
     'You have successfully hold rival'
     act '...':gt'fight2'
     end 
     if Aktiv<Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/f2u2.jpg" ></center>'
     'You can not do anything about my opponent flips.'
     act '...':stoper=0&gt'fight3'
     end 
}

!you have committed opponent
!you sit on top
!opponent lying on his stomach under you -20%

koef=100
koefE=80
lustwE-=1
rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f2.jpg" ></center>'
'<<$nameE>> lies beneath you . <<$nameE>> desperately trying to slip out of the bend of your capture.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 act 'hold_On':
		 cls
		 dynamic $uderdin
		 dynamic $resultUderDin
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
point+=3 
'Refferi blows a whistle and throws you. Your time to attack happened. For the successful holding you get immediately 3 points.'
	 act 'up':gt'RoundStop'
end



--- fight2 ---------------------------------

# fight3
$resultUderDin={
     if Aktiv>Passiv:
     point+=1
     Ku+=1
     '<center><img src="pic/fight/f3u.jpg" ></center>'
     'You have successfully commit rival'
     act '...':stoper=0&gt'fight2'
     end 
     if Aktiv<=Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/f3u2.jpg" ></center>'
     'You can not do anything about my opponent breaks lock.'
     act '...':gt'RoundStop'
     end 
}
$resultBrosDin={
     if Aktiv>Passiv:
     point+=2
     lustw+=1
     Kb+=1
     '<center><img src="pic/fight/f3b.jpg" ></center>'
     'You have successfully throw the opponent'
     act '...':stoper=0&gt'fight1'
     end 
     if Aktiv<=Passiv:
     pointE+=1
     KzE+=1
     '<center><img src="pic/fight/f3u2.jpg" ></center>'
     'You can not do anything about my opponent breaks lock.'
     act '...':gt'RoundStop'
     end 
}

!you top
!opponent bottom facing you

koef=100
koefE=100

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f3.jpg" ></center>'
'<<$nameE>> supine, while you sit on top of it. <<$nameE>> trying to throw you off the.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 act 'Make an attempt to hold':
		 cls
		 dynamic $uderdin
		 dynamic $resultUderDin
		 end
		 
		 act 'Make an attempt to throw':
		 cls
		 dynamic $brosdin
		 dynamic $resultBrosDin
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
pointE+=1 
'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
	 act 'up':gt'RoundStop'
end
--- fight3 ---------------------------------

# FightE
$resultUderDinE={
cls
     if Aktiv>Passiv:
     pointE+=1
     KuE+=1
     '<center><img src="pic/fight/fu.jpg" ></center>'
     '<<$nameE>> successfully captures you'
     act '...':stoper=0&gt'fightE1'
     end 
     if Aktiv<Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/fu1.jpg" ></center>'
     '<<$nameE>> you can not do anything and you turn.'
     act '...':stoper=0&gt'fightE3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}
$resultBrosDinE={
cls
     if Aktiv>Passiv:
     pointE+=2
     lustwE+=1
     KbE+=1
     '<center><img src="pic/fight/fb.jpg" ></center>'
     '<<$nameE>> successfully throws you'
     act '...':stoper=0&gt'fightE2'
     end 
     if Aktiv<Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/fu1.jpg" ></center>'
     '<<$nameE>> you can not do anything and you turn.'
     act '...':stoper=0&gt'fightE3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}

!You are on the bottom of the abdomen -10%
!opponent top

koef=90
koefE=100

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f.jpg" ></center>'
'You lie on your stomach below, and <<$nameE>> sits on you.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
	 deystrand=RAND(0,1)
	     if deystrand=0:
		 dynamic $uderdinE
		 dynamic $resultUderDinE
		 exit
		 end
		 if deystrand=1:
		 dynamic $brosdinE
		 dynamic $resultBrosDinE
		 exit
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
point+=1 
'Refferi blows a whistle and throws you. Time rivals to attack happened. You get one point.'
	 act 'up':gt'RoundStop'
end



--- FightE ---------------------------------

# FightE1
$resultUderDinE={
cls
endur-=2
     if Aktiv>=Passiv:
     pointE+=1
     lustw-=1
     KuE+=1
     '<center><img src="pic/fight/f2u.jpg" ></center>'
     '<<$nameE>> successfully keeps you'
     act '...':gt'fightE1'
     end 
     if Aktiv<Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/f2u2.jpg" ></center>'
     '<<$nameE>> you can not do anything and you turn.'
     act '...':stoper=0&gt'fightE3'
     end 
}

!You are on the bottom of the abdomen -20%
!Opponent top a hold

koef=80
koefE=100
lustw-=1
rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f2.jpg" ></center>'
'<<$nameE>> recorded a hold of you and.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdinE
		 dynamic $resultUderDinE
		 exit
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
pointE+=3 
'Refferi blows a whistle and throws you. rival gets 3 points for successful retention.'
	 act 'up':gt'RoundStop'
end

--- FightE1 ---------------------------------

# FightE2
$resultUderDinE={
cls
     if Aktiv>Passiv:
     pointE+=1
     KuE+=1
     '<center><img src="pic/fight/f1u.jpg" ></center>'
     '<<$nameE>> successfully captures you'
     act '...':stoper=0&gt'fightE1'
     end 
     if Aktiv<Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/f1u1.jpg" ></center>'
     '<<$nameE>> you can not do anything and you turn.'
     act '...':stoper=0&gt'fightE3'
     end 
     if Aktiv=Passiv:
     '<center><img src="pic/fight/f1u2.jpg" ></center>'
     'You have two little turns and you are struggling without success.'
     act '...':gt $curloc
     end 
}

!You from the bottom on the back after throwing -15%
!opponent top

koef=85
koefE=100

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f1.jpg" ></center>'
'You lie below a little stunned after throwing, and <<$nameE>> sits on you.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
		 dynamic $uderdinE
		 dynamic $resultUderDinE
		 exit
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
point+=1 
'Refferi blows a whistle and throws you. Time rivals to attack happened. You get one point.'
	 act 'up':gt'RoundStop'
end

--- FightE2 ---------------------------------

# FightE3
$resultUderDinE={
cls
     if Aktiv>Passiv:
     pointE+=1
     KuE+=1
     '<center><img src="pic/fight/f3u.jpg" ></center>'
     '<<$nameE>> successfully captures you'
     act '...':stoper=0&gt'fightE1'
     end 
     if Aktiv<=Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/f3u2.jpg" ></center>'
     '<<$nameE>> you can not do anything and you slip out of the capture.'
     act '...':gt'RoundStop'
     end 
}
$resultBrosDinE={
cls
     if Aktiv>Passiv:
     pointE+=2
     lustwE+=1
     KbE+=1
     '<center><img src="pic/fight/f3b.jpg" ></center>'
     '<<$nameE>> successfully throws you'
     act '...':stoper=0&gt'fightE2'
     end 
     if Aktiv<=Passiv:
     point+=1
     Kz+=1
     '<center><img src="pic/fight/f3u2.jpg" ></center>'
     '<<$nameE>> you can not do anything and you slip out of the capture.'
     act '...':gt'RoundStop'
     end 
}

!You from the bottom on the back
!opponent top

koef=100
koefE=100

rMin-=1
stoper+=1
gs'fightStat'
'<center><img src="pic/fight/f3.jpg" ></center>'
'You lie on your back from the bottom, and <<$nameE>> sits on you.'

if endur<=0 or lustw<=0:gt'SubLoss'
if endurE<=0 or lustwE<=0:gt'SubWin'

if stoper<3:
	 if rMin>0:
	 deystrand=RAND(0,1)
	     if deystrand=0:
		 dynamic $uderdinE
		 dynamic $resultUderDinE
		 exit
		 end
		 if deystrand=1:
		 dynamic $brosdinE
		 dynamic $resultBrosDinE
		 exit
		 end
		 
	 else
	 'Refferi blows a whistle and throws you. End of round.'
		 act 'up':gt'RoundEnd'
	 end
end
if stoper>=3:
point+=1 
'Refferi blows a whistle and throws you. Time rivals to attack happened. You get one point.'
	 act 'up':gt'RoundStop'
end






--- FightE3 ---------------------------------

# RoundEnd
round+=1
rMin=8
stoper=0

if round=Formula+1:
'The duel ended with an opponent and you call for verdict'
     if point>pointE:
     !win[1]+=1
     !loss[i]+=1
     'The referee raises your hand as a sign of your victory.'
     resultFight=1
     end
     if point<pointE:
     !win[i]+=1
     !loss[1]+=1
     'The referee raises his hand as a sign of its rival wins.'
     resultFight=3
     end
     if point=pointE:
     !draw[1]+=1
     !draw[i]+=1
     'The referee raises your hand and arm rival announcing a draw.'
     resultFight=2
     end
act '...':gt'EndFight'
end
if round<Formula+1:
endur+=lustw*25/100
endurE+=lustwe*25/100
if crouch=1 and croonce=0:crouch=0&croonce=1
if crouch=0 and croonce=0:crouch=1&croonce=1
croonce=0
'<center><b>The break between rounds</b></center>'
if crouch=1:$text='Stand your opponent on all fours, and you catch him from behind.'
if crouch=0:$text='You get up on all fours, and your opponent to catch him from behind.'
'You rest for a while and hear the whistle refferi announces the beginning of the next round.'
'referee ordered <<$text>>'

     act 'Follow the instructions referees':
     gt'FightCrouch'
     end
end
--- RoundEnd ---------------------------------

# RoundStop
gs'fightStat'

stoper=0
if crouch=1 and croonce=0:crouch=0&croonce=1
if crouch=0 and croonce=0:crouch=1&croonce=1
croonce=0
if crouch=1:$text='Stand your opponent on all fours, and you catch him from behind.'
if crouch=0:$text='You get up on all fours, and your opponent to catch him from behind.'
'The referee raises you with an opponent and commands. <<$text>>'

     act 'Follow the instructions referees':
     gt'FightCrouch'
     end
--- RoundStop ---------------------------------

# SubWin
!win[1]+=1
!SubWin[1]+=1
!loss[i]+=1
!SubLoss[i]+=1
resultFight=0

'<<$nameE>> Referee signals, he could no longer continue to fight and surrender.'


act '...':gt'EndFight'
--- SubWin ---------------------------------

# SubLoss
!win[i]+=1
!SubWin[i]+=1
!loss[1]+=1
!SubLoss[1]+=1
resultFight=4

'You gave the signal the referee, that can no longer continue to fight and surrender.'


act '...':gt'EndFight'
--- SubLoss ---------------------------------

# EndFight
!'Here the conditions of the match
!honors, punishment
'you have <<Ku>> Activism in the attacks retention, <<Kb>> Activism in the attacks throws, <<Kz>> successful defenses.'
'At rival <<KuE>> Activism in the attacks retention, <<KbE>> Activism in the attacks throws,  <<KzE>> successful defenses.'
if resultFight=0:
wipo[1]+=2
wipo[i]-=1
rating[1]+=2
rating[i]-=5
!You won the surrender
end
if resultFight=1:
wipo[1]+=1
rating[1]+=1
rating[i]-=3
!you won
end
if resultFight=2:
rating[1]-=1
rating[i]-=1
!draw
end
if resultFight=3:
wipo[i]+=1
rating[1]-=3
rating[i]+=1
!you lost
end
if resultFight=4:
wipo[i]+=2
wipo[1]-=1
rating[1]-=5
rating[i]+=2
!you lost surrender
end



act '...':gt $loc



if Ku>Kb:
     if Ku>Kz:
     Uteh[1]+=10
     end
end
if Kb>Ku:
     if Kb>Kz:
     Bteh[1]+=10
     end
end
if Kz>Kb:
     if Kz>Ku:
     Zteh[1]+=10
     end
end
'
'<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
'<<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
'<<point>> points <<$nameA>> <<Ku>> Activism in the attacks retention, <<Kb>> Activism in the attacks throws, <<Kz>> successful defenses.'
'<<pointE>> points <<$nameE>> <<KuE>> Activism in the attacks retention, <<KbE>> Activism in the attacks throws,  <<KzE>> successful defenses.'
if resultFight=0:
wipo[a]+=2
wipo[i]-=1
rating[a]+=2
rating[i]-=5
strand=RAND(0,2)
!if strand=0:musle[a]+=10
!if strand=1:flex[a]+=10
!if strand=2:stamina[a]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[a]+=10
if tehrand=1:Uteh[a]+=10
if tehrand=2:Zteh[a]+=10
'<b><<$nameA>> won surrender</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
'
win[a]+=1
SubWin[a]+=1
loss[i]+=1
SubLoss[i]+=1
end
if resultFight=1:
wipo[a]+=1
rating[a]+=1
rating[i]-=3
strand=RAND(0,2)
!if strand=0:musle[a]+=10
!if strand=1:flex[a]+=10
!if strand=2:stamina[a]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[a]+=10
if tehrand=1:Uteh[a]+=10
if tehrand=2:Zteh[a]+=10
'<b><<$nameA>> won</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
'
     win[a]+=1
     loss[i]+=1
end
if resultFight=2:
rating[a]-=1
rating[i]-=1
'<b>The result of the fight a draw</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
'
     draw[a]+=1
     draw[i]+=1
end
if resultFight=3:
wipo[i]+=1
rating[a]-=3
rating[i]+=1
strand=RAND(0,2)
if strand=0:musle[i]+=10
if strand=1:flex[i]+=10
if strand=2:stamina[i]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[i]+=10
if tehrand=1:Uteh[i]+=10
if tehrand=2:Zteh[i]+=10
'<b><<$nameE>> won</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
'
     win[i]+=1
     loss[a]+=1
end
if resultFight=4:
wipo[i]+=2
wipo[a]-=1
rating[a]-=5
rating[i]+=2
strand=RAND(0,2)
if strand=0:musle[i]+=10
if strand=1:flex[i]+=10
if strand=2:stamina[i]+=10
tehrand=RAND(0,2)
if tehrand=0:Bteh[i]+=10
if tehrand=1:Uteh[i]+=10
if tehrand=2:Zteh[i]+=10
'<b><<$nameE>> won surrender</b>'
$spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
'
$spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
'
win[i]+=1
SubWin[i]+=1
loss[a]+=1
SubLoss[a]+=1
end

act '...':gt $loc 
--- EndFight ---------------------------------

# ratinglist
$loc=$curloc
gs'stat'



nums=0
:marknulator
nums+=1
if rating[nums]<0 and slut[nums]=0 and loss[nums]>=10 and win[nums]*2<loss[nums]:slut[nums]=1
if rating[nums]<0:rating[nums]=0
if nums<NPCnum:jump'marknulator'

!QAZAM
!PGIF
$npc[0]='<font color=green><b><<$nikname[0]>></b></font> rating <<rating[0]>> <b><<winw[0]>>-<<lossw[0]>>-<<draww[0]>> <<SubWin[0]>>/<<SubLoss[0]>></b> <a href="exec:i=0&GT ''npcview''">see</a>'
$npc[1]='<font color=green><b><<$nikname[1]>></b></font> rating <<rating[1]>> <b><<win[1]>>-<<loss[1]>>-<<draw[1]>> <<SubWin[1]>>/<<SubLoss[1]>></b> <a href="exec:i=1&GT ''npcview''">see</a>'
$npc[2]='<b><<$nikname[2]>></b> rating <<rating[2]>> <b><<win[2]>>-<<loss[2]>>-<<draw[2]>> <<SubWin[2]>>/<<SubLoss[2]>></b> <a href="exec:i=2&GT ''npcview''">see</a>'
$npc[3]='<b><<$nikname[3]>></b> rating <<rating[3]>> <b><<win[3]>>-<<loss[3]>>-<<draw[3]>> <<SubWin[3]>>/<<SubLoss[3]>></b> <a href="exec:i=3&GT ''npcview''">see</a>'
$npc[4]='<b><<$nikname[4]>></b> rating <<rating[4]>> <b><<win[4]>>-<<loss[4]>>-<<draw[4]>> <<SubWin[4]>>/<<SubLoss[4]>></b> <a href="exec:i=4&GT ''npcview''">see</a>'
$npc[5]='<b><<$nikname[5]>></b> rating <<rating[5]>> <b><<win[5]>>-<<loss[5]>>-<<draw[5]>> <<SubWin[5]>>/<<SubLoss[5]>></b> <a href="exec:i=5&GT ''npcview''">see</a>'
$npc[6]='<b><<$nikname[6]>></b> rating <<rating[6]>> <b><<win[6]>>-<<loss[6]>>-<<draw[6]>> <<SubWin[6]>>/<<SubLoss[6]>></b> <a href="exec:i=6&GT ''npcview''">see</a>'
$npc[7]='<b><<$nikname[7]>></b> rating <<rating[7]>> <b><<win[7]>>-<<loss[7]>>-<<draw[7]>> <<SubWin[7]>>/<<SubLoss[7]>></b> <a href="exec:i=7&GT ''npcview''">see</a>'
$npc[8]='<b><<$nikname[8]>></b> rating <<rating[8]>> <b><<win[8]>>-<<loss[8]>>-<<draw[8]>> <<SubWin[8]>>/<<SubLoss[8]>></b> <a href="exec:i=8&GT ''npcview''">see</a>'
$npc[9]='<b><<$nikname[9]>></b> rating <<rating[9]>> <b><<win[9]>>-<<loss[9]>>-<<draw[9]>> <<SubWin[9]>>/<<SubLoss[9]>></b> <a href="exec:i=9&GT ''npcview''">see</a>'
$npc[10]='<b><<$nikname[10]>></b> rating <<rating[10]>> <b><<win[10]>>-<<loss[10]>>-<<draw[10]>> <<SubWin[10]>>/<<SubLoss[10]>></b> <a href="exec:i=10&GT ''npcview''">see</a>'
$npc[11]='<b><<$nikname[11]>></b> rating <<rating[11]>> <b><<win[11]>>-<<loss[11]>>-<<draw[11]>> <<SubWin[11]>>/<<SubLoss[11]>></b> <a href="exec:i=11&GT ''npcview''">see</a>'
$npc[12]='<b><<$nikname[12]>></b> rating <<rating[12]>> <b><<win[12]>>-<<loss[12]>>-<<draw[12]>> <<SubWin[12]>>/<<SubLoss[12]>></b> <a href="exec:i=12&GT ''npcview''">see</a>'
$npc[13]='<b><<$nikname[13]>></b> rating <<rating[13]>> <b><<win[13]>>-<<loss[13]>>-<<draw[13]>> <<SubWin[13]>>/<<SubLoss[13]>></b> <a href="exec:i=13&GT ''npcview''">see</a>'
$npc[14]='<b><<$nikname[14]>></b> rating <<rating[14]>> <b><<win[14]>>-<<loss[14]>>-<<draw[14]>> <<SubWin[14]>>/<<SubLoss[14]>></b> <a href="exec:i=14&GT ''npcview''">see</a>'
$npc[15]='<b><<$nikname[15]>></b> rating <<rating[15]>> <b><<win[15]>>-<<loss[15]>>-<<draw[15]>> <<SubWin[15]>>/<<SubLoss[15]>></b> <a href="exec:i=15&GT ''npcview''">see</a>'
$npc[16]='<b><<$nikname[16]>></b> rating <<rating[16]>> <b><<win[16]>>-<<loss[16]>>-<<draw[16]>> <<SubWin[16]>>/<<SubLoss[16]>></b> <a href="exec:i=16&GT ''npcview''">see</a>'
$npc[17]='<b><<$nikname[17]>></b> rating <<rating[17]>> <b><<win[17]>>-<<loss[17]>>-<<draw[17]>> <<SubWin[17]>>/<<SubLoss[17]>></b> <a href="exec:i=17&GT ''npcview''">see</a>'
$npc[18]='<b><<$nikname[18]>></b> rating <<rating[18]>> <b><<win[18]>>-<<loss[18]>>-<<draw[18]>> <<SubWin[18]>>/<<SubLoss[18]>></b> <a href="exec:i=18&GT ''npcview''">see</a>'
$npc[19]='<b><<$nikname[19]>></b> rating <<rating[19]>> <b><<win[19]>>-<<loss[19]>>-<<draw[19]>> <<SubWin[19]>>/<<SubLoss[19]>></b> <a href="exec:i=19&GT ''npcview''">see</a>'
$npc[20]='<b><<$nikname[20]>></b> rating <<rating[20]>> <b><<win[20]>>-<<loss[20]>>-<<draw[20]>> <<SubWin[20]>>/<<SubLoss[20]>></b> <a href="exec:i=20&GT ''npcview''">see</a>'
$npc[21]='<b><<$nikname[21]>></b> rating <<rating[21]>> <b><<win[21]>>-<<loss[21]>>-<<draw[21]>> <<SubWin[21]>>/<<SubLoss[21]>></b> <a href="exec:i=21&GT ''npcview''">see</a>'
$npc[22]='<b><<$nikname[22]>></b> rating <<rating[22]>> <b><<win[22]>>-<<loss[22]>>-<<draw[22]>> <<SubWin[22]>>/<<SubLoss[22]>></b> <a href="exec:i=22&GT ''npcview''">see</a>'
$npc[23]='<b><<$nikname[23]>></b> rating <<rating[23]>> <b><<win[23]>>-<<loss[23]>>-<<draw[23]>> <<SubWin[23]>>/<<SubLoss[23]>></b> <a href="exec:i=23&GT ''npcview''">see</a>'
$npc[24]='<b><<$nikname[24]>></b> rating <<rating[24]>> <b><<win[24]>>-<<loss[24]>>-<<draw[24]>> <<SubWin[24]>>/<<SubLoss[24]>></b> <a href="exec:i=24&GT ''npcview''">see</a>'
$npc[25]='<b><<$nikname[25]>></b> rating <<rating[25]>> <b><<win[25]>>-<<loss[25]>>-<<draw[25]>> <<SubWin[25]>>/<<SubLoss[25]>></b> <a href="exec:i=25&GT ''npcview''">see</a>'
$npc[26]='<b><<$nikname[26]>></b> rating <<rating[26]>> <b><<win[26]>>-<<loss[26]>>-<<draw[26]>> <<SubWin[26]>>/<<SubLoss[26]>></b> <a href="exec:i=26&GT ''npcview''">see</a>'
$npc[27]='<b><<$nikname[27]>></b> rating <<rating[27]>> <b><<win[27]>>-<<loss[27]>>-<<draw[27]>> <<SubWin[27]>>/<<SubLoss[27]>></b> <a href="exec:i=27&GT ''npcview''">see</a>'
$npc[28]='<b><<$nikname[28]>></b> rating <<rating[28]>> <b><<win[28]>>-<<loss[28]>>-<<draw[28]>> <<SubWin[28]>>/<<SubLoss[28]>></b> <a href="exec:i=28&GT ''npcview''">see</a>'
$npc[29]='<b><<$nikname[29]>></b> rating <<rating[29]>> <b><<win[29]>>-<<loss[29]>>-<<draw[29]>> <<SubWin[29]>>/<<SubLoss[29]>></b> <a href="exec:i=29&GT ''npcview''">see</a>'
$npc[30]='<b><<$nikname[30]>></b> rating <<rating[30]>> <b><<win[30]>>-<<loss[30]>>-<<draw[30]>> <<SubWin[30]>>/<<SubLoss[30]>></b> <a href="exec:i=30&GT ''npcview''">see</a>'
$npc[31]='<b><<$nikname[31]>></b> rating <<rating[31]>> <b><<win[31]>>-<<loss[31]>>-<<draw[31]>> <<SubWin[31]>>/<<SubLoss[31]>></b> <a href="exec:i=31&GT ''npcview''">see</a>'
$npc[32]='<b><<$nikname[32]>></b> rating <<rating[32]>> <b><<win[32]>>-<<loss[32]>>-<<draw[32]>> <<SubWin[32]>>/<<SubLoss[32]>></b> <a href="exec:i=32&GT ''npcview''">see</a>'
$npc[33]='<b><<$nikname[33]>></b> rating <<rating[33]>> <b><<win[33]>>-<<loss[33]>>-<<draw[33]>> <<SubWin[33]>>/<<SubLoss[33]>></b> <a href="exec:i=33&GT ''npcview''">see</a>'
$npc[34]='<b><<$nikname[34]>></b> rating <<rating[34]>> <b><<win[34]>>-<<loss[34]>>-<<draw[34]>> <<SubWin[34]>>/<<SubLoss[34]>></b> <a href="exec:i=34&GT ''npcview''">see</a>'
$npc[35]='<b><<$nikname[35]>></b> rating <<rating[35]>> <b><<win[35]>>-<<loss[35]>>-<<draw[35]>> <<SubWin[35]>>/<<SubLoss[35]>></b> <a href="exec:i=35&GT ''npcview''">see</a>'
$npc[36]='<b><<$nikname[36]>></b> rating <<rating[36]>> <b><<win[36]>>-<<loss[36]>>-<<draw[36]>> <<SubWin[36]>>/<<SubLoss[36]>></b> <a href="exec:i=36&GT ''npcview''">see</a>'
$npc[37]='<b><<$nikname[37]>></b> rating <<rating[37]>> <b><<win[37]>>-<<loss[37]>>-<<draw[37]>> <<SubWin[37]>>/<<SubLoss[37]>></b> <a href="exec:i=37&GT ''npcview''">see</a>'
$npc[38]='<b><<$nikname[38]>></b> rating <<rating[38]>> <b><<win[38]>>-<<loss[38]>>-<<draw[38]>> <<SubWin[38]>>/<<SubLoss[38]>></b> <a href="exec:i=38&GT ''npcview''">see</a>'
$npc[39]='<b><<$nikname[39]>></b> rating <<rating[39]>> <b><<win[39]>>-<<loss[39]>>-<<draw[39]>> <<SubWin[39]>>/<<SubLoss[39]>></b> <a href="exec:i=39&GT ''npcview''">see</a>'
$npc[40]='<b><<$nikname[40]>></b> rating <<rating[40]>> <b><<win[40]>>-<<loss[40]>>-<<draw[40]>> <<SubWin[40]>>/<<SubLoss[40]>></b> <a href="exec:i=40&GT ''npcview''">see</a>'
$npc[41]='<b><<$nikname[41]>></b> rating <<rating[41]>> <b><<win[41]>>-<<loss[41]>>-<<draw[41]>> <<SubWin[41]>>/<<SubLoss[41]>></b> <a href="exec:i=41&GT ''npcview''">see</a>'
$npc[42]='<b><<$nikname[42]>></b> rating <<rating[42]>> <b><<win[42]>>-<<loss[42]>>-<<draw[42]>> <<SubWin[42]>>/<<SubLoss[42]>></b> <a href="exec:i=42&GT ''npcview''">see</a>'
$npc[43]='<b><<$nikname[43]>></b> rating <<rating[43]>> <b><<win[43]>>-<<loss[43]>>-<<draw[43]>> <<SubWin[43]>>/<<SubLoss[43]>></b> <a href="exec:i=43&GT ''npcview''">see</a>'
$npc[44]='<b><<$nikname[44]>></b> rating <<rating[44]>> <b><<win[44]>>-<<loss[44]>>-<<draw[44]>> <<SubWin[44]>>/<<SubLoss[44]>></b> <a href="exec:i=44&GT ''npcview''">see</a>'
$npc[45]='<b><<$nikname[45]>></b> rating <<rating[45]>> <b><<win[45]>>-<<loss[45]>>-<<draw[45]>> <<SubWin[45]>>/<<SubLoss[45]>></b> <a href="exec:i=45&GT ''npcview''">see</a>'
$npc[46]='<b><<$nikname[46]>></b> rating <<rating[46]>> <b><<win[46]>>-<<loss[46]>>-<<draw[46]>> <<SubWin[46]>>/<<SubLoss[46]>></b> <a href="exec:i=46&GT ''npcview''">see</a>'
$npc[47]='<b><<$nikname[47]>></b> rating <<rating[47]>> <b><<win[47]>>-<<loss[47]>>-<<draw[47]>> <<SubWin[47]>>/<<SubLoss[47]>></b> <a href="exec:i=47&GT ''npcview''">see</a>'
$npc[48]='<b><<$nikname[48]>></b> rating <<rating[48]>> <b><<win[48]>>-<<loss[48]>>-<<draw[48]>> <<SubWin[48]>>/<<SubLoss[48]>></b> <a href="exec:i=48&GT ''npcview''">see</a>'
$npc[49]='<b><<$nikname[49]>></b> rating <<rating[49]>> <b><<win[49]>>-<<loss[49]>>-<<draw[49]>> <<SubWin[49]>>/<<SubLoss[49]>></b> <a href="exec:i=49&GT ''npcview''">see</a>'
$npc[50]='<b><<$nikname[50]>></b> rating <<rating[50]>> <b><<win[50]>>-<<loss[50]>>-<<draw[50]>> <<SubWin[50]>>/<<SubLoss[50]>></b> <a href="exec:i=50&GT ''npcview''">see</a>'
$npc[51]='<b><<$nikname[51]>></b> rating <<rating[51]>> <b><<win[51]>>-<<loss[51]>>-<<draw[51]>> <<SubWin[51]>>/<<SubLoss[51]>></b> <a href="exec:i=51&GT ''npcview''">see</a>'
$npc[52]='<b><<$nikname[52]>></b> rating <<rating[52]>> <b><<win[52]>>-<<loss[52]>>-<<draw[52]>> <<SubWin[52]>>/<<SubLoss[52]>></b> <a href="exec:i=52&GT ''npcview''">see</a>'
$npc[53]='<b><<$nikname[53]>></b> rating <<rating[53]>> <b><<win[53]>>-<<loss[53]>>-<<draw[53]>> <<SubWin[53]>>/<<SubLoss[53]>></b> <a href="exec:i=53&GT ''npcview''">see</a>'
$npc[54]='<b><<$nikname[54]>></b> rating <<rating[54]>> <b><<win[54]>>-<<loss[54]>>-<<draw[54]>> <<SubWin[54]>>/<<SubLoss[54]>></b> <a href="exec:i=54&GT ''npcview''">see</a>'
$npc[55]='<b><<$nikname[55]>></b> rating <<rating[55]>> <b><<win[55]>>-<<loss[55]>>-<<draw[55]>> <<SubWin[55]>>/<<SubLoss[55]>></b> <a href="exec:i=55&GT ''npcview''">see</a>'
$npc[56]='<b><<$nikname[56]>></b> rating <<rating[56]>> <b><<win[56]>>-<<loss[56]>>-<<draw[56]>> <<SubWin[56]>>/<<SubLoss[56]>></b> <a href="exec:i=56&GT ''npcview''">see</a>'
$npc[57]='<b><<$nikname[57]>></b> rating <<rating[57]>> <b><<win[57]>>-<<loss[57]>>-<<draw[57]>> <<SubWin[57]>>/<<SubLoss[57]>></b> <a href="exec:i=57&GT ''npcview''">see</a>'
$npc[58]='<b><<$nikname[58]>></b> rating <<rating[58]>> <b><<win[58]>>-<<loss[58]>>-<<draw[58]>> <<SubWin[58]>>/<<SubLoss[58]>></b> <a href="exec:i=58&GT ''npcview''">see</a>'
$npc[59]='<b><<$nikname[59]>></b> rating <<rating[59]>> <b><<win[59]>>-<<loss[59]>>-<<draw[59]>> <<SubWin[59]>>/<<SubLoss[59]>></b> <a href="exec:i=59&GT ''npcview''">see</a>'
$npc[60]='<b><<$nikname[60]>></b> rating <<rating[60]>> <b><<win[60]>>-<<loss[60]>>-<<draw[60]>> <<SubWin[60]>>/<<SubLoss[60]>></b> <a href="exec:i=60&GT ''npcview''">see</a>'
$npc[61]='<b><<$nikname[61]>></b> rating <<rating[61]>> <b><<win[61]>>-<<loss[61]>>-<<draw[61]>> <<SubWin[61]>>/<<SubLoss[61]>></b> <a href="exec:i=61&GT ''npcview''">see</a>'
$npc[62]='<b><<$nikname[62]>></b> rating <<rating[62]>> <b><<win[62]>>-<<loss[62]>>-<<draw[62]>> <<SubWin[62]>>/<<SubLoss[62]>></b> <a href="exec:i=62&GT ''npcview''">see</a>'
$npc[63]='<b><<$nikname[63]>></b> rating <<rating[63]>> <b><<win[63]>>-<<loss[63]>>-<<draw[63]>> <<SubWin[63]>>/<<SubLoss[63]>></b> <a href="exec:i=63&GT ''npcview''">see</a>'
$npc[64]='<b><<$nikname[64]>></b> rating <<rating[64]>> <b><<win[64]>>-<<loss[64]>>-<<draw[64]>> <<SubWin[64]>>/<<SubLoss[64]>></b> <a href="exec:i=64&GT ''npcview''">see</a>'
$npc[65]='<b><<$nikname[65]>></b> rating <<rating[65]>> <b><<win[65]>>-<<loss[65]>>-<<draw[65]>> <<SubWin[65]>>/<<SubLoss[65]>></b> <a href="exec:i=65&GT ''npcview''">see</a>'
$npc[66]='<b><<$nikname[66]>></b> rating <<rating[66]>> <b><<win[66]>>-<<loss[66]>>-<<draw[66]>> <<SubWin[66]>>/<<SubLoss[66]>></b> <a href="exec:i=66&GT ''npcview''">see</a>'
$npc[67]='<b><<$nikname[67]>></b> rating <<rating[67]>> <b><<win[67]>>-<<loss[67]>>-<<draw[67]>> <<SubWin[67]>>/<<SubLoss[67]>></b> <a href="exec:i=67&GT ''npcview''">see</a>'
$npc[68]='<b><<$nikname[68]>></b> rating <<rating[68]>> <b><<win[68]>>-<<loss[68]>>-<<draw[68]>> <<SubWin[68]>>/<<SubLoss[68]>></b> <a href="exec:i=68&GT ''npcview''">see</a>'
$npc[69]='<b><<$nikname[69]>></b> rating <<rating[69]>> <b><<win[69]>>-<<loss[69]>>-<<draw[69]>> <<SubWin[69]>>/<<SubLoss[69]>></b> <a href="exec:i=69&GT ''npcview''">see</a>'
$npc[70]='<b><<$nikname[70]>></b> rating <<rating[70]>> <b><<win[70]>>-<<loss[70]>>-<<draw[70]>> <<SubWin[70]>>/<<SubLoss[70]>></b> <a href="exec:i=70&GT ''npcview''">see</a>'
$npc[71]='<b><<$nikname[71]>></b> rating <<rating[71]>> <b><<win[71]>>-<<loss[71]>>-<<draw[71]>> <<SubWin[71]>>/<<SubLoss[71]>></b> <a href="exec:i=71&GT ''npcview''">see</a>'
$npc[72]='<b><<$nikname[72]>></b> rating <<rating[72]>> <b><<win[72]>>-<<loss[72]>>-<<draw[72]>> <<SubWin[72]>>/<<SubLoss[72]>></b> <a href="exec:i=72&GT ''npcview''">see</a>'
$npc[73]='<b><<$nikname[73]>></b> rating <<rating[73]>> <b><<win[73]>>-<<loss[73]>>-<<draw[73]>> <<SubWin[73]>>/<<SubLoss[73]>></b> <a href="exec:i=73&GT ''npcview''">see</a>'
$npc[74]='<b><<$nikname[74]>></b> rating <<rating[74]>> <b><<win[74]>>-<<loss[74]>>-<<draw[74]>> <<SubWin[74]>>/<<SubLoss[74]>></b> <a href="exec:i=74&GT ''npcview''">see</a>'
$npc[75]='<b><<$nikname[75]>></b> rating <<rating[75]>> <b><<win[75]>>-<<loss[75]>>-<<draw[75]>> <<SubWin[75]>>/<<SubLoss[75]>></b> <a href="exec:i=75&GT ''npcview''">see</a>'
$npc[76]='<b><<$nikname[76]>></b> rating <<rating[76]>> <b><<win[76]>>-<<loss[76]>>-<<draw[76]>> <<SubWin[76]>>/<<SubLoss[76]>></b> <a href="exec:i=76&GT ''npcview''">see</a>'
$npc[77]='<b><<$nikname[77]>></b> rating <<rating[77]>> <b><<win[77]>>-<<loss[77]>>-<<draw[77]>> <<SubWin[77]>>/<<SubLoss[77]>></b> <a href="exec:i=77&GT ''npcview''">see</a>'
$npc[78]='<b><<$nikname[78]>></b> rating <<rating[78]>> <b><<win[78]>>-<<loss[78]>>-<<draw[78]>> <<SubWin[78]>>/<<SubLoss[78]>></b> <a href="exec:i=78&GT ''npcview''">see</a>'
$npc[79]='<b><<$nikname[79]>></b> rating <<rating[79]>> <b><<win[79]>>-<<loss[79]>>-<<draw[79]>> <<SubWin[79]>>/<<SubLoss[79]>></b> <a href="exec:i=79&GT ''npcview''">see</a>'
$npc[80]='<b><<$nikname[80]>></b> rating <<rating[80]>> <b><<win[80]>>-<<loss[80]>>-<<draw[80]>> <<SubWin[80]>>/<<SubLoss[80]>></b> <a href="exec:i=80&GT ''npcview''">see</a>'
$npc[81]='<b><<$nikname[81]>></b> rating <<rating[81]>> <b><<win[81]>>-<<loss[81]>>-<<draw[81]>> <<SubWin[81]>>/<<SubLoss[81]>></b> <a href="exec:i=81&GT ''npcview''">see</a>'
$npc[82]='<b><<$nikname[82]>></b> rating <<rating[82]>> <b><<win[82]>>-<<loss[82]>>-<<draw[82]>> <<SubWin[82]>>/<<SubLoss[82]>></b> <a href="exec:i=82&GT ''npcview''">see</a>'
$npc[83]='<b><<$nikname[83]>></b> rating <<rating[83]>> <b><<win[83]>>-<<loss[83]>>-<<draw[83]>> <<SubWin[83]>>/<<SubLoss[83]>></b> <a href="exec:i=83&GT ''npcview''">see</a>'
$npc[84]='<b><<$nikname[84]>></b> rating <<rating[84]>> <b><<win[84]>>-<<loss[84]>>-<<draw[84]>> <<SubWin[84]>>/<<SubLoss[84]>></b> <a href="exec:i=84&GT ''npcview''">see</a>'
$npc[85]='<b><<$nikname[85]>></b> rating <<rating[85]>> <b><<win[85]>>-<<loss[85]>>-<<draw[85]>> <<SubWin[85]>>/<<SubLoss[85]>></b> <a href="exec:i=85&GT ''npcview''">see</a>'
$npc[86]='<b><<$nikname[86]>></b> rating <<rating[86]>> <b><<win[86]>>-<<loss[86]>>-<<draw[86]>> <<SubWin[86]>>/<<SubLoss[86]>></b> <a href="exec:i=86&GT ''npcview''">see</a>'
$npc[87]='<b><<$nikname[87]>></b> rating <<rating[87]>> <b><<win[87]>>-<<loss[87]>>-<<draw[87]>> <<SubWin[87]>>/<<SubLoss[87]>></b> <a href="exec:i=87&GT ''npcview''">see</a>'
$npc[88]='<b><<$nikname[88]>></b> rating <<rating[88]>> <b><<win[88]>>-<<loss[88]>>-<<draw[88]>> <<SubWin[88]>>/<<SubLoss[88]>></b> <a href="exec:i=88&GT ''npcview''">see</a>'
$npc[89]='<b><<$nikname[89]>></b> rating <<rating[89]>> <b><<win[89]>>-<<loss[89]>>-<<draw[89]>> <<SubWin[89]>>/<<SubLoss[89]>></b> <a href="exec:i=89&GT ''npcview''">see</a>'
$npc[90]='<b><<$nikname[90]>></b> rating <<rating[90]>> <b><<win[90]>>-<<loss[90]>>-<<draw[90]>> <<SubWin[90]>>/<<SubLoss[90]>></b> <a href="exec:i=90&GT ''npcview''">see</a>'
$npc[91]='<b><<$nikname[91]>></b> rating <<rating[91]>> <b><<win[91]>>-<<loss[91]>>-<<draw[91]>> <<SubWin[91]>>/<<SubLoss[91]>></b> <a href="exec:i=91&GT ''npcview''">see</a>'
$npc[92]='<b><<$nikname[92]>></b> rating <<rating[92]>> <b><<win[92]>>-<<loss[92]>>-<<draw[92]>> <<SubWin[92]>>/<<SubLoss[92]>></b> <a href="exec:i=92&GT ''npcview''">see</a>'
$npc[93]='<b><<$nikname[93]>></b> rating <<rating[93]>> <b><<win[93]>>-<<loss[93]>>-<<draw[93]>> <<SubWin[93]>>/<<SubLoss[93]>></b> <a href="exec:i=93&GT ''npcview''">see</a>'
$npc[94]='<b><<$nikname[94]>></b> rating <<rating[94]>> <b><<win[94]>>-<<loss[94]>>-<<draw[94]>> <<SubWin[94]>>/<<SubLoss[94]>></b> <a href="exec:i=94&GT ''npcview''">see</a>'
$npc[95]='<b><<$nikname[95]>></b> rating <<rating[95]>> <b><<win[95]>>-<<loss[95]>>-<<draw[95]>> <<SubWin[95]>>/<<SubLoss[95]>></b> <a href="exec:i=95&GT ''npcview''">see</a>'
$npc[96]='<b><<$nikname[96]>></b> rating <<rating[96]>> <b><<win[96]>>-<<loss[96]>>-<<draw[96]>> <<SubWin[96]>>/<<SubLoss[96]>></b> <a href="exec:i=96&GT ''npcview''">see</a>'
$npc[97]='<b><<$nikname[97]>></b> rating <<rating[97]>> <b><<win[97]>>-<<loss[97]>>-<<draw[97]>> <<SubWin[97]>>/<<SubLoss[97]>></b> <a href="exec:i=97&GT ''npcview''">see</a>'
$npc[98]='<b><<$nikname[98]>></b> rating <<rating[98]>> <b><<win[98]>>-<<loss[98]>>-<<draw[98]>> <<SubWin[98]>>/<<SubLoss[98]>></b> <a href="exec:i=98&GT ''npcview''">see</a>'
$npc[99]='<b><<$nikname[99]>></b> rating <<rating[99]>> <b><<win[99]>>-<<loss[99]>>-<<draw[99]>> <<SubWin[99]>>/<<SubLoss[99]>></b> <a href="exec:i=99&GT ''npcview''">see</a>'
$npc[100]='<b><<$nikname[100]>></b> rating <<rating[100]>> <b><<win[100]>>-<<loss[100]>>-<<draw[100]>> <<SubWin[100]>>/<<SubLoss[100]>></b> <a href="exec:i=100&GT ''npcview''">see</a>'
$npc[101]='<b><<$nikname[101]>></b> rating <<rating[101]>> <b><<win[101]>>-<<loss[101]>>-<<draw[101]>> <<SubWin[101]>>/<<SubLoss[101]>></b> <a href="exec:i=101&GT ''npcview''">see</a>'
$npc[102]='<b><<$nikname[102]>></b> rating <<rating[102]>> <b><<win[102]>>-<<loss[102]>>-<<draw[102]>> <<SubWin[102]>>/<<SubLoss[102]>></b> <a href="exec:i=102&GT ''npcview''">see</a>'
$npc[103]='<b><<$nikname[103]>></b> rating <<rating[103]>> <b><<win[103]>>-<<loss[103]>>-<<draw[103]>> <<SubWin[103]>>/<<SubLoss[103]>></b> <a href="exec:i=103&GT ''npcview''">see</a>'
$npc[104]='<b><<$nikname[104]>></b> rating <<rating[104]>> <b><<win[104]>>-<<loss[104]>>-<<draw[104]>> <<SubWin[104]>>/<<SubLoss[104]>></b> <a href="exec:i=104&GT ''npcview''">see</a>'
$npc[105]='<b><<$nikname[105]>></b> rating <<rating[105]>> <b><<win[105]>>-<<loss[105]>>-<<draw[105]>> <<SubWin[105]>>/<<SubLoss[105]>></b> <a href="exec:i=105&GT ''npcview''">see</a>'
$npc[106]='<b><<$nikname[106]>></b> rating <<rating[106]>> <b><<win[106]>>-<<loss[106]>>-<<draw[106]>> <<SubWin[106]>>/<<SubLoss[106]>></b> <a href="exec:i=106&GT ''npcview''">see</a>'
$npc[107]='<b><<$nikname[107]>></b> rating <<rating[107]>> <b><<win[107]>>-<<loss[107]>>-<<draw[107]>> <<SubWin[107]>>/<<SubLoss[107]>></b> <a href="exec:i=107&GT ''npcview''">see</a>'
$npc[108]='<b><<$nikname[108]>></b> rating <<rating[108]>> <b><<win[108]>>-<<loss[108]>>-<<draw[108]>> <<SubWin[108]>>/<<SubLoss[108]>></b> <a href="exec:i=108&GT ''npcview''">see</a>'
$npc[109]='<b><<$nikname[109]>></b> rating <<rating[109]>> <b><<win[109]>>-<<loss[109]>>-<<draw[109]>> <<SubWin[109]>>/<<SubLoss[109]>></b> <a href="exec:i=109&GT ''npcview''">see</a>'
$npc[110]='<b><<$nikname[110]>></b> rating <<rating[110]>> <b><<win[110]>>-<<loss[110]>>-<<draw[110]>> <<SubWin[110]>>/<<SubLoss[110]>></b> <a href="exec:i=110&GT ''npcview''">see</a>'
$npc[111]='<b><<$nikname[111]>></b> rating <<rating[111]>> <b><<win[111]>>-<<loss[111]>>-<<draw[111]>> <<SubWin[111]>>/<<SubLoss[111]>></b> <a href="exec:i=111&GT ''npcview''">see</a>'
$npc[112]='<b><<$nikname[112]>></b> rating <<rating[112]>> <b><<win[112]>>-<<loss[112]>>-<<draw[112]>> <<SubWin[112]>>/<<SubLoss[112]>></b> <a href="exec:i=112&GT ''npcview''">see</a>'
$npc[113]='<b><<$nikname[113]>></b> rating <<rating[113]>> <b><<win[113]>>-<<loss[113]>>-<<draw[113]>> <<SubWin[113]>>/<<SubLoss[113]>></b> <a href="exec:i=113&GT ''npcview''">see</a>'
$npc[114]='<b><<$nikname[114]>></b> rating <<rating[114]>> <b><<win[114]>>-<<loss[114]>>-<<draw[114]>> <<SubWin[114]>>/<<SubLoss[114]>></b> <a href="exec:i=114&GT ''npcview''">see</a>'
$npc[115]='<b><<$nikname[115]>></b> rating <<rating[115]>> <b><<win[115]>>-<<loss[115]>>-<<draw[115]>> <<SubWin[115]>>/<<SubLoss[115]>></b> <a href="exec:i=115&GT ''npcview''">see</a>'
$npc[116]='<b><<$nikname[116]>></b> rating <<rating[116]>> <b><<win[116]>>-<<loss[116]>>-<<draw[116]>> <<SubWin[116]>>/<<SubLoss[116]>></b> <a href="exec:i=116&GT ''npcview''">see</a>'
$npc[117]='<b><<$nikname[117]>></b> rating <<rating[117]>> <b><<win[117]>>-<<loss[117]>>-<<draw[117]>> <<SubWin[117]>>/<<SubLoss[117]>></b> <a href="exec:i=117&GT ''npcview''">see</a>'
$npc[118]='<b><<$nikname[118]>></b> rating <<rating[118]>> <b><<win[118]>>-<<loss[118]>>-<<draw[118]>> <<SubWin[118]>>/<<SubLoss[118]>></b> <a href="exec:i=118&GT ''npcview''">see</a>'
$npc[119]='<b><<$nikname[119]>></b> rating <<rating[119]>> <b><<win[119]>>-<<loss[119]>>-<<draw[119]>> <<SubWin[119]>>/<<SubLoss[119]>></b> <a href="exec:i=119&GT ''npcview''">see</a>'
$npc[120]='<b><<$nikname[120]>></b> rating <<rating[120]>> <b><<win[120]>>-<<loss[120]>>-<<draw[120]>> <<SubWin[120]>>/<<SubLoss[120]>></b> <a href="exec:i=120&GT ''npcview''">see</a>'
$npc[121]='<b><<$nikname[121]>></b> rating <<rating[121]>> <b><<win[121]>>-<<loss[121]>>-<<draw[121]>> <<SubWin[121]>>/<<SubLoss[121]>></b> <a href="exec:i=121&GT ''npcview''">see</a>'
$npc[122]='<b><<$nikname[122]>></b> rating <<rating[122]>> <b><<win[122]>>-<<loss[122]>>-<<draw[122]>> <<SubWin[122]>>/<<SubLoss[122]>></b> <a href="exec:i=122&GT ''npcview''">see</a>'
$npc[123]='<b><<$nikname[123]>></b> rating <<rating[123]>> <b><<win[123]>>-<<loss[123]>>-<<draw[123]>> <<SubWin[123]>>/<<SubLoss[123]>></b> <a href="exec:i=123&GT ''npcview''">see</a>'
$npc[124]='<b><<$nikname[124]>></b> rating <<rating[124]>> <b><<win[124]>>-<<loss[124]>>-<<draw[124]>> <<SubWin[124]>>/<<SubLoss[124]>></b> <a href="exec:i=124&GT ''npcview''">see</a>'
$npc[125]='<b><<$nikname[125]>></b> rating <<rating[125]>> <b><<win[125]>>-<<loss[125]>>-<<draw[125]>> <<SubWin[125]>>/<<SubLoss[125]>></b> <a href="exec:i=125&GT ''npcview''">see</a>'
$npc[126]='<b><<$nikname[126]>></b> rating <<rating[126]>> <b><<win[126]>>-<<loss[126]>>-<<draw[126]>> <<SubWin[126]>>/<<SubLoss[126]>></b> <a href="exec:i=126&GT ''npcview''">see</a>'
$npc[127]='<b><<$nikname[127]>></b> rating <<rating[127]>> <b><<win[127]>>-<<loss[127]>>-<<draw[127]>> <<SubWin[127]>>/<<SubLoss[127]>></b> <a href="exec:i=127&GT ''npcview''">see</a>'
$npc[128]='<b><<$nikname[128]>></b> rating <<rating[128]>> <b><<win[128]>>-<<loss[128]>>-<<draw[128]>> <<SubWin[128]>>/<<SubLoss[128]>></b> <a href="exec:i=128&GT ''npcview''">see</a>'
$npc[129]='<b><<$nikname[129]>></b> rating <<rating[129]>> <b><<win[129]>>-<<loss[129]>>-<<draw[129]>> <<SubWin[129]>>/<<SubLoss[129]>></b> <a href="exec:i=129&GT ''npcview''">see</a>'
$npc[130]='<b><<$nikname[130]>></b> rating <<rating[130]>> <b><<win[130]>>-<<loss[130]>>-<<draw[130]>> <<SubWin[130]>>/<<SubLoss[130]>></b> <a href="exec:i=130&GT ''npcview''">see</a>'
$npc[131]='<b><<$nikname[131]>></b> rating <<rating[131]>> <b><<win[131]>>-<<loss[131]>>-<<draw[131]>> <<SubWin[131]>>/<<SubLoss[131]>></b> <a href="exec:i=131&GT ''npcview''">see</a>'
$npc[132]='<b><<$nikname[132]>></b> rating <<rating[132]>> <b><<win[132]>>-<<loss[132]>>-<<draw[132]>> <<SubWin[132]>>/<<SubLoss[132]>></b> <a href="exec:i=132&GT ''npcview''">see</a>'
$npc[133]='<b><<$nikname[133]>></b> rating <<rating[133]>> <b><<win[133]>>-<<loss[133]>>-<<draw[133]>> <<SubWin[133]>>/<<SubLoss[133]>></b> <a href="exec:i=133&GT ''npcview''">see</a>'
$npc[134]='<b><<$nikname[134]>></b> rating <<rating[134]>> <b><<win[134]>>-<<loss[134]>>-<<draw[134]>> <<SubWin[134]>>/<<SubLoss[134]>></b> <a href="exec:i=134&GT ''npcview''">see</a>'
$npc[135]='<b><<$nikname[135]>></b> rating <<rating[135]>> <b><<win[135]>>-<<loss[135]>>-<<draw[135]>> <<SubWin[135]>>/<<SubLoss[135]>></b> <a href="exec:i=135&GT ''npcview''">see</a>'
$npc[136]='<b><<$nikname[136]>></b> rating <<rating[136]>> <b><<win[136]>>-<<loss[136]>>-<<draw[136]>> <<SubWin[136]>>/<<SubLoss[136]>></b> <a href="exec:i=136&GT ''npcview''">see</a>'
$npc[137]='<b><<$nikname[137]>></b> rating <<rating[137]>> <b><<win[137]>>-<<loss[137]>>-<<draw[137]>> <<SubWin[137]>>/<<SubLoss[137]>></b> <a href="exec:i=137&GT ''npcview''">see</a>'
$npc[138]='<b><<$nikname[138]>></b> rating <<rating[138]>> <b><<win[138]>>-<<loss[138]>>-<<draw[138]>> <<SubWin[138]>>/<<SubLoss[138]>></b> <a href="exec:i=138&GT ''npcview''">see</a>'
$npc[139]='<b><<$nikname[139]>></b> rating <<rating[139]>> <b><<win[139]>>-<<loss[139]>>-<<draw[139]>> <<SubWin[139]>>/<<SubLoss[139]>></b> <a href="exec:i=139&GT ''npcview''">see</a>'
$npc[140]='<b><<$nikname[140]>></b> rating <<rating[140]>> <b><<win[140]>>-<<loss[140]>>-<<draw[140]>> <<SubWin[140]>>/<<SubLoss[140]>></b> <a href="exec:i=140&GT ''npcview''">see</a>'
$npc[141]='<b><<$nikname[141]>></b> rating <<rating[141]>> <b><<win[141]>>-<<loss[141]>>-<<draw[141]>> <<SubWin[141]>>/<<SubLoss[141]>></b> <a href="exec:i=141&GT ''npcview''">see</a>'
$npc[142]='<b><<$nikname[142]>></b> rating <<rating[142]>> <b><<win[142]>>-<<loss[142]>>-<<draw[142]>> <<SubWin[142]>>/<<SubLoss[142]>></b> <a href="exec:i=142&GT ''npcview''">see</a>'
$npc[143]='<b><<$nikname[143]>></b> rating <<rating[143]>> <b><<win[143]>>-<<loss[143]>>-<<draw[143]>> <<SubWin[143]>>/<<SubLoss[143]>></b> <a href="exec:i=143&GT ''npcview''">see</a>'
$npc[144]='<b><<$nikname[144]>></b> rating <<rating[144]>> <b><<win[144]>>-<<loss[144]>>-<<draw[144]>> <<SubWin[144]>>/<<SubLoss[144]>></b> <a href="exec:i=144&GT ''npcview''">see</a>'
$npc[145]='<b><<$nikname[145]>></b> rating <<rating[145]>> <b><<win[145]>>-<<loss[145]>>-<<draw[145]>> <<SubWin[145]>>/<<SubLoss[145]>></b> <a href="exec:i=145&GT ''npcview''">see</a>'
$npc[146]='<b><<$nikname[146]>></b> rating <<rating[146]>> <b><<win[146]>>-<<loss[146]>>-<<draw[146]>> <<SubWin[146]>>/<<SubLoss[146]>></b> <a href="exec:i=146&GT ''npcview''">see</a>'
$npc[147]='<b><<$nikname[147]>></b> rating <<rating[147]>> <b><<win[147]>>-<<loss[147]>>-<<draw[147]>> <<SubWin[147]>>/<<SubLoss[147]>></b> <a href="exec:i=147&GT ''npcview''">see</a>'
$npc[148]='<b><<$nikname[148]>></b> rating <<rating[148]>> <b><<win[148]>>-<<loss[148]>>-<<draw[148]>> <<SubWin[148]>>/<<SubLoss[148]>></b> <a href="exec:i=148&GT ''npcview''">see</a>'
$npc[149]='<b><<$nikname[149]>></b> rating <<rating[149]>> <b><<win[149]>>-<<loss[149]>>-<<draw[149]>> <<SubWin[149]>>/<<SubLoss[149]>></b> <a href="exec:i=149&GT ''npcview''">see</a>'
$npc[150]='<b><<$nikname[150]>></b> rating <<rating[150]>> <b><<win[150]>>-<<loss[150]>>-<<draw[150]>> <<SubWin[150]>>/<<SubLoss[150]>></b> <a href="exec:i=150&GT ''npcview''">see</a>'
$npc[151]='<b><<$nikname[151]>></b> rating <<rating[151]>> <b><<win[151]>>-<<loss[151]>>-<<draw[151]>> <<SubWin[151]>>/<<SubLoss[151]>></b> <a href="exec:i=151&GT ''npcview''">see</a>'
$npc[152]='<b><<$nikname[152]>></b> rating <<rating[152]>> <b><<win[152]>>-<<loss[152]>>-<<draw[152]>> <<SubWin[152]>>/<<SubLoss[152]>></b> <a href="exec:i=152&GT ''npcview''">see</a>'
$npc[153]='<b><<$nikname[153]>></b> rating <<rating[153]>> <b><<win[153]>>-<<loss[153]>>-<<draw[153]>> <<SubWin[153]>>/<<SubLoss[153]>></b> <a href="exec:i=153&GT ''npcview''">see</a>'
$npc[154]='<b><<$nikname[154]>></b> rating <<rating[154]>> <b><<win[154]>>-<<loss[154]>>-<<draw[154]>> <<SubWin[154]>>/<<SubLoss[154]>></b> <a href="exec:i=154&GT ''npcview''">see</a>'
$npc[155]='<b><<$nikname[155]>></b> rating <<rating[155]>> <b><<win[155]>>-<<loss[155]>>-<<draw[155]>> <<SubWin[155]>>/<<SubLoss[155]>></b> <a href="exec:i=155&GT ''npcview''">see</a>'
$npc[156]='<b><<$nikname[156]>></b> rating <<rating[156]>> <b><<win[156]>>-<<loss[156]>>-<<draw[156]>> <<SubWin[156]>>/<<SubLoss[156]>></b> <a href="exec:i=156&GT ''npcview''">see</a>'
$npc[157]='<b><<$nikname[157]>></b> rating <<rating[157]>> <b><<win[157]>>-<<loss[157]>>-<<draw[157]>> <<SubWin[157]>>/<<SubLoss[157]>></b> <a href="exec:i=157&GT ''npcview''">see</a>'
$npc[158]='<b><<$nikname[158]>></b> rating <<rating[158]>> <b><<win[158]>>-<<loss[158]>>-<<draw[158]>> <<SubWin[158]>>/<<SubLoss[158]>></b> <a href="exec:i=158&GT ''npcview''">see</a>'
$npc[159]='<b><<$nikname[159]>></b> rating <<rating[159]>> <b><<win[159]>>-<<loss[159]>>-<<draw[159]>> <<SubWin[159]>>/<<SubLoss[159]>></b> <a href="exec:i=159&GT ''npcview''">see</a>'
$npc[160]='<b><<$nikname[160]>></b> rating <<rating[160]>> <b><<win[160]>>-<<loss[160]>>-<<draw[160]>> <<SubWin[160]>>/<<SubLoss[160]>></b> <a href="exec:i=160&GT ''npcview''">see</a>'
$npc[161]='<b><<$nikname[161]>></b> rating <<rating[161]>> <b><<win[161]>>-<<loss[161]>>-<<draw[161]>> <<SubWin[161]>>/<<SubLoss[161]>></b> <a href="exec:i=161&GT ''npcview''">see</a>'
$npc[162]='<b><<$nikname[162]>></b> rating <<rating[162]>> <b><<win[162]>>-<<loss[162]>>-<<draw[162]>> <<SubWin[162]>>/<<SubLoss[162]>></b> <a href="exec:i=162&GT ''npcview''">see</a>'
$npc[163]='<b><<$nikname[163]>></b> rating <<rating[163]>> <b><<win[163]>>-<<loss[163]>>-<<draw[163]>> <<SubWin[163]>>/<<SubLoss[163]>></b> <a href="exec:i=163&GT ''npcview''">see</a>'
$npc[164]='<b><<$nikname[164]>></b> rating <<rating[164]>> <b><<win[164]>>-<<loss[164]>>-<<draw[164]>> <<SubWin[164]>>/<<SubLoss[164]>></b> <a href="exec:i=164&GT ''npcview''">see</a>'
$npc[165]='<b><<$nikname[165]>></b> rating <<rating[165]>> <b><<win[165]>>-<<loss[165]>>-<<draw[165]>> <<SubWin[165]>>/<<SubLoss[165]>></b> <a href="exec:i=165&GT ''npcview''">see</a>'
$npc[166]='<b><<$nikname[166]>></b> rating <<rating[166]>> <b><<win[166]>>-<<loss[166]>>-<<draw[166]>> <<SubWin[166]>>/<<SubLoss[166]>></b> <a href="exec:i=166&GT ''npcview''">see</a>'
$npc[167]='<b><<$nikname[167]>></b> rating <<rating[167]>> <b><<win[167]>>-<<loss[167]>>-<<draw[167]>> <<SubWin[167]>>/<<SubLoss[167]>></b> <a href="exec:i=167&GT ''npcview''">see</a>'
$npc[168]='<b><<$nikname[168]>></b> rating <<rating[168]>> <b><<win[168]>>-<<loss[168]>>-<<draw[168]>> <<SubWin[168]>>/<<SubLoss[168]>></b> <a href="exec:i=168&GT ''npcview''">see</a>'
$npc[169]='<b><<$nikname[169]>></b> rating <<rating[169]>> <b><<win[169]>>-<<loss[169]>>-<<draw[169]>> <<SubWin[169]>>/<<SubLoss[169]>></b> <a href="exec:i=169&GT ''npcview''">see</a>'
$npc[170]='<b><<$nikname[170]>></b> rating <<rating[170]>> <b><<win[170]>>-<<loss[170]>>-<<draw[170]>> <<SubWin[170]>>/<<SubLoss[170]>></b> <a href="exec:i=170&GT ''npcview''">see</a>'
$npc[171]='<b><<$nikname[171]>></b> rating <<rating[171]>> <b><<win[171]>>-<<loss[171]>>-<<draw[171]>> <<SubWin[171]>>/<<SubLoss[171]>></b> <a href="exec:i=171&GT ''npcview''">see</a>'
$npc[172]='<b><<$nikname[172]>></b> rating <<rating[172]>> <b><<win[172]>>-<<loss[172]>>-<<draw[172]>> <<SubWin[172]>>/<<SubLoss[172]>></b> <a href="exec:i=172&GT ''npcview''">see</a>'
$npc[173]='<b><<$nikname[173]>></b> rating <<rating[173]>> <b><<win[173]>>-<<loss[173]>>-<<draw[173]>> <<SubWin[173]>>/<<SubLoss[173]>></b> <a href="exec:i=173&GT ''npcview''">see</a>'
$npc[174]='<b><<$nikname[174]>></b> rating <<rating[174]>> <b><<win[174]>>-<<loss[174]>>-<<draw[174]>> <<SubWin[174]>>/<<SubLoss[174]>></b> <a href="exec:i=174&GT ''npcview''">see</a>'
$npc[175]='<b><<$nikname[175]>></b> rating <<rating[175]>> <b><<win[175]>>-<<loss[175]>>-<<draw[175]>> <<SubWin[175]>>/<<SubLoss[175]>></b> <a href="exec:i=175&GT ''npcview''">see</a>'
$npc[176]='<b><<$nikname[176]>></b> rating <<rating[176]>> <b><<win[176]>>-<<loss[176]>>-<<draw[176]>> <<SubWin[176]>>/<<SubLoss[176]>></b> <a href="exec:i=176&GT ''npcview''">see</a>'
$npc[177]='<b><<$nikname[177]>></b> rating <<rating[177]>> <b><<win[177]>>-<<loss[177]>>-<<draw[177]>> <<SubWin[177]>>/<<SubLoss[177]>></b> <a href="exec:i=177&GT ''npcview''">see</a>'
$npc[178]='<b><<$nikname[178]>></b> rating <<rating[178]>> <b><<win[178]>>-<<loss[178]>>-<<draw[178]>> <<SubWin[178]>>/<<SubLoss[178]>></b> <a href="exec:i=178&GT ''npcview''">see</a>'
$npc[179]='<b><<$nikname[179]>></b> rating <<rating[179]>> <b><<win[179]>>-<<loss[179]>>-<<draw[179]>> <<SubWin[179]>>/<<SubLoss[179]>></b> <a href="exec:i=179&GT ''npcview''">see</a>'
$npc[180]='<b><<$nikname[180]>></b> rating <<rating[180]>> <b><<win[180]>>-<<loss[180]>>-<<draw[180]>> <<SubWin[180]>>/<<SubLoss[180]>></b> <a href="exec:i=180&GT ''npcview''">see</a>'
$npc[181]='<b><<$nikname[181]>></b> rating <<rating[181]>> <b><<win[181]>>-<<loss[181]>>-<<draw[181]>> <<SubWin[181]>>/<<SubLoss[181]>></b> <a href="exec:i=181&GT ''npcview''">see</a>'
$npc[182]='<b><<$nikname[182]>></b> rating <<rating[182]>> <b><<win[182]>>-<<loss[182]>>-<<draw[182]>> <<SubWin[182]>>/<<SubLoss[182]>></b> <a href="exec:i=182&GT ''npcview''">see</a>'
$npc[183]='<b><<$nikname[183]>></b> rating <<rating[183]>> <b><<win[183]>>-<<loss[183]>>-<<draw[183]>> <<SubWin[183]>>/<<SubLoss[183]>></b> <a href="exec:i=183&GT ''npcview''">see</a>'
$npc[184]='<b><<$nikname[184]>></b> rating <<rating[184]>> <b><<win[184]>>-<<loss[184]>>-<<draw[184]>> <<SubWin[184]>>/<<SubLoss[184]>></b> <a href="exec:i=184&GT ''npcview''">see</a>'
$npc[185]='<b><<$nikname[185]>></b> rating <<rating[185]>> <b><<win[185]>>-<<loss[185]>>-<<draw[185]>> <<SubWin[185]>>/<<SubLoss[185]>></b> <a href="exec:i=185&GT ''npcview''">see</a>'
$npc[186]='<b><<$nikname[186]>></b> rating <<rating[186]>> <b><<win[186]>>-<<loss[186]>>-<<draw[186]>> <<SubWin[186]>>/<<SubLoss[186]>></b> <a href="exec:i=186&GT ''npcview''">see</a>'
$npc[187]='<b><<$nikname[187]>></b> rating <<rating[187]>> <b><<win[187]>>-<<loss[187]>>-<<draw[187]>> <<SubWin[187]>>/<<SubLoss[187]>></b> <a href="exec:i=187&GT ''npcview''">see</a>'
$npc[188]='<b><<$nikname[188]>></b> rating <<rating[188]>> <b><<win[188]>>-<<loss[188]>>-<<draw[188]>> <<SubWin[188]>>/<<SubLoss[188]>></b> <a href="exec:i=188&GT ''npcview''">see</a>'
$npc[189]='<b><<$nikname[189]>></b> rating <<rating[189]>> <b><<win[189]>>-<<loss[189]>>-<<draw[189]>> <<SubWin[189]>>/<<SubLoss[189]>></b> <a href="exec:i=189&GT ''npcview''">see</a>'
$npc[190]='<b><<$nikname[190]>></b> rating <<rating[190]>> <b><<win[190]>>-<<loss[190]>>-<<draw[190]>> <<SubWin[190]>>/<<SubLoss[190]>></b> <a href="exec:i=190&GT ''npcview''">see</a>'
$npc[191]='<b><<$nikname[191]>></b> rating <<rating[191]>> <b><<win[191]>>-<<loss[191]>>-<<draw[191]>> <<SubWin[191]>>/<<SubLoss[191]>></b> <a href="exec:i=191&GT ''npcview''">see</a>'
$npc[192]='<b><<$nikname[192]>></b> rating <<rating[192]>> <b><<win[192]>>-<<loss[192]>>-<<draw[192]>> <<SubWin[192]>>/<<SubLoss[192]>></b> <a href="exec:i=192&GT ''npcview''">see</a>'
$npc[193]='<b><<$nikname[193]>></b> rating <<rating[193]>> <b><<win[193]>>-<<loss[193]>>-<<draw[193]>> <<SubWin[193]>>/<<SubLoss[193]>></b> <a href="exec:i=193&GT ''npcview''">see</a>'
$npc[194]='<b><<$nikname[194]>></b> rating <<rating[194]>> <b><<win[194]>>-<<loss[194]>>-<<draw[194]>> <<SubWin[194]>>/<<SubLoss[194]>></b> <a href="exec:i=194&GT ''npcview''">see</a>'
$npc[195]='<b><<$nikname[195]>></b> rating <<rating[195]>> <b><<win[195]>>-<<loss[195]>>-<<draw[195]>> <<SubWin[195]>>/<<SubLoss[195]>></b> <a href="exec:i=195&GT ''npcview''">see</a>'
$npc[196]='<b><<$nikname[196]>></b> rating <<rating[196]>> <b><<win[196]>>-<<loss[196]>>-<<draw[196]>> <<SubWin[196]>>/<<SubLoss[196]>></b> <a href="exec:i=196&GT ''npcview''">see</a>'
$npc[197]='<b><<$nikname[197]>></b> rating <<rating[197]>> <b><<win[197]>>-<<loss[197]>>-<<draw[197]>> <<SubWin[197]>>/<<SubLoss[197]>></b> <a href="exec:i=197&GT ''npcview''">see</a>'
$npc[198]='<b><<$nikname[198]>></b> rating <<rating[198]>> <b><<win[198]>>-<<loss[198]>>-<<draw[198]>> <<SubWin[198]>>/<<SubLoss[198]>></b> <a href="exec:i=198&GT ''npcview''">see</a>'
$npc[199]='<b><<$nikname[199]>></b> rating <<rating[199]>> <b><<win[199]>>-<<loss[199]>>-<<draw[199]>> <<SubWin[199]>>/<<SubLoss[199]>></b> <a href="exec:i=199&GT ''npcview''">see</a>'
$npc[200]='<b><<$nikname[200]>></b> rating <<rating[200]>> <b><<win[200]>>-<<loss[200]>>-<<draw[200]>> <<SubWin[200]>>/<<SubLoss[200]>></b> <a href="exec:i=200&GT ''npcview''">see</a>'
$npc[201]='<b><<$nikname[201]>></b> rating <<rating[201]>> <b><<win[201]>>-<<loss[201]>>-<<draw[201]>> <<SubWin[201]>>/<<SubLoss[201]>></b> <a href="exec:i=201&GT ''npcview''">see</a>'
$npc[202]='<b><<$nikname[202]>></b> rating <<rating[202]>> <b><<win[202]>>-<<loss[202]>>-<<draw[202]>> <<SubWin[202]>>/<<SubLoss[202]>></b> <a href="exec:i=202&GT ''npcview''">see</a>'
$npc[203]='<b><<$nikname[203]>></b> rating <<rating[203]>> <b><<win[203]>>-<<loss[203]>>-<<draw[203]>> <<SubWin[203]>>/<<SubLoss[203]>></b> <a href="exec:i=203&GT ''npcview''">see</a>'
$npc[204]='<b><<$nikname[204]>></b> rating <<rating[204]>> <b><<win[204]>>-<<loss[204]>>-<<draw[204]>> <<SubWin[204]>>/<<SubLoss[204]>></b> <a href="exec:i=204&GT ''npcview''">see</a>'
$npc[205]='<b><<$nikname[205]>></b> rating <<rating[205]>> <b><<win[205]>>-<<loss[205]>>-<<draw[205]>> <<SubWin[205]>>/<<SubLoss[205]>></b> <a href="exec:i=205&GT ''npcview''">see</a>'
$npc[206]='<b><<$nikname[206]>></b> rating <<rating[206]>> <b><<win[206]>>-<<loss[206]>>-<<draw[206]>> <<SubWin[206]>>/<<SubLoss[206]>></b> <a href="exec:i=206&GT ''npcview''">see</a>'
$npc[207]='<b><<$nikname[207]>></b> rating <<rating[207]>> <b><<win[207]>>-<<loss[207]>>-<<draw[207]>> <<SubWin[207]>>/<<SubLoss[207]>></b> <a href="exec:i=207&GT ''npcview''">see</a>'
$npc[208]='<b><<$nikname[208]>></b> rating <<rating[208]>> <b><<win[208]>>-<<loss[208]>>-<<draw[208]>> <<SubWin[208]>>/<<SubLoss[208]>></b> <a href="exec:i=208&GT ''npcview''">see</a>'
$npc[209]='<b><<$nikname[209]>></b> rating <<rating[209]>> <b><<win[209]>>-<<loss[209]>>-<<draw[209]>> <<SubWin[209]>>/<<SubLoss[209]>></b> <a href="exec:i=209&GT ''npcview''">see</a>'
$npc[210]='<b><<$nikname[210]>></b> rating <<rating[210]>> <b><<win[210]>>-<<loss[210]>>-<<draw[210]>> <<SubWin[210]>>/<<SubLoss[210]>></b> <a href="exec:i=210&GT ''npcview''">see</a>'
$npc[211]='<b><<$nikname[211]>></b> rating <<rating[211]>> <b><<win[211]>>-<<loss[211]>>-<<draw[211]>> <<SubWin[211]>>/<<SubLoss[211]>></b> <a href="exec:i=211&GT ''npcview''">see</a>'
$npc[212]='<b><<$nikname[212]>></b> rating <<rating[212]>> <b><<win[212]>>-<<loss[212]>>-<<draw[212]>> <<SubWin[212]>>/<<SubLoss[212]>></b> <a href="exec:i=212&GT ''npcview''">see</a>'
$npc[213]='<b><<$nikname[213]>></b> rating <<rating[213]>> <b><<win[213]>>-<<loss[213]>>-<<draw[213]>> <<SubWin[213]>>/<<SubLoss[213]>></b> <a href="exec:i=213&GT ''npcview''">see</a>'
$npc[214]='<b><<$nikname[214]>></b> rating <<rating[214]>> <b><<win[214]>>-<<loss[214]>>-<<draw[214]>> <<SubWin[214]>>/<<SubLoss[214]>></b> <a href="exec:i=214&GT ''npcview''">see</a>'
$npc[215]='<b><<$nikname[215]>></b> rating <<rating[215]>> <b><<win[215]>>-<<loss[215]>>-<<draw[215]>> <<SubWin[215]>>/<<SubLoss[215]>></b> <a href="exec:i=215&GT ''npcview''">see</a>'
$npc[216]='<b><<$nikname[216]>></b> rating <<rating[216]>> <b><<win[216]>>-<<loss[216]>>-<<draw[216]>> <<SubWin[216]>>/<<SubLoss[216]>></b> <a href="exec:i=216&GT ''npcview''">see</a>'
$npc[217]='<b><<$nikname[217]>></b> rating <<rating[217]>> <b><<win[217]>>-<<loss[217]>>-<<draw[217]>> <<SubWin[217]>>/<<SubLoss[217]>></b> <a href="exec:i=217&GT ''npcview''">see</a>'
$npc[218]='<b><<$nikname[218]>></b> rating <<rating[218]>> <b><<win[218]>>-<<loss[218]>>-<<draw[218]>> <<SubWin[218]>>/<<SubLoss[218]>></b> <a href="exec:i=218&GT ''npcview''">see</a>'
$npc[219]='<b><<$nikname[219]>></b> rating <<rating[219]>> <b><<win[219]>>-<<loss[219]>>-<<draw[219]>> <<SubWin[219]>>/<<SubLoss[219]>></b> <a href="exec:i=219&GT ''npcview''">see</a>'
$npc[220]='<b><<$nikname[220]>></b> rating <<rating[220]>> <b><<win[220]>>-<<loss[220]>>-<<draw[220]>> <<SubWin[220]>>/<<SubLoss[220]>></b> <a href="exec:i=220&GT ''npcview''">see</a>'
$npc[221]='<b><<$nikname[221]>></b> rating <<rating[221]>> <b><<win[221]>>-<<loss[221]>>-<<draw[221]>> <<SubWin[221]>>/<<SubLoss[221]>></b> <a href="exec:i=221&GT ''npcview''">see</a>'
$npc[222]='<b><<$nikname[222]>></b> rating <<rating[222]>> <b><<win[222]>>-<<loss[222]>>-<<draw[222]>> <<SubWin[222]>>/<<SubLoss[222]>></b> <a href="exec:i=222&GT ''npcview''">see</a>'
$npc[223]='<b><<$nikname[223]>></b> rating <<rating[223]>> <b><<win[223]>>-<<loss[223]>>-<<draw[223]>> <<SubWin[223]>>/<<SubLoss[223]>></b> <a href="exec:i=223&GT ''npcview''">see</a>'
$npc[224]='<b><<$nikname[224]>></b> rating <<rating[224]>> <b><<win[224]>>-<<loss[224]>>-<<draw[224]>> <<SubWin[224]>>/<<SubLoss[224]>></b> <a href="exec:i=224&GT ''npcview''">see</a>'
$npc[225]='<b><<$nikname[225]>></b> rating <<rating[225]>> <b><<win[225]>>-<<loss[225]>>-<<draw[225]>> <<SubWin[225]>>/<<SubLoss[225]>></b> <a href="exec:i=225&GT ''npcview''">see</a>'
$npc[226]='<b><<$nikname[226]>></b> rating <<rating[226]>> <b><<win[226]>>-<<loss[226]>>-<<draw[226]>> <<SubWin[226]>>/<<SubLoss[226]>></b> <a href="exec:i=226&GT ''npcview''">see</a>'
$npc[227]='<b><<$nikname[227]>></b> rating <<rating[227]>> <b><<win[227]>>-<<loss[227]>>-<<draw[227]>> <<SubWin[227]>>/<<SubLoss[227]>></b> <a href="exec:i=227&GT ''npcview''">see</a>'
$npc[228]='<b><<$nikname[228]>></b> rating <<rating[228]>> <b><<win[228]>>-<<loss[228]>>-<<draw[228]>> <<SubWin[228]>>/<<SubLoss[228]>></b> <a href="exec:i=228&GT ''npcview''">see</a>'
$npc[229]='<b><<$nikname[229]>></b> rating <<rating[229]>> <b><<win[229]>>-<<loss[229]>>-<<draw[229]>> <<SubWin[229]>>/<<SubLoss[229]>></b> <a href="exec:i=229&GT ''npcview''">see</a>'
$npc[230]='<b><<$nikname[230]>></b> rating <<rating[230]>> <b><<win[230]>>-<<loss[230]>>-<<draw[230]>> <<SubWin[230]>>/<<SubLoss[230]>></b> <a href="exec:i=230&GT ''npcview''">see</a>'
$npc[231]='<b><<$nikname[231]>></b> rating <<rating[231]>> <b><<win[231]>>-<<loss[231]>>-<<draw[231]>> <<SubWin[231]>>/<<SubLoss[231]>></b> <a href="exec:i=231&GT ''npcview''">see</a>'
$npc[232]='<b><<$nikname[232]>></b> rating <<rating[232]>> <b><<win[232]>>-<<loss[232]>>-<<draw[232]>> <<SubWin[232]>>/<<SubLoss[232]>></b> <a href="exec:i=232&GT ''npcview''">see</a>'
$npc[233]='<b><<$nikname[233]>></b> rating <<rating[233]>> <b><<win[233]>>-<<loss[233]>>-<<draw[233]>> <<SubWin[233]>>/<<SubLoss[233]>></b> <a href="exec:i=233&GT ''npcview''">see</a>'
$npc[234]='<b><<$nikname[234]>></b> rating <<rating[234]>> <b><<win[234]>>-<<loss[234]>>-<<draw[234]>> <<SubWin[234]>>/<<SubLoss[234]>></b> <a href="exec:i=234&GT ''npcview''">see</a>'
$npc[235]='<b><<$nikname[235]>></b> rating <<rating[235]>> <b><<win[235]>>-<<loss[235]>>-<<draw[235]>> <<SubWin[235]>>/<<SubLoss[235]>></b> <a href="exec:i=235&GT ''npcview''">see</a>'
$npc[236]='<b><<$nikname[236]>></b> rating <<rating[236]>> <b><<win[236]>>-<<loss[236]>>-<<draw[236]>> <<SubWin[236]>>/<<SubLoss[236]>></b> <a href="exec:i=236&GT ''npcview''">see</a>'
$npc[237]='<b><<$nikname[237]>></b> rating <<rating[237]>> <b><<win[237]>>-<<loss[237]>>-<<draw[237]>> <<SubWin[237]>>/<<SubLoss[237]>></b> <a href="exec:i=237&GT ''npcview''">see</a>'
$npc[238]='<b><<$nikname[238]>></b> rating <<rating[238]>> <b><<win[238]>>-<<loss[238]>>-<<draw[238]>> <<SubWin[238]>>/<<SubLoss[238]>></b> <a href="exec:i=238&GT ''npcview''">see</a>'
$npc[239]='<b><<$nikname[239]>></b> rating <<rating[239]>> <b><<win[239]>>-<<loss[239]>>-<<draw[239]>> <<SubWin[239]>>/<<SubLoss[239]>></b> <a href="exec:i=239&GT ''npcview''">see</a>'
$npc[240]='<b><<$nikname[240]>></b> rating <<rating[240]>> <b><<win[240]>>-<<loss[240]>>-<<draw[240]>> <<SubWin[240]>>/<<SubLoss[240]>></b> <a href="exec:i=240&GT ''npcview''">see</a>'
$npc[241]='<b><<$nikname[241]>></b> rating <<rating[241]>> <b><<win[241]>>-<<loss[241]>>-<<draw[241]>> <<SubWin[241]>>/<<SubLoss[241]>></b> <a href="exec:i=241&GT ''npcview''">see</a>'
$npc[242]='<b><<$nikname[242]>></b> rating <<rating[242]>> <b><<win[242]>>-<<loss[242]>>-<<draw[242]>> <<SubWin[242]>>/<<SubLoss[242]>></b> <a href="exec:i=242&GT ''npcview''">see</a>'
$npc[243]='<b><<$nikname[243]>></b> rating <<rating[243]>> <b><<win[243]>>-<<loss[243]>>-<<draw[243]>> <<SubWin[243]>>/<<SubLoss[243]>></b> <a href="exec:i=243&GT ''npcview''">see</a>'
$npc[244]='<b><<$nikname[244]>></b> rating <<rating[244]>> <b><<win[244]>>-<<loss[244]>>-<<draw[244]>> <<SubWin[244]>>/<<SubLoss[244]>></b> <a href="exec:i=244&GT ''npcview''">see</a>'
$npc[245]='<b><<$nikname[245]>></b> rating <<rating[245]>> <b><<win[245]>>-<<loss[245]>>-<<draw[245]>> <<SubWin[245]>>/<<SubLoss[245]>></b> <a href="exec:i=245&GT ''npcview''">see</a>'
$npc[246]='<b><<$nikname[246]>></b> rating <<rating[246]>> <b><<win[246]>>-<<loss[246]>>-<<draw[246]>> <<SubWin[246]>>/<<SubLoss[246]>></b> <a href="exec:i=246&GT ''npcview''">see</a>'
$npc[247]='<b><<$nikname[247]>></b> rating <<rating[247]>> <b><<win[247]>>-<<loss[247]>>-<<draw[247]>> <<SubWin[247]>>/<<SubLoss[247]>></b> <a href="exec:i=247&GT ''npcview''">see</a>'
$npc[248]='<b><<$nikname[248]>></b> rating <<rating[248]>> <b><<win[248]>>-<<loss[248]>>-<<draw[248]>> <<SubWin[248]>>/<<SubLoss[248]>></b> <a href="exec:i=248&GT ''npcview''">see</a>'
$npc[249]='<b><<$nikname[249]>></b> rating <<rating[249]>> <b><<win[249]>>-<<loss[249]>>-<<draw[249]>> <<SubWin[249]>>/<<SubLoss[249]>></b> <a href="exec:i=249&GT ''npcview''">see</a>'
$npc[250]='<b><<$nikname[250]>></b> rating <<rating[250]>> <b><<win[250]>>-<<loss[250]>>-<<draw[250]>> <<SubWin[250]>>/<<SubLoss[250]>></b> <a href="exec:i=250&GT ''npcview''">see</a>'
$npc[251]='<b><<$nikname[251]>></b> rating <<rating[251]>> <b><<win[251]>>-<<loss[251]>>-<<draw[251]>> <<SubWin[251]>>/<<SubLoss[251]>></b> <a href="exec:i=251&GT ''npcview''">see</a>'
$npc[252]='<b><<$nikname[252]>></b> rating <<rating[252]>> <b><<win[252]>>-<<loss[252]>>-<<draw[252]>> <<SubWin[252]>>/<<SubLoss[252]>></b> <a href="exec:i=252&GT ''npcview''">see</a>'
$npc[253]='<b><<$nikname[253]>></b> rating <<rating[253]>> <b><<win[253]>>-<<loss[253]>>-<<draw[253]>> <<SubWin[253]>>/<<SubLoss[253]>></b> <a href="exec:i=253&GT ''npcview''">see</a>'
$npc[254]='<b><<$nikname[254]>></b> rating <<rating[254]>> <b><<win[254]>>-<<loss[254]>>-<<draw[254]>> <<SubWin[254]>>/<<SubLoss[254]>></b> <a href="exec:i=254&GT ''npcview''">see</a>'
$npc[255]='<b><<$nikname[255]>></b> rating <<rating[255]>> <b><<win[255]>>-<<loss[255]>>-<<draw[255]>> <<SubWin[255]>>/<<SubLoss[255]>></b> <a href="exec:i=255&GT ''npcview''">see</a>'
$npc[256]='<b><<$nikname[256]>></b> rating <<rating[256]>> <b><<win[256]>>-<<loss[256]>>-<<draw[256]>> <<SubWin[256]>>/<<SubLoss[256]>></b> <a href="exec:i=256&GT ''npcview''">see</a>'
$npc[257]='<b><<$nikname[257]>></b> rating <<rating[257]>> <b><<win[257]>>-<<loss[257]>>-<<draw[257]>> <<SubWin[257]>>/<<SubLoss[257]>></b> <a href="exec:i=257&GT ''npcview''">see</a>'
$npc[258]='<b><<$nikname[258]>></b> rating <<rating[258]>> <b><<win[258]>>-<<loss[258]>>-<<draw[258]>> <<SubWin[258]>>/<<SubLoss[258]>></b> <a href="exec:i=258&GT ''npcview''">see</a>'
$npc[259]='<b><<$nikname[259]>></b> rating <<rating[259]>> <b><<win[259]>>-<<loss[259]>>-<<draw[259]>> <<SubWin[259]>>/<<SubLoss[259]>></b> <a href="exec:i=259&GT ''npcview''">see</a>'
$npc[260]='<b><<$nikname[260]>></b> rating <<rating[260]>> <b><<win[260]>>-<<loss[260]>>-<<draw[260]>> <<SubWin[260]>>/<<SubLoss[260]>></b> <a href="exec:i=260&GT ''npcview''">see</a>'
$npc[261]='<b><<$nikname[261]>></b> rating <<rating[261]>> <b><<win[261]>>-<<loss[261]>>-<<draw[261]>> <<SubWin[261]>>/<<SubLoss[261]>></b> <a href="exec:i=261&GT ''npcview''">see</a>'
$npc[262]='<b><<$nikname[262]>></b> rating <<rating[262]>> <b><<win[262]>>-<<loss[262]>>-<<draw[262]>> <<SubWin[262]>>/<<SubLoss[262]>></b> <a href="exec:i=262&GT ''npcview''">see</a>'
$npc[263]='<b><<$nikname[263]>></b> rating <<rating[263]>> <b><<win[263]>>-<<loss[263]>>-<<draw[263]>> <<SubWin[263]>>/<<SubLoss[263]>></b> <a href="exec:i=263&GT ''npcview''">see</a>'
$npc[264]='<b><<$nikname[264]>></b> rating <<rating[264]>> <b><<win[264]>>-<<loss[264]>>-<<draw[264]>> <<SubWin[264]>>/<<SubLoss[264]>></b> <a href="exec:i=264&GT ''npcview''">see</a>'
$npc[265]='<b><<$nikname[265]>></b> rating <<rating[265]>> <b><<win[265]>>-<<loss[265]>>-<<draw[265]>> <<SubWin[265]>>/<<SubLoss[265]>></b> <a href="exec:i=265&GT ''npcview''">see</a>'
$npc[266]='<b><<$nikname[266]>></b> rating <<rating[266]>> <b><<win[266]>>-<<loss[266]>>-<<draw[266]>> <<SubWin[266]>>/<<SubLoss[266]>></b> <a href="exec:i=266&GT ''npcview''">see</a>'
$npc[267]='<b><<$nikname[267]>></b> rating <<rating[267]>> <b><<win[267]>>-<<loss[267]>>-<<draw[267]>> <<SubWin[267]>>/<<SubLoss[267]>></b> <a href="exec:i=267&GT ''npcview''">see</a>'
$npc[268]='<b><<$nikname[268]>></b> rating <<rating[268]>> <b><<win[268]>>-<<loss[268]>>-<<draw[268]>> <<SubWin[268]>>/<<SubLoss[268]>></b> <a href="exec:i=268&GT ''npcview''">see</a>'
$npc[269]='<b><<$nikname[269]>></b> rating <<rating[269]>> <b><<win[269]>>-<<loss[269]>>-<<draw[269]>> <<SubWin[269]>>/<<SubLoss[269]>></b> <a href="exec:i=269&GT ''npcview''">see</a>'
$npc[270]='<b><<$nikname[270]>></b> rating <<rating[270]>> <b><<win[270]>>-<<loss[270]>>-<<draw[270]>> <<SubWin[270]>>/<<SubLoss[270]>></b> <a href="exec:i=270&GT ''npcview''">see</a>'
$npc[271]='<b><<$nikname[271]>></b> rating <<rating[271]>> <b><<win[271]>>-<<loss[271]>>-<<draw[271]>> <<SubWin[271]>>/<<SubLoss[271]>></b> <a href="exec:i=271&GT ''npcview''">see</a>'
$npc[272]='<b><<$nikname[272]>></b> rating <<rating[272]>> <b><<win[272]>>-<<loss[272]>>-<<draw[272]>> <<SubWin[272]>>/<<SubLoss[272]>></b> <a href="exec:i=272&GT ''npcview''">see</a>'
$npc[273]='<b><<$nikname[273]>></b> rating <<rating[273]>> <b><<win[273]>>-<<loss[273]>>-<<draw[273]>> <<SubWin[273]>>/<<SubLoss[273]>></b> <a href="exec:i=273&GT ''npcview''">see</a>'
$npc[274]='<b><<$nikname[274]>></b> rating <<rating[274]>> <b><<win[274]>>-<<loss[274]>>-<<draw[274]>> <<SubWin[274]>>/<<SubLoss[274]>></b> <a href="exec:i=274&GT ''npcview''">see</a>'
$npc[275]='<b><<$nikname[275]>></b> rating <<rating[275]>> <b><<win[275]>>-<<loss[275]>>-<<draw[275]>> <<SubWin[275]>>/<<SubLoss[275]>></b> <a href="exec:i=275&GT ''npcview''">see</a>'
$npc[276]='<b><<$nikname[276]>></b> rating <<rating[276]>> <b><<win[276]>>-<<loss[276]>>-<<draw[276]>> <<SubWin[276]>>/<<SubLoss[276]>></b> <a href="exec:i=276&GT ''npcview''">see</a>'
$npc[277]='<b><<$nikname[277]>></b> rating <<rating[277]>> <b><<win[277]>>-<<loss[277]>>-<<draw[277]>> <<SubWin[277]>>/<<SubLoss[277]>></b> <a href="exec:i=277&GT ''npcview''">see</a>'
$npc[278]='<b><<$nikname[278]>></b> rating <<rating[278]>> <b><<win[278]>>-<<loss[278]>>-<<draw[278]>> <<SubWin[278]>>/<<SubLoss[278]>></b> <a href="exec:i=278&GT ''npcview''">see</a>'
$npc[279]='<b><<$nikname[279]>></b> rating <<rating[279]>> <b><<win[279]>>-<<loss[279]>>-<<draw[279]>> <<SubWin[279]>>/<<SubLoss[279]>></b> <a href="exec:i=279&GT ''npcview''">see</a>'
$npc[280]='<b><<$nikname[280]>></b> rating <<rating[280]>> <b><<win[280]>>-<<loss[280]>>-<<draw[280]>> <<SubWin[280]>>/<<SubLoss[280]>></b> <a href="exec:i=280&GT ''npcview''">see</a>'
$npc[281]='<b><<$nikname[281]>></b> rating <<rating[281]>> <b><<win[281]>>-<<loss[281]>>-<<draw[281]>> <<SubWin[281]>>/<<SubLoss[281]>></b> <a href="exec:i=281&GT ''npcview''">see</a>'
$npc[282]='<b><<$nikname[282]>></b> rating <<rating[282]>> <b><<win[282]>>-<<loss[282]>>-<<draw[282]>> <<SubWin[282]>>/<<SubLoss[282]>></b> <a href="exec:i=282&GT ''npcview''">see</a>'
$npc[283]='<b><<$nikname[283]>></b> rating <<rating[283]>> <b><<win[283]>>-<<loss[283]>>-<<draw[283]>> <<SubWin[283]>>/<<SubLoss[283]>></b> <a href="exec:i=283&GT ''npcview''">see</a>'
$npc[284]='<b><<$nikname[284]>></b> rating <<rating[284]>> <b><<win[284]>>-<<loss[284]>>-<<draw[284]>> <<SubWin[284]>>/<<SubLoss[284]>></b> <a href="exec:i=284&GT ''npcview''">see</a>'
$npc[285]='<b><<$nikname[285]>></b> rating <<rating[285]>> <b><<win[285]>>-<<loss[285]>>-<<draw[285]>> <<SubWin[285]>>/<<SubLoss[285]>></b> <a href="exec:i=285&GT ''npcview''">see</a>'
$npc[286]='<b><<$nikname[286]>></b> rating <<rating[286]>> <b><<win[286]>>-<<loss[286]>>-<<draw[286]>> <<SubWin[286]>>/<<SubLoss[286]>></b> <a href="exec:i=286&GT ''npcview''">see</a>'
$npc[287]='<b><<$nikname[287]>></b> rating <<rating[287]>> <b><<win[287]>>-<<loss[287]>>-<<draw[287]>> <<SubWin[287]>>/<<SubLoss[287]>></b> <a href="exec:i=287&GT ''npcview''">see</a>'
$npc[288]='<b><<$nikname[288]>></b> rating <<rating[288]>> <b><<win[288]>>-<<loss[288]>>-<<draw[288]>> <<SubWin[288]>>/<<SubLoss[288]>></b> <a href="exec:i=288&GT ''npcview''">see</a>'
$npc[289]='<b><<$nikname[289]>></b> rating <<rating[289]>> <b><<win[289]>>-<<loss[289]>>-<<draw[289]>> <<SubWin[289]>>/<<SubLoss[289]>></b> <a href="exec:i=289&GT ''npcview''">see</a>'
$npc[290]='<b><<$nikname[290]>></b> rating <<rating[290]>> <b><<win[290]>>-<<loss[290]>>-<<draw[290]>> <<SubWin[290]>>/<<SubLoss[290]>></b> <a href="exec:i=290&GT ''npcview''">see</a>'
$npc[291]='<b><<$nikname[291]>></b> rating <<rating[291]>> <b><<win[291]>>-<<loss[291]>>-<<draw[291]>> <<SubWin[291]>>/<<SubLoss[291]>></b> <a href="exec:i=291&GT ''npcview''">see</a>'
$npc[292]='<b><<$nikname[292]>></b> rating <<rating[292]>> <b><<win[292]>>-<<loss[292]>>-<<draw[292]>> <<SubWin[292]>>/<<SubLoss[292]>></b> <a href="exec:i=292&GT ''npcview''">see</a>'
$npc[293]='<b><<$nikname[293]>></b> rating <<rating[293]>> <b><<win[293]>>-<<loss[293]>>-<<draw[293]>> <<SubWin[293]>>/<<SubLoss[293]>></b> <a href="exec:i=293&GT ''npcview''">see</a>'
$npc[294]='<b><<$nikname[294]>></b> rating <<rating[294]>> <b><<win[294]>>-<<loss[294]>>-<<draw[294]>> <<SubWin[294]>>/<<SubLoss[294]>></b> <a href="exec:i=294&GT ''npcview''">see</a>'
$npc[295]='<b><<$nikname[295]>></b> rating <<rating[295]>> <b><<win[295]>>-<<loss[295]>>-<<draw[295]>> <<SubWin[295]>>/<<SubLoss[295]>></b> <a href="exec:i=295&GT ''npcview''">see</a>'
$npc[296]='<b><<$nikname[296]>></b> rating <<rating[296]>> <b><<win[296]>>-<<loss[296]>>-<<draw[296]>> <<SubWin[296]>>/<<SubLoss[296]>></b> <a href="exec:i=296&GT ''npcview''">see</a>'
$npc[297]='<b><<$nikname[297]>></b> rating <<rating[297]>> <b><<win[297]>>-<<loss[297]>>-<<draw[297]>> <<SubWin[297]>>/<<SubLoss[297]>></b> <a href="exec:i=297&GT ''npcview''">see</a>'
$npc[298]='<b><<$nikname[298]>></b> rating <<rating[298]>> <b><<win[298]>>-<<loss[298]>>-<<draw[298]>> <<SubWin[298]>>/<<SubLoss[298]>></b> <a href="exec:i=298&GT ''npcview''">see</a>'
$npc[299]='<b><<$nikname[299]>></b> rating <<rating[299]>> <b><<win[299]>>-<<loss[299]>>-<<draw[299]>> <<SubWin[299]>>/<<SubLoss[299]>></b> <a href="exec:i=299&GT ''npcview''">see</a>'
$npc[300]='<b><<$nikname[300]>></b> rating <<rating[300]>> <b><<win[300]>>-<<loss[300]>>-<<draw[300]>> <<SubWin[300]>>/<<SubLoss[300]>></b> <a href="exec:i=300&GT ''npcview''">see</a>'

'<center><b>league table</b></center>'
'<center>only <<NPCnum>> athletes</center>'
$ratMax=''
$rat100=''
$rat99=''
$rat98=''
$rat97=''
$rat96=''
$rat95=''
$rat94=''
$rat93=''
$rat92=''
$rat91=''
$rat90=''
$rat89=''
$rat88=''
$rat87=''
$rat86=''
$rat85=''
$rat84=''
$rat83=''
$rat82=''
$rat81=''
$rat80=''
$rat79=''
$rat78=''
$rat77=''
$rat76=''
$rat75=''
$rat74=''
$rat73=''
$rat72=''
$rat71=''
$rat70=''
$rat69=''
$rat68=''
$rat67=''
$rat66=''
$rat65=''
$rat64=''
$rat63=''
$rat62=''
$rat61=''
$rat60=''
$rat59=''
$rat58=''
$rat57=''
$rat56=''
$rat55=''
$rat54=''
$rat53=''
$rat52=''
$rat51=''
$rat50=''
$rat49=''
$rat48=''
$rat47=''
$rat46=''
$rat45=''
$rat44=''
$rat43=''
$rat42=''
$rat41=''
$rat40=''
$rat39=''
$rat38=''
$rat37=''
$rat36=''
$rat35=''
$rat34=''
$rat33=''
$rat32=''
$rat31=''
$rat30=''
$rat29=''
$rat28=''
$rat27=''
$rat26=''
$rat25=''
$rat24=''
$rat23=''
$rat22=''
$rat21=''
$rat20=''
$rat19=''
$rat18=''
$rat17=''
$rat16=''
$rat15=''
$rat14=''
$rat13=''
$rat12=''
$rat11=''
$rat10=''
$rat9=''
$rat8=''
$rat7=''
$rat6=''
$rat5=''
$rat4=''
$rat3=''
$rat2=''
$rat1=''
$rat0=''
$ratMin=''
num=0
:markratingwrite
num+=1

if rating[num]>100:$ratMax+=$npc[num]+'
'
if rating[num]=100:$rat100+=$npc[num]+'
'
if rating[num]=99:$rat99+=$npc[num]+'
'
if rating[num]=98:$rat98+=$npc[num]+'
'
if rating[num]=97:$rat97+=$npc[num]+'
'
if rating[num]=96:$rat96+=$npc[num]+'
'
if rating[num]=95:$rat95+=$npc[num]+'
'
if rating[num]=94:$rat94+=$npc[num]+'
'
if rating[num]=93:$rat93+=$npc[num]+'
'
if rating[num]=92:$rat92+=$npc[num]+'
'
if rating[num]=91:$rat91+=$npc[num]+'
'
if rating[num]=90:$rat90+=$npc[num]+'
'
if rating[num]=89:$rat89+=$npc[num]+'
'
if rating[num]=88:$rat88+=$npc[num]+'
'
if rating[num]=87:$rat87+=$npc[num]+'
'
if rating[num]=86:$rat86+=$npc[num]+'
'
if rating[num]=85:$rat85+=$npc[num]+'
'
if rating[num]=84:$rat84+=$npc[num]+'
'
if rating[num]=83:$rat83+=$npc[num]+'
'
if rating[num]=82:$rat82+=$npc[num]+'
'
if rating[num]=81:$rat81+=$npc[num]+'
'
if rating[num]=80:$rat80+=$npc[num]+'
'
if rating[num]=79:$rat79+=$npc[num]+'
'
if rating[num]=78:$rat78+=$npc[num]+'
'
if rating[num]=77:$rat77+=$npc[num]+'
'
if rating[num]=76:$rat76+=$npc[num]+'
'
if rating[num]=75:$rat75+=$npc[num]+'
'
if rating[num]=74:$rat74+=$npc[num]+'
'
if rating[num]=73:$rat73+=$npc[num]+'
'
if rating[num]=72:$rat72+=$npc[num]+'
'
if rating[num]=71:$rat71+=$npc[num]+'
'
if rating[num]=70:$rat70+=$npc[num]+'
'
if rating[num]=69:$rat69+=$npc[num]+'
'
if rating[num]=68:$rat68+=$npc[num]+'
'
if rating[num]=67:$rat67+=$npc[num]+'
'
if rating[num]=66:$rat66+=$npc[num]+'
'
if rating[num]=65:$rat65+=$npc[num]+'
'
if rating[num]=64:$rat64+=$npc[num]+'
'
if rating[num]=63:$rat63+=$npc[num]+'
'
if rating[num]=62:$rat62+=$npc[num]+'
'
if rating[num]=61:$rat61+=$npc[num]+'
'
if rating[num]=60:$rat60+=$npc[num]+'
'
if rating[num]=59:$rat59+=$npc[num]+'
'
if rating[num]=58:$rat58+=$npc[num]+'
'
if rating[num]=57:$rat57+=$npc[num]+'
'
if rating[num]=56:$rat56+=$npc[num]+'
'
if rating[num]=55:$rat55+=$npc[num]+'
'
if rating[num]=54:$rat54+=$npc[num]+'
'
if rating[num]=53:$rat53+=$npc[num]+'
'
if rating[num]=52:$rat52+=$npc[num]+'
'
if rating[num]=51:$rat51+=$npc[num]+'
'
if rating[num]=50:$rat50+=$npc[num]+'
'
if rating[num]=49:$rat49+=$npc[num]+'
'
if rating[num]=48:$rat48+=$npc[num]+'
'
if rating[num]=47:$rat47+=$npc[num]+'
'
if rating[num]=46:$rat46+=$npc[num]+'
'
if rating[num]=45:$rat45+=$npc[num]+'
'
if rating[num]=44:$rat44+=$npc[num]+'
'
if rating[num]=43:$rat43+=$npc[num]+'
'
if rating[num]=42:$rat42+=$npc[num]+'
'
if rating[num]=41:$rat41+=$npc[num]+'
'
if rating[num]=40:$rat40+=$npc[num]+'
'
if rating[num]=39:$rat39+=$npc[num]+'
'
if rating[num]=38:$rat38+=$npc[num]+'
'
if rating[num]=37:$rat37+=$npc[num]+'
'
if rating[num]=36:$rat36+=$npc[num]+'
'
if rating[num]=35:$rat35+=$npc[num]+'
'
if rating[num]=34:$rat34+=$npc[num]+'
'
if rating[num]=33:$rat33+=$npc[num]+'
'
if rating[num]=32:$rat32+=$npc[num]+'
'
if rating[num]=31:$rat31+=$npc[num]+'
'
if rating[num]=30:$rat30+=$npc[num]+'
'
if rating[num]=29:$rat29+=$npc[num]+'
'
if rating[num]=28:$rat28+=$npc[num]+'
'
if rating[num]=27:$rat27+=$npc[num]+'
'
if rating[num]=26:$rat26+=$npc[num]+'
'
if rating[num]=25:$rat25+=$npc[num]+'
'
if rating[num]=24:$rat24+=$npc[num]+'
'
if rating[num]=23:$rat23+=$npc[num]+'
'
if rating[num]=22:$rat22+=$npc[num]+'
'
if rating[num]=21:$rat21+=$npc[num]+'
'
if rating[num]=20:$rat20+=$npc[num]+'
'
if rating[num]=19:$rat19+=$npc[num]+'
'
if rating[num]=18:$rat18+=$npc[num]+'
'
if rating[num]=17:$rat17+=$npc[num]+'
'
if rating[num]=16:$rat16+=$npc[num]+'
'
if rating[num]=15:$rat15+=$npc[num]+'
'
if rating[num]=14:$rat14+=$npc[num]+'
'
if rating[num]=13:$rat13+=$npc[num]+'
'
if rating[num]=12:$rat12+=$npc[num]+'
'
if rating[num]=11:$rat11+=$npc[num]+'
'
if rating[num]=10:$rat10+=$npc[num]+'
'
if rating[num]=9:$rat9+=$npc[num]+'
'
if rating[num]=8:$rat8+=$npc[num]+'
'
if rating[num]=7:$rat7+=$npc[num]+'
'
if rating[num]=6:$rat6+=$npc[num]+'
'
if rating[num]=5:$rat5+=$npc[num]+'
'
if rating[num]=4:$rat4+=$npc[num]+'
'
if rating[num]=3:$rat3+=$npc[num]+'
'
if rating[num]=2:$rat2+=$npc[num]+'
'
if rating[num]=1:$rat1+=$npc[num]+'
'
if rating[num]=0:$rat0+=$npc[num]+'
'
if rating[num]<0:$ratMin+=$npc[num]+'
'
if num<NPCnum:jump'markratingwrite'

if $ratMax!'':'<<$ratMax>>'
if $rat100!'':'<<$rat100>>'
if $rat99!'':'<<$rat99>>'
if $rat98!'':'<<$rat98>>'
if $rat97!'':'<<$rat97>>'
if $rat96!'':'<<$rat96>>'
if $rat95!'':'<<$rat95>>'
if $rat94!'':'<<$rat94>>'
if $rat93!'':'<<$rat93>>'
if $rat92!'':'<<$rat92>>'
if $rat91!'':'<<$rat91>>'
if $rat90!'':'<<$rat90>>'
if $rat89!'':'<<$rat89>>'
if $rat88!'':'<<$rat88>>'
if $rat87!'':'<<$rat87>>'
if $rat86!'':'<<$rat86>>'
if $rat85!'':'<<$rat85>>'
if $rat84!'':'<<$rat84>>'
if $rat83!'':'<<$rat83>>'
if $rat82!'':'<<$rat82>>'
if $rat81!'':'<<$rat81>>'
if $rat80!'':'<<$rat80>>'
if $rat79!'':'<<$rat79>>'
if $rat78!'':'<<$rat78>>'
if $rat77!'':'<<$rat77>>'
if $rat76!'':'<<$rat76>>'
if $rat75!'':'<<$rat75>>'
if $rat74!'':'<<$rat74>>'
if $rat73!'':'<<$rat73>>'
if $rat72!'':'<<$rat72>>'
if $rat71!'':'<<$rat71>>'
if $rat70!'':'<<$rat70>>'
if $rat69!'':'<<$rat69>>'
if $rat68!'':'<<$rat68>>'
if $rat67!'':'<<$rat67>>'
if $rat66!'':'<<$rat66>>'
if $rat65!'':'<<$rat65>>'
if $rat64!'':'<<$rat64>>'
if $rat63!'':'<<$rat63>>'
if $rat62!'':'<<$rat62>>'
if $rat61!'':'<<$rat61>>'
if $rat60!'':'<<$rat60>>'
if $rat59!'':'<<$rat59>>'
if $rat58!'':'<<$rat58>>'
if $rat57!'':'<<$rat57>>'
if $rat56!'':'<<$rat56>>'
if $rat55!'':'<<$rat55>>'
if $rat54!'':'<<$rat54>>'
if $rat53!'':'<<$rat53>>'
if $rat52!'':'<<$rat52>>'
if $rat51!'':'<<$rat51>>'
if $rat50!'':'<<$rat50>>'
if $rat49!'':'<<$rat49>>'
if $rat48!'':'<<$rat48>>'
if $rat47!'':'<<$rat47>>'
if $rat46!'':'<<$rat46>>'
if $rat45!'':'<<$rat45>>'
if $rat44!'':'<<$rat44>>'
if $rat43!'':'<<$rat43>>'
if $rat42!'':'<<$rat42>>'
if $rat41!'':'<<$rat41>>'
if $rat40!'':'<<$rat40>>'
if $rat39!'':'<<$rat39>>'
if $rat38!'':'<<$rat38>>'
if $rat37!'':'<<$rat37>>'
if $rat36!'':'<<$rat36>>'
if $rat35!'':'<<$rat35>>'
if $rat34!'':'<<$rat34>>'
if $rat33!'':'<<$rat33>>'
if $rat32!'':'<<$rat32>>'
if $rat31!'':'<<$rat31>>'
if $rat30!'':'<<$rat30>>'
if $rat29!'':'<<$rat29>>'
if $rat28!'':'<<$rat28>>'
if $rat27!'':'<<$rat27>>'
if $rat26!'':'<<$rat26>>'
if $rat25!'':'<<$rat25>>'
if $rat24!'':'<<$rat24>>'
if $rat23!'':'<<$rat23>>'
if $rat22!'':'<<$rat22>>'
if $rat21!'':'<<$rat21>>'
if $rat20!'':'<<$rat20>>'
if $rat19!'':'<<$rat19>>'
if $rat18!'':'<<$rat18>>'
if $rat17!'':'<<$rat17>>'
if $rat16!'':'<<$rat16>>'
if $rat15!'':'<<$rat15>>'
if $rat14!'':'<<$rat14>>'
if $rat13!'':'<<$rat13>>'
if $rat12!'':'<<$rat12>>'
if $rat11!'':'<<$rat11>>'
if $rat10!'':'<<$rat10>>'
if $rat9!'':'<<$rat9>>'
if $rat8!'':'<<$rat8>>'
if $rat7!'':'<<$rat7>>'
if $rat6!'':'<<$rat6>>'
if $rat5!'':'<<$rat5>>'
if $rat4!'':'<<$rat4>>'
if $rat3!'':'<<$rat3>>'
if $rat2!'':'<<$rat2>>'
if $rat1!'':'<<$rat1>>'
if $rat0!'':'<<$rat0>>'
if $ratMin!'':'<<$ratMin>>'


!'act '<center><b>To fight between 2mja NPCs</b></center>':
cls
a=input("Fighter in the red corner number of 2 prior_to 7")
'In the red corner <<$nikname[a]>>  <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
i=input("Fighter in the blue corner of the number of 2 prior_to 7")
'In the blue corner <<$nikname[i]>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
gs 'Autofight'
act 'further':gt $curloc
end
'

act 'Get_Away':
gt 'gorodok'
end

!'
act '<center><b>h</b></center>':
cls
minut+=60
gt $curloc
end

act '<center><b>randomly fight</b></center>':
cls
:markturnirotbor2
x=0
:markturnirotbor
x+=1
turnirFighter[x]=RAND(2,NPCnum)
if x<2:jump'markturnirotbor'
if turnirFighter[1]=turnirFighter[2]:jump'markturnirotbor2'
a=turnirFighter[1]
i=turnirFighter[2]
gs 'Autofight'
act 'further':gt $curloc
end

act '<center><b>randomly 4 battlefield</b></center>':
cls
y=0
:markmonthfight1
y+=1
:markturnirotbor2
x=0
:markturnirotbor
x+=1
turnirFighter[x]=RAND(2,NPCnum)
if x<2:jump'markturnirotbor'
if turnirFighter[1]=turnirFighter[2]:jump'markturnirotbor2'
a=turnirFighter[1]
i=turnirFighter[2]
gs 'Autofight'
turnirFighter[1]=0
turnirFighter[2]=0
if y<4:jump'markmonthfight1'
act 'further':gt $curloc
end

act '<center><b>randomly 10 fights</b></center>':
cls
y=0
:markmonthfights
y+=1
:markturnirotborss
x=0
:markturnirotborsss
x+=1
turnirFighter[x]=RAND(2,NPCnum)
if x<2:jump'markturnirotborsss'
if turnirFighter[1]=turnirFighter[2]:jump'markturnirotborss'
a=turnirFighter[1]
i=turnirFighter[2]
gs 'Autofight'
turnirFighter[1]=0
turnirFighter[2]=0
if y<10:jump'markmonthfights'
act 'further':gt $curloc
end
'

!'act '<center><b>The_item</b></center>':
kolvo[0]+=1
$item[0]=$curloc
gt $curloc
end

act '<center><b>The_item1</b></center>':
kolvo[1]+=1
$item[1]=$curloc
gt $curloc
end

act '<center><b>The_item2</b></center>':
kolvo[2]+=1
$item[2]=$curloc
gt $curloc
end

act '<center><b>The_item3</b></center>':
kolvo[3]+=1
$item[3]=$curloc
gt $curloc
end

act '<center><b>The_item4</b></center>':
kolvo[4]+=1
$item[4]=$curloc
gt $curloc
end

act '<center><b>The_item5</b></center>':
kolvo[5]+=1
$item[5]=$curloc
gt $curloc
end'

!gs'OnLoc'
--- ratinglist ---------------------------------

# npc

i=NPCnow
:markgenernpc
i+=1
!power and moral qualities

slut[i]=0

musle[i]=RAND(25,100)
flex[i]=RAND(25,80)
stamina[i]=RAND(200,300)
wipo[i]=RAND(30,60)
!equipment
Bteh[i]=RAND(0,100)
Uteh[i]=RAND(0,100)
Zteh[i]=RAND(0,100)

if i=2:
musle[i]=200
flex[i]=100
stamina[i]=300
wipo[i]=100
!equipment
Bteh[i]+=200
Uteh[i]+=200
Zteh[i]+=200
end
if i=10:
musle[i]+=50
wipo[i]+=30
end
if i=15:
musle[i]+=30
flex[i]+=40
stamina[i]+=100
wipo[i]+=20
!equipment
Bteh[i]+=20
Uteh[i]+=20
Zteh[i]+=20
end
if i=32:
musle[i]+=100
flex[i]+=100
end
if i=36:
flex[i]+=100
end
if i=51:
Bteh[i]+=100
Uteh[i]+=100
Zteh[i]+=100
end
if i=52:
stamina[i]+=300
wipo[i]+=60
end
if i=60:
musle[i]+=200
wipo[i]+=40
end
if i=78:
flex[i]+=50
wipo[i]+=30
end
if i=100:
musle[i]+=100
flex[i]+=100
stamina[i]+=200
wipo[i]+=30
!equipment
Bteh[i]+=100
Uteh[i]+=100
Zteh[i]+=100
end
if i=107:
musle[i]+=10
flex[i]+=10
stamina[i]+=100
wipo[i]+=100
end
if i=123:
flex[i]+=100
stamina[i]+=100
wipo[i]+=30
end
if i=137:
musle[i]+=70
wipo[i]+=20
end
if i=170:
musle[i]+=100
stamina[i]+=100
wipo[i]+=30
end
if i=235:
Bteh[i]+=100
Uteh[i]+=100
Zteh[i]+=100
end
if i=236:
flex[i]+=60
stamina[i]+=100
wipo[i]+=20
end
if i=255:
musle[i]+=30
flex[i]+=30
stamina[i]+=100
wipo[i]+=60
!equipment
Bteh[i]+=400
Uteh[i]+=400
Zteh[i]+=400
end

if i=265:
musle[i]+=100
flex[i]+=100
stamina[i]+=150
wipo[i]+=80
!equipment
Bteh[i]+=60
Uteh[i]+=60
Zteh[i]+=60
end

irand=i
gs'namer'

if i<NPCnum:jump'markgenernpc'



--- npc ---------------------------------

# namer
!irand=RAND(2,100)

if irand=2:$nikname[i]='Sid Blekovich'
if irand=3:$nikname[i]='The same'
if irand=4:$nikname[i]='Shard of Happiness'
if irand=5:$nikname[i]='prikolistka'
if irand=6:$nikname[i]='damned_wretch'
if irand=7:$nikname[i]='surprise'
if irand=8:$nikname[i]='angel'
if irand=9:$nikname[i]='diva'
if irand=10:$nikname[i]='puzzle'
if irand=11:$nikname[i]='rainbow'
if irand=12:$nikname[i]='ocharovashka'
if irand=13:$nikname[i]='Zaya'
if irand=14:$nikname[i]='vredina'
if irand=15:$nikname[i]='hooligan'
if irand=16:$nikname[i]='Shady Layden'
if irand=17:$nikname[i]='Lucy'
if irand=18:$nikname[i]='shooting star'
if irand=19:$nikname[i]='princess'
if irand=20:$nikname[i]='summer'
if irand=21:$nikname[i]='bunting'
if irand=22:$nikname[i]='shocking'
if irand=23:$nikname[i]='Saharok'
if irand=24:$nikname[i]='Marmeladka'
if irand=25:$nikname[i]='rogue'
if irand=26:$nikname[i]='Kitty'
if irand=27:$nikname[i]='chocolate'
if irand=28:$nikname[i]='Knop'
if irand=29:$nikname[i]='Barbie'
if irand=30:$nikname[i]='spring'
if irand=31:$nikname[i]='Bambi'
if irand=32:$nikname[i]='tigress'
if irand=33:$nikname[i]='dragonfly'
if irand=34:$nikname[i]='Carmen'
if irand=35:$nikname[i]='melody'
if irand=36:$nikname[i]='black Mamba'
if irand=37:$nikname[i]='second'
if irand=38:$nikname[i]='dream'
if irand=39:$nikname[i]='Indira'
if irand=40:$nikname[i]='conflict'
if irand=41:$nikname[i]='cat'
if irand=42:$nikname[i]='bead'
if irand=43:$nikname[i]='snowflake'
if irand=44:$nikname[i]='Dejavu'
if irand=45:$nikname[i]='SFA-Murka'
if irand=46:$nikname[i]='wally'
if irand=47:$nikname[i]='Amelie'
if irand=48:$nikname[i]='fairy'
if irand=49:$nikname[i]='moon'
if irand=50:$nikname[i]='Nochka'
if irand=51:$nikname[i]='rebel'
if irand=52:$nikname[i]='zamorochka'
if irand=53:$nikname[i]='Laffka'
if irand=54:$nikname[i]='lady'
if irand=55:$nikname[i]='Buttons'
if irand=56:$nikname[i]='ice'
if irand=57:$nikname[i]='imp'
if irand=58:$nikname[i]='calypso'
if irand=59:$nikname[i]='caprice'
if irand=60:$nikname[i]='enema Karlovna'
if irand=61:$nikname[i]='cobra'
if irand=62:$nikname[i]='sweetie'
if irand=63:$nikname[i]='Kysya'
if irand=64:$nikname[i]='lagoon'
if irand=65:$nikname[i]='Laletta'
if irand=66:$nikname[i]='ocean'
if irand=67:$nikname[i]='vamp'
if irand=68:$nikname[i]='dark'
if irand=69:$nikname[i]='legend'
if irand=70:$nikname[i]='Lorelei'
if irand=71:$nikname[i]='Foxy'
if irand=72:$nikname[i]='young_lion'
if irand=73:$nikname[i]='luxury'
if irand=74:$nikname[i]='era'
if irand=75:$nikname[i]='shrew'
if irand=76:$nikname[i]='Brunnhilde'
if irand=77:$nikname[i]='manyachka'
if irand=78:$nikname[i]='Hella Gelot'
if irand=79:$nikname[i]='Medea'
if irand=80:$nikname[i]='Vega'
if irand=81:$nikname[i]='Vivian Undo'
if irand=82:$nikname[i]='Magari'
if irand=83:$nikname[i]='Skyler'
if irand=84:$nikname[i]='Frau Barracuda'
if irand=85:$nikname[i]='Kakunov'
if irand=86:$nikname[i]='Pandora`s box'
if irand=87:$nikname[i]='The Black Widow'
if irand=88:$nikname[i]='Yunibra'
if irand=89:$nikname[i]='Fraulein Farbisianna'
if irand=90:$nikname[i]='viper'
if irand=91:$nikname[i]='sun'
if irand=92:$nikname[i]='fox'
if irand=93:$nikname[i]='nymph'
if irand=94:$nikname[i]='steel'
if irand=95:$nikname[i]='Fa la la'
if irand=96:$nikname[i]='Daniel Ankaran'
if irand=97:$nikname[i]='babe'
if irand=98:$nikname[i]='bomb'
if irand=99:$nikname[i]='viola'
if irand=100:$nikname[i]='Poyson'


if irand=101:$nikname[i]='Shiz'
if irand=102:$nikname[i]='Kukaryamba'
if irand=103:$nikname[i]='Tobacco'
if irand=104:$nikname[i]='Kapitolka'
if irand=105:$nikname[i]='heron'
if irand=106:$nikname[i]='princess'
if irand=107:$nikname[i]='domino'
if irand=108:$nikname[i]='Tyapa'
if irand=109:$nikname[i]='hedgehog'
if irand=110:$nikname[i]='thorn'
if irand=111:$nikname[i]='nut'
if irand=112:$nikname[i]='Zara'
if irand=113:$nikname[i]='Jussi'
if irand=114:$nikname[i]='arrow'
if irand=115:$nikname[i]='twilight'
if irand=116:$nikname[i]='black beast'
if irand=117:$nikname[i]='Vectra'
if irand=118:$nikname[i]='Extreme'
if irand=119:$nikname[i]='Crazy'
if irand=120:$nikname[i]='mixer'
if irand=121:$nikname[i]='Midnight'
if irand=122:$nikname[i]='Tantsorsha'
if irand=123:$nikname[i]='gymnast'
if irand=124:$nikname[i]='Gerda'
if irand=125:$nikname[i]='mini'
if irand=126:$nikname[i]='Verona'
if irand=127:$nikname[i]='Klepa'
if irand=128:$nikname[i]='Wadjet'
if irand=129:$nikname[i]='maya'
if irand=130:$nikname[i]='Selene'
if irand=131:$nikname[i]='Rhea'
if irand=132:$nikname[i]='Nuth'
if irand=133:$nikname[i]='Loy'
if irand=134:$nikname[i]='ha ha'
if irand=135:$nikname[i]='breeze'
if irand=136:$nikname[i]='shadow'
if irand=137:$nikname[i]='She_Wolf'
if irand=138:$nikname[i]='muskrat'
if irand=139:$nikname[i]='Catan'
if irand=140:$nikname[i]='avalanche'
if irand=141:$nikname[i]='Chernosnezhka'
if irand=142:$nikname[i]='ballerina'
if irand=143:$nikname[i]='Wild Cat'
if irand=144:$nikname[i]='el terrible of'
if irand=145:$nikname[i]='infanta'
if irand=146:$nikname[i]='Lissa Be-spendthrift'
if irand=147:$nikname[i]='Gagalu'
if irand=148:$nikname[i]='Moonshine_Township'
if irand=149:$nikname[i]='Gingemma'
if irand=150:$nikname[i]='Belfeba'
if irand=151:$nikname[i]='Karkalyga'
if irand=152:$nikname[i]='Shayzi'
if irand=153:$nikname[i]='Pledovka'
if irand=154:$nikname[i]='ruler'
if irand=155:$nikname[i]='fuzz'
if irand=156:$nikname[i]='harpy'
if irand=157:$nikname[i]='Chuchundra'
if irand=158:$nikname[i]='spider'
if irand=159:$nikname[i]='baggage'
if irand=160:$nikname[i]='Dvuhstvolka'
if irand=161:$nikname[i]='tomboy'
if irand=162:$nikname[i]='taiga'
if irand=163:$nikname[i]='Mistress Belladonna'
if irand=164:$nikname[i]='Asia'
if irand=165:$nikname[i]='Split Sky'
if irand=166:$nikname[i]='JUST Mi'
if irand=167:$nikname[i]='Miss Bainbridge'
if irand=168:$nikname[i]='jazz'
if irand=169:$nikname[i]='Dilishes'
if irand=170:$nikname[i]='big Momma'
if irand=171:$nikname[i]='Defiance'
if irand=172:$nikname[i]='Iron Blonde'
if irand=173:$nikname[i]='geisha'
if irand=174:$nikname[i]='lily_of_the_valley'
if irand=175:$nikname[i]='Vortex'
if irand=176:$nikname[i]='Cruella DeVill'
if irand=177:$nikname[i]='cyclist'
if irand=178:$nikname[i]='Ragnarok'
if irand=179:$nikname[i]='lady Dragon'
if irand=180:$nikname[i]='Flora'
if irand=181:$nikname[i]='boorish'
if irand=182:$nikname[i]='chaos'
if irand=183:$nikname[i]='lamp'
if irand=184:$nikname[i]='predator'
if irand=185:$nikname[i]='The April moon'
if irand=186:$nikname[i]='black Star'
if irand=187:$nikname[i]='shrapnel'
if irand=188:$nikname[i]='euphoria'
if irand=189:$nikname[i]='Electra'
if irand=190:$nikname[i]='ogress'
if irand=191:$nikname[i]='Nutty'
if irand=192:$nikname[i]='fantasy'
if irand=193:$nikname[i]='short_story'
if irand=194:$nikname[i]='Snow'
if irand=195:$nikname[i]='Sinister'
if irand=196:$nikname[i]='crumb'
if irand=197:$nikname[i]='melons'
if irand=198:$nikname[i]='Lolita'
if irand=199:$nikname[i]='wagtail'
if irand=200:$nikname[i]='Fairy_Tale'
if irand=201:$nikname[i]='branch'
if irand=202:$nikname[i]='heart of the Ocean'
if irand=203:$nikname[i]='fallen Angel'
if irand=204:$nikname[i]='Medvedka'
if irand=205:$nikname[i]='explosion'
if irand=206:$nikname[i]='Whack'
if irand=207:$nikname[i]='sinner'
if irand=208:$nikname[i]='keeper'
if irand=209:$nikname[i]='mistress of Death'
if irand=210:$nikname[i]='pathos'
if irand=211:$nikname[i]='Ston Falls'
if irand=212:$nikname[i]='Lost'
if irand=213:$nikname[i]='mustard'
if irand=214:$nikname[i]='hysterics'
if irand=215:$nikname[i]='Lenore'
if irand=216:$nikname[i]='Tumanik'
if irand=217:$nikname[i]='Grand lady'
if irand=218:$nikname[i]='Fanny Hill'
if irand=219:$nikname[i]='Nosolomka'
if irand=220:$nikname[i]='Basta'
if irand=221:$nikname[i]='milk'
if irand=222:$nikname[i]='granny'
if irand=223:$nikname[i]='The old lady Flo'
if irand=224:$nikname[i]='magpie'
if irand=225:$nikname[i]='icicle'
if irand=226:$nikname[i]='meridian'
if irand=227:$nikname[i]='module'
if irand=228:$nikname[i]='Strekotusha'
if irand=229:$nikname[i]='Azazel'
if irand=230:$nikname[i]='Gabriella'
if irand=231:$nikname[i]='tiara'
if irand=232:$nikname[i]='huntsman'
if irand=233:$nikname[i]='dream'
if irand=234:$nikname[i]='supernova'
if irand=235:$nikname[i]='Karnedzh'
if irand=236:$nikname[i]='blackout'
if irand=237:$nikname[i]='schoolgirl'
if irand=238:$nikname[i]='Kasia'
if irand=239:$nikname[i]='Caprice Night'
if irand=240:$nikname[i]='Tomboy'
if irand=241:$nikname[i]='Wild Horse'
if irand=242:$nikname[i]='sweetheart'
if irand=243:$nikname[i]='splinter'
if irand=244:$nikname[i]='log'
if irand=245:$nikname[i]='gymnast'
if irand=246:$nikname[i]='Zhep Ebrilo'
if irand=247:$nikname[i]='Hearts Spades'
if irand=248:$nikname[i]='Heartbreakers'
if irand=249:$nikname[i]='Roxy Devine'
if irand=250:$nikname[i]='The worst'
if irand=251:$nikname[i]='arrow'
if irand=252:$nikname[i]='bully'
if irand=253:$nikname[i]='emerald'
if irand=254:$nikname[i]='Rosalind'
if irand=255:$nikname[i]='Bounty hunter'
if irand=256:$nikname[i]='The coolest'
if irand=257:$nikname[i]='doublet'
if irand=258:$nikname[i]='secretary Lulu'
if irand=259:$nikname[i]='officer Sandy'
if irand=260:$nikname[i]='water dancer'
if irand=261:$nikname[i]='chess_player'
if irand=262:$nikname[i]='Sportwoman'
if irand=263:$nikname[i]='Miss January'
if irand=264:$nikname[i]='Beretta'
if irand=265:$nikname[i]='Preacher`s daughter'
if irand=266:$nikname[i]='la Guerra'
if irand=267:$nikname[i]='amazing'
if irand=268:$nikname[i]='Koalmayner'
if irand=269:$nikname[i]='Brown Sugar'
if irand=270:$nikname[i]='Stilhand'
if irand=271:$nikname[i]='Honey Girl'
if irand=272:$nikname[i]='islander'
if irand=273:$nikname[i]='La Poeta del Ring'
if irand=274:$nikname[i]='Mary Jo Sanders'
if irand=275:$nikname[i]='pupa'
if irand=276:$nikname[i]='bee Sting'
if irand=277:$nikname[i]='lady daisy'
if irand=278:$nikname[i]='Fury'
if irand=279:$nikname[i]='A Matador'
if irand=280:$nikname[i]='Mary Sue'
if irand=281:$nikname[i]='la Maravilla'
if irand=282:$nikname[i]='Sarah Rosenblum'
if irand=283:$nikname[i]='Parazitka'
if irand=284:$nikname[i]='heat'
if irand=285:$nikname[i]='Meydzhik'
if irand=286:$nikname[i]='stealth Bomber'
if irand=287:$nikname[i]='phrase'
if irand=288:$nikname[i]='Alcorn'
if irand=289:$nikname[i]='Smoker'
if irand=290:$nikname[i]='El Dynamite'
if irand=291:$nikname[i]='Anna Pascal'
if irand=292:$nikname[i]='Panama'
if irand=293:$nikname[i]='bird Tracy'
if irand=294:$nikname[i]='Knizhnitsa'
if irand=295:$nikname[i]='bluestocking'
if irand=296:$nikname[i]='canteen-keeper'
if irand=297:$nikname[i]='Baroness Meredith DeKavalkal'
if irand=298:$nikname[i]='warrior'
if irand=299:$nikname[i]='killer'
if irand=300:$nikname[i]='Capitol Hill'

if irand=301:$nikname[i]=''
if irand=302:$nikname[i]=''
if irand=303:$nikname[i]=''
if irand=304:$nikname[i]=''
if irand=305:$nikname[i]=''
if irand=306:$nikname[i]=''
if irand=307:$nikname[i]=''
if irand=308:$nikname[i]=''
if irand=309:$nikname[i]=''
if irand=310:$nikname[i]=''
if irand=311:$nikname[i]=''
if irand=312:$nikname[i]=''
if irand=313:$nikname[i]=''
if irand=314:$nikname[i]=''
if irand=315:$nikname[i]=''
if irand=316:$nikname[i]=''
if irand=317:$nikname[i]=''
if irand=318:$nikname[i]=''
if irand=319:$nikname[i]=''
if irand=320:$nikname[i]=''
if irand=321:$nikname[i]=''
if irand=322:$nikname[i]=''
if irand=323:$nikname[i]=''
if irand=324:$nikname[i]=''
if irand=325:$nikname[i]=''
if irand=326:$nikname[i]=''
if irand=327:$nikname[i]=''
if irand=328:$nikname[i]=''
if irand=329:$nikname[i]=''
if irand=330:$nikname[i]=''






















--- namer ---------------------------------

# namer1
!irand=RAND(2,100)

if irand=2:$nameprov='Sid Blekovich'
if irand=3:$nameprov='The same'
if irand=4:$nameprov='Shard of Happiness'
if irand=5:$nameprov='prikolistka'
if irand=6:$nameprov='damned_wretch'
if irand=7:$nameprov='surprise'
if irand=8:$nameprov='angel'
if irand=9:$nameprov='diva'
if irand=10:$nameprov='puzzle'
if irand=11:$nameprov='rainbow'
if irand=12:$nameprov='ocharovashka'
if irand=13:$nameprov='Zaya'
if irand=14:$nameprov='vredina'
if irand=15:$nameprov='hooligan'
if irand=16:$nameprov='Shady Layden'
if irand=17:$nameprov='Lucy'
if irand=18:$nameprov='shooting star'
if irand=19:$nameprov='princess'
if irand=20:$nameprov='summer'
if irand=21:$nameprov='bunting'
if irand=22:$nameprov='shocking'
if irand=23:$nameprov='Saharok'
if irand=24:$nameprov='Marmeladka'
if irand=25:$nameprov='rogue'
if irand=26:$nameprov='Kitty'
if irand=27:$nameprov='chocolate'
if irand=28:$nameprov='Knop'
if irand=29:$nameprov='Barbie'
if irand=30:$nameprov='spring'
if irand=31:$nameprov='Bambi'
if irand=32:$nameprov='tigress'
if irand=33:$nameprov='dragonfly'
if irand=34:$nameprov='Carmen'
if irand=35:$nameprov='melody'
if irand=36:$nameprov='black Mamba'
if irand=37:$nameprov='second'
if irand=38:$nameprov='dream'
if irand=39:$nameprov='Indira'
if irand=40:$nameprov='conflict'
if irand=41:$nameprov='cat'
if irand=42:$nameprov='bead'
if irand=43:$nameprov='snowflake'
if irand=44:$nameprov='Dejavu'
if irand=45:$nameprov='SFA-Murka'
if irand=46:$nameprov='wally'
if irand=47:$nameprov='Amelie'
if irand=48:$nameprov='fairy'
if irand=49:$nameprov='moon'
if irand=50:$nameprov='Nochka'
if irand=51:$nameprov='rebel'
if irand=52:$nameprov='zamorochka'
if irand=53:$nameprov='Laffka'
if irand=54:$nameprov='lady'
if irand=55:$nameprov='Buttons'
if irand=56:$nameprov='ice'
if irand=57:$nameprov='imp'
if irand=58:$nameprov='calypso'
if irand=59:$nameprov='caprice'
if irand=60:$nameprov='enema Karlovna'
if irand=61:$nameprov='cobra'
if irand=62:$nameprov='sweetie'
if irand=63:$nameprov='Kysya'
if irand=64:$nameprov='lagoon'
if irand=65:$nameprov='Laletta'
if irand=66:$nameprov='ocean'
if irand=67:$nameprov='vamp'
if irand=68:$nameprov='dark'
if irand=69:$nameprov='legend'
if irand=70:$nameprov='Lorelei'
if irand=71:$nameprov='Foxy'
if irand=72:$nameprov='young_lion'
if irand=73:$nameprov='luxury'
if irand=74:$nameprov='era'
if irand=75:$nameprov='shrew'
if irand=76:$nameprov='Brunnhilde'
if irand=77:$nameprov='manyachka'
if irand=78:$nameprov='Hella Gelot'
if irand=79:$nameprov='Medea'
if irand=80:$nameprov='Vega'
if irand=81:$nameprov='Vivian Undo'
if irand=82:$nameprov='Magari'
if irand=83:$nameprov='Skyler'
if irand=84:$nameprov='Frau Barracuda'
if irand=85:$nameprov='Kakunov'
if irand=86:$nameprov='Pandora`s box'
if irand=87:$nameprov='The Black Widow'
if irand=88:$nameprov='Yunibra'
if irand=89:$nameprov='Fraulein Farbisianna'
if irand=90:$nameprov='viper'
if irand=91:$nameprov='sun'
if irand=92:$nameprov='fox'
if irand=93:$nameprov='nymph'
if irand=94:$nameprov='steel'
if irand=95:$nameprov='Fa la la'
if irand=96:$nameprov='Daniel Ankaran'
if irand=97:$nameprov='babe'
if irand=98:$nameprov='bomb'
if irand=99:$nameprov='viola'
if irand=100:$nameprov='Poyson'


if irand=101:$nameprov='Shiz'
if irand=102:$nameprov='Kukaryamba'
if irand=103:$nameprov='Tobacco'
if irand=104:$nameprov='Kapitolka'
if irand=105:$nameprov='heron'
if irand=106:$nameprov='princess'
if irand=107:$nameprov='domino'
if irand=108:$nameprov='Tyapa'
if irand=109:$nameprov='hedgehog'
if irand=110:$nameprov='thorn'
if irand=111:$nameprov='nut'
if irand=112:$nameprov='Zara'
if irand=113:$nameprov='Jussi'
if irand=114:$nameprov='arrow'
if irand=115:$nameprov='twilight'
if irand=116:$nameprov='black beast'
if irand=117:$nameprov='Vectra'
if irand=118:$nameprov='Extreme'
if irand=119:$nameprov='Crazy'
if irand=120:$nameprov='mixer'
if irand=121:$nameprov='Midnight'
if irand=122:$nameprov='Tantsorsha'
if irand=123:$nameprov='gymnast'
if irand=124:$nameprov='Gerda'
if irand=125:$nameprov='mini'
if irand=126:$nameprov='Verona'
if irand=127:$nameprov='Klepa'
if irand=128:$nameprov='Wadjet'
if irand=129:$nameprov='maya'
if irand=130:$nameprov='Selene'
if irand=131:$nameprov='Rhea'
if irand=132:$nameprov='Nuth'
if irand=133:$nameprov='Loy'
if irand=134:$nameprov='ha ha'
if irand=135:$nameprov='breeze'
if irand=136:$nameprov='shadow'
if irand=137:$nameprov='She_Wolf'
if irand=138:$nameprov='muskrat'
if irand=139:$nameprov='Catan'
if irand=140:$nameprov='avalanche'
if irand=141:$nameprov='Chernosnezhka'
if irand=142:$nameprov='ballerina'
if irand=143:$nameprov='Wild Cat'
if irand=144:$nameprov='el terrible of'
if irand=145:$nameprov='infanta'
if irand=146:$nameprov='Lissa Be-spendthrift'
if irand=147:$nameprov='Gagalu'
if irand=148:$nameprov='Moonshine_Township'
if irand=149:$nameprov='Gingemma'
if irand=150:$nameprov='Belfeba'
if irand=151:$nameprov='Karkalyga'
if irand=152:$nameprov='Shayzi'
if irand=153:$nameprov='Pledovka'
if irand=154:$nameprov='ruler'
if irand=155:$nameprov='fuzz'
if irand=156:$nameprov='harpy'
if irand=157:$nameprov='Chuchundra'
if irand=158:$nameprov='spider'
if irand=159:$nameprov='baggage'
if irand=160:$nameprov='Dvuhstvolka'
if irand=161:$nameprov='tomboy'
if irand=162:$nameprov='taiga'
if irand=163:$nameprov='Mistress Belladonna'
if irand=164:$nameprov='Asia'
if irand=165:$nameprov='Split Sky'
if irand=166:$nameprov='JUST Mi'
if irand=167:$nameprov='Miss Bainbridge'
if irand=168:$nameprov='jazz'
if irand=169:$nameprov='Dilishes'
if irand=170:$nameprov='big Momma'
if irand=171:$nameprov='Defiance'
if irand=172:$nameprov='Iron Blonde'
if irand=173:$nameprov='geisha'
if irand=174:$nameprov='lily_of_the_valley'
if irand=175:$nameprov='Vortex'
if irand=176:$nameprov='Cruella DeVill'
if irand=177:$nameprov='cyclist'
if irand=178:$nameprov='Ragnarok'
if irand=179:$nameprov='lady Dragon'
if irand=180:$nameprov='Flora'
if irand=181:$nameprov='boorish'
if irand=182:$nameprov='chaos'
if irand=183:$nameprov='lamp'
if irand=184:$nameprov='predator'
if irand=185:$nameprov='The April moon'
if irand=186:$nameprov='black Star'
if irand=187:$nameprov='shrapnel'
if irand=188:$nameprov='euphoria'
if irand=189:$nameprov='Electra'
if irand=190:$nameprov='ogress'
if irand=191:$nameprov='Nutty'
if irand=192:$nameprov='fantasy'
if irand=193:$nameprov='short_story'
if irand=194:$nameprov='Snow'
if irand=195:$nameprov='Sinister'
if irand=196:$nameprov='crumb'
if irand=197:$nameprov='melons'
if irand=198:$nameprov='Lolita'
if irand=199:$nameprov='wagtail'
if irand=200:$nameprov='Fairy_Tale'
if irand=201:$nameprov='branch'
if irand=202:$nameprov='heart of the Ocean'
if irand=203:$nameprov='fallen Angel'
if irand=204:$nameprov='Medvedka'
if irand=205:$nameprov='explosion'
if irand=206:$nameprov='Whack'
if irand=207:$nameprov='sinner'
if irand=208:$nameprov='keeper'
if irand=209:$nameprov='mistress of Death'
if irand=210:$nameprov='pathos'
if irand=211:$nameprov='Ston Falls'
if irand=212:$nameprov='Lost'
if irand=213:$nameprov='mustard'
if irand=214:$nameprov='hysterics'
if irand=215:$nameprov='Lenore'
if irand=216:$nameprov='Tumanik'
if irand=217:$nameprov='Grand lady'
if irand=218:$nameprov='Fanny Hill'
if irand=219:$nameprov='Nosolomka'
if irand=220:$nameprov='Basta'
if irand=221:$nameprov='milk'
if irand=222:$nameprov='granny'
if irand=223:$nameprov='The old lady Flo'
if irand=224:$nameprov='magpie'
if irand=225:$nameprov='icicle'
if irand=226:$nameprov='meridian'
if irand=227:$nameprov='module'
if irand=228:$nameprov='Strekotusha'
if irand=229:$nameprov='Azazel'
if irand=230:$nameprov='Gabriella'
if irand=231:$nameprov='tiara'
if irand=232:$nameprov='huntsman'
if irand=233:$nameprov='dream'
if irand=234:$nameprov='supernova'
if irand=235:$nameprov='Karnedzh'
if irand=236:$nameprov='blackout'
if irand=237:$nameprov='schoolgirl'
if irand=238:$nameprov='Kasia'
if irand=239:$nameprov='Caprice Night'
if irand=240:$nameprov='Tomboy'
if irand=241:$nameprov='Wild Horse'
if irand=242:$nameprov='sweetheart'
if irand=243:$nameprov='splinter'
if irand=244:$nameprov='log'
if irand=245:$nameprov='gymnast'
if irand=246:$nameprov='Zhep Ebrilo'
if irand=247:$nameprov='Hearts Spades'
if irand=248:$nameprov='Heartbreakers'
if irand=249:$nameprov='Roxy Devine'
if irand=250:$nameprov='The worst'
if irand=251:$nameprov='arrow'
if irand=252:$nameprov='bully'
if irand=253:$nameprov='emerald'
if irand=254:$nameprov='Rosalind'
if irand=255:$nameprov='Bounty hunter'
if irand=256:$nameprov='The coolest'
if irand=257:$nameprov='doublet'
if irand=258:$nameprov='secretary Lulu'
if irand=259:$nameprov='officer Sandy'
if irand=260:$nameprov='water dancer'
if irand=261:$nameprov='chess_player'
if irand=262:$nameprov='Sportwoman'
if irand=263:$nameprov='Miss January'
if irand=264:$nameprov='Beretta'
if irand=265:$nameprov='Preacher`s daughter'
if irand=266:$nameprov='la Guerra'
if irand=267:$nameprov='amazing'
if irand=268:$nameprov='Koalmayner'
if irand=269:$nameprov='Brown Sugar'
if irand=270:$nameprov='Stilhand'
if irand=271:$nameprov='Honey Girl'
if irand=272:$nameprov='islander'
if irand=273:$nameprov='La Poeta del Ring'
if irand=274:$nameprov='Mary Jo Sanders'
if irand=275:$nameprov='pupa'
if irand=276:$nameprov='bee Sting'
if irand=277:$nameprov='lady daisy'
if irand=278:$nameprov='Fury'
if irand=279:$nameprov='A Matador'
if irand=280:$nameprov='Mary Sue'
if irand=281:$nameprov='la Maravilla'
if irand=282:$nameprov='Sarah Rosenblum'
if irand=283:$nameprov='Parazitka'
if irand=284:$nameprov='heat'
if irand=285:$nameprov='Meydzhik'
if irand=286:$nameprov='stealth Bomber'
if irand=287:$nameprov='phrase'
if irand=288:$nameprov='Alcorn'
if irand=289:$nameprov='Smoker'
if irand=290:$nameprov='El Dynamite'
if irand=291:$nameprov='Anna Pascal'
if irand=292:$nameprov='Panama'
if irand=293:$nameprov='bird Tracy'
if irand=294:$nameprov='Knizhnitsa'
if irand=295:$nameprov='bluestocking'
if irand=296:$nameprov='canteen-keeper'
if irand=297:$nameprov='Baroness Meredith DeKavalkal'
if irand=298:$nameprov='warrior'
if irand=299:$nameprov='killer'
if irand=300:$nameprov='Capitol Hill'




--- namer1 ---------------------------------

# namecreator
$so[1]='A'
$so[2]='E'
$so[3]='And'
$so[4]='Oh'
$so[5]='Do'
$so[6]='E'
$so[7]='Yu'
$so[8]='I'

$sol[1]='and'
$sol[2]='e'
$sol[3]='and'
$sol[4]='about'
$sol[5]='at'
$sol[6]='e'
$sol[7]='th'
$sol[8]='I'

$wo[1]='B'
$wo[2]='B'
$wo[3]='T'
$wo[4]='D'
$wo[5]='F'
$wo[6]='W'
$wo[7]='K'
$wo[8]='L'
$wo[9]='M'
$wo[10]='H'
$wo[11]='P'
$wo[12]='P'
$wo[13]='From'
$wo[14]='T'
$wo[15]='F'
$wo[16]='X'

$wol[1]='b'
$wol[2]='in'
$wol[3]='g'
$wol[4]='d'
$wol[5]='Well'
$wol[6]='h'
$wol[7]='to'
$wol[8]='l'
$wol[9]='m'
$wol[10]='n'
$wol[11]='n'
$wol[12]='r'
$wol[13]='with'
$wol[14]='t'
$wol[15]='f'
$wol[16]='x'
     
FirstWord=0
$nikname[i]=''
tiprand=(0,1)

if tiprand=0:
     if FirstWord=0:
     wordrand=RAND(1,16)
     $nikname[i]+=$wo[wordrand]
     end
     
     
     

end
if tiprand=1:
     if FirstWord=0:
     wordrand=RAND(1,8)
     $nikname[i]+=$so[wordrand]
     end

end
--- namecreator ---------------------------------

# npcview
'<center><b><<$nikname[i]>></b></center>'
'rating <<rating[i]>>'
if i>0:'record <<win[i]>> Win - <<loss[i]>> lesions - <<draw[i]>>draws <<SubWin[i]>> wins by submission/<<SubLoss[i]>> lesions surrender'
if i=0:'record <<winw[i]>> Win - <<lossw[i]>> lesions - <<draww[i]>>draws <<SubWin[i]>> wins by submission/<<SubLoss[i]>> lesions surrender'
''
''
'power <<musle[i]>>'
'flexibility <<flex[i]>>'
'endurance <<stamina[i]>>'
'Moralnovolevye quality <<wipo[i]>>'
''
'throwing techniques <<Bteh[i]>>'
'appliances hold <<Uteh[i]>>'
'Protective equipment <<Zteh[i]>>'
''
if slut[i]>0 and porno=1:'Packed with a brand whore.'
''
''
''
'<<$spisok[i]>>'
'test <<i>>'


act 'Go_Out':gt $loc

if i!1:

act 'To fight with you':gt 'beforeFW'
end

if i!1:
     if predlog>0 and predlog!i and predlog2=0:
		 act 'Suggest a fight with <<$nikname[predlog]>>':
		 cls
		 a=predlog
		 'In the red corner <<$nikname[a]>>  <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
		 !i=predlog2
		 'In the blue corner <<$nikname[i]>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
		 gs 'Autofight'
		 predlog=0
		 predlog2=0
		 act 'further':gt $loc
		 end
	 end
     if predlog=0:
     act 'offer battle':predlog=i&gt $loc
     end
end
--- npcview ---------------------------------

# ObrabotkaVvoda


--- ObrabotkaVvoda ---------------------------------

# dinSex2
$d_vag_sex_dildo={
frost=0
     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while you tuck a <<dick>> inch dildo, vaginal blood flows slowly.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     
     
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         
         !member of the critical features more years
          set orgazm = 0
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
			 if horny >= 100:set orgazm = 5
			 if horny >= 90 and horny < 100:set orgazm = 4
			 if horny >= 80 and horny < 90:set orgazm = 3
			 if horny >= 70 and horny < 80:set orgazm = 2
			 if horny >= 60 and horny < 70:set orgazm = 1
			 if horny < 60:set orgazm = 0
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
			 if horny >= 80:set orgazm = 5
			 if horny >= 60 and horny < 80:set orgazm = 4
			 if horny >= 40 and horny < 60:set orgazm = 3
			 if horny < 40:set orgazm = 2
         end
         if dick <= prinat and dick < vagina:
			 if horny >= 100:set orgazm = 5
			 if horny >= 90 and horny < 100:set orgazm = 4
			 if horny < 90:set orgazm = 6
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 oragazm=4
             end
             if razeba=4:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
             end
             if razeba>=5:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
             end
         end
         
         if orgazm = 0:
         vgape=3
         vgapetime=totminut
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when stuck into itself <<dick>> inch dildo, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
         end 
         if orgazm = 1:
         if vgape<2:vgape=2
         vgapetime=totminut
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when stuck into itself <<dick>> inch dildo, between the legs pain.'
         end 
         if orgazm = 2:
         if vgape<1:vgape=1
         vgapetime=totminut
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when stuck into itself <<dick>> inch dildo, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited while moving <<dick>> inch dildo in your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dildo. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dildo moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel like dildo penetrates your pussy. Between her legs nice, but much less Dildo your pussy and <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch dildo went in you, break your hymen. You cried out in pain and was taken out of themselves bloody dildo.'
     end
if vagina<dick:vagina+=1
}


$d_analsex_dildo={
frost=0
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         'You pulled out of your more narrow and tight ass plug,'
     end
     
      if dick >=anus:set anus = anus + 3
     
'You parted my buttocks began to massage the anus with your fingers, first one, then two.'
if lubri>0:
lubri-=1
lubonus+=RAND(1,5)
'You squeezed anal smaski in his hand and began to spread his ass. After that.'
end
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'Then you have entered yourself three fingers and began to stretch the anus.'
'You pulled his fingers out of his priests and placed a dildo to her the hole.'
	 if anus + 10 < dick:'You screamed and bit his lip from a sharp pain when his <<dick>> inch dildo apart your ass you entered.'
	 if anus + 10 >= dick:'You groaned feeling of fullness when it <<dick>> inch dildo apart your ass you entered.'
	 'You froze for a moment, giving his priest adapt to hang around in her dildo, and then began to drive them all the more insistent, stretching his anus.'
	 if anus + lubonus + 2 < dick:
	 if mop > 1:set mop = 0
	 horny-=20
	 manna-=20
	 if agape<3:agape=3
     agapetime=totminut
	 'Your ass pierced a sharp pain when you started moving in her ass <<dick>> inch dildo.'
	 end
	 if anus + lubonus + 2 >= dick:
	 horny+=10
	 if agape<2 and lubonus=0:agape=2
     agapetime=totminut
	 'You started moaning rhythmically in time with the movements <<dick>> centimeter dildo inside you. You feel like your anus is stretched when dildo moves inside the ass.'
	     if horny>=100:
	         if anal>=10 and orgasm>0:
             manna+=20
	         
	         if agape<1 and lubonus=0:agape=1&agapetime=totminut
             
	         'You get a little nice when dildo moves inside your ass and you moan with pleasure.'
	         end
	     end
	 end
	 lubonus=0
}

$d_strapon_vag={
frost=0
     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'You have monthly and while yet <<$boy>> drives in your pussy <<dick>> cm strap, vaginal blood flows slowly.'
     end

     if mesec <= 0 and vagina > 0:
     !no monthly
     !horny - excitement
     !vagina - the elasticity of the vagina
     !silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
     !dick - penis Man
     !orgazm - Total coefficient of pleasure
     !0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
     
     
     set smazka = horny/10
     set prinat = smazka + vagina
         if dick >= prinat*2:
         
         !member of the critical features more years
          set orgazm = 0
         end
         
         if dick < prinat*2 and dick > prinat:
         !member more options gg
			 if horny >= 100:set orgazm = 5
			 if horny >= 90 and horny < 100:set orgazm = 4
			 if horny >= 80 and horny < 90:set orgazm = 3
			 if horny >= 70 and horny < 80:set orgazm = 2
			 if horny >= 60 and horny < 70:set orgazm = 1
			 if horny < 60:set orgazm = 0
         end
         
         if dick <= prinat and dick >= vagina:
         !Member fewer opportunities gg
			 if horny >= 80:set orgazm = 5
			 if horny >= 60 and horny < 80:set orgazm = 4
			 if horny >= 40 and horny < 60:set orgazm = 3
			 if horny < 40:set orgazm = 2
         end
         if dick <= prinat and dick < vagina:
			 if horny >= 100:set orgazm = 5
			 if horny >= 90 and horny < 100:set orgazm = 4
			 if horny < 90:set orgazm = 6
         end
         
         if oragazm=5:
         preOrg+=1
             if razeba<4:
                 oragazm=4
             end
             if razeba=4:
                 orgrand=rand(50,300)
                     if orgrand>preOrg:oragazm=4
             end
             if razeba>=5:
                 orgrand=rand(0,100)
                     if orgrand>preOrg:oragazm=4
             end
         end
         
         if orgazm = 0:
         vgape=3
         vgapetime=totminut
         set horny = 0
         set manna = manna - 15
         set willpower = willpower - 15
         'You groaned in pain when <<$boy>> stuck in you <<dick>> cm strap, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
         end 
         if orgazm = 1:
         if vgape<2:vgape=2
         vgapetime=totminut
         set horny = horny - 10
         set manna = manna - 10
         set willpower = willpower - 10
         'You bit her lip in pain when <<$boy>> stuck in you <<dick>> cm strap, between the legs pain.'
         end 
         if orgazm = 2:
         if vgape<1:vgape=1
         vgapetime=totminut
         set horny = horny - 5
         set manna = manna - 5
         set willpower = willpower - 5
         'You flinched at the sudden pain when <<$boy>> stuck in you <<dick>> cm strap, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited until <<$boy>> moves <<dick>> inch strap-on in your pussy, but you will not go out.'
         end 
         if orgazm = 3:
         !set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> you fucking threesome.'
         end 
         if orgazm = 4:
         !set horny = horny + 10
         set manna = manna + 10
         set willpower = willpower + 10
         'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> fuck you using the strap. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if orgazm = 5:
         set horny = 0
         set manna = manna + 15
         set willpower = willpower + 15
         set orgasm = orgasm + 1
         vaginalOrgasm+=1
         'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a strapon. Between the legs becomes very warm and pleasant, when strong <<dick>> inch strap moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo. '
         end
         if orgazm = 6:
         set horny = horny + 5
         set manna = manna + 5
         set willpower = willpower + 5
         'You feel like strap penetrates your pussy. Between her legs nice, but much less than the strap and your pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
         end 
         if vagina <= dick:set vagina = vagina + 1
     end
     
     
     if vagina = 0 and mesec <= 0:
     set horny = 0
     set manna = manna - 15
     set willpower = willpower - 15
     set vagina = vagina + 1
     'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch strap came in you, break your hymen. You cried out in pain and <<$boy>> You took out a bloody strap.'
     end
if vagina<dick:vagina+=1
}
$d_strapon_anal={
frost=0
     if analplugin=1:
         analpluginbonus = 10
         analplugin=0
         'You pulled out of your more narrow and tight ass plug,'
     end
     
      if dick >=anus:set anus = anus + 3
     
'<<$boy>> apart your buttocks massaged anus fingers, first one, then two.'
if lubri>0:
lubri-=1
lubonus+=RAND(1,5)
'You squeezed anal smaski in his hand and began to spread his ass. after that <<$boy>> oiled strapon.'
end
if anus < 10:'When your ass you entered three fingers involuntarily groaned in pain.'
if anus >= 10:'then <<$boy>> introduced you to three fingers and began to stretch the anus.'
'<<$boy>> pulled his fingers out of your priests and put the strap to your the hole.'
	 if anus + 10 < dick:'You screamed and bit his lip from a sharp pain when <<dick>> cm apart strap your ass you entered.'
	 if anus + 10 >= dick:'You groaned when Fullness <<dick>> cm apart strap your ass you entered.'
	 '<<$boy>> paused for a moment, giving your ass adapt to hang around in her strapon, then began to drive them insistently, stretching your anus.'
	 if anus + lubonus + 2 < dick:
	 if mop > 1:set mop = 0
	 horny-=20
	 manna-=20
	 if agape<3:agape=3
     agapetime=totminut
	 'Your ass pierced a sharp pain when <<$boy>> began to fuck your ass with the help of <<dick>> cm strap.'
	 end
	 if anus + lubonus + 2 >= dick:
	 horny+=10
	 if agape<2 and lubonus=0:agape=2
     agapetime=totminut
	 'You started moaning rhythmically in time with the movements <<dick>> centimeter strap inside you. You feel like your anus is stretched when the strap is moving inside the ass.'
	     if horny>=100:
	         if anal>=10 and orgasm>0:
             manna+=20
	         
	         if agape<1 and lubonus=0:agape=1&agapetime=totminut
             
	         'You get a little nice when the strap is moving inside your ass and you moan with pleasure.'
	         end
	     end
	 end
	 lubonus=0

}

$doublepenetration={
frost=0
set smazka = horny/10
set prinat = smazka + vagina
     
	 if dick > prinat:
	 !member more options gg
	 if vgape<3:vgape=3
     vgapetime=totminut
     DPvag=2
	 end
	 if dick <= prinat and dick >= vagina:
	 !Member fewer opportunities gg
	 if vgape=2:vgape=3
	 if vgape<2:vgape=2
     vgapetime=totminut
     DPvag=1
	 end
	 if dick < vagina:
	 if vgape=2:vgape=3
	 if vgape=1:vgape=2
	 if vgape<1:vgape=1
     vgapetime=totminut
     DPvag=0
	 end
	 if lubri>0:
	 lubri-=1
	 lubonus+=RAND(1,5)
     end
     if anus+lubonus+5<dick2:
     if agape<3:agape=3
     agapetime=totminut
     DPass=2
     end
	 if anus+lubonus < dick2 and anus+lubonus+5>=dick2:
	 if agape=2:agape=3
	 if agape<2:agape=2
	 agapetime=totminut
	 DPass=1
	 end
	 if anus +lubonus >= dick2:
	 if agape=2:agape=3
	 if agape=1:agape=2
	 if agape<1:agape=1
	 agapetime=totminut
	 DPass=0
	 end

     if mesec > 0:
     !periods, orgasm is not possible
     set horny = 0
     set manna = manna - 10
     set willpower = willpower - 10
     'Do you monthly and you do not hurt until nice and <<dick>> inch dick rams your vagina bleeding. At the same time you like your chustvuete <<$anustipe>> ass fucks the second term -long <<dick2>> centimeters.'
     end
     totPAIN=DPvag+DPass+(agape-1)+(vgape-1)
	 if totPAIN=0:
	 'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Abdomen burns pleasant light spreading heat throughout the body.'
	 bonusManna=(manna*100)/mannamax
	 DPplus=(vaginalOrgasm*10)+horny+bonusManna
	 DPminus=rand(250,350)
	     if DPplus>DPminus:
	     vaginalOrgasm+=1
	     DPorgasm+=1
	     orgasm+=1
	     manna=mannamax
	     horny=0
	     'Suddenly you covered orgasm and you do not remember myself moan and scream until your muscles are reduced frantically around two members of the inside of your body.'
	     end
	 end
	 if totPAIN=1:
	 'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. hurt a little, but still very nice chustvovat all the free holes are filled by members.'
	 end
	 if totPAIN=2:
	 horny=horny/2
	 manna=manna/2
	 'You chustvuete themselves so, as if that`s just about ready to burst from overflowing when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Feeling very strange, in a tangle of mixed pain, pleasure and painful overcrowding.'
	 end
	 if totPAIN=3:
	 manna=manna/4
	 horny=horny/4
	 if mop > 1:set mop = 0
	 'You hurt and sometimes sharp bursts of pain makes you groan when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. You chustvuete itself ready to burst, your ass and pussy feels merged into one pretty painful lump. Your eyes are not arbitrarily veiled veil of tears.'
	 end
	 if totPAIN>=4:
	 manna=0
	 horny=0
	 willpower=willpower/2
	 if mop > 1:set mop = 0
	 'You squeals and tears stream pouring out of your eyes from the terrible pain, your entire abdomen and the priest gives a sharp pain while you fuck <<$boy>> her vagina <<dick>> centimeter and a member of the <<$boy2>> almost tearing your <<$anustipe>> his anus <<dick2>> centimeter instrument.'
	 end


if vagina<dick:vagina+=1
if anus<dick2:anus+=1
!sex+=1
gs'stat'
}







--- dinSex2 ---------------------------------

# cafe2
if $ARGS[0]='beginning':
cla
*clr
'<<$boybody>> <<$boybod>> <<$boyface>> introduced himself as <<$boy>>.'
Set deyst = RAND (1,100)
     if deyst <= 25:
     '<<$boy>> invited you to dance.'
     act 'dance':gt 'cafe2','dance'
     act 'otshit':gt 'street'
     end
     if deyst > 25 and deyst <=50:
     '<<$boy>> sat down at your table and ordered a drink and snack.'
     act 'drink':gt 'cafe2','booze'
     act 'otshit':gt 'street'
     end
     if deyst > 50 and deyst <=75:
     '<<$boy>> invited you to join the party on which he walks.'
     act 'agree':gt 'cafe2','kampashka'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
     if deyst > 75:
     '<<$boy>> began to stick to you and try to remove. <<$boy>> offered to go with him to the toilet.'
     act 'agree':gt 'cafe3','wc'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
end

if $ARGS[0]='dance':
cla
if dance<50 and agil>=dance:dance+=1
minut+=3
gs'stat'
Set deyst = RAND (1,100)
'<center><img src="pic/dance.jpg" ></center>'
''
     if deyst <= 25:
     'During the dance <<$boy>> confident and well- kept and you did not stick. His strong hands firmly hold your waist. Finally the song ended.'
     act 'finish dance':gt 'cafe2','dance2'
     end
     
     if deyst > 25 and deyst <=80:
     Set horny = horny + 5
     clr
     gs 'stat'
     if dick>15 and dick<18:
     $didanc='During the dance.'
     elseif dick>=18:
     $didanc='During the dance, you feel that he is a big, vskidku about <<dick>> centimeters.'
     elseif dick<=15:
     $didanc=''
     end
     'During the dance <<$boy>> gently hugged you and stroking your back down to the hips. His strong hands pressed against your frail body to it, vzhimaya your soft breasts <<tits>> On the size of his body. <<$didanc>> Finally the song ends.'
     act 'finish dance':gt 'cafe2','dance2'
     end
     
     if deyst > 80:
     Set horny = horny + 8
     clr
     gs 'stat'
     'During the dance <<$boy>> paw you for the ass, Firmly push you to your vzhimaya your tender flesh in her and wants to kiss you.'
         act 'kiss':
         cla
         if lip = 0:set $lipdance = 'thin lips'
		 if lip = 1:set $lipdance = 'lips'
		 if lip = 2:set $lipdance = 'plump lips'
		 if lip = 3:set $lipdance = 'plump lips'
		 if lip = 4:set $lipdance = 'thick lips'
          '<<$boy>> your kisses <<$lipdance>> pushing them and poking his wet tongue in your mouth.'
             act 'suck language':
             cla
             Set horny = horny + 8
             if lip = 0:set $lipdance = 'thin lips'
			 if lip = 1:set $lipdance = 'lips'
			 if lip = 2:set $lipdance = 'plump lips'
			 if lip = 3:set $lipdance = 'plump lips'
			 if lip = 4:set $lipdance = 'thick lips'
			     if dick>15 and dick<18:
				 $didanc='pants had become firmly and <<$boy>> is pressed against your stomach its embarked member.'
				 elseif dick>=18:
				 $didanc='his cock resting your stomach hardens and grows, it`s big, vskidku about <<dick>> centimeters.'
				 elseif dick<=15:
				 $didanc='in his pants that it uvilichivaetsya'
				 end
             'You began to passionately suck tongue kiss a guy and his own <<$lipdance>>. You feel like <<$didanc>>'
             'Finally the song ends and you break the kiss.'
             Set deyst = RAND (1,100)
				 if deyst <= 75:
				 'Keeping you around the waist and hold <<$boy>> offers to go to his home.'
				  act 'agree':gt 'cafe3','house'
					 if horny < 75:
					 act 'otshit':gt 'street'
					 end
				  
				 end
				 if deyst > 75:
				 'Keeping you around the waist and hold <<$boy>> suggest you go to the toilet and continue.'
				  act 'agree':gt 'cafe3','wc'
					 if horny < 75:
					 act 'otshit':gt 'street'
					 end
				  
				 end
			 
             end
             
             act 'avoid kissing':
             cla
             Set horny = horny + 8
             if lip = 0:set $lipdance = 'thin lips'
			 if lip = 1:set $lipdance = 'lips'
			 if lip = 2:set $lipdance = 'plump lips'
			 if lip = 3:set $lipdance = 'plump lips'
			 if lip = 4:set $lipdance = 'thick lips'
			     if dick>15 and dick<18:
				 $didanc='pants had become firmly and <<$boy>> is pressed against your stomach its embarked member.'
				 elseif dick>=18:
				 $didanc='his cock resting your stomach hardens and grows, it`s big, vskidku about <<dick>> centimeters.'
				 elseif dick<=15:
				 $didanc='in his pants that it uvilichivaetsya'
				 end
             'You behave passively and try to clean your mouth away from the annoying guy language, but this is not enough and it stops you feel like his hands tightly squeezing your ass, then his hands raised above and it takes you by the chest. You feel like <<$didanc>>'
             'Finally the song ends and you break the arms.'
             Set deyst = RAND (1,100)
				 if deyst <= 75:
				 'Keeping you around the waist and hold <<$boy>> offers to go to his home.'
				  act 'agree':gt 'cafe3','house'
					 if horny < 75:
					 act 'otshit':gt 'street'
					 end
				  
				 end
				 if deyst > 75:
				 'Keeping you around the waist and hold <<$boy>> suggest you go to the toilet and continue.'
				  act 'agree':gt 'cafe3','wc'
					 if horny < 75:
					 act 'otshit':gt 'street'
					 end
				  
				 end
			 
             end
         end
          
          
         if horny < 75:
         act 'Stop dancing and go':gt 'street'
         end
     end

end

if $ARGS[0]='dance2':
cla
Set deyst = RAND (1,70)
     if deyst >= vnesh:
     'The dance ended and <<$boy>> kissed you goodbye'
     act 'say_goodbye':
     gt 'kafe','start'
     end
     end
     if deyst < vnesh:
     'The dance ended and <<$boy>> offered to go to him'
     act 'agree':gt 'cafe3','house'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
end

if $ARGS[0]='booze':
cla
minut+=30
gs'stat'
Set deyst = RAND (1,100)
'Do you drink a man and a <<$boy>> tells a lot of interesting and interested in you.'
     if deyst < 75:
     'It seems you `ve had enough and should go home. <<$boy>> kissed you goodbye'
		 act 'say_goodbye':
		 gt 'kafe','start'
		 end
     end
     
     if deyst >= 75 and deyst < 95:
     'It seems you `ve had enough and should go home. <<$boy>> offered to go to him'
     act 'agree':gt 'cafe3','house'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
     
     if deyst >= 95:
     'You drank to pig squeal and <<$boy>> began to stick to you. He kissed and caressed you, and then offered to go with him to the toilet.'
     act 'agree':gt 'cafe3','wc'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
end

if $ARGS[0]='kampashka':
cla
minut+=30
gs'stat'
Set deyst = RAND (1,100)
'Do you drink in a society of boys and devchenok. <<$boy>> obschaetsya and flirts with you.'
     if deyst < 60:
     'It_Seems, you `ve had enough and should go home. <<$boy>>  kissed you goodbye'
     act 'say_goodbye':
     gt 'kafe','start'
     end
     end
     if deyst >= 60 and deyst < 90:
     'It_Seems, you `ve had enough and should go home. <<$boy>> offered to go to him'
     act 'agree':gt 'cafe3','house'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
     if deyst >= 90:
     'You drank to pig squeal and <<$boy>> began to stick to you. He kissed and caressed you, and then offered to go to rest with the company.'
     act 'agree':gt 'cafe3','kampashka'
         if horny < 75:
         act 'otshit':gt 'street'
         end
     end
end






--- cafe2 ---------------------------------

# cafe3
if $ARGS[0]='house':
cla
*clr
money+=100
minut+=15
gs'stat'
'<<$boy>> pay your bill and caught a taxi.'
'You sat down with him in the back seat of the car. <<$boy>> put his hand on your knee and began stroking it getting higher your pussy.'

     act 'enjoy caresses':
     cla
     minut+=15
     horny+=15
     gs'stat'
     dynamic $venerasiak
     '<<$boy>> reached your pussy and began to caress her fingers. '
     
         act 'Try to remove his hands':
		 cla
		 minut+=15
		 horny+=10
		 gs'stat'
		 'You have tried to remove his hands from the crotch Man, but <<$boy>> Turning to you began to fondle your breasts hands through clothing.'
		 act 'come':gt'BDsex','start'
		 end
		 
		 act 'Hands caress his cock':
		 cla
		 minut+=15
		 horny+=10
		 gs'stat'
		 'You got into the pants to the guy and get him <<dick>> inch cock began to caress his hands.'
		 derand=RAND(0,100)
		     if derand>=95:
		     '<<$boy>> groaned and took you by the neck began to approach your face to its members.'
				 act 'Take by mouth':
				 cla
				 *clr
				 minut+=15
				 horny+=10
				 guy+=1
				 bj+=1
				 gs'stat'
				 '<center><img src="studiand/car.gif" ></center>'
				 'You leaned his face closer to the groin Man and girth of his cock with his lips began to suck it.'
				 gs'oral','0'
				 'Finally the guy will fill your mouth with his hot sperm that you had nowhere to go and you swallow it. The taxi stopped. And <<$boy>> you put him out on the street.'
				 swallow+=1
				 cumlip+=1
				 act 'Get_Away':gt 'street'
				 end
				 
				 act 'Try to remove his hands':
				 cla
				 minut+=15
				 horny+=10
				 gs'stat'
				 'You have tried to remove his hands from his head Man, but <<$boy>> Turning to you began to fondle your breasts hands through clothing.'
				 act 'come':gt'BDsex','start'
				 end
			 else
			 act 'come':gt'BDsex','start'
			 end
		 end
     end
     
     act 'Try to remove his hands':
     cla
     minut+=15
     horny+=10
     gs'stat'
     'You have tried to remove his hands from the crotch Man, but <<$boy>> Turning to you began to fondle your breasts hands through clothing.'
     act 'come':gt'BDsex','start'
     end

end

if $ARGS[0]='0':
cla
*clr
$nameV=$boy



minut+=15
gs'stat'
Set deyst = RAND (1,100)
     if deyst < 70:
     :vag
     '<<$boy>> puts you on the bed and strips.'
     Set deysts = RAND (1,3)
         if deysts = 1:
         Set guy = guy + 1
         Set sex = sex + 1
         vagina+=1
         '<<$boy>> pushes your legs and enters into you.'
         set picrand = RAND (1,5)
              if picrand = 1:'<center><img src="pics/vagmis.jpg" ></center>'
              if picrand = 2:'<center><img src="pics/vagmis2.jpg" ></center>'
              if picrand = 3:'<center><img src="pics/vagmis3.jpg" ></center>'
              if picrand = 4:'<center><img src="pics/vagmis4.jpg" ></center>'
              if picrand = 5:'<center><img src="pics/vagmis5.jpg" ></center>'
         pose = 0
         gs'orgasm','start'
         !'As a member of the hammer hammer inside you, you are very nice and you are ready to finish.'
          act 'Get_Away':gt 'street'
         end
         if deysts = 2:
         '<<$boy>> puts you cancer and is in you'
         Set guy = guy + 1
         Set sex = sex + 1
         vagina+=1
         
         Set cumass = cumass + 1
         !'<<$boy>> pushes your legs and enters into you.'
         set picrand = RAND (1,5)
              if picrand = 1:'<center><img src="pics/vagdog.jpg" ></center>'
              if picrand = 2:'<center><img src="pics/vagdog2.jpg" ></center>'
              if picrand = 3:'<center><img src="pics/vagdog3.jpg" ></center>'
              if picrand = 4:'<center><img src="pics/vagdog4.jpg" ></center>'
              if picrand = 5:'<center><img src="pics/vagdog5.jpg" ></center>'
         pose = 1
         gs'orgasm','start'
         act 'Get_Away':gt 'street'
         end
         
         if deysts = 3:
         '<<$boy>> lays down on the bed and puts you on top, you feel his cock enters you'
         Set guy = guy + 1
         Set sex = sex + 1
         
         Set cumass = cumass + 1
         'His cock came into you and you started to jump on his elde.'
         set picrand = RAND (1,5)
              if picrand = 1:'<center><img src="pics/vagcow.jpg" ></center>'
              if picrand = 2:'<center><img src="pics/vagcow2.jpg" ></center>'
              if picrand = 3:'<center><img src="pics/vagcow3.jpg" ></center>'
              if picrand = 4:'<center><img src="pics/vagcow4.jpg" ></center>'
              if picrand = 5:'<center><img src="pics/vagcow5.jpg" ></center>'
         pose = 0
         gs'orgasm','start'
         act 'Get_Away':gt 'street'
         end
     end
     if deyst >= 70 and deyst < 85:
     '<<$boy>> tells you that he wants what would you have him suck'
         act 'Opt_Out':gt 'cafe3','0'
         
         act 'Take by mouth':
         '<<$boy>> pulled out his penis'
         Set guy = guy + 1
         Set bj+=1
         
         Set throat= throat + 1
         Set vaf=vaf+1
         'You took his cock in her mouth and began to suck.'
         set picrand = RAND (1,10)
              if picrand = 1:'<center><img src="pics/bj.jpg" ></center>'
              if picrand = 2:'<center><img src="pics/bj2.jpg" ></center>'
              if picrand = 3:'<center><img src="pics/bj3.jpg" ></center>'
              if picrand = 4:'<center><img src="pics/bj4.jpg" ></center>'
              if picrand = 5:'<center><img src="pics/bj5.jpg" ></center>'
             if picrand = 6:'<center><img src="pics/bj6.jpg" ></center>'
             if picrand = 7:'<center><img src="pics/bj7.jpg" ></center>'
             if picrand = 8:'<center><img src="pics/bj8.jpg" ></center>'
             if picrand = 9:'<center><img src="pics/bj9.jpg" ></center>'
             if picrand = 10:'<center><img src="pics/bj10.jpg" ></center>'     
         '<<$boy>> groans and is about to finish.'
         *clr
             act 'Remove the member from the mouth':
             cla
             Set bjrand = RAND (1,100)
             if bjrand < 50 and vaf>100:'You have time to remove the member from his mouth and <<$boy>> ends by you.'
             if bjrand >= 50 or vaf<=100:Set cumface = cumface + 1&'<<$boy>> cums on your face.'
             set picrand = RAND (1,5)
                 if picrand = 1 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial.jpg" ></center>'
                 if picrand = 2 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial2.jpg" ></center>'
                 if picrand = 3 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial3.jpg" ></center>'
                 if picrand = 4 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial4.jpg" ></center>'
                 if picrand = 5 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial5.jpg" ></center>'
             'You try to wipe from the face of sperm, but poorly washed sperm.'
             act 'Get_Away':gt 'street'
             end
             
             act 'suck on':
             cla
             Set vaf=vaf+1
             'You feel like a hot jet of sperm hit you in the throat. You have a mouth full of sperm.'
              set picrand = RAND (1,10)
             if picrand = 1:'<center><img src="pics/cum.jpg" ></center>'
             if picrand = 2:'<center><img src="pics/cum2.jpg" ></center>'
             if picrand = 3:'<center><img src="pics/cum3.jpg" ></center>'
             if picrand = 4:'<center><img src="pics/cum4.jpg" ></center>'
             if picrand = 5:'<center><img src="pics/cum5.jpg" ></center>'
             if picrand = 6:'<center><img src="pics/cum6.jpg" ></center>'
             if picrand = 7:'<center><img src="pics/cum7.jpg" ></center>'
             if picrand = 8:'<center><img src="pics/cum8.png" ></center>'
             if picrand = 9:'<center><img src="pics/cum9.jpg" ></center>'
             if picrand = 10:'<center><img src="pics/cum10.jpg" ></center>'
                 act 'swallow':
                 cla
                 Set vaf=vaf+2
                 Set cumlip = cumlip + 1
                 '<<$boy>> looks like you swallow sperm.'
                 act 'Get_Away':gt 'street'
                 end
                 
                 act 'spit_out':
                 cla
                 'You go into the bathroom and there spits cum'
                 act 'Get_Away':gt 'street'
                 end
             end
             
         
         !act 'Get_Away':gt 'street'
         end
     end
     if deyst >= 85:
     '<<$boy>> tells you that he wants you in the ass otimet'
         act 'Opt_Out':gt 'cafe3','0'
         
         act 'agree':
         cla
         '<<$boy>> puts you cancer and lubricates your ass somehow cream. You feel like something tight Bound to you in the anus.'
         'Sharp pain in the anus smenyaetsya a light fun. <<$boy>> You fucked in the ass smoothly, that would not break anything.'
         Set guy = guy + 1
         Set anal = anal + 1
         anus+=1
         if lubri>0:Set lubri  = lubri  - 1
         Set cumass = cumass + 1
          set picrand = RAND (1,10)
             if picrand = 1:'<center><img src="pics/anal.jpg" ></center>'
             if picrand = 2:'<center><img src="pics/anal2.jpg" ></center>'
             if picrand = 3:'<center><img src="pics/anal3.bmp" ></center>'
             if picrand = 4:'<center><img src="pics/anal4.jpg" ></center>'
             if picrand = 5:'<center><img src="pics/anal5.jpg" ></center>'
             if picrand = 6:'<center><img src="pics/anal6.jpg" ></center>'
             if picrand = 7:'<center><img src="pics/anal7.jpg" ></center>'
             if picrand = 8:'<center><img src="pics/anal8.jpg" ></center>'
             if picrand = 9:'<center><img src="pics/anal9.jpg" ></center>'
             if picrand = 10:'<center><img src="pics/anal10.jpg" ></center>'
             'You feel like your anus is filled with a liquid that warm. You bring myself up in the bathroom and dress.'
             act 'Get_Away':gt 'street'
         end
     end
end

if $ARGS[0]='wc':
cla
$nameV=$boy
dynamic $venerasiak
'You went to the toilet with a guy. <<$boy>> began to kiss and caress you. Then he offered you suck at it.'
	 act 'Opt_Out':
     cla
     'You abandoned your hot lover but it did not bother, he turned you back to him and bent.'
     'you feel, what <<$boy>> laid bare your ass and that something solid upiraetsya your vagina'
     Set guy = guy + 1
     Set sex = sex + 1
     Set cumass = cumass + 1
     vagina+=1
     'Fuck you cancer in the toilet.'
     '<center><img src="pics/vagtualet.jpg" ></center>'
     pose = 1
     gs'orgazm','start'
     act 'Get_Away':gt 'street'
     end
  
     act 'Take by mouth':
     cla
     Set vaf=vaf+1
     '<<$boy>> pulled out his penis'
     Set guy = guy + 1
     Set bj+= 1
     
     Set throat= throat + 1
     'You took his cock in her mouth and began to suck.'
     set picrand = RAND (1,10)
         if picrand = 1:'<center><img src="pics/bj.jpg" ></center>'
         if picrand = 2:'<center><img src="pics/bj2.jpg" ></center>'
         if picrand = 3:'<center><img src="pics/bj3.jpg" ></center>'
         if picrand = 4:'<center><img src="pics/bj4.jpg" ></center>'
         if picrand = 5:'<center><img src="pics/bj5.jpg" ></center>'
         if picrand = 6:'<center><img src="pics/bj6.jpg" ></center>'
         if picrand = 7:'<center><img src="pics/bj7.jpg" ></center>'
         if picrand = 8:'<center><img src="pics/bj8.jpg" ></center>'
         if picrand = 9:'<center><img src="pics/bj9.jpg" ></center>'
         if picrand = 10:'<center><img src="pics/bj10.jpg" ></center>'
     '<<$boy>> groans and is about to finish.'
     
         act 'Remove the member from the mouth':
         cla
         *clr
         Set bjrand = RAND (1,100)
             if bjrand < 50 and vaf<100:'You have time to remove the member from his mouth and <<$boy>> ends by you.'
             if bjrand >= 50 or vaf>=100:Set cumface = cumface + 1&'<<$boy>> cums on your face.'
             set picrand = RAND (1,5)
                 if picrand = 1 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial.jpg" ></center>'
                 if picrand = 2 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial2.jpg" ></center>'
                 if picrand = 3 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial3.jpg" ></center>'
                 if picrand = 4 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial4.jpg" ></center>'
                 if picrand = 5 and bjrand >= 50 or repa = 6:'<center><img src="pics/facial5.jpg" ></center>'
             act 'Get_Away':gt 'street'
             
         end
         
         act 'suck on':
         cla
         *clr
         Set vaf=vaf+2
         'You feel like a hot jet of sperm hit you in the throat. You have a mouth full of sperm.'
         set picrand = RAND (1,10)
         if picrand = 1:'<center><img src="pics/cum.jpg" ></center>'
         if picrand = 2:'<center><img src="pics/cum2.jpg" ></center>'
         if picrand = 3:'<center><img src="pics/cum3.jpg" ></center>'
         if picrand = 4:'<center><img src="pics/cum4.jpg" ></center>'
         if picrand = 5:'<center><img src="pics/cum5.jpg" ></center>'
         if picrand = 6:'<center><img src="pics/cum6.jpg" ></center>'
         if picrand = 7:'<center><img src="pics/cum7.jpg" ></center>'
         if picrand = 8:'<center><img src="pics/cum8.png" ></center>'
         if picrand = 9:'<center><img src="pics/cum9.jpg" ></center>'
         if picrand = 10:'<center><img src="pics/cum10.jpg" ></center>'
             act 'swallow':
             cla
             Set vaf=vaf+1
             Set cumlip = cumlip + 1
             swallow+=1
             '<<$boy>> looks like you swallow sperm.'
             act 'Get_Away':gt 'street'
             end
               
             act 'spit_out':
             cla
             'You go into the bathroom and there spits cum'
             act 'Get_Away':gt 'street'
             end
         end
         
         
     end
end

if $ARGS[0]='kampashka':
cla
dynamic $venerasiak
'you unitsethose guys somewhere by car. You`re drunk and you pat on the back seat just two guys. At_Last-the machine stops and you take out of the car.'
'you undress, and you feel like you are part of a member of, are you trying to say something, at this point you vstavlyaeyut cock in her mouth.'
set picrand = RAND (1,15)
if picrand = 1:'<center><img src="pics/gang.jpg" ></center>'
if picrand = 2:'<center><img src="pics/gang2.jpg" ></center>'
if picrand = 3:'<center><img src="pics/gang3.jpg" ></center>'
if picrand = 4:'<center><img src="pics/gang4.jpg" ></center>'
if picrand = 5:'<center><img src="pics/gang5.jpg" ></center>'
if picrand = 6:'<center><img src="pics/gang6.jpg" ></center>'
if picrand = 7:'<center><img src="pics/gang7.jpg" ></center>'
if picrand = 8:'<center><img src="pics/gang8.jpg" ></center>'
if picrand = 9:'<center><img src="pics/gang9.jpg" ></center>'
if picrand = 10:'<center><img src="pics/gang10.jpg" ></center>'
if picrand = 11:'<center><img src="pics/gang11.jpg" ></center>'
if picrand = 12:'<center><img src="pics/gang12.jpg" ></center>'
if picrand = 13:'<center><img src="pics/gang13.jpg" ></center>'
if picrand = 14:'<center><img src="pics/gang14.jpg" ></center>'
if picrand = 15:'<center><img src="pics/gang15.jpg" ></center>'
'You ripped into all the cracks, even more than once. You are very drunk and can not concentrate and remember details. What vague feeling, throughout the body, hands, Member. You will then be able to take and dumped at the entrance.'
Set guy = guy + 3
Set sex = sex + 1
Set bj+= 1
Set anal = anal + 1
Set throat= throat + 1
Set cumlip = cumlip + 1
Set cumface = cumface + 1
Set cumbutt = cumbutt + 1
Set cumass = cumass + 1
set cumpussy=cumpussy+1
set rape=rape+1
set gang=gang+1
vagina+=1
anus+=1
act 'Get_Away':gt 'street'   
end

if $ARGS[0]='coffee':
cla
dynamic $venerasiak
$nameV=$boy
minut+=30
gs'stat'
'<<$boy>> agreed to your proposal. You brought him home, there long embraced and continued to cuddle on the bed. <<$boy>> you entered with full force.'
set picrand = RAND (1,5)
if picrand = 1:'<center><img src="pics/vagmis.jpg" ></center>'
if picrand = 2:'<center><img src="pics/vagmis2.jpg" ></center>'
if picrand = 3:'<center><img src="pics/vagmis3.jpg" ></center>'
if picrand = 4:'<center><img src="pics/vagmis4.jpg" ></center>'
if picrand = 5:'<center><img src="pics/vagmis5.jpg" ></center>'
 pose = 0
 gs'orgasm','start'
Set guy = guy + 1
Set sex = sex + 1
vagina+=1
act 'wash':gt 'Vanr'     
end

--- cafe3 ---------------------------------

# ParkKafe

if $args[0]='food':
	 if money<100:
     'You do not have enough money for cafe.'
     act 'Get_Away':gt 'park','start'
	 exit
	 end
set health = health + 10
set money = money - 100
set manna = manna + 5
set willpower = willpower + 5

	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 
	 if energy < 20:
	 set energy = energy +20
	 set fat = fat + 1
	 'You gladly ate food.'
	 end
	 
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end


'You sat at a table in summer cafe. Soon you brought your order.'
 cla
 Set arand = RAND (1,7)
 if arand = 1:'You are viewing visitors cafes and strolling company notice <a href="exec:GT ''ParkKafe'',''youth''">youth</a>'
 if arand = 2:'You are viewing visitors cafes and notice sitting alone young <a href="exec:GT ''ParkKafe'',''guy''">Man</a>'
 if arand = 3:'You are viewing visitors cafes and notice the campaign students <a href="exec:GT ''ParkKafe'',''negros''">Africans</a>'
 if arand = 4:'You are viewing visitors cafes and notice <a href="exec:GT ''ParkKafe'',''woman''">woman</a> powerful species'
 if arand = 5:'You are viewing visitors cafes and notice the solid <a href="exec:GT ''ParkKafe'',''the_man''">man</a> aged'
 if arand = 6:'You are viewing visitors cafes and notice two <a href="exec:GT ''ParkKafe'',''Armenians''">Armenians</a> sitting at a table'
 if arand = 7:'You are viewing visitors cafes and notice two <a href="exec:GT ''ParkKafe'',''guys''">guys sporty</a> sitting at the table and beer pschih'

act 'Get_Away':gt 'park','start'
end

if $ARGS[0]='guys':
cla
Set rrand = RAND (1,2)
     if rrand = 1:
     'You studied them intently, but it seems you do not notice.'
     act 'go home':gt 'park','start'
     end
     if rrand = 2:
         if parkara > 0:
         'Zhora and Senya you noticed, but continued to drink beer together.'
         act 'Get_Away':gt 'park','start'
         end
         if parkara = 0:
         'Your views have been seen guys and one of them pulled up to you and asked to join them.'
         act 'Get_Away':gt 'park','start'
			 act 'Drink beer with the guys ':
			 cla
			 'You drank a glass of beer for guys, guys ordered another. One of the guys quietly slipped you something in a glass.  You get drunk and you guys took the nearest woods.'
			 Set deyrand = RAND (1,2)
				 if deyrand = 1:
				 if parkara = 0:Set guy = guy + 2&Set parkara = 1
				 Set sex = sex + 1         
				 Set bj = bj + 2
				 Set cumlip = cumlip + 2
				 'Guys put you on your knees and take out their cocks. you do not understand what`s going on at once starts to suck both members.'
				 '<center><img src="klof/022.jpg" ></center>'
				 Set horand = RAND (1,100)
				 if horand <= bj:Set horny = 0&orgasm+=1&'You covered orgasm'
				 if horand > bj:Set horny = horny + 10&'You were not satisfied'
				 'They end up in your mouth you greed to swallow cum'
				 act 'become_acquainted':gt'parkkafe','klof 1'
				 end
				 
				 if deyrand = 2:
				 if parkara = 0:Set guy = guy + 2&Set parkara = 1
				 Set sex = sex + 1
				 set cumpussy = cumpussy + 1
				 set vagina = vagina + 1     
				 set gang=gang+1
				 Set cumass = cumass + 1
				 anus+=1
				 anal+=1
				 'Guy fucks you in the pussy. The other is also not lose time and pushes his dick in the ass you.'
				 '<center><img src="klof/004.jpg" ></center>'
				 Set horand = RAND (1,100)
				 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
				 if horand > horny:Set horny = horny + 10&'You were not satisfied'
				 'One of them ends up in you, and other discharges to you on the ass.'
				 act 'become_acquainted':gt'parkkafe','klof 1'
				 end
			 end
         end
     end
end

if $ARGS[0]='klof 1':
cla
*clr
set minut = minut + 5
set klofQW = 1
clr
gs'stat'
'<center><img src="klof/11 1.jpg" ></center>'
'In rose from the grass in front of the guys legs and hands were shaking from sex, between his legs itched all. "Did you like it babe?" asked one of the guys .'
act'Yes_I_Am':gt 'event','klof 2'
act 'Get_Away':gt'park','start'
end




if $ARGS[0]='Armenians':
cla
Set rrand = RAND (1,2)
     if rrand = 1:
     'You studied them intently, but it seems you do not notice.'
     act 'go home':gt 'park','start'
     end
     
     if rrand = 2:
     'Your views were seen by Armenians and one of them pulled up to your table with a bottle of champagne.'
     act 'Get_Away':gt 'park','start'
         act 'drink together':
         cla
         *clr
         'You drank champagne with Armenian. His friend has moved smoothly for your table. You were drinking and having fun. You get drunk and Armenians took you into the back room cafe.'
         Set deyrand = RAND (1,2)
             if deyrand = 1:
             if parkarman = 0:Set guy = guy + 2&Set parkarman = 1
             Set bj+= 2
             Set cumlip = cumlip + 2
             'Armenians put you on your knees and take out their mighty members. They dvoem poke them in your face, once you start to suck both members.'
             '<center><img src="pics2/ara.jpg" ></center>'
             Set horand = RAND (1,100)
             if horand <= bj:Set horny = 0&orgasm+=1&'You covered orgasm'
             if horand > bj:Set horny = horny + 10&'You were not satisfied'
             'They end up in your mouth with laughter and go'
             act 'Get_Away':gt 'park','start'
             end
             
             if deyrand = 2:
             if parkarman = 0:Set guy = guy + 2&Set parkarman = 1
             Set sex = sex + 1
             Set bj+= 1
             set gang=gang+1
             Set cumlip = cumlip + 1
             Set cumass = cumass + 1
             vagina+=1
             'Armenians bend over you and puts you one cock in her mouth. The other is also not lose time and pushes his penis into the vagina to you.'
             '<center><img src="pics2/ara2.jpg" ></center>'
             Set horand = RAND (1,100)
             if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
             if horand > horny:Set horny = horny + 10&'You were not satisfied'
             'One of them ends up in your mouth and swallow all makes, and other discharges to you on the ass.'
             act 'Get_Away':gt 'park','start'
             end
         end
     end
end

if $ARGS[0]='the_man':
cla
set mrand = RAND (1,2)
if mrand = 1:'You glanced surreptitiously at respectable man, but it seems you did not notice.'
act 'Get_Away':gt 'park','start'
     if mrand = 2:
     cla
     'A man comes to you and invites you to dance.' 
         act 'dance':
         cla
         'He dances well and confidently leads you while dancing. After the dance, he orders expensive wine and various snacks, you relax with gallant compliments showered you.'
         'Cavalier offers to go to the sauna.'
             act 'In the sauna':
             cla
             if saunasex = 0:Set saunasex = 1&Set guy = guy + 1
             Set sex = sex + 1
             !Set oral = oral + 1
             Set cumlip = cumlip + 1
             Set cumass = cumass + 1
             set horny = 0
             set vnesh = vnesh + 1
             vagina+=1
             '<center><img src="pics2/sauna.jpg" ></center>'
             'In the sauna, entertain, gradually turns into a very passionate sex'
             if horny>75:Set horny = 0&orgasm+=1&'You covered orgasm'
             if horny<=75:Set horny = horny + 10&'You were not satisfied'
             act 'Get_Away':gt 'street'
             end
         end
     act 'Get_Away':gt 'park','start'
     end

end

if $ARGS[0]='woman':
cla
'You glanced surreptitiously at the imperious woman, but it seems you did not notice.'
act 'Get_Away':gt 'park','start'
end

if $ARGS[0]='youth':
cla
Set rrand = RAND (1,2)
if rrand = 1:
'You keep an eye on the campaign secretly laughing youth, but it seems you do not notice.'
act 'Get_Away':gt 'park','start'
end
     if rrand = 2:
     'To you came drunk guy and invited you to the company.'
     act 'Get_Away':gt 'park','start'
         act 'The_Company':
         cla
         'You sat at the table where walking cheerful and noisy company of young people, it was a lot of fun and at the end of the party went kompashka continue the fun at the apartment'
         act 'Get_Away':gt 'park','start'
             act 'To go along with all':
             cla
             *clr
             '<center><img src="pics2/Student.jpg" ></center>'
             'You have continued to revel in the apartment. Most went home, but there was one Devchenka and six guys. The boys started to kiss her and she sat down on her knees in front of them boys got members, girls caress their hands, and the guys masturbate members on the girl`s face'
             act 'Get_Away':gt 'park','start'
                 act 'Kneel down next to the girl in the lap of the guys': 
                 cla
                 *clr
                 Set hour= 22
                 son=0
                 if studentsex = 0:Set studentsex = 1&Set guy = guy + 6
                 Set bj = bj + 6
                 Set cumlip = cumlip + 6
                 set swallow=swallow+6
                 '<center><img src="pics2/Student2.jpg" ></center>'
                 'Guys masturbate on your face, and you are a woman caressed and kissed members, Finally the guys began to descend you in their mouths. Your co-worker also nakonchal mouthful, she turns to you with a mouth full of sperm and wants to kiss you.'
                     act 'Kiss the girl':
                     cla
                     *clr
                     '<center><img src="pics2/Student3.jpg" ></center>'
                     'You kiss a girl, you have two mouthfuls of cum and you are sharing it with a kiss, Finally.'
                     act 'Get_Away':gt 'street'
                     end
                 end
             end
         end
     end
end

if $ARGS[0]='negros':
cla
Set rrand = RAND (1,2)
     if rrand = 1 or afra >= 1:
     'You glanced surreptitiously at the Africans, but it seems you do not notice.'
     act 'Get_Away':gt 'park','start'
     end
     if rrand = 2 and afra = 0:
     Set afra = 1
     Set obs = 1
     'To fit your table a few Africans, they behave not quite restrained, a lot of talk in English, grabs your ass and breasts. One of the Africans who introduced DeMarcus tells you that they are students from Africa and live in a dorm, He also tells you how to get to the hostel and find them.'
     act 'Get_Away':gt 'park','start'
     end
end

if $ARGS[0]='guy':
cla
Set rrand = RAND (1,2)
     if rrand = 1 or gosh = 1:
     'You glanced surreptitiously at a young guy, but it seems you did not notice.'
     act 'Get_Away':gt 'park','start'
     end
     if rrand =2 or gosh = 1:
     'You glanced surreptitiously at a young guy. This Ghosh, but it seems you did not notice.'
     act 'Get_Away':gt 'park','start'
     end
     if rrand = 2 and gosh = 0:
     Set gosh = 1
     Set obs = 1
     'To your table fit young man and introduces himself as Gosha, you are familiar with it, He is a student and lives in obschege. Ghosh tells you how to get to the hostel and how to find it.'
     act 'Get_Away':gt 'park','start'
     end
end
--- ParkKafe ---------------------------------

# RynokHoz
if $ARGS[0]='beginning':
minut+=15
if arturplan>4000:arturplan-=1000
gs'stat'
'You are logged in with a host container skluzhaschy warehouse and cabins, There he took out a bottle of vodka and a snack'
     act 'Drinking with the owner':
     cla
     minut+=15
     gs'stat'
     'Arthur set the table, put a bottle of vodka and invited you to sit on a chair.'
     'You got drunk together with the owner and he pressed you to my arms around. Then he took out your breasts and began to fondle'
         act 'surrender':
         cla
         if rinhoz = 0:Set rinhoz = 1&Set guy = guy + 1
         Set sex = sex + 1
         vagina+=1
         Set cumass = cumass + 1
         Set horand = RAND (1,100)
         '<center><img src="pics/rinsex.jpg" ></center>'
         'You are relaxed and began to embrace the host response. He undressed and put your stomach on bags with groats, spread your buttocks and your zasoval hard and hot cock in your pussy'
         if horand > horny:Set horny = horny + 10&'You were not satisfied'
         if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
         Set gbrand = RAND (1,100)
             if gbrand < 95 and palevorin = 0:
             'After sex 2000 rubles, and you went about their business every.'
             Set money = money + 2000
             act 'go home':gt 'street'
             end
             
             if palevorin >= 1:
             'After sex 2000 rubles, and you went about their business every.'
             Set money = money + 2000
             act 'go home':gt 'street'
             end
             
             if gbrand >= 95 and palevorin = 0:
             if palevorin=0:palevorin = 1
             cla
             'While he fucked you , entered the room. You know them is Abdul Hassan, owners of neighboring tents.'
             'You froze in surprise and shame, You caught moaning fuck bare ass, men happy and guffawed. They offered you serve them .'
                 act 'silently dress':
                 cla
                 Set money = money + 2000
                 if rinslut = 0:Set rinslut = 1 
                 'You ashamed face silently dressed, at this time the owner handed you 2000 rubles in premiums.'
                 act 'go home':gt 'street'
                 end
                 
                 act 'Agree to group sex':
                 cla
                 Set palevorin = 2
                 'The owner ended on you and gave way to two guys, one of them picked up your ass and you threw it stuck in my dick pussy, you moan in pain when he hit you in the womb, the second man immediately got penis and began to clap them on your face, you took him in her mouth. So you fried two guys, and the owner was sitting and looking at what is happening.'
                 '<center><img src="pics/rinkrug.jpg" ></center>'
                 if abdulasex=0:abdulasex=1&guy+=1
                 if hasansex=0:hasansex=1&guy+=1
                 Set sex = sex + 1
                 vagina+=1
                 Set bj = bj + 1
                 gang+=1
                 Set cumass = cumass + 1
                 Set cumlip = cumlip + 1
                 'And finally Abdul Hassan and filled steel finish, one in your mouth and the second you on your ass.'
                 Set money = money + 5000
                 'Once finished you guys came up and gave you the owner 5000 rubles premium'
                 act 'go home':gt 'street'
                 end
             end
             !if palevorin >= 1:
             !'After sex 2000 rubles, and you went about their business every.'
             !Set money = money + 2000
             !act 'go home':gt 'street'
             !end
             
         end
         
         act 'suck':
         cla
         if rinhoz = 0:Set rinhoz = 1&Set guy = guy + 1
         Set bj = bj + 1
         Set cumlip = cumlip + 1
         Set horand = RAND (1,100)
         '<center><img src="pics/rinbj.jpg" ></center>'
         'You sit in front of the master on his knees and took out his cock, around his lips and began to suck it, absorbing member in the throat and licking testicles host, when he began to cum in your mouth, you were forced to swallow his struhnyu, neither wash nor spit it no where.'
         if horand > vaf:Set horny = horny + 10&'You were not satisfied'
         if horand <= vaf:Set horny = 0&orgasm+=1&'You covered orgasm'
         Set gbrand = RAND (1,100)
             if gbrand < 95 and palevorin = 0:
             'After sex 2000 rubles, and you went about their business every.'
             Set money = money + 2000
             act 'go home':gt 'street'
             end
             !
             if palevorin >= 1:
             'After sex 2000 rubles, and you went about their business every.'
             Set money = money + 2000
             act 'go home':gt 'street'
             end
             
             if gbrand >= 95 and palevorin = 0:
             if palevorin=0:palevorin = 1
             'You have already finished doing blowjob and licked the remnants of sperm with the term host when the door opened and two men entered the closet. You know them is Abdul Hassan, owners of neighboring tents.'
             wait 3000
             'You froze in surprise and shame, You caught with a mouthful of sperm licking red eldu, men happy and guffawed. They offered you serve them .'
                 act 'Wipe your mouth and adjust clothing':
                 cla
                 Set money = money + 2000
                 if rinslut = 0:Set rinslut = 1 
                 'You face red with shame began to wipe the remnants of sperm from her lips and correct clothes, at this time the owner handed you 2000 rubles in premiums.'
                 act 'go home':gt 'street'
                 end
                 
                 act 'Agree to suck them':
                 cla
                 Set palevorin = 2
                 'Licking prick you master nodded his consent. The two men immediately took out their members and substitute them to your mouth, you began to suck dick just two'
                 '<center><img src="pics/rintri.jpg" ></center>'
                 if abdulasex=0:abdulasex=1&guy+=1
                 if hasansex=0:hasansex=1&guy+=1
                 Set bj = bj + 2
                 gang+=1
                 Set cumlip = cumlip + 2
                 'And finally Abdul Hassan began to cum in your mouth, you swallow and lick cum until their members did not fall off.'
                 Set money = money + 5000
                 'Once finished you guys came up and gave you the owner 5000 rubles premium'
                 act 'go home':gt 'street'
                 end
             end
             !if palevorin >= 1:
             !'After sex 2000 rubles, and you went about their business every.'
             !Set money = money + 2000
             !act 'go home':gt 'street'
             !end
         end
     end
end

if $ARGS[0]='bus':
'You are the driver went into the shed, There he took out a bottle of vodka and a snack'
     act 'Drinking with a driver':
     cla
     'You got drunk together with the driver and he was to squeeze your breasts and ass'
         act 'surrender':
         cla
         if vodila = 0:Set vodila = 1&Set guy = guy + 1
         Set sex = sex + 1
         
         Set cumass = cumass + 1
         'You are relaxed and started in response to hug cage. He undressed you and put the cancer, you feel like it hard and hot cock pushing the vaginal wall comes into you, you involuntarily groaned surging feelings for you.'
         '<center><img src="pics/busSex.jpg" ></center>'
         Set horand = RAND (1,100)
         if horand > horny:Set horny = horny + 10&'You were not satisfied'
         if horand <= horny:Set horny = 0&'You covered orgasm'
         'Having sex with a carrier you went about their business every.'
         !Set money = money + 2000
         act 'go home':gt 'street'
         end
         
         act 'suck':
         cla
         if vodila = 0:Set vodila = 1&Set guy = guy + 1
         Set sex = sex + 1
         Set oral = oral + 1
         Set cumlip = cumlip + 1
         'You sit in front of the driver got on his knees and his cock, her lips and began to suck, when the driver began to cum in your mouth, you were forced to swallow cum, neither wash nor spit it no where.'
         '<center><img src="pics/busbj.jpg" ></center>'
         Set horand = RAND (1,100)
         if horand > horny:Set horny = horny + 10&'You were not satisfied'
         if horand <= horny:Set horny = 0&'You covered orgasm'
         'After extraction cage, you went about their business every.'
         !Set money = money + 2000
         act 'go home':gt 'street'
         end
     act 'Swear it and go':gt 'street'
     end
end

if $ARGS[0]='opusteha':
'You three fellows went to the container warehouse employee and cabins, there they took out their members and you suck on my knees at once at three'
Set rinslut = 1
Set sex = sex + 1
Set bj = bj + 3
Set cumlip = cumlip + 3
Set money = money + 2000
if repa < 6:Set repa = 6
'<center><img src="pics/tri6.jpg" ></center>'
Set horand = RAND (1,100)
if horand > oral:Set horny = horny + 10&'You were not satisfied'
if horand <= oral:Set horny = 0&'You covered orgasm'
'After the men finished your mouth, the owner took 2000 thousands and gave you as a premium'
act 'go home':gt 'street'
end

if $ARGS[0]='opusteha2':
'Armenian took you to the shed and set him on his knees in front of him pulled out his big dick. You licked his lips and began grinding his mighty member of his mouth.'
Set tiprand = RAND (1,2)
Set guy = guy + 1
Set bj = bj + 1
Set throat= throat + 1
if tiprand = 1:Set cumlip = cumlip + 1
if tiprand = 2:Set cumface = cumface + 1
Set money = money + 500
if repa < 6:Set repa = 6
if tiprand = 1:'Armenian grabbed you by the head and finished in your mouth. You were forced to swallow all.'
if tiprand = 2:'Armenian pulled his cock out of your mouth and hold your head over your face cumshot.'
if tiprand = 1:'<center><img src="pics/rinslutBJ.jpg" ></center>'
if tiprand = 2:'<center><img src="pics/bukkOne.jpg" ></center>'
Set horand = RAND (1,100)
if horand > oral:Set horny = horny + 10&'You were not satisfied'
if horand <= oral:Set horny = 0&'You covered orgasm'
'Once finished Armenian, he tucked in his pants member and you threw five hundred papers.'
act 'go home':gt 'street'
end
--- RynokHoz ---------------------------------

# seeparentsex
parentsexday=daystart
gs'stat'
'<center><img src="qwest/alter/ev2/see.jpg" ></center>'
'Looking at the door to his parents in the bedroom as you saw your mother `s stepfather fucks cancer.'

act'Get_Away':gt'korrPar'

if horny>=50:
	 act'peep':
	 cls
	 horny+=10
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/see.jpg" ></center>'
	 'You pry as your nurse podmahivaet asshole stepfather.'
     act'Get_Away':gt'korrPar'
	 end

end
--- seeparentsex ---------------------------------

# sistersobir
!if lesbian>0:horny+=10&siswath+=1
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sobir.jpg" ></center>'
'Walks around the room going to work your sister Anya.'
'Anya says turning to you "Sveta, I`m so late, do not distract."'

act 'move_away':gt $loc, $metka
--- sistersobir ---------------------------------

# sisterprogulka
!if lesbian>0:horny+=10&siswath+=1
gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/progulka.jpg" ></center>'
'Walks around the room going for a walk on your sister Anya. She admires itself in a mirror and turned the ass trying to see yourself better'
'Anya says turning to you "Sveta, if you decide to take a walk, I`m outside the club with her friends."'

act 'move_away':gt $loc, $metka
--- sisterprogulka ---------------------------------

# seeporn
gs'stat'

'Together with all the guys you`ve come to bear and he turned on the video player, by which immediately began to show porn.'

act 'watch':
cls
minut+=15
seepornofut+=1
horny+=(seepornofut+mastr)*2
gs'stat'

     if seepornofut<3:
     'Boys looking at what is happening on the screen clearly at ease and embarrassed shoot you in the eyes.'
     end
     if seepornofut>=3 and seepornofut<10:
     'Guys have become accustomed to watching porn , sometimes even comment on it.'
     end
     if seepornofut>=10:
     'Guys look hard porn, you notice, that all vyzdybilis shirinki.'
     evgenrand=rand(0,5)
     
         if evgenqw=4:
         cls
         boyseeporn+=1
         gs'stat'
         
         'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos offers "Svetsik, What about work mouth?"'
             
             act 'to_be_silent':
			 cls
			 bj+=3
			 sub+=5
			 gang+=1
			 gs'stat'
			 '<center><img src="qwest/alter/ev2/seepornblowbang.jpg" ></center>'
			 'Zhendos got dick out of his pants and pulled your face to its members, You dutifully wrapped around his lips and began to suck. Your brother Kolka and Bear also got members and put them to you to face, you started to masturbate and suck dick.'
			     act 'suck':
				 cls
				 cumface+=3
				 cumlip+=2
				 cumfrot+=1
				 gs'stat'
				 '<center><img src="qwest/alter/ev2/seepornbbcum.jpg" ></center>'
				 'The boys did not last long and become cum on your face, Soon almost all of your face was covered with a layer of smelly mucus and the sperm even hit you on your clothes.'
				 act 'Get_Away':gt 'gorodok'
				 end
			 end
             
         	 if dom>boyseeporn*2:
				 act 'Beat_It':
				 cls
				 dom+=1
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You indignantly rejected the proposal boys.'
				 act 'Get_Away':gt 'gorodok'
				 end
			 end 
         exit
         end
     
         if evgenqw=3:
         cls
         gs'stat'
         '<center><img src="qwest/alter/ev2/seeporn.jpg" ></center>'
         'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos suddenly takes your hand and puts it in the groin, just goes and Bear. Your brother Kolka laughed nervously. A Bear told you conspiratorially "Svetsik, vzdrochni us."'
			 act 'jerk kid':
			 cls
			 hj+=2
			 boyseeporn+=1
			 sub+=1
			 gs'stat'
			 !brotherrand=rand(3,10)
			     if boyseeporn<2:
				 '<center><img src="qwest/alter/ev2/seepornHJ.jpg" ></center>'
				 'You glide skin on both members of their handles, Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'
					 act 'vozmuschatsya':
					 cls
					 cumfrot+=2
					 gs'stat'
					 '<center><img src="qwest/alter/ev2/seeporncumhj.jpg" ></center>'
					 'you have rebelled "look assholes, you all I smeared!" But the boys blissfully sprawled on the couch "Very best in your palms Svetsik, such small, soft and warm."'
					 act 'Get_Away':gt 'gorodok'
					 end
				 end
				 if boyseeporn>=2:
				 bj+=1
				 evgenqw=4
				 if brotherSex=0:brotherSex=1&guy+=1
				 '<center><img src="qwest/alter/ev2/seepornfirst.jpg" ></center>'
				 'You glide skin on both members of their handles, your brother Kolka broke down and with a strangled groan. You have eyes widened by this turn of events. Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'
					 act 'To_get':
					 cls
					 cumfrot+=2
					 cumface+=1
					 facial+=1
					 gs'stat'
					 '<center><img src="qwest/alter/ev2/seepornfacial.jpg" ></center>'
					 'Suddenly. Mishan laughed "Kolyamba, you just fucked his sister in the mouth. ohrenet" Kohl wiping the sweat from his forehead choked said "Yes, she asks that this slut. That could not resist."'
					 act 'Get_Away':gt 'gorodok'
					 end
				 end
			 end
			 
			 if dom>boyseeporn*2:
				 act 'remove hands':
				 cls
				 dom+=1
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You angrily removes his hands and yelling angrily at the boys.'
				 act 'Get_Away':gt 'gorodok'
				 end
			 end 
         exit
         end
     
         if evgenqw=2 and evgenrand=0:
         cls
         gs'stat'
         '<center><img src="qwest/alter/ev2/seeporn.jpg" ></center>'
         'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos suddenly takes your hand and puts it in the groin, just goes and Bear. Your brother Kolka laughed nervously. A Bear told you conspiratorially "Svetsik, vzdrochni us."'
             act 'Yes you ohueli!!!':
             cls
             gs'stat'
             '<center><img src="qwest/alter/ev2/seeporn.jpg" ></center>'
             'You rebelled actions boys. What Bear said "Come, you`re a girl, moreover, we just peredernesh gate in a friendly."'
                 if horny>=70:
					 act 'jerk kid':
					 cls
					 hj+=2
					 boy+=2
					 evgenqw=3
					 gs'stat'
					 '<center><img src="qwest/alter/ev2/seepornHJ.jpg" ></center>'
					 'You glide skin on both members of their handles, Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'
					 	 act 'vozmuschatsya':
						 cls
						 cumfrot+=2
						 gs'stat'
						 '<center><img src="qwest/alter/ev2/seeporncumhj.jpg" ></center>'
						 'you have rebelled "look assholes, you all I smeared!" But the boys blissfully sprawled on the couch "Very best in your palms Svetsik, such small, soft and warm."'
						 act 'Get_Away':gt 'gorodok'
						 end
					 end
				 end
				 if horny<70:
					 act 'remove hands':
					 cls
					 dom+=1
					 gs'stat'
					 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
					 'You angrily removes his hands and yelling angrily at the boys.'
					 act 'Get_Away':gt 'gorodok'
					 end
				 end 
             
             end
             
             
         exit
         end
         
         if evgenqw=1 and evgenrand=0:
         cls
         horny+=10
         gs'stat'
         'Guys look hard porn, you notice, that all vyzdybilis shirinki.
You feel like a hand Zhendosa accidentally stroking your ass.'
             if horny<70:
                 act 'Remove his hands':
				 cls
				 dom+=1
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You angrily removes his hands from his priests Zhendosa.'
				 act 'Get_Away':gt 'gorodok'
				 end
             end 
             if horny>=70:
                 act 'Pretend that nothing is happening':
				 cls
				 sub+=1
				 evgenqw=2
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You sit on the couch red as a lobster enjoying a nice touch to his priest.'
				 act 'Get_Away':gt 'gorodok'
				 end
             end 
         exit
         end
         
         if evgenqw=0 and evgenrand=0:
         cls
         gs'stat'
         'Guys look hard porn, you notice, that all vyzdybilis shirinki.
Zhendos looking at porn asks you "And you did that light ever?"'
             if horny<70:
                 act 'Go to jerk dick':
				 cls
				 dom+=1
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You sent Zhendosa on dick with such conversations.'
				 act 'Get_Away':gt 'gorodok'
				 end
             end 
             if horny>=70:
                 act 'keep_silent':
				 cls
				 sub+=1
				 evgenqw=1
				 gs'stat'
				 !'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				 'You swallowed and said nothing eyeing porn. Mishan chuckled "And she asks how flushed. It turns out the girls also like porn."'
				 act 'Get_Away':gt 'gorodok'
				 end
             end
         exit
         end
         
         
     end
act 'Get_Away':gt 'gorodok'
end












--- seeporn ---------------------------------

# artemhome2
gs'stat'
if artemhomemark=0:
'You came to the house Artem Chebotarev.'
act 'Get_Away':minut+=15&gt'gorodok'
     if week<6:
         if hour<16 and hour>=7:
         'Artem not at home.'
         end
         if hour>=16 and hour<20:
         'The door you opened Artem and invited to enter.'
         act'Login':artemhomemark=1&gt $curloc
         end
         if hour>=20 or hour<7:
         'Too late, that would go to visit.'
         end
     end
     if week>=6:
         if hour<10:
         'Too early time, that would go to visit.'
         end
         if hour>=10 and hour<20:
         'The door you opened Artem and invited to enter.'
         act'Login':artemhomemark=1&gt $curloc
         end
         if hour>=20 or hour<5:
         'Too late, that would go to visit.'
         end
     end
end
if artemhomemark=1:
'Artem sits in his room on the bed.'
     if artompower>0:
     'Artem smiling at you "Sveta, you are so beautiful!"'
     
	     act'kiss':
	     cls
	     horny+=10
	     gs'stat'
	     '<center><img src="qwest/alter/Ev/kiss.jpg" ></center>'
		 'You smiled Artem and his face a little closer to him. Artem approached you and kissed you. You started kissing.'
		 if artompower=3:'During a kiss Artem rubs against your thigh his crotch and you feel his hard cock through clothes. Do you feel that Artem took dick out of his pants and rubs them on your hip.'
		 if artompower=2:'During a kiss Artem rubs against your thigh his crotch and you feel his hard cock through clothes.'
         if artompower=1:'Finally ending the kiss shyly said Artem. "Sveta, I like you very nravishsya."'
			 dynamic $din_artom_leghump
			 dynamic $din_artom_leghump2
	     end
     end
     if artompower=0:
     'Artem with a smile looking at you "Oh Light, you milked me dry, I need a vacation."'
     end
     
     if lernHome>0:act'teach lessons':artemhomemark=2&gt $curloc
     
     act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
end
if artemhomemark=2:
	 minut+=60
	 grupNPC[2]+=10
	 lernHome=0
	 lern+=RAND(3,6)
	 intel+=RAND(1,2)
	 gs'stat'
	 '<center><img src="qwest/alter/npc/<<2>>.jpg" ></center>'
	 'Did you do with Artem in under an hour, During this time he helped you with homework and explained something of the studied material.'
	 act'rest':artemhomemark=1&gt $curloc
end


!'
     act'':
     cls
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/artom/2.jpg" ></center>'
     ''
     act'':
     end


'




--- artemhome2 ---------------------------------

# artemev2
gs'stat'
if artQW=1:
'<center><img src="qwest/alter/artom/2.jpg" ></center>'
'Artem suddenly gets flowers and presents them to you.'
     act'take':
     cls
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/artom/2.jpg" ></center>'
     'You take the flowers and kisses Artem. Do you feel that-it boils down to you through his pants. В«Thank you .В» You accidentally running a hand over his crotch and away from it.
Artem blushing : В«You are beautiful in different colors.В» Artem looking into the eyes you see them as much adoration that do not stand up and kiss him. Artem responds to kiss and you chustvuete his hand begins to caress your breasts.
'
         act'stop it':
		 cls
		 minut+=5
		 artQW=2
		 gs'stat'
		 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
		 'Do_You.: В« stop. Not too fast?В» Artem blushing removed from you: В«Sorry_...В»'
		 act'engaged':artemhomemark=2&gt'artemhome'
		 end
		 
		 act'Enjoy and encourage him.':
		 cls
		 minut+=5
		 horny+=20
		 artQW=3
		 hj+=1
		 hja+=1
		 if npcSex[2]=0:npcSex[2]=1&guy+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artom/cum.jpg" ></center>'
		 'You keep kissing and unbutton the dress so it was convenient .Take it out and put it on his chest. You feel his caresses excite you.
 Continuing to kiss you unbutton his pants and begin to masturbate guy. After several frictions Artem ends of the dress you.
Pulled away from him you say В«Well - dress soiled - where you have a bath?В» Artem blankly pointed.  You took the bag with textbooks buttoned dress and went to the bathroom. Along the way. В«Hello.В» Hiding behind the package you`ve gone to the bathroom. I hope my mother did not notice.
Do_You.: В«Let`s deal with.В»
'
		 act'engaged':artemhomemark=2&gt'artemhome'
		 end
     end
     
     act'Do not take':
     cls
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/artom/2.jpg" ></center>'
     'You`re looking at Artyom but do not take flowers В«Thank you of course - but we`re just friends and I want to make it so . I can not take them from you - that you had not counted on that-something more.В»
Artem throws flowers into the trash.
'
         act'Run in and pick them up from the trash.':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
		 'В«What are you doing - they are so beautiful!В» You got flowers from the bin and burst into tears. Artem came to you knelt down to hug you В«Well ... do not cry unnecessarily ..I did not want . I`m just so upset ..because you are such a ....В»He paused and buried his face in your stomach. You . Artem responds to kiss and you feel that his hand begins to caress your breasts.'
		     act'stop it':
			 cls
			 minut+=5
			 artQW=2
			 gs'stat'
			 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
			 'Do_You.: В« stop. Not too fast?В» Artem blushing removed from you: В«Sorry_...В»'
			 act'engaged':artemhomemark=2&gt'artemhome'
			 end
			 
			 act'Enjoy and encourage him.':
			 cls
			 minut+=5
			 horny+=20
			 artQW=3
			 hj+=1
			 hja+=1
			 if npcSex[2]=0:npcSex[2]=1&guy+=1
			 gs'stat'
			 '<center><img src="qwest/alter/artom/cum.jpg" ></center>'
			 'You keep kissing and unbutton the dress so it was convenient .Take it out and put it on his chest. You feel his caresses excite you.
	 Continuing to kiss you unbutton his pants and begin to masturbate guy. After several frictions Artem ends of the dress you.
	Pulled away from him you say В«Well - dress soiled - where you have a bath?В» Artem blankly pointed.  You took the bag with textbooks buttoned dress and went to the bathroom. Along the way. В«Hello.В» Hiding behind the package you`ve gone to the bathroom. I hope my mother did not notice.
	Do_You.: В«Let`s deal with.В»
	'
			 act'engaged':artemhomemark=2&gt'artemhome'
			 end
		 end
		 
		 act'Leave it as it is.':
		 cls
		 minut+=5
		 artQW=4
		 gs'stat'
		 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
		 'You pass silently into the room and say : В«Come on . В»
A.: В«Well ... Come.В» Have you noticed in his eyes a bad light. Come on - it seemed.
'
		 act'engaged':artemhomemark=2&gt'artemhome'
		 end
     end
end
if artQW=10:
minut+=30
gs'stat'
'You see a table set - Lighted candles - a bottle of wine. В«what is that? And why?В»
Artem.: В«We have a lot of time dealing with you and we can draw some conclusions.  You do not loom poor results - and the gold medal can hold out and I decided to celebrate this modestly.В»
Do_You. : В«Does your mother know ? And wine from? Suddenly?В»
Artem.: В«Do not go down - my mother went to her friend - and the wine -one gave me herself .... She thinks that we meet ... was very happy for me - especially dry wine - degrees in yogurt, she said, so let`s just sit here - talk - you do not mind?В»
Do_You.: В«No - do not mind ....В»
You are talking about the future - who wants to be someone where to go - from the conversation . You do not notice the bottle is almost empty and hops hit you in the head. You see how shiny Artem eyes when he looks at you. There is a strange silence and he kisses you .You are responsible for a kiss .Artem wants to remove your clothes.
'
	 act'stop it':
	 cls
	 minut+=5
	 if artQW=2:artQW=4
	 if artQW=3:artemtimes=20
	 gs'stat'
	 '<center><img src="qwest/alter/artom/2.jpg" ></center>'
	 'Do_You.: В« No need to rush okay?В» Artem blushing removed from you: В«Sorry_...В»
You keep talking as if nothing had happened.
'
	 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
	 end
	 
	 act'enjoy':
     cls
     minut+=5
     bj+=1
     bja+=1
     if npcSex[2]=0:npcSex[2]=1&guy+=1
     artQW=20
     gs'stat'
     '<center><img src="qwest/alter/artom/bj.jpg" ></center>'
     'You keep kissing and unbutton the dress so it was convenient .Take it out and put it on his chest. You feel his caresses excite you. Hop hit in the head ( not bad wine -Think you).
 continuing to kiss , you put his hand into his pants and felt his cock is ready to fight.  You unbutton his pants and start to unbutton his shirt . You take the hand of his cock and start stroking it .Your excitement is growing with every second you take a cock in her mouth and start sucking vigorously . 
В« I want you ...В»Hear the voice of Artem.
'
         act'Otdatsya':
		 cls
		 minut+=5
		 sexa+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artom/sex.jpg" ></center>'
		 'You undressed and lay on his back.'
		 dynamic $sexstart
		 dynamic $sexstart2
		 dynamic $sexcum
		 if artomsex=0:artomsex=1&'В«Here you are the manВ»-Say you smile.
Artem: В«Light ... I ... my I love you ....В»
In response. 
'
		 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
		 end
		 
		 act'continue to suck':
		 cls
		 minut+=5
		 horny=0
		 orgasm+=1
		 swallow+=1
		 cumlip+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artom/bjcum.jpg" ></center>'
		 'You accelerate the pace of not paying attention to the words of one hand caressing herself.
В«Now I finishВ»-Artem said. Without removing a member from the mouth you bring themselves to orgasm. During orgasm you swallow all his sperm and carefully lick dick.
Do_You: В«did you like it?В»
Artem: В«very_Much. Not exactly what I wanted but it `s even better - I could only dream about such a ...В»
'
		 act'Get_Away':artemhomemark=0&minut+=15&gt'gorodok'
		 end
     end

end
















--- artemev2 ---------------------------------

# artgar
apmeetday=daystart
gs'stat'
!'
if apmeet=5:
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev.'

end
if apmeet=4:
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev.'

end
if apmeet=3:
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev.'

end

if apmeet>=2:
apmeet=3
bj+=1
throat+=1
'<center><img src="qwest/alter/artom/apmeet3.jpg" ></center>'
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev drinking beer. presenting,  that you will be up,  Do_You, nonetheless,  dutifully undressed in front of the guys before the goal and took a pose on her knees before 10 liter bucket.  You blindfolded. Your body was covered with goose bumps,  You start to shiver in anticipation of the upcoming action. here Peter , astraddle, stood over a bucket in front of your face . While he was pulling on the penis condom and watered it with vegetable oil from a bottle, Artem has got you behind your head with your hands.  You were ordered to open his mouth wide, started...      It was not the blow. Peter just fucked you deep throat. You poked away tongue and holding her mouth wide open, choked by walking on the throat of the male member in a condom.  oiled, sexual organ is easy to slide on taut throat .       Eggs Petka relish spanked on your chin, When his cock was buried in the throat. Peter gripped by the ears and rhythmically deeply skewer your mouth on his penis. The most terrible thing in this was, what do you, being completely sober, well aware , that you guys get up to your class, but did not know how to stop this mockery of a humiliating and treacherous starts to flow from it all. all, What could I do -  so it, give their classmates plenty to enjoy your body, while meeting their absolutely wild ideas...'

end
'
if apmeet>=1:
!apmeet=2
vagina+=2
minut+=60
'<center><img src="qwest/alter/artom/apmeet2.jpg" ></center>'
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev. 
В«We thought that we would like to see. We decided to see how you fuck yourself bottle. And do not make round eyes - we know that it has brought you ALREADY. Beginners and that without hands.В»
You looked at a bottle of beer standing in the middle of the garage. Yes you thought nedomerki yet perversely Gopnik - hunger presses. You sat down on a bottle - Sights and neck came into you is very easy - and you really flowed .You started to squat on the bottle almost forcing it to yourself - just a little bit and you`re finished .Do not stay on his feet to the floor vyupali -Bottle left to wallow in your legs. В«I`m looking beer bottle have in it do not hold - as well that we still have?В» You saw how Artem with Peter come up to you and turn to the top of the booty .'
     act'get cancer':
     cls
     anal+=5
     minut+=5
     gs'stat'
     '<center><img src="qwest/alter/artom/analbotle.jpg" ></center>'
     'Artem takes what that bottle of lubricant inserts in back neck and squeezes. And then apply this grease fingers and sticks you in the ass .Gradually he razdrachivaet you point. В« Well ka Petruchio pull it from the other side!В» Peter smears fingers and inserts two fingers of the other hand - they stretch your point in different directions gradually adding fingers and grease.You have tears rolling from pain and humiliation. В«Wash enough.В» Artem takes wine bottle plaster it with grease: В«Come on itself - to surprise us- bottomed inside.В»You hardly have inserted a bottle . Guys applauded came to you В« Now suck !В»'
         act'suck':
		 cls
		 minut+=15
		 if npcSex[2]=0:npcSex[2]=1&guy+=1
		 if npcSex[6]=0:npcSex[6]=1&guy+=1
		 gang+=1
		 cumface+=2
		 facial+=1
		 gs'stat'
		 '<center><img src="qwest/alter/artom/doublebj2.jpg" ></center>'
		 'You started to suck their members with a bottle in the ass . Nerdy finished your face - but you already do not care В«I think that all the taboos removed .В»-said Artyom.
В«Thank you for the show - and to meet followingManufacture!В» with sound В«FERВ» you pulled from a bottle.
You have come as something brought myself up and went home on the road wondering how to get out of this situation and that all fantasy perversion. What to do? Can return blackmail? And that is the idea! It should be good to think things through.
'
		 act'Get_Away':gt'garmassiv'
		 end
     end
end
if apmeet=0:
apmeet=1
vagina+=5
horny=0
orgasm+=1
minut+=60
'<center><img src="qwest/alter/artom/apmeet1.jpg" ></center>'
'Artem took you by the hand and led her into the garage, where you have been waiting for Petka Kluev.
Artem: В« Well .I was thinking how uncomfortable all consider when you close all hands and brought one little thing.В» It gives you an expander: В« I understand that just so uncomfortable - so to start masturbate themselves.В»You start to fondle himself gradually being raised. В«In my opinion sufficient time to introduce this Thing.  В«You licked extender and inserted it into my pussy.
Extending to a maximum. The boys opened their mouths in surprise and there poodnomu zagyanuli. In your head is not clear what`s going on - bring your thoughts orgasm - you are such a slut in front of what that nerds are sitting with an open vagina and they treat you. В«Now look carefully Petka - seen in porn. It`s uterus and take ...В»Do you feel that the uterus is that you put in - you open your eyes and see what sticks out in your brush and at this point you already covers orgasm you can not hear anything that says Artem : В« You see she had finished I pull out the brush and spreader - about what a beauty ...В» Do you feel a breeze - the vagina does not close completely. 
'
     act'lie':
     cls
     minut+=15
	 if npcSex[2]=0:npcSex[2]=1&guy+=1
	 if npcSex[6]=0:npcSex[6]=1&guy+=1
	 gang+=1
	 cumface+=2
	 facial+=1
     gs'stat'
     '<center><img src="qwest/alter/artom/facial.jpg" ></center>'
     'The boys begin to masturbate hard and end up on your face. В«What a lesson for today is over - Petruchio think what else to do or would like to - I think we will not deny the Light. The_Truth?В»
You do not nod your head wondering "oh well?"'
     act'Get_Away':gt'garmassiv'
     end
end
gs'stat'



--- artgar ---------------------------------

# KatjaHome
gs'stat'

if hour>=17 and week<6 and kanikuli=0 and hour<20 or hour>=9 and week>=6 and kanikuli=0 and hour<20 or hour>=9 and kanikuli>0 and hour<20:
'The door opened to you mom Katie "Hello World. Kate is now in her room. Come."'
act 'Go into the room Katie':gt'KatjaHomeTalk'
else
     if hour>=9:'The door opened to you mom Katie "oh, hello World. And Katie is not at home."'
     if hour<9:'The door opened to you mom Katie "Sveta. Night Street, come no earlier than nine."'
act 'Say goodbye and go home':gt'gorodok'
end



--- KatjaHome ---------------------------------

# KatjaHomeTalk
gs'KatjaHomeDin'
gs'stat'
'<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
'<center><img src="qwest/alter/npc/14.jpg" ></center>'


 if sweat>0:
 'Kate wrinkled her nose "Sveta, you`re all sweaty, go to the shower?"'
	 act 'Go to the shower':
	 cls
	 minut+=15
	 gs'stat'
		 if KatjaHorny>=50:
		 'Kate held you in the shower. She blushed and said "I, Come join Pomo."'
			 act 'one wash':
			 cls
			 dynamic $showerdin
			 minut+=15
			 set horny = horny + 1
			 set hapri = 1
			 set mop = 1
			 set sweat = -3
			 if frost>0:frost=0
			 gs'stat'
			 '<center><img src="pics/dush.jpg" ></center>'
			 'You kicked out of the shower and Kate closed the door. You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
			 act 'Get out of the shower':gt $curloc
			 end
			 
			 act 'bathe together':
			 cls
			 dynamic $showerdin
			 minut+=15
			 set horny = horny + 1
			 set hapri = 1
			 set mop = 1
			 set sweat = -3
			 if frost>0:frost=0
			 horny+=10
			 KatjaHorny+=10
			 KatjaLust+=1
			 gs'stat'
			 '<center><img src="qwest/alter/katja/shower.jpg" ></center>'
			 'You undressed and climbed together with Katya in the shower.'
				 if lobok <= 0:
				 'Katie eyes slid over your body a little lingering on your breasts and pussy. Kate took a shower together and you became watered.'
				 
					 act 'further':
					 cls
					 gs'stat'
					 '<center><img src="qwest/alter/katja/shower2.jpg" ></center>'
					 'Kate gently shampooed you gel and rinse with warm shower jets.'
						 if KatjaLust>=10 and KatjaHorny>=90:
						 'Kate washed with soap your pussy and breasts gentle stroking his little palms. Her cheeks were flushed and her eyes glistened.'
						 dynamic $katja_shower_kiss_home
						 else
						 'Kate finally finished and you wash herself pomylas.'
						 act 'Get out of the shower':gt $curloc
						 end
					 end
				 end
				 if lobok > 0:
				 'Katie eyes slid over your body a little lingering on her breasts and pubic hair. Kate smiled "Svetulya, you got such vegetation, it is no longer fashionable, I`ll let sbreyu hair."'
					 act 'Shave the hair between her legs':
					 cls
					 minut+=5
					 lobok=-3
					 KatjaHorny+=10
					 KatjaLust+=1
					 gs'stat'
					 '<center><img src="qwest/alter/katja/lobok.jpg" ></center>'
					 'Kate sat in the bathroom and you lathered your crotch passing lathered his stomach and chest. She took a razor and began to gently shave your hairs between her legs.'
						 if KatjaLust>=10 and KatjaHorny>=90:
						 'Kate washed with soap your pussy and breasts gentle stroking his little palms. Her cheeks were flushed and her eyes glistened.'
						 dynamic $katja_shower_kiss_home
						 else
						 'Kate finally shaved all your hair between her legs and began to wash off with soap you.'
							 act 'Get out of the shower':gt $curloc
						 end
					 end
				 end
				 
				
			 end
		 end
		 
		 if KatjaHorny<50:
		 dynamic $showerdin
		 minut+=15
		 set horny = horny + 1
		 set hapri = 1
		 set mop = 1
		 set sweat = -3
		 if frost>0:frost=0
		 gs'stat'
		 '<center><img src="pics/dush.jpg" ></center>'
		 'Kate showed you where the toiletries and came out of the shower. You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
		 act 'Get out of the shower':gt $curloc
		 end
	 end
else
!not sweaty

     if hour<20:
		 act'Chat with Kate':
		 cls
		 KatjaHorny+=1
		 !KatjaLust+=1
		 !if npcSex[14]=1:
		 minut+=15
		 gs'stat'
		 '<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
		 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
		     if katjaPreg=0 or knowKatjaPreg>=1:
			 if KatjaHorny<50:'Katka talks about the lessons, cosmetics, the latest fashion trends in clothing and other very important things.'
				 if KatjaHorny>=50:
				 dynamic $d_katjaSextalk
				 exit
				 end
             end
             if katjaPreg>0 and knowKatjaPreg=0:
                 if knowKatjaPreg=0:
                 'Kate biting her lip without looking you in the eye, Finally typed determination and says "Sveta, i am pregnant."'
                 	 act'from?':
		             cls
		             minut+=5
		             knowKatjaPreg=1
		             gs'stat'
		             'You asked dumbfounded "from." Kate wrinkled her nose, "Santa Claus! Yes by Voinov, I was with him at the Christmas party school slept. And flew. Jesus, what to do now that?"'
		             act'I have no idea':gt $curloc
		             end
                 else
                 ''
                 end
             end
		 act 'further':gt $curloc
		 end
		 
		 if KatjaLust>10:
		 katkisrand=rand(0,5)
		     if katkisrand=0:
		     cls
		     gs'stat'
		     '<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
		     '<center><img src="qwest/alter/npc/14.jpg" ></center>'
		     dynamic $d_katjahornykiss
		     end
		 end
     end
     if hour>=20:
     'Katya says, he wants to go to the disco.'
     if money>=25:act'Go to the disco':money-=25&minut+=15&gt'gdkin'
     end

end



act 'Say goodbye and go home':gt'gorodok'



















--- KatjaHomeTalk ---------------------------------

# KatjaHomeDin
$katja_shower_kiss_home={
cls
horny+=10
KatjaLust+=10
KatjaSlut+=1
KatjaHorny+=10
gs'stat'
'<center><img src="qwest/alter/katja/showerkiss.jpg" ></center>'
'Kate gently hugged you with one hand and kissed him on the lips, you feel her soft palm lay naked on your pubis and her thin finger fingering your clitoris began to caress him.'
     if KatjaSlut>=10:
     'Kate gently, but firmly puts you on the edge of the tub.'
     end
     if KatjaSlut<10:
     'Kate gently caresses your clitoris with your fingers and her lips begin to kiss your neck, wading all below.'
     end
     
     act 'Sit on the edge of the tub':
	 cls
	 minut+=5
	 horny+=10
	 KatjaHorny-=10
	 KatjaLust+=1
	 KatjaSlut+=1
	 if npcSex[14]=0:npcSex[14]=1&girl+=1&KatjaSlut+=5&KatjaLust+=5
	 lesbian+=1
	 orgasm+=1
	 horny=0
	 gs'stat'
	 '<center><img src="qwest/alter/katja/showersex.jpg" ></center>'
	 'You sat on the edge of the tub and pushed open his feet wet pussy. Katya vsala on his knees in front of you and gently licked your swollen red petals. Her tongue began briskly caress your pussy do not forget about the clitoris. Soon bliss enveloped your entire body. Have you noticed how Katie sklznula hand between her legs and began to move there. Suddenly you covered powerful orgasm from kotorgo you almost lose consciousness, your whole body bends in convulsions and hot wave blazhnstva cover you.'
	 act 'Get out of the shower':gt $curloc
	 end
     
     
	 act 'Remove her hands':
	 cls
	 dom+=1
	 minut+=5
	 horny+=10
	 KatjaDom-=1
	 KatjaHorny-=10
	 KatjaLust+=1
	 gs'stat'
	 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
	 'You have removed her hands and smiled Katya fun. You domylis Katya shyly looked away and left the bathroom.'
	 act 'Get out of the shower':gt $curloc
	 end
}

$d_katjaSextalk={
 kattalkrand=rand(0,3)
 'Reddened Kate looks at you thoughtfully.'
	 if kattalkrand=0:
		 if KatjaKnowBJ>0:
		 '- Sveta, tell, how are you sucking dick.'
		 end
		 if KatjaKnowBJ=0:
		 '- Sveta, and you took in the mouth guys?'
		 end
		 
		 if bj>0:
			 act 'Tell how you were doing blowjob':
			 cls
			 KatjaLust+=5
			 KatjaHorny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
			 'You told Kate how you suck dick and that it felt. Kate blushed and bit her lip.'
			 act 'further':minut+=15&gt'KatjaHomeTalk'
			 end
		 end
	 end
	 if kattalkrand=1:
		 if KatjaKnowSex>0:
		 '- Sveta, tell, how you fucked.'
		 end
		 if KatjaKnowSex=0:
		 '- Sveta, and you have fucked guys?'
		 end
		 
		 if sex>0:
			 act 'Share how you have sex':
			 cls
			 KatjaLust+=5
			 KatjaHorny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
			 'Did you tell Kate you were having sex and that it felt. Kate blushed and bit her lip.'
			 act 'further':minut+=15&gt'KatjaHomeTalk'
			 end
		 end
	 end
	 if kattalkrand=2:
		 if KatjaKnowAnal>0:
		 '- Sveta, tell, how you took in the ass.'
		 end
		 if KatjaKnowAnal=0:
		 '- Sveta, and gave you guys in the ass?'
		 end
		 
		 if anal>0:
			 act 'Tell how you gave in the ass':
			 cls
			 KatjaLust+=5
			 KatjaHorny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
			 'You told Kate as you gave in the ass and that it felt. Kate blushed and bit her lip.'
			 act 'further':minut+=15&gt'KatjaHomeTalk'
			 end
		 end
	 end
	 if kattalkrand=3:
		 if KatjaKnowMastr>0:
		 '- Sveta, tell, as you mastrubiruesh.'
		 end
		 if KatjaKnowMastr=0:
		 '- Sveta, and you mastrubiruesh?'
		 end
		 
		 if mastr>0:
			 act 'Tell how you masturbate':
			 cls
			 KatjaLust+=5
			 KatjaHorny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
			 'You told Kate how you masturbate in the bathroom. Kate blushed and bit her lip.'
			     if KatjaMastr=0: 
			     act 'further':minut+=15&gt'KatjaHomeTalk'
			     end
			     if KatjaMastr>0:
			         act 'further':
			         cls
			         KatjaLust+=5
			         KatjaHorny+=10
			         gs'stat'
			         '<center><img src="qwest/alter/katja/mastr.jpg" ></center>'
			         'Katya told, it also mastrubiruet, right there in the room fondling herself between her legs.'
			         act 'further':minut+=15&gt'KatjaHomeTalk'
			         end
			     end
			 end
			 
			 if SelfFisting>0:
				 act 'Tell yourself you are stuck his fist in the ass':
				 cls
				 KatjaLust+=10
				 KatjaHorny+=20
				 if SelfFistingKnow=0:SelfFistingKnow=1
				 gs'stat'
				 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
				 'You told Kate how you masturbate her ass and even managed to stretch it so, that there can shove a fist. Kate blushed and bit her lip.'
				 act 'further':minut+=15&gt'KatjaHomeTalk'
				 end
			 end
			 
		 end
		 
		 
	 end
	 
	 act 'Otazatsya to talk on such topics':
	 cls
	 dom+=1
	 KatjaDom-=1
	 gs'stat'
	 'You refused to speak with Kate on such topics. Kate was confused and looked down "Sorry, Sveta, I did not want to hurt you."'
	 act 'further':minut+=15&gt'KatjaHomeTalk'
	 end


}
$d_katjahornykiss={
 'Katia brought his face to your, like_this, that you could feel her hot breath on her skin.'
	 act 'Bring your face close to hers.':
	 cls
	 gs'stat'
	 '<center><img src="qwest/alter/npc/14.jpg" ></center>'
	 'You, to face Katie.'
		 if KatjaHorny<50:
		 katjarand=rand(0,50)
			 if katjarand<=KatjaHorny+dom:
			 dynamic $din_katja_kiss
			 else
			 KatjaHorny+=5
			 'Kate giggled and pushed his face away from your.'
			 act 'further':minut+=15&gt'KatjaHomeTalk'
				 if dom>0:
					 act 'Seize face Katie':
					 cls
					 dom-=1
					 KatjaDom-=5
					 KatjaHorny-=10
					 KatjaLust+=1
					 gs'stat'
					 'You wrapped around the face with his hands and Katie have brought his lips to hers.'
						 if dom<KatjaDom:
						 'Katya firmly took your hand and remove them from themselves, allowing you to understand, that it does not intend to kiss.'
						 act 'further':minut+=15&gt'KatjaHomeTalk'
						 else
						 'Kate stopped looking into your eyes.'
						 dynamic $din_katja_kiss
						 end
						 
					 end
				 end
			 end
		 end
		 if KatjaHorny>=50:
		 dynamic $din_katja_kiss
		 end
	 end


}


















--- KatjaHomeDin ---------------------------------

# farmhomeride
hour=20
minut=0
gs'stat'
minut+=60
gs'stat'
'You got into the Volga River with his family and an hour reached the town.'


act'go home':gt'korrPar'
--- farmhomeride ---------------------------------

# Gadhouse
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cottage</H4></center>'
'<center><img src="qwest/gadukino/izba.jpg" ></center>'
'Simple village hut. In a small room is <a href="exec:GT ''loker'',''start''">cupboard</a> and <a href="exec:GT ''bedPar''">bed</a> where you can sleep. In a large room is <a href="exec:GT ''tvPar''">tv_set</a>. TV stands next to an ancient <a href="exec:GT ''mirror'',''start''">trellis</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act'Go outside':minut+=5&gt'Gaddvor'


 act 'Is_There':
 cla
 *clr
 gs'stat'
 frost=0
 '<center><img src="pics/food.jpg" ></center>'
 set minut = minut + 30
 set health = health + 10
 set manna = manna + 20
 wipo+=5
 salo+=1
	 if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
	 if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
	 if energy < 20:
	 set energy = energy +20
	 !set fat = fat + 1
	 'You gladly ate cooked food.'
	 end
	 if water >= 20:
	 'Tea in you no longer climbs.'
	 end
	 if water < 20:
	 'You gladly drank a cup of tea.'
	 set water = water +20
	 end
 gs'stat'
 act 'Get up from the table':gt $locM, $metkaM
 end



dynamic $d_read_book


if indorf=1:
'The room resting parents.'
     if week=7:
         if hour>=20:
         gt'farmhomeride'
         end
     end
end

if monthbabkapay!month:
monthbabkapay=month
money+=2000
gs'stat'
'Grandma gives you two thousand.'
end
--- Gadhouse ---------------------------------

# Gaddvor
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>yard</H4></center>'
'<center><img src="qwest/gadukino/dvor.jpg" ></center>'
'Yard with Seat, hut and outbuildings enclosed fence.'
clr
gs'stat'
gs'time'

act'Going into the house':minut+=5&gt'Gadhouse'
act'Go to the barn':minut+=5&gt'Gadsarai'
act'Go to the bath':minut+=5&gt'Gadbana'
act'<b>Go to the village</b>':minut+=5&gt'gadukino'

if hour>=17 and hour<20:
if mitkaday!daystart:'Not far from the hut shies <a href="exec:GT ''mitka''">Mitka kingpin</a>'
end
if hour>=20:
'Not far from the village hut sits kampashka <a href="exec:GT ''mitkabuh''">youth</a>'
end
--- Gaddvor ---------------------------------

# Gadsarai
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cottage</H4></center>'
'<center><img src="qwest/gadukino/sarai.jpg" ></center>'
'Old barn that holds tools. Sitting near the barn <a href="exec:GT ''pirat''">dog named Pirate</a>'
clr
gs'stat'
gs'time'


act'Go outside':minut+=5&gt'Gaddvor'


act'Picking in the barn':
cls
minut+=15
gs'stat'
poiskrand=rand(0,5)
	 if card>0 and poiskrand=0 or poiskrand>0:
	 'In the locker old magazines Health, Equipment Youth and dusty yellowed books.'
	 end
	 if card=0 and poiskrand=0:
	 card=1
	 '"Hmm, what`s this?" think you`ve found a deck of cards.'
	 end

act'Put in place':gt $curloc
end

if card>0:
	 act 'Take a deck of cards':
	 gt'card'
	 end
end

 if horny>=50:
	 act 'mastrubirovat':
	 gt'selfplay'
	 end
 end













--- Gadsarai ---------------------------------

# Gadbana
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>bath</H4></center>'
'<center><img src="qwest/gadukino/bana.jpg" ></center>'
'Not a big room with a low oven, water tanks of stainless steel, low smoky ceiling, and blackened wooden shelf.'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)



act'Go outside':minut+=5&gt'Gaddvor'

if week=6:
     if hour>=12 and hour<=18:
     canpar=1
     'bath fired. Somewhere to seven hours can be steamed.'
     end
     if hour>18 and hour<22:
     canpar=1
     'In the bath can be steamed'
         if banaday!day:
             act'Steamed in the sauna':
             cls
             minut+=120
             dynamic $showerdin
             set hapri = 0
	         set mop = 1
	         set sweat = -3
	         if frost>0:frost=0
             skinvan+=5
             if skinvan >= 20:set skinvan = 0&set skin = skin + 1
             gs'stat'
             '<center><img src="qwest/gadukino/par.jpg" ></center>'
             'You soared in the bath, then doused with cold water and finally showered.'
             act'Go outside':gt'Gaddvor'
             end
         end
     end
     if hour>=22:
     canpar=0
     end
end
if week!6:canpar=0

if canpar=0:
	 act 'wash':
	 cls
	 dynamic $showerdin
	 minut+=60
	 set hapri = 0
	 set mop = 1
	 set sweat = -3
	 if frost>0:frost=0
	 gs'stat'
	 '<center><img src="qwest/gadukino/mit.jpg" ></center>'
	 'You began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
	 act 'Go_Out':gt'Gaddvor'
	 end
end

 if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
	 cla
	 *clr
	 set tampon = tampon - 1
	 set isprok = 1
	 set minut = minut + 5
	 set manna = manna - 5
	 gs'stat'
	 '<center><img src="pics/wash3.jpg" ></center>'
	 'You change a tampon.'
	 act 'End_Up':gt $curloc
	 end
end

 if mop ! 1:
     act 'wash off cosmetics':
	 cla
	 set mop = 1
	 set minut = minut + 15
	 gs'stat'
	 '<center><img src="pic/facesp.jpg" ></center>'
	 'You have washed off cosmetics.'
	 act 'End_Up':gt $curloc
	 end
 end
 
 if cumfrot>0:
     act 'Scour sperm from clothes':
	 cla
	 set cumfrot = 0
	 set minut = minut + 15
	 gs'stat'
	 '<center><img src="pic/frotsp.jpg" ></center>'
	 'You zamyli semen stains on your clothes.'
	 act 'End_Up':gt $curloc
	 end
 end
--- Gadbana ---------------------------------

# pirat
gs'stat'
if piratfrend<10:
'<center><img src="qwest/gadukino/pirat.jpg" ></center>'
'Purebred dog named Pirate indifferently sitting near the barn.'
end
if piratfrend>=10:
     if piratHorny<10:
     
     'Purebred dog named Pirate wags his tail when your appearance.'
     end
     if piratHorny>=10 and piratHorny<20:
     if piratsuka<3:'Purebred dog named Pirate revolves around you wagging his tail and sniffing.'
     if piratsuka>=3:'<center><img src="qwest/gadukino/sniff.jpg" ></center>'
     if piratsuka>=3:'Purebred dog named Pirate revolves around you wagging his tail and nuzzle you between the legs.'
     end
     if piratHorny>=20:
     pirand=rand(0,1)
         if piratsuka<3 or piratsuka>=3 and pirand=0:
		 'Purebred dog named Pirate pounces on your leg and rubs against her.'
		 
			 act'push Pirate':
			 cls
			 piratHorny-=1
			 minut+=15
			 dom+=1
			 gs'stat'
			 !'<center><img src="qwest/gadukino/dog.jpg" ></center>'
			 'You pushed Pirate dropping him with legs.'
			 act'Get_Away':gt $curloc
			 end
			 
			 act'endure':
			 cls
			 piratHorny=0
			 minut+=15
			 manna=manna/2
			 piratsuka+=1
			 sub+=1
			 gs'stat'
			 '<center><img src="qwest/gadukino/leghump.jpg" ></center>'
			 'You were not moving until Pirate rub against your leg. Suddenly she poured some sort of hot white liquid, Pirate immediately jumped to the side and began chesatsya but nothing had happened.'
			 act'Get_Away':gt $curloc
			 end
		 end
		 if piratsuka>=3 and pirand=1:
		 'Purebred dog named pirate stands on his hind legs and puts his front paws on your shoulder. You chustvuete like you in the ass rests like an awl member of the Pirate.'
		 	 act'push Pirate':
			 cls
			 piratHorny-=1
			 minut+=15
			 dom+=1
			 gs'stat'
			 !'<center><img src="qwest/gadukino/dog.jpg" ></center>'
			 'You pushed Pirate dropping him off his back.'
			 act'Get_Away':gt $curloc
			 end
			 
			 act'stand':
			 cls
			 !piratHorny=0
			 minut+=15
			 manna=manna/2
			 piratsuka+=1
			 sub+=1
			 !cumfrot+=1
			 gs'stat'
			 !'<center><img src="qwest/gadukino/dog.jpg" ></center>'
			 'You froze and became hard Pirate tykatsya his cock you in the ass. Pirate angry and growling jumps from you'
			 act'Get_Away':gt $curloc
			 end
			 
			 act'Stand on all fours':
			 cls
			 piratHorny=0
			 minut+=15
			 manna=manna/2
			 piratsuka+=3
			 sub+=5
			 cumfrot+=1
			 gs'stat'
			 '<center><img src="qwest/gadukino/hump.jpg" ></center>'
			 'You got up on all fours and substituting ass dog Pirate became intensely tykatsya his cock you in the ass. Soon.'
			 act'Get_Away':gt $curloc
			 end
		 end
     exit
     end
end

act'Get_Away':minut+=5&gt $loc

act'pat the Pirate':
cls
if piratfrend<10:piratfrend+=1
minut+=15
if piratsuka>0:piratHorny+=1

gs'stat'
'<center><img src="qwest/gadukino/dog.jpg" ></center>'
'You pat on the back Pirate.'
act'Get_Away':gt $curloc
end




--- pirat ---------------------------------

# mitka
gs'stat'
'<center><B><font color=maroon>Mitka kingpin</font></B></center>'
'<center><img src="qwest/alter/npc/mitka.jpg" ></center>'
'Swain barely older than you, do you know him from childhood and children together while still bathed in the river.'


if mitkaday=daystart:
'Mr. Cho Svetuha, come in at eight o`clock, buhnem brew, popizdim for life.'

end

if mitkaday!daystart:
mitkaday=daystart
'Hello Svetuha. How zhituha?'
     act'normally':
     cls
     gs'stat'
     '<center><B><font color=maroon>Mitka kingpin</font></B></center>'
     '<center><img src="qwest/alter/npc/mitka.jpg" ></center>'
     'You said that you are all well and Mitka smiled offered "Mr. Cho Svetuha, come in at eight o`clock, buhnem brew, popizdim for life."'
         if mitkasextimes>0:
         'Mitka scratched eggs and added with a grin "Svetuh, Let us go now poebemsya, and that the riser fucking."'
         	 act'Let`S_Go':
			 cls
			 minut+=15
			 if mitkasex=0:mitkasex=1&guy+=1
			 $boy='Mitka'
			 silavag = 0
			 dick=18
			 pose=0
			 mitkasextimes+=1
			 gs'stat'
			 '<center><img src="qwest/gadukino/mitka2.jpg" ></center>'
			 'Mitka took you to his house and led to the veranda, There he laid you on the couch and began to undress beztseremonno.'
			 dynamic $sexstart
			 dynamic $sexstart2
			 dynamic $sexcum
			 'Mityai, lay down on his side and lit "fucking!"'
			 act'Get_Away':gt'Gaddvor'
			 end
         end
     act'Get_Away':gt'Gaddvor'
     end
     
     
end




act'Get_Away':gt'Gaddvor'












--- mitka ---------------------------------

# mitkabuh
gs'stat'
'<center><img src="qwest/gadukino/drunk.jpg" ></center>'
'Set in a secluded spot three village boy, Mitka kingpin, Bob Package Kolyamba and drink moonshine without snacks. Mitka brew pours into the glass and provides you.'

if alko<8:
	 act'Get_Away':gt'Gaddvor'

	 act'drink':
	 cls
	 minut+=30
	 alko+=4
	 gs'stat'
	 '<center><img src="qwest/gadukino/drunk.jpg" ></center>'
	 'You drank moonshine and everything inside burned, you become a choking zanyuhivat sleeve ,as snacks was not. Mitka said approvingly "good infection, wade."'
	 act'Ottdyshatsya':gt $curloc
	 end

end
if alko>=8:
'You got drunk in the trash, leg is almost not keep you. Mitka noticed your condition keeps you around the waist. "Mr. Cho Svetuha, go ebatsya?"'
	 act'slurred mumble':
	 cls
	 minut+=15
	 if mitkasex=0:mitkasex=1&guy+=1
	 $boy='Mitka'
	 silavag = 0
	 dick=18
	 pose=0
	 mitkasextimes+=1
	 gs'stat'
	 '<center><img src="qwest/gadukino/mitka.jpg" ></center>'
	 'Mitka took you to his house and led to the veranda, There he laid you on the couch and began to undress beztseremonno.'
	 dynamic $sexstart
	 dynamic $sexstart2
	 dynamic $sexcum
	 'Mityai, lay down on his side and lit "fucking!"'
	 act'Get_Away':gt'Gaddvor'
	 end
end









--- mitkabuh ---------------------------------

# skverdin
$d_park_placer_bj={
boy+=1
dick=rand(15,25)
parkfuckboy+=1
$ppBoyName[parkfuckboy]=$bname
ppBoyTipe[parkfuckboy]=1
ppBoyPlace[parkfuckboy]=1
!masturbate 2 blow_job 3 gangbang
ppdick[parkfuckboy]=dick

parktimes+=1
pphj=0
ppbj=0
ppsex=0
ppanal=0

dynamic $d_pp_hand
dynamic $d_pp_squat
}
$d_pp_hand={
act'Member of the hand touch':
cls
pphj+=1
minut+=1
gs'stat'
'<center><img src="qwest/alter/Ev/hj.jpg" ></center>'
'You clasped fingers standing <<dick>> inch cock and began to move the skin is revealing crimson head then closing it.'
tiprand=rand(1,100)
     if tiprand>=90:
     '<<$bname>> took you by the shoulders and pushed, trying to put you on his heels'
     dynamic $d_pp_squat
     elseif tiprand>=50 and tiprand<90:
     '<<$bname>> said impatiently "Svetsik, kiss him"'
     dynamic $d_pp_squat
     if dom>0:dynamic $d_pp_hjcum
     else
     '<<$bname>> stands still and you devour eyes'
     dynamic $d_pp_hjcum
     dynamic $d_pp_squat
     end
end
}
$d_pp_hjcum={
act'Dodrochit':
pphj+=1
minut+=1
cls
tiprand=rand(1,100)
     if tiprand>=80:cumfrot+=1&$pptext='you notice as one of the jets of semen gets into your clothes on'
     if tiprand<80:$pptext='Man sperm tight jets flew to the ground'
gs'stat'
'<center><img src="qwest/alter/Ev/pphjcum.jpg" ></center>'
'You have become hard to masturbate cock and he began to finish, <<$pptext>>'
dynamic $d_pp_goend
end
}
$d_pp_squat={
act'To squat':
cls
minut+=1
gs'stat'
'<center><img src="qwest/alter/Ev/squat.jpg" ></center>'
'You sat on his haunches and right in front of your face turned stand-up <<dick>> inch cock'
dynamic $d_pp_bj
end
}
$d_pp_bj={
act'suck':
cls
ppbj+=1
minut+=5
parkslut+=1
ppBoyTipe[parkfuckboy]=2
gs'stat'
'<center><img src="qwest/alter/Ev/ppbj.jpg" ></center>'
'Your lips wrapped around a hard <<dick>> inch cock, and you suck it carefully feeling his tongue and lips.'
tiprand=rand(1,100)
     if tiprand=100:
     'Suddenly, He laughed and said "shit, <<$bname>> fifteen minutes you can not leave, already what that heifer cheek wheeled." <<$bname>> laughed and turned to his friend "What do you tupish? Come_Over!" The second guy immediately came up to you and pulled out of his pants his dick.'
     dynamic $d_pp_double
     end
     if tiprand>=90 and tiprand<100:
     '<<$bname>> suddenly took out a member of your mouth and began to say a word to lift you and expand back to him'
     dynamic $d_pp_sex
     end
     if tiprand>=70 and tiprand<90:
     '<<$bname>> whispers to you "Svetsik, you mouth is not tired? can perepihnemsya?"'
     dynamic $d_pp_sex
     dynamic $d_pp_bjcum
     end
     if tiprand<70:
     'You chustvuete stiffen cock, it seems he is ready is about to finish'
     dynamic $d_pp_hjcum
     dynamic $d_pp_bjcum
     end
end
}
$d_pp_bjcum={
act'continue to suck':
cls
minut+=1
cumlip+=1
cumfrot+=1
cumface+=1
gs'stat'
'<center><img src="qwest/alter/Ev/ppbjcum.jpg" ></center>'
'You continued to suck and less than a minute as a member became razryazhatsya your mouth seed, Sperm were so many, that part of it poured on your lips and mouth .'
dynamic $d_pp_goend
end
}
$d_pp_sex={
act'bend':
cls
minut+=1
ppsex+=1
pose=1
gs'stat'
'<center><img src="qwest/alter/Ev/ppsex.jpg" ></center>'
'You bared her butt and bending framed his boyfriend'
dynamic $sexstart
dynamic $sexstart4
tiprand=rand(1,100)
     if tiprand>=20:
     dynamic $sexcum
     dynamic $d_pp_goend
     end
     if tiprand<20:
     '<<$bname>> took out of you cock and you deploying to face him began to put you on his heels'
     dynamic $d_pp_squat
     end
end
}
$d_pp_double={
act'ohrenevayu':
cls
ppBoyTipe[parkfuckboy]=3
parkslut+=10
guy+=1
gang+=1
bj+=1
ppbj+=1
minut+=5
gs'stat'
'<center><img src="qwest/alter/Ev/ppbjdouble.jpg" ></center>'
'It all happened quickly and you do not even have time to realize in both your hands turned over the penis, their purple heads were right in front of your face. One of the guys hand impatiently pushed your head against a member.'
	 act'Sucking two members':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/ppbjdouble2.jpg" ></center>'
	 'You have become a polished just two bow with her wet lips spitted her mouth purple hat guys take turns. soon <<$bname>> groaned "Open your mouth slut"'
	 	 act'open your mouth':
		 cls
		 minut+=15
		 cumface+=1
		 cumlip+=1
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/ppbjdouble3.jpg" ></center>'
		 'You obediently opened the procedure already tired mouth and <<$bname>> you shot a thick white liquid directly on wet and slightly swollen lips of the work done. His friend choked hissed "finish" and grab you by the hair turned your face to its members.'
		 	 act'turn the face':
			 cls
			 minut+=15
			 cumface+=1
			 cumlip+=1
			 cumfrot+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/ppbjdouble4.jpg" ></center>'
			 'You turned your face and you immediately charged a second portion struhni directly into open mouth, you instinctively shaken and a large ball of sperm fell out of your mouth and you shmyaknulsya on clothes. <<$bname>> neigh "epta! You`re a sniper, huesoska loaded directly into her mouth fucking!"'
			 dynamic $d_pp_goend
			 end
		 end
	 end
end
}
$d_pp_goend={
act'Brush up':
cls
if ppbj>0:bj+=1
if pphj>0:hj+=1
if ppsex>0:sex+=1
if ppanal>0:anal+=1
minut+=5
gs'stat'
if cumface>0 or cumlip>0:
'<center><img src="qwest/alter/Ev/ppendcum.jpg" ></center>'
else
'<center><img src="qwest/alter/Ev/ppendno.jpg" ></center>'
end
'You began to brush up. <<$bname>> pretty buttoned pants "Well pokeda Svetulya, I still have things, can be seen as a."'
act 'Get_Away':gt'gskver'
end
}
--- skverdin ---------------------------------

# fbHouse
gs'stat'
'<center><img src="qwest/alter/Ev/fbHouse.jpg" ></center>'
'<<$bname>> led you to your house and take you to your apartment. The apartment he put you on the couch and sat down next to you. <<$bname>> tilted towards your face'

act'tselovatsya':
cls
boy+=1
dick=rand(15,25)
parkfuckboy+=1
$ppBoyName[parkfuckboy]=$bname
ppBoyTipe[parkfuckboy]=1
ppBoyPlace[parkfuckboy]=2
!masturbate 2 blow_job 3 gangbang
ppdick[parkfuckboy]=dick
fbhousetimes+=1
pphj=0
ppbj=0
ppsex=0
ppanal=0
minut+=5
horny+=10
gs'stat'
'<center><img src="qwest/alter/Ev/fbhKiss.jpg" ></center>'
'You started tselovatsya a man and he began to slowly undress you.'
	 act'Take by mouth':
	 cls
	 ppbj+=1
	 minut+=5
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbhBJ.jpg" ></center>'
	 'You are inclined to the guy and unbuttoned his pants lowered his pants to get it <<dick>> inch dick. Play a little with him.'
	 tiprand=rand(0,1)
	     if tiprand=0:
	     pose=1
	     $fbhactname='get cancer'
	     '<<$bname>> gently but firmly puts you on your feet and Tips'
	     end
	     if tiprand=1:
	     pose=0
	     $fbhactname='Lie on your back'
	     '<<$bname>> gently but firmly puts you on the back'
	     end
	     
	     act'<<$fbhactname>>':
		 cls
		 minut+=5
		 ppsex+=1
		 gs'stat'
		 if tiprand=0:'<center><img src="qwest/alter/Ev/fbhdog.jpg" ></center>'
		 if tiprand=1:'<center><img src="qwest/alter/Ev/fbhmiss.jpg" ></center>'
		 dynamic $sexstart
         dynamic $sexstart4
         dynamic $sexcum
             act'Brush up':
			 cls
			 if ppbj>0:bj+=1
			 if pphj>0:hj+=1
			 if ppsex>0:sex+=1
			 if ppanal>0:anal+=1
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/fbhend.jpg" ></center>'
			 'You began to brush up. <<$bname>> pretty dressed "I was glad to be with you even sit, but my business, I`m_sorry."'
			 act 'Get_Away':gt'gorodok'
			 end
		 end
	 end
end

--- fbHouse ---------------------------------

# fbDorm
gs'stat'
gs'fbDormD'
'<<$bname>> led you to ptushnoy hostel. "what, let`s go to my room."'
dynamic $d_fbd_start
act'E... I changed my mind':
cls
minut+=5
gs'stat'
'Seeing that <<$bname>> brought you to the hostel you decide to retreat until it`s too late. <<$bname>> began to persuade you, promising that everything will be fine, nobody knows.'
     if dom>0:
     'But you were adamant .'
     act'Get_Away':gt'gorodok'
     else
     'The guy managed to convince you and you bite my lip thinking, why all of you weave ropes, and whether it is necessary for the raskaivatsya his act.'
     dynamic $d_fbd_start
     end
end



--- fbDorm ---------------------------------

# fbDormD
$d_fbd_start={
act'Go to the hostel':
cls
minut+=5
gs'stat'
'Vahtersha seeing you snapped indignantly "<<$bname>>, you sort of infection, again what that damn led?" <<$bname>> grinned "Come on Aunt Kate, case that young, and with me chocolate." Aunt Katya noticeably slowed down and probubnela "Yup, how, you will wait."'
tiprand=rand(1,100)
     if tiprand>=90:fbde=1
     if tiprand<90 and tiprand>=60:fbde=2
     if tiprand<60:fbde=3
     
     dynamic $d_fbd_dormroom
end
}
$d_fbd_dormroom={
act'Go into the room':
cls
minut+=5
gs'stat'
     if fbde<=1:
     'When you enter the room you will see, that here in the middle of a party, on the table there are bottles and snack, PTUshnik full walk. One of the guys got up to meet you "A, <<$bname>> Come, and introduced us to his girlfriend." <<$bname>> shook hands with the guys and introduced you after which you helped to sit down. Chairs was not enough and you sat down in the middle of the bed, sat on the one hand <<$bname>>, on the other hand are not familiar guy.'
     dynamic $d_fbd_mass
     end
     if fbde=2:
     'To the surprise of no one in the room and turned <<$bname>> quickly closed the door behind you and come to you hugged and kissed you.'
     dynamic $d_fbd_regular
     end
     if fbde=3:
     'The room was not familiar to you man. <<$bname>> greeted him and whispered something to him.'
     tiprand=rand(1,100)
         if tiprand<90:
         'Not familiar guy changed his sneakers to boots and left the room saying goodbye.'
         dynamic $d_fbd_regular
         end
         if tiprand>=90:
         'Unfamiliar guy pulled out of the bag a bottle of vodka and a snack and you persistently sat on the bed, and the boys sat on both sides of you.'
         dynamic $d_fbd_drunk
         end
     end

end
}
$d_fbd_regular={
act'tselovatsya':
cls
boy+=1
dick=rand(15,25)
parkfuckboy+=1
$ppBoyName[parkfuckboy]=$bname
ppBoyTipe[parkfuckboy]=1
ppBoyPlace[parkfuckboy]=3
!masturbate 2 blow_job 3 gangbang
ppdick[parkfuckboy]=dick
fbdormtimes+=1
pphj=0
ppbj=0
ppsex=0
ppanal=0
minut+=5
horny+=10
gs'stat'
'<center><img src="qwest/alter/Ev/fbdKiss.jpg" ></center>'
'You started passionately tselovatsya a man and he began to slowly undress you.'
dynamic $d_fbd_blowhim
	 act'continue tselovatsya':
	 cls
	 minut+=5
	 horny+=10
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdKiss.jpg" ></center>'
	 tiprand=rand(1,100)
		 if tiprand>=80:
		 '<<$bname>> gently but firmly pressing on your shoulder tilt causing your face to his cock.'
		 dynamic $d_fbd_blowhim
		 end
		 if tiprand<80 and tiprand>=40:
	     '<<$bname>> took you by the shoulders and put it on the back'
	     dynamic $d_fbd_miss
		 end
		 if tiprand<40:
	     '<<$bname>> you took the waist and put the cancer'
	     dynamic $d_fbd_dog
		 end
	 end
end
}
$d_fbd_blowhim={
     act'Take by mouth':
	 cls
	 minut+=5
	 ppbj+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdBJ.jpg" ></center>'
	 dynamic $dinrandbj
	 tiprand=rand(0,1)
	     if tiprand=0:
	     '<<$bname>> took you by the shoulders and put it on the back'
	     dynamic $d_fbd_miss
	     end
	     if tiprand=1:
	     '<<$bname>> you took the waist and put the cancer'
	     dynamic $d_fbd_dog
	     end
	 end
}
$d_fbd_miss={
	 act'Lie on your back':
	 cls
	 minut+=5
	 horny+=10
	 ppsex+=1
	 pose=0
	 $boy='guy'
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdMiss.jpg" ></center>'
	 dynamic $sexstart
     dynamic $sexstart4
     tiprand=rand(1,100)
         if tiprand<70:
         dynamic $sexcum
         dynamic $d_fbd_end
         end
         if tiprand>=50 and tiprand<70:
		 '<<$bname>> you took the waist and put the cancer'
	     dynamic $d_fbd_dog
	     end
	     if tiprand>=70:
	     '<<$bname>> suddenly came out of you and climbed nimbly on your chest'
	     dynamic $d_fbd_face
	     end
	 end
}
$d_fbd_dog={
	 act'get cancer':
	 cls
	 minut+=5
	 horny+=10
	 pose=1
	 ppsex+=1
	 $boy='guy'
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdDog.jpg" ></center>'
	 dynamic $sexstart
     dynamic $sexstart4
	 tiprand=rand(1,100)
	     if tiprand<70:
	     dynamic $sexcum
	     gs'stat'
         dynamic $d_fbd_end
	     end
	     if tiprand>=50 and tiprand<70:
		 '<<$bname>> You went out of your way and pressed, you had to lie on his stomach'
	     dynamic $d_fbd_anal
	     end
	     if tiprand>=70:
	     '<<$bname>> suddenly came out of you, put you on the back and climbed nimbly on your chest'
	     dynamic $d_fbd_face
	     end
	     
	 end
}
$d_fbd_face={
	 act'lie':
	 cls
	 minut+=5
	 horny+=10
	 cumface+=1
	 cumlip+=1
	 facial+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdFace.jpg" ></center>'
	 '<<$bname>> Fingering a member of the front of your face touching his purple head of your lips and tongue. Suddenly out of his cock flies jet of sperm and paopadaet your face, then another and another. Sharply smelling seed gets into your mouth and running down your cheeks.'
	 dynamic $d_fbd_end
	 end
}
$d_fbd_anal={
	 act'Lie down on your stomach':
	 cls
	 minut+=5
	 horny+=10
	 ppanal+=1
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdAnal.jpg" ></center>'
	 dynamic $analsex2
	 tiprand=rand(1,100)
	     if tiprand>=70:
	     '<<$bname>> suddenly came out of you, put you on the back and climbed nimbly on your chest'
	     dynamic $d_fbd_face
	     end
	     if tiprand<70:
	     cumass+=1
	     gs'stat'
	     '<<$bname>> groaned and you felt something warm as it was the seed fill your ass.'
	     dynamic $d_fbd_end
	     end
	 end
}
$d_fbd_end={
 act'Brush up':
 cls
 if ppbj>0:bj+=1
 if pphj>0:hj+=1
 if ppsex>0:sex+=1
 if ppanal>0:anal+=1
 minut+=5
 gs'stat'
 '<center><img src="qwest/alter/Ev/fbhend.jpg" ></center>'
 'You began to brush up. <<$bname>> pretty dressed "I was glad to be with you even sit, but now come roommates, she know."'
 act 'Get_Away':gt'gorodok'
 end
}
$d_fbd_drunk={
act'drink':
cls
minut+=60
alko+=6
gs'stat'
'Noisy group fun and buzzing like a disturbed hive. You order typed, although it passed most of the booze. <<$bname>> pours you a drink again and offers.'
     act'another drink':
     alko+=12
     dormrape=0
     kol_man=rand(5,16)
     $kol_man_text='guys'
     gt'placer_sex'
     end
     
     
end
}
$d_fbd_mass={
act'drink':
cls
boy+=2
gang+=1
dick=rand(15,25)
parkfuckboy+=1
$ppBoyName[parkfuckboy]=$bname
ppBoyTipe[parkfuckboy]=1
ppBoyPlace[parkfuckboy]=4
!masturbate 2 blow_job 3 gangbang
ppdick[parkfuckboy]=dick
fbdormtimes+=1
pphj=0
ppbj=0
ppsex=0
ppanal=0
minut+=5
horny+=10
minut+=60
alko+=6
horny+=20
gs'stat'

'You began to drink with the guys and quickly tipsy. <<$bname>> began to kiss you, and the second guy gently stroking your ass. <<$bname>> whispers to you "You both prefer, only me? Or maybe three poeksperementiruem?"'
     act'Only with you':
	 cls
	 minut+=5
	 horny+=10
	 ppsex+=1
	 pose=0
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdtsingle.jpg" ></center>'
	 '<<$bname>> began to kiss you and you do not understand how, were already naked guy under.'
	 dynamic $sexstart
     dynamic $sexstart4
     'You chustvuete as something hard and hot pressed his lips to you'
         act'mouth open':
		 cls
		 minut+=5
		 horny+=10
		 ppsex+=1
		 pose=0
		 ppbj+=1
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/fbdtdouble.jpg" ></center>'
		 'You opened his mouth, and then in your mouth that has become something solid and warm. Opening his eyes you see curly pubic hair in front of his face. Only here before you came, that roommate decided to join you and put his cock in your mouth. You want to be troubled, but he took your head and began to stick it on his penis while yet <<$bname>> fuck you hold in your hands your feet.'
		 dynamic $sexcum
		     act'suck':
			 cls
			 minut+=5
			 cumface+=1
			 cumlip+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/fbdtcum.jpg" ></center>'
			 'Suddenly you hit on the lips warm . The second guy started razryazhatsya your mouth. Have you tried to portray something but were too drunk and lay only blowing bubbles from his mouth, where saliva is mixed up with sperm.'
			 dynamic $d_fbd_end
			 
				 act'helplessly lying':
				 cls
				 minut+=5
				 cumface+=1
				 cumlip+=1
				 gs'stat'
				 'You lie entirely from exhaustion and then suddenly <<$bname>> taking you by the shoulders sent your face to its members'
				 dynamic $d_fbd_threesome
				 end
			 end
		 end
	 end
	 
	 act'Well. may be':
	 cls
	 minut+=5
	 horny+=10
	 ppsex+=1
	 pose=0
	 gs'stat'
	 'You started uncertainly mumble something unintelligible and <<$bname>> gently taking you by the shoulders sent your face to its members.'
	 dynamic $d_fbd_threesome
	 end
end
}
$d_fbd_threesome={
act'Take by mouth':
cls
ppbj+=2
minut+=5
gs'stat'
'<center><img src="qwest/alter/Ev/fbdrbj.jpg" ></center>'
'You parted his lips and took her mouth dick, taking the second term in the palm and began to masturbate. Do you sometimes change the terms in your mouth and try to iladoshke alternately serve boys. One of the guys gets up and coming to you from behind starts stroking your ass.'
     act'continue to suck':
	 cls
	 minut+=5
	 horny+=10
	 ppsex+=1
	 pose=1
	 $boy=$bname
	 gs'stat'
	 '<center><img src="qwest/alter/Ev/fbdrsex.jpg" ></center>'
	 'You continued to suck dick and feel like the back is attached <<$bname>>.'
	 dynamic $sexstart
     dynamic $sexstart4
     '<<$bname>> takes the cock out of your vagina and anus caresses your light stroking fingers.'
         act'Relax and continue to suck':
		 cls
		 minut+=5
		 horny+=10
		 ppsex+=1
		 pose=1
		 gs'stat'
		 '<center><img src="qwest/alter/Ev/fbdranal.jpg" ></center>'
		 'You tried to relax the ass and continued to suck dick in your mouth.'
		 dynamic $analsex2
		 '<<$bname>> took the cock out of your ass and lay on his back. He grabbed you by the waist and began to put on his penis.'
		     act'Sit down on the penis':
			 cls
			 minut+=5
			 horny+=10
			 ppsex+=1
			 pose=1
			 dick2=rand(15,18)
			 $boy2='the second guy'
			 dp+=1
			 gs'stat'
			 '<center><img src="qwest/alter/Ev/fbdrdp.jpg" ></center>'
			 'You sat on a limb and try to relax, the guy who came up to you suck you from behind and began to stroke your ass..'
			 dynamic $doublepenetration
			 'Of you suddenly got both members and sharply on their knees.'
			 	 act'Kneel':
				 cls
				 minut+=5
				 cumface+=2
				 cumlip+=1
				 gs'stat'
				 '<center><img src="qwest/alter/Ev/fbdrcum.jpg" ></center>'
				 'Suddenly you hit on the lips warm . The second guy started razryazhatsya your mouth. You`re standing on my knees smeared with sperm in the face and look up at the guys.'
				 dynamic $d_fbd_end
				 end
			 end
		 end
     end
end
}







--- fbDormD ---------------------------------

# fbGar
gs'stat'
''
--- fbGar ---------------------------------

# fbSex
$d_fb_sexstart={


}
--- fbSex ---------------------------------

# danceGev
if lesbian>0:horny+=10
if lesbian=0:
manna+=10
wipo+=5
end
danceevtimes+=1
gs'stat'
if danceevtimes<5:dancegevtipe=rand(0,2)
if danceevtimes>=5:dancegevtipe=rand(0,3)
'<center><img src="qwest/alter/ev2/ev<<dancegevtipe>>.jpg" ></center>'
if dancegevtipe=0:
'Veronichka Mokhova doing stretching and finally sits down on the string.'
end
if dancegevtipe=1:
'Veronichka Mokhova doing a handstand.'
end
if dancegevtipe=2:
'Veronichka Mokhova warming up'
end
if dancegevtipe=3:
'Veronichka Mokhova doing the splits standing on hands, thus it without underpants.'
end

act 'Get_Away':gt'gdksport'
--- danceGev ---------------------------------

# volAndGev
gs'stat'
if andGevknow=0:
     if vnesh<15:
     'The guy that something vaguely probubnel, of the text you`ve seen only the word bow-legged cow.'
     else
     'The guy smiled looking at you.'
     end
     
     if dom>0:
		 act'Swear Man':
		 cls
		 gs'stat'
		 'You cursed Man, for what he roughly pushed you.'
		      if vnesh<15:
			 'What guy showed you fuck and smile.'
			 else
			 'To which the guy just shrugged.'
			 end
		 act 'Get_Away':gt'gdksport'
		 end
     end

end
if andGevknow>0:
''

end

act 'Get_Away':gt'gdksport'









--- volAndGev ---------------------------------

# vokdin
$din_vokzalg_kassi={
cls
gs'stat'
'<center><H4>Cashiers</H4></center>'
'<center><img src="qwest/alter/kassa.jpg" ></center>'
'A ticket to the city costs 200 rubles.
Long-distance trains are in 11:00-11:30 and 18:00-18:30'

if money>=200:
     act 'Buy a ticket to the Center (200 r)':
     cls
     money-=200
     minut+=15
     gs'stat'
     '<center><img src="pic/electri.jpg" ></center>'
     'You paid for a ticket and boarded the train going into town.'
     'through 15 minute train stopped at the station.'
     
         act 'go further':
         cls
         minut+=15
         gs'stat'
         '<center><img src="pic/electri.jpg" ></center>'
         'through 15 minute train stopped at the station.'
          
             act 'go further':
			 cls
			 minut+=15
			 gs'stat'
			  '<center><img src="pic/electri.jpg" ></center>'
			 'through 15 minute train stopped at the station.' 
			     act 'go further':
				 cls
				 minut+=15
				 gs'stat'
				  '<center><img src="pic/electri.jpg" ></center>'
				 'through 15 minute train stopped in the center.'
				  
				 act 'Go_Out':minut+=5&nroad=0&gt'Vokzal'
				 end
				 
				 act 'Go_Out':minut+=5&nroad=5&gt'road'
			 end
			 
			 act 'Go_Out':minut+=5&nroad=10&gt'road'
         end
         
         act 'Go_Out':minut+=5&nroad=15&gt'road'
     end

end
act 'Get away from banks':minut+=1&gt'vokzalGin'
}
$din_vokzalg_kabinet={
cls
gs'stat'
'You came to the office of the chief of station. Around the office hangs ads "requires cleaner. 2 hours of operation at any time, salary 250 rubles per day."'
act 'Get_Away':minut+=1&gt'vokzalGin'
     if hour>=8 and hour<=16:
         act 'Login to Account':
         cls
         gs'stat'
         'You knock on the door and entered the office of the chief. An elderly man was distracted by scribbling and looked at you "On what issue?"'
         
         act 'Get_Away':minut+=1&gt'vokzalGin'
             if vokzalVork=0:
                 act 'arrange cleaner':
                 cls
                 vokzalVork=1
                 minut+=15
                 gs'stat'
                 'you said, that would like to apply as a cleaner. Head Station delighted, it is obvious that, that no one wants to work for such little pay. He recorded your data and explained. You will have to wash the floors at the station and clean toilets. How to do it, so get 250 rubles. If something does not have time, you will not get anything. Then you came out of his office and he showed closet that stores inventory.'
                 act 'Get_Away':minut+=1&gt'vokzalGin'
                 end
             end
         end
     end
}
$din_vokzalg_toilet_deyst={
     if hapri = 0:
         act 'coiffured':
         cla
         set minut = minut + 3
         set hapri = 1
		 if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
         end
     end
     
     if mop = 1 and kosmetica > 0:
         act 'apply Makeup':
         cla
         *clr
         '<center><img src="pic/mop.jpg" ></center>'
             act 'light makeup':
             cla
             set minut = minut + 3
             set kosmetica = kosmetica - 1
             set mop = 2 
             'You lightly summed eyes and a little lipstick.'
		     if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		     if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
             end
             
             if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
		         if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		         if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
				 end
             end
             
             if kosmetica >= 3:
				 act 'The caller makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
		         if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		         if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
				 end
             end
         end
     end


	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus >0:
		 act 'substitution 15 min':
		 cla
		 *clr
		 dynamic $showerdin
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pics/wash5.jpg" ></center>'
		 'You carefully washed sperm with yourself.'
		 if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
		 end
	end

	if cumlip > 0 or cumface > 0:
		 act 'Wash off with facial cum 15 min':
		 cla
		 *clr
		 set mop=1
		 set cumlip = 0
		 set cumface = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pic/facesp.jpg" ></center>'
		 'You carefully washed sperm from the face.'
		 if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
		 end
	end

	if cumfrot > 0:
		 act 'Wipe the cum from clothes 15 min':
		 cla
		 *clr
		 set cumfrot = 0
		 set sweat = sweat - 1
		 set minut = minut + 15
		 '<center><img src="pic/frotsp.jpg" ></center>'
		 'You have erased the traces of semen from clothing.'
		 if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
		 end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
	 act 'change swab':
		 cla
		 *clr
		 set tampon = tampon - 1
		 set isprok = 1
		 set minut = minut + 5
		 set manna = manna - 5
		 '<center><img src="pics/wash3.jpg" ></center>'
		 'You change a tampon.'
		 if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
		 end
	 end
	 
	 if horny>=90:
	     act 'mastrubirovat':
	     cls
	     gs'stat'
	     '<center><img src="qwest/alter/Ev/mastr.jpg" ></center>'
	     'You closed the booth, removed the panties and sat on the toilet.'
	     'Your fingers began to caress the pussy juice expiring and you started to rub the clitoris.'
	     orgasm+=1
	     mastr+=1
	     horny=0
	     gs'stat'
	     'Soon pleasant wave began to spread throughout the body and have covered a very powerful orgasm.'
	     if vokzalToilet=1:act 'End_Up':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'End_Up':dynamic $din_vokzalg_toilet_m
	     end
	 end


}
$din_vokzalg_toilet_f={
cls
gs'stat'
vokzalToilet=1
'<center><H4>Female toilet</H4></center>'
'<center><img src="pic/PublicToilet.jpg" ></center>'
'You have opened the door to the ladies` room and went in.'
act 'Get_Away':minut+=1&dynamic $din_vokzalg_toilet
dynamic $din_vokzalg_toilet_deyst
}
$din_vokzalg_toilet_m={
cls
gs'stat'
vokzalToilet=2
'<center><H4>the men`s room</H4></center>'
'<center><img src="pic/PublicToilet.jpg" ></center>'
'You have opened the door to the men`s room and went in.'
act 'Get_Away':minut+=1&dynamic $din_vokzalg_toilet
dynamic $din_vokzalg_toilet_deyst
}
$din_vokzalg_toilet={
cls
gs'stat'
vokzalToilet=0
'<center><H4>railway_station</H4></center>'
'<center><img src="qwest/alter/vokzal.jpg" ></center>'
'You are logged into the wing where the station to be <a href="exec:minut+=1&dynamic $din_vokzalg_toilet_f">women`s</a> and <a href="exec:minut+=1&dynamic $din_vokzalg_toilet_m">men`s</a> wc.'
act 'Get_Away':minut+=1&gt'vokzalGin'
}
$din_vokazalg_podbros2={
cls
gs'stat'
'You showed the man his money and he said, what this amount is not enough and in his wallet. The man demanded, What would you money back.'
	 act 'money back':
	 cls
	 money=0
	 podbros=1
	 gs'stat'
	 '<center><H4>railway_station</H4></center>'
	 '<center><img src="qwest/alter/vokzal.jpg" ></center>'
	 'You gave your money man, that would not be venturing scandal and not to be attracted by the police, for theft.'
		 act 'Get_Away':minut+=1&gt'vokzalGin'
	 end
}
$din_vokzalg_podbros={
cls
gs'stat'
'<center><H4>railway_station</H4></center>'
'<center><img src="qwest/alter/vokzal.jpg" ></center>'
'You cant pick up the purse and then some sort of slim girl leans to the purse. You have time to first raised the purse and she offers to step aside and share the money.'

act 'Get away with a purse':
cls
gs'stat'
'<center><H4>railway_station</H4></center>'
'<center><img src="qwest/alter/vokzal.jpg" ></center>'
'You took the purse and went to the door, girl screaming out loud, you stole wallet. To you approached by a man lost his wallet and demanded the return of his. You gave the man purse, He counted the money and said, that in your wallet is not enough large sum of money. Then he demanded, what would you show him your money.'
     act 'Show money':dynamic $din_vokazalg_podbros2
end

act 'Give your wallet and leave':minut+=1&gt'vokzalGin'

act 'Stand back and share the money':
cls
gs'stat'
'<center><H4>railway_station</H4></center>'
'<center><img src="qwest/alter/vokzal.jpg" ></center>'
'You walked away, together with the girl and got the purse, that would divide the money. You divided the money on a flat and give half to the girl, having put the remaining money in your pocket. At this point, lost wallet. He took the wallet out of your hands. He counted the money and said, that in your wallet is not enough large sum of money. Then he demanded, what would you show him your money.'
     act 'Show money':dynamic $din_vokazalg_podbros2
end
}
--- vokdin ---------------------------------

# vokdinvera
$d_vokzal_vera_talk={
		 verarand=rand(0,1)
		 	 if verakassir=3 and hour>=8 and hour<=20 and verarand=0:
		     'Near the window woman smokes in which you will learn cashier Faith.'
		         act 'Chat with the cashier':
		         cls
		         !verakassir=3
		         minut+=5
		         gs'stat'
		         '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
		         
		             if verafrend>0:
					 verafrend+=1
					 'You have come to faith and greeted her. Gradually.'
					 veratalkrand=rand(0,3)
						 if veratalkrand=0:
						 'Suddenly your conversation smoothly flowing in no great controversy.'
							 act 'To prove his innocence':
							 cls
							 dom+=1
							 minut+=5
							 verafrend-=1
							 gs'stat'
							 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
							 'You rushed to prove his innocence and Faith in a few minutes Vera waved, "Oh. How do you say."'
							 act 'Get_Away':minut+=1&gt'vokzalGin'
							 end
							 
							 act 'Agree with Vera':
							 cls
							 sub+=1
							 minut+=5
							 verafrend+=1
							 gs'stat'
							 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
							 'You have decided not to argue with faith and agree with it.'
							 act 'Get_Away':minut+=1&gt'vokzalGin'
							 end
						 exit
						 end
						 if verafrend>=40:
							 if veratalkrand=1:
							 horny+=10
							 'Faith today that it sold out and began to tell about their guys, that were with her husband to.'
							     if verafrend>=50:
							         act 'Interesovatsya details':
									 cls
									 minut+=5
									 horny+=10
									 gs'stat'
									 if veraendtalker=1:
									 veraboyrand+=1
									 end
									 if veraendtalker=0:
									 veraendtalker=1
									 veraboyrand=0
									 end
									 if veraendtalker=1:
									 if veraboyrand>=9:veraendtalker=2
									 end
									 if veraendtalker=2:veraboyrand=rand(0,8)
									     if veraboyrand=0:
									     '<center><img src="qwest/vokzal/bvtalk0.jpg" ></center>'
									     'faith tells "The first time I was with an adult man, when I was 14 year_old. I`m born in the village, she know, on one side of the village pernesh, to hear the other, so I did not meet with the local guys. So one day in the village came one adult man, an expensive car, himself all of this yourself, in white pants. We met, he invited me to his, drink martinis. I`m a fool ears hung and went to him. He really made вЂ‹вЂ‹me drunken martini. Not that I would have drunk, In those days I could calmly drink grams 300 moonshine, but then softened. In general, after which it is separated Me, began to lick his chest. It was just a fucking nice. And then suddenly bam! He sticks in my own process. It hurt, certainly bearable, but for girls who did not even really knew nothing about sex it was just a shock. I lie under what is a man, with her legs spread, he sweats and romping on me, between the legs dull, throbbing pain. Then he pulls out his hell out of me and cums on my stomach. And here I lay naked, smeared in his smelly mucus, from the blood of tortured pussy, and he says to me that I log. Well. I is the beam and failed to meet his majesty. This stupid kid did not even realize, that he had just robbed me of my innocence. In_short, I sent him to the dick and more with him not met. Well at least no one would know about it in the village of my adventure. It was terrible just to horror, was feeling after deprivation of virginity, that everything is up to date. I was hiding from people a month and did not go for a walk, I was so ashamed."'
									     act 'Get_Away':minut+=1&gt'vokzalGin'
									     end
									     if veraboyrand=1:
									     '<center><img src="qwest/vokzal/bvtalk1.jpg" ></center>'
									     'faith tells "After his first experience and I look at the guys did not want to. but 17 years. I even managed to go to college. There I met with Oleg undergraduate, all such inflated guy, just like Schwarzenegger. athlete, Master of Sports in cycling. Here I can not imagine how he was able to afford a bicycle frame pump. He invited me in a cafe, we were there having fun and drinking. Oleg suggested to go to him. Well, that he should, but as it is not believed, before that can be reached. In general, we went to him. There`s still drank champagne, started tselovatsya. He stroked my chest and it was very nice. I myself did not understand what I was doing put her hand on his pants, stroking his cock, Then he took his first time in my life took in his mouth. I sat on his haunches, sucked his cock and caressed herself between her legs. And you know what? I was first in my life felt so good, I began to not care at all. The guy was good, I was also good, what else does it?"'
									         act 'And what happened next?':
									         cls
									         minut+=5
									         horny+=10
									         gs'stat'
									         '<center><img src="qwest/vokzal/bvtalk11.jpg" ></center>'
									         'Vera continued "Oleg turned me and I leaned, He pulled off my skirt and panties and entered me. Unlike my first time it was fucking, I squealed with delight fingering ass on his cock. And here I was covered! It was such an orgasm, which I have never in my life have been, I almost fainted. When the ability to think back to me, Oleg had finished and my ass was covered with his sperm. I went on padded feet to wash. He carried me to the hostel and all. More we had not met. I tried to stick to it, but he just waved me. Other devchenok I learned, that he began to consider me whore. Allegedly went ebatsya Man, which for the first time in my life met, suck it, and then cums on his cock."'
									         	 act 'You`re really the one to blame':
												 cls
												 dom+=1
												 minut+=5
												 verafrend-=1
												 gs'stat'
												 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
												 'You said that the Faith itself to blame, Faith on that a little testily replied "Though I do not know. She jumped on a guy dick, That ogrebla."'
												 act 'Get_Away':minut+=1&gt'vokzalGin'
												 end
												 
												 act 'Yes':
												 cls
												 sub+=1
												 minut+=5
												 verafrend+=1
												 gs'stat'
												 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
												 'You cheered Faith saying that this kid just Oleg. She sighed sadly "Well yes, goatskins still the."'
												 act 'Get_Away':minut+=1&gt'vokzalGin'
												 end
									         end
									     end
									     if veraboyrand=2:
									     '<center><img src="qwest/vokzal/bvtalk2.jpg" ></center>'
									     'faith tells "After I met Oleg Lehoy. Cool guy Laban guitar. Also lived in the dorm. We were not just met, walked together. He is not particularly insisted on having sex and not much molested me. Over time. Vyzhrat two boxes screwdriver. And it was all over the bed. No , and he did not even fucked me, He fought me like a cat. I just whined nails clutching the sheet. It was a strange sensation, pain and pleasure , that I simply enjoyed as a piece of meat, spit on me, but I like it. This bastard finished right at me and began to snore on my back. I barely managed to vybratsya from under his carcass. I got dressed and left a grudge against him."'
											 act 'You might like this?':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "You might like this?", Faith on that a little testily replied "Well yes. I know that was his only hole, but I do not know why I have a factory."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'Yes':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying that this kid just Lech. She sighed sadly "Well yes, goatskins still the. Took advantage of a defenseless girl."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=3:
									     '<center><img src="qwest/vokzal/bvtalk3.jpg" ></center>'
									     'faith tells "I have long ignored Lech, although he molested me and here met another guy in the club. uh, I do not remember his name, I met him for the first time in my life and the last. I got drunk trying to forget Lech, but he did not go out of my head. And then turned up pretty guy. He molested me and paw . He suggested that I go with him to the toilet. I`ve wanted to call him in the face, and then I thought, a proper feature? Why not? So I went with him to the toilet and sucked him, while caressing her pussy. When he began to cum in my mouth, I covered the orgasm itself. It was nice, he had gone out of the booth, I was still sitting on the floor with his face smeared semen and depart from orgasm. Then of course was ashamed of his behavior, but what really. What do you think, I entered as a slut?"'
									     	 act 'Of_Course! You also vaflersha!':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "Of_Course! You`re not just a slut and you still vaflersha!", Faith on that a little testily replied "Well! I even finish from this, if more and caresses herself. What is wrong?"'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'C`mon, you`re just having fun':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith said that she just had fun. She smiled at you "Well. Well, I even finish from this, if caresses herself. Nothing is wrong with that."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=4:
									     '<center><img src="qwest/vokzal/bvtalk4.jpg" ></center>'
									     'faith tells "After the incident at the club . But he is such a person, until the case came to sex it is quite good-natured and funny guy, but when it comes to bed, it becomes a real pet. One day when we were fucked, and we had started doing it almost every day, he began to massage my ass. I tried to sopritivlyatsya, but he put on my resistance with the device. In general Lehoy and I lost my anal virginity. At first it hurt. But Lech pecked me in the ass every day and already I`m used to. By, is no risk to fly and I was able to relax during sex. I even began to cum during anal fondling herself between her legs."'
									     	 act 'anal? phew! It`s disgusting!':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "anal? phew! It`s disgusting!", Faith on that a little testily replied "Come, I also found a prude."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'cool!':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying that it `s even fun. She smiled at you "Well. Ass stretched and took a member already without tension. I even get an orgasm, what else does it?"'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=5:
									     '<center><img src="qwest/vokzal/bvtalk5.jpg" ></center>'
									     'faith tells "Once again we Lehoy booze in his room, but this time invited Lech neighbor. I have already got used to the time to have sex and sat grim, understanding that sex today bummer, Lech suddenly invited me to suck him right in front of his friend. she know, I have my eyes on five kopecks became his offer, Lech but was not joking, He even pulled out his penis. I sighed and tried not to look at his friend began to suck him. His friend watched a bit of this and invited him to join Lech. I shoved the second term under the nose, I began to suck already have two. Strange feeling to handle two members. Then Lech put me cancer and began to fuck while I sucked his friend. After that we `ve met mostly in Troy and I perprobyvala them all. And double penetration, and the two fuck me in the ass, and ended on my face. Leszek I said then still, Do not fight nature, understand, you whore, There is nothing wrong. This lasted until 4of course. Lech was on course older and graduated. He went to English, without saying goodbye and I never saw him again."'
									     	 act 'oh my God! You really damn!':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "oh my God! You really damn!", Faith on that a little testily replied "Well , with him was a pleasure, and his friend for me was a kind of appendage to Leshke and nothing more."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'cool!':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying that it `s even fun. She smiled at you "Well. Two guys at the same time it is certainly a little napryazhno, but still it can not be compared with one."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=6:
									     '<center><img src="qwest/vokzal/bvtalk6.jpg" ></center>'
									     'faith tells "After Leszek left me, I was not myself, I cried into my pillow at night and was ready for him to flee to the edge of the world. I myself is not understood, how do I love him really. But running was not much, I have no idea where it went. I decided to find a new guy, and found. Also named Lesco, but he was a firefighter, serious guy with great prospects. I`m cool with it screwed up. All went well, until one day I myself with a fool not invited him to anal sex and licked his cock then. Then he opened his eyes , before that I was for him a young girl, but it was, I have experience already above the roof. We parted after that not even quarreled, but I saw in his eyes."'
									     	 act 'oh my God! You really damn!':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "oh my God! You really damn!", Faith on that a little testily replied "Well, besides fucked in all the, I just had grown accustomed to everything, and my new guy was not ready."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'He still does not fit you':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying what he had still not approached. She smiled at you "Well. I fucked three years with two guys at once, besides fucked in all the, I just had grown accustomed to everything, and my new guy was not ready."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=7:
									     '<center><img src="qwest/vokzal/bvtalk7.jpg" ></center>'
									     'faith tells "After I screwed up big for a firefighter, I decided not to repeat their mistakes and become acquainted with the new guy Sasha, I have carefully from itself writhes naive girl, for which something other than missionary position is a perversion. And you know? it rolled. My new boyfriend Sasha was so proud of myself when I first agreed to breaking blowjob. I honestly was funny from it all. I could swallow his segment with eggs, and comes from a girl to pose themselves and pretended to play the virgin smuschatsya. So I finished college and Sasha asked me to marry him. And you know? I refused. I tired it less bitter radish, tired of all this silly game, but to open the map and show him all what I can do and I was ashamed to just throw it."'
									     	 act 'Well! good guy.':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "Well! good guy", Faith on that a little testily replied "Well. In the bed was just a quiet horror, just lick his cock and fucking, flowed Molof Language. Thirty seconds to pull on me and all, finished. And all the licks and licks between my legs, just another hole not prolizal. I am a member inside pochuvstvovalt want, instead of licking."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'He still does not fit you':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying what he had still not approached. She smiled at you "Well. I fucked three years with two guys at once, besides fucked in all the, I just had grown accustomed to everything, and my new guy was not ready."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									     if veraboyrand=8:
									     '<center><img src="qwest/vokzal/bvtalk8.jpg" ></center>'
									     'faith tells "After I graduated from college and broke up with Sasha, I stood in front of the selection or return to their village and there is a cow tails twist to the death or how it must be in obustraivatsya. With the guys I fatally unlucky, turned away from me luck and then I made вЂ‹вЂ‹a very stupid its great. I decided to be engaged in sex for money. Yeah yeah. I became a prostitute. I thought a little bit pripodymus, earn some money and then throw. Yup, right_now. I got in a good idiot trap, I took the passport and lived in a brothel where I even could not get out of cigarettes. And is served by several people a day, sometimes carried on Saturdays, where bandyuki allowed me around and had fun poking me a bottle in the ass and cunt. I would have died somewhere or they would have killed me bandyuki played enough with me. But I was lucky, ottarabanil year whore, our brothel covered cops. I sat a little in the detention center, but the court only gave me a fine and released. The accumulation of money . I went to the provincial town and bought a room here. Then he found a guy and married it to yourself."'
									     	 act 'prostitution? It`s fucked up! How can you?':
											 cls
											 dom+=1
											 minut+=5
											 verafrend-=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You said indignantly "prostitution? It`s fucked up! How can you?", Faith on that a little testily replied "I was just lazy fool, who thought, that his by a pussy can conquer the whole world, my life has put in place, and I`m glad, that all ended well, could be worse."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
											 
											 act 'Well':
											 cls
											 sub+=1
											 minut+=5
											 verafrend+=1
											 gs'stat'
											 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
											 'You cheered Faith saying that all this is in the past. She smiled at you "Well. Yes, but I`m tied to this and will not come back."'
											 act 'Get_Away':minut+=1&gt'vokzalGin'
											 end
									     end
									 end
							     end
							 end
							 if veratalkrand=2:
							 horny+=10
							 'Faith today that it sold out and began to tell about the lesbian experience in a hostel uni.'
							 	 if verafrend>=50:
							         act 'Interesovatsya details':
									 cls
									 minut+=5
									 horny+=10
									 gs'stat'
									 '<center><img src="qwest/vokzal/lvtalk.jpg" ></center>'
									 'Vera began to tell "We have a girlfriend like that much and census began tselovatsya, I had not realized, her head was between my legs. It was cool! I was just remember to orgasm, but when it is wet lye was I myself under the nose I felt disgusted. No . But honestly, I did not like. Women in general I do not like, they are soft, as semolina in the package. Tits fucked it all, I just turn up on the udder, and the ass, that men, sturdy little ass and that these loose sticks? No, a woman with a man in bed does not compare."'
									 act 'Get_Away':minut+=1&gt'vokzalGin'
									 end
							     end
							 end
							 if veratalkrand=3:
							 horny+=10
							 'Faith today that it sold out and began to tell of her husband, before he was ogogo, but now almost impotent'
							 	 if verafrend>=50:
							         act 'Interesovatsya details':
									 cls
									 minut+=5
									 horny+=10
									 gs'stat'
									 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
									 'Faith tells you "Well Muzhichi, that they take. When we were first married, he could every day, almost all night fuck, and now I`m probably so it become boring, he practically avoids sex."'
									 act 'Get_Away':minut+=1&gt'vokzalGin'
									 end
							     end
							 end
						 end
		             
		             act 'Get_Away':minut+=1&gt'vokzalGin'
		             end
		             if verafrend<=0:
		             'You have come to faith and greeted her. But Vera turned away from you muttered to you "Leave me alone".'
						 act 'Apologize to Faith':
						 cls
						 sub+=1
						 minut+=5
						 verafrend+=1
						 gs'stat'
						 '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
						 'You started to apologize to Vera.'
						     if verafrend<=0:
						     'Faith did not respond to your apology and turned away.'
						     end
						     if verafrend>0:
						     'faith sighed "Well, perhaps forgive you."'
						     end
						 act 'Get_Away':minut+=1&gt'vokzalGin'
						 end
						 
		             act 'Get_Away':minut+=1&gt'vokzalGin'
		             end
		         end
		     end
		 	 if verakassir=2 and hour>=8 and hour<=20 and verarand=0:
		     'Near the window woman smokes in which you will learn cashier Faith.'
		         act 'Chat with the cashier':
		         cls
		         verakassir=3
		         minut+=5
		         verafrend+=10
		         gs'stat'
		         '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
		         'You have come to the Faith and its poprevetstvovali. Gradually, that sex with her вЂ‹вЂ‹husband does not satisfy.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
		 	 if verakassir=1 and hour>=8 and hour<=20 and verarand=0:
		     'Near the window woman smokes in which you will learn cashier Faith.'
		         act 'Chat with the cashier':
		         cls
		         verakassir=2
		         minut+=5
		         verafrend+=10
		         gs'stat'
		         '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
		         'You have come to the Faith and its poprevetstvovali. Gradually, Vera is married and has a child.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
		     if verakassir=0 and hour>=8 and hour<=20:
		     'Near the window woman smokes in which you will learn the cashier.'
		         act 'Chat with the cashier':
		         cls
		         verakassir=1
		         minut+=5
		         verafrend+=10
		         gs'stat'
		         '<center><img src="qwest/vokzal/verasmoke.jpg" ></center>'
		         'You have come to the cashier and not knowing how to start a conversation asked her how long. Gradually. She wondered why you began to work as a cleaner, what you have complained about the lack of money, Faith was surprised and told, that the station in 11 and 18 hours of long-distance trains arrive and quirky people vtyuhivat passengers all garbage, which is bought at the warehouse terminal in the regional center.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
}
--- vokdinvera ---------------------------------

# vokmantoiev
$d_vok_man_toilet_event={
startevtoirand=rand(0,1)
     if startevtoirand=0:
     vokmantoitipev=rand(0,3)
         if vokmantoitipev=0:
		 !if gloryholeVokzal=9:gloryholeVokzal=10&''
		 !if gloryholeVokzal=8:gloryholeVokzal=9&''
		 !if gloryholeVokzal=6:gloryholeVokzal=7&''
		 !if gloryholeVokzal=5:gloryholeVokzal=6&''
		 !if gloryholeVokzal=4:gloryholeVokzal=5&''
		 !if gloryholeVokzal=3:gloryholeVokzal=4&''
		 !if gloryholeVokzal=2:gloryholeVokzal=3&''
		 if gloryholeVokzal=1:gloryholeVokzal=2&'you notice, that the floor, near the hole in the wall located in one of the cabins have strange white drops. You began to wipe them off the floor with a cloth and realized, it`s sperm.'
		 if gloryholeVokzal=0:gloryholeVokzal=1&'You saw in one of the walls of the booth is fenced off from each other by a circular opening at the waist. You curiously examined the smooth opening and shrug continued to get out.'
		 end
		 if vokmantoitipev=1:
		 'The toilet boss walked station and standing at urinals started writing.'
		     if horny>=50:
		         act'peep':
		         cls
		         minut+=1
		         seepeenach+=1
		         tot_seepee+=1
		         if tot_seepee>5:horny+=5
		         gs'stat'
		         '<center><img src="qwest/vokzal/seepee.jpg" ></center>'
		         'You glanced at the head of the flaccid penis Station'
		         'You became wash the floor in the men`s room, then began to scour bowls.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
		 end
		 if vokmantoitipev=2:
		 'The toilet and went to the police standing at the urinals began writing.'
		 	 if horny>=50:
		         act'peep':
		         cls
		         minut+=1
		         seepeecop+=1
		         tot_seepee+=1
		         if tot_seepee>5:horny+=5
		         gs'stat'
		         '<center><img src="qwest/vokzal/seepee.jpg" ></center>'
		         'You glanced at his flaccid penis police'
		         'You became wash the floor in the men`s room, then began to scour bowls.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
		 end
		 if vokmantoitipev=3:
		 'The toilet has gone what that guy standing at the urinal and began to write.'
		 	 if horny>=50:
		         act'peep':
		         cls
		         minut+=1
		         seepeeman+=1
		         tot_seepee+=1
		         if tot_seepee>5:horny+=5
		         gs'stat'
		         '<center><img src="qwest/vokzal/seepee.jpg" ></center>'
		         'You glanced at his flaccid penis man'
		         'You became wash the floor in the men`s room, then began to scour bowls.'
		         act 'Get_Away':minut+=1&gt'vokzalGin'
		         end
		     end
		 end
	 end
	 if startevtoirand>0:
	 'You became wash the floor in the men`s room, then began to scour bowls.'
	 end
}
--- vokmantoiev ---------------------------------

# vokzaltorg
$d_kachatprava={
act 'swing right':
cls
money=0
tovarL=0
minut+=120
manna=0
gs'stat'
'<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
'You have decided to shake their rights, Police responded to what is to be expected, dragged you to the department, money seized and confiscated goods. Once you promuryzhili two o`clock, you still released.'
act 'Get_Away':minut+=1&gt'vokzalGin'
end
}


cls
minut+=30
gs'stat'
prodskill=vnesh+will+dom
if prodskill<20:prodskill=20
if prodskill>150:minimumtov=3
if prodskill>100 and prodskill<=150:minimumtov=2
if prodskill<100:minimumtov=1
tovarand=rand(minimumtov,prodskill/10)
if tovarand>tovarL:tovarand=tovarL
tovpay=tovarand*300
money+=tovpay
tovarL-=tovarand
will+=rand(0,1)
TorgVokzalTimes+=1
dom+=1
gs'stat'
'<center><img src="qwest/vokzal/peron.jpg" ></center>'
'You managed vtyuhat <<tovarand>> One unit of product, while earning <<tovpay>> rubles.'
	 act 'Get_Away':
	 cls
	 gs'stat'
	 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
	 'Near the platform you are already waiting for the police. "breach? Trade without proper papers?"'
		 
		 if money>=500:
			 act 'pay 500 RUB':
			 cls
			 money-=500
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'you paid 500 rubles police. He took the money and immediately lost interest to you.'
			 act 'Get_Away':minut+=1&gt'vokzalGin'
			 end
		 end
		 
		 act 'persuaded to forgive':
		 cls
		 gs'stat'
		 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
		 'You started to persuade police captain forgive you and release.'
			 if katalkinSexOnce>=1:
				 if katalkinSexDay+7>=daystart:
				 'captain grinned "Well."'
				 act 'Get_Away':minut+=1&gt'vokzalGin'
				 end
				 
			     if katalkinSexDay+7<daystart:
				 'The captain frowned "You long ago to me did not come, avoiding?"'
					 act 'No, what do you, simply no':
					 cls
					 gs'stat'
					 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
					 'You started arguing opravdyvatsya, that you just do not have enough time. captain grinned "Come then now the Department. Carry out bodily searches."'
					 act 'Go to the police':minut+=5&katalkinNoexit=1&gt'katalkin'
					 end
				 end
			 end
			 
			 if katalkinSexOnce=0:
			 schtraf=500
			 'captain grinned "Come then now the Department. there shall understand."'
			 act 'Go to the police':minut+=5&katalkinNoexit=1&gt'katalkin'
			 end
		 end
		 
	 
	     dynamic $d_kachatprava
	 end

--- vokzaltorg ---------------------------------

# katalkin
gs'stat'
if hour>=8:'<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
'Little nook in which the police are sitting.'

if hour>=8 and hour<22:
'Captain Katalkin handles cases.'
     if katalkinSexDay<daystart and katalkinSexOnce=1:
         if schtraf=0:
         'Katalkin looks at you with interest "Sit down Light. can tea?"'
			 act 'drink tea':
			 cls
			 minut+=5
			 katalkinNoexit=0
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'You sat down at the table and poured Katalkin you some tea. Captain himself sat down next to you and also began to drink tea. He almost rummage your body your lustful eyes. Captain whispers to you grabbing you for Lyashko "Well Sveta, can entertain?"'
			 act 'Put his hand on his pants':katsexetap=1&gt'katalkinSex'
			 act 'Do not move':katsexetap=0&gt'katalkinSex'
			 end
         end
         if schtraf>0:
         'Captain Katalkin smiling at you "Well Sveta, pay a fine or exhaust?"'
             if money>=schtraf:
				 act 'pay a fine':
				 cls
				 money-=schtraf
				 schtraf=0
				 katalkinNoexit=0
				 gs'stat'
				 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
				 'You paid a fine police officer. He took the money and immediately lost interest to you.'
				 act 'Get_Away':minut+=1&gt'vokzalGin'
				 end
             end
             
             act 'work':katsexetap=0&gt'katalkinSex'
         end
     end
     if katalkinSexDay=daystart and katalkinSexOnce=1:
         if schtraf=0:
         'Katalkin sits in his papers and that is writing.'
         end
         if schtraf>0:
         'Katalkin grins "I think you`re completely fulfilled its fine."'
			 act 'bye now':
			 cls
			 schtraf=0
			 katalkinNoexit=0
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'You said goodbye to the police, He nodded to you "Come on, go, and then I have a lot of work".'
			 act 'Get_Away':minut+=1&gt $curloc
			 end
         end
     end
     if katalkinSexOnce=0:
         if schtraf=0:
         'Katalkin looks at you with interest "Sit_down. can tea?"'
			 act 'drink tea':
			 cls
			 minut+=5
			 katalkinNoexit=0
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'You sat down at the table and poured Katalkin you some tea. Captain himself sat down next to you and also began to drink tea. He almost rummage your body your lustful eyes. And suddenly you feel like you captain put his hand on his leg and a little squeezing her feverishly began to mumble his face closer to your. "you`re cute, we police are people too."'
			 act 'Get_Away':minut+=1&gt $curloc
			 act 'Do not move':katsexetap=0&gt'katalkinSex'
			 end
         end
         if schtraf>0:
         'Captain Katalkin turned to you and said "In general you with fine <<schtraf>> rubles and you can go."'
             if money>=schtraf:
				 act 'pay a fine':
				 cls
				 money-=schtraf
				 schtraf=0
				 katalkinNoexit=0
				 gs'stat'
				 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
				 'You paid a fine police officer. He took the money and immediately lost interest to you.'
				 act 'Get_Away':minut+=1&gt'vokzalGin'
				 end
             else
             	 act 'I have no money':
				 cls
				 money=0
				 schtraf=0
				 katalkinNoexit=0
				 kutime=24
				 gs'stat'
				 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
				 'The police searched you, and took values. He frowned and said "Then sit day in jail."'
				 act 'In jail':gt 'kutuzka'
				 end
             end
             
             
             act'beg':
             cls
             gs'stat'
             '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
             'You started to beg the police captain did not punish you. He looked around the empty room and then turned his face to you. "Well." His gaze slid over your figure and his sweaty hand fell on my knees to you.'
                 if money>=schtraf:
                 'You think to yourself, may well in FIG this captain, obviously he had to something. I have enough money for a fine.'
					 act 'pay a fine':
					 cls
					 money-=schtraf
					 schtraf=0
					 katalkinNoexit=0
					 gs'stat'
					 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
					 'You paid a fine police officer. He took the money and immediately lost interest to you.'
					 act 'Get_Away':minut+=1&gt'vokzalGin'
					 end
				 end
				 if money<schtraf:
				 'You think to yourself, that out then you have no. As there is no required amount for payment of the fine.'
				 end
				 
				 act 'smile at him':katsexetap=0&gt'katalkinSex'
             end
         end
     end
end
if hour>=22:
'Captain Katalkin sitting at a table on which lay a variety of snacks and vodka worth. Next to him sat two more police.'
     if katalkinSexOnce=1:
         if katGangMeet=0:
         'See you Katalkin captain waved his hand and you drunkenly said "Come here Sveta. I `ll introduce you to fucking guys."'
             act 'Sit down':
			 cls
			 minut+=5
			 katalkinNoexit=0
			 katGangMeet=1
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'You sat down at a table with a drunken police campaign, you immediately poured vodka. Katalkin introduced you guys like Pasha and Sergei. "Well Svetsik, Let`s drink to familiarity."'
			 act 'A toast to familiarity':alko+=2&minut+=5&gt'katalkinAlko'
			 end
         end
         if katGangMeet>0:
         'See you Katalkin captain waved his hand and you drunkenly said "Come here Sveta. Come buhnem."'
             act 'Sit down':
			 cls
			 minut+=5
			 katalkinNoexit=0
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 'You sat at the table with his subordinates and Katalkinym Pasha and Sergei. You immediately poured vodka.'
			 act 'drink a glass':alko+=2&minut+=5&gt'katalkinAlko'
			 end
         end
     end
     if katalkinSexOnce=0:
     'IF THIS MESSAGE climbed it BAG'
         if schtraf=0:
         'Katalkin drunkenly looking at you "Come to us at the table! Come_Over, do not be shy, here all their."'
         	 act 'Sit down':
			 cls
			 minut+=5
			 katalkinNoexit=0
			 gs'stat'
			 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
			 ''
			 act 'Get_Away':minut+=1&gt $curloc
			 act 'Do not move':katsexetap=0&gt'katalkinSex'
			 end
         end
         if schtraf>0:
         'Katalkin drunken captain turned to you and said "In short pay fines <<schtraf>> rubles and you can get out."'
             if money>=schtraf:
				 act 'pay a fine':
				 cls
				 money-=schtraf
				 schtraf=0
				 katalkinNoexit=0
				 gs'stat'
				 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
				 'You paid a fine police officer. He took the money and immediately lost interest to you.'
				 act 'Get_Away':minut+=1&gt'vokzalGin'
				 end
             else
                 act 'I have no money':
				 cls
				 money=0
				 schtraf=0
				 katalkinNoexit=0
				 kutime=24
				 gs'stat'
				 '<center><img src="qwest/vokzal/katalkin.jpg" ></center>'
				 'The police searched you, and took values. He frowned and said "Then sit day in jail."'
				 act 'In jail':gt 'kutuzka'
				 end
             end
         end
     end
end
if hour<8:
'The door is locked.'
act 'Get_Away':minut+=1&gt'vokzalGin'
end

if katalkinNoexit=0:act 'Get_Away':minut+=1&gt'vokzalGin'


--- katalkin ---------------------------------

# katalkinSex
$d_katanal={
		 act'further':
		 cls
		 horny+=5
		 minut+=15
		 if katalkinSexOnce=0:katalkinSexOnce=1&guy+=1
		 KatalkinAnal+=1
		 sub+=1
		 gs'stat'
		 '<center><img src="qwest/vokzal/kat/katAnal.jpg" ></center>'
		 'Captain undressed and stood behind your back, loudly slapped his hand on your naked ass. You even gasped in surprise.'
		 dynamic $analsex2
			 act'further':
			 cls
			 minut+=3
			 anal+=1
			 cumanus+=1
			 gs'stat'
			 '<center><img src="qwest/vokzal/kat/after.jpg" ></center>'
			 'Suddenly the captain grabbed your buttocks tight and groaned at you. Did you feel like your ass fills something warm. The captain finally got off and you become odevatsya.'
			 
			 act 'Brush up':minut+=1&gt 'katalkin'
			 end
		 end
}
$d_katsub={
     act'Close your eyes':
     cls
     horny+=5
     minut+=3
     gs'stat'
     '<center><img src="qwest/vokzal/kat/bend.jpg" ></center>'
     'You lay back with his eyes closed and trying to enjoy the feeling of. Suddenly the captain unfolds you back to yourself and tips.'
         act'stand leaning':
		 cls
		 horny+=5
		 minut+=3
		 gs'stat'
		 '<center><img src="qwest/vokzal/kat/grop.jpg" ></center>'
		 'You put her hands on the wall ,that would not fall and the captain pulled up her skirt and pulled your pants. You felt his fingers began to massage your ass. He hissed at you "Get up off your clothes and cancer"'
		     act'Undress and get cancer':
			 cls
			 horny+=5
			 minut+=3
			 gs'stat'
			 '<center><img src="qwest/vokzal/kat/katBeforeAnal.jpg" ></center>'
			 kattiperand=rand(0,1)
			     if kattiperand=0:
			     'You get undressed and stood in front of the captain cancer. "Spread bread" Captain told you tone brooked no argument and you obediently spread her poluzhopiya showing hole. Katalkin pressed his finger on the ring anus and frantically whispered "I`d rather fuck you in the ass. I do not want, What would you flew me."'
			     dynamic $d_katanal
				 end
				 if kattiperand=1:
				 'You get undressed and stood in front of the captain cancer. "Spread bread" Captain told you tone brooked no argument and you obediently spread her poluzhopiya showing hole. Katalkin asked feverish whisper "Do you have Gandon?"'  
			         act'No':
			         cls
			         gs'stat'
			         '<center><img src="qwest/vokzal/kat/katBeforeAnal.jpg" ></center>'
			         'You said Captain ,you do not have a condom, what Katalkin answered "Then going to fuck you in the ass."'
			         dynamic $d_katanal
			         end
			         
			         if prezik>0:
						 act'Is_There':
						 cls
						 pose = 1
						 gs'stat'
						 '<center><img src="qwest/vokzal/kat/sex.jpg" ></center>'
						 dynamic $sexudo
						 dynamic $sexcum
						 act 'Brush up':minut+=1&gt 'katalkin'
						 end
			         end
				 end
			 end
		 end
     end
}

$boy='Katalkin'
dick=18
silavag = 0

horny+=10
schtraf=0
katalkinNoexit=0
katalkinSexDay=daystart
gs'stat'


if katsexetap=0:
'<center><img src="qwest/vokzal/kat/kat.jpg" ></center>'
'Hands police captain rummage through your body trying to get here before your breasts and ass.'
     act'Clean up his hands':
     cls
     gs'stat'
     '<center><img src="qwest/vokzal/kat/kat.jpg" ></center>'
     'You have become clean his hands "Well, i do not want, headache, I month." otmazyvatsya you started, but the captain seems you did not listen and continued to undress you in full.'
     act'Stroking his pants':katsexetap=1&gt $curloc
     dynamic $d_katsub
     end
     
     dynamic $d_katsub
     
     if horny>=75:
		 act'hug him':
		 cls
		 horny+=5
		 gs'stat'
		 '<center><img src="qwest/vokzal/kat/kat.jpg" ></center>'
		 'You hugged police captain hands and kissed him.'
		 act'Stroking his pants':katsexetap=1&gt $curloc
		 dynamic $d_katsub
		 end
     end
end

if katsexetap=1:

'You started stroking his pants police uniform trousers and feel like there was strengthened and hardened his cock.'
     act'Kneel':
     cls
     if katalkinSexOnce=0:katalkinSexOnce=1&guy+=1
     gs'stat'
     '<center><img src="qwest/vokzal/kat/kneel.jpg" ></center>'
     'You stood in front of a police officer on his knees and pulled his cock out of his pants.'
         act'suck':
		 cls
		 bj+=1
		 gs'stat'
		 '<center><img src="qwest/vokzal/kat/bj.jpg" ></center>'
		 dynamic $dinrandbj
		 kattiperand=rand(0,1)
		     if kattiperand=0:
				 act'swallow cum':
				 cls
				 swallow+=1
				 cumlip+=1
				 KatalkinSwallow+=1
				 gs'stat'
				 '<center><img src="qwest/vokzal/kat/swallow.jpg" ></center>'
				 dynamic $dinrandswallow
				 act 'Brush up':minut+=1&gt 'katalkin'
				 end
				 
				 act'on the face':
				 cls
				 facial+=1
				 cumface+=1
				 KatalkinFacial+=1
				 gs'stat'
				 '<center><img src="qwest/vokzal/kat/facial.jpg" ></center>'
				 'You took out a member of his mouth and you immediately face splattered warm and strongly smelling sperm.'
				 act 'Brush up':minut+=1&gt 'katalkin'
				 end
			 end
			 if kattiperand=1:
			 'Katalkin suddenly pulls his dick out of your mouth and took you by the shoulders up from his knees to his feet.'
			 dynamic $d_katsub
			 end
		 end
     end
end

















--- katalkinSex ---------------------------------

# katalkinAlko
gs'stat'

if hour<8:
'The police finally drunk and fell to sleep where someone.'
act 'Get_Away':minut+=1&gt'vokzalGin'
exit
end

if alko<6:
'You drank a glass of vodka with police. You will again pour into a glass of vodka.'
act 'drink a glass':alko+=2&minut+=30&gt $curloc
end
if alko>=6:
'You definitely tipsy and just sit on a chair.'
end


if katGangbang=0:

end
if katGangbang>0:
     if katGangbangDay=daystart:
     
     end
     if katGangbangDay<daystart:
     
     end
     
end


act 'Get_Away':minut+=2&gt 'vokzalGin'
--- katalkinAlko ---------------------------------

# kutuzka
gs'stat'
'You sit in a small cell, where there is no toilet, no shell, is only a wooden plank. All you have to sit <<kutime>> hours.'

if kutime>0:
	 act 'sit':
	 cls
	 minut+=60
	 kutime-=1
	 gs'stat'
	 'You sit on hard wooden planks.'
	 act 'further':gt $curloc
	 end
end
if kutime<=0:
'Finally the time of his release over and you have been released.'
act 'Get_Away':minut+=1&gt $curloc
end
--- kutuzka ---------------------------------

# JuliaMilGo
gs'stat'
'<center><B><font color=maroon><<$npcName[12]>> <<$npcSurName[12]>></font></B></center>'
'<center><img src="qwest/alter/npc/12.jpg" ></center>'
'You came to Julia and she asked you, Will you go to her house, teach lessons.'

act'Go with Julia':
cls
minut+=15
gs'stat'
'<center><B><font color=maroon><<$npcName[12]>> <<$npcSurName[12]>></font></B></center>'
'<center><img src="qwest/alter/npc/12.jpg" ></center>'
'Do_You 15 minutes walking down the street to the home of Yulin discussing rubbish.'
act'Log in to the apartment':gt'JuliaMilHome'
end
--- JuliaMilGo ---------------------------------

# JuliaMilHome
if BeInJulMilHome=0:BeInJulMilHome=1
gs'stat'
'<center><B><font color=maroon><<$npcName[12]>> <<$npcSurName[12]>></font></B></center>'
'<center><img src="qwest/alter/npc/12.jpg" ></center>'
'Not a bad room, with quality furnishings, forced by all the books.'
if lernHome!0:
'Julia arranges books on the table.'
	 act 'Engage with Julia':
	 cls
	 minut+=60
	 !grupNPC[14]+=10
	 lernHome=0
	 lern+=RAND(3,6)
	 intel+=RAND(1,2)
	 gs'stat'
	 '<center><img src="qwest/alter/npc/12.jpg" ></center>'
	 'You are within an hour engaged with Julia and lessons learned.'
	 act 'rest':gt $curloc
	 end
end
if lernHome=0:
'Julia is sitting on her bed.'
     if eatJulMilDay!daystart:
     'Julia smiles at you and offers to eat together.'
     	 act 'Go to the kitchen with Julia':
		 cls
		 minut+=15
		 set fat = fat + 3
	     set energy = energy + 10
	     set water = water +20
	     eatJulMilDay=daystart
		 gs'stat'
		 '<center><img src="qwest/alter/npc/12.jpg" ></center>'
		 'You went into the kitchen with Julia and ate together. Then went back to her room'
		 act 'rest':gt $curloc
		 end
		 
		 act 'unsubscribe':
		 cls
	     eatJulMilDay=daystart
		 gt $curloc
		 end
     else
         if wine=1:
             act 'Drink wine with Julia':
			 cls
			 minut+=30
			 wine=0
			 alko+=6
			 JulMilBestFrend+=1
			 horny+=10
			 gs'stat'
			 '<center><img src="qwest/alter/npc/12.jpg" ></center>'
			 'You offered Julia wine and she agreed. Julia brought a corkscrew and a bottle you have printed, then poured the wine by the glass. For half an hour you drank a bottle of wine along with Julia.'
			 act 'rest':gt $curloc
			     if horny>=50:
			         act 'Chat about sex':
			         cls
			         minut+=5
			         if SexTalkJulia<4:SexTalkJulia+=1
			         gs'stat'
			         '<center><img src="qwest/alter/npc/12.jpg" ></center>'
			         'You began to discuss sexual topics with Julia'
			             if SexTalkJulia=1:'Suddenly.'
			             if SexTalkJulia=2:
                         'Julia while talking boasted that no longer a virgin.'
                         	 act 'inquire details':
							 cls
							 minut+=5
							 horny+=10
							 gs'stat'
							 '<center><img src="qwest/alter/ev2/outdoor.jpg" ></center>'
							 'Julia smiled mysteriously and began to tell "I went to summer camp to rest. There met a guy named Vova. We met with him the whole shift and at the end of the evening shift observed in the forest. There began obnimatsya, kiss, it was so nice, Besides. He first dropped me on my back, but there I was stuck between the blades of what that stone, she did not understand how was on all fours, so even without a skirt and panties. And then he walked me. It hurt. she know, it does not say a hymen is also part of the body, and then break it. If you honestly the first time I was just waiting for cancer when it all finally ends. Well at least it did not last long and the guy had finished on the ground."'
							 act 'rest':gt $curloc
							 end
                         exit
                         end
                         if SexTalkJulia=3:
                         'Julia while talking again remembered his adventures in the camp.'
                         	 act 'inquire details':
							 cls
							 minut+=5
							 horny+=10
							 gs'stat'
							 '<center><img src="qwest/alter/ev2/otrad.jpg" ></center>'
							 'Julia smiled mysteriously and began to tell "Well. But I still managed to sleep with Vovka before leaving the camp. We afternoon when no one was in the bedroom waded along with Vovka, he again began to harass me. Then I undressed and lay on the bed, terribly afraid that will hurt again, but it was well tolerated, Only in the beginning was a bit painful, but it quickly passed. Although I was unable to be stimulated, I was afraid, Now that the detachment somebody logs in and sees us. but there were. After that. He is from the city, I have his telefonchik. But it`s not really him vstrechatsya."'
							 act 'rest':gt $curloc
							 end
                         exit
                         end
                         if SexTalkJulia=4:
                         'Julia embarrassed and tells you "You`re such a funny girl Light. I`m with you myself am feeling absolutely no compulsion." She suddenly tilts her face to your wants and kiss you.'
                             act 'Tselovatsya Julia':
							 cls
							 minut+=5
							 horny+=20
							 gs'stat'
							 '<center><img src="qwest/alter/ev2/julkiss.jpg" ></center>'
							 'You kiss with Julia feeling her soft, smelling lips on her lips and her delicate nimble tongue gets into your mouth. Her hands gently hugs you and you chustvuete as she wraps her palms of your chest and begins to gently caress.'
							     act 'relax':
								 cls
								 minut+=5
								 horny+=20
								 gs'stat'
								 '<center><img src="qwest/alter/ev2/jultit.jpg" ></center>'
								 'Julia gets your chest and slowly lowered her kisses. Finally you chustvuete as she kisses and caresses your nipples breasts. Her fingers you climb between her legs pushing your panties.'
								 	 act 'relax':
									 cls
									 minut+=15
									 if npcSex[12]=0:npcSex[12]=1&girl+=1
									 lesbian+=1
									 horny=0
									 orgasm+=1
									 gs'stat'
									 '<center><img src="qwest/alter/ev2/julick.jpg" ></center>'
									 'You Julia undressed and lay you on your back, Julia threw her leg over your head and buried his face between her legs you, while exposing you to their expiring crack. You touched tongue to juicy vagina and began licking her ,chustvuya with the tongue Julia treat you between the legs. Soon you covered real fire and your body convulsed orgasm. Julia chustvuya your arousal and also finished her pussy convulsed start sokraschatsya front of your face, and her body pierced shiver.'
									 act 'rest':gt $curloc
									 end
								 end
								 
								 act 'Oh you Julia, leave_me_alone':dom+=1&gt $curloc
							 end
							 
							 act 'Oh you Julia, leave_me_alone':dom+=5&gt $curloc
                         exit
                         end
                         
                         
			         act 'rest':gt $curloc
			         end
			     end
			 end
         end
         
         act 'Chat with Julia':
		 cls
		 minut+=15
		 JulMilBestFrend+=1
		 gs'stat'
		 '<center><img src="qwest/alter/npc/12.jpg" ></center>'
		 'You talked to Julia about any nonsense.'
		 tiprand=rand(0,5)
		 if tiprand=0:'Julia mentions in passing that the earlier a friend of Natasha Belova, but she constantly took the money and did not give and Julia got sick.'
		 act 'rest':gt $curloc
		 end
     end
end


act 'go home':gt'gorodok'
--- JuliaMilHome ---------------------------------

# NatBelGo
gs'stat'
'<center><B><font color=maroon><<$npcName[16]>> <<$npcSurName[16]>></font></B></center>'
'<center><img src="qwest/alter/npc/16.jpg" ></center>'
'You came to Natasha and she asked you, Will you go to her house, teach lessons.'

act'Go with Natasha':
cls
minut+=15
gs'stat'
'<center><B><font color=maroon><<$npcName[14]>> <<$npcSurName[16]>></font></B></center>'
'<center><img src="qwest/alter/npc/16.jpg" ></center>'
'Do_You 15 minutes walking down the street to Natasha`s house discussing all the small stuff.'
act'Log in to the apartment':gt'NatBelHome'
end
--- NatBelGo ---------------------------------

# NatBelHome
if BeInNatBelHome=0:BeInNatBelHome=1
gs'stat'
'<center><B><font color=maroon><<$npcName[16]>> <<$npcSurName[16]>></font></B></center>'
'<center><img src="qwest/alter/npc/16.jpg" ></center>'
'Very poor room, but as the whole apartment.'
if lernHome!0:
'Natasha arranges books on the table.'
	 act 'Engage with Natasha':
	 cls
	 minut+=60
	 !grupNPC[16]+=10
	 lernHome=0
	 lern+=RAND(3,6)
	 intel+=RAND(1,2)
	 gs'stat'
	 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
	 'You are within an hour engaged with Natasha and lessons learned.'
	 act 'rest':gt $curloc
	 end
end
if lernHome=0:
'Natasha is sitting on her bed.'
	 act 'Chat with Natasha':
	 cls
	 minut+=15
	 NatBelBestFrend+=1
	 gs'stat'
	 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
	 'You talked to Natasha about any nonsense.'
	     if NatBelBestFrend=1:'Natasha recognized, she lives in a very poor family. She has no father, and her mother works for a penny at a garment factory.'
	     if NatBelBestFrend>=2:'Natasha envies, that other girls can smartly odevatsya and buy cosmetics, when she wears her mother`s things.'
	 act 'further':gt $curloc
	 end
	 
	 if NatDolg<=0 and money>=2000 and natsub>0:
	 'Natasha asked confused "Sveta, and you can take a couple of thousand?"'
	 	 act 'Give money Natasha':
		 cls
		 minut+=15
		 NatDolg=2000
		 money-=2000
		 gs'stat'
		 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
		 'You got the purse and gave Natasha money knowing that the money she just will not give up and that you would prefer to play with it.'
		 act 'further':gt $curloc
		 end
	 end
	 
	 if NatBelBestFrend>=3 and NatDolg=0 and money>=5000 and natsub=0:
	 'Natasha looked down "Sveta, you are found money. Could you lend me 5000 rubles. I will give, parole."'
	 	 act 'Lend Natasha':
		 cls
		 minut+=15
		 NatDolg=5000
		 money-=5000
		 NatDolgDay=daystart+30
		 NatBelBestFrend+=1
		 gs'stat'
		 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
		 'You got the purse and gave Natasha borrow money. Natasha was delighted and said, that will give them a month.'
		 act 'rest':gt $curloc
		 end
	 end
	 if NatDolg>0 and NatDolgDay>daystart:
	 'Natasha promises you to repay the debt <<NatDolg>> rubles, through <<NatDolgDay-daystart>> days'
	 end
	 if NatDolg>0 and NatDolgDay<=daystart:
	 'Natasha looks at the floor "Sveta, I have no money, that would give back to."'
	 	 act 'Forgive the debt Natasha':
		 cls
		 minut+=15
		 NatDolg=0
		 NatDolgDay=0
		 NatBelBestFrend+=10
		 gs'stat'
		 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
		 'You have decided to forgive the debt Natasha, She was delighted and began cardiopulmonary thank you.'
		 act 'rest':gt $curloc
		 end
		 
		 if dom>=10 and natotrab=0:
		 	 act 'claim money':
			 cls
			 minut+=15
			 gs'stat'
			 '<center><img src="qwest/alter/npc/16.jpg" ></center>'
			 'You have decided not to lower the debt Natasha, and rolled her scandal, demanding the return of money. Natasha shrank together into a ball on his bed  "Svetochka, sweet, forgive me. I am for you." Looking at you frightened Natasha came up with a couple of ideas, how you can use this chicken. And you evil hissed her "You`re my every last penny exhaust creature."'
			     act 'on your knees! And open your mouth!':
			     cls
			     minut+=5
			     natotrab+=1
			     natsub+=1
			     gs'stat'
			     !natknee
			     '<center><img src="qwest/alter/ev2/natknee.jpg" ></center>'
			     'You barked at Natasha, and she immediately obediently knelt down and opened her mouth.'
			     	 act 'Spit in her face':
					 cls
					 minut+=5
					 natsub+=1
					 NatDolg-=500
					 gs'stat'
					 !natknee
					 '<center><img src="qwest/alter/ev2/natknee.jpg" ></center>'
					 'You barked at Natasha, and she immediately obediently knelt down and opened her mouth. You have collected saliva and relish Natasha spat in the face, from what she jerked and squeezed her eyes shut. you smiled, "Fair_Enough, forgive." Natasha opened her eyes which did not get asked again and harchok "forgive?" you laughed "forgive 500 rubles of debt, fool. Now you will work until the entire debt is not extinguished."'
					 act 'rest':gt $curloc
					 end
			     end
			     
			 end
		 end
		 
		 if natotrab>0 and NatDolg>0:
		 'Natasha has yet <<NatDolg>> rubles.'
		 	 act 'on your knees! And open your mouth!':
			 cls
			 minut+=5
			 natotrab+=1
			 natsub+=1
			 gs'stat'
			 !natknee
			 '<center><img src="qwest/alter/ev2/natknee.jpg" ></center>'
			 'You barked at Natasha, and she immediately obediently knelt down and opened her mouth.'
				 act 'Spit in her face':
				 cls
				 minut+=5
				 natsub+=1
				 NatDolg-=500
				 gs'stat'
				 !natknee
				 '<center><img src="qwest/alter/ev2/natspit.jpg" ></center>'
				 'You barked at Natasha, and she immediately obediently knelt down and opened her mouth. You have collected saliva and relish Natasha spat in the face, from what she jerked and squeezed her eyes shut.'
				 act 'rest':gt $curloc
				 end
				 
				 if natsub>=4:
				 	 act 'Make her lick':
					 cls
					 minut+=5
					 natsub+=1
					 NatDolg-=500
					 if npcSex[16]=0:npcSex[16]=1&girl+=1
					 lesbian+=1
					 !horny=0
					 !orgasm+=1
					 natlesb+=1
					 gs'stat'
					 !natknee
					 '<center><img src="qwest/alter/ev2/natlick.jpg" ></center>'
					 'You were forced to undress and Natasha undressing alone stood in front of her face. "Now lick!". Natasha frightened started to work.'
					     if natsub<10:
					     'This Krivorukov goat even the clitoris is unable to get and only sluggishly, without enthusiasm chomps his mouth on your pussy.'
					         if dom>=20 and NatDolg>=500:
					         	 act 'Piss in her mouth':
								 cls
								 minut+=5
								 natsub+=1
								 NatDolg-=500
								 natpee+=1
								 gs'stat'
								 !natknee
								 '<center><img src="qwest/alter/ev2/natpee.jpg" ></center>'
								 'You are angry at this bitch released urine stream in the face of Natasha. She closed her eyes and bowed face down, but not recoiled and silently doterpela flogging until the very end.'
								 act 'rest':gt $curloc
								 end
					         end
					     else
					     orgasm+=1
					     horny=0
					     gs'stat'
					     'Natasha carefully handles your pussy tongue and you chustvuete as you orgasm rolls.'
					     end
					 act 'rest':gt $curloc
					 end
				 end
			 end
			 
			 if natsub>=6:
			 	 act 'call brother':
				 cls
				 minut+=15
				 natsub+=1
				 NatDolg-=500
				 natbj+=1
				 gs'stat'
				 '<center><img src="qwest/alter/ev2/natbj.jpg" ></center>'
				 'You called my brother and he quickly came to the apartment Natashkiny. Briefly explain the situation to his brother  "And you, bitch, so now the cheek and took smacked, i_get_it?" Natasha jitters nodded and knelt waiting when Kolka starts fucking her in the mouth. Kolka went to Natashkiny face and took his standing member. He patted the little purple head lips Natasha and she began to lick him his tongue.'
				 act 'rest':gt $curloc
				 end
			 
			 end
			 
		 
		 
		 end
	 end
end


act 'go home':gt'gorodok'
--- NatBelHome ---------------------------------

# albinaRide
albrideday=daystart
gs'stat'
'<center><B><font color=maroon><<$npcName[23]>> <<$npcSurName[23]>></font></B></center>'
'<center><img src="qwest/alter/npc/23.jpg" ></center>'
'Albina genuinely smiling at you "Went to my World, sit, chat."'

act'Go to Albina':
cls
minut+=5
gs'stat'
'You sat in the back seat of a jeep, sat next to you Albina, sat behind the wheel of a hefty guy in a black jacket and took you through the town. Soon you stopped at the gate luxurious mansion and came out of the jeep.'
act'Go into the room Albina':gt'albinahome'
end
--- albinaRide ---------------------------------

# albinahome
if beinalbinahome=0:beinalbinahome=1
gs'albdin'
gs'stat'
'<center><B><font color=maroon><<$npcName[23]>> <<$npcSurName[23]>></font></B></center>'
'<center><img src="qwest/alter/npc/23.jpg" ></center>'
''
     if hour<20:
		 if npcSex[23]=0:
		 'Albina you smiling affably "Sveta, I have a bottle of fine wine, let`s drink."'
		     act'drink':
		     cls
		     minut+=15
		     alko+=2
		     gs'stat'
		     '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
		     'You sat down at a table and Albina brought a bottle of wine. She deftly opened a bottle and poured the wine by the glass. You drank together with Albina. She smiled and said "Once again, that warned me. I was still brought a criminal case, but to prove that it will be very difficult for them. Father of course ranting and raving. His political career was covered with a copper basin anyway, though I otmazhus, though not otmazhus."'
		     	 act'And how did he react to it, that you have a business spetsefichesky?':
				 cls
				 minut+=15
				 alko+=2
				 gs'stat'
				 '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
				 'You asked Albina "And how did he react to it, that you have a business spetsefichesky?" Albina laughed again and poured wine by the glass. "And he knew from the beginning." You stared in surprise at the Albina "That is?" Albina laughed "I have a very strange little family, not so easy to disassemble. Let`s have a drink." You drank more wine along with Albina and she continued "Actually . If there is a hell, then it is already there prepared a special boiler, for all that he has done in his life."'
				 	 act'You`re so otzyvaeshsya about his father?':
					 cls
					 minut+=15
					 alko+=2
					 gs'stat'
					 '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
					 'You shake your head in amazement "You`re so otzyvaeshsya about his father?" Albina suddenly sobered and evil hissed "And how do I apply to it? Fair_Enough, you want to get into the snake-coil, you`re_welcome. My dad fucked me from early childhood, I do not even remember when it all began. I lived all his life his litter. my mom, when she learned, my bastard father sent in Durkee. Yes_I_Am, he had enough influence even to this. The truth is now the scum losing ground one after the other. All his life he was a senior cop, but now retired , this kid can only complain money. All his business went bankrupt, whatever the context. Political career is his last chance to jump into the passing train." She poured wine into glasses and was visibly shaking as her hands. "You Videsh this rich mansion? Guard at the entrance, All this luxury? It`s all a chimera. My father is not something that on the verge of bankruptcy, he is far beyond. Without my business."'
					 	 act'And how do you now no business going?':
						 cls
						 minut+=15
						 alko+=2
						 gs'stat'
						 '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
						 'You asked Albina "And how do you now no business going?" Albina shrugged "But I have no idea. Dad poured all the assets on the election campaign. We still have money left serious people. And now it`s over. No my business, nor his political career. There is only the debts and bad creditors." She grabbed the bottle and poured more wine, you drink more wine with Albina.'
						 	 act'I have it all in my head does not fit':
							 cls
							 minut+=15
							 alko+=2
							 gs'stat'
							 '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
							 'you murmured "I have it all in my head does not fit" Albina grinned "What is there to lay. Pedophile father fucked me from childhood. His influence enough that would cover their tracks." She paused and added "The most worthless then, he made вЂ‹вЂ‹me a monster. I just have not had a chance to grow up normal. I understand all this head, but nothing I can not do already. I like ebatsya, and with whom pohrenu. I`m down and out and pervert quite capable of being a normal mother and wife." We always cold and ironic Albina had tears in her eyes and she began to pour wine into glasses.'
							 	 act'drink':
								 cls
								 minut+=15
								 alko+=2
								 gs'stat'
								 '<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
								 'You drank wine together with Albina and she took herself spoke again. "Sorry, what a bloody here. Just zadolbalo all. This horse town anyone would get. Around one bigots. In the mouth and take all, fucked, immediately or set at naught. And some guys rarely goats, and strive to get under her skirt, and then all of a permission or excuse. Chustvuesh like a piece of meat. And most do not know how really nothing, though of course all conceit ogogo. I`ve said nothing about kissing, almost no one knows how tselovatsya." She smiled tilt your head to your face.'
								 	 act'tselovatsya':
									 cls
									 minut+=5
									 horny+=20
									 gs'stat'
									 '<center><img src="qwest/alter/albina/kiss.jpg" ></center>'
									 'Albina get you hot and gently kiss on the lips, you felt something like the excitement of her kiss you covered.'
									 	 act'tselovatsya':
										 cls
										 minut+=5
										 horny+=20
										 gs'stat'
										 '<center><img src="qwest/alter/albina/kiss2.jpg" ></center>'
										 'Albina her hand and you felt something as her fingers penetrated you between your legs and sliding her panties to the side began to caress your pussy.'
										 	 act'tselovatsya':
											 cls
											 minut+=5
											 horny+=20
											 gs'stat'
											 '<center><img src="qwest/alter/albina/kiss3.jpg" ></center>'
											 'Albino cleverly section you without stopping to caress your expiring juices from the desire pussy and continuing to kiss you on the lips.'
											 	 act'further':
												 cls
												 minut+=30
												 if npcSex[23]=0:npcSex[23]=1&girl+=1
												 lesbian+=1
												 horny=0
												 orgasm+=1
												 gs'stat'
												 '<center><img src="qwest/alter/albina/lesb.jpg" ></center>'
												 'Albina bent between your feet and you will feel a touch of her tongue and lips to your pussy, Albino cleverly you start to lick and every movement of her wet reed hit your swollen clit. Soon a nice fire spread to all your body and you hit stuns orgasm. In the eyes of all faded and when you come to a, we saw sitting next to a pretty smiling Albina.'
												 act 'Say goodbye and go home':gt'gorodok'
												 end
											 end
										 end
									 end
								 end
							 end
						 end
					 end
				 end
		     end
		 end
		 if npcSex[23]>0:
		     if albsporthome=0:
		     cls
		     gs'stat'
		     '<center><img src="qwest/alter/albina/train.jpg" ></center>'
		     'Albina trains in his room doing stretching.'
		         act'chat':
		         cls
		         albsporthome=1
		         minut+=15
		         gs'stat'
		         '<center><img src="qwest/alter/npc/23.jpg" ></center>'
		         'Albina you smiled and said "Now I can not afford to rent a hall for training, Here I train at home, that would not be out of shape. By_The_Way, I could teach you and stripdensu and poledensu."'
		         act 'further':gt $curloc
		         end 
		     end
		     
		     if albsporthome>0:
		         if albsportday!daystart:
		         cls
				 gs'stat'
				 '<center><img src="qwest/alter/albina/train.jpg" ></center>'
				 'Albina trains in his room doing stretching. She smiles at you and asks "what? Potreneruemsya?"'
				 
				     act 'Stripdens':
					 cla
					 *clr
					 albsportday=daystart
					 set minut = minut + 120
					 set fat = fat - 5
					 set agil+= RAND (1,3)
					 set manna = manna - 8
					 set sweat = sweat + 3
					 gs'stat'
					 !stripdance+=1
					 '<center><img src="pic/stripdance.jpg" ></center>'
						 if dance>=100:
						 stripdance+=RAND(2,10)
						 'You taught Albina razdevatsya passionately dancing to the music.'
						 if stripdance>=100:'But you could not learn anything new, all that you already know how great and you know.'
						 end
						 if dance<100:
						 dance+=RAND(5,15)
						 'Striptease for you too complex, you can not perform the dance moves combining them with strip. Albina recommends that you first learn to ordinary club dances.'
						 end
					 act 'rest':gt $curloc
					 end

					 act 'Dancing on a pole':
					 cla
					 *clr
					 albsportday=daystart
					 set minut = minut + 120
					 set fat = fat - 10
					 set stren+= RAND (1,3)
					 vital+=RAND (1,3)
					 set manna = manna - 5
					 set sweat = sweat + 3
					 !poledance+=1
					 gs'stat'
					 '<center><img src="pic/poledance.jpg" ></center>'
						 if dance>=100 and stripdance>=100 and stren>=80:
						 poledance+=RAND(2,5)
						 'You taught Albina various acrobatics on the pole.'
						 if poledance>=100:'But you could not learn anything new, all that you already know how great and you know.'
						 end
						 if dance<100 or stripdance<100 or stren<80:
						 'Already in the first exercise. It looks like this kind of dance you until the teeth'
						 if stren<80:'Albina explain to you that dances on a pole, than the ability to dance, require more physical strength.'
						 end
					 act 'rest':gt $curloc
					 end
					 
					 if stren<80:
					 'Albina grins "You`re still pretty weak for dancing on a pole, we can potrenirovatsya developing your strength."'
					     act 'develop strength':
					     cls
					     albsportday=daystart
					     set minut = minut + 120
					     set stren+= RAND (2,5)
					     gs'stat'
					     '<center><img src="qwest/alter/albina/stren.jpg" ></center>'
					     'You are led by Albina developed their strength by performing various exercises.'
					     act 'rest':gt $curloc
					     end
					 end
					 
					 act 'yah, not hunt.':albsportday=daystart&gt $curloc
		         end
		         if albsportday=daystart:
		             if sweat<=0:
		                 if hapri<=0:
		                 hapri=1
		                 gs'stat'
		                 'Albina grins looking at your tousled hair and took a comb combs you.'
		                 
		                 end
		                 if hapri>=1:
		                 !basic steps
		                 dynamic $d_albina_home_start
		                 end
		             end
		             if sweat>0:
		             'Albina grins "Go to the souls of Light, and then you`re all sweaty."'
		             	 act 'wash':
						 cls
						 dynamic $showerdin
						 minut+=15
						 set horny = horny + 1
						 set hapri = 0
						 set mop = 1
						 set sweat = -3
						 if frost>0:frost=0
						 gs'stat'
						 '<center><img src="pics/dush.jpg" ></center>'
						 'You got into the shower and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
						 act 'Get out of the shower':gt $curloc
						 end
		             end
		         end
		     
		     end
		     
		     
		 end
		 
		 if seeAlbinaFuck=1:
		 
		 
		 end
		 
     end
     if hour>=20:
     'Albina says, he wants to go to the disco.'
     if money>=25:act'Go to the disco':money-=25&minut+=15&gt'gdkin'
     end

act 'Say goodbye and go home':gt'gorodok'













































--- albinahome ---------------------------------

# albdin
$d_albina_home_start={
tipalbevrand=rand(0,3)
     if tipalbevrand=0:
     'Albina offers to play a video game.'
     dynamic $d_albina_home_game
     end
     if tipalbevrand=1:
     'Albina offers with her fun trying on dresses.'
     dynamic $d_albina_home_dressing
     end
     if tipalbevrand=2:
     'Albina offers chat.'
     dynamic $d_albina_home_chat
     end
     if tipalbevrand=3:
     'Albina offers a glass of wine.'
     dynamic $d_albina_home_vine
     end
     if tipalbevrand=4:
     'Albina offers .'
     dynamic $d_albina_home_dressing
     end
     if tipalbevrand=5:
     'Albina offers .'
     dynamic $d_albina_home_dressing
     end
}
$d_albina_home_game={
act'play':
cls
minut+=60
manna+=100
willpower+=20
react+=rand(0,1)
gs'stat'
'<center><img src="qwest/alter/albina/game.jpg" ></center>'
'You and Albina laid before a huge TV which was connected set-top box.'
'Albina has included the game and you started to play with her.'
	 if albsexday!daystart:
	 'Albina winking at you "Svetsik, and let`s play on the desire, if I win, I`ll do something with you, and if you win, you can do with me anything"'
	 act 'Oh':gt $curloc
	     act 'Bring_It_On':
	     cls
	     albsexday=daystart
			 if react<25:albplay=0
			 if react>=25 and react<50:
			 tipalbrand=rand(1,100)
			     if tipalbrand<75:albplay=0
			     if tipalbrand>=75:albplay=1
			 end
			 if react>=50 and react<75:
			 tipalbrand=rand(1,100)
			     if tipalbrand<50:albplay=0
			     if tipalbrand>=50:albplay=1
			 end
			 if react>=75:
			 tipalbrand=rand(1,100)
			     if tipalbrand<40:albplay=0
			     if tipalbrand>=40:albplay=1
			 end
         
	     gs'stat'
	     '<center><img src="qwest/alter/albina/game.jpg" ></center>'
	         if albplay=0:
			 'Albina easily beat you and laughing as the villain of the vaudeville slapped you on the ass palm "Arise cancer Svetsik! Be my bitch."'
			 tipdesrand=rand(0,1)
			 if tipdesrand=0:dynamic $d_albina_vag_strapon
			 if tipdesrand=1:dynamic $d_albina_anal_strapon
             else
             'Albina purged you . "to, Bey do not regret Chapaya."'
             dynamic $d_albina_akt_vag
             dynamic $d_albina_akt_anal
             end
	     end
	 end
	 if albsexday=daystart:
     act 'rest':gt $curloc
     end
end
}
$d_albina_home_dressing={
act'try on outfits':
cls
minut+=60
manna+=100
willpower+=20
gs'stat'
'<center><img src="qwest/alter/albina/dressing.jpg" ></center>'
'You and Albina opened her huge closet and start the fun kopatsya in rags. She was just a bottomless closet full of clothes and a wide range of you for an hour trying on with different outfits Albina.'
	 if albsexday!daystart:
	 
	 act 'rest':gt $curloc
	 end
	 if albsexday=daystart:
     act 'rest':gt $curloc
     end
end
}
$d_albina_home_chat={
act'chat':
cls
minut+=60
manna+=100
willpower+=20
gs'stat'
'<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
''
	 if albsexday!daystart:
	 act 'rest':gt $curloc
	 end
	 if albsexday=daystart:
     act 'rest':gt $curloc
     end
end
}
$d_albina_home_vine={
act'wine':
cls
minut+=60
manna+=100
willpower+=20
alko+=4
gs'stat'
'<center><img src="qwest/alter/albina/drunk.jpg" ></center>'
''
	 if albsexday!daystart:
	 act 'rest':gt $curloc
	 end
	 if albsexday=daystart:
     act 'rest':gt $curloc
     end
end
}

$d_albina_vag_strapon={
act'get cancer':
cls
albsexday=daystart
minut+=15
$boy='Albina'
if vagina<10:dick=10
if vagina>=10:dick=vagina+5
if npcSex[23]=0:npcSex[23]=1&girl+=1
lesbian+=1
straponVagPass+=1
gs'stat'
'<center><img src="qwest/alter/albina/strapon.jpg" ></center>'
'Albina took <<dick>> inch strap-on harness and attach it to yourself. Her hands stroked gently between your legs and you feel as her fingers began to caress your pussy.'
dynamic $d_strapon_vag
act 'rest':gt $curloc
end
}
$d_albina_anal_strapon={
act'get cancer':
cls
albsexday=daystart
minut+=15
$boy='Albina'
if anus<10:dick=10
if anus>=10:dick=anus+2
if npcSex[23]=0:npcSex[23]=1&girl+=1
lesbian+=1
straponAnalPass+=1
gs'stat'
'<center><img src="qwest/alter/albina/analstrapon.jpg" ></center>'
'Albina took <<dick>> inch strap-on harness and attach it to yourself. Her hands stroked gently between your legs and you feel as her fingers began to caress your anus.'
dynamic $d_strapon_anal
act 'rest':gt $curloc
end
}
$d_albina_akt_vag={
act'Put Albina cancer and fuck pussy threesome':
cls
albsexday=daystart
minut+=15
if npcSex[23]=0:npcSex[23]=1&girl+=1
lesbian+=1
straponVagAkt+=1
gs'stat'
'<center><img src="qwest/alter/albina/straponakt.jpg" ></center>'
'You started to peck Albina threesome pussy and she moaned and spit on his back strapon, Finally you`re just tired and stopped.'
act 'rest':gt $curloc
end

}
$d_albina_akt_anal={
act'Put Albina cancer and fuck ass threesome':
cls
albsexday=daystart
minut+=15
if npcSex[23]=0:npcSex[23]=1&girl+=1
lesbian+=1
straponVagAkt+=1
gs'stat'
'<center><img src="qwest/alter/albina/straponaktanal.jpg" ></center>'
'You started to peck Albina threesome in the ass and she moaned and spit on his back strapon, Finally you`re just tired and stopped.'
act 'rest':gt $curloc
end
}































--- albdin ---------------------------------

# albinaporog
gs'stat'

if hour>=17 and week<6 and kanikuli=0 and hour<20 or hour>=9 and week>=6 and kanikuli=0 and hour<20 or hour>=9 and kanikuli>0 and hour<20:
'You rang the bell on the gate intercom and you opened guard, you said, that go to Albina. He called on the phone and after a brief conversation let you. "Albina now at. Come."'
act 'Go into the room Albina':gt'albinahome'
else
     if hour>=9:'You rang the bell on the gate intercom and you opened guard, you said, that go to Albina. He shook his head "Albina is currently not at home."'
     if hour<9:'You rang the bell on the gate intercom and you opened guard, "Come no earlier than nine."'
act 'Say goodbye and go home':gt'gorodok'
end
--- albinaporog ---------------------------------

# AlbStarsEnd
gs'stat'
ZvezdEnd=1
AlbFather=10
AlbinaInPrison=1
AlbCopDay=daystart
grupTipe[23]=-10
Chernov=10
'You walk down the street and see Albina Barlovskuyu. Near it stops the machine out people run out and put her face to the ground setting the stage for her hands behind her back and putting handcuffs. Albina outraged, but it shows the documents for her arrest for running a brothel. After a search of her rise to their feet and literally zashvyrivayut in police car, then take away.'

act 'Get_Away.':gt'gorodok'

--- AlbStarsEnd ---------------------------------

# furi
gs'stat'
'<center><img src="qwest/alter/ev2/furi.jpg" ></center>'
'Asfaltrovannaya area near the road where there are trucks.'

act 'Get_Away':minut+=5&gt'road'


act 'hitch-hiking':
cls
gs'stat'
'<center><img src="qwest/alter/ev2/furi.jpg" ></center>'
if nroad=0:'You asked the driver, if he can give you a lift to town.'
if nroad=20:'You asked the driver, if he can give you a lift to town.'
'The driver looked at you with a grin "hitchhiker? Heh. Of course I can. But you have to thank me for it." man slapped his palm on your ass.'
act 'Get_Away':minut+=5&gt $curloc
	 act 'I agree':
	 cls
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/furi.jpg" ></center>'
	 'You skazale driver, that you agree. Drove immediately to ask you "Do you have Gandon?"'
		 act'No':
		 cls
		 gs'stat'
		 'You said cage ,you do not have a condom. Drove shook his head "Without a condom to fuck you , so fuck off."'
		 act 'Get_Away':minut+=5&gt $curloc
		 	 act'persuade':
			 cls
			 gs'stat'
			 'You started to persuade the driver to drive you and approve, that you are clean. Drove a little thought, and said "Fair_Enough, to hell with you, Hop into the car."'
			 act 'Get_Away':minut+=5&gt $curloc
			 act 'Get into the wagon':minut+=5&furisex=100&gt'furisex'
			 end
		 end
		 
		 if prezik>0:
			 act'Is_There':
			 cls
			 gs'stat'
			 
			 'You said that you have preziki. Carrier approached the wagon and opened the door for you "Then zaprygivayem."'
			 act 'Get_Away':minut+=5&gt $curloc
			 act 'Get into the wagon':minut+=5&furisex=0&gt'furisex'
			 end
		 end
	 end
end




--- furi ---------------------------------

# furisex
minut+=5
gs'stat'
if furisex=0:
'The driver got into the wagon and started the engine. The car started up and went hard on the road. in minutes 15 the driver stopped the car on the roadside.'
act 'Look on the driver':furisex=1&gt $curloc
end
if furisex=1:
'You looked at the cage, he grinned "hatched? It`s time to work out a trip. Undress and climb into a sleeping bag."'
act 'Undress and get into the sleeping bag':furisex=2&gt $curloc
end
if furisex=2:
'You undressed in front of a carrier and climbed into the sleeping bag. The driver climbed up to you and pulled off his pants. "Put on a condom"'
act 'Wear a condom hands':furisex=3&gt $curloc
act 'Wear a condom mouth':furisex=4&gt $curloc
end
if furisex=3:
'<center><img src="qwest/alter/ev2/condomput.jpg" ></center>'
'You have printed a condom and pulled it to the guy standing member.'
act 'suck':furisex=5&gt $curloc
end
if furisex=4:
'<center><img src="qwest/alter/ev2/condomput2.jpg" ></center>'
'You have printed a condom and shoved it into his mouth himself holding between the lips, then began to wear a condom on her mouth standing member, gradually you got.'
act 'suck':furisex=5&gt $curloc
end
if furisex=5:
bj+=1
guy+=1
furibj+=1
'<center><img src="qwest/alter/ev2/condombj.jpg" ></center>'
'You began to suck cock in condom lubricant feeling on your lips, Finally the man broke down and finished in a condom.'
act 'get_dressed':furisex=6&gt $curloc
end
if furisex=6:
'A guy took a condom with a penis and dressed sat behind the wheel and the car started soon you go.'
     act 'Go_Out':
     furisex=0
     if nroad=0:nroad=20&gt'gorodok'
     if nroad=20:nroad=0&gt'nord'
     end
end

if furisex=100:
'The driver got into the wagon and started the engine. The car started up and went hard on the road. Carrier turned his head to you "Huyli vypyalilas? Tips and suck."'
act 'suck':furisex=101&gt $curloc
end
if furisex=101:
bj+=1
guy+=1
furibj+=1
venrand=RAND(0,100)
if venrand>=70:dynamic $veneradinitog
cumlip+=1
'<center><img src="qwest/alter/ev2/furibj.jpg" ></center>'
'You tilt the driver and got his cock, then took it into his mouth and began to suck. Carrier habitually led the wagon on the road, and smacking his lips on his cock. Finally drove discharged into your mouth Bay him all his cumshot. There was nowhere to spit out and you swallow his cum. Finally stopped the van and drove skaschal ,that you come.'
     act 'Go_Out':
     furisex=0
     if nroad=0:nroad=20&gt'gorodok'
     if nroad=20:nroad=0&gt'nord'
     end
end


--- furisex ---------------------------------

# the_film

if $ARGS[0]='the_film':
cla
clr
gs 'stat'
!pfilmA
     if pfilmA >= 5:
     cla
     Set pfilmA = 0
     Set pfilm = 0
     film=film+1
     'You dosnyat movie.'
     act 'Come to Peter':gt 'pornstudio', 'start'
     act 'End_Up':gt 'down'
     end
     
     if h >= 22 and pfilmA < 5:
     cla
     'Time is too late for filming'
     act 'go home':gt 'down'
     end
     
     if hour < 22 and pfilmA < 5 and pfilm > 0:
     cla
     Set minut+=60
     gs 'stat'
     Set money = money + 1000
     if pfilmA = 0:Set guy+= 1
     bj+=1
     Set pfilmA = pfilmA + 1
     'You undress and start shooting.'
     Set prand = RAND (1,2)
         if prand = 1:
         Set porand = RAND (1,10)
         if porand = 1:'<center><img src="picBJ/bj.jpg" ></center>'
         if porand = 2:'<center><img src="picBJ/bj2.jpg" ></center>'
         if porand = 3:'<center><img src="picBJ/bj3.jpg" ></center>'
         if porand = 4:'<center><img src="picBJ/bj4.jpg" ></center>'
         if porand = 5:'<center><img src="picBJ/bj5.jpg" ></center>'
         if porand = 6:'<center><img src="picBJ/bj6.jpg" ></center>'
         if porand = 7:'<center><img src="picBJ/bj7.jpg" ></center>'
         if porand = 8:'<center><img src="picBJ/bj8.jpg" ></center>'
         if porand = 9:'<center><img src="picBJ/bj9.jpg" ></center>'
         if porand = 10:'<center><img src="picBJ/bj10.jpg" ></center>'
         'You suck dick actor hour, depicting the passion and lust. In fact, The_assistant, every minute you pop the camera -to-face.'
         end
         if prand = 2:
         facial+=1
         Set porand = RAND (1,10)
         if porand = 1:'<center><img src="picBJ/fa.jpg" ></center>'
         if porand = 2:'<center><img src="picBJ/fa2.jpg" ></center>'
         if porand = 3:'<center><img src="picBJ/fa3.jpg" ></center>'
         if porand = 4:'<center><img src="picBJ/fa4.jpg" ></center>'
         if porand = 5:'<center><img src="picBJ/fa5.jpg" ></center>'
         if porand = 6:'<center><img src="picBJ/fa6.jpg" ></center>'
         if porand = 7:'<center><img src="picBJ/fa7.jpg" ></center>'
         if porand = 8:'<center><img src="picBJ/fa8.jpg" ></center>'
         if porand = 9:'<center><img src="picBJ/fa9.jpg" ></center>'
         if porand = 10:'<center><img src="picBJ/fa10.jpg" ></center>'
         'You suck dick actor hour, depicting the passion and lust. He ends up on your face, you lick cum. Every minute you pop the camera into the face, The assistant run and fixtures.'
         end
     act 'End_Up':gt 'down'
     if hour < 22:act 'to act on':gt 'the_film','the_film'
     end
     
end



if $ARGS[0]='the_film2':
cla
clr
gs 'stat'
!pfilmB
     if pfilmB >= 10:
     cla
     Set pfilmB = 0
     Set pfilm = 0
     film=film+1
     'You dosnyat movie.'
     act 'Come to Peter':gt 'pornstudio', 'start'
     act 'go home':gt 'down'
     end
     
     if h >= 22 and pfilmB < 10:
     cla
     'Time is too late for filming'
     act 'go home':gt 'down'
     end
     
     if hour < 22 and pfilmB < 10 and pfilm > 0:
     cla
     Set minut+=60
     gs 'stat'
     Set money = money + 3000
     if pfilmB = 0:guy+=1
     Set pfilmB = pfilmB + 1
     'You undress and start shooting.'
     Set prand = RAND (1,3)
         if prand = 1:
         bj+=1
         Set porand = RAND (1,10)
         if porand = 1:'<center><img src="picBJ/bj.jpg" ></center>'
         if porand = 2:'<center><img src="picBJ/bj2.jpg" ></center>'
         if porand = 3:'<center><img src="picBJ/bj3.jpg" ></center>'
         if porand = 4:'<center><img src="picBJ/bj4.jpg" ></center>'
         if porand = 5:'<center><img src="picBJ/bj5.jpg" ></center>'
         if porand = 6:'<center><img src="picBJ/bj6.jpg" ></center>'
         if porand = 7:'<center><img src="picBJ/bj7.jpg" ></center>'
         if porand = 8:'<center><img src="picBJ/bj8.jpg" ></center>'
         if porand = 9:'<center><img src="picBJ/bj9.jpg" ></center>'
         if porand = 10:'<center><img src="picBJ/bj10.jpg" ></center>'
         'You suck dick actor hour, depicting the passion and lust. In fact, The_assistant, every minute you pop the camera -to-face.'
         end
         
         if prand = 2:
         anus+=1
         Set anal = anal + 1
         Set porand = RAND (1,10)
         if porand = 1:'<center><img src="pics/anal.jpg" ></center>'
         if porand = 2:'<center><img src="pics/anal2.jpg" ></center>'
         if porand = 3:'<center><img src="pics/anal3.jpg" ></center>'
         if porand = 4:'<center><img src="pics/anal4.jpg" ></center>'
         if porand = 5:'<center><img src="pics/anal5.jpg" ></center>'
         if porand = 6:'<center><img src="pics/anal6.jpg" ></center>'
         if porand = 7:'<center><img src="pics/anal7.jpg" ></center>'
         if porand = 8:'<center><img src="pics/anal8.jpg" ></center>'
         if porand = 9:'<center><img src="pics/anal9.jpg" ></center>'
         if porand = 10:'<center><img src="pics/anal10.jpg" ></center>'
         'You hour fucked in the ass for the camera, you is not nice, but you portray the passion and pleasure. Finally. Every minute you pop the camera into the face, The assistant run and fixtures.'
         end
         
         if prand = 3:
         Set sex = sex + 1
         vagina+= 1
         facial+=1
         Set porand = RAND (1,10)
         if porand = 1:'<center><img src="pics/vagcow.jpg" ></center>'
         if porand = 2:'<center><img src="pics/vagcow2.jpg" ></center>'
         if porand = 3:'<center><img src="pics/vagcow3.jpg" ></center>'
         if porand = 4:'<center><img src="pics/vagcow4.jpg" ></center>'
         if porand = 5:'<center><img src="pics/vagcow5.jpg" ></center>'
         if porand = 6:'<center><img src="pics/vagdog.jpg" ></center>'
         if porand = 7:'<center><img src="pics/vagdog2.jpg" ></center>'
         if porand = 8:'<center><img src="pics/vagdog3.jpg" ></center>'
         if porand = 9:'<center><img src="pics/vagdog4.jpg" ></center>'
         if porand = 10:'<center><img src="pics/vagdog5.jpg" ></center>'
         'You have an hour before the camera, you picture the passion and lust. He ends up on your face, you lick cum. Every minute you pop the camera into the face, The assistant run and fixtures.'
         end
     act 'go home':gt 'down'
     if hour < 22:act 'to act on':gt 'the_film','the_film2'
     end
     
end











--- the_film ---------------------------------

# Alphabet
ACT 'In the corridor':
	gt 'floor'
END
'<center><B>Dorm room</B></center>'
'<center><img src="pic/obskom.jpg" ></center>'
clr
gs 'stat'
'Narrow room with a single window, wood floors, three <a href="exec:GT ''beds'',''selection''">beds</a>, little <a href="exec:GT ''table''">table</a> and a few chairs. At the entrance stands the old <a href="exec:GT ''cupboard''">wardrobe</a> to which to attach the old <a href="exec:GT ''zerkaloO''">mirror</a>.'
if palto = 1:'At the entrance hangs a simple Chinese women`s down jacket'
if palto = 2:'At the entrance hangs a woman`s coat'
if palto = 3:'At the entrance hangs a dear lady coat'

if daystart = 0:Set daystart = 1
if house = 1 and student = 0:Set house = 0&'You are being evicted from the hostel, Now if you find yourself through the computer place to stay, you will remain without a roof over his head at the first exit from the hostel.'

act 'roommate Wick':
cla
clr
gs 'stat'
'Vick sits on his bed .'
act 'room':gt 'Alphabet'
     if h < 23:
         act 'Chat with Vika (1 h)':
         cla
         Set h = h + 1
         Set Vika = Vika + 5
         Set kosmskill = kosmskill + 1
         if repa < 30:Set repa = repa + 1
          set talkrand = RAND (0,18)
         if talkrand = 0:'You started talking with Vika, It tells you about the boys she met, about parties, about cosmetics.'
         if talkrand = 1:'Vic says she was in the cafe and she was invited to dance with a guy who then even paid her bill.'
         if talkrand = 2:'Vick says that she worked as a waitress at a strip bar, rather profitable job for students, Although clients are very pristavuchie.'
         if talkrand = 3:'Vic tells you that some of the sections devchenok run at college went on a European level sports competitions and earn big money, though of course Vic priznaetsya that her laziness so they plow.'
         if talkrand = 4:'Vick says that one of her friends flew from a guy who does not have time to get out of it. But Vick smarter, she buys at the pharmacy birth control, 100% guarantee.'
         if talkrand = 5:'Vick says that to stay, buy an apartment or a car you can only having a PC, via the Internet.'
         if talkrand = 6:'Vic tells one her friend, bought a car, took place in the market and hired a saleswoman. He can only buy the goods in stock and bring it to market themselves and money flowing to it.'
         if talkrand = 7:'Vic tells how she once winter came out without a coat and a bad cold.'
         if talkrand = 8:'Vic tells about one girlfriend that all did not know how to lose weight, then began to go to the sauna and lost weight. True it is costly.'
         if talkrand = 9:'Vick says that before she was fond of diets, but they deteriorated skin and went pryshi, yes match start, Now Vick for three cracks and become only more beautiful.'
         if talkrand = 10:'Vick says that she used to go to the dance and the Internet has managed to get into a nightclub tantsorshey, but she quickly tired.'
         if talkrand = 11:'Vick says in the park , but spoil the reputation of Vic did not want, besides a large number of partners begin to age faster.'
         if talkrand = 12:'Vic tells how she acted naked in studio, not dusty work, but the reputation suffers.'
         if talkrand = 13:'Vic told me as one of her friend that all perceived as slut arranged several parties in the cafe at their own expense, then it began to apply for better.'
         if talkrand = 14:'Vic tells a horror story about how a nice girl not washed or shaved legs, then began to so many terrible, its per kilometer all obbegat.'
         if talkrand = 15:'Vick says that she buys tampons always reserve, and then if they go without a monthly then quickly prevratishsya a slut.'
         if talkrand = 16:'Vic tells how one of her guys like anal sex, but she was not in possession of Vaseline.'
         if talkrand = 17:'Vick says as she sunbathed in the summer on the beach, however for this she had to buy a swimsuit, but it is useful in winter and go to the pool. The pool is not a bad tool to keep yourself in good shape.'
         if talkrand = 18:'Vic tells an interesting psychological effect, is in stores do not notice things that are not short of money.'
         act 'room':gt 'Alphabet'
         end
         if Vika > 10:
         cla
         if vikavecher = 0:Set vikavecher = 1
         'Vic tells you, that the planned party, as well. You can go there with Vika'
         act 'Go to a party':gt 'party','beginning'
         act 'I have a case':gt 'Alphabet'
         end
         if Vika > 10 and Vzaem = 0:
             act 'Borrow from Wiki 1000 rubles':
             cla
             Set money = money + 1000
             Set Vzaem = 1
             'Vic reached into her purse and gave you 1000 rubles in debt'
             act 'room':gt 'Alphabet'
             end
         end
         if Vika > 10 and Vzaem = 1 and money >= 1000:
             act 'Give Vick debt 1000 rubles':
             cla
             Set money = money - 1000
             Set Vzaem = 0
             Set Vika = Vika + 5
             'You gave Vick 1000 rubles taken you in debt'
             act 'room':gt 'Alphabet'
             end
         end
         if vikasex > 0 and Vika > 20:
             act 'suggest fun':
             cla
             Set h = h + 1
             Set $girl = 'vetch'
             gt'lesb','beginning'
             end
         end
     end
end

act 'roommate Galya':
cla
clr
gs 'stat'
'Galya overlaid textbooks and crams.'
act 'room':gt 'Alphabet'
     if h < 23:
         act 'Engage with Galya (1 h)':
         cla
         Set h = h + 1
         Set intel = intel + 1
         Set Gala = Gala + 5
         if repa > 1:Set repa = repa - 1
         'You overlaid textbooks and began to prepare together with Galya.'
         act 'room':gt 'Alphabet'
         end
         if Gala > 10 and Gzaem = 0:
             act 'Borrow from Gali 1000 rubles':
             cla
             Set money = money + 1000
             Set Gzaem = 1
             'Galya rummaged in my purse and gave you 1000 rubles in debt'
             act 'room':gt 'Alphabet'
             end
         end
         if Gala > 10 and Gzaem = 1 and money >= 1000:
             act 'Give Gale debt 1000 rubles':
             cla
             Set money = money - 1000
             Set Gzaem = 0
             Set Gala = Gala + 5
             'You gave Gale 1000 rubles taken you in debt'
             act 'room':gt 'Alphabet'
             end
         end
         
     end
end

!act 'test':
!Set newboy = 1
!gs'boy'
!gs'boyopred'
!act 'room':gt 'Alphabet'
!end





--- Alphabet ---------------------------------

# party
if $ARGS[0]='beginning':
cla
     if vikavecher = 1:
     gt'party','the_first' 
     end
     if vikavecher > 1:
     gt'party','evening'  
     end
end

if $ARGS[0]='the_first':
cla
Set vikavecher = 2
'You came to the party with Vika. The party was held in the male dorm, company from devchenok and guys were drinking, dancing to the music and fun.'
wait 1000
'Are you politely greeted, but of particular interest to you '
     act 'modest':
     cla
     Set h = 23
     'You humbly sat in a corner, that would not interfere with other fun. To get you started glued a little something, long-haired kid. The other guys he was called explicitly for a laugh and another as a fairy and not called.'
     clr
     Set fairy = 1
     gs'stat'
     act 'Get_Away':gt 'loka'
     end
     
     act 'hilarious':
     cla
     Set h = 23
     'You drank vodka together with all and gradually began a conversation. You dovlno strongly opyaneli and started dancing with sex!. What is a little boy with a gentle girlish face and long blond hair trying to provide you with the clumsy attentions. The other guys he was called explicitly for a laugh and was referred to as Fairy. Gradually you kick in the trash and Cuts.'
     'You woke up in a strange room, lying on his stomach, Glory to God in clothes, then no you are not drunk ripped.'
     Set fairy = 2
     if jeans = 2:'<center><img src="picparty/jeanscum.jpg" ></center>'
     if jeans ! 2:'<center><img src="picparty/skirtcum.jpg" ></center>'
     'what is that? Damn! What a bastard, dragged you into another room and obkonchal your ass.'
     act 'Get_Away':gt 'loka'
     end

end

if $ARGS[0]='evening':
cla
'You`ve come to the party, a lot of guys and devchenok, drink, dance and hang out.'
     act 'modestly sit':
     cla
     Set h = 23
     Set zrand = RAND (50,100)
         if vnesh < zrand:
         cla
         'You humbly sat watching the whole party as open other.'
         act 'Get_Away':gt 'loka'
         end
         if vnesh >= zrand:
         cla
         'You modestly modestly sitting in the corner, but you guy came up and began to talk to you.'
         act 'Otshit and go':gt 'loka'
             act 'keep the conversation':
             cla
             wait 1000
             'The party ends and your new friend offers you spend'
             act 'unsubscribe':gt 'loka'
                 act 'Go to guy':
                 Set newboy = 1
                 gs 'boy'
                 gs 'boyopred'
                 gt 'loka'
                 end
              
             end
         end
     end
     act 'light':
     cla
     Set h = 23
     Set horny = horny - 10
     'you have fun, thumps and dance.'
     Set itrand = RAND (1,10)
     if itrand = 1:xgt'party','result'
     if itrand = 2:xgt'party','result2'
     if itrand = 3:xgt'party','result3'
     if itrand = 4:xgt'party','result4'
     if itrand = 5:xgt'party','result5'
     if itrand = 6:xgt'party','result6'
     if itrand = 7:xgt'party','result7'
     if itrand = 8:xgt'party','result8'
     if itrand = 9:xgt'party','result9'
     if itrand = 10:xgt'party','result10'
     end
end

if $ARGS[0]='result':
cla
Set repa = repa + 1
'<center><img src="picparty/itog.jpg" ></center>'
'Gradually you distribute alcohol as hell and you start to feel sick, end vechereniki you spent in the arms of the toilet.'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result2':
cla
Set repa = repa + 1
'<center><img src="picparty/itog2.jpg" ></center>'
'You danced and hooligans, you got the idea to dance with Vika, ended your dance light lesbian show with savory lingering kiss.'
act 'Get_Away':gt 'loka'
     act 'Vika leave an empty room':
     cla
     Set $girl = 'vetch'
     if vikasex = 0:Set vikasex = 1&Set sexf = sexf + 1
     gt'lesb','beginning'
     end
end

if $ARGS[0]='result3':
cla
Set repa = repa + 1
'<center><img src="picparty/itog3.jpg" ></center>'
'You nakiryalis and slept in the next room with several sex!.'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result4':
cla
Set repa = repa + 1
'<center><img src="picparty/itog4.jpg" ></center>'
'You get opyaneli and began to molest girls, how come you yourself do not understand, but you have exposed breasts and kiss and lick Vic your nipples in front of everyone.'
act 'Get_Away':gt 'loka'
     act 'Vika leave an empty room':
     cla
     Set $girl = 'vetch'
     if vikasex = 0:Set vikasex = 1&Set sexf = sexf + 1
     gt'lesb','beginning'
     end
end

if $ARGS[0]='result5':
cla
Set repa = repa + 1
'<center><img src="picparty/itog5.jpg" ></center>'
if throat > 10:Set money = money + 100&'Fun and drinking you argued with sex that will be able to shove down your throat myself a banana, not great wisdom, what you have done with success and at the table. Devchenka gave you 100 rubles.'
if throat <= 10:Set money = money - 100&'Fun and drinking you argued with sex that will be able to shove down your throat myself a banana, you suppress a further half a banana and lost the dispute. Then you gave 100 rubles.'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result6':
cla
Set repa = repa + 1
'<center><img src="picparty/itog6.jpg" ></center>'
'You all evening molested the girl with big breasts begging her to kiss her breasts. In the evening .'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result7':
cla
Set repa = repa + 1
'<center><img src="picparty/itog7.jpg" ></center>'
'Natreskavshis in zyuzyu you bared her breasts and began to lick her nipples.'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result8':
cla
Set repa = repa + 1
'<center><img src="picparty/itog8.jpg" ></center>'
'You ran with Vika and Vika became sex with some sort of unknown guy. You lay beside fun chatting with Vika until it tore up drunk in the trash is not familiar guy.'
act 'Get_Away':gt 'loka'
     act 'caress Vic':
     cla
     Set $girl = 'vetch'
     Set sex = sex + 1
     if vikasex = 0:Set vikasex = 1&Set sexf = sexf + 1
     *clr
     '<center><img src="picvag/tri.jpg" ></center>'
     'You kiss and caress his chest Wiki, she is very nervous and you decide to give it a lick your pussy.'
     Set horny = horny + 60
     if horny < 100:'You started to get tired of licking and wanted to continue'
     if horny >= 100:Set horny = 0&'The muscles of the vagina began to decline sharply, the entire abdomen as if covered hot wave of pleasure, you shout from the powerful orgasm.'
     wait 3000
     'The guy pulls his penis out of Vicki and lifting it inserts his penis into her mouth.'
         act 'watch':
         cla
         *clr
         '<center><img src="picvag/tri4.jpg" ></center>'
         'The guy cums in her mouth Vick. Lips Wiki peremazanny in semen and she reaches out to you that would kiss her.'
             act 'Kissing with Vika':
             cla
             *clr
             Set cumlip = cumlip + 1
             '<center><img src="picvag/tri3.jpg" ></center>'
             'You`re kissing licking each other cum.'
             act 'Get_Away':gt 'loka'
             end
         end
         
         act 'Suck together with Vika':
         cla
         *clr
         Set sexm = sexm + 1
         Set oral = oral + 1
         Set cumface = cumface + 1
         '<center><img src="picvag/tri2.jpg" ></center>'
         'You aspirated member together with Vika, Perrin finally cums on the face you.'
             act 'Kissing with Vika':
             cla
             *clr
             Set cumlip = cumlip + 1
             '<center><img src="picvag/tri3.jpg" ></center>'
             'You`re kissing licking each other cum.'
             act 'Get_Away':gt 'loka'
             end
         end
     end
end

if $ARGS[0]='result9':
cla
Set repa = repa + 1
'<center><img src="picparty/itog9.jpg" ></center>'
'Little girls love to party, you with two girlfriends made вЂ‹вЂ‹a drunken lesbian show right at the party. caressing, squeezing and kissing each other in front of everyone.'
act 'Get_Away':gt 'loka'
end

if $ARGS[0]='result10':
cla
Set repa = repa + 1
'<center><img src="picparty/itog10.jpg" ></center>'
'You got drunk and danced with what that guy, that muddy paw you for boobs.'
act 'Get_Away':gt 'loka'
     act 'Touch for fly':
     cla
     Set repa = repa + 1
     Set sexm = sexm + 1
     gs 'boy'
     gt 'BJ','beginning'
     end
end
























--- party ---------------------------------

# market
'<center><B>MARKET</B></center>'
'<center><img src="pic/rinok2.jpg" ></center>'
Set h = h + 1
Set horny = horny + 1
if car = 0:Set money = money - 20&'Did you get on the bus and pay the fare 20 rubles.'
if car > 0 and benzin > 0:Set benzin = benzin - 1&'You arrived at its <<$marka>>.'
if car > 0 and benzin <= 0:Set money = money - 20&'You ran out of gas and you had to go on the bus, paying for travel 20 rubles.'
'bustling market, you can buy in the market place to buy clothes or for 30000 rubles and earn revenue from the outlet, but for the purchase and delivery of course need to have a car. You can trade yourself or hire a saleswoman.'
clr
gs 'stat'
act 'buy':gt 'RynokP','selection'
act 'go home':gt 'street'
if rinwork > 0 and h < 9:
     act 'Job Salesmen':
     cla
     *clr
     Set h = 17
     Set fat = fat + 5
     Set vnesh = vnesh - 1
     Set monrand = RAND (500,2000)
     Set money = money + monrand
     clr
     gs 'stat'
     
     'You all day selling things in the market and have earned <<monrand>> rubles'
     Set rinrand = RAND (1,100)
         if rinrand < 70 and palevorin = 0 and rinhoz = 0:
         act 'go home':gt 'street'
         end
         
         if rinrand >= 70 and palevorin = 0 and rinhoz = 0:
         'To you approached the owner of the tent and began to pester you, promising to write premium'
             act 'Opt_Out':
             cla
             Set money = money - 2000
             'The owner imposes on you a fine of 2000 rubles'
             act 'go home':gt 'street'
             end
         act 'ogle':gt 'RynokHoz','beginning'
         end
         
         if rinrand < 60 and palevorin = 0 and rinhoz = 1:
         act 'go home':gt 'street'
         end
         if rinrand >= 60 and palevorin = 0 and rinhoz = 1:
         'To you approached the owner of the tent and began to pester you, promising to write premium'
             act 'Opt_Out':
             cla
             Set money = money - 2000
             'The owner imposes on you a fine of 2000 rubles'
             act 'go home':gt 'street'
             end
         act 'ogle':gt 'RynokHoz','beginning'
         end
         
         if rinrand < 60 and palevorin = 1:
         'In the market there is a rumor among the sellers that you fucks master tray'
         act 'go home':gt 'street'
         end
         
         if rinrand >= 60 and palevorin = 1:
         'To you approached the owner of the tent and began to pester you, promising to write premium'
             act 'Opt_Out':
             cla
             Set money = money - 2000
             'The owner imposes on you a fine of 2000 rubles'
             act 'go home':gt 'street'
             end
         act 'ogle':gt 'RynokHoz','beginning'
         end
         
         if rinrand < 40 and palevorin = 2:
         'In the market there is a rumor among the sellers that you fucks master tray buddies'
         Set slutrand = RAND (1,100)
             if slutrand >=70:
             'After work.'
             act 'agree':gt 'RynokHoz','opusteha2'
             end
         act 'go home':gt 'street'
         end
         
         if rinrand >= 40 and rinrand < 70 and palevorin = 2:
         'To you approached the owner of the tent and began to pester you, promising to write premium'
             act 'Opt_Out':
             cla
             Set money = money - 2000
             'The owner imposes on you a fine of 2000 rubles'
             act 'go home':gt 'street'
             end
         act 'ogle':gt 'RynokHoz','beginning'
         end
         
         if rinrand >= 70 and palevorin = 2:
         'To you approached the owner of the tent c already familiar to you guys and they began to persuade you to perform oral sex, promising to write premium'
             act 'Opt_Out':
             cla
             Set money = money - 2000
             'The owner imposes on you a fine of 2000 rubles'
             act 'go home':gt 'street'
             end
         act 'ogle':gt 'RynokHoz','opusteha'
         end
     end
     
     act 'resign':
     cla
     Set work = 0
     Set rinwork = 0
     'you are fired.'
     act 'go home':gt 'street'
     end

end

if busRinok = 0 and money >= 30000 and car > 0:
     act 'Buy a place in the market for a month 30000 RUB':
     cla
     Set busRinok = 30 
     Set money = money - 30000
     'You bought a place in the market for 30000 rubles. You need the goods'
     act 'go home':gt 'street'
     end
end
!with 7 prior_to 16, 9 hours
if busRinok > 0 and tovarR > 0 and rinhour ! number:
     act 'trade independently':
     cla
     Set fat = fat - 2
     Set rinhour = number
     Set torghour = 16 - rinhour
     Set torgrand = RAND (1,50)
     if tovarR >= torgrand:Set tovarR = tovarR - torgrand
     if tovarR < torgrand:Set torgrand = tovarR&Set tovarR = 0
     Set torgmoney = torgrand*200
     Set money = money + torgmoney
     'You`ve earned a day <<torgmoney>> rubles, sold_out <<torgrand>> pieces product, you have <<tovarR>> units sold.'
     Set h = 17
     Set torgmoney = 0
     clr
     gs 'stat'
     act 'go home':gt 'street'
     end
     
     if rinokTorg = 0 and rinhour ! number:
         act 'hire a saleswoman':
         cla
         
         Set rinokTorg = 1 
         'You hired a saleswoman 1000 rubles per day'
         act 'go home':gt 'street'
         end
     end
     if rinokTorg = 1 and rinhour ! number and tovarR > 0:
         act 'Release the goods saleswoman.':
         cla
         Set rinokTorgW = 1
         Set rinhour = number
         Set torghour = 16 - rinhour
         Set torgrand = RAND (1,50)
         if tovarR >= torgrand:Set tovarR = tovarR - torgrand
         if tovarR < torgrand:Set torgrand = tovarR&Set tovarR = 0
         Set torgmoney = torgrand*200 
         'You have given goods saleswoman, now she can trade independently.'
         act 'go home':gt 'street'
         end
     end
end

if rinokTorg = 1 and rinhour ! number:
     act 'dismiss the saleswoman':
     cla
     Set rinokTorg = 0
     'You hired fired saleswoman'
     act 'go home':gt 'street'
     end
end 
--- market ---------------------------------

# club2
if $ARGS[0]='wc1':
cla
*clr
gs'stat'
'<center><img src="pics/glory.jpg" ></center>'
'You went into the booth and closed the door. The walls are covered with obscene graffiti walls and cubicles carved strange round holes. Sitting on the toilet you heard some noise in the next stall. Through a hole in the wall you looked someone`s eyes.'
'In a hole in the wall squeezed fat cock. Lustful voice said:"here`s a delicious candy, Babe".'
'It`s so do not expect, that you do not believe in the reality of what is happening to touch a finger to the member. It is hard and hot.'
act 'escape':gt 'club','inside'
     act 'take a closer look':
     cla
     *clr
     Set vaf=vaf+1
     if TQuest = 1:Set TQuest = 2
     Set guy = guy + 1
     Set bj+= 1
     Set horny = horny + 5
     
     Set throat= throat + 1
     'You lean to the member, it`s so big, warm and solid, you licked his, then again and again.'
     '<center><img src="pics/glory1.jpg" ></center>'
          act 'cover lips':
         cla
         *clr
         'You bows member lips and starts sucking it, trying to take it as deep as possible.'
         '<center><img src="pics/glory2.jpg" ></center>'
         'Suddenly.'
             act 'swallow':
             cla
             *clr
             Set vaf=vaf+2
             set swallow=swallow+1
             Set cumlip = cumlip + 1
             'You type a mouthful of sperm, and then swallow it, sperm is not tasty, sticky and sharp taste.'
             '<center><img src="pics/glory3.jpg" ></center>'
             'A male voice tells you - fine grit, money, you deserve, Member of the hole and disappears into the hole pokes two thousandths bills.'
             Set money = money + 2000
             act 'Get_Away':gt 'club','inside'
             end
             act 'spit_out':
             cla
             Set cumface = cumface + 1
             'You type a mouthful of sperm, sperm is not tasty, sticky and sharp, you spit it on the floor. '
             '<center><img src="pics/glory3.jpg" ></center>'
             'A male voice tells you - fine grit, money, you deserve, Member of the hole and disappears into the hole pokes thousandth bill.'
             Set money = money + 1000
             act 'Get_Away':gt 'club','inside'
             end
         end
     end
end

if $ARGS[0]='wc':
cla
*clr
Set horny = horny + 20
clr
gs 'stat'
'You pee sitting on the toilet and began to wipe the vagina with toilet paper. Apparently you pressed too hard because you captured the excitement of touching between the legs.'
act 'Get_Away':gt 'street'
     act 'fondle himself':
     cla
     Set TQuest = 1
     Set horny = 0
     set mastr=mastr+1
     orgasm+=1
     'You caress his fingers swollen pussy, until you do not cover orgasm.'
     '<center><img src="pics/tomas.jpg" ></center>'
     'You calm down after orgasm, but hear from the next cubicle Pant, looking at the wall you see that someone is peeping into the hole located in the wall.'
     'The man behind the wall and realized that found giggled, great show. Eye of the holes in the wall and disappeared into it squeezed thousandth bill.'
     Set money = money + 1000
     gs'stat'
     act 'escape':gt 'club','inside'
     end
end

if $ARGS[0]='wc2':
cla
*clr
'You sit down in the booth and hear how after you use the toilet comes to someone, slammed the door adjacent booths. Before you came that two of them.'
'Voice from the next booth told you - Do not be afraid baby, we will not offend, on the contrary, give you a couple of delicious candy, with cream filling.'
act 'escape':gt  'club','inside'
     act 'wait':
     cla
     Set slutiness = slutiness + 10
     'On both sides of your booth through the holes in the walls climbed members. A voice from behind the wall said, Come on, Babe, come here, we`ll feed.'
     'You have both terms in their hands and began to fondle, Then he leaned to one of the members .'
     '<center><img src="pics/glory4.jpg" ></center>'
     wait 3000
     cla
     *clr
     'You enthusiastically aspirated both members take turns.'
     '<center><img src="pics/glory5.jpg" ></center>'
     wait 3000
     cla
     *clr
     'Finally one of the men ends up in your mouth.'
     '<center><img src="pics/glory6.jpg" ></center>'
     'You lick and finish the job for the second term.'
     wait 3000
     cla
     *clr
     'The second man also lowers your mouth.'
     '<center><img src="pics/glory7.jpg" ></center>'
     'You nakonchal mouthful you wipe hand face, but in semen smeared all your face.'
     Set horand = RAND (1,100)
     if horand > horny:Set horny = horny + 10&'You were not satisfied'
     if horand <= horny:Set horny = 0&'You covered orgasm'
     wait 3000
     'Pleased voice said from behind the wall - You`re a great nipple, I think you`ve earned a reward.'
     Set money = money + 3000
     'Three thousand ruble banknotes pokes through the hole in the wall.'
     wait 1000
     'A male voice says - it works for you. Still take a business card, come if you want to have fun and make money.'
     Set TQuest = 3
     if pornstudio=0:pornstudio=2
     Set guy = guy + 2
     Set bj+= 2
     set swallow=swallow+2
     Set cumlip = cumlip + 2
     Set deep = deep + 2
     act 'get_away':gt 'club','inside' 
     end
end
--- club2 ---------------------------------

# menu.{treatment}
ARGS[0]=otg_Menu_Compliance[ARGS[0]-1]
!----------
if ARGS[0]=0: EXIT
!----------
$ARGS[0]=dyneval("$Result=$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_F']")
$ARGS[1]=dyneval("$Result=$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_M']")
!----------
dynamic "
	if $ARGS[1]<>'' or ($ARGS[0]<>'' and LOC $ARGS[0]):
		<<$otg_Menu_Current>>_time=MSECSCOUNT-<<$otg_Menu_Current>>_time
		otg_Menu_Time=<<$otg_Menu_Current>>_time
		<<$otg_Menu_Current>>_selected=-1
		<<$otg_Menu_Current>>_VybrannyyPunkt=<<ARGS[0]>>
		!----------
		$ARGS[3]=$<<$otg_Menu_Current>>_ModuliSobyty['when you select']
		if $ARGS[3]<>'': dynamic $ARGS[3],$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_W']"+dyneval("$Result=$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_P']")+"
		!----------
		if $ARGS[1]<>'':
			dynamic $ARGS[1]"+dyneval("$Result=$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_P']")+"
		else
			GS $ARGS[0]"+dyneval("$Result=$<<$otg_Menu_Current>>_parameters['<<ARGS[0]>>_P']")+"
		end
	else
		MSG 'location ''<<$ARGS[0]>>'' found!'
	end
",$ARGS[0],$ARGS[1]

--- menu.{treatment} ---------------------------------

# authors1
*PL 'Rules of the game are very simple: toss a coin 10 rubles and pull lever. jackpot 100 thousand rubles.'
*P '<center><img src="casino/avt.jpg" ></center>'
ACT 'pull the lever':
	     if money >= 10:
			 x_10=rand(1,1000)
			 set money=money-10
			 if x_10=1000:
				set money=money+100000
				msg 'You won the jackpot! Congratulations!'
			 end
			 if x_10<1000 and x_10>=850:
				set money=money+20
				msg 'Congratulations, you win 20 rubles'
			 end
			 if x_10>=500 and x_10<850:
				set money=money+10
				msg 'congratulations, you win 10 rubles'
			 end
			 if x_10<500:
				set minut=minut+10
				msg 'Alas you lose, try again'
			 end
				
			 
			 
			 clr
			 
			 gt 'authors1' 
		 else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'authors1'
		 end
	
END
ACT 'Back in the room':
	gt 'igravt'
END

clr
gs'stat'
set minut=minut + 10
!PL 'In the bag: <<money>> RUB.'

--- authors1 ---------------------------------

# authors2
*PL 'Rules of the game are very simple: toss a coin 100 rubles and pull lever. Jackpot million rubles.'
*P '<center><img src="casino/avt.jpg" ></center>'
ACT 'pull the lever':
	     if money >= 100:
			 x_10=rand(1,1000)
			 money=money-100
			 if x_10=1000:
				set money=money+1000000
				msg 'You won the jackpot! Congratulations!'
			 end
			 if x_10<1000 and x_10>850:
				set money=money+200
				msg 'Congratulations, you win 200 rubles'
			 end
			 if x_10>500 and x_10=<850:
				set money=money+100
				msg 'congratulations, you win 100 rubles'
			 end
			 if x_10=<500:
				msg 'Alas you lose, try again'
			 end
			 clr
			 gt 'authors2' 
		 else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'authors2'
		 end
	
END
ACT 'Back in the room':
	gt 'igravt'
END
clr
gs'stat'
set minut=minut + 10
--- authors2 ---------------------------------

# authors3
*PL 'Rules of the game are very simple: toss a coin 1000 rubles and pull lever. jackpot 10 million. rubles.'
*P '<center><img src="casino/avt.jpg" ></center>'
ACT 'pull the lever':
	     if money >= 1000:
			 x_10=rand(1,1000)
			 money=money-1000
			 if x_10=1000:
				set money=money+10000000
				msg 'You won the jackpot! Congratulations!'
			 end
			 if x_10<1000 and x_10>=990:
				set money=money+2000
				msg 'Congratulations, you win 2000 rubles'
			 end
			 if x_10>=850 and x_10<990:
				set money=money+1000
				msg 'congratulations, you win 1000 rubles'
			 end
			 if x_10<850:
				msg 'Alas you lose, try again'
			 end
				
			 
			 
			 clr
			 gt 'authors3' 
		 else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'authors3'
		 end
	
END
ACT 'Back in the room':
	gt 'igravt'
END
clr
gs'stat'
set minut=minut + 10
--- authors3 ---------------------------------

# amrul
*PL 'You bent over the desk.'
*P '<center><img src="casino/amrul.gif" ></center>'
ACT 'make a bet':
	st_1 = input 'enter the amount'
	if money<st_1:
		msg 'You do not have enough money'
		gt 'roulette'
	end
	if st_1<0:
		msg 'wrong, try again'
		gt 'amrul'
	end
	if st_1>1000:
		msg 'maximum rate 1000 rubles'
		gt 'amrul'
	end
	set money=money-st_1
	gt 'rate'
END
ACT 'away from the table':
	gt 'roulette'
END
kh=0
chnch=0
mb=0
du=0
series=0
chi=100
x_rul=100

clr
gs'stat'
set minut=minut + 5
--- amrul ---------------------------------

# bar
ACT 'Back in the hall':
	gt 'hall'
END

--- bar ---------------------------------

# bldzh
*PL '<right><img src="casino/stolbd.jpg" ></right>'
*P 'You are standing at the table playing blackjack'
ACT 'Approach to the dealer':
	gt 'croupier1'
END
ACT 'Sit down':
	gt 'igrkart1'
END
ACT 'Away from the table':
	gt 'cards'
END
clr
gs'stat'
set minut=minut + 10
--- bldzh ---------------------------------

# inn
ACT 'Come to the reception desk':
	gt 'rack'
END
ACT 'To lift':
	gt 'Elevator'
END
ACT 'Back in the hall':
	gt 'hall'
END
nom_o[1]=100
nom_o[2]=1000
nom_o[3]=10000
nom_o[4]=100000
clr
gs'stat'
set minut=minut + 5
'<right><img src="casino/metrd.jpg" ></right>'
if tobiQW < 2000:'In the hotel lobby deserted and alone bored girl at the reception.'
if tobiQW >= 2000 and tobiQW < 2100:'In the lobby of the hotel is very crowded. Everywhere swarm comely old men in scanty jacket with patches on the elbows.'

if tobiQW = 2001:
'you notice, that one of the visitors of the hotel, sitting in a chair, reading a book, which are written squiggles, similar to the ones that scroll.'
	 act 'Excuse_Me, to disturb. And in what language it is written?':
	 cla
	 *clr
	 '<right><img src="casino/oldman.jpg" ></right>'
		'(Do_You) - Excuse_Me, to disturb. And in what language it is written?'
		'(The_Man) - This amiable, Old Japanese language. what? You are good in rare languages?'
		'(Do_You) - not at all, but I have a parchment, in which the characters are written very similar.'
		'(The_Man) - prelyubopytny! You can take a look?'
		'(Do_You) - Well!'
		'(The_Man) - ah yes, right word, it`s me. me, by_the_way, Plato called Aristarkhovich, and you?'
		'(Do_You) - You can simply Igor.'
		'(Plato Aristarkhovich) - Come to my room, if you do not mind.'
	 act 'Go with a man':gt'mqroom'	
	 end
end
--- inn ---------------------------------

# igravt
*PL 'You enter a room and see a lot of slot machines and a bunch of people around them. Constantly hear ringing twitching handles and falling coins.'
*PL 'On the left side of the hall is very little free space.'
*PL 'Apparently there is less than the required rate of, but small gain.'
*PL 'To the right of these people less and bid more.'
*PL 'But in the back of the room sat a unit.'
*PL 'There`s biggest bet required, but also the corresponding jackpot - 10 million. rubles.'
*P '<right><img src="casino/zaligravt.jpg" ></right>'
ACT 'By vending machines for 10r':
	set minut=minut+10
	gt 'authors1'
END
ACT 'By vending machines for 100r':
	gt 'authors2'
END
ACT 'By vending machines for 1000r':
	gt 'authors3'
END
ACT 'Back in the hall':
	gt 'hall'
END
USEHTML = 1

clr
gs'stat'
set minut=minut + 10

--- igravt ---------------------------------

# igrkart1
!by Master Set (blakarchont@gmail.com)
!HOME GAMES
clr
gs'stat'
set minut=minut + 5
IF turn = 0:
 CLA
 '<right><img src="casino/stavkabd.jpg" ></right>'
 ' Please tender, gentlemen.'
ACT 'make a bet':
   deal = input 'enter the amount'
   if money<deal:
	 msg 'You do not have enough money'
	 gt 'igrkart1'
   end
   if deal<0:
	 msg 'wrong, try again.'
	 gt 'igrkart1'
   end
   if deal>1000:
	 msg 'maximum rate 1000 rubles.'
	 gt 'igrkart1'
   end
   set money = money - deal
   turn = 1
   GT 'igrkart1'
END
 ACT 'Away from the table':
  GT 'bldzh'
 END
 
END

!the cards are dealt
IF turn = 1:
 CLA
 '<right><img src="casino/cartbd.jpg" ></right>'
 ' The dealer deals the cards:'
 '...'
 suit = RAND (1,4)
 number = RAND (1,13)
 $d_card[1] = $number[number] + $suit[suit]
 d_points = points[number]
 suit = RAND (1,4)
 number = RAND (1,13) 
 $p_card[1] = $number[number] + $suit[suit]
 p_points = points[number]
 suit = RAND (1,4)
 number = RAND (1,13) 
 $p_card[2] = $number[number] + $suit[suit]
 p_points = p_points + points[number]
 IF p_points = 22: p_points = 21  
 wait 1000
 IF p_points < 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  ACT 'enough':
   turn = 3
   GT 'igrkart1'
  END
  ACT 'another map':
   turn = 2
   GT 'igrkart1'
  END  
 END
 IF p_points = 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  'Black Jack!!!'
  prise = deal*3
  ACT 'take the win <<prise>> RUB.':
   set money = money + prise
   turn = 0
   GT 'igrkart1'  
  END
 END 

END

!Additional cards
IF turn = 2:
 CLA
 '<right><img src="casino/cartbde.jpg" ></right>' 
 'The dealer deals one more card:'
 '...' 
 suit = RAND (1,4)
 number = RAND (1,13) 
 $p_card[3] = $number[number] + $suit[suit]
 p_points = p_points + points[number] 
 IF p_points <= 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  ACT 'enough':
   turn = 3
   GT 'igrkart1'
  END
  ACT 'another map':
   turn = 22
   GT 'igrkart1'
  END   
 END
 IF p_points > 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  'busting! you lost.'
  ACT '...':
   turn = 0
   GT 'igrkart1'
  END
 END 
END

IF turn = 22:
 CLA
 '<right><img src="casino/cartbde.jpg" ></right>'
 'The dealer deals one more card:'
 '...' 
 suit = RAND (1,4)
 number = RAND (1,13) 
 $p_card[4] = $number[number] + $suit[suit]
 p_points = p_points + points[number] 
 IF p_points <= 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  '  <<$p_card[4]>>'
  ACT 'enough':
   turn = 3
   GT 'igrkart1'
  END
  ACT 'another map':
   turn = 222
   GT 'igrkart1'
  END   
 END
 IF p_points > 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  '  <<$p_card[4]>>'  
  'busting! you lost.'
  ACT '...':
   turn = 0
   GT 'igrkart1'
  END
 END 
END

IF turn = 222:
 CLA
 '<right><img src="casino/cartbde.jpg" ></right>'
 'The dealer deals one more card:'
 '...' 
 suit = RAND (1,4)
 number = RAND (1,13) 
 $p_card[5] = $number[number] + $suit[suit]
 p_points = p_points + points[number] 
 wait 500
 IF p_points <= 21:
  'Map banks:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  '  <<$p_card[4]>>'
  '  <<$p_card[5]>>'  
  ACT 'enough':
   turn = 3
   GT 'igrkart1'
  END
 END
 IF p_points > 21:
  'Map dealer:'
  '  <<$d_card[1]>>'
  '__________________________'
  'Player Maps:'
  '  <<$p_card[1]>>'
  '  <<$p_card[2]>>'
  '  <<$p_card[3]>>'
  '  <<$p_card[4]>>'
  '  <<$p_card[5]>>'    
  'busting! you lost.'
  ACT '...':
   turn = 0
   GT 'igrkart1'
  END
 END 
END

!Transoms Bank`s cards
IF turn = 3:
 CLA
 '<right><img src="casino/cartbde.jpg" ></right>'
 'The dealer gets the card:'
 '...' 
 suit = RAND (1,4)
 number = RAND (1,13) 
 $d_card[2] = $number[number] + $suit[suit]
 d_points = d_points + points[number]  
 IF p_points = 22: p_points = 21   
 wait 500
 IF d_points => 17:
  'Maps of the Bank:'
  '  <<$d_card[1]>>'
  '  <<$d_card[2]>>'
  'Points dealer: <<d_points>>'
  '__________________________'
  'Player Points: <<p_points>>'
  '__________________________'  
  IF d_points > p_points:
   'casino won'
   ACT '...':
    turn = 0
    GT 'igrkart1'
   END   
  END
  IF d_points = p_points:
   'draw'
   ACT 'pick rate':
    set money = money + deal
    turn = 0
    GT 'igrkart1'
   END      
  END
  IF d_points < p_points:
   'player won'
   prise = deal*2   
   ACT 'take the win <<prise>> RUB.':
    set money = money + prise
    turn = 0
    GT 'igrkart1'
   END      
  END  
 END
 IF d_points < 17:
  suit = RAND (1,4)
  number = RAND (1,13) 
  $d_card[3] = $number[number] + $suit[suit]
  d_points = d_points + points[number]    
  IF d_points <= 21:
   'Maps dealer:'
   '  <<$d_card[1]>>'
   '  <<$d_card[2]>>'
   '  <<$d_card[3]>>'
   'Points dealer: <<d_points>>'   
   '__________________________'
   'Player Points: <<p_points>>'
   '__________________________'  
   IF d_points > p_points:
    'casino won'
    ACT '...':
     turn = 0
     GT 'igrkart1'  
    END   
   END
   IF d_points = p_points:
    'draw'
    ACT 'pick rate':
     set money = money + deal
     turn = 0
     GT 'igrkart1'
    END      
   END
   IF d_points < p_points:
    'player won'
    prise = deal*2   
    ACT 'take the win <<prise>> RUB.':
     set money = money + prise
     turn = 0
     GT 'igrkart1'
    END      
   END     
  END
  IF d_points > 21:
   'Maps dealer:'
   '  <<$d_card[1]>>'
   '  <<$d_card[2]>>'
   '  <<$d_card[3]>>'
   '__________________________'
   'busting!!!'
   '__________________________'
   'player won'
   prise = deal*2   
   ACT 'take the win <<prise>> RUB.':
    set money = money + prise
    turn = 0
    GT 'igrkart1'
   END      
  END    
 END
END
--- igrkart1 ---------------------------------

# igrkart2
clr
gs'stat'
set minut=minut + 5

if turn1 = 0:
	CLA
	'<right><img src="casino/stavkacw.jpg" ></right>'
	' Please tender, gentlemen.'
	ACT 'make a bet':
		deal = input 'enter the amount'
		if money<deal:
			msg 'You do not have enough money'
			gt 'igrkart2'
		end
		if deal<0:
			msg 'wrong, try again.'
			gt 'igrkart1'
		end
		if deal>1000:
			msg 'maximum rate 1000 rubles.'
			gt 'igrkart1'
		end
		set money = money - deal
		turn1 = 1
		GT 'igrkart2'
	END
	ACT 'Away from the table':
		GT 'kazvar'
	END
end

if turn1=1:
	CLA
	'<right><img src="casino/stavkacw.jpg" ></right>'
	nich=0
	ACT 'Put another draw':
		if money<deal:
			msg 'You do not have enough money'
			turn1=2
			nich=0
			gt 'igrkart2'
		end
		set money=money-deal
		turn1=2
		nich=1
		gt 'igrkart2'
	end
	ACT 'Continue without additional rate':
		turn1=2
		nich=0
		gt 'igrkart2'
	end
end

if turn1=2:
	CLA
	'<right><img src="casino/cartcw.jpg" ></right>'
	' The dealer deals the cards:'
	'...'
	suit = RAND (1,4)
	number = RAND (1,13)
	$di_card[1] = $number[number] + $suit[suit]
	di_points = points[number]
	di_poi=number
	suit = RAND (1,4) 
	number = RAND (2,14) 
	$pl_card[1] = $number[number] + $suit[suit] 
	pl_points = points[number] 
	pl_poi=number 
	wait 1000
	'Map dealer:'
	'  <<$di_card[1]>>'
	'__________________________'
	'Player Maps:'
	'  <<$pl_card[1]>>'
	if di_poi>pl_poi:
		' '
		'casino won'
		act 'you lost':
			turn1=0
			gt 'igrkart2'
		end
	end
	if di_poi<pl_poi:
		' '
		'you won'
		act 'you won <<2*deal>> RUB.':
			set money=money+2*deal
			turn1=0
			gt 'igrkart2'
		end
	end
	if di_poi=pl_poi:
		if nich=1:
			' '
			'you won'
			act 'you won <<11*deal>> RUB.':
				set money=money+11*deal
				turn1=0
				gt 'igrkart2'
			end
		else
			turn1=3
			gt 'igrkart2'
		end
	end
end

if turn1=3:
	act 'continue to play':
		if money<deal:
			msg 'You do not have enough money'
			gt 'igrkart2'
		end
		set money=money-deal
		CLA
		'<right><img src="casino/cartcw.jpg" ></right>'
		' The dealer deals the cards:'
		'...'
		suit = RAND (1,4)
		number = RAND (1,13)
		$di_card[2] = $number[number] + $suit[suit]
		di_points = points[number]
		di_poi=number
		suit = RAND (1,4)
		number = RAND (2,14) 
		$pl_card[2] = $number[number] + $suit[suit]
		pl_points = points[number]
		pl_poi=number
		wait 1000
		'Map dealer:'
		'  <<$di_card[1]>>'
		'  <<$di_card[2]>>'
		'__________________________'
		'Player Maps:'
		'  <<$pl_card[1]>>'
		'  <<$pl_card[2]>>'
		if di_poi>pl_poi:
			' '
			'casino won'
			act 'you lost':
				turn1=0
				gt 'igrkart2'
			end
		end
		if di_poi<pl_poi:
			' '
			'you won'
			act 'you won <<4*deal>> RUB.':
				set money=money+4*deal
				turn1=0
				gt 'igrkart2'
			end
		end
		if di_poi=pl_poi:
			' '
			'again draw'
			act 'pick_up <<3*deal>> RUB.':
				set money=money+3*deal
				turn1=0
				gt 'igrkart2'
			end
		end	
	end
	act 'Pick up half your bet':
		if deal mod 2=1:
			deal=deal+1
		end
		set money=money+deal/2
		gt 'igrkart2'
	end
end
--- igrkart2 ---------------------------------

# kazvar
*PL '<right><img src="casino/stolcw.jpg" ></right>'
*P 'You are standing at the table playing Casino War'
ACT 'Approach to the dealer':
	gt 'croupier2'
END
ACT 'Sit down':
	gt 'igrkart2'
END
ACT 'Away from the table':
	gt 'cards'
END
clr
gs'stat'
set minut=minut + 10
--- kazvar ---------------------------------

# cards
*PL '<right><img src="casino/zalcart.jpg" ></right>'
*P 'In the hall are plenty of free tables for blackjack games and Casino Wars.'
ACT 'To the table game Blackjack':
	gt 'bldzh'
END
ACT 'For table games Casino War':
	gt 'kazvar'
END
ACT 'Back in the hall':
	gt 'hall'
END
clr
gs'stat'
set minut=minut + 10

!SYMBOLS
! в™Ґ
! в™ 
! в™¦
! в™Ј

!deck of cards
$suit[1] = 'peak'
$symbol[1] = 'в™ '
$suit[2] = 'clubs'
$symbol[2] = 'в™Ј'
$suit[3] = 'worms'
$symbol[3] = 'в™Ґ'
$suit[4] = 'tambourine'
$symbol[4] = 'в™¦' 

$number[1] = 'ace '
points[1] = 11
$number[2] = 'deuce '
points[2] = 2
$number[3] = 'three '
points[3] = 3
$number[4] = 'four '
points[4] = 4
$number[5] = 'five '
points[5] = 5
$number[6] = 'six '
points[6] = 6
$number[7] = 'seven '
points[7] = 7
$number[8] = 'eight '
points[8] = 8
$number[9] = 'nine '
points[9] = 9
$number[10] = 'ten '
points[10] = 10
$number[11] = 'Jack '
points[11] = 10
$number[12] = 'lady '
points[12] = 10
$number[13] = 'king '
points[13] = 10
$number[14] = 'ace '
points[14] = 11
--- cards ---------------------------------

# croupier
*PL '- How can I help you?'
*P '<right><img src="casino/crup.jpg" ></right>'
ACT 'ask rules':
	msg 'Rules are very simple.
	First.
	But just remember, that our casino is the maximum rate 1000 rubles.
	Then you choose what to put their money. Is_There 5 bets:
	color -   1 to 1
	Chet/odd -   1 to 1
	Mal/big-   1 to 1
	dozen -   1 to 2   
	series -   1 to 2   
	number -   1 to 36  
	Well.'
	gt 'croupier'
END
ACT 'Move away from the dealer':
	gt 'roulette'
END
clr
gs'stat'
set minut=minut + 5
--- croupier ---------------------------------

# croupier1
*PL '<right><img src="casino/crupbd.jpg" ></right>'
*P '- How can I help you?'
ACT 'ask rules':
	msg 'You do not know how to play Blackjack? Well then listen.
	goal of the game - score more points, than the dealer, but not more than 21.
	Different cards give a different number of points. 
	ace = 11
	Cards with pictures = 10
	The rest of their face value
	(t.e. 9=9   8=8 and t.d.)
	After making a bet the dealer deals the cards. But just remember, that our casino is the maximum rate 1000 rubles. You two and one yourself. Then you can gather additionally map, either say enough, then the dealer will begin to gather additionally map itself. So in the end who has the most points and won the. payment 1 to 1.
	that`s all. Enjoy the game)'
	gt 'croupier1'
END
ACT 'Move away from the dealer':
	gt 'bldzh'
END
clr
gs'stat'
set minut=minut + 5
--- croupier1 ---------------------------------

# croupier2
*PL '<right><img src="casino/crupcw.jpg" ></right>'
*P '- How can I help you?'
ACT 'ask rules':
	msg 'The rules are very simple.
	First, you want to put.
	But just remember, that our casino is the maximum rate 1000 rubles.
	The dealer deals the cards, her card over at par and won the. payment 1 to 1.
	When you are given a choice of a draw: take half of your bet or continue to play (Your bid is automatically doubled). Whose card is more on par and won the. payment 1 to 1. When the draw you receive a payment for the increase, equal to your bet and you are returned to your total bet.
	Also. Then 10 to 1.
	Enjoy the game)'
	gt 'croupier2'
END
ACT 'Move away from the dealer':
	gt 'kazvar'
END
clr
gs'stat'
set minut=minut + 5
--- croupier2 ---------------------------------

# elevator
ACT 'return':
	gt 'inn'
END
ACT 'Go to your room':
	msg 'Excuse_Me, but the elevator is not working'
	gt 'elevator'
	!if nomer=0
	!	msg 'You have not paid for this hotel'
	!	gt 'elevator'
	!end
	!if nomer=1
	!	gt 'number1'
	!end
	!if nomer=2
	!	gt 'number2'
	!end
	!if nomer=3
	!	gt 'number3'
	!end
	!if nomer=4
	!	gt 'number4'
	!end
END

--- elevator ---------------------------------

# Maria1
	'- How can I help you?'
act 'move_away':gt'rack'	
if nom_1=0:	
	 act 'Ask about plans for the evening':
	 cla
		'- What are you doing tonight?'
		'- I walk with my husband. even that-some?'
	 act 'move_away':gt'rack'	
	 end
	 
	 if tobiQW = 2000:
	 	 act 'Why in the hotel so crowded?':
		 cla
		 tobiQW = 2001
			'- Why in the hotel so crowded?'
			'- Here stopped members of Congress rare languages, as they call themselves quack.'
		 act 'move_away':gt'rack'	
		 end
	 end
end
if nomer=0:
	*clear
	act 'stay':
		'- I would like to stay'
		'- Ok, What would you like to?'
		cla
		act 'cheapest room':
			'- cheapest room'
			nomer=1
			nom_1=1
			gt 'Maria1'
		end
		act 'Standard Room':
			'- Standard Room'
			nomer=2
			nom_1=1
			gt 'Maria1'
		end
		act 'Suite':
			'- Suite'
			nomer=3
			nom_1=1
			gt 'Maria1'
		end
		act 'Presidential Suite':
			'- Presidential Suite'
			nomer=4
			nom_1=1
			gt 'Maria1'
		end
	end
end
if nom_1=1 and flag=0:
	*clear
	cla
	'- You shoot a room for one night.'
	sto_nom=nom_o[nomer]
	'- It will cost <<sto_nom>>'
	cla
	act 'Checkout':
		if sto_nom > money:
			msg 'Not enough money'
			srokarend=0
			nomer=0
			nom_1=0
			gt 'Maria1'
		end
		money=money-sto_nom
		flag=1
		nom_1=0
		nom_nom=rand(1,1000)
		'Thank you for using our services'
		'your room number is <<nom_nom>>'
		cla
		act 'bye now':
			gt 'rack'
		end
	end
	act 'change_your_mind':
		nomer=0
		nom_1=0
		gt 'Maria1'
	end
end
if nom_1=0:	
	act 'move_away':
		gt 'rack'
	end
end	
--- Maria1 ---------------------------------

# headwaiter
*PL '<right><img src="casino/metrd.jpg" ></right>'
*P 'what do you want-need something from me?'
ACT 'move_away':
	gt 'hall'
END
clr
gs'stat'
set minut=minut + 5
--- headwaiter ---------------------------------

# number1
*PL 'bedroom'
*P 'wc-shower'

--- number1 ---------------------------------

# number2
*PL 'living_room'
*PL 'bedroom'
*P 'wc-shower'

--- number2 ---------------------------------

# number3
*PL 'living_room'
*PL 'bathroom'
*PL 'bar'
*P 'bedroom'

--- number3 ---------------------------------

# number4
*PL 'swimming_pool'
*PL 'jacuzzi'
*PL 'bar'
*PL 'bedroom'
*PL 'bathroom'
*P 'living_room'

--- number4 ---------------------------------

# result
*P '<right><img src="casino/resul.jpg" ></right>'
clr
gs'stat'
set minut=minut + 5

x_rul=100
x_rul=rand(0,36)
if x_rul=0:
	$color=' '
else
	if x_rul=1 or x_rul=3 or x_rul=5 or x_rul=7 or x_rul=9 or x_rul=12 or x_rul=14 or x_rul=16 or x_rul=18 or x_rul=19 or x_rul=21 or x_rul=23 or x_rul=25 or x_rul=27 or x_rul=30 or x_rul=32 or x_rul=34 or x_rul=36:
		$color='red'
	else
		$color='black'
	end
end
' '
'The ball stopped at <<x_rul>> <<$color>>'
if kh!0:
	if kh=1:
		'1'
		if x_rul=1 or x_rul=3 or x_rul=5 or x_rul=7 or x_rul=9 or x_rul=12 or x_rul=14 or x_rul=16 or x_rul=18 or x_rul=19 or x_rul=21 or x_rul=23 or x_rul=25 or x_rul=27 or x_rul=30 or x_rul=32 or x_rul=34 or x_rul=36:
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if kh=2:
		if x_rul=2 or x_rul=4 or x_rul=6 or x_rul=8 or x_rul=10 or x_rul=11 or x_rul=13 or x_rul=15 or x_rul=17 or x_rul=20 or x_rul=22 or x_rul=24 or x_rul=26 or x_rul=28 or x_rul=29 or x_rul=31 or x_rul=33 or x_rul=35:
			cla
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
end
if chnch!0:
	if chnch=1:
		chnch=0
		if x_rul mod 2=0:
			cla
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if chnch=2:
		chnch=0
		if x_rul mod 2=1:
			cla
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
end
if mb!0:
	if mb=1:
		mb=0
		if x_rul>0 and x_rul<19:
			cla
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end	
	end
	if mb=2:
		mb=0
		if x_rul>18 and x_rul<37:
			cla
			act 'you won <<2*st_1>>':
				set money=money+2*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
end
if du!0:
	if du=1:
		du=0
		if x_rul>0 and x_rul<13:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if du=2:
		du=0
		if x_rul>12 and x_rul<25:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if du=3:
		du=0
		if x_rul>24 and x_rul<37:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
end
if series!0:
	if series=1:
		series=0
		if x_rul=1 or x_rul=4 or x_rul=7 or x_rul=10 or x_rul=13 or x_rul=16 or x_rul=19 or x_rul=22 or x_rul=25 or x_rul=28 or x_rul=31 or x_rul=34:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if series=2:
		series=0
		if x_rul=2 or x_rul=3 or x_rul=8 or x_rul=11 or x_rul=14 or x_rul=17 or x_rul=20 or x_rul=23 or x_rul=26 or x_rul=29 or x_rul=32 or x_rul=35:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
	if series=3:
		series=0
		if x_rul=3 or x_rul=4 or x_rul=9 or x_rul=12 or x_rul=15 or x_rul=18 or x_rul=21 or x_rul=24 or x_rul=27 or x_rul=30 or x_rul=33 or x_rul=36:
			cla
			act 'you won <<3*st_1>>':
				set money=money+3*st_1
				gt 'amrul'
			end
		else
			cla
			act 'you lost':
				gt 'amrul'
			end
		end
	end
end
if chi!100:
	if chi=x_rul:
		cla
		act 'you won <<37*st_1>>':
			set money=money+37*st_1
			gt 'amrul'
		end
	else
		cla
		act 'you lost':
			gt 'amrul'
		end
	end
end
--- result ---------------------------------

# restaurant
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Bank</font></B></center>'
'<center><img src="pic/bank.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Working hours 9 prior_to 21.'

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'hall'
     end
     if hour >= 9 and hour <= 21:act 'Go to the bank':gt'bank','1'
end

if $ARGS[0]='1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Bank</font></B></center>'
'<center><img src="pic/bank1.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if bankfond > 0:'personal account <<bankfond>> RUB'
     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'restaurant','start'
     end
     
     
     if bankfond >= 0:
         act 'Put money into a personal account':
		 cla
		 set minut = minut + 5
		 kartaIN = input ("How much money you want to deposit?")
		     if kartaIN <= 0 or kartaIN > money:
		     'Incorrect operation.'
		     else
		     set bankfond = bankfond + kartaIN
		     set money = money - kartaIN
		     'You put into the account <<kartaIN>> rubles, now in your account <<bankfond>> rubles.'
		     end
		     
		 act 'move_away':gt'restaurant','1'
		 end
		 
		 act 'Withdraw money from the personal account':
		 cla
		 set minut = minut + 5
		 kartaOUT = input ("How much money you want to withdraw?")
		     if kartaOUT <= 0 or kartaOUT > bankfond:
		     'Not correct operation.'
		     else
		     set bankfond = bankfond - kartaOUT
		     set money = money + kartaOUT
		     'You have removed from the account <<kartaOUT>> rubles, now in your account <<bankfond>> rubles.'
		     end
		     
		 act 'move_away':gt'restaurant','1'
		 end
     
     end
     


end
--- restaurant ---------------------------------

# roulette
*PL '<right><img src="casino/ruletka.jpg" ></right>'
*P 'You have come to the table with American roulette.'
ACT 'Approach to the dealer':
	gt 'croupier'
END
ACT 'play':
	gt 'amrul'
END
ACT 'Back in the hall':
	gt 'hall'
END
clr
gs'stat'
set minut=minut + 10
--- roulette ---------------------------------

# rate
*PL '<right><img src="casino/stavkaru.jpg" ></right>'
*NL
*P 'What will bet?'
ACT 'red / black':
	cla
	act 'red':
		kh=1
		gt 'result'
	end
	act 'Black':
		kh=2
		gt 'result'
	end
	
END
ACT 'even / odd':
	cla
	act 'even':
		chnch=1
		gt 'result'
	end
	act 'odd':
		chnch=2
		gt 'result'
	end
	
END
ACT 'small / big':
	cla
	act 'small: 1-18':
		mb=1
		gt 'result'
	end
	act 'big: 19-36':
		mb=2
		gt 'result'
	end
	
END
ACT 'dozen':
	cla
	act 'first dozen: 1-12':
		du=1
		gt 'result'
	end
	act 'the second dozen: 13-24':
		du=2
		gt 'result'
	end
	act 'third dozen: 25-36':
		du=3
		gt 'result'
	end
	
	
END
ACT 'series':
	cla
	act 'first row: 1,4,7,10,13,16,19,22,25,28,31,34':
		series=1
		gt 'result'
	end
	act 'second row: 2,5,8,11,14,17,20,23,26,29,32,35':
		series=2
		gt 'result'
	end
	act 'third row: 3,6,9,12,15,18,21,24,27,30,33,36':
		series=3
		gt 'result'
	end
	
	
END
ACT 'number':
	chi = input 'Enter a number from 0-36'
	if chi<0 and chi>36:
		msg 'It was said that only by 0 prior_to 36'
		gt 'rate'
	end
	gt 'result'
	
END
ACT 'It`S_Nothing':
	gt 'amrul'
END
kh=0
chnch=0
mb=0
du=0
series=0
chi=100

clr
gs'stat'
set minut=minut + 5
--- rate ---------------------------------

# rack
ACT 'See the description of rooms':
	cla
	*clear
	'The choice available 4 types of rooms:'
	'1. budget accommodation'
	
	'2. standard rooms'
	
	'3. suite'
	
	'4. Presidential Suite'
	act 'finish reading': gt 'rack'
	
END
ACT 'Talk to a girl at the reception':
	gt 'Maria1'
END
ACT 'Move away from the rack':
	gt 'inn'
END
'You stand at the reception desk and you smiling young girl behind the counter'
--- rack ---------------------------------

# theater
ACT 'Back in the hall':
	gt 'hall'
END

--- theater ---------------------------------

# hall
*PL '<right><img src="casino/zdcasino.jpg" ></right>'
*PL 'You entered the hall of the giant casino building. '
*PL 'You can go:'
ACT 'Get out of the casino':
	gt 'casino'
END
USEHTML = 1
*clear

clr
gs'stat'
set minut=minut + 5

picrand=RAND(0,2)
if picrand=0:'<right><img src="casino/hcasino1.jpg" ></right>'
if picrand=1:'<right><img src="casino/hcasino2.jpg" ></right>'
if picrand=2:'<right><img src="casino/hcasino3.jpg" ></right>'

'K <a href="exec:GT ''headwaiter''">headwaiter</a>'
'In the room <a href="exec:GT ''igravt''">slot machines</a>'
'In room games <a href="exec:GT ''roulette''">roulette</a>'
'In room games <a href="exec:GT ''cards''">cards</a>'
!'B <a href="exec:GT ''restaurant''">restaurant</a>'
!'B <a href="exec:GT ''bar''">bar</a>'
!'B <a href="exec:GT ''theater''">theater</a>'
'K <a href="exec:GT ''inn''">hotel</a>'
--- hall ---------------------------------

# sny
$d_dima_end={
	 act'wipe your eyes':
	 cls
	 minut+=5
	 SNYnoseGang+=1
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/facial2.jpg" ></center>'
	 'Rubbed his eyes you saw, Dimka that came to the table and pulled out of the hiding place the camera works ,whereupon its disabled "Hey Ghosh, vidos turned very best with this whore."'
	     if NosovRevenge=1:
	     NosovRevenge=2
	     daynosovrevenge=daystart
	     'Noses turned to you "Well slut, here you dovyebalas."'
	     end
	     
	     act'Get_Away':gt 'gorodok'
	 end
}

$d_dima_kiss={
act'tselovatsya':
cls
minut+=5
horny+=10
!1 and 4
gs'stat'
'<center><img src="qwest/alter/ev2/pett.jpg" ></center>'
'You kiss with Dima and he slowly undresses you. His hands gently wrapped around you and you get up on his knees and lie down on the sofa breast.'
	 act'wait':
	 cls
	 minut+=5
	 horny+=10
	 !1 and 4
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/pett2.jpg" ></center>'
	 'Member of Dima poked you in the pussy and you decide to help him apart their buns that would facilitate access.'
     	 act'wait':
		 cls
		 minut+=5
		 $boy='Dima'
		 silavag = 1
		 dick=16
		 if npcSex[1]=0:npcSex[1]=1&guy+=1
		 gs'stat'
		 '<center><img src="qwest/alter/ev2/fuck.jpg" ></center>'
		 dynamic $sexstart
		 dynamic $sexstart2
		 !dynamic $sexcum
		 'Suddenly, each Dima and sits next to you pulled out his penis.'
		     act'Take by mouth':
			 cls
			 minut+=5
			 if npcSex[4]=0:npcSex[4]=1&guy+=1
			 bj+=1
			 if protect = 1:condomDima=1
			 gang+=1
			 gs'stat'
			 '<center><img src="qwest/alter/ev2/fuck2.jpg" ></center>'
			 'You bows member Ghosh and start to suck absorbing his mouth to the throat.'
			 dynamic $sexstart4
			 dynamic $sexcum
			 	 act'suck':
				 cls
				 minut+=5
				 cumface+=1
				 facial+=1
				 gs'stat'
				 '<center><img src="qwest/alter/ev2/facial.jpg" ></center>'
				 'Gosh takes dick out of your mouth and the jet of sperm hit you in the face.'
				      if condomDima=1:
						 act'further':
						 cls
						 facial+=1
						 cumface+=1
						 gs'stat'
						 '<center><img src="qwest/alter/ev2/cond.jpg" ></center>'
						 'Dima takes off his penis with a condom and squeezes cum out of it on your face.'
						 dynamic $d_dima_end
						 end
					 end
					 if condomDima=0:
					 dynamic $d_dima_end
					 end
				 end
			 end
		 end
	 end
end
}

$d_otvali_nosov={
act'hey! Beat_It!':
cls
minut+=5

gs'stat'

     if alko<6:
     
         if dom>=10:
             if horny<90:
			 'You pushed yourself from Dimka "hey! Beat_It! Are you, ohrenel something?"'
			 act'Get_Away':gt 'gorodok'
			 end
			 if horny>=90:
			 'You want to push Dima, but nice fire broke out in the lower abdomen with fury, your pussy just begging to fill it than ever.'
			 dynamic $d_dima_kiss
			 end
         else
         'You tried otsanitsya from Dima, but he would not let you.'
         dynamic $d_dima_kiss
         end
     else
     'You managed to squeeze out something unintelligible .'
     dynamic $d_dima_kiss
     end

end
}



gs'stat'
if snyqw=0:
'Classmates gathered together under the guidance of the teacher on the desk brought tea and sweets. Albina head out of it asked "And where Kotov?" Ryzhov hemmed "He was already drunk and lying drunk in the house shit." Shulga said looking around "And Sonya ." The teacher said "Well."'

	act'drink tea, with buns':
	cls
	minut+=30
	set fat = fat + 3
	set energy = energy + 10
	set water = water +20
	gs'stat'
	'Within half an hour all clinked cups drinking tea and buns devoured. Finally all ate and teacher putting a tape recorder on the table said "Now cool disco." From the speakers the music started. All began to slowly get up from behind the desk.'
		 act'Get up from the table':
		 cls
		 minut+=30
		 snyqw=1
		 gs'stat'
		 'The next half hour passed actually very sad. The boys broke into his pile somewhere and run regularly. The girls broke into a pile and discussed the problems and ways to apply makeup to the skin scrub. Teacher seems to have bothered pechonok stuck at school and she became the happiest face "Well guys, Happy New Year. And I`ll go home, still need to prepare for the holiday." Discordant chorus teacher congratulated the new year .'
		 act'Help clear the table':gt $curloc
		 end
	end
end
if snyqw=1:
'You began to help clear the table other girls. In boys .'
     if GorSlut>=3:
     !total Shmarev
     'To you came Shul`ga and loudly slamming ass said "Hey lowered, do you even come here Nahuas? There are normal people tusyat, and your place on the Parasha, with the cheek by a dick."'
         act'to_be_silent':
		 cls
		 minut+=15
		 gs'stat'
		 'You silently turned away from Shulgi. He grabbed you by the arm "You cho some cheeky?"'
		     if AlbinaBlockHumiliation=1:
		     GorSlut-=1
		     'To you came Albina "Slysh you, uebok. You do not seem to last vkuril our conversation? Fuck off of it, i_get_it?" But Shul`ga apparently had already somewhere plunk and bravely began to run into Albina "You called someone uebkom? A? you cho, Ramsey beguiled creature?" Albina smiled most charming smile Shulga and then abruptly stuck between his legs his knee, from what Shul`ga howling fell to the floor. Albina squatted beside rolling on the floor Shulgi "Will you still complain, come large and powerful uncle of the office of funeral services and bury you." Shul`ga curled into a ball on the floor howling "bitch!!!" Albina got to his feet and suddenly with all his strength Shulga kicked in the ribs "It was you who called a bitch?" Shul`ga howled and wailed even more "Do not you! This is me in pain." Albina grinned and sat down next to him suddenly patting him on the head. "You see, can also be a smart boy." Then he stood up and said you "Okay Sveta, better really go away. See how you reacts to kids, Corn is not their eyes once again."'
		     act'Get_Away':gt 'gschool'
		     else
		     'you wailed "Yes. What do you want it?" Shul`ga grinned, "as cho? New Year`s gift to you on the cheek vlupit. In short go to the toilet, Hare vyebyvatsya."'
		     act'Go to the toilet':snyqw=2&minut+=15&gt $curloc
		     end
		 act'Help clear the table':gt $curloc
		 end
     end
     if GorSlut<=2:
     'Suddenly you called one of the boys "light, let`s go to our."'
     	 act'come_Up':
		 cls
		 minut+=5
		 gs'stat'
		 'You came to the guys, those in tihushku jammed vodka. Dan Ryzhov, as the main plant handed you a glass.'
		 	 act'drink':
			 cls
			 minut+=5
			 alko+=3
			 gs'stat'
			 '<center><img src="qwest/alter/ev2/drunk.jpg" ></center>'
			 'You drank vodka and your throat burned flame. You even suffocated but you immediately stretched pickle, you quickly skhrumkali it. Dimka Nosov appealed to all, "Hey people! My ancestors left for the new year to meet, Come to me. arrange a get-together!" All happy, as the evening school was completely not interesting.'
			     if grupNPC[1]=0:
			     grupNPC[1]=50
			     NosovRevenge=1
			     'Dima Nosov addressed to you in a floor vote. "Sveta, you and I have had disagreements. I sincerely apologize for his misbehavior. I hope you will not give up and you will come to the party."'
			     end
			 act'Go to the party':snyqw=3&minut+=30&gt $curloc
			 act'Get_Away':gt 'gschool'
			 end
			 
			 act'unsubscribe drink':
			 cls
			 minut+=5
			 gs'stat'
			 'You refused to drink vodka as you did not try to persuade. Dimka Nosov appealed to all, "Hey people! My ancestors left for the new year to meet, Come to me. arrange a get-together!" All happy, as the evening school was completely not interesting.'
			     if grupNPC[1]=0:
			     grupNPC[1]=50
			     NosovRevenge=1
			     'Dima Nosov addressed to you in a floor vote. "Sveta, you and I have had disagreements. I sincerely apologize for his misbehavior. I hope you will not give up and you will come to the party."'
			     end
			 
			 act'Go to the party':snyqw=3&minut+=30&gt $curloc
			 act'Get_Away':gt 'gschool'
			 end
		 end
     end
end
if snyqw=2:

'In the outhouse Shul`ga immediately lowered his pants and said "Mr. Cho nipple, to the trough."'
	 act'suck':
	 cls
	 minut+=5
	 KlassBlowBang=1
	 gang+=1
	 bj+=10
	 sub+=100
	 if npcSex[1]=0:npcSex[1]=1&guy+=1
	 if npcSex[2]=0:npcSex[2]=1&guy+=1
	 if npcSex[3]=0:npcSex[3]=1&guy+=1
	 if npcSex[4]=0:npcSex[4]=1&guy+=1
	 if npcSex[5]=0:npcSex[5]=1&guy+=1
	 if npcSex[6]=0:npcSex[6]=1&guy+=1
	 if npcSex[7]=0:npcSex[7]=1&guy+=1
	 if npcSex[8]=0:npcSex[8]=1&guy+=1
	 !if gnpcSex[9]=0:gnpcSex[9]=1&guy+=1
	 if npcSex[10]=0:npcSex[10]=1&guy+=1
	 if npcSex[11]=0:npcSex[11]=1&guy+=1
	 if GorSlut<5:GorSlut=5
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/snybj.jpg" ></center>'
	 'You sit down in front Shulga and began to suck his dick. The toilet includes a few guys in your class, were soon all the boys in your class, except Kotova, who is rumored to have been drunk surrounded you. Someone unzipped his fly and pulled out a member, he was joined by another'
	 	 act'serve classmates':
		 cls
		 minut+=5
		 gs'stat'
		 '<center><img src="qwest/alter/ev2/snyfilming.jpg" ></center>'
		 'You slurp on one dick with his mouth, while other members of the palms nayarivaya, casually looking up you see ,Nosov that takes you on camera.'
		 	 act'suck':
			 cls
			 minut+=5
			 gs'stat'
			 '<center><img src="qwest/alter/ev2/snyblowbang.jpg" ></center>'
			 'You serve dicks not even having time to understand who owns a particular member. Classmates already lined up in a circle .'
			 	 act'suck':
				 cls
				 minut+=5
				 gs'stat'
				 '<center><img src="qwest/alter/ev2/snyblowbang2.jpg" ></center>'
				 'One member even rubs against your crown, yet you treat members, mouth is already starting to get tired.'
				 	 act'suck':
					 cls
					 minut+=5
					 gs'stat'
					 '<center><img src="qwest/alter/ev2/snyblowbang3.jpg" ></center>'
					 'Many of the guys in front of your face drochat, until you swallow another dick.'
					 	 act'suck':
						 cls
						 minut+=5
						 cumface+=5
						 cumlip+=5
						 cumfrot+=1
						 gs'stat'
						 '<center><img src="qwest/alter/ev2/snycum.jpg" ></center>'
						 'Finally you start to cum on face covering his sperm. Semen from 10five cocks your face is completely covered with slime and clothes soaked with sperm.'
						 act'Get_Away':gt 'gschool'
						 end
					 end
				 end
			 end
		 end
	 end
end
if snyqw=3:
	 if music_on=0:
		 inited = 1
		 music_on=1
		 volume = 100
		 $music_theme = 'gnewyear'
		 gs 'init_music'
	 end
!get-together
'<center><img src="qwest/alter/ev2/tusa3.jpg" ></center>'
'The whole class went to Dima Nosov home. Along the way. Dimka house included music, girls quickly set the table and the class began to celebrate the new year. You too stuck in the hands of a glass of vodka.'
	 act'drink':
	 cls
	 minut+=15
	 alko+=3
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/drunk.jpg" ></center>'
	 'You drank vodka from glasses and immediately ate'
	 act'tusit':snyqw=4&minut+=5&gt $curloc
	 end
	 
	 act'unsubscribe drink':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/tusa3.jpg" ></center>'
	 'You refused to drink as you do not have to persuade.'
	 act'tusit':snyqw=4&minut+=5&gt $curloc
	 end
end
if snyqw=4:
!get-together
'<center><img src="qwest/alter/ev2/tusa4.jpg" ></center>'
'Boys and girls to relax and start easy communication. Someone poured more vodka into the glasses and handed you a glass of vodka.'
	 act'drink':
	 cls
	 minut+=15
	 alko+=3
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/drunk.jpg" ></center>'
	 'You drank vodka from glasses and immediately ate'
	 act'tusit':snyqw=5&minut+=5&gt $curloc
	 end
	 
	 act'unsubscribe drink':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/tusa4.jpg" ></center>'
	 'You refused to drink as you do not have to persuade.'
	 act'tusit':snyqw=5&minut+=5&gt $curloc
	 end
end
if snyqw=5:
!get-together
'<center><img src="qwest/alter/ev2/tusa5.jpg" ></center>'
'Albina came to the center of the room and began to dance incendiary. It was joined by Kate and her sister Vick. While you were watching the girls, you again stuck in his hand a glass of vodka.'
	 act'drink':
	 cls
	 minut+=15
	 alko+=3
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/drunk.jpg" ></center>'
	 'You drank vodka from glasses and immediately ate'
	 act'tusit':snyqw=6&minut+=5&gt $curloc
	 end
	 
	 act'unsubscribe drink':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/tusa5.jpg" ></center>'
	 'You refused to drink as you do not have to persuade.'
	 act'tusit':snyqw=6&minut+=5&gt $curloc
	 end
end
if snyqw=6:
!get-together
'<center><img src="qwest/alter/ev2/tusa6.jpg" ></center>'
'Albina and Katya in full light the middle of the room. And suddenly Albina covers the face and hands Katya kisses her on the lips. The room is carried howling kids require continuing. You do not understand how, but in your hand again was full glass of vodka. The girls .'
	 act'drink':
	 cls
	 minut+=15
	 alko+=3
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/drunk.jpg" ></center>'
	 'You drank vodka from glasses and immediately ate'
	 act'tusit':snyqw=7&minut+=5&gt $curloc
	 end
	 
	 act'unsubscribe drink':
	 cls
	 minut+=15
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/tusa6.jpg" ></center>'
	 'You refused to drink as you do not have to persuade.'
	 act'tusit':snyqw=7&minut+=5&gt $curloc
	 end
end
if snyqw=7:
!get-together
     if alko>=10:
     '<center><img src="qwest/alter/ev2/vomit.jpg" ></center>'
     'You felt my stomach contents rapidly beginning to break out. Dale you Rushed to the toilet.'
     	 act'barf':
		 cls
		 minut+=60*alko
		 gs'stat'
		     if NosovRevenge=0:
		     partyPantyCum=1
		     cumfrot+=1
		     gs'stat'
			 '<center><img src="qwest/alter/ev2/vom.jpg" ></center>'
			 'You woke up on the bed in the room Dimka Nosov. My head hurts the whole body aches and you feel, that you have the pope wet panties, turning his head you see, shorts that some sort of white mucus. You poke a finger in the mucus and hold the finger -to-nose, pungent smell of sperm hits you nose. At this point enters the room Nosov. Seeing your panties smeared with sperm he begins to laugh "dammit. I thought that here in the room before you no one gets, but hell. Already someone had otebal you." The noise in the room drop a few tousled heads, hear the whisper "Th there?" another voice responds "Yes nicho, Svetku someone otebal."'
			 act'Get_Away':gt 'gorodok'
			 end
			 if NosovRevenge=1:
			 '<center><img src="picBody/tatvag6.jpg" ></center>'
			 'You woke up lying on the couch which is awkward. With difficulty raising his head you understand, it is a place you are not familiar, listening to the feelings you understand ,that you have a very sore and burns pubic, looking between her legs you saw, that you wear panties, lowered their ofigeli you just by what he saw. Pubic tattoo emblazoned svezhevybitaya.'
			     if tatvag=1:'You probably killed an old tattoo with a new.'
				 if tatvag=2:'You probably killed an old tattoo with a new.'
				 if tatvag=3:'You probably killed an old tattoo with a new.'
				 if tatvag=4:'You probably killed an old tattoo with a new.'
				 if tatvag=5:'You probably killed an old tattoo with a new.'
				 tatvag=6
				 lobok=-10
				 gs'stat'
				 'Looking closer you read, English has been written word SLUT, whore and letters lay tattooed girl in stockings. You began to resent, although it was more like a moo and moans, your voice come what that man said he will "Well. And it was here, plowshares, that urgently needs to tattoo." You stare at the man "What the hell tattoo?" The man rolled his eyes "Oh God, first drunk, and then wonder why it. Here is a sketch of a tattoo where your signature." You looked at the signature, indeed it was your.'
			 act'Get_Away':gt 'gorodok'
			 end
		 end
     end
     if alko>=6 and alko<10:
     '<center><img src="qwest/alter/ev2/tit.jpg" ></center>'
     'You are quite tipsy and has not thinking. Someone`s hands pull you into the center of the room where the dancing boys and girls. Nosov suddenly pulls off her blouse exposing you to your chest in front of the class. You have become sluggish otbivatsya and hysterical laughter pytatsya pull her blouse back on his chest. Dima takes you by the hand and drags somewhere.'
     act'hey! Where are you my taschisch?':snyqw=10&minut+=5&gt $curloc
     end
     if alko>0 and alko<6:
     '<center><img src="qwest/alter/ev2/alb.jpg" ></center>'
     'You are a little drunk and you have fun. you notice, Albina that sits on the couch and kissing Vanka Prokhorov and Fedka Kozlov paw her breasts. Looking around you notice, that Katie nowhere.'
         act'Search Katya':
		 cls
		 minut+=5
		 SeeKatBang=1
		 KatjaLust+=10
         KatjaSlut+=10
         horny+=10
		 gs'stat'
		 '<center><img src="qwest/alter/ev2/kat.jpg" ></center>'
		 'You began to walk around the apartment in search of Katie, behind one of the doors you hear women moaning and creaking beds. Looking back you a little of what he saw ofigeli. On the bed stands cancer Katka Meynold, straight into the back of her dress and furiously hammer Slavik Warriors. Katka only moans when fat cock enters her to the core and eggs beaten her pubes. Slavik finally growled finished right in Katya and fell on its side, he whispered to her "Katya, I`m in love with you for a long time, do not think, that is , I just dream vstrechatsya with you." Kate muttered something and it seems blacked.'
		 act'Go into the room':snyqw=8&minut+=5&gt $curloc
		 end
     end
     if alko=0:
     '<center><img src="qwest/alter/ev2/idi.jpg" ></center>'
     'You are quite sober look at these raging idiots that surround you.'
     act'Get_Away':gt 'gorodok'
     end
end
if snyqw=8:
'<center><img src="qwest/alter/ev2/tusa8.jpg" ></center>'
'Back in the main room, you saw, that odnoklaniki continue to thump. Albina, with Vanka and Fedka, in the room no. Girls like mad in the middle of the room and Kristinka Zvereva even let down her pants around his ass pokazavaya.'
	 act'Search Albina':
	 cls
	 minut+=5
	 horny+=10
	 seeAlbinaFuck=1
	 gs'stat'
	 '<center><img src="qwest/alter/ev2/albgang.jpg" ></center>'
	 'You began to walk around the apartment in search of Albina, behind one of the doors you hear women moaning and creaking beds. Looking back you see how Fedka and Vanka fucked hard Albina. Albina covered in sweat and smeared makeup on the face muffled groans when a member Fedka enters her throat, from what is noticeably thicker. Judging by the angle of inclination of the penis and ass Albina Vanka did not razmenivatsya to detail and pulls Albinku ass.'
	 act'Go into the room':snyqw=9&minut+=5&gt $curloc
	 end
end
if snyqw=9:
'<center><img src="qwest/alter/ev2/tusa9.jpg" ></center>'
'Virtually the entire company already census ,someone lying in the butt, who is trying to hang out. It suits you Nosov "And you`re still light on his feet? good_for_you, others are ready, let`s_go, help me with something."'
	 act'I have to go now':
	 cls
	 minut+=15
	 gs'stat'
	 'You said Dima, you have time to go.'
	 act'Get_Away':gt 'gorodok'
	 end
	 
	 act'Let`S_Go':snyqw=10&minut+=5&gt $curloc
end
if snyqw=10:
'<center><img src="qwest/alter/ev2/kiss.jpg" ></center>'
'Being alone in the room with Dima Nosov, he began to paw at your chest and sucked his lips to yours in the long slobbery kiss.'
     if NosovRevenge=1:
     dynamic $d_dima_kiss
     dynamic $d_otvali_nosov
     else
         if dimaFilm=1:
         dynamic $d_dima_kiss
         else
         dynamic $d_dima_kiss
         dynamic $d_otvali_nosov
         end
     end
     
end



--- sny ---------------------------------

# card
gs'stat'



act'pull the card':
cls

dynamic $d_slut_horny
minut+=1
gs'stat'
papkarand=rand(0,4)
if papkarand=0:$papkacard='a'
if papkarand=1:$papkacard='b'
if papkarand=2:$papkacard='c'
if papkarand=3:$papkacard='d'
if papkarand=4:$papkacard='j'
if papkarand=4:
numcard=rand(1,2)
nomcard=10
else
numcard=rand(2,14)
if numcard<10:nomcard=numcard
if numcard>=10:nomcard=10
end
'<center><img src="qwest/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg" ></center>'
'Denomination card <<nomcard>>'
act'Put in the stocks':gt $curloc
end


act'remove card':gt $loc



!act'Playing cards':gt'blackjack'
































--- card ---------------------------------

# blackjack
gs'stat'
num=1
:markcard
papkarand[num]=rand(0,4)
if papkarand[num]=0:$papkacard[num]='a'
if papkarand[num]=1:$papkacard[num]='b'
if papkarand[num]=2:$papkacard[num]='c'
if papkarand[num]=3:$papkacard[num]='d'
if papkarand[num]=4:$papkacard[num]='j'

if papkarand[num]=4:
numcard[num]=rand(1,2)
nomcard[num]=10
else
numcard[num]=rand(2,14)
if numcard[num]<10:nomcard[num]=numcard[num]
if numcard[num]>=10:nomcard[num]=10
end
num+=1
if num<10:jump'markcard'

'<center><img src="qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg" ><img src="qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg" ></center>'


sumcard=nomcard[1]+nomcard[2]
'denomination cards <<sumcard>>'

act'remove card':gt $loc

--- blackjack ---------------------------------

