Browse Source

All locations beginning with L updated to v1.1.3

heromaster 10 years ago
parent
commit
4b7ea812d5
12 changed files with 2036 additions and 2105 deletions
  1. 41 70
      locations/LCporn
  2. 79 104
      locations/LCwork
  3. 102 104
      locations/lab
  4. 216 216
      locations/lake
  5. 46 73
      locations/lakecafe
  6. 32 28
      locations/laketoilet
  7. 153 133
      locations/lesbidomhouse
  8. 58 58
      locations/lezbsex
  9. 4 4
      locations/locmansion
  10. 638 638
      locations/loker
  11. 620 620
      locations/loker2
  12. 47 57
      locations/love

+ 41 - 70
locations/LCporn

@@ -2,7 +2,7 @@
 if $ARGS[0] = 'firsttime':
 	cla
 	*clr
-	set JenyaLCfirst = 1
+	JenyaLCfirst = 1
 	gs 'stat'
 	'You walk into the kitchen, then fold into the pantry. Eugene looks at you look awkward and says:'
 	'-This may scare you a bit, but you had to someday find out ...'
@@ -12,43 +12,33 @@ if $ARGS[0] = 'firsttime':
 	act 'Proceed':
 		cla
 		*clr
-		set randlcpic = rand(1, 7)
-		!!set sex += 1
-		set sexfuta += 1
-		!!set cumass += 1
-		!!set cumpussy += 1
-		set JenyaLC += 5
-		set minut += 40
-		set $nameV = 'Zhenya'
+		randlcpic = rand(1, 7)
+		!!sex += 1
+		sexfuta += 1
+		!!cumass += 1
+		!!cumpussy += 1
+		JenyaLC += 5
+		minut += 40
+		$nameV = 'Zhenya'
 		$boy = 'Zhenya'
-		set dick = 17
-		set silavag = 1
+		dick = 17
+		silavag = 1
 		pose = 1
 		gs 'stat'
-
-		if randlcpic = 1:'<center><img src="images/LakeCafe/RandSex1/1.jpg"></center>'
-		if randlcpic = 2:'<center><img src="images/LakeCafe/RandSex1/2.jpg"></center>'
-		if randlcpic = 3:'<center><img src="images/LakeCafe/RandSex1/3.jpg"></center>'
-		if randlcpic = 4:'<center><img src="images/LakeCafe/RandSex1/4.jpg"></center>'
-		if randlcpic = 5:'<center><img src="images/LakeCafe/RandSex1/5.jpg"></center>'
-		if randlcpic = 6:'<center><img src="images/LakeCafe/RandSex1/6.jpg"></center>'
-		if randlcpic = 7:'<center><img src="images/LakeCafe/RandSex1/7.jpg"></center>'
-
-		*nl
-		*nl
+		'<center><img src="images/LakeCafe/RandSex1/<<randlcpic>>.jpg"></center>'
 		'You allow it to continue. She takes off your clothes and you lie on the mattress together.'
 		dynamic $sexudo
 		dynamic $sexcum
 
-		act 'Exit':gt 'Lakecafe', 'main'
+		act 'Leave':gt 'Lakecafe', 'main'
 	end
 
 	act 'Leave':
 		cla
 		*clr
 		'Frightened, you get away from the barbecue.'
-		set JenyaLC -= 10
-		set minut += 7
+		JenyaLC -= 10
+		minut += 7
 		gs 'stat'
 
 		act '...':gt 'nord'
@@ -59,79 +49,60 @@ if $ARGS[0] = 'sex':
 	cla
 	*clr
 	'<center><img src="images/LakeCafe/LakeFirstTime.jpg"></center>'
-	'Eugene leads you to the closet and looks at you expectantly.'
-	set randlcpic = rand(1, 7)
+	'Eugene leads you to the cloand looks at you expectantly.'
 
 	act 'Vaginal':
 		cla
 		*clr
-		set sexfuta += 1
-		set JenyaLC += 5
-		set minut += 40
-		set horand = rand(1, 100)
-		set $nameV = 'Zhenya'
+		sexfuta += 1
+		JenyaLC += 5
+		minut += 40
+		horand = rand(1, 100)
+		$nameV = 'Zhenya'
 		$boy = 'Zhenya'
-		set dick = 17
-		set silavag = 1
+		dick = 17
+		silavag = 1
 		pose = 1
-
-		if randlcpic = 1:'<center><img src="images/LakeCafe/RandSex1/1.jpg"></center>'
-		if randlcpic = 2:'<center><img src="images/LakeCafe/RandSex1/2.jpg"></center>'
-		if randlcpic = 3:'<center><img src="images/LakeCafe/RandSex1/3.jpg"></center>'
-		if randlcpic = 4:'<center><img src="images/LakeCafe/RandSex1/4.jpg"></center>'
-		if randlcpic = 5:'<center><img src="images/LakeCafe/RandSex1/5.jpg"></center>'
-		if randlcpic = 6:'<center><img src="images/LakeCafe/RandSex1/6.jpg"></center>'
-		if randlcpic = 7:'<center><img src="images/LakeCafe/RandSex1/7.jpg"></center>'
-
-		*nl
-		*nl
+		randlcpic = rand(1, 7)
+		'<center><img src="images/LakeCafe/RandSex1/<<randlcpic>>.jpg"></center>'
 		'Zhenya you undress, and then lie down on the mattress.'
 		dynamic $sexudo
 		dynamic $sexcum
 		gs 'stat'
 
-		act 'Exit':gt 'Lakecafe', 'main'
+		act 'Leave':gt 'Lakecafe', 'main'
 	end
 
 	act 'Oral':
 		cla
 		*clr
-		set bj += 1
-		set sexfuta += 1
-		set JenyaLC += 5
-		set minut += 20
-		set cumface += 1
-		set facial += 1
-		set minut += 40
-		set $nameV = 'Zhenya'
+		bj += 1
+		sexfuta += 1
+		JenyaLC += 5
+		minut += 20
+		cumface += 1
+		facial += 1
+		minut += 40
+		$nameV = 'Zhenya'
 		$boy = 'Zhenya'
-		set horand = rand(1, 100)
-
-		if randlcpic = 1:'<center><img src="images/LakeCafe/RandSex2/1.jpg"></center>'
-		if randlcpic = 2:'<center><img src="images/LakeCafe/RandSex2/2.jpg"></center>'
-		if randlcpic = 3:'<center><img src="images/LakeCafe/RandSex2/3.jpg"></center>'
-		if randlcpic = 4:'<center><img src="images/LakeCafe/RandSex2/4.jpg"></center>'
-		if randlcpic = 5:'<center><img src="images/LakeCafe/RandSex2/5.jpg"></center>'
-		if randlcpic = 6:'<center><img src="images/LakeCafe/RandSex2/6.jpg"></center>'
-		if randlcpic = 7:'<center><img src="images/LakeCafe/RandSex2/7.jpg"></center>'
-
-		*nl
-		*nl
+		horand = rand(1, 100)
+		randlcpic = rand(1, 7)
+		'<center><img src="images/LakeCafe/RandSex2/<<randlcpic>>.jpg"></center>'
 		'Zhenya undress you, then you are clasped her jaw member. Eugene takes vases by the hair and fucks you in the mouth. Groaning, Jack pulled out his cock and cum on you face, then dressed and came out of the closet.'
 		gs 'oral', '0'
 		gs 'stat'
 
-		act 'Exit':gt 'Lakecafe', 'main'
+		act 'Leave':gt 'Lakecafe', 'main'
 	end
 end
 
 if $ARGS[0] = 'toiletsex':
 	cla
 	*clr
-	set dick = 14
-	set hj += 1
+	dick = 14
+	hj += 1
 	$nameV = 'Muzhik'
-	set $boy = 'Muzhik'
+	$boy = 'Muzhik'
 	'<center><img src="images/LakeCafe/ToiletSexEnd.jpg"></center>'
 	'You came from behind and hugged the man. Going down to his cock, you started nadrachivat it. Man stopped you took my hand and led through the back door into the street. Relegating you for dustbins, he bent and began to fuck you.'
 	dynamic $sexudo

+ 79 - 104
locations/LCwork

@@ -1,27 +1,25 @@
 # LCwork
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! LC WORK 1:start
 if $ARGS[0] = 'start1':
-	set horand = rand(1, 100)+ 40
-	set facial += 1
-	set gang += 1
-	set slutty += 1
-	set anal += 1
-	set bj += 1
+	cla
+	*clr
+	horand = rand(1, 100)+ 40
+	facial += 1
+	gang += 1
+	slutty += 1
+	anal += 1
+	bj += 1
 	dynamic $venerasiak
-	set randLCpay = rand(500, 2000)
-	set minut += 140
+	randLCpay = rand(500, 2000)
+	minut += 140
 	guy += randguycafe
 
 	if vagina < 20:vagina += randguycafe
 
-	cla
-	*clr
 	'<center><img src="images/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 you to the car. During the trip they were stroking your boobs and legs, put their hands in her panties and fingers in his mouth. When you came, they stripped and put you in position. You guys ripped into all the cracks, and then obkonchali your entire body.'
 
-	if horand <= horny:Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-	if horand > horny:Set horny += 10 & 'You were not satisfied'
+	if horand <= horny:horny = 0 & orgasm += 1 & 'You covered orgasm'
+	if horand > horny:horny += 10 & 'You were not satisfied'
 
 	act '...':
 		cls
@@ -29,29 +27,25 @@ if $ARGS[0] = 'start1':
 		'They gave you wash and able to take to the house. You got for it <<randLCpay>> rubleyyu'
 		gs 'stat'
 
-		act '...':set money += randLCpay & gt 'street'
+		act '...':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 += 1
-	set slutty += 1
-	set facial += 1
-	set cumface += 1
-	set randLCpay = rand(500, 2000)
-	set minut += 140
+	horand = rand(1, 100)
+	sex += 1
+	slutty += 1
+	facial += 1
+	cumface += 1
+	randLCpay = rand(500, 2000)
+	minut += 140
 
 	if vagina < 18:vagina += 1
 
-	dynamic $venerasiak
 	guy += 1
+	dynamic $venerasiak
 	'<center><img src="images/LakeCafe/LakeWork/2a.jpg"></center>'
 	'You walk up to the old man and say that you have come to serve him. He gets up priobnimaet you and you go with him to his car. He takes you into the woods, where you stop and undresses. He spread your legs and fuck you in the pussy, then finished on your face.'
 
@@ -60,104 +54,93 @@ if $ARGS[0] = 'start2':
 
 	act '...':
 		cls
+		gs 'stat'
 		'<center><img src="images/LakeCafe/LakeWork/2b.jpg"></center>'
 		'He got into his car and drove you home. For this you got <<randLCpay>> rubles.'
-		gs 'stat'
 
-		act '...':set money += randLCpay & gt 'street'
+		act '...':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 += 1
-	set anal += 1
-	set bj += 1
-	set slutty += 1
-	set facial += 1
-	set cumface += 1
-	set cumlip += 1
-	set randLCpay = rand(500, 2000)
-	set minut += 140
-	dynamic $venerasiak
+	horand = rand(1, 100) + 20
+	sex += 1
+	anal += 1
+	bj += 1
+	slutty += 1
+	facial += 1
+	cumface += 1
+	cumlip += 1
+	randLCpay = rand(500, 2000)
+	minut += 140
 	guy += 2
 
 	if vagina < 18:vagina += 2
 
+	dynamic $venerasiak
 	'<center><img src="images/LakeCafe/LakeWork/3a.jpg"></center>'
 	'You walk up to the two guys and say you go with them today. They lead you into the car and taken to the apartment, where you fuck in all the cracks. Groaning, they got their huytsy and finished on your face.'
 
-	if horand <= horny:Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-	if horand > horny:Set horny += 10 & 'You were not satisfied'
+	if horand <= horny:horny = 0 & orgasm += 1 & 'You covered orgasm'
+	if horand > horny:horny += 10 & 'You were not satisfied'
 
 	act '...':
 		cls
+		gs 'stat'
 		'<center><img src="images/LakeCafe/LakeWork/3b.jpg"></center>'
 		'Without giving you a wash, they kicked you out of the house. For this you got <<randLCpay>> rubles.'
-		gs 'stat'
 
-		act '...':set money += randLCpay & gt 'Nord'
+		act '...':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 += 1
-	set kuni += 1
-	set gang += 1
-	set lesbian += 1
-	set anal += 1
-	set bj += 1
-	set slutty += 1
-	set cumbelly += 1
-	set randLCpay = rand(500, 2000)
-	set minut += 140
-	dynamic $venerasiak
+	horand = rand(1, 100) + 20
+	sex += 1
+	kuni += 1
+	gang += 1
+	lesbian += 1
+	anal += 1
+	bj += 1
+	slutty += 1
+	cumbelly += 1
+	randLCpay = rand(500, 2000)
+	minut += 140
 	girl += 1
 	guy += 1
 
 	if vagina < 18:vagina += 1
 
+	dynamic $venerasiak
 	'<center><img src="images/LakeCafe/LakeWork/4a.jpg"></center>'
 	'You go up to the couple and say that today serve them. They lead you to his apartment. You start with a girl every way to please the guy. After a while the man could not resist and you finished on the tummy. His girlfriend licked a little seed from your belly.'
 
-	if horand <= horny:Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-	if horand > horny:Set horny += 10 & 'You were not satisfied'
+	if horand <= horny:horny = 0 & orgasm += 1 & 'You covered orgasm'
+	if horand > horny:horny += 10 & 'You were not satisfied'
 
 	act '...':
 		cls
 		'<center><img src="images/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 += randLCpay & gt 'street'
+		act '...':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 += 1
-	set kuni += 1
-	set slutty += 1
-	set randLCpay = rand(500, 2000)
-	girl += 1
-	dynamic $venerasiak
 	cla
 	*clr
+	horand = rand(1, 100)
+	lesbian += 1
+	kuni += 1
+	slutty += 1
+	randLCpay = rand(500, 2000)
+	girl += 1
+	dynamic $venerasiak
 	'<center><img src="images/LakeCafe/LakeWork/5.jpg"></center>'
 	'You walk up to a girl and say that you are with her today. It leads you to his apartment. Girl you start to fondle each other, Suva fingers and all objects in their holes. After playing, she lets you.'
 
@@ -167,27 +150,23 @@ if $ARGS[0] = 'start5':
 	'You came out of her apartment and came to the house. For this you got <<randLCpay>> rubles.'
 	gs 'stat'
 
-	act '...':set money += randLCpay & gt 'street'
+	act '...':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 += 1
-	set hj += 1
-	set facial += 1
-	set slutty += 1
-	set randLCpay = rand(500, 2000)
+	horand = rand(1, 100)
+	sex += 1
+	hj += 1
+	facial += 1
+	slutty += 1
+	randLCpay = rand(500, 2000)
 	guy += 1
-	dynamic $venerasiak
 
 	if vagina < 18:vagina += 1
 
+	dynamic $venerasiak
 	'<center><img src="images/LakeCafe/LakeWork/6a.jpg"></center>'
 	'You go up to the fat man, and say that today serve it. He leads you to the car and drives to his house, where you fucking vagina. Groaning, he pulled out his dick and you masturbate member took semen on your face.'
 
@@ -196,32 +175,28 @@ if $ARGS[0] = 'start6':
 
 	act '...':
 		cls
+		gs 'stat'
 		'<center><img src="images/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 += randLCpay & gt 'street'
+		act '...':money += randLCpay & gt 'street'
 	end
 end
-!!LC WORK 6:end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! LC WORK KITCHEN:start
 if $ARGS[0] = 'Kitchen':
 	cla
 	*clr
-	set minut += 90
-	set LCwork2 += 1
-	set money += 175
-	set LCwork2day = day
+	minut += 90
+	LCwork2 += 1
+	money += 175
+	LCwork2day = day
 	'<center><img src="images/LakeCafe/KitchenWorkCafe.jpg"></center>'
-	*nl
 	'You wash the dishes, floors, chop vegetables, cook food for half an hour, for what you give your deserved 175 rubles.'
 
-	act '...':gt 'lakecafe', 'main'
+	act '...':
+		gs 'stat'
+		gt 'lakecafe', 'main'
+	end
 end
-!! LC WORK KITCHEN:end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 --- LCwork ---------------------------------

+ 102 - 104
locations/lab

@@ -1,19 +1,19 @@
 # lab
 if $ARGS[0] = 'start':
 	cla
-	*clr
-	set minut += 5
-	'<center><b><font color="maroon">Laboratory Karina</font></b></center>'
-	'<center><img src="images/qwest/lab.jpg"></center>'
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Laboratory Karina</font></b></center>'
+	'<center><img src="images/qwest/lab.jpg"></center>'
 
 	act 'Leave':
 		cla
-		set minut += 5
+		minut += 5
 		gt 'down'
 	end
 
@@ -30,29 +30,29 @@ if $ARGS[0] = 'start':
 	if judosparday ! day:
 		act 'Sparring (Juugo, mutant power 600)':
 			cla
-			set judosparday = day
-			set $nameV = 'Juugo'
+			judosparday = day
+			$nameV = 'Juugo'
 			!!stats
-			set strenV = 600
-			set speedV = 60
-			set agilV = 60
-			set reactV = 50
-			set vitalV = 200
-			set intelV = 50
-			set willV = 50
+			strenV = 600
+			speedV = 60
+			agilV = 60
+			reactV = 50
+			vitalV = 200
+			intelV = 50
+			willV = 50
 			!!skills
-			set magikV = 100
-			set boxingV = 100
-			set shootV = 100
+			magikV = 100
+			boxingV = 100
+			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
+			healthV = vitalV * 10 + strenV * 5
+			mannaV = intelV * 10 + magikV * 10
+			willpowerV = willV * 10
+			BonusAtakV = 0
+			BonusDefV = 0
 			!!Programme of Action
-			set program = 0
-			set jugoFight = 2
+			program = 0
+			jugoFight = 2
 			gt 'fight', 'start'
 		end
 	end
@@ -60,29 +60,29 @@ if $ARGS[0] = 'start':
 	if karinsparday ! day:
 		act 'Sparring (Karin mag6)':
 			cla
-			set karinsparday = day
-			set $nameV = 'Karin'
+			karinsparday = day
+			$nameV = 'Karin'
 			!!stats
-			set strenV = 60
-			set speedV = 100
-			set agilV = 100
-			set reactV = 60
-			set vitalV = 100
-			set intelV = 100
-			set willV = 100
+			strenV = 60
+			speedV = 100
+			agilV = 100
+			reactV = 60
+			vitalV = 100
+			intelV = 100
+			willV = 100
 			!!skills
-			set magikV = 100
-			set boxingV = 100
-			set shootV = 100
+			magikV = 100
+			boxingV = 100
+			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
+			healthV = vitalV * 10 + strenV * 5
+			mannaV = intelV * 6 + magikV * 10
+			willpowerV = willV * 10
+			BonusAtakV = 0
+			BonusDefV = 0
 			!!Programme of Action
-			set program = 4
-			set karinFight = 1
+			program = 4
+			karinFight = 1
 			gt 'fight', 'start'
 		end
 	end
@@ -90,25 +90,25 @@ end
 
 if $ARGS[0] = 'jugo':
 	cla
-	*clr
-	set minut += 5
-	'<center><b><font color="maroon">Juugo</font></b></center>'
-	'<center><img src="images/picPRE/jugoPRE.jpg"></center>'
-	'Juugo sitting on floor and looking aloof kudato in space.'
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Juugo</font></b></center>'
+	'<center><img src="images/picPRE/jugoPRE.jpg"></center>'
+	'Juugo sitting on floor and looking aloof kudato in space.'
 
 	act 'Leave':gt 'lab', 'start'
 
 	if jugoday ! day:
 		act 'Develop strength (1:00)':
 			cla
-			set stren += rand(3, 6)
-			set minut += 60
-			set jugoday = day
+			stren += rand(3, 6)
+			minut += 60
+			jugoday = day
 			'You do exercises under the guidance of Juugo.'
 
 			act 'Leave':gt 'lab', 'jugo'
@@ -116,9 +116,9 @@ if $ARGS[0] = 'jugo':
 
 		act 'Reach speeds (1:00)':
 			cla
-			set speed += rand(3, 6)
-			set minut += 60
-			set jugoday = day
+			speed += rand(3, 6)
+			minut += 60
+			jugoday = day
 			'You do exercises under the guidance of Juugo.'
 
 			act 'Leave':gt 'lab', 'jugo'
@@ -126,9 +126,9 @@ if $ARGS[0] = 'jugo':
 
 		act 'Develop agility (1:00)':
 			cla
-			set agil += rand(3, 6)
-			set minut += 60
-			set jugoday = day
+			agil += rand(3, 6)
+			minut += 60
+			jugoday = day
 			'You do exercises under the guidance of Juugo.'
 
 			act 'Leave':gt 'lab', 'jugo'
@@ -136,9 +136,9 @@ if $ARGS[0] = 'jugo':
 
 		act 'Develop reaction (1:00)':
 			cla
-			set react += rand(3, 6)
-			set minut += 60
-			set jugoday = day
+			react += rand(3, 6)
+			minut += 60
+			jugoday = day
 			'You do exercises under the guidance of Juugo.'
 
 			act 'Leave':gt 'lab', 'jugo'
@@ -146,9 +146,9 @@ if $ARGS[0] = 'jugo':
 
 		act 'Develop endurance (1:00)':
 			cla
-			set vital += rand(3, 6)
-			set minut += 60
-			set jugoday = day
+			vital += rand(3, 6)
+			minut += 60
+			jugoday = day
 			'You do exercises under the guidance of Juugo.'
 
 			act 'Leave':gt 'lab', 'jugo'
@@ -158,38 +158,38 @@ end
 
 if $ARGS[0] = 'karin':
 	cla
-	*clr
-	set minut += 5
-	'<center><b><font color="maroon">Karina</font></b></center>'
-	'<center><img src="images/picPRE/karinPRE.jpg"></center>'
-	'Karyn as always studying something.'
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Karina</font></b></center>'
+	'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+	'Karyn as always studying something.'
 
 	act 'Leave':gt 'lab', 'start'
 
-	act 'I´m too fat and do not want to get fat.':
+	act 'I''m too fat and do not want to get fat.':
 		cla
 		'(You) - Karin, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
-		'(Karin) - Ugh, that´s the same ponavylazyat downs of pussy, and then I vozis with them. Dick with you, take it. Just remember, this spell forever, you´ll be able to just come and change the waist and thighs, and since boobs are made of fat, I only supreme mercy 1st size you do, a little, shoved silicone. And the decision to reverse is or whether silicone doll or live as a man, I raskoldovyvat you will not. Since you have more fat will not be absorbed and body parameters are kept magically, marvel not at the post of dystrophy and not marvel that force will fall faster from malnutrition, you will no longer internal reserves.'
+		'(Karin) - Ugh, that''s the same ponavylazyat downs of pussy, and then I vozis with them. Dick with you, take it. Just remember, this spell forever, you''ll be able to just come and change the waist and thighs, and since boobs are made of fat, I only supreme mercy 1st size you do, a little, shoved silicone. And the decision to reverse is or whether silicone doll or live as a man, I raskoldovyvat you will not. Since you have more fat will not be absorbed and body parameters are kept magically, marvel not at the post of dystrophy and not marvel that force will fall faster from malnutrition, you will no longer internal reserves.'
 
 		act 'No no no, I changed my mind. Will continue smarter.':gt 'lab', 'karin'
 
 		act 'I would want that waist was ...':
 			cla
-			set dounspell = 1
-			set TaliaDoun = input ("Waist in inches?")
+			dounspell = 1
+			TaliaDoun = input ("Waist in cm?")
 
-			if TaliaDoun <= 0:set TaliaDoun = 20
+			if TaliaDoun <= 0:TaliaDoun = 20
 
 			act 'I would want that thighs ...':
 				cla
-				set bedraDoun = input ("Hips in inches?")
+				bedraDoun = input ("Hips in cm?")
 
-				if bedraDoun <= 0:set bedraDoun = 40
+				if bedraDoun <= 0:bedraDoun = 40
 					act 'Enjoy your stupidity.':gt 'lab', 'karin'
 				end
 			end
@@ -221,9 +221,7 @@ if $ARGS[0] = 'karin':
 					act 'Leave':gt 'lab', 'karin'
 				end
 			end
-		end
-
-		if poverKAR = 2:
+		elseif poverKAR = 2:
 			act 'Approach to Karin about attacks apartments Ivan':
 				cla
 				poverKAR = 3
@@ -236,9 +234,9 @@ if $ARGS[0] = 'karin':
 		if karinday ! day:
 			act 'Develop intelligence (1:00)':
 				cla
-				set intel += rand(3, 6)
-				set minut += 60
-				set karinday = day
+				intel += rand(3, 6)
+				minut += 60
+				karinday = day
 				'Did you do with Karin developing his intellect.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -246,9 +244,9 @@ if $ARGS[0] = 'karin':
 
 			act 'Will develop (1:00)':
 				cla
-				set will += rand(3, 6)
-				set minut += 60
-				set karinday = day
+				will += rand(3, 6)
+				minut += 60
+				karinday = day
 				'Did you do with Karin developing his intellect.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -258,8 +256,8 @@ if $ARGS[0] = 'karin':
 		if spelltuman = 0 and magik >= 1:
 			act 'Learn technique fog (1:00)':
 				cla
-				set minut += 60
-				set spelltuman = 1
+				minut += 60
+				spelltuman = 1
 				'You learned the technique call fog in battle.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -269,8 +267,8 @@ if $ARGS[0] = 'karin':
 		if spellklon = 0 and magik >= 1:
 			act 'Learn technique protection cloning (1:00)':
 				cla
-				set minut += 60
-				set spellklon = 1
+				minut += 60
+				spellklon = 1
 				'You learned the technique of substitution clone themselves in battle.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -280,8 +278,8 @@ if $ARGS[0] = 'karin':
 		if spellstun = 0 and magik >= 2:
 			act 'Learn technique paralysis (1:00)':
 				cla
-				set minut += 60
-				set spellstun = 1
+				minut += 60
+				spellstun = 1
 				'You learned the technique of paralyzing the enemy.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -291,8 +289,8 @@ if $ARGS[0] = 'karin':
 		if spellwind = 0 and magik >= 2:
 			act 'Learn mist blowing (1:00)':
 				cla
-				set minut += 60
-				set spellwind = 1
+				minut += 60
+				spellwind = 1
 				'You learned the technique of blowing mist.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -302,8 +300,8 @@ if $ARGS[0] = 'karin':
 		if spellklon2 = 0 and magik >= 2:
 			act 'Learn triple cloning (1:00)':
 				cla
-				set minut += 60
-				set spellklon2 = 1
+				minut += 60
+				spellklon2 = 1
 				'You learned the technique Troynova cloning.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -313,8 +311,8 @@ if $ARGS[0] = 'karin':
 		if spellenergo = 0 and magik >= 3:
 			act 'Learn energoschit (1:00)':
 				cla
-				set minut += 60
-				set spellenergo = 1
+				minut += 60
+				spellenergo = 1
 				'You learned the technique energoschita.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -324,8 +322,8 @@ if $ARGS[0] = 'karin':
 		if spellinit = 0 and magik >= 3:
 			act 'Learn technique deceleration time (1:00)':
 				cla
-				set minut += 60
-				set spellinit = 1
+				minut += 60
+				spellinit = 1
 				'You learned the technique of time dilation.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -336,8 +334,8 @@ if $ARGS[0] = 'karin':
 			!!'With this level of magic I can not teach you anymore.'
 				act 'Learn the technique of treatment (1:00)':
 				cla
-				set minut += 60
-				set spellhel = 1
+				minut += 60
+				spellhel = 1
 				'You learned the technique of treatment.'
 
 				act 'Leave':gt 'lab', 'karin'
@@ -347,8 +345,8 @@ if $ARGS[0] = 'karin':
 	if magik >= 5 and spellavtoklon = 0:
 		act 'Learn technique avtoklonirovaniya (1:00)':
 			cla
-			set minut += 60
-			set spellavtoklon = 1
+			minut += 60
+			spellavtoklon = 1
 			'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
 
 			act 'Leave':gt 'lab', 'karin'
@@ -358,8 +356,8 @@ if $ARGS[0] = 'karin':
 	if magik >= 6 and spellbefshild = 0:
 		act 'Learn technique prior Shield (1:00)':
 			cla
-			set minut += 60
-			set spellbefshild = 1
+			minut += 60
+			spellbefshild = 1
 			'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
 
 			act 'Leave':gt 'lab', 'karin'

File diff suppressed because it is too large
+ 216 - 216
locations/lake


+ 46 - 73
locations/lakecafe

@@ -2,14 +2,11 @@
 if $ARGS[0] = 'main':
 	cla
 	*clr
+	barrnd = rand(1, 3)
+	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
-	gs 'stat'
-	set barrnd = rand(1, 3)
-	!!LCWorkRand = rand(1, 6)
 	'<center><img src="images/LakeCafe/LakeCafe.jpg"></center>'
-	*nl
-	*nl
 	'Naiobyknovenneyshaya barbecue, of which there are many in the vast country.'
 	'The cost of lunch - 75 rubles'
 	'Opening hours cafe - 14:00 to 04:00'
@@ -20,9 +17,7 @@ if $ARGS[0] = 'main':
 			if barrnd = 1:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and polishes glasses'
 			if barrnd = 2:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and wipes the table'
 			if barrnd = 3:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and something mixes'
-		end
-
-		if barmenshameet = 1:
+		elseif barmenshameet = 1:
 			if barrnd = 1:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Gene</a> and polishes glasses'
 			if barrnd = 2:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Gene</a> table and rubs'
 			if barrnd = 3:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Gene</a> and something mixes'
@@ -34,74 +29,58 @@ if $ARGS[0] = 'main':
 
 				if LCwork = 0:'One of the tables sits a group of men and drinks, talking loudly and laughing.'
 				if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start1''"><<randguycafe>> men</a> and drinks, talking loudly and laughing.'
-			end
-
-			if LCWorkRand = 2:
+			elseif LCWorkRand = 2:
 				if LCwork = 0:'One of the tables sits an older man and eating barbecue.'
 				if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start2''">an older man</a> and eating barbecue.'
-			end
-
-			if LCWorkRand = 3:
+			elseif LCWorkRand = 3:
 				if LCwork = 0:'One of the tables sit two men and a drink.'
 				if LCwork = 1:'One of the tables sit <a href="exec:gt ''LCwork'', ''start3''">two men</a> and drink.'
-			end
-
-			if LCWorkRand = 4:
+			elseif LCWorkRand = 4:
 				if LCwork = 0:'One of the tables sit a guy with a girl and talk about something.'
 				if LCwork = 1:'One of the tables sit <a href="exec:gt ''LCwork'', ''start4''">boy and girl</a> and talk about something.'
-			end
-
-			if LCWorkRand = 5:
+			elseif LCWorkRand = 5:
 				if LCwork = 0:'One of the tables sits a girl, and dining.'
 				if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start5''">girl</a>, and dining.'
-			end
-
-			if LCWorkRand = 6:
+			elseif LCWorkRand = 6:
 				if LCwork = 0:'One of the tables sits a fat man and talking on the phone.'
 				if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start6''">fat man</a> and talking on the phone.'
 			end
 		end
 
-		*nl
 		'- <a href="exec:gt ''laketoilet'', ''main''">Toilet</a>'
 
 		if money >= 75:
 			act 'Eat 75 rubles':
 				cla
 				*clr
-
-				act 'Get up from the table':set minut += 20 & gt 'lakecafe', 'main'
-
+				minut += 30
+				health += 10
+				money -= 75
+				manna += 5
+				willpower += 5
 				'<center><img src="images/pics/food.jpg"></center>'
-				set minut += 30
-				set health += 10
-				set money -= 75
-				set manna += 5
-				set willpower += 5
 
 				if energy >= 30:
-						set fat += 5
-						'You can no longer have.'
-				end
-
-				if energy >= 20 and energy < 30:
-					set fat += 3
-					set energy += 10
+						fat += 5
+						'You can no longer eat.'
+				elseif energy >= 20 and energy < 30:
+					fat += 3
+					energy += 10
 					'You pushed through the power of a meal.'
-				end
-
-				if energy < 20:
-					set energy += 20
-					set fat += 1
+				elseif energy < 20:
+					energy += 20
+					fat += 1
 					'You gladly ate the food.'
 				end
 
-				if water >= 20:'Tea in you no longer climbs.'
-
-				if water < 20:
+				if water >= 20:
+					'You don''t need any more tea.'
+				elseif water < 20:
+					water += 20
 					'You gladly drank a mug of tea.'
-					set water += 20
 				end
+
+				act 'Get up from the table':minut += 20 & gt 'lakecafe', 'main'
 			end
 		end
 	end
@@ -110,22 +89,18 @@ if $ARGS[0] = 'main':
 		act 'Help in the kitchen':gt 'LCwork', 'Kitchen'
 	end
 
-	act 'Leave':set minut += 2 & gt 'nord'
+	act 'Leave':minut += 2 & gt 'nord'
 end
 
 if $ARGS[0] = 'barmensha':
 	cls
 	gs 'stat'
 	'<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
-	*nl
-	*nl
 
 	if barmenshameet = 0:
 		'The bartender looked at your eyes and, with a smile, asked:'
 		'-Would that something?'
-	end
-
-	if barmenshameet = 1:
+	elseif barmenshameet = 1:
 		'Eugene smiled, when you come to it'
 		'Hi! - She said with a smile'
 	end
@@ -135,9 +110,9 @@ if $ARGS[0] = 'barmensha':
 			act 'Chat':
 				cla
 				*clr
-				set barmenshameet = 1
-				set JenyaLC = 10
-				set minut += 30
+				barmenshameet = 1
+				JenyaLC = 10
+				minut += 30
 				gs 'stat'
 				'<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
 				'You chatted with bartender. During the conversation, you found out that her name is Eugene and it works here with his girlfriend, Angela, in which a cook on the barbecue.'
@@ -151,9 +126,9 @@ if $ARGS[0] = 'barmensha':
 				cla
 				*clr
 
-				if JenyaLC < 60:set JenyaLC += 3
+				if JenyaLC < 60:JenyaLC += 3
 
-				set minut += 30
+				minut += 30
 				gs 'stat'
 				'<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
 				'You talk about the affairs of Zhenya, work, life and all sorts of trivia.'
@@ -166,7 +141,7 @@ if $ARGS[0] = 'barmensha':
 			act 'Flirt':
 				cla
 				*clr
-				set minut += 10
+				minut += 10
 				gs 'stat'
 				'<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
 				'You chat with Eugene, making it ambiguous hints. Eugene seems to understand you and invites you to go for it. You agree to abide with her to the kitchen.'
@@ -186,18 +161,18 @@ if $ARGS[0] = 'barmensha':
 
 				if LCworkwork2 < 1:
 					'You ask about the work of Eugene. She tells you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, during which you will be paid 175 rubles.'
-					set LCworkwork2 = 1
-					set LCwork2 = 1
+					LCworkwork2 = 1
+					LCwork2 = 1
 
 					act '...':
-						set minut += 4
+						minut += 4
 						gt 'lakecafe', 'barmensha'
 					end
 				else
 					'You ask about the work of Eugene. It reminds you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, get paid 175 rubles.'
 
 					act '...':
-						set minut += 4
+						minut += 4
 						gt 'lakecafe', 'barmensha'
 					end
 				end
@@ -211,21 +186,19 @@ if $ARGS[0] = 'barmensha':
 				'<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
 
 				if LCworkwork = 0:
-					'You ask Zhenyu about the "special" work. It tells you that on Monday, at 22 o´clock, in the cafe visitors who need quality "service." Pay from 500 to 2, 000 rubles.'
+					'You ask Zhenyu about the "special" work. It tells you that on Monday, at 22 o''clock, in the cafe visitors who need quality "service." Pay from 500 to 2, 000 rubles.'
 
 					act '...':
-						set LCworkwork = 1
-						set LCwork = 1
-						set minut += 4
+						LCworkwork = 1
+						LCwork = 1
+						minut += 4
 						gt 'lakecafe', 'barmensha'
 					end
-				end
-
-				if LCworkwork = 1:
-					'You ask about the work of Eugene. It reminds you of conditions:on Mondays, at 22 o´clock, you will need to "serve" certain visitors. Paid for it from 500 to 2000 rubles.'
+				elseif LCworkwork = 1:
+					'You ask about the work of Eugene. It reminds you of conditions:on Mondays, at 22 o''clock, you will need to "serve" certain visitors. Paid for it from 500 to 2000 rubles.'
 
 					act '...':
-						set minut += 3
+						minut += 3
 						gt 'lakecafe', 'barmensha'
 					end
 				end

+ 32 - 28
locations/laketoilet

@@ -1,30 +1,28 @@
 # laketoilet
-set LCtoiletiventrand = rand(1, 100)
-
 if $ARGS[0] = 'main':
 	cla
 	*clr
+	LCtoiletiventrand = rand(1, 100)
 
-	if hour < 4 and LCtoiletiventrand >= 83 and LCtoiletivent = 0:
+	if hour < 4 and LCtoiletiventrand >= 83:
 		'<center><img src="images/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 'Off the toilet':gt 'lakecafe', 'main'
 	else
-		'<center><img src="images/LakeCafe/Toilet.jpg"></center>'
-		'Dirty and smelly toilet that seems to have never been cleaned'
 		clr
 		gs 'stat'
+		'<center><img src="images/LakeCafe/Toilet.jpg"></center>'
+		'Dirty and smelly toilet that seems to have never been cleaned'
 
 		if tanga = 1:
 			act 'Remove Underwear':
 				cla
-				set tanga = 0
+				tanga = 0
 				gt 'laketoilet', 'main'
 			end
 		end
@@ -32,8 +30,8 @@ if $ARGS[0] = 'main':
 		act 'Look in the mirror':
 			cla
 			gs 'portmirror'
-			set $gt1 = 'laketoilet'
-			set $gt2 = 'main'
+			$gt1 = 'laketoilet'
+			$gt2 = 'main'
 			dynamic $portmirror
 
 			act 'Move away from the mirror':
@@ -45,15 +43,22 @@ if $ARGS[0] = 'main':
 		!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
 		!!Removed sweat =- 1 when cum is wiped off clothes
 		!!clrbelo: Amount of clean panties available
-		if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
+		if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
 			act 'Quick wash (0:15)':
 				cla
 				*clr
+
+				if clrbelo > 0 and tanga = 1:
+					clrbelo -= 1
+					dirtbelo += 1
+				elseif clrbelo = 0 and tanga = 1:
+					tanga = 0
+					dirtbelo += 1
+				end
+
 				dynamic $showerdin
-				set sweat -= 1
-				set minut += 15
-				set clrbelo -= 1
-				set dirtbelo += 1
+				sweat -= 1
+				minut += 15
 				'<center><img src="images/pics/wash5.jpg"></center>'
 				'You gave yourself a catlick, thus removing any traces of cum.'
 
@@ -65,11 +70,10 @@ if $ARGS[0] = 'main':
 			act 'Clean your face from sperm (0:05)':
 				cla
 				*clr
-				set mop = 1
-				set cumlip = 0
-				set cumface = 0
-				set sweat -= 1
-				set minut += 5
+				cumlip = 0
+				cumface = 0
+				sweat -= 1
+				minut += 5
 				'<center><img src="images/etogame/facesp.jpg"></center>'
 				'You clean your face and got rid of any trace of cum.'
 
@@ -81,12 +85,12 @@ if $ARGS[0] = 'main':
 			act 'Wipe the cum off your clothes (0:10)':
 				cla
 				*clr
-				set cumfrot = 0
-				set minut += 10
-				!!'<center><img src="images/etogame/frotsp.jpg"></center>'
+				cumfrot = 0
+				minut += 10
+				'<center><img src="images/pic/frotsp.jpg"></center>'
 				'You remove traces of cum from your clothes.'
 
-				act 'Finish':gt 'laketoilet', 'main'
+				act 'Finish':dynamic $kafetualet
 			end
 		end
 		!!
@@ -95,14 +99,14 @@ if $ARGS[0] = 'main':
 			act 'Use a tampon (0:05)':
 				cla
 				*clr
-				set tampon -= 1
-				set isprok = 1
-				set minut += 5
-				set manna -= 5
+				tampon -= 1
+				isprok = 1
+				minut += 5
+				manna -= 5
 				'<center><img src="images/pics/wash3.jpg"></center>'
 				'You use a tampon.'
 
-				act 'Finish':gt 'laketoilet', 'main'
+				act 'Finish':dynamic $kafetualet
 			end
 		end
 

+ 153 - 133
locations/lesbidomhouse

@@ -4,8 +4,8 @@ gs 'stat'
 if $ARGS[0] = 'start':
 	cla
 	*clr
-	set minut += 5
-	set lesrand = rand(1, 3)
+	minut += 5
+	lesrand = rand(1, 3)
 	clr
 	gs 'stat'
 
@@ -13,9 +13,7 @@ if $ARGS[0] = 'start':
 		'You called, but the door no one answered you. To re-call too, no one responded'
 
 		act 'Leave':gt 'street'
-	end
-
-	if lesrand >= 2:
+	else
 		'You rang the doorbell several times. Once you opened the third.'
 
 		act 'Stop by':gt 'lesbidomhouse', 'ev1'
@@ -26,13 +24,13 @@ end
 if $ARGS[0] = 'ev1':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'Rang the doorbell.'
 	'You do not open and you want to leave, but the desire to learn povelevaniyu girls overpower you and you called again.'
 	'And finally you have opened.'
 	'-Hello - told <<$name>>'
-	'Ah, it´s you, the lady said dismissively, come.'
+	'Ah, it''s you, the lady said dismissively, come.'
 
 	act 'Stop by':gt 'lesbidomhouse', 'ev2'
 end
@@ -40,7 +38,7 @@ end
 if $ARGS[0] = 'ev2':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><img src="images/etogame/irinaroom.jpg"></center>'
 	'You looked around the apartment was very clean, but it did not cause comfort.'
 	'How something is not cozy at you - you said, and immediately met with a cold stare ladies.'
@@ -60,14 +58,14 @@ end
 if $ARGS[0] = 'ev3':
 	cla
 	*clr
-	set minut += 5
-	set lesbiqw = -1
+	minut += 5
+	lesbiQW = -1
 
-	if dom > 0:set dom += 5
-	if sub > 0:set sub -= 5
+	if dom > 0:dom += 5
+	if sub > 0:sub -= 5
 
 	'<center><img src="images/qwest/pnx.jpg"></center>'
-	'You´ve decided that she wants to make you a slave and nothing more, so you yell at the woman and went'
+	'You''ve decided that she wants to make you a slave and nothing more, so you yell at the woman and went'
 
 	act 'Leave':gt 'street'
 end
@@ -75,12 +73,12 @@ end
 if $ARGS[0] = 'ev4':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'You think she wants to make you a slave, not to teach. But still did not say anything.'
 	'-good hostess. And where do we start my training?'
 	'-The first thing is not to hurry. You should know well the victim. For example, to begin with, have a drink and rub in credibility. With this'
-	'and start, you´ll be the object on which I´ll show you all my tricks.'
+	'and start, you''ll be the object on which I''ll show you all my tricks.'
 
 	act 'Play on':gt 'lesbidomhouse', 'ev5'
 end
@@ -88,7 +86,7 @@ end
 if $ARGS[0] = 'ev5':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><img src="images/qwest/zst.jpg"></center>'
 	'You agreed, went into the room where there were already cooked drinking and snack.'
 
@@ -98,19 +96,24 @@ end
 if $ARGS[0] = 'ev6':
 	cla
 	*clr
-	set hour += 23
-	set minut += 5
-	set lesbiqw = 3
+	hour += 23
+	minut += 5
+	lesbiQW = 3
 	'<center><img src="images/qwest/zst.jpg"></center>'
 	'You started drinking and soon your stiffness and uncertainty disappeared and you began to tell his adventures Mistress, '
 	'how much you guys have many times given in the ass as otsasali and drinking even told that sex was even'
 	'unfamiliar guys in clubs and other park and your adventures.'
 	'End drunk you decided 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
-	if anal >= oral and anal >= sex:set callnm = 2
-	if Sex >= oral and Sex >= anal:set callnm = 3
-	if vaf >= 100:set callnm = 4
+	if oral >= anal and oral >= sex:
+		callnm = 1
+	elseif anal >= oral and anal >= sex:
+		callnm = 2
+	elseif sex >= oral and sex >= anal:
+		callnm = 3
+	elseif vaf >= 100:
+		callnm = 4
+	end
 
 	act 'Go home':gt 'korr'
 end
@@ -118,8 +121,8 @@ end
 if $ARGS[0] = 'start1':
 	cla
 	*clr
-	set minut += 5
-	set lesrand = rand(1, 3)
+	minut += 5
+	lesrand = rand(1, 3)
 	clr
 	gs 'stat'
 
@@ -140,7 +143,7 @@ end
 if $ARGS[0] = 'ev7':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'You decided to go to, hmmm, Mistress? find out whether there was something to be ashamed of yesterday and what lesson you should train'
 	'had to endure? as you remember little from that day.'
@@ -151,12 +154,17 @@ end
 if $ARGS[0] = 'ev8':
 	cla
 	*clr
-	set minut += 5
-
-	if callnm = 1:$callnm = 'nipple'
-	if callnm = 2:$callnm = 'analschitsa'
-	if callnm = 3:$callnm = 'davalka'
-	if callnm = 4:$callnm = 'spermoedka'
+	minut += 5
+
+	if callnm = 1:
+		$callnm = 'nipple'
+	elseif callnm = 2:
+		$callnm = 'analschitsa'
+	elseif callnm = 3:
+		$callnm = 'davalka'
+	elseif callnm = 4:
+		$callnm = 'spermoedka'
+	end
 
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'-Hello, Mistress.'
@@ -171,19 +179,24 @@ end
 if $ARGS[0] = 'ev9':
 	cla
 	*clr
-	set minut += 5
-
-	if callnm = 1:$callnm = 'nipple'
-	if callnm = 2:$callnm = 'analschitsa'
-	if callnm = 3:$callnm = 'davalka'
-	if callnm = 4:$callnm = 'spermoedka'
+	minut += 5
+
+	if callnm = 1:
+		$callnm = 'nipple'
+	elseif callnm = 2:
+		$callnm = 'analschitsa'
+	elseif callnm = 3:
+		$callnm = 'davalka'
+	elseif callnm = 4:
+		$callnm = 'spermoedka'
+	end
 
 	'-No, you should feel on their skin all <<$callnm>>'
-	'-Continue training. If what you know about the girl, touches her, I believe that it´s yours. Make it do what it'
+	'-Continue training. If what you know about the girl, touches her, I believe that it''s yours. Make it do what it'
 	'loves most.'
-	'-but if she loves anal and eblyu members or suck and swallow cum, I´ll make her do it? I havent a member and I do not'
+	'-but if she loves anal and eblyu members or suck and swallow cum, I''ll make her do it? I havent a member and I do not'
 	'any thread is fantasy feet.'
-	'On this account, do not worry, I´ll give you (maybe) a special strap, he may issue streams of sperm.'
+	'On this account, do not worry, I''ll give you (maybe) a special strap, he may issue streams of sperm.'
 
 	act 'Try to ask':gt 'lesbidomhouse', 'ev10'
 end
@@ -191,7 +204,7 @@ end
 if $ARGS[0] = 'ev10':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'On and I did not know about these, you can try it on?'
 	'-Not yet, I told you, first you try everything on myself.'
 	'-Well - you said uncertainly.'
@@ -203,13 +216,17 @@ end
 if $ARGS[0] = 'ev10a':
 	cla
 	*clr
-	set minut += 35
-	set horny = 95
+	minut += 35
+	horny = 95
 	'<center><img src="images/qwest/lesbi2.jpg"></center>'
 
-	if callnm = 1 or callnm = 4:'Hostess beginning you have. First, it made you suck plastic cock and then shoved a plastic dick in your throat and began shamelessly fuck you there. You were close to the peak of pleasure as hostess suddenly stopped.'
-	if callnm = 2:'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly fuck your pussy. You were close to the peak of pleasure as hostess suddenly stopped.'
-	if callnm = 3:'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly nasilovt your ass. You were close to the peak of pleasure as hostess suddenly stopped.'
+	if callnm = 1 or callnm = 4:
+		'Hostess beginning you have. First, it made you suck plastic cock and then shoved a plastic dick in your throat and began shamelessly fuck you there. You were close to the peak of pleasure as hostess suddenly stopped.'
+	elseif callnm = 2:
+		'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly fuck your pussy. You were close to the peak of pleasure as hostess suddenly stopped.'
+	elseif callnm = 3:
+		'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly nasilovt your ass. You were close to the peak of pleasure as hostess suddenly stopped.'
+	end
 
 	act 'Indignant':gt 'lesbidomhouse', 'ev11'
 end
@@ -217,15 +234,15 @@ end
 if $ARGS[0] = 'ev11':
 	cla
 	*clr
-	set minut += 5
-	set lesbiqw = 4
-	set sub += 2
-	set lesbian += 1
+	minut += 5
+	lesbiqw = 4
+	sub += 2
+	lesbian += 1
 
 	if ldmistresex = 0:ldmistresex = 1 & girl += 1
 
-	set lesbiday = day
-	'Well, I´m almost finished - you moaned.'
+	lesbiday = day
+	'Well, I''m almost finished - you moaned.'
 	'-Next lesson - do not let the girl that she has not earned it. Want to come? Please lick my pussy.'
 	'You started with a zeal to lick pussy Mistress, resignedly and without question.'
 	'After due pleasure hostess put her hand on your head and let down your tongue to her anus.'
@@ -237,11 +254,11 @@ end
 if $ARGS[0] = 'ev12':
 	cla
 	*clr
-	set minut += 5
-	'Fu, he´s not washed, then callas - you started to step back.'
+	minut += 5
+	'Fu, he''s not washed, then callas - you started to step back.'
 	'Requirements should not be easy, otherwise the girl will not be so submissive. But then it will wait for a very good encouragement.'
 	act 'Leave':
-		set lesbiqw = -1
+		lesbiQW = -1
 		gt 'street'
 	end
 
@@ -251,10 +268,10 @@ end
 if $ARGS[0] = 'ev13':
 	cla
 	*clr
-	set anllick += 1
-	set anllicka += 1
-	set minut += 5
-	set energy += 1
+	anllick += 1
+	anllicka += 1
+	minut += 5
+	energy += 1
 	'<center><img src="images/qwest/lesbi3.jpg"></center>'
 	'You reluctantly began to lick the anus Mistress. You almost puked, but more excitement and a desire to know what kind of reward awaits her after forced you to continue.'
 	'Mistress of all shuddered, grabbing you by the hair. She finished.'
@@ -264,7 +281,7 @@ if $ARGS[0] = 'ev13':
 	act 'Uncomprehending look':gt 'lesbidomhouse', 'ev14'
 
 	act 'Leave':
-		set lesbiqw = -1
+		lesbiQW = -1
 		gt 'street'
 	end
 end
@@ -272,11 +289,11 @@ end
 if $ARGS[0] = 'ev14':
 	cla
 	*clr
-	set lesbiqw = 5
+	lesbiQW = 5
 	'<center><img src="images/qwest/lesbi9.jpg"></center>'
 	'-Chtoooo? You told me then that will be rewarded!'
 	'-This is another lesson, the girl can not give awards at once. She must understand that to get something not so easy. All go.'
-	'I´ll meet you tomorrow!'
+	'I''ll meet you tomorrow!'
 
 	act 'Leave':gt 'street'
 end
@@ -284,15 +301,20 @@ end
 if $ARGS[0] = 'ev15':
 	cla
 	*clr
-	set lesbiday = day
-	set minut += 30
-	'-Come, '
-
-	if callnm = 1:'nipple'
-	if callnm = 2:'analschitsa'
-	if callnm = 3:'davalka'
-	if callnm = 4:'spermoedka'
+	lesbiday = day
+	minut += 30
+
+	if callnm = 1:
+		'nipple'
+	elseif callnm = 2:
+		'analschitsa'
+	elseif callnm = 3:
+		'davalka'
+	elseif callnm = 4:'
+		spermoedka'
+	end
 
+	'-Come, <<$callnm>>'
 	'-Hello, Mistress.'
 	'-Well, you know what to do to get the reward.'
 
@@ -302,15 +324,15 @@ end
 if $ARGS[0] = 'ev16':
 	cla
 	*clr
-	set minut += 5
-	set anllick += 1
-	set anllicka += 1
-	set horny += 20
-	set energy += 1
+	minut += 5
+	anllick += 1
+	anllicka += 1
+	horny += 20
+	energy += 1
 	'<center><img src="images/qwest/lesbi4.jpg"></center>'
 	'You began to lick pussy Mistress first and then unwashed anus ... you could not understand why, but you start to like it.'
 	'When the hostess enjoyed in abundance, she stood up and said:'
-	'-Well, slut, and now it´s time to reward you.'
+	'-Well, slut, and now it''s time to reward you.'
 	'-And what is the reward? - <<$name>> did not even resent her so called, just so she felt.'
 	'Get up-cancer.'
 
@@ -320,8 +342,8 @@ end
 if $ARGS[0] = 'ev17':
 	cla
 	*clr
-	set minut += 5
-	set horny = 95
+	minut += 5
+	horny = 95
 	'<center><img src="images/qwest/lesbi5.jpg"></center>'
 	'You, in anticipation of bliss, got on all fours and relaxed.'
 	'First pussy entered one finger and began to move her.'
@@ -339,9 +361,9 @@ end
 if $ARGS[0] = 'ev18':
 	cla
 	*clr
-	set horny = 0
-	set minut += 5
-	set lesbiqw = 6
+	horny = 0
+	minut += 5
+	lesbiQW = 6
 	'<center><img src="images/qwest/pnx.jpg"></center>'
 	'-Fuck you, pervert crappy!! and is a reward for your fucking ass! Fuck you!'
 	'You grabbed clothes and rushed naked in his apartment.'
@@ -352,13 +374,13 @@ end
 if $ARGS[0] = 'ev19':
 	cla
 	*clr
-	set minut += 5
-	set lesbiqw = 7
-	set sub += 5
-	set vagina += 5
-	set lesbian += 1
-	set horny = 5
-	set orgasm += 1
+	minut += 5
+	lesbiQW = 7
+	sub += 5
+	vagina += 5
+	lesbian += 1
+	horny = 5
+	orgasm += 1
 	'<center><img src="images/qwest/lesbi6.jpg"></center>'
 	'You were wildly painful, but you, no matter what, suffered pain. Even the tears gushed from his eyes. But the hostess continued to move his hand, and you did not even know that your pussy can get into a fist. But in the end, you even felt like it, and you hit an orgasm.'
 
@@ -369,11 +391,11 @@ end
 if $ARGS[0] = 'ev20':
 	cla
 	*clr
-	set lesbiqw = 8
-	set minut += 3
+	lesbiQW = 8
+	minut += 3
 	'<center><img src="images/qwest/lesbi4.jpg"></center>'
 	'You have got to the vagina mistress, so thank her for such a powerful orgasm, which she grinned and said:'
-	'"And you´re a quick study, Svetsik Do you just learn, or you just like to do whatever you ordered?"'
+	'"And you''re a quick study, <<$name>> Do you just learn, or you just like to do whatever you ordered?"'
 
 	act 'Indignant':gt 'lesbidomhouse', 'ev18'
 	act 'Silently licking pussy':gt 'lesbidomhouse', 'ev21'
@@ -382,10 +404,10 @@ end
 if $ARGS[0] = 'ev21':
 	cla
 	*clr
-	set lesbiqw = 9
-	set sub += 5
-	set lesbian += 1
-	set minut += 30
+	lesbiQW = 9
+	sub += 5
+	lesbian += 1
+	minut += 30
 	'<center><img src="images/qwest/lesbi4.jpg"></center>'
 	'After a few minutes of work vvash skillful tongue, Mistress shuddered in orgasm. You said nothing, got up and went home'
 
@@ -395,8 +417,8 @@ end
 if $ARGS[0] = 'ev22':
 	cla
 	*clr
-	set minut += 5
-	set horny += 50
+	minut += 5
+	horny += 50
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'By thought, "fuck this bitch." But after all the stairs, remembered how dirty ass licked and how do you like it ...'
 	'Damn, she used me, and not taught ... And to hell with it ..'
@@ -414,13 +436,13 @@ end
 if $ARGS[0] = 'ev23':
 	cla
 	*clr
-	set lesbiday = day
-	set lesbiqw = 8
-	set sub += 1
-	set lesbian += 1
-	set minut += 30
-	set anllick += 1
-	set anllicka += 1
+	lesbiday = day
+	lesbiQW = 8
+	sub += 1
+	lesbian += 1
+	minut += 30
+	anllick += 1
+	anllicka += 1
 	'<center><img src="images/qwest/lesbi7.jpg"></center>'
 	'You have again started to lick Mistress of all places and you will definitely like it.'
 
@@ -434,12 +456,12 @@ 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
+	minut += 5
+	goldenrain += 1
+	goldenraina += 1
+	orgasm += 1
+	horny += 5
+	water += 1
 	'<center><img src="images/qwest/lesbi8.jpg"></center>'
 	'Mistress stood over you and start writing your mouth. Urine hit all over the face, mouth and body.'
 	'You covered indescribable orgasm seems like you become obey.'
@@ -451,8 +473,8 @@ end
 if $ARGS[0] = 'ev25':
 	cla
 	*clr
-	set minut += 5
-	set horny += 25
+	minut += 5
+	horny += 25
 	'<center><img src="images/qwest/lesbi.jpg"></center>'
 	'You came to the hostess for a new portion of fisting, but she said that you did very poorly, without thanking her, and so do not get anything.'
 	'Strange, but such a ban have filed nly'
@@ -463,8 +485,8 @@ end
 if $ARGS[0] = 'ev26':
 	cla
 	*clr
-	set minut += 5
-	set horny += 25
+	minut += 5
+	horny += 25
 	'<center><img src="images/qwest/lesbi10.jpg"></center>'
 	'To start the hostess took off panties (smell of a dirty hit out of the vagina), and ordered you to do regular work tab.'
 
@@ -474,30 +496,28 @@ end
 if $ARGS[0] = 'ev28':
 	cla
 	*clr
-	set minut += 5
-	set horny += 25
-	set lesbiday = day
-	set energy += 1
+	minut += 5
+	horny += 25
+	lesbiday = day
+	energy += 1
 	'<center><img src="images/qwest/lesbi11.jpg"></center>'
 	'You came to the hostess for a new portion of feces and golden rain, among other things - her pussy licked'
-	set lrnd = rand(1, 10)
+	lrnd = rand(1, 10)
 
 	if lrnd > 7:
 		'During all these perversions you covered orgasm'
-		set orgasm += 1
-	end
-
-	if lrnd <= 7:
-		set horny += 75
+		orgasm += 1
+	elseif lrnd <= 7:
+		horny += 75
 		'Unfortunately, you do not get an orgasm, but very excited.'
 	end
 
-	set goldenrain += 1
-	set goldenraina += 1
-	set anllick += 1
-	set anllicka += 1
-	set lesbian += 1
-	set lesbimeet += 1
+	goldenrain += 1
+	goldenraina += 1
+	anllick += 1
+	anllicka += 1
+	lesbian += 1
+	lesbimeet += 1
 
 	act 'Leave':gt 'street'
 end
@@ -505,8 +525,8 @@ end
 if $ARGS[0] = 'ev29':
 	cla
 	*clr
-	set minut += 5
-	set horny += 25
+	minut += 5
+	horny += 25
 	'<center><img src="images/qwest/lesbi3.jpg"></center>'
 	'You came to the hostess once again to lick her all that you can, but she said that she had a small gift for such a nice girl like you, but the tongue to start work will still have to'
 

+ 58 - 58
locations/lezbsex

@@ -1,13 +1,13 @@
 # lezbsex
 if $ARGS[0] = 'start':
 	gs 'stat'
-	set picrand = rand(0, 1)
-	set girl += 1
-	set lesbian += 1
+	girl += 1
+	lesbian += 1
+	picrand = rand(0, 1)
 
 	if tanznak = 1:
-		set picrand = 12
-		set tanznak = 2
+		picrand = 12
+		tanznak = 2
 	end
 
 	xgt 'lezbsex', 'var'
@@ -41,15 +41,14 @@ end
 if $ARGS[0] = 'ukuni':
 	cla
 	*clr
-
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/ukuni<<picrand>>.jpg"></center>'
 	'You kiss her breasts moving eventually going down lower and lower and now its current before you pussy, you begin to caress her tongue sponges, setting the stage for his tongue between them touch the clitoris, she pushes her lips with your fingers that nothing had prevented you caress the clitoris.'
 
@@ -60,14 +59,15 @@ end
 if $ARGS[0] = 'kuni':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
+
 	'<center><img src="images/img/lezbsex/kuni<<picrand>>.jpg"></center>'
 	'Girl holds his tongue over your thighs, crotch and kisses down to the vagina, her tongue slides over your crotch then caressing the clitoris is penetrating the vagina.'
 
@@ -78,15 +78,14 @@ end
 if $ARGS[0] = 'anuli':
 	cla
 	*clr
-
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/anuli<<picrand>>.jpg"></center>'
 	'She kisses your buttocks priblezhayas moving eventually to the center, reaching a goal, she spends the language of your anus and then shoves it inside your buttocks, prints and again licking the anus, then all repeated.'
 
@@ -97,15 +96,14 @@ end
 if $ARGS[0] = 'uanuli':
 	cla
 	*clr
-
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/uanuli<<picrand>>.jpg"></center>'
 	'You lick her buttocks priblezhayas moving eventually to the center, reaching anus, his tongue on his tongue and get inside her buttocks, removing and again licks anus.'
 
@@ -116,15 +114,15 @@ end
 if $ARGS[0] = 'svag':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	DOM += 1
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
-	set DOM += 1
 	'<center><img src="images/img/lezbsex/svag<<picrand>>.jpg"></center>'
 	'You wear the strap and insert in her pussy, she yells while you fuck her.'
 
@@ -135,15 +133,15 @@ end
 if $ARGS[0] = 'sanal':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	DOM += 2
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
-	set DOM += 2
 	'<center><img src="images/img/lezbsex/sanal<<picrand>>.jpg"></center>'
 	'You wear the strap and gently insert it into the anus of girls starting to fuck her ass medleno first then faster and faster.'
 
@@ -154,14 +152,14 @@ end
 if $ARGS[0] = 'usvag':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/usvag<<picrand>>.jpg"></center>'
 	'Girl inserts strap you in the pussy, she moves back and forth bringing you pleasure.'
 
@@ -172,13 +170,14 @@ end
 if $ARGS[0] = 'usanal':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
+
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/usanal<<picrand>>.jpg"></center>'
 	'Girl spits on you ass, collects saliva strap tip and inserts it into the anus to you, you feel like it is moving in your ass with every thrust faster and deeper.'
 
@@ -189,14 +188,14 @@ end
 if $ARGS[0] = 'dvag':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/dvag<<picrand>>.jpg"></center>'
 	'You take a dildo and poke her pussy, she kisses you while you are driving with one hand and the second dildo caress her breasts.'
 
@@ -207,13 +206,14 @@ end
 if $ARGS[0] = 'danal':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
+
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/danal<<picrand>>.jpg"></center>'
 	'You take a dildo, licking it, trying to leave it on the maximum amount of saliva, and gently insert into the anus girls starting to fuck her ass dildo medleno first then faster and faster.'
 
@@ -224,14 +224,14 @@ end
 if $ARGS[0] = 'udvag':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/udvag<<picrand>>.jpg"></center>'
 	'Girl inserts dildo in pussy you, it moves it back and forth while constantly provarachivaya it dildo in her hands to get better any member.'
 
@@ -243,14 +243,14 @@ end
 if $ARGS[0] = 'udanal':
 	cla
 	*clr
-	set horny += 10
+	minut += 5
+	horny += 10
 
 	if horny >= 80:
-		set horny = 0
-		set orgasm += 1
+		horny = 0
+		orgasm += 1
 	end
 
-	set minut += 5
 	'<center><img src="images/img/lezbsex/udanal<<picrand>>.jpg"></center>'
 	'Girl spits on you ass, collects saliva tip dildo and inserts it into the anus to you, you feel like it stretches your anus, bringing you pleasure.'
 

+ 4 - 4
locations/locmansion

@@ -1,15 +1,15 @@
 # locmansion
 $metka = $ARGS[0]
 $loc = $CURLOC
-'<center><h4>cottage settlement</h4></center>'
-'<center><img src="images/etogame/locmansion.jpg"></center>'
-'Elite settlement which can afford to live only the cream of society.'
 clr
 gs 'stat'
 gs 'time'
+'<center><h4>cottage settlement</h4></center>'
+'<center><img src="images/etogame/locmansion.jpg"></center>'
+'Elite settlement which can afford to live only the cream of society.'
 
 if car > 0 and cardrive = 19:
-	set cardrive = 19
+	cardrive = 19
 	'In the parking stands <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
 end
 

File diff suppressed because it is too large
+ 638 - 638
locations/loker


File diff suppressed because it is too large
+ 620 - 620
locations/loker2


+ 47 - 57
locations/love

@@ -11,9 +11,9 @@ end
 if $ARGS[0] = '0':
 	cla
 	*clr
-	set love = 1
+	love = 1
 	'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants you to meet his parents.'
-	'He warns you that his mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upset her. Therefore, you must look gorgeous, use the dress from a boutique, well-groomed and with curled hair and use cosmetics in moderation.'
+	'He warns you that his mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upher. Therefore, you must look gorgeous, use the dress from a boutique, well-groomed and with curled hair and use cosmetics in moderation.'
 	'At the next date, if are ready, <<$boyA>> will take you to their parents.'
 
 	act 'To invite':
@@ -25,17 +25,17 @@ end
 if $ARGS[0] = 'mother':
 	cla
 	*clr
-	set minut += 60
+	minut += 60
 	'<<$boyA>> to drive you to the home of his parents. You got out, took the elevator, after a call to the door you opened, it was clear that you were waiting for. You entered the apartment, you greet an elderly gray-haired muzhichek dressed in trousers and shirt, as long as you wore slippers in the hallway passed an elderly woman with thin, fastidiously pursed lips, she invited you to a table.'
-	'You went to the room <<$boyA>> chair pushed you and you sat down at a table set already. Mother sat in front of you your guy. She began to consider you 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?'
+	'You went to the room <<$boyA>> chair pushed you and you sat down at a table already. Mother sat in front of you your guy. She began to consider you 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 (work = 1 or cheatWork = 1) and workKafe = 1:'You answered that you are a waitress in a cafe.'
 	if student > 0 and diplom = 0:'I study at the university.'
 	if diplom = 1:'Graduate graduated from university.'
-	if work = 0:'I´m unemployed.'
+	if work = 0 and cheatWork = 0 and workKafe ! 1:'I''m unemployed.'
 
 	if modelfoto > 0:
-		set bfA = 0
+		bfA = 0
 		'To which she smiled and said with disgust, "What are you not telling us how to shoot for web sites?" After these words, she laid on the table, your naked photos. "My son, my mother cares about you, this girl is not worthy of you."'
 		'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshovaya whore! Get out."'
 
@@ -45,7 +45,7 @@ if $ARGS[0] = 'mother':
 	end
 
 	if kavslut > 0:
-		set bfA = 0
+		bfA = 0
 		'To which she smiled and said with disgust, "Son, let this slut all Armenians in the market know. Only and discuss <<$name>> waitress and her tear into all the cracks, she does not deserve it!"'
 		'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
 
@@ -55,8 +55,8 @@ if $ARGS[0] = 'mother':
 	end
 
 	if frot > 3:
-		set bfA = 0
-		'To which she smiled and said with disgust, "Son, this slut all perverts on the subway know and lots pulled, who´s next to her ass to settle down. She is not worthy of you!"'
+		bfA = 0
+		'To which she smiled and said with disgust, "Son, this slut all perverts on the subway know and lots pulled, who''s next to her ass to settle down. She is not worthy of you!"'
 		'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
 
 		act 'Leave':gt 'street'
@@ -65,7 +65,7 @@ if $ARGS[0] = 'mother':
 	end
 
 	if gloryhole > 30:
-		set bfA = 0
+		bfA = 0
 		'To which she smiled and said with disgust, "Son, your Svetulya moonlights members sucking sex Shope, you want a wife himself? She is not worthy of you!"'
 		'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
 
@@ -74,11 +74,11 @@ if $ARGS[0] = 'mother':
 		exit
 	end
 
-	'On what 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, nursed and outgrowths, now you already have the right course forget about your mom and let it alone loves you and wishes you the best. If you need it, please, I do not forbid. "'
+	love = 2
+	'On what 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, nursed and outgrowths, now you already have the right course forget about your mom and let it alone loves you and wishes you the best. If you need it, please, I do not forbid. "'
 	'<<$boyA>> looked down, "Mom, what are you, I love you, but <<$name>> also dear to me."'
 	'Mother jumped flashing eyes, "Son, you vstrechaeshsya with her recently, what do you know about her?"'
-	'<<$boyA>> a long time to persuade his mother and excuses, finally she let you out of their predatory claws and you´re ready to leave.'
-	set love = 2
+	'<<$boyA>> a long time to persuade his mother and excuses, finally she let you out of their predatory claws and you''re ready to leave.'
 
 	act 'Leave':gt 'street'
 end
@@ -86,7 +86,7 @@ end
 if $ARGS[0] = '1':
 	cla
 	*clr
-	set love = 1
+	love = 1
 	'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants to introduce you to their friends.'
 	'He says that you have to look chic, the dress from a boutique, well-groomed and curled hair, cosmetics in moderation, something to envy his friends are dead.'
 	'At the next vstreche once you will be totally ready <<$boyA>> will take you to your friends.'
@@ -103,26 +103,24 @@ if $ARGS[0] = 'frends':
 	'<center><img src="images/img/hasb/z0.jpg"></center>'
 
 	if proverka1 = 0 and proverka2 = 0 and proverka3 = 0 and proverka4 = 0 and proverka5 = 0:
-		set minut += 180
-		'<<$boyA>> to drive 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 everything was eaten and drunk almost all <<$boyA>> has invited you to dance, you gladly agreed. <<$boyA>> was already pretty drunk and he´s bad at dancing, but good at it you paw, his hands squeezed your buttocks, he soon ran them under her dress and continued to stroke your ass. Her skirt rode up your panties and brought to the public, the guys were sitting on the sofa without taking your eyes from your buttocks. As a result, one of the guys got up from the couch and rocking podozhel to you "Very best bum on your heifers, let check out" he said, and slapped you on the buttocks so that you already jumped. <<$boyA>> and let you napravilssya to him "You do ohrenel, it´s my girl, you can watch, you can not touch."'
+		minut += 180
+		'<<$boyA>> to drive 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 everything was eaten and drunk almost all <<$boyA>> has invited you to dance, you gladly agreed. <<$boyA>> was already pretty drunk and he''s bad at dancing, but good at it you paw, his hands squeezed your buttocks, he soon ran them under her dress and continued to stroke your ass. Her skirt rode up your panties and brought to the public, the guys were sitting on the sofa without taking your eyes from your buttocks. As a result, one of the guys got up from the couch and rocking podozhel to you "Very best bum on your heifers, let check out" he said, and slapped you on the buttocks so that you already jumped. <<$boyA>> and let you napravilssya to him "You do ohrenel, it''s my girl, you can watch, you can not touch."'
 	end
 
 	if modelfoto > 0 and proverka1 = 0:
-		'"Yes calm down, she removed Golo not believe climbed in Inet´s full of pictures of her naked." the guy said.'
+		'"Yes calm down, she removed Golo not believe climbed in Inet''s full of pictures of her naked." the guy said.'
 		'"Is it true?" asked <<$boyA>> turning to you.'
 		'"Yes, I filmed naked, and I did that this was not a three-fuck and just showing her beautiful body." you said'
 
 		if intel <= 30:
-			set guy += 2
-			set picrand = 39
-			set bfA = 0
+			guy += 2
+			picrand = 39
+			bfA = 0
 			'"Yes, I do not care what you were demonstrated once filmed naked whore means" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "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 his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole 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
+		elseif intel > 30:
+			proverka1 = 1
 			'You have a few minutes to crucify about what you did not commit anything wrong and that his friends just jealous. In the end, you managed to convince him otherwise, and <<$boyA>> agree with you.'
 
 			act 'Further':gt 'love', 'frends'
@@ -138,16 +136,14 @@ if $ARGS[0] = 'frends':
 		'"Yes, these freaks raped me several times"'
 
 		if intel <= 50:
-			set guy += 2
-			set picrand = 39
-			set bfA = 0
+			guy += 2
+			picrand = 39
+			bfA = 0
 			'"Yes, I do not care who gets raped again several times means you liked and you yourself went to them damn" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "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 his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole 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
+		elseif intel > 50:
+			proverka2 = 1
 			'You have a few minutes to crucify about what you poor and miserable, and how these have brutally raped Caucasians. In the end, you managed to convince him and <<$boyA>> hug you and said that more will not allow anyone to offend you.'
 
 			act 'Further':gt 'love', 'frends'
@@ -160,19 +156,17 @@ if $ARGS[0] = 'frends':
 		cla
 		'"Yes, you wait, this whore in the subway all the perverts know want myself to go down the subway and you can fuck her in the car right in front of everyone, " said the boy'
 		'"Is it true?" asked <<$boyA>> turning to you.'
-		'"What do you mean how could you think such a thing about me, if there is what that damn ride in the car so it´s something that I" cried out and you went for it.'
+		'"What do you mean how could you think such a thing about me, if there is what that damn ride in the car so it''s something that I" cried out and you went for it.'
 
 		if intel <= 40:
-			set guy += 2
-			set picrand = 39
-			set bfA = 0
+			guy += 2
+			picrand = 39
+			bfA = 0
 			'"Mouth shut whore, I believe your friends, if they say it was you mean it was you" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "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 his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole 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
+		elseif intel > 40:
+			proverka3 = 1
 			'Deciding that the best defense is attack, you have a few minutes yelling at him. In the end, you managed to convince him and <<$boyA>> begins to soothe you saying that he does not blame you, but just asking.'
 
 			act 'Further':gt 'love', 'frends'
@@ -185,19 +179,17 @@ if $ARGS[0] = 'frends':
 		cla
 		'"Yes you wait, this slut in a sex shop through a hole sucks." the guy said'
 		'"Is it 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 takes it so that I that if" you cried and went to him. "And you´re a freak with what is decided, that I sucked you that you have something to compare?" you started to attack the guy.'
+		'"What do you mean how could you think such a thing about me, if there is some sort of a whore in the mouth takes it so that I that if" you cried and went to him. "And you''re a freak with what is decided, that I sucked you that you have something to compare?" you started to attack the guy.'
 
 		if intel <= 60:
-			set guy += 2
-			set picrand = 39
-			set bfA = 0
+			guy += 2
+			picrand = 39
+			bfA = 0
 			'"Mouth shut whore, I believe your friends, if they say it was you mean it was you" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "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 his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole 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
+		elseif intel > 60:
+			proverka4 = 1
 			'Deciding that the best defense is attack, you have a few minutes yelling at him. In the end, you managed to convince him and <<$boyA>> begins to soothe you saying that he does not blame you, but just asking.'
 
 			act 'Further':gt 'love', 'frends'
@@ -213,16 +205,14 @@ if $ARGS[0] = 'frends':
 		'"Yes, but that was long before you, it is a mistake of youth and a couple of times, I had a very difficult time, but I do not do this 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
+			guy += 2
+			picrand = 39
+			bfA = 0
 			'"Mouth shut slut acted in porn whore means" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "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 his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole 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
+		elseif intel > 70 or izvrat = 1:
+			proverka5 = 1
 			'You have a few minutes grovel about how you love him and that everything that came before it, was a mistake. In the end, you managed to convince him and <<$boyA>> hugs you and whispers in his ear "A couple of tricks you probably remember, then you will show."'
 
 			act 'Further':gt 'love', 'frends'
@@ -231,9 +221,9 @@ if $ARGS[0] = 'frends':
 		exit
 	end
 
-	'"Okay, let´s go from here Svetsik, it´s time, " said <<$boyA>> and you´re headed for the exit.'
+	'"Okay, let''s go from here <<$name>>, it''s time, " said <<$boyA>> and you''re headed for the exit.'
 
-	set love = 2
+	love = 2
 
 	act 'Leave':gt 'street'
 end

Some files were not shown because too many files changed in this diff