Преглед на файлове

Work progress

- Working on integration v1.1.3 into CV
- Merged changes from master with changes from me
heromaster преди 10 години
родител
ревизия
5e7d0f8a30
променени са 5 файла, в които са добавени 1378 реда и са изтрити 1243 реда
  1. 190 185
      locations/body
  2. 315 449
      locations/dinSex
  3. 197 242
      locations/enemy
  4. 541 229
      locations/onobjsel
  5. 135 138
      locations/sitr

+ 190 - 185
locations/body

@@ -1,12 +1,12 @@
 # body
 if analplugIN = 0:
-	if anus = 0:anpic = 0 & set $anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
-	if anus > 0 and anus <= 5:anpic = 1 & set $anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
-	if anus > 5 and anus <= 10:anpic = 2 & set $anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
-	if anus > 10 and anus <= 15:anpic = 3 & set $anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
-	if anus > 15 and anus <= 20:anpic = 4 & set $anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.'
-	if anus > 20 and anus <= 35:anpic = 5 & set $anus = 'Your <a href="exec:view''images/body/5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
-	if anus > 35:anpic = 6 & set $anus = 'Your <a href="exec:view''images/body/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
+	if anus = 0:anpic = 0 & $anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
+	if anus > 0 and anus <= 5:anpic = 1 & $anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
+	if anus > 5 and anus <= 10:anpic = 2 & $anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
+	if anus > 10 and anus <= 15:anpic = 3 & $anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
+	if anus > 15 and anus <= 25:anpic = 4 & $anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.'
+	if anus > 25 and anus <= 35:anpic = 5 & $anus = 'Your <a href="exec:view''images/body/5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
+	if anus > 35:anpic = 6 & $anus = 'Your <a href="exec:view''images/body/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
 else
 	$anus = 'Your <a href="exec:view''picb/analplug.jpg''">anus</a> is currently filled with your butt plug.'
 end
@@ -18,127 +18,132 @@ end
 if dounspell = 0:
 	strenbuf = stren
 	vitalbuf = vital
-	set vmeat = (strenbuf + vitalbuf) / 8
-	set vfat = salo / 10
-	set Kves = vmeat + vfat
-	set krost = rost - 130
-	set ves = Kves + krost - (agilbuf / 10)
-	set talia = ves - (agilbuf / 10) + waistShrink
-	set grudi = talia + 10 + vfat + silicone
-	!!!CV edition: bedra = hip size 
-	set bedra = talia + 15 + (vmeat / 2) + vfat + hipGrow
-	set titK = grudi - talia + bgrow + brgrow
-	!!!
+	vmeat = (strenbuf + vitalbuf) / 8
+	vfat = salo / 10
+	Kves = vmeat + vfat
+	krost = rost - 130
+	ves = Kves + krost - (agilbuf / 10)
+	talia = ves - (agilbuf / 10)
+	grudi = talia + 10 + vfat + silicone
+	grutal = talia
+	bedra = talia + 15 + (vmeat / 2) + vfat
+	titK = grudi - talia
+	if (bedra - talia) > 45 and musle < salo:
+		if ves < 70:koefvesbt = 0
+		if ves >= 70:koefvesbt = ves - 70
+
+		koefbt = koefvesbt + ((bedra - talia) - 45)
+		talia += koefbt
+	end
 
-	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 and titK <= 40:set tits = 6
-	if titK > 40 and titK <= 45:set tits = 7
-	if titK > 45 and titK <= 50:set tits = 8
-	if titK > 50 and titK <= 55:set tits = 9
-	if titK > 55:set tits = 10
+	if titK <= 10:tits = 0
+	if titK > 10 and titK <= 15:tits = 1
+	if titK > 15 and titK <= 20:tits = 2
+	if titK > 20 and titK <= 25:tits = 3
+	if titK > 25 and titK <= 30:tits = 4
+	if titK > 30 and titK <= 35:tits = 5
+	!!!Probably CV edition
+	if titK > 35 and titK <= 40:tits = 6
+	if titK > 40 and titK <= 45:tits = 7
+	if titK > 45 and titK <= 50:tits = 8
+	if titK > 50 and titK <= 55:tits = 9
+	if titK > 55:tits = 10
+	!!!
 else
-	set fat = 0
-	set bedra = bedraDoun
-	set talia = TaliaDoun + waistShrink
-	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 and titK <= 40:set tits = 6
-	if titK > 40 and titK <= 45:set tits = 7
-	if titK > 45 and titK <= 50:set tits = 8
-	if titK > 50 and titK <= 55:set tits = 9
-	if titK > 55:set tits = 10
+	fat = 0
+	bedra = bedraDoun
+	talia = TaliaDoun
+	grudi = talia + 14 + silicone
+	ves = TaliaDoun
+	titK = grudi - talia 
+
+	if titK <= 10:tits = 0
+	if titK > 10 and titK <= 15:tits = 1
+	if titK > 15 and titK <= 20:tits = 2
+	if titK > 20 and titK <= 25:tits = 3
+	if titK > 25 and titK <= 30:tits = 4
+	if titK > 30 and titK <= 35:tits = 5
+	!!!Probably CV edition
+	if titK > 35 and titK <= 40:tits = 6
+	if titK > 40 and titK <= 45:tits = 7
+	if titK > 45 and titK <= 50:tits = 8
+	if titK > 50 and titK <= 55:tits = 9
+	if titK > 55:tits = 10
+	!!!
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!! Maruda Hair Mod
 if hairlength <= 80:
-	set hpigtail = 0
-	set hscrunchw = 0
-	set hpingripw = 0
-	set curly = 0
+	hpigtail = 0
+	hscrunchw = 0
+	hpingripw = 0
+	curly = 0
 end
 
-if hairlength > 400:set hpingripw = 0
+if hairlength > 400:hpingripw = 0
 
 if hairlength > 400 and hpigtail >= 1:
-	set hscrunchw = 0
-	set hpigtail = 0
+	hscrunchw = 0
+	hpigtail = 0
 end
 
-if hairlength <= 80:set hbraids = 0
+if hairlength <= 80:hbraids = 0
 
 if hbraids >= 1:
-	set curly = 0
-	set hscrunchw = 0
-	set hpingripw = 0
-	set hbangs = 0
-	set hpigtail = 0
+	curly = 0
+	hscrunchw = 0
+	hpingripw = 0
+	hbangs = 0
+	hpigtail = 0
 end
 
-if hapri = 0:set $hapri = '<b>tangled</b>, you should comb it, to keep it healthy'
-if hapri = 1:set $hapri = 'neatly arranged'
-
-if curly <= 0:set $curly = 'straight, slightly wavy '
-if curly > 0:set $curly = 'curly '
-
-if hbangs <= 0:set $hbangs = ''
-if hbangs > 0:set $hbangs = ', with a fringe covering your forehead'
-
-if hscrunchw <= 0:set $hscrunch = ''
-if hscrunchw = 1:set $hscrunch = ' A hair-tie holds your hair as a ponytail in place.'
-
-if hpingripw <= 0:set $hpingrip = ''
-if hpingripw > 0:set $hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'
-
-if hscrunchw <= 0:set $hpigtail = ''
-if hscrunchw = 2:set $hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'
-
-if hbraids <= 0:set $hbraids = ''
-if hbraids > 0:set $hbraids = ' You have your hair beautifully braided.'
-
-if hcol = 0:set $hcol = 'black'
-if hcol = 1:set $hcol = 'brown'
-if hcol = 2:set $hcol = 'red'
-if hcol = 3:set $hcol = 'blonde'
-
-if hairlength <= 30:set $hair = 'You have very short, <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, one might mistake you for a man. Nonetheless, some people like this style, as it''s easy to take care off.'
-if hairlength > 30 and hairlength <= 80:set $hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
-if hairlength > 80 and hairlength <= 160:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
-if hairlength > 160 and hairlength <= 260:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-if hairlength > 260 and hairlength <= 400:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-if hairlength > 400:set $hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
-!!if hcol = 0 and curly <= 0:set $hair = 'You have <<$hapri>> straight, black hair.'
-!!if hcol = 1 and curly <= 0:set $hair = 'You have <<$hapri>> straight, brown hair.'
-!!if hcol = 2 and curly <= 0:set $hair = 'You have <<$hapri>> straight, red hair.'
-!!if hcol = 3 and curly <= 0:set $hair = 'You have <<$hapri>> straight, blonde 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 blonde hair.'
-!!if hcol = 0:set $hair = 'You have <<$hapri>> <<$curly>>, black hair.'
-!!if hcol = 1:set $hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
-!!if hcol = 2:set $hair = 'You have <<$hapri>> <<$curly>>, red hair.'
-!!if hcol = 3:set $hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'
-
-
+if hapri = 0:$hapri = '<b>tangled</b>, you should comb it, to keep it healthy'
+if hapri = 1:$hapri = 'neatly arranged'
+
+if curly <= 0:$curly = 'straight, slightly wavy '
+if curly > 0:$curly = 'curly '
+
+if hbangs <= 0:$hbangs = ''
+if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
+
+if hscrunchw <= 0:$hscrunch = ''
+if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair as a ponytail in place.'
+
+if hpingripw <= 0:$hpingrip = ''
+if hpingripw > 0:$hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'
+
+if hscrunchw <= 0:$hpigtail = ''
+if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'
+
+if hbraids <= 0:$hbraids = ''
+if hbraids > 0:$hbraids = ' You have your hair beautifully braided.'
+
+if hcol = 0:$hcol = 'black'
+if hcol = 1:$hcol = 'brown'
+if hcol = 2:$hcol = 'red'
+if hcol = 3:$hcol = 'blonde'
+
+if hairlength <= 30:$hair = 'You have very short, <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, one might mistake you for a man. Nonetheless, some people like this style, as it''s easy to take care off.'
+if hairlength > 30 and hairlength <= 80:$hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
+if hairlength > 80 and hairlength <= 160:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
+if hairlength > 160 and hairlength <= 260:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
+if hairlength > 260 and hairlength <= 400:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
+if hairlength > 400:$hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
+!!if hcol = 0 and curly <= 0:$hair = 'You have <<$hapri>> straight, black hair.'
+!!if hcol = 1 and curly <= 0:$hair = 'You have <<$hapri>> straight, brown hair.'
+!!if hcol = 2 and curly <= 0:$hair = 'You have <<$hapri>> straight, red hair.'
+!!if hcol = 3 and curly <= 0:$hair = 'You have <<$hapri>> straight, blonde hair.'
+!!if hcol = 0 and curly > 0:$hair = 'You have <<$hapri>> curly, black hair.'
+!!if hcol = 1 and curly > 0:$hair = 'You have <<$hapri>> curly, brown hair.'
+!!if hcol = 2 and curly > 0:$hair = 'You have <<$hapri>> curly red hair.'
+!!if hcol = 3 and curly > 0:$hair = 'You have <<$hapri>> curly blonde hair.'
+!!if hcol = 0:$hair = 'You have <<$hapri>> <<$curly>>, black hair.'
+!!if hcol = 1:$hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
+!!if hcol = 2:$hair = 'You have <<$hapri>> <<$curly>>, red hair.'
+!!if hcol = 3:$hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'
 !!! Maruda Hair Mod
 
-if lip > 4:set lip = 4
+if lip > 4:lip = 4
 if lip > 4:lip = 4
 if lip < 0:lip = 0
 
@@ -156,14 +161,14 @@ if pirsA = 1:$pirsA = 'When you talk, your conversation partner can get a glance
 if pirsA = 0:$pirsA = ''
 if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
 if pirsB = 0:$pirsB = ''
-if lip = 0:set $lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
-if lip = 1:set $lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
-if lip = 2:set $lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
-if lip = 3:set $lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
-if lip = 4:set $lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
-if tan <= 0:set $tan = 'pale'
-if tan > 0:set $tan = 'Tanned'
-if skin > 4:set skin = 4
+if lip = 0:$lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
+if lip = 1:$lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
+if lip = 2:$lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
+if lip = 3:$lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
+if lip = 4:$lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
+if tan <= 0:$tan = 'pale'
+if tan > 0:$tan = 'Tanned'
+if skin > 4:skin = 4
 if skin < 0:skin = 0
 if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
 if pirsC = 0:$pirsC = ''
@@ -171,62 +176,63 @@ if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
 if pirsD = 0:$pirsD = ''
 if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
 if pirsE = 0:$pirsE = ''
-if skin = 0:set $skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
-if skin = 1:set $skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
-if skin = 2:set $skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
-if skin = 3:set $skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
-if skin = 4:set $skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
-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 eyelashes'
-if resnic = 1:set $resnic = 'normal eyelashes'
-if resnic = 2:set $resnic = 'with long eyelashes'
+if skin = 0:$skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
+if skin = 1:$skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
+if skin = 2:$skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
+if skin = 3:$skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
+if skin = 4:$skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
+if glacol = 0:$glacol = 'brown'
+if glacol = 1:$glacol = 'gray'
+if glacol = 2:$glacol = 'green'
+if glacol = 3:$glacol = 'blue'
+if resnic > 2:resnic = 2
+if resnic = 0:$resnic = 'with short eyelashes'
+if resnic = 1:$resnic = 'normal eyelashes'
+if resnic = 2:$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 tattooed eyebrows' & brokoef = 2
 if glass <= 0:$glass = '' & glassvnesh = 0
 if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
+!!!CV edition: from glassvnesh = 5 to glassvnesh = 0
 if glass = 2:$glass = ' Do you wear glasses.' & glassvnesh = 0
-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 have a medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
-if glaraz = 2:set $glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
-if glaraz = 3:set $glaza = 'You have a huge <<$glacol>> eyes that almost look like they''re out of anime, <<$resnic>> and <<$brow>>.<<$glass>>'
-
-if mop = 0:set $mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
-if mop = 1:set $mop = 'You''re not wearing any kind of makeup'
-if mop = 2:set $mop = 'Your makeup is very light, just a very few touch-ups here and there'
-if mop = 3:set $mop = 'You have "everyday"-like makeup applied'
-if mop = 4:set $mop = 'You have thick makeup, possible a bit too flashy for daytime wear'
-
-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 bristles 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 glaraz > 3:glaraz = 3
+if glaraz = 0:$glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 1:$glaza = 'You have a medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 2:$glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 3:$glaza = 'You have a huge <<$glacol>> eyes that almost look like they''re out of anime, <<$resnic>> and <<$brow>>.<<$glass>>'
+
+if mop = 0:$mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
+if mop = 1:$mop = 'You''re not wearing any kind of makeup'
+if mop = 2:$mop = 'Your makeup is very light, just a very few touch-ups here and there'
+if mop = 3:$mop = 'You have "everyday"-like makeup applied'
+if mop = 4:$mop = 'You have thick makeup, possible a bit too flashy for daytime wear'
+
+if leghair <= 0:legkoef = 3 & $leghair = 'You have smooth legs.'
+if leghair > 0 and leghair <= 2:legkoef = 0 & $leghair = 'You do not see with our eyes but rough to the touch bristles on his feet.'
+if leghair > 2 and leghair <= 5:legkoef = 0 & $leghair = 'You clearly visible thin hairs on the legs.'
+if leghair > 5:legkoef = 0 & $leghair = 'Do you have long hair standing out on his feet.'
 
 if pirsG = 1:$pirsG = 'There are several piercings hanging from your vaginas lips.'
 if pirsG = 0:$pirsG = ''
 
-if lobok <= 0:set lobkoef = 3 & set $lobok = 'You have a smoothly <a href="exec:view ''images/body/pussy.jpg''">shaved mound</a>. <<$pirsG>>'
-if lobok > 0 and lobok <= 2:set lobkoef = 0 & set $lobok = 'You have a light but visible thatch of hair above your <a href="exec:view ''images/body/spussy.jpg''">crotch</a>. <<$pirsG>>'
-if lobok > 2:set lobkoef = 0 & set $lobok = 'You have a thick, full delta of <a href="exec:view ''images/body/hpussy.jpg''">pubic hair</a>. <<$pirsG>>'
+if lobok <= 0:lobkoef = 3 & $lobok = 'You have a smoothly <a href="exec:view ''images/body/pussy.jpg''">shaved mound</a>. <<$pirsG>>'
+if lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have a light but visible thatch of hair above your <a href="exec:view ''images/body/spussy.jpg''">crotch</a>. <<$pirsG>>'
+if lobok > 2:lobkoef = 0 & $lobok = 'You have a thick, full delta of <a href="exec:view ''images/body/hpussy.jpg''">pubic hair</a>. <<$pirsG>>'
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-set bodytipe = bedra - talia
+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 bodytipe < 20:bodykoef = 0
+if bodytipe >= 20 and bodytipe < 25:bodykoef = 2
+if bodytipe >= 25 and bodytipe < 30:bodykoef = 4
+if bodytipe >= 30 and bodytipe < 35:bodykoef = 8
+if bodytipe >= 35:bodykoef = 4
 
 if tan > 0:
-	set tanKoef = 1
+	tanKoef = 1
 else
-	set tanKoef = 0
+	tanKoef = 0
 end
 
 if curly > 0:
@@ -236,9 +242,9 @@ else
 end
 
 if sweat <= 0:
-	set sweatKoef = 0
+	sweatKoef = 0
 else
-	set sweatKoef = sweat * 5
+	sweatKoef = sweat * 5
 end
 
 if lipbalmstat > 0:
@@ -260,7 +266,7 @@ if vidage >= 45:vidagebonus = 50
 if age < 18:leghair = -5
 
 !!CV edition: tits and lobkoef (pubic hair) removed from calc, replaced with flat bonus of 9 (6 tits, 3 hair)
-set vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - sweatKoef + vidagebonus - (zub * 2) + tatKeof - glassvnesh
+vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - sweatKoef + vidagebonus - (zub * 2) + tatKeof - glassvnesh
 !!!
 
 if vnesh < 0:vnesh = 0
@@ -276,39 +282,38 @@ if StrongNarkota > 0:
 	manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
 end
 
-if vnesh = -10:set $vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
-if vnesh < 5 and vnesh> - 10:set $vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
-if vnesh >= 5 and vnesh < 15:set $vnesh = 'You''re a wallflower. Barely anyone notices you.'
-if vnesh >= 15 and vnesh < 30:set $vnesh = 'You have good looks. Men and women like to take a glance at you.'
-if vnesh >= 30 and vnesh < 50:set $vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
-if vnesh >= 50:set $vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
+if vnesh = -10:$vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
+if vnesh < 5 and vnesh> - 10:$vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
+if vnesh >= 5 and vnesh < 15:$vnesh = 'You''re a wallflower. Barely anyone notices you.'
+if vnesh >= 15 and vnesh < 30:$vnesh = 'You have good looks. Men and women like to take a glance at you.'
+if vnesh >= 30 and vnesh < 50:$vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
+if vnesh >= 50:$vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!BODY
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 musle = strenbuf + vitalbuf
 
 if musle >= salo:
 	!!muscular type
-		if bedra < 60:set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
-		if bedra >= 60 and bedra < 70:set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
-		if bedra >= 70 and bedra < 80:set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
-		if bedra >= 80 and bedra < 90:set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
-		if bedra >= 90 and bedra < 100:set $body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
-		if bedra >= 100 and bedra < 110:set $body = 'Body fat there is little, through the skin are the large muscles.'
-		if bedra >= 110 and bedra < 120:set $body = 'Body fat there is little, through the skin are the massive muscles.'
-		if bedra >= 120:set $body = 'Body fat there is little, through the skin are the massive muscles.'
+		if bedra < 60:$body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
+		if bedra >= 60 and bedra < 70:$body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
+		if bedra >= 70 and bedra < 80:$body = 'You are thin, fat on the body virtually no muscles act through the skin.'
+		if bedra >= 80 and bedra < 90:$body = 'You are thin, fat on the body virtually no muscles act through the skin.'
+		if bedra >= 90 and bedra < 100:$body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
+		if bedra >= 100 and bedra < 110:$body = 'Body fat there is little, through the skin are the large muscles.'
+		if bedra >= 110 and bedra < 120:$body = 'Body fat there is little, through the skin are the massive muscles.'
+		if bedra >= 120:$body = 'Body fat there is little, through the skin are the massive muscles.'
 	else
 		!!bold type
-		if bedra < 60:set $body = 'You are very lean and you have virtually no muscle.'
-		if bedra >= 60 and bedra < 70:set $body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
-		if bedra >= 70 and bedra < 80:set $body = 'You are very skinny girl.'
-		if bedra >= 80 and bedra < 90:set $body = 'You skinny girl.'
-		if bedra >= 90 and bedra < 100:set $body = 'You skater girl.'
-		if bedra >= 100 and bedra < 110:set $body = 'You formastaya girl.'
-		if bedra >= 110 and bedra < 120:set $body = 'You zhirnovat girl.'
-		if bedra >= 120:set $body = 'You are very fat.'
+		if bedra < 60:$body = 'You are very lean and you have virtually no muscle.'
+		if bedra >= 60 and bedra < 70:$body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
+		if bedra >= 70 and bedra < 80:$body = 'You are very skinny girl.'
+		if bedra >= 80 and bedra < 90:$body = 'You skinny girl.'
+		if bedra >= 90 and bedra < 100:$body = 'You skater girl.'
+		if bedra >= 100 and bedra < 110:$body = 'You formastaya girl.'
+		if bedra >= 110 and bedra < 120:$body = 'You zhirnovat girl.'
+		if bedra >= 120:$body = 'You are very fat.'
 	end
 
 	$fat = $body

Файловите разлики са ограничени, защото са твърде много
+ 315 - 449
locations/dinSex


+ 197 - 242
locations/enemy

@@ -1,63 +1,60 @@
 # enemy
-!!Calculation of the enemy`s attack
+!!Calculation of the enemy''s attack
 
 !!in this block is selected on the basis of the variable program enemy attacks
 if $ARGS[0] = 'start':
 	cla
-	if program = 0: xgt 'enemy', 'fighter' 
-	if program = 1:	xgt 'enemy', 'fighter2' 
-	if program = 2: xgt 'enemy', 'fighter3' 
-	if program = 3: xgt 'enemy', 'fighter4' 
-	if program = 4: xgt 'enemy', 'fighter5' 
-
-	if program = 5:xgt 'enemy', 'kisame' 
-	if program = 6:xgt 'enemy', 'tobi' 
-	if program = 7:xgt 'enemy', 'gedomazo' 
-	if program = 8:xgt 'enemy', 'gun' 
-	if program = 9:xgt 'enemy', 'sasori' 
-	if program = 10:xgt 'enemy', 'konan' 
-	if program = 11:xgt 'enemy', 'hidan' 
+
+	if program = 0:xgt 'enemy', 'fighter'
+	if program = 1:xgt 'enemy', 'fighter2'
+	if program = 2:xgt 'enemy', 'fighter3'
+	if program = 3:xgt 'enemy', 'fighter4'
+	if program = 4:xgt 'enemy', 'fighter5'
+
+	if program = 5:xgt 'enemy', 'kisame'
+	if program = 6:xgt 'enemy', 'tobi'
+	if program = 7:xgt 'enemy', 'gedomazo'
+	if program = 8:xgt 'enemy', 'gun'
+	if program = 9:xgt 'enemy', 'sasori'
+	if program = 10:xgt 'enemy', 'konan'
+	if program = 11:xgt 'enemy', 'hidan'
 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:barierV = 0
+	if zerkaloV <= 0:barierV = 5500
+	if healthV < vitalV * 10 + strenV * 5: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 -= 400
-		set manna -= 500
+		healthV = vitalV * 10 + strenV * 5
+		mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+		willpowerV = willV * 10
+		health -= 400
+		manna -= 500
 		'<b><font color="red"><<$nameV>> yells "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></b>'
 		'<b><font color="red">He stabs himself and you feel like the 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
+	elseif zerkaloV <= 0 and defence > 0:
+		damTipV = 5000
+		bonusShV = 100
+		hidanAtk = 1
 		'<b><font color="red"><<$nameV>> yells "Your existence offends DZHASHINA MY GOD!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></b>'
 
-		if klon > 0:set klon = klon / 2 & '<b><font color="red"><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></b>'
+		if klon > 0:klon = klon / 2 & '<b><font color="red"><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></b>'
 
 		xgt 'atakA1', 'atak'
 		exit
-	end
-
-	if zerkaloV <= 0 and defence <= 0:
-		set damTipV = 300
-		set bonusShV = 100
-		set hidanAtk = 1
+	elseif zerkaloV <= 0 and defence <= 0:
+		damTipV = 300
+		bonusShV = 100
+		hidanAtk = 1
 		'<b><font color="red"><<$nameV>> yells "You will die a blasphemer!" and throws you in his scythe 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>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></b>'
-		if tuman > 0:set tuman = 0 & '<b><font color="red"><<$nameV>> yells "You´re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></b>'
+		if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from the blow spit. <<$nameV>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></b>'
+		if tuman > 0:tuman = 0 & '<b><font color="red"><<$nameV>> yells "You''re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></b>'
 
 		xgt 'atakA1', 'atak'
 		exit
@@ -68,59 +65,49 @@ if $ARGS[0] = 'konan':
 	cla
 
 	if round < 6:
-		set mannaV -= 10
-		set damTipV = 500
+		mannaV -= 10
+		damTipV = 500
 		'<b><font color="red"><<$nameV>> adds signs 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 hitting the paper.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
 
 		xgt 'atakA1', 'atak'
 		exit
-	end
-
-	if round >= 6:
+	elseif round >= 6:
 		if unmaterialV > 5 and defence > 0:
-			set mannaV -= 250
-			set damTipV = 15000
-			set bonusShV = 100
+			mannaV -= 250
+			damTipV = 15000
+			bonusShV = 100
 			'<b><font color="red"><<$nameV>> takes to the air on the white wings and pulled out from her 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 hitting the paper.</font></b>'
+			if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
 
 			xgt 'atakA1', 'atak'
 			exit
-		end
-
-		if unmaterialV > 5 and defence <= 0:
-			set mannaV -= 20
-			set damTipV = 450
+		elseif unmaterialV > 5 and defence <= 0:
+			mannaV -= 20
+			damTipV = 450
 			'<b><font color="red"><<$nameV>> creates a paper boomerangs that fly in your direction.</font></b>'
 			xgt 'atakA1', 'atak'
 			exit
-		end
-
-		if defenceV <= 0 and unmaterialV <= 5:
-			set mannaV -= 250
-			set defenceV += 3000
-			set defenceMV += 3000
-			set defenceWV += 3000
+		elseif defenceV <= 0 and unmaterialV <= 5:
+			mannaV -= 250
+			defenceV += 3000
+			defenceMV += 3000
+			defenceWV += 3000
 			'<b><font color="red">Conan shoots up to its paper wings like an angel. Around it starts spinning paper creating her protection.</font></b>'
 			xgt 'fight', 'sta'
 			exit
-		end
-
-		if unmaterialV <= 2 and konanD < 3:
-			set mannaV -= 150
-			set konanD += 1
+		elseif unmaterialV <= 2 and konanD < 3:
+			mannaV -= 150
+			konanD += 1
 			'<b><font color="red">Conan stops meditating in the air.</font></b>'
 			xgt 'fight', 'sta'
 			exit
-		end
-
-		if konanD >= 3:
-			set mannaV -= 250
-			set konanD = 0
-			set unmaterialV = 20
+		elseif konanD >= 3:
+			mannaV -= 250
+			konanD = 0
+			unmaterialV = 20
 			'<b><font color="red">Conan crumbles in the air for thousands of sheets of paper.</font></b>'
 			xgt 'fight', 'sta'
 			exit
@@ -131,24 +118,24 @@ end
 if $ARGS[0] = 'sasori':
 	cla
 
-	if SasoriBody > 1:set damTipV = 1000
-	if SasoriBody = 1:set damTipV = 2000
+	if SasoriBody > 1:damTipV = 1000
+	if SasoriBody = 1:damTipV = 2000
 
-	set poisonAV = 1
-	set defenceV += 10
-	set defenceMV += 20
-	set defenceWV += 50
-	set mannaV -= 10
+	poisonAV = 1
+	defenceV += 10
+	defenceMV += 20
+	defenceWV += 50
+	mannaV -= 10
 
 	if SasoriBody = 1 and defence > 0:
-		set defSasori = defence * 20 / 100
-		set defence -= defSasori
+		defSasori = defence * 20 / 100
+		defence -= defSasori
 		'<b><font color="red">of rain falls on top of steel needles greatly weaken your defenses.</font></b>'
 	end
 
 	'<b><font color="red"><<$nameV>> shoots at you the whole 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>'
+	if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from the blow needle.</font></b>'
 
 	xgt 'atakA1', 'atak'
 end
@@ -157,16 +144,14 @@ if $ARGS[0] = 'gedomazo':
 	cla
 
 	if klon <= 0 and tuman <= 0:
-		set magweapbonusV = 5000
+		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 -= 500
+	elseif klon > 0 or tuman > 0:
+		klon = 0
+		tuman = 0
+		mannaV -= 500
 		'<b><font color="red"><<$nameV>> makes a terrible roar and air shock wave sweeps over the battlefield.</font></b>'
 		xgt 'fight', 'sta'
 		exit
@@ -181,117 +166,99 @@ if $ARGS[0] = 'tobi':
 		*clr
 		'<b><font color="red"><<$nameV>> 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 you rushed to the attack.</font></b>'
-		set GedoMazo = 1
-		set $nameV = 'Gedo Mazo'
+		GedoMazo = 1
+		$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
+		strenV = 1000
+		speedV = 100
+		agilV = 90
+		reactV = 100
+		vitalV = 5000
+		intelV = 50
+		willV = 50
 		!!skills
-		set magikV = 1
-		set boxingV = 100
-		set shootV = 100
+		magikV = 1
+		boxingV = 100
+		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
+		healthV = vitalV * 10 + strenV * 5
+		mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+		willpowerV = willV * 10
+		BonusAtakV = 0
+		BonusDefV = 0
 		!!Programme of Action
-		set barierV = 1500
-		set program = 7
+		barierV = 1500
+		program = 7
 		xgt 'fight', 'start'
 		exit
-	end
-
-	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
-		set mannaV -= 500
-		set TobiStena = 1
-		set defenceV += 25000
+	elseif unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
+		mannaV -= 500
+		TobiStena = 1
+		defenceV += 25000
 		'<b><font color="red"><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></b>'
-		set barierV = 2000
+		barierV = 2000
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
-		set mannaV += 6000
-		set TobiStena = 2
-		'<b><font color="red"><<$nameV>> makes the magic sign and you feel like it´s magical energy increases sharply.</font></b>'
+	elseif unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
+		mannaV += 6000
+		TobiStena = 2
+		'<b><font color="red"><<$nameV>> makes the magic sign and you feel like it''s magical energy increases sharply.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if stun > 0:
-		set magweapbonusV = 2000
-		'<b><font color="red"><<$nameV>> triumphantly said, "Now you´re dead."</font></b>'
+	elseif stun > 0:
+		magweapbonusV = 2000
+		'<b><font color="red"><<$nameV>> triumphantly said, "Now you''re dead."</font></b>'
 		'<b><font color="red">He grabs you by the throat and lifts 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 -= 100
-		set stunV = 1
+	elseif defence >= 5000:
+		defence = 0
+		defenceM = 0
+		defenceActPar = 0
+		defenceActParM = 0
+		defenceAct = 0
+		defenceActM = 0
+		defAtk = 0
+		mannaV -= 100
+		stunV = 1
 		'<b><font color="red"><<$nameV>> close your eyes and you saw of him as a tear ran down a drop of blood.</font></b>'
 		'<b><font color="red">He opened his eyes become completely red with black veins and said Amaterasu</font></b>'
 		'<b><font color="red">In your face rushed black devouring flames destroy your lightning protection.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if tuman > 0:
-		set tumanV += tuman
-		set tuman = 0
+	elseif tuman > 0:
+		tumanV += tuman
+		tuman = 0
 		'<b><font color="red"><<$nameV>> adds the magic signs your hands and mist coming under his control enveloping the review of you.</font></b>'
 		'<b><font color="red">He will attack you.</font></b>'
 		xgt 'atak', 'enemy'
 		exit
-	end
-
-	if unmaterialV > 0 and klon <= 0:
-		set stunnerV = 1
-		set mannaV -= 20
-		set magweapbonusV = 800
+	elseif unmaterialV > 0 and klon <= 0:
+		stunnerV = 1
+		mannaV -= 20
+		magweapbonusV = 800
 		'<b><font color="red"><<$nameV>> attacks you gathered the manna in the hand.</font></b>'
 		xgt 'atak', 'enemy'
 		exit
-	end
-
-	if unmaterialV > 0 and klon > 0:
-		set klon = 0
-		set stunV = 1
+	elseif unmaterialV > 0 and klon > 0:
+		klon = 0
+		stunV = 1
 		'<b><font color="red"><<$nameV>> adds signs hands and all your clones just turn into steam.</font></b>'
 		xgt 'atak', 'enemy'
 		exit
-	end
-
-	if unmaterialV <= 0 and tobizanagi < 2:
-		set mannaV -= 250
-		set tobizanagi += 1
-		!!set unmaterialV = 10
+	elseif unmaterialV <= 0 and tobizanagi < 2:
+		mannaV -= 250
+		tobizanagi += 1
+		!!unmaterialV = 10
 		'<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if unmaterialV <= 0 and tobizanagi = 2:
-		set mannaV -= 250
-		set tobizanagi = 0
-		set unmaterialV = 20
-		set stunV = 1
+	elseif unmaterialV <= 0 and tobizanagi = 2:
+		mannaV -= 250
+		tobizanagi = 0
+		unmaterialV = 20
+		stunV = 1
 		'<b><font color="red"><<$nameV>> folds his hands and marks around his eyes twisted vortex.</font></b>'
 		xgt 'fight', 'sta'
 		exit
@@ -303,56 +270,50 @@ if $ARGS[0] = 'kisame':
 	!!program attack Kisame
 
 	if defenceV <= 0 and kisamePro = 0:
-		set kisamePro = 1
-		set mannaV -= 150
-		set defenceV += 1500
-		set defenceMV += 1500
-		set defenceWV += 1500
-		set defenceActParV = 500
-		set defenceActParMV = 500
-		set defenceActV = 10
-		set defenceActMV = 10
+		kisamePro = 1
+		mannaV -= 150
+		defenceV += 1500
+		defenceMV += 1500
+		defenceWV += 1500
+		defenceActParV = 500
+		defenceActParMV = 500
+		defenceActV = 10
+		defenceActMV = 10
 		'<b><font color="red"><<$nameV>> adds the marks around his hands and formed water sphere protecting it from damage.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if defenceV <= 1000 and kisamePro > 0:
-		set mannaV -= 500
-		set defenceV += 5000
-		set defenceMV += 5000
-		set defenceWV += 5000
-		set defenceActParV = 500
-		set defenceActParMV = 500
-		set defenceActV = 10
-		set defenceActMV = 10
-		set defAtkMV = 10
+	elseif defenceV <= 1000 and kisamePro > 0:
+		mannaV -= 500
+		defenceV += 5000
+		defenceMV += 5000
+		defenceWV += 5000
+		defenceActParV = 500
+		defenceActParMV = 500
+		defenceActV = 10
+		defenceActMV = 10
+		defAtkMV = 10
 		'<b><font color="red"><<$nameV>> adds the marks and the space around the hands begins pogruzhatsya water.</font></b>'
 
-		if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
 
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if defenceV > 1000:
-		set kisamerand= rand(0, 3)
+	elseif defenceV > 1000:
+		kisamerand= rand(0, 3)
 
 		if kisamerand= 0:
-			set klonV += 3
+			klonV += 3
 			'<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
 			xgt 'fight', 'sta'
 			exit
-		end
-
-		if kisamerand> 0:
-			set mannaV -= 250
-			set damTipV = 1500
-			set damTipMV = 2500
-			set bonusShV = 50
+		elseif kisamerand> 0:
+			mannaV -= 250
+			damTipV = 1500
+			damTipMV = 2500
+			bonusShV = 50
 			'<b><font color="red"><<$nameV>> adds the characters in the hands and fly sharks have created from the water.</font></b>'
 
-			if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
+			if klon > 0:klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
 
 			xgt 'atakA1', 'atak'
 			exit
@@ -367,7 +328,7 @@ if $ARGS[0] = 'gun':
 	cla
 	!!program directly attack
 	!!gs 'atak'
-	set damTipV = 1500
+	damTipV = 1500
 	'<b><font color="red"><<$nameV>> shoots at you.</font></b>'
 	xgt 'atakA1', 'atak'
 end
@@ -382,12 +343,12 @@ end
 if $ARGS[0] = 'fighter2':
 	cla
 	!!program directly attack
-	set deystrand = rand(0, 1)
-
-	if deystrand = 0:xgt 'atak', 'enemy'
+	deystrand = rand(0, 1)
 
-	if deystrand = 1:
-		set knifeV = rand(1, 3)
+	if deystrand = 0:
+		xgt 'atak', 'enemy'
+	elseif deystrand = 1:
+		knifeV = rand(1, 3)
 		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
 		xgt 'atak', 'enemy'
 	end
@@ -398,19 +359,19 @@ if $ARGS[0] = 'fighter3':
 
 	!!program directly attack
 	if tuman = 0 and tumanV < 5 and mannaV > 10:
-		set mannaV -= 10
-		set tumanV += 10
+		mannaV -= 10
+		tumanV += 10
 		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
 		xgt 'fight', 'sta'
 		exit
 	end
 
-	set deystrand = rand(0, 1)
-
-	if deystrand = 0:xgt 'atak', 'enemy'
+	deystrand = rand(0, 1)
 
-	if deystrand = 1:
-		set knifeV = rand(1, 3)
+	if deystrand = 0:
+		xgt 'atak', 'enemy'
+	elseif deystrand = 1:
+		knifeV = rand(1, 3)
 		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
 		xgt 'atak', 'enemy'
 	end
@@ -421,27 +382,25 @@ if $ARGS[0] = 'fighter4':
 
 	!!program directly attack
 	if tuman = 0 and tumanV < 5 and mannaV > 10:
-		set mannaV -= 10
-		set tumanV += 10
+		mannaV -= 10
+		tumanV += 10
 		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if klonV < 1 and mannaV > 15:
-		set mannaV -= 15
-		set klonV += 1
+	elseif klonV < 1 and mannaV > 15:
+		mannaV -= 15
+		klonV += 1
 		'<b><font color="green">is washed</font></b>'
 		xgt 'fight', 'sta'
 		exit
 	end
 
-	set deystrand = rand(0, 1)
-
-	if deystrand = 0:xgt 'atak', 'enemy'
+	deystrand = rand(0, 1)
 
-	if deystrand = 1:
-		set knifeV = rand(1, 3)
+	if deystrand = 0:
+		xgt 'atak', 'enemy'
+	elseif deystrand = 1:
+		knifeV = rand(1, 3)
 		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
 		xgt 'atak', 'enemy'
 	end
@@ -452,34 +411,30 @@ if $ARGS[0] = 'fighter5':
 
 	!!program directly attack
 	if tuman = 0 and tumanV < 5 and mannaV > 10:
-		set mannaV -= 10
-		set tumanV += 10
+		mannaV -= 10
+		tumanV += 10
 		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if klonV < 1 and mannaV > 15:
-		set mannaV -= 15
-		set klonV += 1
+	elseif klonV < 1 and mannaV > 15:
+		mannaV -= 15
+		klonV += 1
 		'<b><font color="green">is washed</font></b>'
 		xgt 'fight', 'sta'
 		exit
-	end
-
-	if stun < 1 and manna > 20:
-		set stunnerV = 1
-		set mannaV -= 20
+	elseif stun < 1 and manna > 20:
+		stunnerV = 1
+		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'
+	deystrand = rand(0, 1)
 
-	if deystrand = 1:
-		set knifeV = rand(1, 3)
+	if deystrand = 0:
+		xgt 'atak', 'enemy'
+	elseif deystrand = 1:
+		knifeV = rand(1, 3)
 		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
 		xgt 'atak', 'enemy'
 	end

Файловите разлики са ограничени, защото са твърде много
+ 541 - 229
locations/onobjsel


+ 135 - 138
locations/sitr

@@ -5,51 +5,61 @@ $metkaM = $ARGS[0]
 $locM = $CURLOC
 $metka = $ARGS[0]
 $loc = $CURLOC
-'<center><b><font color="maroon">Living room</font></b></center>'
-
-if remsitr = 0 and TV = 0 or komp = 0 and remsitr = 0:'<center><img src="images/etogame/sitr.jpg"></center>'
-if remsitr = 0 and TV > 0 and komp > 0:'<center><img src="images/etogame/sitr1.jpg"></center>'
-if remsitr = 1:'<center><img src="images/etogame/sitr2.jpg"></center>'
-
 clr
+minut += 1
+housrA = 1
+elektro += 1
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
-set minut += 1
-set housrA = 1
-set elektro += 1
+'<center><b><font color="maroon">Living room</font></b></center>'
+
+if remsitr = 0:
+	if TV = 0 or komp = 0:
+		'<center><img src="images/etogame/sitr.jpg"></center>'
+	else
+		'<center><img src="images/etogame/sitr1.jpg"></center>'
+	end
+	$zal = 'tight room'
+	$zal2 = 'shabby wall stands'
+elseif remsitr = 1:
+	'<center><img src="images/etogame/sitr2.jpg"></center>'
+	$zal = 'modern, bright room'
+	$zal2 = 'walls with light-colored wallpaper worth'
+end
 
-if TV = 0:set $TV = 'a great place for a TV, which you don''t have'
-if TV = 1:set $TV = 'an ancient <a href="exec:gt ''TV'', ''start''">TV</a>'
-if TV = 2:set $TV = 'a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>'
+if TV = 0:$TV = 'a great place for a TV, which you don''t have'
+if TV = 1:$TV = 'an ancient <a href="exec:gt ''TV'', ''start''">TV</a>'
+if TV = 2:$TV = 'a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>'
 
-if divan = 0:set $divan = '<a href="exec:gt ''divan'', ''start''">an old sofa</a>'
-if divan = 1:set $divan = 'luxury <a href="exec:gt ''divan'', ''start''">a leather sofa</a>'
+if divan = 0:$divan = '<a href="exec:gt ''divan'', ''start''">an old sofa</a>'
+if divan = 1:$divan = 'luxury <a href="exec:gt ''divan'', ''start''">a leather sofa</a>'
 
-if komp = 0:set $komp = ''
-if komp = 1:set $komp = 'with a <a href="exec:gt ''Komp'', ''start''">computer</a> on top of it.'
+if komp = 0:$komp = ''
+if komp = 1:$komp = 'with a <a href="exec:gt ''Komp'', ''start''">computer</a> on top of it.'
 !!!Probably CV edition
-if selfPornvidDVD = 0: set $selfPornvidDVD = ''
-if selfPornvidDVD > 0: set $selfPornvidDVD = 'You have <a href="exec:Dynamic $selfPorno_Take"><<selfPornvidDVD>></a> of your amateur porn videos available.'
+if selfPornvidDVD = 0: $selfPornvidDVD = ''
+if selfPornvidDVD > 0: $selfPornvidDVD = 'You have <a href="exec:Dynamic $selfPorno_Take"><<selfPornvidDVD>></a> of your amateur porn videos available.'
 !!!
-if remsitr = 0:set $zal = 'A cramped room' & set $zal2 = 'faded wall'
-if remsitr = 1:set $zal = 'A modern, bright room' & set $zal2 = 'papered walls with light'
-
-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 stol = 0:$stol = 'decrepit <a href="exec:gt ''stol'', ''start''">table</a>'
+if stol = 1:$stol = 'new <a href="exec:gt ''stol'', ''start''">table</a>'
 
-if mishka > 0:'On a shelf is <<mishka>> teddy bear'
+!!!Probably CV Edition
+'<<$zal>>, <<$divan>> stands next to the <<$zal2>>. In front of the sofa is <<$TV>>. In front of the window is a <<$stol>> <<$komp>> <<$selfPornvidDVD>>'
+!!!
 
 if obruch > 0:'<br>A hula hoop stands in corner of the room. '
 if skak > 0:'A jump rope is on a shelf. '
 if bookYog > 0:'A yoga mat is rolled up in a corner. '
-'<<$zal>>, <<$divan>> stands next to the <<$zal2>>. In front of the sofa is <<$TV>>. In front of the window is a <<$stol>> <<$komp>> <<$selfPornvidDVD>>'
+if mishka > 0:'On a shelf is <<mishka>> teddy bear'
 
 *nl
 
+!!!Probably CV edition
 sports = 0
 $sportStringPrefix = ''
+!!!
 
 if obruch > 0 and obruchday ! day:
 	$sitrobr = $sportStringPrefix + ' <a href="exec:dynamic $sitrobrd">twist hoop</a>'
@@ -106,18 +116,22 @@ if sports = 1:
 	'The room has enough space for a variety of sport activities:<<$sportsitr>>.'
 end
 
-!!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:'<br>Lying on the table are <<suhbelo2>> pieces of dried laundry that need <a href="exec:dynamic $gladbelo">ironing</a>.'
 
 *nl
+!!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 husband > 0 and husbandrink ! 10 and husbandrinkday ! day:
 	if week < 6:
 		if hour > 17 and hour <= 22:'<a href="exec:gt ''husb'', ''start''">On the couch sits husband and watching TV.</a>'
 	else
-		if hour > 7 and hour < 17:'<a href="exec:gt ''husb'', ''start''">On the couch sits husband and watching TV.</a>'
-		if hour > 17 and hour <= 22:'<a href="exec:gt ''husb'', ''start''">On the couch sits husband and watching TV.</a>'
+		if hour > 7 and hour < 17:
+			'<a href="exec:gt ''husb'', ''start''">On the couch sits husband and watching TV.</a>'
+		else
+			'<a href="exec:gt ''husb'', ''start''">On the couch sits husband and watching TV.</a>'
+		end
 	end
 end
 
@@ -131,16 +145,16 @@ if student > 0 and kursovik < 100:
 	act 'Write kursovik (1:00)':
 		cla
 		*clr
-		set minut += 60
-		set kursovik += rand(intel / 20, intel / 10)
+		minut += 60
+		kursovik += rand(intel / 20, intel / 10)
 
-		if kursovik > 100:set kursovik = 100
+		if kursovik > 100:kursovik = 100
 
-		set manna -= 10
+		manna -= 10
 		'<center><img src="images/etogame/study.jpg"></center>'
 		'You sat on the course work and prepared her <<kursovik>> percent.'
 
-		act 'Exit':gt 'sitr'
+		act 'Leave':gt 'sitr'
 	end
 end
 
@@ -151,17 +165,17 @@ if zoo >= 6:
 			act 'Call <<$namesob>>':
 				cla
 				*clr
-				set minut += 30
+				minut += 30
 				'<center><img src="images/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
+					zoo += 1
+					horny = 0
+					orgasm += 1
 					'"What''s he doing dear, stop him, " cries the husband'
 					'"I can not, try myself, " you reply.'
-					set husband -= 1
+					husband -= 1
 					'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
 					'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> begins to pace the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
 					'"Oh my God, that he was going to do?" shrieked <<$husName>>, see attempts dog jump on you.'
@@ -177,16 +191,14 @@ if zoo >= 6:
 						if izvratH = 0:
 							'"Oh my God, I can not look at it, " cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
 							'"I''ll take him now on euthanasia, " said <<$husName>>'
-						end
-
-						if izvratH = 1:
-							'"Well get off of her, " shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes Svetsik so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
+						else
+							'"Well get off of her, " shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes <<$name>> so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
 							'"I''ll take him now on euthanasia, " said <<$husName>>'
 						end
 
 						act 'Allow':
-							set sobaka = 0
-							set zoo = 0
+							sobaka = 0
+							zoo = 0
 							gt 'sitr'
 						end
 
@@ -198,9 +210,7 @@ if zoo >= 6:
 							act 'Finish':gt 'sitr'
 						end
 					end
-				end
-
-				if harakHusb = 1:
+				elseif harakHusb = 1:
 					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
 					'"I can not, try myself, " you reply.'
 
@@ -209,8 +219,8 @@ if zoo >= 6:
 						'"I''ll take him now on euthanasia, " said <<$husName>>'
 
 						act 'Allow':
-							set sobaka = 0
-							set zoo = 0
+							sobaka = 0
+							zoo = 0
 							gt 'sitr'
 						end
 
@@ -221,13 +231,11 @@ if zoo >= 6:
 
 							act 'Finish':gt 'sitr'
 						end
-					end
-
-					if izvratH = 1:
-						set zoo += 1
-						set bj += 1
-						set swallow += 1
-						set cumlip += 1
+					else
+						zoo += 1
+						bj += 1
+						swallow += 1
+						cumlip += 1
 						'"Can not or do not want, " said <<$husName>> smiling and continues to sit and watch as the dog licks you.'
 						'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
 
@@ -240,8 +248,8 @@ if zoo >= 6:
 							'"I''ll take him now on euthanasia, " said <<$husName>>'
 
 							act 'Allow':
-								set sobaka = 0
-								set zoo = 0
+								sobaka = 0
+								zoo = 0
 								gt 'sitr'
 							end
 
@@ -253,7 +261,7 @@ if zoo >= 6:
 								act 'Jerk dog':
 									cla
 									*clr
-									set husband -= 1
+									husband -= 1
 									'<center><img src="images/zoo/z6.jpg"></center>'
 									'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'
 
@@ -263,8 +271,8 @@ if zoo >= 6:
 								act 'Suck dog':
 									cla
 									*clr
-									set swallow += 1
-									set husband -= 40
+									swallow += 1
+									husband -= 40
 									'<center><img src="images/zoo/z7.jpg"></center>'
 									'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
 									'"Well, you''re a pervert, " the husband says with obvious distaste.'
@@ -276,32 +284,28 @@ if zoo >= 6:
 							end
 						end
 					end
-				end
-
-				if harakHusb = 2:
+				else
 					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
 					'"I can not, try myself, " you reply.'
 
 					if izvratH = 0:
-						set manna -= 15
-						set willpower -= 15
+						manna -= 15
+						willpower -= 15
 						'<<$husName>> trying ottoschit dog, but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, did not have time to climb dog as man begins to kick harder, seeing his condition, you scored in angle and covering his head with hands close your eyes. A few minutes later the dog stops.'
 						'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
 						'"Well, what froze shalt say to you, I do this on the trash Dogmeat''ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
 
 						act 'Finish':
-							set sobaka = 0
-							set zoo = 0
+							sobaka = 0
+							zoo = 0
 							gt 'sitr'
 						end
-					end
-
-					if izvratH = 1:
-						set zoo += 1
-						set bj += 1
-						set swallow += 1
-						set cumlip += 1
-						set SUB += 1
+					else
+						zoo += 1
+						bj += 1
+						swallow += 1
+						cumlip += 1
+						SUB += 1
 						'"What do you mean I can not, that you like the way he licks you, " shouts <<$husName>>.'
 						'"No, of course you do not, " you begin to make excuses.'
 						'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him, " he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'
@@ -315,18 +319,18 @@ if zoo >= 6:
 							act 'Allow':
 								cla
 								*clr
-								set suprdolg += 1
-								set sex += 1
-								set anal += 1
+								suprdolg += 1
+								sex += 1
+								anal += 1
 								'<center><img src="images/zoo/z5.jpg"></center>'
 								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you''re not trying, as well, cup your point."'
 
 								act 'Substitute ass':
 									cla
 									*clr
-									set analorgasm += 1
-									set orgasm += 1
-									set horny = 0
+									analorgasm += 1
+									orgasm += 1
+									horny = 0
 									'<center><img src="images/zoo/z8.jpg"></center>'
 									'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
 
@@ -340,9 +344,7 @@ if zoo >= 6:
 		else
 			act 'Call <<$namesob>>':gt 'soba', 'zoof30'
 		end
-	end
-
-	if husband = 0 or husbandrink = 10:
+	elseif husband = 0 or husbandrink = 10:
 		act 'Call <<$namesob>>':gt 'soba', 'zoof30'
 	end
 end
@@ -351,11 +353,11 @@ 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
+		minut += 30
+		mastr += 1
+		manna += 15
+		willpower += 15
+		vagina += 1
 
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
@@ -374,15 +376,13 @@ if dildo > 0 and horny >= 50:
 					'"Owned so often, less often in the ass, if you want to see?" you asked'
 
 					if izvratH = 0:
-						set husband -= 1
+						husband -= 1
 						'"I''ll wait outside the door until you''re done, " he said and left. You continued to satisfy themselves rapidly and soon finished.'
-						set horny = 0
-						set orgasm += 1
+						horny = 0
+						orgasm += 1
 
 						act 'Finish':gt 'sitr'
-					end
-
-					if izvratH = 1:
+					elseif izvratH = 1:
 						'"Well, I do not know, " he stammered.'
 						'"So you want" you said'
 
@@ -397,9 +397,9 @@ if dildo > 0 and horny >= 50:
 							act 'Solve':
 								cla
 								*clr
-								set analorgasm += 1
-								set orgasm += 1
-								set horny = 0
+								analorgasm += 1
+								orgasm += 1
+								horny = 0
 								'<center><img src="images/img/hasb/m13.jpg"></center>'
 								'<<$husName>> gets dick and starts masturbating, it is not what you expected, and at first you even felt a little sad 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 the way you drive the dildo his popkui be covered and you pleasure, you screamed and fell to the table, having experienced an orgasm, dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you took the dildo from ass and began to lick it, looking into the eyes of her husband, from such a spectacle he immediately discharged onto the floor. You are drawn to him sticking out his lips, in a second he had passionately kissed you.'
 
@@ -407,27 +407,23 @@ if dildo > 0 and horny >= 50:
 							end
 						end
 					end
-				end
-
-				if harakHusb = 1:
+				elseif harakHusb = 1:
 					'"That''s a number I mean you is not enough?" he asks.'
 					'"I''m sorry dear, but I really need, and you''ve been busy, " you reply, without stopping to masturbate.'
 					'"Well then, show me everything that you know how I''ll look, " he says.'
 					'"And how do I do it in the ass, too, to show?" you asked'
 
 					if izvratH = 0:
-						set husband += 1
-						set husbizvradd += 1
+						husband += 1
+						husbizvradd += 1
 						'"No, do not, and yet that''s enough, " he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
 						'"For such a lovely audience anything, but only after the intermission, " you laughed. <<$husName>> helped you get down from the table.'
-						set horny = 0
-						set orgasm += 1
+						horny = 0
+						orgasm += 1
 
 						act 'Finish':gt 'sitr'
-					end
-
-					if izvratH = 1:
-						set husband += 1
+					else
+						husband += 1
 						'"And how is it necessarily demonstrate" he said.'
 						'"Anything you want, " you said'
 
@@ -446,32 +442,28 @@ if dildo > 0 and horny >= 50:
 								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I''ll take this hole."'
 
 								act 'Substitute ass':
-									set picrand = 88
+									picrand = 88
 									gt 'sex', 'anal'
 								end
 							end
 						end
 					end
-				end
-
-				if harakHusb = 2:
+				elseif harakHusb = 2:
 					'"What hole itching?" he asks.'
 					'"I''m sorry dear, but I really need, and you''ve been busy, " you reply, without stopping to masturbate.'
 
 					if izvratH = 0:
-						set husband += 1
-						set husbizvradd += 1
+						husband += 1
+						husbizvradd += 1
 						'"Well then, open your mouth, " he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I''m going to fuck you"'
 
 						act 'Spread her legs ':
-							set picrand = 88
+							picrand = 88
 							gt 'sex', 'vag'
 						end
-					end
-
-					if izvratH = 1:
-						set husband += 1
-						set SUB += 1
+					else
+						husband += 1
+						SUB += 1
 						'"Insert this crap myself in the ass and mash, I''ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
 
 						act 'Take by mouth':
@@ -481,23 +473,23 @@ if dildo > 0 and horny >= 50:
 							'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point now I''m ass Flare."'
 
 							act 'Substitute ass':
-								set picrand = 88
+								picrand = 88
 								gt 'sex', 'anal'
 							end
 						end
 					end
 				end
 			else
-				set horny = 0
-				set orgasm += 1
+				horny = 0
+				orgasm += 1
 				'<center><img src="images/pics/mastr.gif"></center>'
 				'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
 
 				act 'Breath.':gt 'sitr'
 			end
 		else
-			set horny = 0
-			set orgasm += 1
+			horny = 0
+			orgasm += 1
 			'<center><img src="images/pics/mastr.gif"></center>'
 			'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
 
@@ -509,27 +501,31 @@ end
 !!!Probably CV edition
 $selfPorno_Take = {
 	'You have <<selfPornvidDVD>> of your amateur porn videos available'
+
 	if selfPornvidDVD > 0 and bag > 0:
 		act 'Take one':
-			set selfPornvidDVD -= 1
-			set selfPornvidDVDCarry +=1
+			selfPornvidDVD -= 1
+			selfPornvidDVDCarry +=1
 		end
 	end
+
 	if selfPornvidDVDCarry > 0:
 		act 'Put one back':
-			set selfPornvidDVD +=1
-			set selfPornvidDVDCarry -=1
+			selfPornvidDVD +=1
+			selfPornvidDVDCarry -=1
 		end
 	end
+
 	act 'Back': gt 'sitr'
 }
 !!!
 
-!'if $ARGS [0] ='guest':
+!'
+if $ARGS [0] ='guest':
 	gs 'stat'
 	cla
 	*clr
-	set minut += 30
+	minut += 30
 	'<center><img src="images/img/house/g0.jpg"></center>'
 
 	'My husband came home and covenant you, you go out to him and see him with another man, he presents it as its Colleges. You pass in the hall and sit down on the couch, they both have fun on the husband went to the store to buy something to drink and leave you alone. You are chatting for a while, but quickly running threads, then the man says he tried to persuade your husband to go to the club, but he agreed, and then I want to dance. You do not think of anything better, it offers dance here and he readily agrees.'
@@ -538,7 +534,7 @@ $selfPorno_Take = {
 		cla
 		*clr
 		if vnesh < 15:
-			set husbandrink = 10
+			husbandrink = 10
 			'<center><img src="images/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, you turn off the music, laughing and sit on the couch, it takes about an hour and still no husband, then the guest will say that it will look at the leaves'
 			act 'Up':gt 'sitr'
@@ -548,7 +544,7 @@ $selfPorno_Take = {
 			if horny < 80:
 				act 'Step back':
 					cla
-					set husbandrink = 10
+					husbandrink = 10
 					'You step back from it and turn off the music sit on the sofa, it takes about an hour and still no husband, then the guest will say that it will look at the leaves'
 					act 'Up':gt 'sitr'
 				end
@@ -556,12 +552,13 @@ $selfPorno_Take = {
 			act 'Allow':
 				cla
 				*clr
-				set horny += 20
+				horny += 20
 				'<center><img src="images/img/house/g3.jpg"></center>'
 				'You do not resist, and he continues to grope you, you will soon have a third on while he caresses your bare breasts, you will no longer restrain himself vsilu and turned to him, running his hand into his pants and pulled out a member. He sticks out his tongue and lips around his you start to suck at the same time masturbate him.'
 				act 'Take by mouth':
 					cla
 					*clr
-					'<center><img src="images/img/house/g4.jpg"></center>''!
+					'<center><img src="images/img/house/g4.jpg"></center>'
+'!
 
 --- sitr ---------------------------------

Някои файлове не бяха показани, защото твърде много файлове са промени