Fixed overdrawn account not being displayed which resulted in noticing overdraft not actually being used in most cases.

locations/KGstart

@@ -75,9 +75,9 @@ minut += 1
 gs 'stat'
 
 if KFOnLineReaga > 0:
-	'Welcome to the game Vertep World. You can play more <<KFOnLineReaga>> days'
-	'At any time you can pay with a credit card that would extend the duration of the account.'
-	'30 days 1000 <b>₽</b>, on your credit card <<karta>><b>₽</b>'
+	'Welcome to the game Vertep World. You can play for <<KFOnLineReaga>> more days'
+	'At any time you can pay via online banking that would extend the duration of the account.'
+	'30 days for 1000 <b>₽</b> via online banking.'
 
 	if KGOLpers > 0:
 		'You can get in the game your character, or delete it'
@@ -107,7 +107,7 @@ if KFOnLineReaga > 0:
 		end
 	end
 
-	if karta >= 1000:
+	if karta + bankDebtLimit >= 1000:
 		act 'Payment akkuaunta':
 			karta -= 1000
 			KFOnLineReaga += 30
@@ -115,17 +115,17 @@ if KFOnLineReaga > 0:
 		end
 	end
 
-	if karta > 0:
-		act 'Donat money in the game (1rub = 1moneta)':
+	if karta + bankDebtLimit > 0:
+		act 'Buy game coins (1 ₽ = 1 Game Coin)':
 			cla
-			KGOLdonat = input("How much money do you want zadonatit?")
+			KGOLdonat = input("How many coins do you wish to purchase?")
 
 			if KGOLdonat <= 0 or KGOLdonat > karta:
 				msg 'Not valid operation'
 			else
 				karta -= KGOLdonat
 				KGOLmoney += KGOLdonat
-				msg 'Transferred to your account <<KGOLdonat>> coins'
+				msg '<<KGOLdonat>> coins have been added to your account.'
 			end
 
 			gt $curloc
@@ -133,9 +133,9 @@ if KFOnLineReaga > 0:
 	end
 else
 	'Welcome to the online game Vertep World'
-	'To play this game you have to pay 1, 000 <b>₽</b> for 30 days with a credit card.'
+	'To play this game you have to pay 1, 000 <b>₽</b> for 30 days via online banking.'
 
-	if karta >= 1000:
+	if karta + bankDebtLimit >= 1000:
 		act 'Payment':
 			karta -= 1000
 			KFOnLineReaga += 30

locations/Komp

@@ -132,7 +132,7 @@ if $ARGS[0] = 'remont':
 		if rembedr = 0:
 			act 'Have them redesign your bedroom (50,000 <b>₽</b>)':
 				cla
-				if karta >= 50000:
+				if karta + bankDebtLimit >= 50000:
 					rembedr = 1
 					karta -= 50000
 					'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice your new bedroom is finished already! It looks fabulous, but wait... how did they do that!?'
@@ -147,7 +147,7 @@ if $ARGS[0] = 'remont':
 		if remsitr = 0:
 			act 'Renovate the living room (50,000 <b>₽</b>)':
 				cla
-				if karta >= 50000:
+				if karta + bankDebtLimit >= 50000:
 					remsitr = 1
 					karta -= 50000
 					'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice the living room is finished already! It looks fabulous, but wait... how did they do that!?'
@@ -162,7 +162,7 @@ if $ARGS[0] = 'remont':
 		if remkorr = 0:
 			act 'Repair hallway (50,000 <b>₽</b>)':
 				cla
-				if karta >= 50000:
+				if karta + bankDebtLimit >= 50000:
 					remkorr = 1
 					karta -= 50000
 					'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice it is finished already! It looks fabulous, but wait... how did they do that!?'
@@ -177,7 +177,7 @@ if $ARGS[0] = 'remont':
 		if remvanr = 0:
 			act 'Renovate the bathroom (50,000 <b>₽</b>)':
 				cla
-				if karta >= 50000:
+				if karta + bankDebtLimit >= 50000:
 					remvanr = 1
 					karta -= 50000
 					'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice your new bathroom is installed already! It looks fabulous, but wait... how did they do that!?'
@@ -192,7 +192,7 @@ if $ARGS[0] = 'remont':
 		if remkuhr = 0:
 			act 'Renovate the kitchen (50,000 <b>₽</b>)':
 				cla
-				if karta >= 50000:
+				if karta + bankDebtLimit >= 50000:
 					remkuhr = 1
 					karta -= 50000
 					'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice the kitchen you just ordered is already installed and ready to use. It looks fabulous, but wait... how did they do that!?'
@@ -613,7 +613,7 @@ if $ARGS[0] = 'agent':
 	'They have apartments available in the residential district. Renting one would cost you 6000 <b>₽</b> for 30 days.'
 	''
 	if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> remaining on the rental of your apartment.'
-	if karta >= 6000 and BuyHous ! 1:
+	if karta + bankDebtLimit >= 6000 and BuyHous ! 1:
 		act 'Rent an apartment online':
 			cla
 			karta -= 6000
@@ -1576,10 +1576,10 @@ if $ARGS[0] = 'bank':
 		
 		if karta >= 0:
 			'You have <<karta>> <b>₽</b> in your account.'
-			'You have an approved credit of <font color="blue"><<bankDebtLimit>></font>!'
+			'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
 		else
-			'You hava a debt of <font color="red"><<-1 * karta>> <b>₽</b></font>.'
-			'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font>!'
+			'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
+			'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
 		end
 		
 		*pl

locations/agentned

@@ -16,10 +16,10 @@ if $ARGS[0] = 'start':
 	if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.' 
 	if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0: '<a href="exec:GT ''agentned'',''rent''">Rent an apartment in the residential area</a>'
 	if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0 and arnksg = 1: '<a href="exec:GT ''agentned'',''rent2''">Rent an apartment in the old town</a>'
-	if karta >= 2000000 and BuyHous < 1 or karta >= 2000000 and BuyHous > 1:'<a href="exec:GT ''agentned'',''buy''">Buy an apartment</a> for 2 million <b>₽</b>.'
+	if karta + bankDebtLimit >= 2000000 and BuyHous < 1 or karta >= 2000000 and BuyHous > 1:'<a href="exec:GT ''agentned'',''buy''">Buy an apartment</a> for 2 million <b>₽</b>.'
 	if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'
-	if karta >= 75000 and dachaest = 0:'Buy a <a href="exec:GT ''agentned'',''buy_dacha''">holiday cottage</a> in a small village, for 75 thousand <b>₽</b>.'
-	if karta >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million <b>₽</b>.'
+	if karta + bankDebtLimit >= 75000 and dachaest = 0:'Buy a <a href="exec:GT ''agentned'',''buy_dacha''">holiday cottage</a> in a small village, for 75 thousand <b>₽</b>.'
+	if karta + bankDebtLimit >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million <b>₽</b>.'
 	''
 
 	act '<B>Logout</B>':gt'down'

locations/autosalonF

@@ -59,11 +59,11 @@ if $ARGS[0] = 'manager1':
 
 	act 'Leave':gt 'Nord'
 
-	if karta >= 400000:
+	if karta + bankDebtLimit >= 400000:
 		act 'Buy a Kalina VAZ (400 th.RUB)':
 			cla
 			*clr
-			karta = karta - 400000
+			karta -= 400000
 			$car = 'Kalina VAZ'
 			car = 6
 			benz = 3
@@ -79,11 +79,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 450000:
+	if karta + bankDebtLimit >= 450000:
 		act 'Buy a VAZ Priora (450 th.RUB)':
 			cla
 			*clr
-			karta = karta - 450000
+			karta -= 450000
 			$car = 'WHA PRIORA'
 			car = 7
 			benz = 3
@@ -99,11 +99,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 500000:
+	if karta + bankDebtLimit >= 500000:
 		act 'Buy a Chevrolet Niva (500 th.RUB)':
 			cla
 			*clr
-			karta = karta - 500000
+			karta -= 500000
 			$car = 'Chevrolet NIVA'
 			car = 8
 			benz = 3
@@ -119,11 +119,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 500000:
+	if karta + bankDebtLimit >= 500000:
 		act 'Buy a UAZ Hunter (500 th.RUB)':
 			cla
 			*clr
-			karta = karta - 500000
+			karta -= 500000
 			$car = 'UAZ HUNTER'
 			car = 9
 			benz = 3
@@ -139,11 +139,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 600000:
+	if karta + bankDebtLimit >= 600000:
 		act 'Buy a UAZ Patriot (600 th.RUB)':
 			cla
 			*clr
-			karta = karta - 600000
+			karta -= 600000
 			$car = 'UAZ Patriot'
 			car = 10
 			benz = 3
@@ -159,11 +159,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 500000:
+	if karta + bankDebtLimit >= 500000:
 		act 'Buy a Ford Focus 2 (500 th.RUB)':
 			cla
 			*clr
-			karta = karta - 500000
+			karta -= 500000
 			$car = 'Ford Focus 2'
 			car = 13
 			benz = 3
@@ -179,11 +179,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 700000:
+	if karta + bankDebtLimit >= 700000:
 		act 'Buy a Renault LOGAN (700 th.RUB)':
 			cla
 			*clr
-			karta = karta - 700000
+			karta -= 700000
 			$car = 'Renault LOGAN'
 			car = 102
 			benz = 3
@@ -199,11 +199,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 850000:
+	if karta + bankDebtLimit >= 850000:
 		act 'Buy a Ford Mondeo (850 th.RUB)':
 			cla
 			*clr
-			karta = karta - 850000
+			karta -= 850000
 			$car = 'Ford Mondeo'
 			car = 110
 			benz = 3
@@ -219,11 +219,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1000000:
+	if karta + bankDebtLimit >= 1000000:
 		act 'Buy a Toyota Celica (1 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1000000
+			karta -= 1000000
 			$car = 'Toyota Celica'
 			car = 104
 			benz = 3
@@ -239,11 +239,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1000000:
+	if karta + bankDebtLimit >= 1000000:
 		act 'Buy a Mitsubishi l200 (1 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1000000
+			karta -= 1000000
 			$car = 'Mitsubishi l200'
 			car = 95
 			benz = 3
@@ -259,11 +259,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1100000:
+	if karta + bankDebtLimit >= 1100000:
 		act 'Buy a Toyota Corolla (1,1 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1100000
+			karta -= 1100000
 			$car = 'Toyaboutta Corolla'
 			car = 103
 			benz = 3
@@ -279,11 +279,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1200000:
+	if karta + bankDebtLimit >= 1200000:
 		act 'Buy a Mazda 6 (1,2 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1200000
+			karta -= 1200000
 			$car = 'Mazda 6'
 			car = 105
 			benz = 3
@@ -299,11 +299,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1700000:
+	if karta + bankDebtLimit >= 1700000:
 		act 'Buy a Mercedes-Benz E 212 (1,7 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1700000
+			karta -= 1700000
 			$car = 'Mercedes-Benz E 212'
 			car = 106
 			benz = 3
@@ -319,11 +319,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 1900000:
+	if karta + bankDebtLimit >= 1900000:
 		act 'Buy an Audi A6 (1,9 million.RUB)':
 			cla
 			*clr
-			karta = karta - 1900000
+			karta -= 1900000
 			$car = 'Audi A6'
 			car = 109
 			benz = 3
@@ -339,11 +339,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 2000000:
+	if karta + bankDebtLimit >= 2000000:
 		act 'Buy a Cadillac Escalade (2 million.RUB)':
 			cla
 			*clr
-			karta = karta - 2000000
+			karta -= 2000000
 			$car = 'Cadillac Escalade'
 			car = 97
 			benz = 3
@@ -359,11 +359,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 3000000:
+	if karta + bankDebtLimit >= 3000000:
 		act 'Buy a BMW Z4 (3 million.RUB)':
 			cla
 			*clr
-			karta = karta - 3000000
+			karta -= 3000000
 			$car = 'BMW Z4'
 			car = 101
 			benz = 3
@@ -379,11 +379,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 4500000:
+	if karta + bankDebtLimit >= 4500000:
 		act 'Buy a BMW M5 (4,5 million.RUB)':
 			cla
 			*clr
-			karta = karta - 4500000
+			karta -= 4500000
 			$car = 'BMW M5'
 			car = 107
 			benz = 3
@@ -399,11 +399,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 4500000:
+	if karta + bankDebtLimit >= 4500000:
 		act 'Buy a BMW X6 (4,5 million.RUB)':
 			cla
 			*clr
-			karta = karta - 4500000
+			karta -= 4500000
 			$car = 'BMW X6'
 			car = 99
 			benz = 3
@@ -419,11 +419,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 5000000:
+	if karta + bankDebtLimit >= 5000000:
 		act 'Buy an Audi Q7 (5 million.RUB)':
 			cla
 			*clr
-			karta = karta - 5000000
+			karta -= 5000000
 			$car = 'Audi Q7'
 			car = 96
 			benz = 3
@@ -439,11 +439,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 5000000:
+	if karta + bankDebtLimit >= 5000000:
 		act 'Buy a Porsche Cayenne (5 million.RUB)':
 			cla
 			*clr
-			karta = karta - 5000000
+			karta -= 5000000
 			$car = 'Porsche Cayenne'
 			car = 98
 			benz = 3
@@ -459,11 +459,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 7000000:
+	if karta + bankDebtLimit >= 7000000:
 		act 'Buy a Jaguar XKR-S (7 million.RUB)':
 			cla
 			*clr
-			karta = karta - 7000000
+			karta -= 7000000
 			$car = 'Jaguar XKR-S'
 			car = 108
 			benz = 3
@@ -479,11 +479,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 8000000:
+	if karta + bankDebtLimit >= 8000000:
 		act 'Buy a Mercedes-Benz S 600 (8 million.RUB)':
 			cla
 			*clr
-			karta = karta - 8000000
+			karta -= 8000000
 			$car = 'Mercedes-Benz S 600'
 			car = 100
 			benz = 3
@@ -499,11 +499,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 10000000:
+	if karta + bankDebtLimit >= 10000000:
 		act 'Buy a Bentley Continental GT (10 million.RUB)':
 			cla
 			*clr
-			karta = karta - 10000000
+			karta -= 10000000
 			$car = 'Bentley Continental GT'
 			car = 111
 			benz = 3
@@ -519,11 +519,11 @@ if $ARGS[0] = 'manager1':
 		end
 	end
 
-	if karta >= 20000000:
+	if karta + bankDebtLimit >= 20000000:
 		act 'Buy a Ferrari 458 Italia (10 million.RUB)':
 			cla
 			*clr
-			karta = karta - 20000000
+			karta -= 20000000
 			$car = 'Ferrari 458 Italia'
 			car = 112
 			benz = 3

locations/bank

@@ -60,7 +60,7 @@ if $ARGS[0] = 'start':
 			kartaIN = input ("How much money you want to deposit into the account?")
 
 			if kartaIN <= 0 or kartaIN > money:
-				'Not correct operation.'
+				'That is not a valid operation.'
 			else
 				karta += kartaIN
 				money -= kartaIN
@@ -70,7 +70,7 @@ if $ARGS[0] = 'start':
 					bankDebtLimit = 5000
 				end
 				
-				'<br>You put on the account <<kartaIN>> <b>₽</b>, now you have <<karta>> <b>₽</b> on it.'
+				'<br>You deposited <<kartaIN>> <b>₽</b>, your account balance is now <<karta>> <b>₽</b>.'
 			end
 
 			act 'Move away':gt 'bank', 'start'
@@ -84,13 +84,18 @@ if $ARGS[0] = 'start':
 			kartaOUT = input ("How much do you want to withdraw from account?")
 
 			if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
-				'Not correct operation.'
+				'That is not a valid operation.'
 			else
 				karta -= kartaOUT
 				money += kartaOUT
-				'<br>You debited <<kartaOUT>> <b>₽</b>, now you have <<karta>> <b>₽</b> on it.'
+				if karta > 0:
+					'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
+				elseif karta = 0:
+					'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have no money left in your bank account.'
+				else
+					'<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
+				end
 			end
-
 			act 'Move away':gt 'bank', 'start'
 		end
 	end

locations/obj_din

@@ -266,22 +266,26 @@ if $ARGS[0] = 'stats_gen':
 	nl
 	if opPRE = 0:pl 'It has been <<daystart>> days since the game started.'
 	nl
-	if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.' & nl
-
 	if BuyHous = 2 and ArendHouseSL >0:
 		pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
-			if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
+		if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta + bankDebtLimit >= 6000:
 			*P ' Renew with '
 			if money >= 6000:
-				*P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash</a>'
+				*P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash</a>'
 			elseif stolmoney >= 6000:
-				*P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash from drawer</a>'
+				*P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from drawer</a>'
 			elseif money + stolmoney >= 6000:
 				!both < 6000, so money = money - 6000 + stolmoney
-				*P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash from purse and drawer</a>'
+				*P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from purse and drawer</a>'
 			end
 			!from purse, drawer or both
-			if karta >= 6000: *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">bank account</a>'
+			if karta >= 6000: 
+				*P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
+			elseif karta + bankDebtLimit >= 6000: 
+				*P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
+			end	
+		else
+			*P ' But you can''t afford to pay the rent right now.'
 		end
 		nl
 	end

locations/shop

@@ -147,10 +147,10 @@ if $shoplocation = 'ATM':
 	if bankAccount = 1:
 		if karta >= 0:
 			'You have <<karta>> <b>₽</b> in your account.'
-			'You have an approved credit of <font color="blue"><<bankDebtLimit>></font> <b>₽</b>!'
+			'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
 		else
-			'You have a debt of <font color="red"><<-1 * karta>></font> <b>₽</b>.'
-			'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font> <b>₽</b>!'
+			'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
+			'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
 		end
 		
 		'<br>ATM Deposit Fee: 100 <b>₽</b>'
@@ -160,8 +160,8 @@ if $shoplocation = 'ATM':
 				cla
 				minut += 5
 				
-				kartaINATM = input ("How much money you want to deposit into the account?")
-				if kartaINATM <= 0 or kartaINATM > money:
+				kartaINATM = input ("How much money you want to deposit into the account? Note: A service charge of 100 <b>₽</b> will be deducted from the amount deposited.")
+				if kartaINATM < 100 or kartaINATM > money:
 					'This is not a valid input.'
 				else
 					atmDeposit += kartaINATM - 100
@@ -189,14 +189,20 @@ if $shoplocation = 'ATM':
 				else
 					karta -= kartaOUT
 					money += kartaOUT
-					'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
+					if karta > 0:
+						'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
+					elseif karta = 0:
+						'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have no money left in your bank account.'
+					else
+						'<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
+					end
 				end
 				
 				gs 'stat'
 				act 'Move away': gt 'shop'
 			end
 		else
-			'You don''t have any money left in the bank.'
+			'You have maxed out your overdraft.'
 		end
 	else
 		'You don''t have a bank account yet!'

locations/shopdacha

@@ -20,7 +20,7 @@ act 'Leave':minut += 5 & gt 'torgcentr'
 if hour < 8 or hour > 20:
 	'Shop is closed and you are asked to retire.'
 else
-	if karta >= 75000 and dachaest = 0:
+	if karta + bankDebtLimit >= 75000 and dachaest = 0:
 		act 'Buy a cottage (75,000 <b>₽</b>)':
 			cls
 			karta -= 75000
@@ -34,7 +34,7 @@ else
 		end
 	end
 
-	if karta >= 75000 and dachaest = 1:
+	if karta + bankDebtLimit >= 75000 and dachaest = 1:
 		act 'Upgrade your cottage (75,000 <b>₽</b>)':
 			cls
 			karta -= 75000
@@ -46,7 +46,7 @@ else
 		end
 	end
 
-	if karta >= 1500000 and placeMansion = 0:
+	if karta + bankDebtLimit >= 1500000 and placeMansion = 0:
 		act 'Buy land for Mansion (1,500,000 <b>₽</b>)':
 			cls
 			karta -= 1500000
@@ -59,7 +59,7 @@ else
 		end
 	end
 
-	if karta >= 500000 and placeMansion = 1:
+	if karta + bankDebtLimit >= 500000 and placeMansion = 1:
 		act 'Connect water, electricity (500,000 <b>₽</b>)':
 			cls
 			karta -= 500000
@@ -72,7 +72,7 @@ else
 		end
 	end
 
-	if karta >= 1500000 and placeMansion = 2:
+	if karta + bankDebtLimit >= 1500000 and placeMansion = 2:
 		act 'Build Mansion''s shell for (1,500,000 <b>₽</b>)':
 			cls
 			karta -= 1500000
@@ -85,7 +85,7 @@ else
 		end
 	end
 
-	if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
+	if karta + bankDebtLimit >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
 		act 'Build rooms for (500, 000 <b>₽</b>)':
 			cls
 			karta -= 500000
@@ -99,7 +99,7 @@ else
 	end
 
 	if placeMansion >= 2:
-		if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
+		if karta + bankDebtLimit >= 800000 and placeMansion >= 2 and banaMansion = 0:
 			act 'Build baths for (800,000 <b>₽</b>)':
 				cls
 				karta -= 800000
@@ -112,7 +112,7 @@ else
 			end
 		end
 
-		if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
+		if karta + bankDebtLimit >= 500000 and placeMansion >= 2 and bassMansion = 0:
 			act 'Build pool for (500,000 <b>₽</b>)':
 				cls
 				karta -= 500000
@@ -126,7 +126,7 @@ else
 		end
 	end
 	if placeMansion = 3:
-		if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
 			act 'Pay for repairs Hall (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -137,7 +137,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
+		elseif karta + bankDebtLimit >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
 			act 'Pay lounge furniture for (150,000 <b>₽</b>)':
 				cls
 				karta -= 150000
@@ -150,7 +150,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
 			act 'Pay for repairs bedroom (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -161,7 +161,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
+		elseif karta + bankDebtLimit >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
 			act 'Pay bedroom furniture for (300,000 <b>₽</b>)':
 				cls
 				karta -= 300000
@@ -174,7 +174,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
 			act 'Pay bathroom renovation for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -185,7 +185,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
 			act 'Pay for bathroom furniture and fixtures for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -198,7 +198,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
 			act 'Pay renovated kitchen for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -209,7 +209,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
+		elseif karta + bankDebtLimit >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
 			act 'Pay kitchen furniture for (350,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -222,7 +222,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
 			act 'Pay for repairs hall for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -233,7 +233,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
 			act 'Pay furniture hall for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -246,7 +246,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
 				act 'Pay for repairs fireplace room for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -257,7 +257,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
 			act 'Pay for the purchase of furniture for the fireplace room for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -270,7 +270,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
 			act 'Children''s room to pay for repairs (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -281,7 +281,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
 			act 'Pay for the purchase of furniture for the nursery (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -294,7 +294,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
 			act 'Pay for repairs library for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -305,7 +305,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
 			act 'Pay for the purchase of furniture for libraries for (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -318,7 +318,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
 			act 'Pay for repairs gym (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -329,7 +329,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
 			act 'Pay furniture gym (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -342,7 +342,7 @@ else
 			end
 		end
 
-		if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
+		if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
 			act 'Pay for repair of the (250,000 <b>₽</b>)':
 				cls
 				karta -= 250000
@@ -353,7 +353,7 @@ else
 
 				act 'Leave':gt $curloc
 			end
-		elseif karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
+		elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
 			act 'Pay for the purchase of furniture for the office (250,000)':
 				cls
 				karta -= 250000

locations/stat_display

@@ -97,7 +97,11 @@ $stat_msg += '<BR>'
 $pockets = 'pockets'
 if bag > 0: $pockets = 'purse'
 $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
-if karta > 0: $stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
+if karta >= 0:
+	$stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
+else
+	$stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
+end
 if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
 $stat_msg += '<BR>'
 
@@ -301,11 +305,11 @@ if Enable_showrelation = 1:
 end
 	$stat_msg += '<BR>'
 
-if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment expires today.</b></font>'
+if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment is due today.</b></font>'
 
 if BuyHous = 2 and ArendHouseSL <= 0:
-	'<font color="red"><b>The rent on your apartment expires today.</b></font>'
-	if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
+	'<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:
 		*P ' Renew with '
 		if money >= 6000:
 			*P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash</a>'
@@ -316,9 +320,13 @@ if BuyHous = 2 and ArendHouseSL <= 0:
 			*P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from purse and drawer</a>'
 		end
 		!from purse, drawer or both
-		if karta >= 6000: *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
+		if karta >= 6000: 
+			*P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
+		elseif karta + bankDebtLimit >= 6000: 
+			*P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
+		end	
 	else
-		*P ' But you can''t afford to renew the lease.'
+		*P ' But you can''t afford to pay the rent.'
 	end
 end
 

locations/youplace

@@ -22,7 +22,7 @@ if bassMansion = 1:'<a href="exec:gt ''ybass''">Pool</a>.'
 if banaMansion >= 1:'<a href="exec:gt ''yban''">Bath</a>.'
 if placeMansion = 3:'<a href="exec:gt ''ymans''">Go inside</a>.'
 
-if karta >= 1500000 and placeMansion = 0:
+if karta + bankDebtLimit >= 1500000 and placeMansion = 0:
 	act 'Buy land for cottage (1,500,000)':
 		cls
 		karta -= 1500000
@@ -35,7 +35,7 @@ if karta >= 1500000 and placeMansion = 0:
 	end
 end
 
-if karta >= 500000 and placeMansion = 1:
+if karta + bankDebtLimit >= 500000 and placeMansion = 1:
 	act 'Pay for water, electricity and building foundations (500,000 <b>₽</b>)':
 		cls
 		karta -= 500000
@@ -48,7 +48,7 @@ if karta >= 500000 and placeMansion = 1:
 	end
 end
 
-if karta >= 1500000 and placeMansion = 2:
+if karta + bankDebtLimit >= 1500000 and placeMansion = 2:
 	act 'Pay for the construction and external finish of the building (1,500,000 <b>₽</b>)':
 		cls
 		karta -= 1500000
@@ -61,7 +61,7 @@ if karta >= 1500000 and placeMansion = 2:
 	end
 end
 
-if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
+if karta + bankDebtLimit >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
 	act 'Pay for the construction of rooms (500,000 <b>₽</b>)':
 		cls
 		karta -= 500000
@@ -75,7 +75,7 @@ if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
 end
 
 if placeMansion => 2:
-	if karta >= 800000 and banaMansion = 0:
+	if karta + bankDebtLimit >= 800000 and banaMansion = 0:
 		act 'Pay for the construction of baths (800,000 <b>₽</b>)':
 			cls
 			karta -= 800000
@@ -88,7 +88,7 @@ if placeMansion => 2:
 		end
 	end
 
-	if karta >= 500000 and bassMansion = 0:
+	if karta + bankDebtLimit >= 500000 and bassMansion = 0:
 		act 'Pay for the construction of the basement (500,000 <b>₽</b>)':
 			cls
 			karta -= 500000
@@ -102,7 +102,7 @@ if placeMansion => 2:
 	end
 end
 if placeMansion = 3:
-	if karta >= 250000 and ymanrem[3] = 1:
+	if karta + bankDebtLimit >= 250000 and ymanrem[3] = 1:
 		act 'Pay for repairs Hall (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -114,7 +114,7 @@ if placeMansion = 3:
 			act 'Leave':gt $curloc
 		end
 
-	elseif karta >= 150000 and ymanrem[3] = 2:
+	elseif karta + bankDebtLimit >= 150000 and ymanrem[3] = 2:
 		act 'Pay lounge furniture (150,000 <b>₽</b>)':
 			cls
 			karta -= 150000
@@ -127,7 +127,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[4] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[4] = 0:
 		act 'Pay for repairs sleeping (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -138,7 +138,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 300000 and ymanrem[4] = 1:
+	elseif karta + bankDebtLimit >= 300000 and ymanrem[4] = 1:
 		act 'Pay bedroom furniture (300,000 <b>₽</b>)':
 			cls
 			karta -= 300000
@@ -151,7 +151,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[5] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[5] = 0:
 		act 'Pay bathroom renovation (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -162,7 +162,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[5] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[5] = 1:
 		act 'Pay for furniture and fixtures for the bathroom (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -175,7 +175,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[6] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[6] = 0:
 		act 'Pay renovated kitchen (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -186,7 +186,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 350000 and ymanrem[6] = 1:
+	elseif karta + bankDebtLimit >= 350000 and ymanrem[6] = 1:
 		act 'Pay kitchen furniture (350,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -199,7 +199,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[7] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[7] = 0:
 		act 'Pay for repairs hall (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -210,7 +210,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[7] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[7] = 1:
 		act 'Pay furniture hall (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -223,7 +223,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[8] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[8] = 0:
 		act 'Pay for repairs fireplace room (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -234,7 +234,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[8] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[8] = 1:
 		act 'Pay for the purchase of furniture for the fireplace room (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -247,7 +247,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[9] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[9] = 0:
 		act 'Children''s room to pay for repairs (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -258,7 +258,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[9] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[9] = 1:
 		act 'Pay for the purchase of furniture for the nursery (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -271,7 +271,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[10] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[10] = 0:
 		act 'Pay for repairs library (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -282,7 +282,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[10] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[10] = 1:
 		act 'Pay for the purchase of furniture for libraries (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -295,7 +295,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[11] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[11] = 0:
 		act 'Pay for repairs gym (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -306,7 +306,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[11] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[11] = 1:
 		act 'Pay furniture gym (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -319,7 +319,7 @@ if placeMansion = 3:
 		end
 	end
 
-	if karta >= 250000 and ymanrem[12] = 0:
+	if karta + bankDebtLimit >= 250000 and ymanrem[12] = 0:
 		act 'Pay for repair of the (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000
@@ -330,7 +330,7 @@ if placeMansion = 3:
 
 			act 'Leave':gt $curloc
 		end
-	elseif karta >= 250000 and ymanrem[12] = 1:
+	elseif karta + bankDebtLimit >= 250000 and ymanrem[12] = 1:
 		act 'Pay for the purchase of furniture for the office (250,000 <b>₽</b>)':
 			cls
 			karta -= 250000