瀏覽代碼

a bit cleanup

slanon 4 年之前
父節點
當前提交
672da8fec0
共有 2 個文件被更改,包括 4 次插入5 次删除
  1. 1 3
      locations/balkon2.qsrc
  2. 3 2
      locations/bank.qsrc

+ 1 - 3
locations/balkon2.qsrc

@@ -142,10 +142,8 @@ if $ARGS[0] = 'masopt':
 			cla
 			*clr
 			pcs_vag += rand(0, 2)
-			badildo = rand(1, 2)
 
-			if badildo = 1:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/balcony_dildo1.jpg"></center>'
-			if badildo = 2:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/balcony_dildo2.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/balcony_dildo<<rand(1, 2)>>.jpg"></center>'
 
 			'You begin to rub yourself, having your hand moving in small circles as you feel your wetness growing. Feeling aroused enough you take out your dildo and begin teasing your clit by gently rubbing the area.'
 			'As you stop teasing yourself, you slowly push the head inside your vagina. You slowly begin to fuck yourself picking up the pace. The feeling of your inside being stretched out is great and you let out a quiet wimp as you keep on playing with the dildo.'

+ 3 - 2
locations/bank.qsrc

@@ -74,9 +74,9 @@ if $ARGS[0] = 'start':
 					bankDebtLimit = 5000
 				end
 				
-				'<br>You deposited <<kartaIN>> <b>₽</b>, your account balance is now <<karta>> <b>₽</b>.'
+				'<br>You deposited <<kartaIN>> <b>₽</b>, your account balance is now ' + iif(karta >= 0,'<<karta>>','<font color="red"><<karta>></font>') + ' <b>₽</b>.'
 			end
-
+			killvar 'kartaIN'
 			act 'Walk away':gt 'bank', 'start'
 		end
 	end
@@ -100,6 +100,7 @@ if $ARGS[0] = 'start':
 					'<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
 				end
 			end
+			killvar 'kartaOUT'
 			act 'Walk away':gt 'bank', 'start'
 		end
 	end