[added] Cigarette storage in the draw at home

[fixes] Stat poorly placed and 1 missing in sistersleep
Both from CroWke

locations/sistersleep.qsrc

@@ -131,7 +131,6 @@ if $loc = 'bedrPar':
 			cls
 			pcs_horny += 5
 			sisprynight = daystart
-			gs 'stat'
 
 			if sisterLesbScene = 0:
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sisboyqw_30.jpg"></center>'
@@ -143,6 +142,7 @@ if $loc = 'bedrPar':
 				gs 'arousal', 'kiss_give', 1, 'lesbian', 'incest'
 				gs 'arousal', 'cuni_give', 5, 'incest'
 				gs 'arousal', 'end'
+				gs 'stat'
 
 			elseif sisterLesbScene = 1:
 				pcs_horny = 0
@@ -158,6 +158,7 @@ if $loc = 'bedrPar':
 				gs 'arousal', 'kiss', 1, 'lesbian', 'incest'
 				gs 'arousal', 'cuni', 5, 'incest'
 				gs 'arousal', 'end'
+				gs 'stat'
 
 			elseif sisterLesbScene = 2:
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sisboyqw_32.jpg"></center>'
@@ -169,6 +170,7 @@ if $loc = 'bedrPar':
 				gs 'arousal', 'vaginal_finger_give', 5, 'incest'
 				gs 'arousal', 'cuni_give', 5, 'incest'
 				gs 'arousal', 'end'
+				gs 'stat'
 
 			elseif sisterLesbScene = 3:
 				pcs_horny = 0
@@ -184,9 +186,10 @@ if $loc = 'bedrPar':
 				'"aaa... yeah... mmmhmmm.... fuck me.... good.... yeah.... fuck me...." you cried.'
 				'You spasm and have an intense orgasm with the dildo in your ass and as you recover, Anya moves from under you to stand in front of you, the strap-on held to your lips.'
 				gs 'arousal', 'anal_strap', 5, 'incest'
+				gs 'stat'
 				
 				act 'Suck Strap-on':
-					cls
+					*clr & cla
 					pcs_throat += 1
 					sisterLesbScene += 1	
 					gs 'boyStat', 'D1'			
@@ -198,6 +201,7 @@ if $loc = 'bedrPar':
 					'Without another word she shoves the <<dick>>cm <<$dick_girth>> strap-on dildo back in your mouth and teaches you the finer arts of how to suck a cock, not to mention what to expect from the boys.'
 					gs 'arousal', 'anal_strap', 5, 'incest'
 					gs 'arousal', 'end'
+					gs 'stat'
 
 					act 'Move away':gt 'bedrPar'
 					exit
@@ -215,13 +219,15 @@ if $loc = 'bedrPar':
 				'"You what? You told him? I did not think you could be so cruel." You feel the tears welling in your eyes.' 
 				'Anya puts an arm around you, "Do not cry, <<$pcs_nickname>>. It will be our little secret, no one else will ever know."'
 				gs 'arousal', 'kiss_give', 1, 'lesbian', 'incest'
-				gs 'arousal', 'end'
+				gs 'stat'
 
 				act 'Accept her decision':
 					cls
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/home/sisboyqw_38.jpg"></center>'					
 					'You put your best little sister pout on your face, but thinking she has already made her mind up, you shrug, and accept that you won''t be having any more private times with her.'
 					'She rolls over and goes to sleep.'
+					gs 'arousal', 'end'
+					gs 'stat'
 
 					act 'Fondle yourself':dynamic $sisboyQW_prycaress
 					act 'Move away':gt 'bedrPar'
@@ -243,6 +249,7 @@ if $loc = 'bedrPar':
 					gs 'arousal', 'vaginal_finger', 3, 'incest'
 					gs 'arousal', 'cuni', 3, 'incest'
 					gs 'arousal', 'end'
+					gs 'stat'
 					
 					act 'Move away':gt 'bedrPar'
 				end

locations/stol.qsrc

@@ -27,6 +27,38 @@ if $ARGS[0] = 'start':
 	act 'Close the drawer':	gt $loc, $metka
 	
 	act 'Check birth control': gt 'stol', 'bc'
+	
+	if siga > 0:
+        act 'Hide some cigarettes in your drawer':
+            cla
+            cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <<siga>> cigarettes.)")
+
+            if cigIN <= 0 or cigIN > siga:
+                'You can''t put this amount into the drawer.'
+            else
+                stolcigarettes += cigIN
+                siga -= cigIN
+            end
+
+            gt 'stol', 'start'
+        end
+    end
+
+	if stolcigarettes > 0:
+        act 'Take some cigarettes from your drawer':
+            cla
+            cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <<stolcigarettes>> cigarettes here.)")
+
+            if cigOUT <= 0 or cigOUT > stolcigarettes:
+                'You can''t take this amount from your drawer.'
+            else
+                stolcigarettes -= cigOUT
+                siga += cigOUT
+            end
+
+            gt 'stol', 'start'
+        end
+    end
 
 	if money > 0:
 		act 'Put some money in the drawer':
@@ -105,6 +137,38 @@ if $ARGS[0] = 'stolPar':
 		end
 	end
 	
+	if siga > 0:
+        act 'Hide some cigarettes in your drawer':
+            cla
+            cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <<siga>> cigarettes.)")
+
+            if cigIN <= 0 or cigIN > siga:
+                'You can''t put this amount into the drawer.'
+            else
+                stolcigarettes += cigIN
+                siga -= cigIN
+            end
+
+            gt 'stol', 'stolPar'
+        end
+    end
+
+	if stolcigarettes > 0:
+        act 'Take some cigarettes from your drawer':
+            cla
+            cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <<stolcigarettes>> cigarettes here.)")
+
+            if cigOUT <= 0 or cigOUT > stolcigarettes:
+                'You can''t take this amount from your drawer.'
+            else
+                stolcigarettes -= cigOUT
+                siga += cigOUT
+            end
+
+            gt 'stol', 'stolPar'
+        end
+    end
+	
 	if money > 0:
 		act 'Hide some money in your drawer':
 			cla