8 Commits b6f1c54f20 ... ef58fc56e6

Author SHA1 Message Date
  JulienJaden ef58fc56e6 Syncing repository 6 years ago
  KevinSmarts d2955b9e7e Strap on now causes loss of virginity and increases to vaginal capacity 6 years ago
  KevinSmarts 7826eef8d9 Changes to abortion code from the forum 6 years ago
  KevinSmarts b2ebe11369 Merge branch 'master' of https://git.catrenelle.com/test234/glife 6 years ago
  test234 3386d1478d - multiple small fixes, commented to make reverts easier 6 years ago
  3xpurt 3a449f7d7b [fixed] More image size fixes. 6 years ago
  3xpurt 22fdfaab2f [fixed] Incorrect image dimensions 6 years ago
  3xpurt cad2059a06 [fixed] extra end in qwBarPolet (also ran EOL clean-up). 6 years ago

+ 50 - 31
locations/Cheatmenu_din

@@ -911,16 +911,16 @@ $cheatmenu['reputation'] = {
 	if pcs_lovers[0] = 1:
 		nl
 		pl'You are dating <<$loverdesc[0]>>.'
-		if pcs_lovers_rel[0] < 0: pcs_lovers_rel[0] = 0
+		if loverrelation[0] < 0: loverrelation[0] = 0
 		if loverdays[0] < 0: loverdays[0] = 0
 		if haraklover[0] > 2: haraklover[0] = 0
 		if loverizvrat[0] > 1: loverizvrat[0] = 0
 		pl'Change lover''s personality: <a href="exec:haraklover[0] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[0]>></a>'
 		pl'Change lover''s perversion: <a href="exec:loverizvrat[0] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[0]>></a>'
-		pl'Relationship: <<pcs_lovers_rel[0]>> <a href="exec:pcs_lovers_rel[0] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[0] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
+		pl'Relationship: <<loverrelation[0]>> <a href="exec:loverrelation[0] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[0] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		pl'You''ve been dating for <<loverdays[0]>> days. <a href="exec:loverdays[0] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[0] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
 	end
-		if pcs_lovers[1] = 1:
+	if pcs_lovers[1] = 1:
 		nl
 		pl'You are dating <<$loverdesc[1]>>.'
 		if loverrelation[1] < 0: loverrelation[1] = 0
@@ -932,7 +932,7 @@ $cheatmenu['reputation'] = {
 		pl'Relationship: <<loverrelation[1]>> <a href="exec:loverrelation[1] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[1] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		pl'You''ve been dating for <<loverdays[1]>> days. <a href="exec:loverdays[1] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[1] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
 	end
-		if pcs_lovers[2] = 1:
+	if pcs_lovers[2] = 1:
 		nl
 		pl'You are dating <<$loverdesc[2]>>.'
 		if loverrelation[2] < 0: loverrelation[2] = 0
@@ -1278,33 +1278,47 @@ $cheatmenu['force_preg'] = {
 }
 
 $cheatmenu['remove_preg'] = {
-	FertEgg = 0
-	killvar 'polkid'
-	killvar '$kidname'
-	killvar 'kidage'
-	killvar 'daykid'
-	killvar 'monthkid'
-	killvar 'yearkid'
-	killvar 'Babyptype'
-	killvar '$ChildFath'
-	killvar '$ChildThFath'
-	killvar 'hairkid'
-	killvar 'eyeskid'
-	killvar 'ChildConType'
-	killvar 'Babyptype'
-	killvar '$WombpotFath'
-	babyembryo = 0
-	if preg > 0 or cycle = 5:
-		mesec = 48
-		FocH = 0
-		EggRH = 0
-		Ovulate = 0
-		UnfertEgg = 0
-		PregChem = 0
-		preg = 0
-		LutH = 0
-		RecovH = 0
-		cycle = 0
+	vidage += 1
+	abort += 1
+	abortionbirthdate = daystart
+	money -= 15000
+	pregtime = 0
+	pregtalk = 0
+	preg = 0
+	thinkpreg = 0
+	knowpreg = 0
+	cycle = 4
+	RecovH = rand(7,70)
+	RecovH += pregchem
+	knowpregloss = 2
+	preg = 0
+	thinkpreg = 0
+	knowpreg = 0
+	pcs_hydra += 20
+	!! I am not sure, why is it here this cycle, but I leave it so (rachels)
+	nextbaby = arrsize('yearkid')
+	if broodcurse > 0: over = 13 & gt'gameover'
+	:poliabortloop
+	!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
+	if yearkid[nextbaby-1] = 0:
+		KILLVAR 'polkid',nextbaby-1
+		KILLVAR '$kidname',nextbaby-1
+		KILLVAR 'kidage',nextbaby-1
+		KILLVAR 'daykid',nextbaby-1
+		KILLVAR 'monthkid',nextbaby-1
+		KILLVAR 'yearkid',nextbaby-1
+		KILLVAR 'Babyptype',nextbaby-1
+		KILLVAR '$ChildFath',nextbaby-1
+		KILLVAR '$ChildThFath',nextbaby-1
+		KILLVAR 'hairkid',nextbaby-1
+		KILLVAR 'eyeskid',nextbaby-1
+		KILLVAR 'cumarrcon',nextbaby-1
+		KILLVAR '$wombpotfath',nextbaby-1
+		BabyEmbryo -= 1
+	end
+	nextbaby -= 1
+	if nextbaby > 0:
+		jump 'poliabortloop'
 	end
 }
 
@@ -1374,6 +1388,11 @@ $cheatmenu['display'] = {
 	else
 		pl'Full morning routine enabled: Currently OFF - <a href="exec:enfullmorrout = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
 	end
+	if editpornname = 1:
+		pl'Editing of the names of the porn movies you stared enabled: Currently ON - <a href="exec:editpornname = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
+	else
+		pl'Editing of the names of the porn movies you stared disabled: Currently OFF - <a href="exec:editpornname = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
+	end
 	nl
 	pl '<center><B>Display Setting</B></center>'
 	if set_imgh > 0: set_imgw = 0

+ 5 - 5
locations/ParChurch

@@ -20,7 +20,7 @@ if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	gs 'stat'
 	'<center><b><font color="maroon">Church of Saint Nikolas</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/st-nikolas.jpg" width="1000" height="422"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/st-nikolas.jpg"></center>'
 	'Pavlovsk''s only church. The church of Saint Nikolas is the tallest building in town. It''s old, but well maintained by the worshippers of the parish.'
 	''
 	'You can confess every weekday between 7h and 9h or 16h and 18h. On the weekend between 16h and 18h.'
@@ -65,7 +65,7 @@ if $ARGS[0] = 'vigil':
 	hour = 22
 	gs 'stat'
 	PLAY 'sound/church/Blessing.mp3',30
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg" width="1000" height="422"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg"></center>'
 	'You attend the vigil and reflect on the recent events in your life. The harmonies as the hymns and psalms are sung sweep aside some of the worries in your heart, although you know they will return once you leave this holy place, you still enjoy the rest. The sweet scent of incense tickles your nose and reminds you of the scent of' + iif(rex_love = 1, 'Rex', 'your step-father') + '''s cologne.'  
 	if pav_slut >= 100:
 		'Most of the parishioners seem upset that you are here. You notice that parents are making sure their children don''t go near you. Even a couple of the acolytes glare at you angrily.'
@@ -88,7 +88,7 @@ if $ARGS[0] = 'vigil':
 			if pav_prostitute > 10: pav_prostitute -= 10
 		end
 		hour = 23
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(9,10) +'.jpg" width="1000" height="422"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(9,10) +'.jpg"></center>'
 		'You decide to stay for the rite of mutual forgiveness and feel much better afterwards.'
 		act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 	end
@@ -101,7 +101,7 @@ if $ARGS[0] = 'liturgy':
 	gs 'stat'
 	hour = 12
 	PLAY 'sound/church/t' + rand(1,19) + '.mp3',30
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,8) +'.jpg" width="1000" height="422"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,8) +'.jpg"></center>'
 	if pav_slut < 50 and Conf_Kirill <= 1: 
 		pcs_mood += 20
 		moral += 2
@@ -135,7 +135,7 @@ if $ARGS[0] = 'Narthex':
 	CLOSE ALL
 	gs 'stat'
 	PLAY 'sound/church/76139__dkustic__090227-01-people-church-concert.wav',30
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg" width="1000" height="422"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
 	'You enter the church and the scent of insense and beeswax fills your lungs. Your eyes are drawn past the Narthex into the Nave with its walls covered in lovingly painted icons while a thousand points of light dance in joy throughout God''s house from the magnificent chandelier that hangs from the ceiling.'
 	'To your left as you enter, there is a counter where a deacon sells candles, icons, and prayer books. He smiles and nods at you absently. acknowledging your presence without really seeing you.'
 	

+ 3 - 0
locations/arousal

@@ -267,6 +267,9 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 	elseif $ARGS[0] = 'vaginal_strap':
 		count['vaginal_strap'] = 1
 		stim['mag'] += 1
+		!! virginal capacity increase
+		if pcs_vag < dick:pcs_vag += 1
+		if pcs_vag*2 < dick:pcs_vag += 1
 		!! the same as for 'vaginal'
 		vgrdif = grange - pcs_vag
 		vltdif = temp_dick - pcs_vag

+ 1 - 1
locations/gpoli

@@ -185,7 +185,7 @@ if $ARGS[0] = '':
 				if polkid[nextbaby] = 1:$polreb[nextbaby] = 'boy' & '"Congratulations it''s a boy. What is his name?"'
 
 				wait 350
-				$kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>'s name")
+				$kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>''s name")
 				'The doctors clean up <<$kidname[nextbaby]>>.'
 				if $kidname[nextbaby] = '':
 					if polkid[nextbaby] = 0:$kidname[nextbaby] = 'Masha'

+ 2 - 0
locations/lover_change

@@ -835,6 +835,7 @@ end
 
 if $ARGS[0] = 'Lips':
 	act 'Enter clinic':
+		cla
 		'As you arrive at the clinic, <<$loverdesc[lover_number]>> walks up to the front desc and asks to speak with the plastic surgeon. After a couple of minutes the plastic surgeon comes out with a clipboard.'
 		'<<$loverdesc[lover_number]>> talks to the surgeon and after a brief exchange of words, <<$tXe>> hands the surgeon a respectable stack of bills. The surgeon discreetly puts the bills into his jacket and starts to walk toward you.'
 		'Even though you don''t know what <<$loverdesc[lover_number]>> said to the surgeon, you still jump when he starts to speak to you.'
@@ -947,6 +948,7 @@ if $ARGS[0] = 'Tits':
 					*nl
 					*nl
 					act 'Wake up':
+						cla
 						minut += 120
 						silicone += titAmount
 						gs 'stat'

+ 7 - 7
locations/lover_meet

@@ -168,7 +168,7 @@ if $ARGS[0] = 'start':
 			loverrelation[lover_number] += 0
 			'<<$loverdesc[lover_number]>> gets close to you, and you can tell by <<$tXyr>> body movements <<$tXe>> wants to kiss you.'
 			act 'Kiss with tongue':
-				*clr 
+				!! *clr 
 				'You take the initiative and when <<$tXe>> opens <<$tXyr>> mouth you thrust your tongue into <<$tXyr>> mouth.'
 				gs 'arousal', 'kiss', 5
 				pcs_dom += 1
@@ -252,7 +252,7 @@ if $ARGS[0] = 'start':
 				exit
 			end
 			act 'Kiss with lips':
-				*clr 
+				!! *clr 
 				'You press your <<$meetlip>> softly against <<$tXyr>>, and for a split second time seems to stop.'
 				pcs_mood += 10
 				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
@@ -353,7 +353,7 @@ if $ARGS[0] = 'start':
 				exit
 			end
 			act 'Hint for a kiss on the cheek':
-				*clr 
+				!! *clr 
 				'You make a cute pouty face and turn your cheek toward <<$loverdesc[lover_number]>>. <<$tXec>> understands and though <<$tXe>> wanted to kiss you, <<$tXe>> settles with giving you a peck on the cheek'
 				pcs_mood += 10
 				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
@@ -425,7 +425,7 @@ if $ARGS[0] = 'start':
 						exit
 					elseif (cumloc[6] = 1 or cumloc[7] = 1):
 						gs 'lover', 'remove', lover_number
-						'<<$tXec>> realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
+						'<<$tXec>> realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!"'
 						pcs_mood -= 20
 						dynamic $go_home
 						exit
@@ -439,7 +439,7 @@ if $ARGS[0] = 'start':
 				exit
 			end
 			act 'Push <<$tXyr>> face away':
-				*clr 
+				!! *clr 
 				didPushAway = 1
 				'Maybe you had a bad day, maybe you don''t want a kiss, you rudely push <<$tXyr>> face away, and by the looks of it, hurting <<$tXyr>> feelings in the process.'
 
@@ -482,7 +482,7 @@ if $ARGS[0] = 'likes':
 end
 	
 if $ARGS[0] = 'actions':
-	cls 
+	!! cls 
 
 	act 'Can I ask you how you think I look?':
 		'<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
@@ -815,7 +815,7 @@ if $ARGS[0] = 'actions':
 					end
 					
 				else
-					'Erm... Nothing..."'
+					'Erm... Nothing...'
 					act 'Well then...':
 						xgt 'lover_meet', 'actions'
 						exit

+ 4 - 3
locations/poli

@@ -180,7 +180,8 @@ if $ARGS[0] = 'start':
 			nextbaby = arrsize('yearkid')
 			if broodcurse > 0: over = 13 & gt'gameover'
 			:poliabortloop
-			if Babyptype[nextbaby] < 200:
+			!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
+			if yearkid[nextbaby-1] = 0:
 				KILLVAR 'polkid',nextbaby-1
 				KILLVAR '$kidname',nextbaby-1
 				KILLVAR 'kidage',nextbaby-1
@@ -195,13 +196,13 @@ if $ARGS[0] = 'start':
 				KILLVAR 'cumarrcon',nextbaby-1
 				KILLVAR '$wombpotfath',nextbaby-1
 				BabyEmbryo -= 1
-				nextbaby -= 1
 			end
 			nextbaby -= 1
 			if nextbaby > 0:
 				jump 'poliabortloop'
 			end
 
+
 			act 'Return to the entrance':gt 'poli', 'start'
 		end
 	end
@@ -1385,7 +1386,7 @@ if $ARGS[0] = 'cosmetic1':
 	if money >= 90000 and pcs_eyesize ! 0:
 		'<a href="exec:gt ''poli'', ''eyeMin''">Eye reduction surgery</a> - 90,000 <b>₽</b>'
 		else
-		'Eye enlargement surgery - 90,000 <b>₽</b>' 
+		'Eye reduction surgery - 90,000 <b>₽</b>' 
 	end
 	if money >= 75000 and salo > 40:
 		'<a href="exec:gt ''poli'', ''lyposuction''">Liposuction</a> - 75,000 <b>₽</b>'

+ 4 - 2
locations/pornstudio

@@ -875,12 +875,14 @@ if $ARGS[0] = 'postvideo':
 		$porntitle[film] = 'Girls Jerk Guys #36 - '
 		$pornfilmstory[film] = '<<$pfname>>''s introduction to the world of porn, where she jerk off <<$pakter[1]>> on her tits.'
 	else
-		if $pstory = '':
+		if $pstory = '' and editpornname = 1:
 			$pornfilmstory[film] = input('You can enter the story of the porn movie. This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
 		else
 			$pornfilmstory[film] = $pstory
 		end
-		$porntitle[film] = input("Enter the name of the porn movie. <i>This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
+		if editpornname = 1:
+			$porntitle[film] = input("Enter the name of the porn movie. <i>This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
+		end
 	end
 	
 	if pfilmNOPAY = 0:

+ 110 - 105
locations/qwBarBilliard

@@ -13,17 +13,28 @@ end
 
 if $ARGS[0] = 'billiard_engine':
 	cla
-	if pcs_pool < 10:billwin = rand(0, 10)
-	elseif pcs_pool >= 10 and pcs_pool < 20:billwin = rand(0, 12)
-	elseif pcs_pool >= 20 and pcs_pool < 30:billwin = rand(0, 14)
-	elseif pcs_pool >= 30 and pcs_pool < 40:billwin = rand(0, 16)
-	elseif pcs_pool >= 40 and pcs_pool < 50:billwin = rand(0, 18)
-	elseif pcs_pool >= 50 and pcs_pool < 60:billwin = rand(0, 20)
-	elseif pcs_pool >= 60 and pcs_pool < 70:billwin = rand(0, 22)
-	elseif pcs_pool >= 70 and pcs_pool < 80:billwin = rand(0, 24)
-	elseif pcs_pool >= 80 and pcs_pool < 90:billwin = rand(0, 26)
-	elseif pcs_pool >= 90 and pcs_pool < 100:billwin = rand(0, 28)
-	elseif pcs_pool >= 100:billwin = rand(0, 30)
+	if pcs_pool < 10:
+		billwin = rand(0, 10)
+	elseif pcs_pool >= 10 and pcs_pool < 20:
+		billwin = rand(0, 12)
+	elseif pcs_pool >= 20 and pcs_pool < 30:
+		billwin = rand(0, 14)
+	elseif pcs_pool >= 30 and pcs_pool < 40:
+		billwin = rand(0, 16)
+	elseif pcs_pool >= 40 and pcs_pool < 50:
+		billwin = rand(0, 18)
+	elseif pcs_pool >= 50 and pcs_pool < 60:
+		billwin = rand(0, 20)
+	elseif pcs_pool >= 60 and pcs_pool < 70:
+		billwin = rand(0, 22)
+	elseif pcs_pool >= 70 and pcs_pool < 80:
+		billwin = rand(0, 24)
+	elseif pcs_pool >= 80 and pcs_pool < 90:
+		billwin = rand(0, 26)
+	elseif pcs_pool >= 90 and pcs_pool < 100:
+		billwin = rand(0, 28)
+	elseif pcs_pool >= 100:
+		billwin = rand(0, 30)
 	end
 end
 
@@ -44,15 +55,15 @@ if $ARGS[0] = 'billiard_ev1':
 				killvar 'billiard_ev_var'
 				minut += 30
 				gs 'stat'
-				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.' 
+				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.'
 				*nl
-				'He seems completely surprised by the fact that you beat him but still congratulates you.' 
+				'He seems completely surprised by the fact that you beat him but still congratulates you.'
 				'"How about a rematch?" You tease, to which he laughs and shakes his head: "Nah, I think I''ve lost enough money for one day."'
 				'You collect your winnings, chat with him for a few more minutes and then part ways.'
-				
+
 				act 'Return to the bar': gt 'qwBarPolet'
 			end
-		
+
 		else
 			act 'Lose':
 				cls
@@ -64,9 +75,9 @@ if $ARGS[0] = 'billiard_ev1':
 				gs 'stat'
 				'He had a strong start, but you caught back up to him, matching him ball for a ball for a while. Towards the end, however, he ran the table with precise shots, not only pocketing his balls but also setting them up in ways that blocked yours. You lost, utterly and completely.'
 				*nl
-				'He laughs and says you almost had him, pointing out how lucky he got there at the end to beat you, though you''re not quite sure it was as close as he makes it sound.' 
+				'He laughs and says you almost had him, pointing out how lucky he got there at the end to beat you, though you''re not quite sure it was as close as he makes it sound.'
 				'Still, he offers to play you again for the same amount, so you get a chance to "win your money back."'
-				
+
 				if money >= 2500:
 					act 'Play again':
 						cla
@@ -78,7 +89,7 @@ if $ARGS[0] = 'billiard_ev1':
 						gs 'qwBarBilliard', 'billiard_ev1'
 					end
 				end
-				
+
 				act 'Tell him you don''t have that kind of money':
 					cla
 					PBB_Met = 2
@@ -86,7 +97,7 @@ if $ARGS[0] = 'billiard_ev1':
 					'You shrug slightly and tell him you don''t have that much money on you. He nods in understanding, then looks around a bit before leaning in close. "We can play for something else, you know..."'
 					'You look at him suspiciously. "Like what?"'
 					'He gives you a relaxed, friendly smile. "If you win, you get the money. And if I win, you give me a blowjob. Sound fair?"'
-					
+
 					if city_slut < 75 and (pcs_dom >= 20 or (pcs_exhibition < 20 and alko < 5) or pcs_horny < 30):
 						act 'Not that kind of girl':
 							cla
@@ -95,7 +106,7 @@ if $ARGS[0] = 'billiard_ev1':
 							'You shake your head and glare at him.'
 							'"Do I look like some sort of cheap whore to you?"'
 							'You don''t even give him time to respond - you simply turn on your heel and walk back to the main room.'
-						
+
 							act 'Return to the bar': gt 'qwBarPolet'
 						end
 					end
@@ -103,39 +114,39 @@ if $ARGS[0] = 'billiard_ev1':
 					act 'I don''t think so':
 						cla
 						*nl
-						'The thought of making a wager that might end up with you sucking some random guy''s cock doesn''t really bother you in and of itself, but you are not really interest in it either.' 
+						'The thought of making a wager that might end up with you sucking some random guy''s cock doesn''t really bother you in and of itself, but you are not really interest in it either.'
 						*nl
-						'Deciding against it, you tell him: "I think I''ll pass today. Thank you for the drink and the game, though."' 
+						'Deciding against it, you tell him: "I think I''ll pass today. Thank you for the drink and the game, though."'
 						'He seems to notice that you don''t seem angry or even put off, so he smiles and simply says "See you around" before you leave.'
-						
+
 						act 'Return to the bar': gt 'qwBarPolet'
 					end
-						
+
 					act 'You''re on':
 						cla
 						*nl
 						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool2.jpg"></center>'
 						billiard_ev_var = 2
-						'<i>I can take him</i>, you think to yourself, <i>and even if I can''t, it''s just a blowjob.</i>' 
+						'<i>I can take him</i>, you think to yourself, <i>and even if I can''t, it''s just a blowjob.</i>'
 						'With that in mind, you nod your head and tell him he''s on.'
 						gs 'qwBarBilliard', 'billiard_engine'
 						gs 'qwBarBilliard', 'billiard_ev1'
 					end
 				end
-						
-				act 'You''ve played enough': 
+
+				act 'You''ve played enough':
 					cla
 					*nl
 					'You shake your head no.'
 					'"I think I''ve lost enough money, and I should probably get going anyway."'
 					'"Sounds reasonable," he concurs, "but remember, luck is fickle: My luck can run out any moment."'
 					'"Then maybe it''ll run out next time. Thank you for the drink and the... expensive company." With that, you return to the main room.'
-					
+
 					act 'Return to the bar': gt 'qwBarPolet'
 				end
 			end
 		end
-			
+
 	elseif billiard_ev_var = 2:
 		if billwin > 16:
 			act 'Win':
@@ -146,15 +157,15 @@ if $ARGS[0] = 'billiard_ev1':
 				minut += 30
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolw.jpg"></center>'
-				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.' 
+				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.'
 				*nl
-				'He seems completely surprised by the fact that you beat him but still congratulates you.' 
+				'He seems completely surprised by the fact that you beat him but still congratulates you.'
 				'"How about a rematch?" You tease, to which he laughs and shakes his head: "Nah, I think I''ve lost enough money for one day."'
 				'You collect your winnings, chat with him for a few more minutes and then part ways.'
-				
+
 				act 'Return to the bar': gt 'qwBarPolet'
 			end
-		
+
 		else
 			act 'Lose':
 				cls
@@ -163,16 +174,16 @@ if $ARGS[0] = 'billiard_ev1':
 				minut += 30
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pooll.jpg"></center>'
-				'He is good - really good. In fact, you think he has been holding back a bit until now: He rarely misses a shot, sets up obstacles for you, and before long, he has won the game.' 
+				'He is good - really good. In fact, you think he has been holding back a bit until now: He rarely misses a shot, sets up obstacles for you, and before long, he has won the game.'
 				*nl
 				'"Guess I''m getting that blowjob," he says with a smug smile.'
 				'You made that bet willingly but you are getting the distinct feeling that he hustled you...'
-				
+
 				act 'Refuse':
 					cls
 					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolr.jpg"></center>'
 					'You shake your head. "I''m not sucking your dick. You scammed me."'
-					'You turn to walk off, but his eyes flash with anger and he grabs your arm. "You''re not going anywhere. You made a bet, sweetheart, and you lost, so pay up."' 
+					'You turn to walk off, but his eyes flash with anger and he grabs your arm. "You''re not going anywhere. You made a bet, sweetheart, and you lost, so pay up."'
 					'"Let me go!"'
 					*nl
 					'You try and jerk free but you can''t, he is much stronger than he looks. Things get a little heated and you both get louder, but before things can escalate, Martin, with his uncanny ability to appear wherever he''s needed, walks in.'
@@ -185,7 +196,7 @@ if $ARGS[0] = 'billiard_ev1':
 					'You lower your head to avoid his gaze - not because he would have glared at you but because there was a hint of disappointment in it that you really didn''t want to see.'
 					'"Yeah, I did," you confess quietly.'
 					'"Alright." Martin pauses for a second. "Leave."'
-					
+
 					if npc_rel['A216'] < 20 or MartinLie = 1:
 					!!WHEN WOULD HE THROW SVETA OUT?
 					!SHOULD MartinLie GET KILLED AT SOME POINT?
@@ -201,9 +212,9 @@ if $ARGS[0] = 'billiard_ev1':
 						if MartinLie = 1:
 							'It seems that, after having lied to him before, he''s got a short fuse for when you''re behaving inappropriately in the bar.'
 						end
-						
+
 						act 'Leave the bar': gt 'nord'
-					
+
 					else
 						cla
 						npc_rel['A216'] -= 2
@@ -224,45 +235,45 @@ if $ARGS[0] = 'billiard_ev1':
 						'"I-"'
 						'"If I offered you money right now," he cuts you off again, "would you get down on your knees and blow me? Huh?!"'
 						*nl
-						
+
 						if MartinSex = 0:
 							'His words hit you surprisingly hard. You''re not sure if you want to slap him, walk off, or break into tears. Before you can decide, you feel his calloused hand at your chin, forcing you to raise your head and meet his eyes.'
 							'"There are things you shouldn''t do for money. You''re not easy, coraz󮬠so don''t make yourself cheap."'
 							'And with that, Martin walks off, leaving you to contemplate his words and his concern for you.'
-							
+
 							act 'Return to the bar': gt 'qwBarPolet'
-						
+
 						else
 							npc_rel['A216'] -= 1
 							'"You don''t have to offer me money for that," you say ' + iif(pcs_dom<20,'shyly','confidently') + ' and put your hand on his crotch.'
 							'"I know that. But," he seems to be having trouble focusing on what he wants to say, "<<$pcs_firstname>>, not here, not now."'
 							'For a moment, you wonder how far he would go. Reluctant as he is, you doubt that he''d go as far as screwing you over the billiard table while there are people in the bar. He seems to be on the verge of agreeing to a blowjob, though, if you are bold or horny enough to push him...'
-							
+
 							act 'Back off':
 								cla
 								npc_rel['A216'] += 1
-								'You not and remove your hand from his swelling cock.' 
+								'You not and remove your hand from his swelling cock.'
 								'"Okay, if that''s what you want."'
-								iif(pcs_exhibition<30,'You are secretly relieved that he didn''t agree, cause you''re not sure you could have actually gone through with blowing him in public like this, without a lost bet to force your hand.','') + 'He seems ' + iif(pcs_exhibition<30,'just as ','') + 'relieved that you backed off - judging by how quickly he got hard, he probably wouldn''t have said no a second time.' 
+								iif(pcs_exhibition<30,'You are secretly relieved that he didn''t agree, cause you''re not sure you could have actually gone through with blowing him in public like this, without a lost bet to force your hand.','') + 'He seems ' + iif(pcs_exhibition<30,'just as ','') + 'relieved that you backed off - judging by how quickly he got hard, he probably wouldn''t have said no a second time.'
 								'"It''s better this way. But maybe we could continue after closing time?"'
 								'"I''ll see what I can do," you say noncommittaly, give him a smile and leave him to calm down.'
-								
+
 								act 'Return to the bar': gt 'qwBarPolet'
 							end
-							
+
 							if pcs_dom >= 30 and pcs_exhibition >= 50:
 								$martinpos = 'But I want to'
 							elseif pcs_horny >= 80 and pcs_exhibition >= 30:
 								$martinpos = 'I''ll do it if you want me to'
 							end
-							
+
 							if (pcs_horny >= 80 and pcs_exhibition >= 30) or (pcs_dom >= 30 and pcs_exhibition >= 50):
 								act '<<$martinpos>>':
 									cls
 									'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm1.jpg"></center>'
 									gs 'boyStat', 'A216'
 									npc_rel['A216'] += 1
-									
+
 									if pcs_horny >= 80 and pcs_exhibition >= 30:
 										'"Oh, I think you <b>do</b> want it here and now," you say coyly as you unbutton Martin''s pants, "and I want to, too." You can see him tense, see that he is torn between his own rules and his lust for you, but in that moment your hand reaches into his underpants and your fingers close around his impressive length, the battle is over.'
 									else
@@ -272,14 +283,14 @@ if $ARGS[0] = 'billiard_ev1':
 									'"Then do it. Suck my dick."'
 									*nl
 									'Smiling ' + iif(pcs_dom>=30,'seductively','shyly') + ', you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pcdesc_hairobjectwordy>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
-									'You bob your head ' + iif(stat[''bj'']>20,'confidently','reluctantly, still trying to figure blowjobs out,') + iif(stat[''bj'']>40,' and with wild abandon','') + ' and run your <<$pcdesc_tongue>> around it to stimulate him as much as you can.'
+									'You bob your head '+ iif(stat['bj']>20,'confidently','reluctantly, still trying to figure blowjobs out') + iif(stat['bj']>40,' and with wild abandon','') + ' and run your <<$pcdesc_tongue>> around it to stimulate him as much as you can.'
 									*nl
 									'You''re not sure if the prospect of getting caught here with a cock in your mouth terrifies or excites you more, but you don''t really feel the need to find out which it is.'
 									$orgasm_txt = 'But you do anyway: It''s the latter. As you unconsciously knead your <<$pcdesc_breastsrandom>> breasts through your top, the heat between your legs grows and spreads to your belly. You moan around Martin''s cock as the orgasm overcomes you. You don''t have to look up to see the self-satisfied expression on Martin''s face when he realizes that you came from sucking his cock...'
 									gs 'arousal', 'bj', 5, 'exhibitionism'
 									gs 'stat'
 									killvar '$martinpos'
-									
+
 									act 'Make Martin come':
 										cls
 										'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm2.jpg"></center>'
@@ -306,7 +317,7 @@ if $ARGS[0] = 'billiard_ev1':
 										$orgasm_txt = ''
 										gs 'arousal', 'end'
 										gs 'stat'
-										
+
 										act 'Return to the bar':gt 'qwBarPolet'
 									end
 								end
@@ -314,26 +325,26 @@ if $ARGS[0] = 'billiard_ev1':
 						end
 					end
 				end
-					
+
 				act 'Pay up':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poold1.jpg"></center>'
 					gs 'npcgeneratec', 0, 'stranger', rand(18,35)
 					gs 'boyStat', $npclastgenerated
-					'Well, a bet is a bet. If you weren''t willing to do it, you shouldn''t have made the bet. At least that''s what''s going through your head as you get down on your knees in front of him. Even being in a separate room and hidden from sight, the fact that everything that''s between you and a whole bar full of people is a fluttering curtain ' + iif(pcs_exhibition<30,'terrifies','excites') + ' you.' 
-					'He has his pants unbuttoned in about two seconds and out comes his cock, standing at attention already and revealing his eagerness and anticipation.' 
+					'Well, a bet is a bet. If you weren''t willing to do it, you shouldn''t have made the bet. At least that''s what''s going through your head as you get down on your knees in front of him. Even being in a separate room and hidden from sight, the fact that everything that''s between you and a whole bar full of people is a fluttering curtain ' + iif(pcs_exhibition<30,'terrifies','excites') + ' you.'
+					'He has his pants unbuttoned in about two seconds and out comes his cock, standing at attention already and revealing his eagerness and anticipation.'
 					*nl
 					'You quickly take it into your mouth and start sucking it for all you are worth, looking to get this over with as quickly as you can. You use your hands to caress his shaft and fondle his balls as you suck his dick, and while could imagine yourself doing more pleasant things, the fact that you are blowing a stranger in public does have a slight effect on you.'
 					gs 'arousal', 'bj', 5, 'sub', 'exhibitionism'
 					gs 'stat'
-					
+
 					act 'Payoff':
 						cls
 						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poold2.jpg"></center>'
-						'It feels like you''ve only just started when you hear him give a suppressed grunt. You barely manage to open your mouth and pull away as he shoots his load of cum all over your face and into your mouth. He looks down at you as he tucks his dick away.' 
+						'It feels like you''ve only just started when you hear him give a suppressed grunt. You barely manage to open your mouth and pull away as he shoots his load of cum all over your face and into your mouth. He looks down at you as he tucks his dick away.'
 						*nl
-						'"Pleasure doing business with you sweetheart, maybe we can do it again sometime. And I hope you enjoy your... consolation price."' 
+						'"Pleasure doing business with you sweetheart, maybe we can do it again sometime. And I hope you enjoy your... consolation price."'
 						'With a fat grin on his face, he walks off, whistling and very pleased with himself, leaving you covered in cum.'
 						'Maybe billiards just isn''t for you.'
 						gs 'arousal', 'end'
@@ -341,13 +352,13 @@ if $ARGS[0] = 'billiard_ev1':
 						gs 'cum_manage'
 						spafinloc = 12
 						gs 'cum_manage'
-						gs 'stat'	
-						
-						act 'Return to the bar': gt 'qwBarPolet'	
+						gs 'stat'
+
+						act 'Return to the bar': gt 'qwBarPolet'
 					end
 				end
 			end
-		end	
+		end
 	end
 end
 
@@ -365,7 +376,7 @@ if $ARGS[0] = 'billiard_ev2':
 			'"If you wanna learn how to play to win, you came to the right people. We''ll go easy on you."'
 			*nl
 			'You notice how blatantly the other one checks you out but you ignore it as best you can.'
-			
+
 			act 'Play a round':
 				cls
 				minut += 20
@@ -381,7 +392,7 @@ if $ARGS[0] = 'billiard_ev2':
 				'"Yeah," Artyom agrees. After the briefest of pauses and quick exchange of glances between the two, he continues: "How about we make it even more fun?"'
 				'The grin they have on their faces reminds you of how they looked at Jaska. "What are you thinking?"'
 				'"How about a little wager?" Victor suggests, tellingly aware of what his friend had in mind. "Nothing too insane... Maybe 500 rubles each, winner takes all?"'
-				
+
 				if money >= 500:
 					act 'Sure, let''s play':
 						cls
@@ -401,10 +412,10 @@ if $ARGS[0] = 'billiard_ev2':
 						'You smile at the compliment and the extra money in your hand. If they play like that every time, you should come here often for easy money.'
 						'But you don''t say that out loud, of course. You just tell them that you should get going and that you''ll see them around.'
 						'"We''ll be here for you," Victor promises as you turn to the curtain.'
-						
+
 						act 'Return to the bar': gt 'qwbarPolet'
 					end
-				
+
 				elseif money <= 500:
 					act 'Sounds fun - I''m broke, though':
 						cls
@@ -416,7 +427,7 @@ if $ARGS[0] = 'billiard_ev2':
 						*nl
 						'"Well," Artyom begins, "maybe we could-"'
 						'"Maybe next time," Victor cuts him off. "Want to play another round without a wager?"'
-						
+
 						act 'Sure, let''s play':
 							cls
 							minut += 20
@@ -426,32 +437,32 @@ if $ARGS[0] = 'billiard_ev2':
 							'You agree to play another friendly match. You cannot help but notice the scowl on Artyom''s face, and it seems to have very little to do with the fact that you are, once again, coming out ahead at the end.'
 							'Victor once again applauds your skill while Artyom merely gives you an acknowledging nod. Victor seems annoyed at his friend''s bad mood but doesn''t let it keep himself from having a friendly chat with you for a few minutes.'
 							'"You know where to find us if you wanna play," Victor emphasizes as you give them your goodbye.'
-							
+
 							act 'Return to the bar': gt 'qwbarPolet'
 						end
-							
+
 						act 'No thanks':
 							cla
 							*nl
 							'"No, I should probably get going."'
 							'Victor gives you a friendly pat on the shoulder. "Alright, take care."'
 							'As you walk out, you cannot help but notice the scowl on Artyom''s face. It''s not directed at you but at Victor. Looks like they had slightly different ideas of what was supposed to happen...'
-							
+
 							act 'Return to the bar': gt 'qwbarPolet'
 						end
 					end
 				end
-				
+
 				act 'I don''t think so':
 					cla
 					'"Nah, I think one game was enough for the night," you decide. "Maybe another time?"'
 					'Artyom looks like he wants to say something, but Victor quickly interjects: "Sure, another time. You know where to find us. We''re always happy to have you."'
 					'"See you later," you bid them farewell and return to the main room.'
-					
+
 					act 'Return to the bar': gt 'qwbarPolet'
 				end
 			end
-				
+
 		elseif Jaska_Friend_Bill = 1:
 			'"Well, look what the cat dragged in. Good to see you, <<$pcs_firstname>>," Victor greets you.'
 			'"You too. Are you guys busy?"'
@@ -464,7 +475,7 @@ if $ARGS[0] = 'billiard_ev2':
 			*nl
 			'You don''t see any cash on the table, but that doesn''t have to mean anything. "How much were you playing for?"'
 			'"1000 rubles each."'
-			
+
 			act 'I don''t wanna play for that much':
 				cla
 				'"I don''t think I wanna play for that much tonight," you declare.'
@@ -472,43 +483,37 @@ if $ARGS[0] = 'billiard_ev2':
 				'"Yeah, right, as if," Artyom retorts.'
 				'"Sounds like fun, but I think I better get going. I don''t wanna be blamed if either of you loses," you joke.'
 				'"Alright, see you later," they tell you as you return to the main room.'
-				
+
 				act 'Return to the bar': gt 'qwbarPolet'
 			end
-			
+
 			act 'Sounds fun - I''m almost broke, though': gt 'VicArt_Billiard', 'VicArt_Ev1_Broke'
-			
+
 			if money >= 1000:
 				act 'Sure, let''s play (for cash)': gt 'VicArt_Billiard', 'VicArt_Ev1_Cash'
 			end
-		
-			
+
 		!!if Sveta has stripped for them before [PlayVariable = 2], has masturbated [PlayVariable = 3] but hasn''t yet given them a blowjob [PlayVariable = 4]
 		elseif Jaska_Friend_Bill <= 3:
 			''
 			'Artyom and Victor'
-			
+
 			!Artyom and Victor need fixed stats?
 			!Styled after Erik and ???, two Russian/Czech? porn actors:
 			!Erick Lewis as Victor, dark-skinned, charming, composed - https://de.pornhub.com/pornstar/erick-lewis http://wtfpass.com/models/eric-cfst30/2/
 			!Maxim (or anybody else - Edik?) as Artyom, fair-skinned, a little more brutish and lecherous - http://wtfpass.com/models/maxim-2/
-			
-								
-								
+
 			!Sex progression? first strip teases, masturbation, then handjobs/blowjobs, sex, anal, DP - dependent on pcs_exhibition - caught in a specific act (blowjob? sex?) - each act is worth more
 			!Small scene variants where she only blows one of them, only has sex with one of them etc.
-					
-		
+
+
 		!!if Sveta has been caught by Martin during the blowjob [PlayVariable = 4] and every subsequent sex act
 		elseif Jaska_Friend_Bill >= 4:
-		
+
 		end
-		
-		
+
 !Separate location to handle all sex interactions with them after Jaska_Friend_Bill = 4?
-		
-	
-		
+
 	elseif bill_rand > 2:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool3.jpg"></center>'
 		'You enter the backroom. The group of three inside turn to greet you and you strike up a conversation with them as they finish the round they''ve been playing.'
@@ -517,32 +522,32 @@ if $ARGS[0] = 'billiard_ev2':
 		end
 		*nl
 		'As they set up a new one, they invite you to play with them.'
-		
+
 		if money >= 250:
 			act 'Suggest playing for money (250 <b>?</b>)':
 				cla
 				*nl
 				'"How about we make this more interesting?" You suggest. "We could play for money. Maybe like 250 rubles each?"'
-				
+
 				if bill_rand > 3:
 					if pcs_pool >= 60: temp = rand(1,4)
 					if temp = 1:
 						'One of them shakes their head. "I don''t think so. I know you. You play way too well."'
 						'"Yeah, I don''t think I wanna play for money with you either," another one agrees.'
 						'"Suit yourselves," you shrug and turn to leave. Pity.'
-						
+
 						act 'Return to the bar': gt 'qwBarPolet'
 					else
 						'"Sure," one of them agrees and his friends nod, "we can do another match for cash."'
 						'Without further ado, they set up the table again.'
-					
+
 						act 'Play to win': gt 'qwBarBilliard','billiard_money'
 					end
-											
+
 				else
 					'Your suggestion seems to be making them really uncomfortable.'
 					'"It''s been a long day," one of them explains, "and I don''t think any of us are really up for a wager tonight, even if it''s a small one. We''d rather just have a good time, no risk involved."'
-									
+
 					act 'Have a friendly match instead':
 						cla
 						pool_exp += rand(1,4)
@@ -554,12 +559,12 @@ if $ARGS[0] = 'billiard_ev2':
 						*nl
 						gs 'qwBarBilliard','billiard_friendly'
 					end
-					
+
 					act 'Sounds boring - Return to the bar': gt 'qwbarPolet'
 				end
 			end
 		end
-		
+
 		act 'Suggest a friendly match':
 			cls
 			pool_exp += rand(1,4)
@@ -583,7 +588,7 @@ if $ARGS[0] = 'billiard_friendly':
 		else
 			'As it turns out, the guys are pretty terrible at billiards. You don''t exactly play like a champ yourself but their shots are remarkably badly aimed. That would have been a great boost in confidence if you didn''t catch two of them staring at your ass as you bent over for your final shot - maybe they were just distracted?'
 		end
-	
+
 	else
 		'The match is friendly and remains close until the end. It''s one of those games that starts off friendly but gets more tense and engaging as you take turns.'
 		if temp = 3:
@@ -597,26 +602,26 @@ if $ARGS[0] = 'billiard_friendly':
 	'Either way, it was great fun and you quite enjoyed playing.'
 	*nl
 	'Another small group of people enters the backroom just as you and your newfound acquaintances finish up. With a few friendly words, you return to the main room and part ways.'
-	
+
 	act 'Return to the bar': gt 'qwbarPolet'
 end
 
 if $ARGS[0] = 'billiard_money':
-	cls 
+	cls
 	pool_exp += rand(1,4)
 	minut += 30
 	'<center><video src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
 	'You give it your best shot. True, there''s not a lot of money riding on this, but losing money is never fun.'
 	*nl
 	gs 'qwBarBilliard', 'billiard_engine'
-						
+
 	if billwin >= 8:
 		pcs_mood += rand(1,4)
 		money += 500
 		'Lady Luck seems to be smiling on you tonight - you end up ' + iif(pcs_pool>50,'comfortably','closely') + ' winning the game.'
 		'Your opponents look disappointed but remain friendly as they hand over your winnings.'
 		'Understandably, they don''t feel like playing another round, so you all return to the main room together. Still, 500 rubles isn''t a bad turnout for half an hour''s work.'
-							
+
 	else
 		pcs_mood -= rand(1,4)
 		money -= 250
@@ -624,7 +629,7 @@ if $ARGS[0] = 'billiard_money':
 		'You commend them for their skill as you hand over the cash, since you don''t wanna be a sore loser, but you don''t really feel like playing another round with them.'
 		'Since they also have to leave, you return to the main room with them where you part ways, 250 rubles poorer than half an hour ago.'
 	end
-						
+
 	act 'Return to the bar': gt 'qwbarPolet'
 end
 

+ 46 - 64
locations/qwBarBilliard2

@@ -21,19 +21,19 @@ if $ARGS[0] = 'VicArt_Ev1_Cash':
 	'Victor and Artyom smile and put their own cash on top of yours before setting up a new game.'
 	*nl
 	gs 'qwBarBilliard', 'billiard_engine'
-					
+
 	if billwin > 12:
 		money += 2000
 		pcs_mood += rand(3,5)
-		'The game goes well for you. Granted, you are missing a shot here and there, but overall, you are playing fairly well and end up deciding the match for yourself.' 
+		'The game goes well for you. Granted, you are missing a shot here and there, but overall, you are playing fairly well and end up deciding the match for yourself.'
 		'Artyom seems miffed by the fact that they lost and even Victor looks somewhat surprised at how well you are playing this time, but he congratulates you on your success and hands you your winnings.'
 		*nl
 		'"How about another round?" You ask teasingly.'
 		'Victor laughs. "No thanks, I think you''ve proven that luck is on your side tonight. We''ll play more next time we''re here."'
 		'You grin. "Sure thing." Cheerfully waving the handful of bills around, you bid them farewell and return to the main room, 2000 rubles richer for it.'
-					
+
 		act 'Return to the bar': gt 'qwbarPolet'
-							
+
 	else
 		money -= 1000
 		pcs_mood -= rand(1,5)
@@ -41,18 +41,18 @@ if $ARGS[0] = 'VicArt_Ev1_Cash':
 		'Two or three missed shots later, you begrudgingly concede defeat.'
 		*nl
 		'"You gave us a good run for our money," Victor says conciliatorily and Artyom agrees. "Our luck could run out any moment. You could play again and win your money back."'
-					
+
 		act 'No thanks':
 			cla
 			'"No, I think I''ve lost enough for one day," you decline.'
 			'"Well, you know where to find us," Artyom says with an uncharacteristic smile.'
 			'"Take care, <<$pcs_firstname>>," Victor bids you farewell and you return to the main room.'
-							
+
 			act 'Return to the bar': gt 'qwbarPolet'
 		end
-		
-		act 'Maybe I could... I''m almost broke though': gt 'qwBarBilliard2', 'VicArt_Ev1_Broke'			
-		
+
+		act 'Maybe I could... I''m almost broke though': gt 'qwBarBilliard2', 'VicArt_Ev1_Broke'
+
 		if money >= 1000:
 			act 'Maybe I could... (Play for cash)': gt 'qwBarBilliard2', 'VicArt_Ev1_Cash'
 		end
@@ -79,15 +79,15 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 		'Victor''s eyes widen slightly at the suggestion. "That... sounds fair. Right?" He looks at Artyom who nods in agreement. "Yeah, a striptease, right here in this room."'
 		'"Wait, here?! What about the bartender? What if he caught us?"'
 		'"We wouldn''t insist if we hadn''t made the experience that even the best people might run off when it comes to paying up. But unfortunately, that''s how it is. It''s better to pay your dues right away anyway, isn''t it? Plus," Victor smiles, "Martin''s not gonna catch us as long as you stay quiet..."'
-		*nl							
+		*nl
 		'Running away... You gotta admit that the thought of running away if you lost has crossed your mind.'
 		if PBB_Met = 2:
 			'Getting out of giving a blowjob to a lecherous trickster can be that easy.'
 		end
 		'Nobody''s forcing you to take this bet. But it''s clear that, if you take it, you will have to make good on it - however friendly they appear, Victor and Artyom don''t look like the kind of guys you wanna have trouble with.'
 		'So, are you willing to take that bet? Would you be willing to strip naked for two guys you barely know in the backroom of a bar, only one thin curtain away from dozens of patrons?'
-	
-	else 	
+
+	else
 		'"I''d like to but I don''t think I can afford to play for that much," you admit.'
 		'"Well, our offer still stands," Artyom reminds you. "You could bet doing a striptease instead.' + iif(Jaska_Friend_Bill>=2,'.. maybe even more than that."','') + '"'
 		'"Right," you say pensively. "That. And I would have to do it..."'
@@ -96,7 +96,7 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 		'Are you willing to take that bet? Would you be willing to strip naked for two guys you barely know in the backroom of a bar, only one thin curtain away from dozens of patrons?'
 		if Jaska_Friend_Bill >= 2: 'Or would you be willing to do even more than that? Maybe in exchange for a higher wager?'
 	end
-	
+
 	act 'No way':
 		cla
 		*nl
@@ -105,10 +105,10 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 		'"I, um... I think I should get going," you say eventually.'
 		'"Yeah, we''ll see you next time."'
 		'With a few more parting words, you return to the main room.'
-		
+
 		act 'Return to the bar': gt 'qwbarPolet'
 	end
-	
+
 	if pcs_exhibition >= 20:
 		act 'Deal - If I lose, I strip':
 			cls
@@ -121,21 +121,21 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 			'"Okay what?" Victor asks. "We need to hear what you are betting."'
 			'You take a deep breath. "If I lose, I''ll do a striptease. Here," you add when they keep looking at you expectantly.'
 			'"Great," Artyom exclaims. "Let''s play."'
-			
+
 			gs 'qwBarBilliard', 'billiard_engine'
-										
+
 			if billwin > 12:
 				money += 2000
 				pcs_mood += rand(3,5)
-				'The game goes well for you. Granted, you are missing a shot here and there, but overall, you are playing fairly well and end up deciding the match for yourself.' 
+				'The game goes well for you. Granted, you are missing a shot here and there, but overall, you are playing fairly well and end up deciding the match for yourself.'
 				'Artyom seems miffed by the fact that you''ve won and even Victor looks somewhat surprised at how well you are playing this time, but he congratulates you on your success and hands you your winnings.'
 				*nl
 				'"How about another round?" You ask teasingly.'
 				'Victor laughs. "No thanks, I think you''ve proven that luck is on your side tonight. We''ll play more next time we''re here."'
 				'You grin. "Sure thing." Cheerfully waving the handful of bills around, you bid them farewell and return to the main room, 2000 rubles richer for it - not a bad turnout for a bet like yours.'
-							
+
 				act 'Return to the bar': gt 'qwbarPolet'
-								
+
 			else
 				pcs_mood -= rand(1,5)
 				'The game starts off in your favor. Artyom misses several easy shots early on and allows you to get a comfortable headstart, but as Victor places his shots with surgical precision, your advantage melts away.'
@@ -143,84 +143,69 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 				*nl
 				'"Good game."'
 				'All of you know what''s coming next and there is no way around it for you.'
-				
+
 				act 'Pay your dues':
 					!Link to argument
-					
+
 					cls
 					if Jaska_Friend_Bill = 1: Jaska_Friend_Bill = 2
 					pic_rand = rand(1,3)
 					!!A few strip variants? How many max?
-					
+
 					if pic_rand = 1:
 					!Variant pic and text 1
-					
+
 					elseif pic_rand = 2:
-					
-					...
-					
+					'...'
+					end
 
-					
 					act 'part 2':
 						!Same here - variants for different pic sets
-						
-						
+
 						act 'Return to the bar': gt 'qwbarPolet'
-								
+
 					end
 				end
 			end
 		end
 	end
-	
+
 	if pcs_exhibition >= 25 and Jaska_Friend_Bill >= 2:
 		act 'Okay - If I lose, I masturbate':
 			![More Money!]
-		
-		
-		
+
 			!When she loses
 			if Jaska_Friend_Bill = 2: Jaska_Friend_Bill = 3
-		
-		
-		
+
 		end
 	end
-	
+
 	if pcs_exhibition >= 30 and Jaska_Friend_Bill >= 3:
 		act 'Alright - If I lose, I blow you':
 			![More Money!]
 			!GETTING CAUGHT BY MARTIN!!!
-			
-			
-			
-			
+
 			if Jaska_Friend_Bill = 3:
 				!Also requires pcs_exhibition and maybe something else - blowjob experience?
-				
+
 				!Sveta offers giving both of them a blowjob as a wager
-				
-				if billwin > ???:
-					
-					
-					
-					
-				else
+
+				!if billwin > ???:
+
+				!else
 					'Artyom looks at you triumphantly and Victor also seems quite pleased with this outcome.'
 					'"Well, it looks like it''s time to make good on your wager," he says as he unzips his pants.'
-				
+
 					act 'Start blowing them':
 						Jaska_Friend_Bill = 4
 						'bla bla bla'
-						
-						
+
 						act 'Continue':
-							!BLOWJOB SCENE - MARTIN CATCHES THEM!!! 
+							!BLOWJOB SCENE - MARTIN CATCHES THEM!!!
 							!relationship penalty
 							!mood penalty
 							!slut fame [people outside can hear you]
-							
-												
+
 							!picture
 							'"What the hell is going on here?!"'
 							'The voice of Martin breaks your erotic reverie like a bucket of ice water. He''s standing in the door frame, having quickly closed the curtain behind himself to bar other people from looking inside.'
@@ -249,18 +234,16 @@ if $ARGS[0] = 'VicArt_Ev1_Broke':
 							'"Because that''s how you keep your partners happy. He didn''t demand anything we weren''t going to give him anyway and 10 percent of a blowjob isn''t anything, really, is it, <<$pcs_firstname>>?"'
 							'You remain silent, your face and stomach burning with... Could it be shame?'
 							'"Now, where were we?" Victor muses and slaps his cock against your face.'
-							
+
 							act 'Finish them':
-						
-								
-								
+
 								'As you ready yourself to walk out, you realize that the other patrons must have heard the argument between Martin and the guys, must have heard your name...'
-								
+
 								act 'Return to the bar': gt 'qwbarPolet'
 							end
 						end
 					end
-				end
+				!end
 			end
 		end
 	end
@@ -268,7 +251,6 @@ end
 
 	!!Different blowjob scene (with small variants after the one with Martin fired - no conditional change to Jaska_Friend_Bill necessary)
 
-
 	!Sex progression? first strip teases, masturbation, then handjobs/blowjobs, sex, anal, DP - dependent on pcs_exhibition - caught in a specific act (blowjob? sex?) - each act is worth more
 	!Small scene variants where she only blows one of them, only has sex with one of them etc.
 

+ 106 - 110
locations/qwBarPolet

@@ -20,7 +20,7 @@ if $ARGS[0] = '':
 	if orderDrink = 1:
 		orderDrink = 0
 		gt 'qwbarPolet','DrinkingBooze'
-	end	
+	end
 	if MartinTalkDaystart ! daystart:
 		MartinTalkDaystart = daystart
 		MartinTalkDay = 0
@@ -60,28 +60,28 @@ if $ARGS[0] = '':
 		! 'MartinRand: '+MartinRand
 		! 'DrinkingRand: '+DrinkingRand
 	! end
-	
+
 	'<center><b><font color="maroon">Bar "Rabotnik"</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/bar.jpg"></center>'
 	'As you enter the bar, you see that about a dozen regular tables and stools take up most of the room. A bar counter, right in front of you, dominates the center of the establishment. At the far end of it, near a door leading to the toilet, a doorway with a curtain leads to the obligatory pool table that rounds off the furniture.'
 		*nl
 		'This place has a rowdy air about it: The smell of spilled beer, schnaps, and a hint of vomit and blood are hard to miss, and some of the stools and billiard cues look like they''ve been used in fights before. It is obviously a worker pub and not trying to be anything fancier than that, but that gives it an odd charm and coziness of its own' + iif(hour >= 16,', and despite the hints of shadiness, you can hear plenty of laughter and friendly conversation','') + '. You doubt you''ll get a fancy cocktail in here, though.'
 		*nl
-	
+
 	if (week < 5 or week = 7) and ((hour < 16) or (hour = 23 and minut >= 45)):
-		'The bar is emptying quickly as its owner is telling the few patrons who are left that he''s closing for the night. Within minutes, even those who you thought were too drunk to even understand what "leaving" means are gone and only the bartender himself remains.' 
+		'The bar is emptying quickly as its owner is telling the few patrons who are left that he''s closing for the night. Within minutes, even those who you thought were too drunk to even understand what "leaving" means are gone and only the bartender himself remains.'
 		if npc_rel['A216'] < 20:
 			*nl
 			'Guess you had better head out, too.'
 		end
-	
+
 	elseif (week = 5 or week = 6) and ((hour < 16) or (hour = 23 and minut >= 45)):
-		'It''s no small feat to get people to leave a bar when they don''t have to work the next day, but this bartender seems used to the hassle, exchanging friendly words with some, being a little more curt with others, and helping the drunks who would have slept through the night on one of the tables out the door, until only the barman himself remains.' 
+		'It''s no small feat to get people to leave a bar when they don''t have to work the next day, but this bartender seems used to the hassle, exchanging friendly words with some, being a little more curt with others, and helping the drunks who would have slept through the night on one of the tables out the door, until only the barman himself remains.'
 		if npc_rel['A216'] < 20:
 			*nl
 			'Guess you had better head out, too.'
 		end
-	
+
 	else
 		if hour < 21 and week < 7:
 			'Far from empty already, the bar keeps filling at an astounding rate as people get off work in the various surrounding factories, looking to have a beer with their friends before heading home, or to get piss drunk to take their mind off their problems.'
@@ -104,44 +104,44 @@ if $ARGS[0] = '':
 		if MartinSexTalk = 1:
 			*nl
 			'After how things went with Martin the other night, you are really not in the mood to talk to him with people around. It would be best to wait until he closes the bar, so you can talk to him in private and sort this out.'
-			
+
 			if MartinSexTalkDay < (daystart - 7):
 				*nl
 				'But honestly, you don''t want to talk to him at all right now - you are still too angry for that.'
 			end
 		end
-		
+
 		act 'Order a snack':
 			if cumloc[7] > 0 or cumloc[10] > 0 or cumloc[11] > 0 or cumloc[13] > 0 or cumloc[16] > 0:
-				if pcs_exhibition < 60: 
+				if pcs_exhibition < 60:
 					mood -= rand(2,5)
 				else
-					pcs_horny += 5	
+					pcs_horny += 5
 				end
 				npc_rel['A216'] -= 2
 				'Martin gives a stern look. "Don''t you think you should clean yourself up first?"'
 				*nl
 				'You are visibly covered in cum and Martin noticed it!'
-				if pcs_exhibition < 60: 
+				if pcs_exhibition < 60:
 					'How embarrassing...'
 				else
 					'It''s kinda sexy to know that he noticed it. Your belly tingles at the thought that seeing the sperm must have made Martin imagine you having sex.'
 					'Still...'
 				end
 				'You should probably go to the bathroom and wash it off.'
-				
+
 				act 'Step away from the counter': gt 'qwBarPolet'
-			
+
 			else
 				'"What do you want?" The bartender asks.'
 				gs 'food_menu', 'pub'
 			end
 		end
-		
+
 		act 'Order drinks': gt 'qwBarPolet','Ordering'
-	
+
 		act 'Go to the toilet': gt 'qwBarPoletToilet'
-		
+
 		!!!bill_rand = rand(1,6) instead of (0,6) because content incomplete
 		if BillHour ! hour:
 			BillHour = hour
@@ -149,15 +149,14 @@ if $ARGS[0] = '':
 				bill_rand = rand(1,6)
 				if bill_rand = 0 and VicArt_BillDay = 1:jump 'bill_loop'
 				if bill_rand = 1 and PBB_BillDay = 1:jump 'bill_loop'
-			end
 		end
 		*nl
 		'Your eyes wander towards the backroom with the billiard table.'
 		*nl
-		
+
 		if bill_rand = 0 and Jaska_Ev = 0:
 			'You notice some guys are playing billiards in the backroom. They seem know each other well and are playing for quite a bit of money, from what you can tell, so you don''t want to interrupt right now.'
-		elseif bill_rand = 0 and Jaska_Friend_Bill = 0: 
+		elseif bill_rand = 0 and Jaska_Friend_Bill = 0:
 			'You notice the guys Jaska played against are in the backroom with the billiard table, having a friendly match. Maybe you could play a round with them?'
 		elseif bill_rand = 0 and Jaska_Friend_Bill < 4:
 			'You notice that Jaska''s friends, Victor and Artyom, are in the backroom with the billiard table, having a friendly match. You could join them, if you wanted to.'
@@ -168,7 +167,7 @@ if $ARGS[0] = '':
 			else
 				'You notice that Jaska''s friends, Victor and Artyom, are alone in the backroom with the billiard table, having a friendly match. You could join them, if you wanted to.'
 			end
-		
+
 		elseif PBB_Met ! 0 and bill_rand = 1:
 			PBB_BillDay = 1
 			'The guy you played billiards with before seems to be playing against a pair of women who are looking increasingly distressed as he pockets one ball after the other. You can see quite a bit of money sitting on the side of the table and you are pretty sure he is about to win it all.'
@@ -178,22 +177,22 @@ if $ARGS[0] = '':
 		elseif bill_rand = 1:
 			PBB_BillDay = 1
 			'A stranger seems to be playing billiards with a pair of women who are looking increasingly distressed as he pockets one ball after the other. You can see quite a bit of money sitting on the side of the table and you are pretty sure he is about to win it all.'
-			
+
 		elseif bill_rand = 2:
 			'The backroom seems to be empty at the moment, the billiard table deserted. Looks like there''s nobody you could play with.'
-		
+
 		elseif bill_rand > 2:
 			'You notice that some people are playing some billiards. Maybe you could join them?'
 		end
-		
+
 		if bill_rand > 2 or (bill_rand = 0 and Jaska_Ev ! 0 and (Jaska_Friend_Bill < 4 or temp ! 1)):
-			act 'Go to the backroom for a game of billiards': 
+			act 'Go to the backroom for a game of billiards':
 				if bill_rand = 0: VicArt_BillDay = 1
 				gt 'qwBarBilliard','billiard_ev2'
 			end
 		end
 	end
-	
+
 !! act 'Find somebody to drink with':
 !! OR
 !! act 'Look around the bar': action to find people to interact with/who will invite her to a drink?
@@ -210,10 +209,8 @@ if $ARGS[0] = '':
 !Assisted Training?
 !Sex?
 
-
 !Event / Talk at lakecafe mentioning Martin?
 
-
 !NEED TO ADJUST obj_din or other location with npc_rel['A216'] so that people can actually see their relationship value with Martin
 
 	if npc_rel['A216'] > 20 and (hour < 16 or (hour = 23 and minut >= 45)) and MartinTalkVar > 3 and MartinSexDay = 0:
@@ -230,7 +227,7 @@ if $ARGS[0] = '':
 			act 'Have a private chat with Martin': gt 'MartinSex'
 		end
 	end
-		
+
 	act 'Leave':gt 'nord'
 end
 
@@ -245,9 +242,9 @@ if $ARGS[0] = 'DrinkingBooze':
 		'And you pretty much stay like that for the next 15 minutes or so, absorbed in your own little bubble of anger, more or less oblivious to what is going on around you, the beverage you''re nursing on your only link to the outside world.'
 		*nl
 		'When you''re finally finished with it, you are both angry and glad at the sight of the empty glass and the thought of ordering another crosses your mind.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	elseif knowMartin ! 1:
 		knowMartin = 1
 		killvar 'RabotnikFirst'
@@ -262,9 +259,9 @@ if $ARGS[0] = 'DrinkingBooze':
 		'"Got it", you nod, and Martin gives you a hint of a smile - amazing how that can light up a face as gruff as his - before he returns to the regulars he had been talking to.'
 		*nl
 		'You spend the next 15 minutes pondering his words and the impression he has left on you, absentmindedly drinking your <<$boozeVar>> until you finally notice that your glass is empty.'
-				
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	else
 		if MartinTalkDay = 0:
 			act 'Order the drink and chat with Martin':
@@ -273,10 +270,10 @@ if $ARGS[0] = 'DrinkingBooze':
 				gt 'MartinTalk'
 			end
 		end
-		
+
 		act 'Enjoy your drink alone':
 			MartinRand = RAND(1,7)
-				
+
 			if MartinRand <= 2:
 				gt 'qwBarPolet', 'RandomDrinkEvents'
 			elseif MartinRand <= 4:
@@ -286,7 +283,7 @@ if $ARGS[0] = 'DrinkingBooze':
 				*nl
 				'Safe from the friendly smile and words of gratitude you exchange with Martin, you were quickly left alone with your drink and nothing interesting seemed to be happening around the bar.'
 				'You therefore spent the last 15 minutes in peace, taking the occasional sip from your glass as you reflect the events of the day, think about your life and the people in it. You barely notice how your glass gets emptier and emptier until, finally, you notice that you have nothing left to drink.'
-					
+
 				act 'Finish your drink': gt 'qwBarPolet'
 			end
 		end
@@ -299,31 +296,31 @@ if $ARGS[0] = 'Ordering':
 	!Different Picture/s?!
 	'You go to the counter, sit down on one of the stools and, when the bartender notices you, ask: "Hey, could you bring me something to drink?"'
 	if cumloc[7] > 0 or cumloc[10] > 0 or cumloc[11] > 0 or cumloc[13] > 0 or cumloc[16] > 0:
-		if pcs_exhibition < 60: 
+		if pcs_exhibition < 60:
 			mood -= rand(2,5)
 		else
-			pcs_horny += 5	
+			pcs_horny += 5
 		end
 		npc_rel['A216'] -= 2
 		'Martin gives a stern look. "Don''t you think you should clean yourself up first?"'
 		*nl
 		'You are visibly covered in cum and Martin noticed it!'
-		if pcs_exhibition < 60: 
+		if pcs_exhibition < 60:
 			'How embarrassing...'
 		else
 			'It''s kinda sexy to know that he noticed it. Your belly tingles at the thought that seeing the sperm must have made Martin imagine you having sex.'
 			'Still...'
 		end
 		'You should probably go to the bathroom and wash it off.'
-		
+
 		act 'Step away from the counter': gt 'qwBarPolet'
-	
+
 	elseif alko >= 6:
 		*nl
 		iif(knowMartin=1,'Martin','The burly barman') + ' musters you. "I think you''ve had enough."'
 		'"I''m fine", you assure him with a hint of a slur, "Just gimme one."'
 		'"You can barely stand-up straight, ' + iif(knowMartin=1,'<<$pcs_firstname>>','girl') + '. And I sure as hell don''t want a young woman like yourself to pass out in my bar. Go home, or at least sober up a bit."'
-		
+
 		if money >= 35:
 			act 'Can I have some water?':
 				cla
@@ -332,7 +329,7 @@ if $ARGS[0] = 'Ordering':
 				gs 'beverage','bev_wat'
 			end
 		end
-		
+
 		act 'I''m not that drunk':
 			cla
 			'"Come on, I''m not that drunk!" You insist. Unfortunately, instead of telling Martin, you were addressing the beer taps next to him. Oops.'
@@ -340,10 +337,10 @@ if $ARGS[0] = 'Ordering':
 			*nl
 			'With that, he turns and walks off to serve somebody else. Looks like he won''t let you drink yourself into a coma.'
 			'Bastard!'
-				
+
 			act 'Give up for now': gt 'qwBarPolet'
 		end
-				
+
 	elseif knowMartin ! 1:
 		*nl
 		'The bartender comes over and musters you. "Sure. If you are old enough."'
@@ -353,14 +350,14 @@ if $ARGS[0] = 'Ordering':
 		else
 			'You know exactly what he means. After all, he told you not to come back unless you really turned 18, and judging by the look he gives you, his opinion probably hasn''t changed.'
 		end
-				
+
 		if knowMartin = 2 and age < 18:
 			'"I... I just wanted to come by and talk," you say, trying to avoid the fact you still aren''t 18.'
 			'But the barman is having none of it. "If you aren''t old enough to drink, I suggest you leave."'
 			'And without another look, Martin turns and walks off.'
 			*nl
 			'Guess you really have to be 18 to even think about restoring your relationship with him.'
-			
+
 			if money >= 35:
 				act 'Can I have some water?':
 					cla
@@ -369,9 +366,9 @@ if $ARGS[0] = 'Ordering':
 					gs 'beverage','bev_wat'
 				end
 			end
-			
+
 			act 'Leave the bar': gt 'nord'
-					
+
 		elseif knowMartin = 2 and age >= 18:
 			knowMartin = 1
 			killvar 'RabotnikFirst'
@@ -393,24 +390,24 @@ if $ARGS[0] = 'Ordering':
 			'It''s probably going to take a while to recover from this, but the first big step is done.'
 			'"Now, what shall I bring you?" The bartender asks.'
 			gs 'beverage_menu','pub'
-				
+
 		elseif fakepassport = 1 or age >= 18:
 			orderDrink = 1
 			*nl
 			'Nodding, you take out your ID and show it to him. He eyes it suspiciously and gives you a stern look... but then nods and hands it back to you.'
 			'"What can I bring you?"'
 			gs 'beverage_menu','pub'
-		
+
 		else
 			*nl
 			'"Um...", you try to maintain eye contact with him but eventually look down, "I, uh, must have forgotten my ID at home. Couldn''t you-"'
 			'"No, I can''t", he cuts you off. "No ID, no service."'
 			*nl
 			'Guess you''ll have to come back with an ID, or come up with another way to get a drink.'
-			
+
 			act 'Nod and give up': gt 'qwBarPolet'
 		end
-	
+
 	else
 		'Martin nods. "Sure. What are you having?"'
 		orderDrink = 1
@@ -424,7 +421,7 @@ if $ARGS[0] = 'RandomDrinkEvents':
 	DrinkingRand = RAND(1,14)
 	pic_rand = RAND(1,6)
 	observ_exp += rand(0,2)
-	
+
 	if DrinkingRand = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/event7.jpg"></center>'
 		'Martin nods and prepares your beverage. While he does, you hear voices swell behind you and turn to find their source. It would seem that two other patrons - workmates, if their identical, dusty work overalls are any indication - have had a little too much too drink and are now arguing loudly over who has been bumming more cigarettes off whom.'
@@ -433,18 +430,18 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		*nl
 		'He seems completely unfazed by this disruption of the bar''s peace as he steps out from behind the counter, his burly, muscular build even more impressive out in the open room, and you don''t seem to be alone with that assessment: The few whose attention hadn''t been captured by the loud voices now cease whatever they are doing, the room eerily silent except for Martin''s voice: "Artur, Grisha," he calls the two.'
 		*nl
-		'They slowly turn their heads toward him and it seems to dawn on them who is speaking to them.' 
+		'They slowly turn their heads toward him and it seems to dawn on them who is speaking to them.'
 		'It''s astonishing, really: One moment, they are pumped up and ready to go at each other, and the next, they seem to physically deflate, letting go of each other almost unconsciously.'
 		*nl
 		'Martin doesn''t utter another word at them - he doesn''t have to. The two slowly sit back down, careful to avoid the bartender''s gaze as much as each other''s.'
 		'Satisfied with this outcome, Martin nods. "No more drinks for the two of you tonight," he declares before turning around to resume his post.'
 		'Within seconds, the bar''s volume is back to its normal level, laughter and dirty jokes filling the air.'
 		*nl
-		'While you enjoy your drink, you briefly wonder why Martin didn''t just throw them out, but then you notice that the Artur and Grigori are talking to each other again and then burst into laughter as if nothing happened.' 
+		'While you enjoy your drink, you briefly wonder why Martin didn''t just throw them out, but then you notice that the Artur and Grigori are talking to each other again and then burst into laughter as if nothing happened.'
 		'Looks like the bartender knows his regulars.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	elseif DrinkingRand = 2:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/event6.jpg"></center>'
 		'Martin nods and prepares your beverage, then places it in front of you.'
@@ -454,14 +451,14 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		*nl
 		'Curious as to how this is going to turn out (or maybe just for lack of better entertainment), you watch as one of the other players folds while the remaining three raise each other until their pot contains some 1000 rubles - not a very impressive win to some, but enough for a couple of rounds of beer, or a decent bottle of vodka.'
 		*nl
-		'The other two look confident.' 
-		'One reveals three queens... and curses loudly when the second puts down a full house, a smug grin on his face.' 
+		'The other two look confident.'
+		'One reveals three queens... and curses loudly when the second puts down a full house, a smug grin on his face.'
 		'You don''t know what expression ''your'' guy had when he placed his four jacks on the table, but seeing the grin wiped off the second player''s face almost makes it feel like you sat at the table with them.'
 		*nl
 		'Feeling victorious (and a little lonely), you focus your attention on your beverage again while the card players set up their next round.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	elseif DrinkingRand = 3:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(4,6)
@@ -471,7 +468,7 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'<center><video src="images/locations/city/industrial/bar/event5.mp4"></center>'
 		'"Sure," Martin nods and a few seconds later, your beverage sits in front of you. You give him a grateful smile as he directs his attention at the other patrons and, since you lack a partner to converse with, focus on your drink and let your mind wander.'
 		*nl
-		'A movement at the edge of your sight catches your eye; at first, you think your bored mind conjured up sexy images to distract you, but no, even while you''re consciously looking at it, the scene doesn''t vanish:' 
+		'A movement at the edge of your sight catches your eye; at first, you think your bored mind conjured up sexy images to distract you, but no, even while you''re consciously looking at it, the scene doesn''t vanish:'
 		'In a corner of the bar, a woman is on her knees, her tits exposed to the world, giving some guy a blowjob.'
 		*nl
 		'The boldness of this display causes you to give Martin a quick glance - he''d probably throw them out if he noticed - but he seems occupied with one of his regulars, and it works in the couple''s favor that they''re getting busy in a dead angle of the room, which means that Martin can''t readily see them from behind the counter... but everybody else can.'
@@ -485,9 +482,9 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		gs 'arousal', 'voyeur', 5, 'exhibitionism'
 		gs 'arousal', 'end'
 		gs 'stat'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
+
 	elseif DrinkingRand = 4:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
@@ -511,9 +508,9 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		*nl
 		'Only now that their storytime is over do you notice how enthralled you were by it, how you pictured that woman being molested in public... and that the thought aroused you a little.'
 		$OpenInnerThought+'Maybe I should ride the metro more often.'+$CloseInnerThought
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	elseif DrinkingRand = 5:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
@@ -526,16 +523,16 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		*nl
 		'While sitting at the bar drinking, something catches your eye: A couple getting hot and heavy near you, whispering and fondling with little concern for possible onlookers; another girl you see nearby seems to have noticed them as well.'
 		*nl
-		'After observing the two for only a few moments, you watch wih arousal as the man shoves his hand down the pants of the woman, obviously stroking her pussy or finger-banging her - you can''t tell which one but the circumstances make it exciting nonetheless.' 
+		'After observing the two for only a few moments, you watch wih arousal as the man shoves his hand down the pants of the woman, obviously stroking her pussy or finger-banging her - you can''t tell which one but the circumstances make it exciting nonetheless.'
 		'Meanwhile, she is all smiles and coos, and melts into him as he plays with her, enjoying the explicit PDA. You might have thought she''d forgotten all about where she was if she hadn''t, at one point, met your eyes and subsequently bucked against her man''s hand and bit her lip to hold back moans as her lust overtook her.'
 		*nl
 		'But as time goes by, more and more patrons notice the couple and it borders on a miracle that Martin hasn''t seen them yet, so after a while, she whispers something into his ear - something that puts a shit-eating grin on his face - and they both hurry to the restroom...'
 		*nl
 		'At least somebody''s having fun.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-	
-	elseif DrinkingRand = 6:	
+
+	elseif DrinkingRand = 6:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
 		else
@@ -546,56 +543,56 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'Martin nods and prepares your beverage, then places it in front of you.'
 		'"Thank you," you smile at him and earn a half-smile in return before he leaves you to yourself.'
 		*nl
-		'While sitting at the bar drinking, you notice a woman flirting with three men. She is obviously fairly drunk but loving the attention she is getting... and getting bold, too: As you watch, she flashes her tits to them, then breaks into a giggle and goes back to teasing whispers.' 
-		'But not a minute later, she flashes them again, exposing herself longer this time, reveling in the hungry looks they are giving her, then chuckles and continues whatever sexually charged conversation she''s having with them.' 
+		'While sitting at the bar drinking, you notice a woman flirting with three men. She is obviously fairly drunk but loving the attention she is getting... and getting bold, too: As you watch, she flashes her tits to them, then breaks into a giggle and goes back to teasing whispers.'
+		'But not a minute later, she flashes them again, exposing herself longer this time, reveling in the hungry looks they are giving her, then chuckles and continues whatever sexually charged conversation she''s having with them.'
 		*nl
-		'They continue this game for a while, and after getting flashed a few more times, they seem to have reached the limits of their self-control, pawing at her and pulling her clothes aside to show everything she has to the world.' 
-		'But neither she, nor the other patrons seem to have a problem with that.' 
+		'They continue this game for a while, and after getting flashed a few more times, they seem to have reached the limits of their self-control, pawing at her and pulling her clothes aside to show everything she has to the world.'
+		'But neither she, nor the other patrons seem to have a problem with that.'
 		*nl
-		'Not long after, the four of them leave together, the woman flanked by two of the man, each of them possessively grabbing one of her ass cheeks.' 
+		'Not long after, the four of them leave together, the woman flanked by two of the man, each of them possessively grabbing one of her ass cheeks.'
 		'That woman has a long night ahead of her, you''d wager, and the image of their impending foursame makes your belly tingle.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
-	elseif DrinkingRand = 7:	
+
+	elseif DrinkingRand = 7:
 		pcs_mood -= 5
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/event8.jpg"></center>'
 		'"Sure," Martin nods and a few seconds later, your beverage sits in front of you. You give him a grateful smile as he directs his attention at the other patrons and, since you lack a partner to converse with, focus on your drink and let your mind wander.'
 		*nl
-		'You are shaken from your reverie when an older man sits down next to you.' 
-		'"Drunk" isn''t quite strong enough to describe the state he''s in - it looks like he has to actively keep himself from falling asleep right there and then - and you fully expect him to start hitting on you, but he doesn''t.' 
+		'You are shaken from your reverie when an older man sits down next to you.'
+		'"Drunk" isn''t quite strong enough to describe the state he''s in - it looks like he has to actively keep himself from falling asleep right there and then - and you fully expect him to start hitting on you, but he doesn''t.'
 		*nl
 		'Instead, he starts telling you a tale of woe: His "bitch wife" finally left him last week, his "ungrateful kids" refuse to talk to him anymore and he just lost his job today "because of that fuckin'' asshole of a boss". He''s slurring most of his story, but all the curses come out clearly articulated.'
 		*nl
-		'He talks about how the world has gone to shit and how a man can no longer be a man without someone stepping on him... then more or less starts over, apparently not remembering that he already told you about his "bitch wife".' 
+		'He talks about how the world has gone to shit and how a man can no longer be a man without someone stepping on him... then more or less starts over, apparently not remembering that he already told you about his "bitch wife".'
 		'You are feeling genuinely sympathetic towards him... but you are quite happy nonetheless when he finally falls unconscious right in the middle of the sentence and starts drooling on the counter.'
 		*nl
 		$OpenInnerThought+'They can take his job, but they can never take his dignity,'+$CloseInnerThought+' you think to yourself with a smirk.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
-	elseif DrinkingRand = 8:	
+
+	elseif DrinkingRand = 8:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/event10.jpg"></center>'
 		npc_rel['A216'] += 1
 		'Martin nods and prepares your beverage. While he does, you hear voices swell behind you and turn to find their source.'
 		*nl
 		'A group of drunk men sitting at one of the nearby tables are joking loudly and discussing this and that at the top of their voices. Just then, a pretty woman walks by the table and one of the men grabs her and pulls her into his lap. His friends laugh as she struggles to get free.'
 		*nl
-		'"Finally found a woman that''s less ugly than your wife, Egor?"' 
-		'Eventually, she slaps him across the face, which gets his friends laughing even more: "Haha, she likes you about as much as your wife, though!"' 
+		'"Finally found a woman that''s less ugly than your wife, Egor?"'
+		'Eventually, she slaps him across the face, which gets his friends laughing even more: "Haha, she likes you about as much as your wife, though!"'
 		*nl
-		'Egor doesn''t seem to be in a joking mood, though - he raises his hand to slap her back, but before he can, Martin, appearing seemingly out of nowhere, has his wrist in a vice grip and twists the drunk''s arm until he lets the woman go, who quickly hurries away.' 
+		'Egor doesn''t seem to be in a joking mood, though - he raises his hand to slap her back, but before he can, Martin, appearing seemingly out of nowhere, has his wrist in a vice grip and twists the drunk''s arm until he lets the woman go, who quickly hurries away.'
 		*nl
-		'Egor''s friends start to get up, but Martin gives them a piercing look and that seems to be all it takes to make them falter.' 
-		'"Do you want to walk out", the barman asks menacingly, "or be thrown out?"' 
+		'Egor''s friends start to get up, but Martin gives them a piercing look and that seems to be all it takes to make them falter.'
+		'"Do you want to walk out", the barman asks menacingly, "or be thrown out?"'
 		*nl
-		'You''re not entirely sure if they are scared of him - though he is undoubtedly very scary - or if they are sober enough to realize that half the men in the suddenly very silent bar would rush to his aid if he needed it.' 
+		'You''re not entirely sure if they are scared of him - though he is undoubtedly very scary - or if they are sober enough to realize that half the men in the suddenly very silent bar would rush to his aid if he needed it.'
 		'Whichever it is, they wisely choose to walk out while they still can.'
 		*nl
 		'Shortly after, the bar returns to normal, and after taking a moment to check up on the woman he saved, Martin brings you that drink you''d all but forgotten about. Say what you will about his appearance but he seems to have his heart in the right place.'
-		
+
 		act 'Enjoy your drink': gt 'qwBarPolet'
-		
+
 	elseif DrinkingRand = 9:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
@@ -606,16 +603,16 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/event3.jpg"></center>'
 		'"Sure," Martin nods and a few seconds later, your beverage sits in front of you. You give him a grateful smile as he directs his attention at the other patrons and, since you lack a partner to converse with, focus on your drink and let your mind and your eyes wander.'
 		*nl
-		'You notice an older woman - well, older than you, but she''s probably only in her early thirties - who, as you quickly realize, flashes and keeps on flashing her tits to Martin whenever he looks her way.' 
+		'You notice an older woman - well, older than you, but she''s probably only in her early thirties - who, as you quickly realize, flashes and keeps on flashing her tits to Martin whenever he looks her way.'
 		'But other than the occasional smile, he gives no hint of even being aware of her antics. She does catch the attention of several other men, though, and they move over to talk to her.'
 		*nl
-		'She evidently has no interest in them but they don''t take the hint until Martin gives them one of his scary looks.' 
-		'Coincidentally, the moment they notice, they all suddenly remember some very important business they have to take care of elsewhere immediately, and the woman''s fan club scatters in seconds.' 
+		'She evidently has no interest in them but they don''t take the hint until Martin gives them one of his scary looks.'
+		'Coincidentally, the moment they notice, they all suddenly remember some very important business they have to take care of elsewhere immediately, and the woman''s fan club scatters in seconds.'
 		*nl
 		'Of course, this only encourages her to redouble her efforts in flirting with Martin, and when Martin''s eyes meet yours, you share a shrug and a knowing smile with him and focus on your beverage.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
+
 	elseif DrinkingRand = 10:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
@@ -634,11 +631,11 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		*nl
 		'Then you realize something else: She is looking here and there, but she seems to be deliberately avoiding to look in your direction - could she be aware of your looking at her?'
 		*nl
-		'You quickly turn your face straight ahead again and focus so hard on your drink that it''s should be catching fire any second now.' 
+		'You quickly turn your face straight ahead again and focus so hard on your drink that it''s should be catching fire any second now.'
 		'The image in your head, however, is that of the exhibitionist and her smooth, exposed pussy...'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
+
 	elseif DrinkingRand = 11:
 		if pcs_exhibition < 40:
 			exhibition_exp += rand(1,3)
@@ -663,7 +660,7 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'He knew you had noticed them. He was aware that you would be waiting for them to come out again. And, looking at how ashamed the woman seems to be, maybe he told her too...'
 
 		act 'Finish your drink': gt 'qwBarPolet'
-	
+
 	elseif DrinkingRand = 12:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/bartalk<<pic_rand>>.jpg"></center>'
 		'"Alright." Martin nods and prepares your beverage, then places it in front of you.'
@@ -682,9 +679,9 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'"Martin is great. I definitely wouldn''t piss him off, though," the second one explains. "I just wish he didn''t close the bar so early. What bar closes at midnight?"'
 		'"Most of them do. Have you ever actually been to another bar?" The other male asks.'
 		'"Why bother? The beer tastes like piss everywhere," his friend remarks, and they both laugh and raise their glasses to that.'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
-		
+
 	elseif DrinkingRand = 13:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/bartalk<<pic_rand>>.jpg"></center>'
 		'"Coming right up." Only seconds later, Martin puts down a full glass in front of you before directing his attention elsewhere.'
@@ -695,7 +692,7 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		'"Because the governor''s wife was caught having an affair with her driver and the governor doesn''t want her to leave the house on her own anymore, so he had the assembly pass that law for him."'
 		'"... really?"'
 		'"<b>No, you idiot!</b> I don''t have a fucking clue why you can''t buy a second car. How am I supposed to know? I can''t even afford <b>one</b>!"'
-		
+
 		act 'Finish your drink': gt 'qwBarPolet'
 
 	elseif DrinkingRand = 14:
@@ -720,7 +717,6 @@ if $ARGS[0] = 'RandomDrinkEvents':
 		
 		act 'Finish your drink': gt 'qwBarPolet'
 
-	
 !Template for infos	the NPCs give on events, stories and other points of interest in the game
 !	!!DrinkingRand ALWAYS HAS TO BE ADJUSTED AT THE TOP OF THE ARGUMENT
 !	elseif DrinkingRand = 15:
@@ -730,15 +726,15 @@ if $ARGS[0] = 'RandomDrinkEvents':
 !		*nl
 !		'BLA BLA BLA'
 !		act 'Finish your drink': gt 'qwBarPolet'
-	
-	
+
+
 	!Ideas for other random events:
 	!-Martin talking to somebody (and comforting them)
 	!-A group talking about work
-	!-Talk about prominent npcs 
+	!-Talk about prominent npcs
 	!-Talk about ingame locations
 	!-Discussing ingame politics
-	
+
 	end
 end
 

+ 15 - 15
locations/rolanapt

@@ -19,7 +19,7 @@ if $ARGS[0] = 'home':
 
 	cla
 	*clr
-	'<center><img src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
 	'You walk up to the front door and knock.'
 	if hour >= 23:
 		'It''s too late in the day to visit Mr. Matveev'
@@ -32,7 +32,7 @@ if $ARGS[0] = 'home':
 		act 'ring the bell':gt 'rolanbath', 'surprise'	
 	elseif hour >= 15 and hour < 23 and RolanLoc[hour] >= 2 and RolanLoc[hour] =< 8:
 		*clr & cla
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanwelcome.jpg"></center>'		
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanwelcome.jpg"></center>'		
 		'The door open: "Welcome Mrs <<$pcs_lastname>>, here take a seat".'
 		act 'Enter': gt 'rolanapt','hallway' 
 	else
@@ -51,7 +51,7 @@ if $ARGS[0] = 'hallway':
 	gs 'stat'
 	!gs 'rolanapt' , 'rolanroute'	
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
-	'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/hallway.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/hallway.jpg"></center>'
 	if RolanLoc[hour] = 0: 
 		'Rolan should be at work'
 	!RolanLoc = 0 (Rolan not home school)
@@ -119,7 +119,7 @@ if $ARGS[0] = 'room':
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Rolan''s bedroom</font></h4></center>'
-	'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bedroom.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bedroom.jpg"></center>'
 	'This is Rolan''s bedroom, it''s quite the mess. A clock on the wall marks the time, and you see what seems to be an old bedpans under the bed "...is he really so lazy?" you wonder...'
 	if RolanLoc[hour] = 3: 'Rolan is here'
 	if RolanLoc[hour] ! 3 and rolanpantyQW >= 5: 
@@ -1920,70 +1920,70 @@ if $ARGS[0] = 'worker':
 		rolanworker += 1
 		gs 'stat'
 		'<center><h4><font color="maroon">Worker</font></h4></center>'
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker6.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker6.jpg"></center>'
 		'"First i''ll prepare the concrete, i do not need a lot, the crack is not too much big afterall..."'
 		act 'continue':
 		    cla
 			*clr
 			minut += 5
 			'<center><b><font color = maroon>Worker</font></b></center>'
-			'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker7.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker7.jpg"></center>'
 			'"Let''s search for some tube...i don''t want to break them...and sign their path"'
 			act 'continue':
 				cla
 				*clr
 				minut += 5
 				'<center><b><font color = maroon>Worker</font></b></center>'
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker8.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker8.jpg"></center>'
 				'"...i hope his neighboor are away...."'
 				act 'continue':
 					cla
 					*clr
 					minut += 10
 					'<center><b><font color = maroon>Worker</font></b></center>'
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker9.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker9.jpg"></center>'
 					'"...ok that''s enough...uff, i''m start sweating..."'
 					act 'continue':
 						cla
 						*clr
 						minut += 5
 						'<center><b><font color = maroon>Worker</font></b></center>'
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker10.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker10.jpg"></center>'
 						'"...now i''ll cover the hole with the concrete..."'
 						act 'continue':
 							cla
 							*clr
 							minut += 5
 							'<center><b><font color = maroon>Worker</font></b></center>'
-							'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker11.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker11.jpg"></center>'
 							'...it''s harder than i thought...i''m completely wet in my own sweat...'
 							act 'continue':
 								cla
 								*clr
 								minut += 10
 								'<center><b><font color = maroon>Worker</font></b></center>'
-								'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker12.jpg"></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker12.jpg"></center>'
 								'"that''s better. Rolan isn''t at home i think i can stay naked...i''ve had a good idea to bring some beer and put it in the fridge...it seems i can drink a whole can in a shot..."'
 								act 'continue':
 									cla
 									*clr
 									minut += 5
 									'<center><b><font color = maroon>Worker</font></b></center>'
-									'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker13.jpg"></center>'
+									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker13.jpg"></center>'
 									'"Good work. Now the paint. I should left the concrete as the last part so it can dry properly...it wasn''t a big hole, it shouldn''t take too much to dry."'
 									act 'continue':
 										cla
 										*clr
 										minut += 10
 										'<center><b><font color = maroon>Worker</font></b></center>'
-										'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker14.jpg"></center>'
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker14.jpg"></center>'
 										'"Uff, it''s a relief to be naked, i couldn''t wear clothes for any longer...Ok the upper is done.."'
 										act 'continue':
 											cla
 											*clr
 											minut += 5
 											'<center><b><font color = maroon>Worker</font></b></center>'
-											'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker15.jpg"></center>'
+											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker15.jpg"></center>'
 											'"...time for the lower walls.."'
 											act 'continue':
 												cla
@@ -1999,7 +1999,7 @@ if $ARGS[0] = 'worker':
 													minut += 5
 													newbath = 1
 													'<center><b><font color = maroon>Worker</font></b></center>'
-													'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker16.jpg"></center>'
+													'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker16.jpg"></center>'
 													'"I think i earned a beer...oh my...that''s the sweetest beer i''ve evre drunk...no wonder why builder drink so much at work!"'
 													act 'Continue': gt 'rolanapt','hallway'				
 												end

+ 36 - 36
locations/rolanbath

@@ -23,10 +23,10 @@ if $ARGS[0] = 'start':
 
 	'<center><b><font color = maroon>Bathroom</font></b></center>'
 	if newbath ! 1:
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
 		'The bathroom has seen better days. There''s some mold in the corners of the walls and floors with a big crack in the wall. This place probably hasn''t been cleaned for quite some time. The toilet sits along the far wall. There''s also a bathtub, with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
 	elseif newbath = 1:
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
 		'Newbath'
 	end
 	
@@ -39,7 +39,7 @@ if $ARGS[0] = 'start':
 		elseif workertool = 2:
 			cla
 			*clr
-			'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/girlpow.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/girlpow.jpg"></center>'
 			'"I will show to Rolan the girl power."'
 			act 'to the work': gt 'rolanapt', 'worker'
 		end
@@ -58,7 +58,7 @@ if $ARGS[0] = 'start':
 		
 		if frost > 0:frost = 0
 
-		'<center><img src="images/shared/home/bathroom/wash3.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
 		*nl
 		'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spot and then wash off.'
 		*nl
@@ -88,7 +88,7 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
 					*nl
 					'The warm water begins to caress you."Ohh...that''s what i need!". You forget for a moment that Rolan could enter the bath in any moment, that was so relaxing that you start to sing under the water flow; you imagine yourself on a stage as a rockstar singing for her fans.'
 					pcs_mood += 10
@@ -106,7 +106,7 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
 					*nl
 					'As the jet of warm water begins to caress you, you hear a noise..."Rolan is that you?"...baf probably i''m oversuspicious....'
 					cumspclnt = 8
@@ -120,7 +120,7 @@ if $ARGS[0] = 'start':
 					act 'return the shower': 
 						cla
 						*clr
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
 						*nl
 						'"whaaa... i must have finished hot water"'
 						act 'Dry yourself':
@@ -128,7 +128,7 @@ if $ARGS[0] = 'start':
 							*clr
 							minut += 5	
 !							gs 'rolanbath', 'rolansteal'	
-							'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
 							*nl
 							'you exit the shower with your towel on, knowing that is better to be fast.'
 							if hypnoAddict ! 0:
@@ -146,14 +146,14 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(0,2)+'.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(0,2)+'.jpg"></center>'
 					*nl
 					'"Rolan is that you?".'
 					act 'What the f...?':
 						cla
 						*clr
 						minut += 10
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
 						*nl
 						'shit rolan is here masturbating'
 						act 'look':
@@ -169,7 +169,7 @@ if $ARGS[0] = 'start':
 								minut += 5
 								dynamic $showerdin
 								pcs_horny += rand(0,2)
-								'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
 								*nl
 								'It would be very embarrassing if Rolan enters now ... Better wait till he''s done.'	
 								act 'wait': gt 'rolanbath','dryOff'
@@ -294,7 +294,7 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing1.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing1.jpg"></center>'
 					*nl
 					'The warm water begins to caress you."Ohh...that''s what i need!". You forget for a moment that Rolan could enter the bath in any moment, that was so relaxing that you start to sing under the water flow; you imagine yourself on a stage as a rockstar singing for her fans.'
 					pcs_mood += 10
@@ -306,7 +306,7 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
 					*nl
 					'As the jet of warm water begins to caress you, you hear a noise..."Rolan is that you?"...baf probably i''m oversuspicious....'
 					gs 'cum_cleanup'
@@ -321,14 +321,14 @@ if $ARGS[0] = 'start':
 					act 'return to bathtub': 
 						cla
 						*clr
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
 						*nl
 						'"whaaa... i must have finished hot water"'
 						act 'Dry yourself':
 							cla
 							*clr
 							minut += 5
-							'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
 							*nl
 							'you exit the shower with your towel on, knowing that is better to be fast.'
 							act'Quick dressing': gt 'rolanbath','dryOff'
@@ -340,14 +340,14 @@ if $ARGS[0] = 'start':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(3,5)+'.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(3,5)+'.jpg"></center>'
 					*nl
 					'"Rolan is that you?".'
 					act 'What the f...?':
 						cla
 						*clr
 						minut += 10
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
 						*nl
 						'shit rolan is here masturbating'
 						act 'look':
@@ -363,7 +363,7 @@ if $ARGS[0] = 'start':
 								minut += 5
 								dynamic $showerdin
 								pcs_horny += rand(0,2)
-								'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
 								*nl
 								'It would be very embarrassing if Rolan enters now ... Better wait till he''s done.'	
 								act 'wait': gt 'rolanbath','dryOff'
@@ -719,7 +719,7 @@ if $ARGS[0] = 'pervshower':
 		
 		if frost > 0:frost = 0
 
-		'<center><img src="images/shared/home/bathroom/wash3.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
 		*nl
 		'You carefuly undress behind the curtain and open the water. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spot and then wash off.'
 		*nl
@@ -782,7 +782,7 @@ if $ARGS[0] = 'pervshower':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
 					*nl
 					'The warm water begins to caress you."Ohh...that''s what i need!". You forget for a moment that Rolan could enter any moment, that was so relaxing that you start to sing under the water flow; you imagine yourself on a stage as a rockstar singing for her fans.'
 					pcs_mood += 10
@@ -918,7 +918,7 @@ if $ARGS[0] = 'dryOff':
 	if RolanLoc[hour] = 0:	
 		cla
 		*clr
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel'+rand(0,1)+'.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel'+rand(0,1)+'.jpg"></center>'
 		*nl	
 		'you know rolan cannot be there'
 		act 'Get out and dry off': gt $loc, 'start'
@@ -926,7 +926,7 @@ if $ARGS[0] = 'dryOff':
 		if rand (0,3) = 3:
 			cla
 			*clr
-			'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbusy1.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbusy1.jpg"></center>'
 			'shit rolan is here ...when did he enter?'
 			act 'Close curtain (0:5)':
 				cla
@@ -934,7 +934,7 @@ if $ARGS[0] = 'dryOff':
 				minut += 5
 				dynamic $showerdin
 				pcs_horny += rand(0,2)
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
 				*nl
 				'It would be very embarrassing if Rolan enters now ... Better wait till he''s done.'	
 				act 'wait': gt 'rolanbath','dryOff'
@@ -944,10 +944,10 @@ if $ARGS[0] = 'dryOff':
 			*clr		
 			'<center><b><font color = maroon>Bathroom</font></b></center>'
 			if newbath ! 1:
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
 				'The bathroom has seen better days. There''s some mold in the corners of the walls and floors with a big crack in the wall. This place probably hasn''t been cleaned for quite some time. The toilet sits along the far wall. There''s also a bathtub, with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
 			elseif newbath = 1:
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
 				'Newbath'
 			end
 			*nl
@@ -959,7 +959,7 @@ if $ARGS[0] = 'dryOff':
 					minut += 1
 					rolan_steal_count +=1
 					rolan_steal_day = daystart
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/headrol.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/headrol.jpg"></center>'
 					if rolanpantyQW =< 1:
 						rolanpantyQW += 1
 						*nl
@@ -974,7 +974,7 @@ if $ARGS[0] = 'dryOff':
 					cla
 					*clr
 					minut += 1
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathdry'+rand(0,1)+'.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathdry'+rand(0,1)+'.jpg"></center>'
 					*nl
 					'better be careful you never know.....'	
 					act 'exit': gt $loc, 'start'
@@ -999,35 +999,35 @@ if $ARGS[0] = 'tools':
 			*clr
 			minut += 1
 			'<center><b><font color = maroon>Tools</font></b></center>'
-			'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker0.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker0.jpg"></center>'
 			'"Trowel.."'
 			act 'continue':
 				cla
 				*clr
 				minut += 1
 				'<center><b><font color = maroon>Tools</font></b></center>'
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker1.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker1.jpg"></center>'
 				'"...where''s the paintbrush?...oh i see it from here..."'
 				act 'continue':
 					cla
 					*clr
 					minut += 1
 					'<center><b><font color = maroon>Tools</font></b></center>'
-					'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker2.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker2.jpg"></center>'
 					'"...ladder..."'
 					act 'continue':
 						cla
 						*clr
 						minut += 1
 						'<center><b><font color = maroon>Tools</font></b></center>'
-						'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker3.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker3.jpg"></center>'
 						'"....mmmhh...i should be faster with pneumatic hammer...."'
 						act 'continue':
 							cla
 							*clr
 							minut += 1
 							'<center><b><font color = maroon>Tools</font></b></center>'
-							'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker4.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker4.jpg"></center>'
 							'"...noise stop...."'
 							act 'continue':
 								cla
@@ -1035,7 +1035,7 @@ if $ARGS[0] = 'tools':
 								minut += 1
 								workertool += 1
 								'<center><b><font color = maroon>Tools</font></b></center>'
-								'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker5.jpg"></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker5.jpg"></center>'
 								'"Crap ...Vladimir doesn''t have concrete....Rolan should have the paint, my last hope is he have some concrete too; i should check..."'
 								act 'continue': gt 'rolanbath', 'tools'
 							end
@@ -1106,7 +1106,7 @@ if $ARGS[0] = 'surprise':
 		*clr
 		minut += 1
 		'<center><b><font color = maroon>Surprise</font></b></center>'
-		'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
 		'"Miss <<$pcs_lastname>> ...the light and there''s no more mold''s smell...how ...how ... i''ve bought the paint but ...." '
 		*nl
 		'"As a matter of fact it was your paint, but there''s some left if you have to make some adjustment..."'
@@ -1117,7 +1117,7 @@ if $ARGS[0] = 'surprise':
 			*clr
 			minut += 1
 			'<center><b><font color = maroon>Surprise</font></b></center>'
-			'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath0.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath0.jpg"></center>'
 			'..."How much did it cost to you? I-i don''t have much...but i have to repay...."'
 			*nl
 			'"Do not worry Rolan i didn''t do it for money, and it cost me nothing...i did it by myself...!"'
@@ -1132,7 +1132,7 @@ if $ARGS[0] = 'surprise':
 				rolanknow = 1
 				RolanLoc[hour] = 6
 				'<center><b><font color = maroon>Surprise</font></b></center>'
-				'<center><img src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath1.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath1.jpg"></center>'
 				'"Oh sure ...your stepdad...he should be a man who take cares of his property...but i don''t have concrete...how did you managed with the crack on the wall? did you ask also for concrete to Vladimir? "'
 				*nl
 				'"Oh no he didn''t have....but i found some in the room you usually clean ..."'

+ 24 - 23
locations/stat_display

@@ -487,29 +487,30 @@ killvar 'stat_extra_msg'
 
 
 !!----------------Extra messages, End--------------------------
-
-if home_owned[1] = 1 and ArendHouseSL <= 0:
-	$stat_msg += '<br><font color="red"><b>The rent on your apartment is due today.</b></font>'
-	if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta + bankDebtLimit >= 6000:
-		$stat_msg += ' Renew with '
-		if money >= 6000:
-			$stat_msg += ' <a href="exec:money -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash</a>'
-		elseif stolmoney >= 6000:
-			$stat_msg += ' <a href="exec:stolmoney -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash from drawer</a>'
-		elseif money + stolmoney >= 6000:
-			!both < 6000, so money = money - 6000 + stolmoney
-			$stat_msg += ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash from purse and drawer</a>'
-		end
-		!from purse, drawer or both
-		if karta >= 6000: 
-			$stat_msg += ' <a href="exec:karta -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
-		elseif karta + bankDebtLimit >= 6000: 
-			$stat_msg += ' <a href="exec:karta -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
-		end	
-	else
-		$stat_msg += ' But you can''t afford to pay the rent.'
-	end
-end
+!! double with payment in cikl
+
+!! if home_owned[1] = 1 and ArendHouseSL <= 0:
+!! 	$stat_msg += '<br><font color="red"><b>The rent on your apartment is due today.</b></font>'
+!! 	if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta + bankDebtLimit >= 6000:
+!! 		$stat_msg += ' Renew with '
+!! 		if money >= 6000:
+!! 			$stat_msg += ' <a href="exec:money -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash</a>'
+!! 		elseif stolmoney >= 6000:
+!! 			$stat_msg += ' <a href="exec:stolmoney -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash from drawer</a>'
+!! 		elseif money + stolmoney >= 6000:
+!! 			!both < 6000, so money = money - 6000 + stolmoney
+!! 			$stat_msg += ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">cash from purse and drawer</a>'
+!! 		end
+!! 		!from purse, drawer or both
+!! 		if karta >= 6000: 
+!! 			$stat_msg += ' <a href="exec:karta -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
+!! 		elseif karta + bankDebtLimit >= 6000: 
+!! 			$stat_msg += ' <a href="exec:karta -= 6000 & home_owned[1] = 1 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
+!! 		end	
+!! 	else
+!! 		$stat_msg += ' But you can''t afford to pay the rent.'
+!! 	end
+!! end
 
 if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'