[Fixed] Dimka blackmail now unlocks access to his house if not aready available and refuse option uses willpower. From julzor.

locations/dimaEv.qsrc

@@ -354,6 +354,22 @@ if $ARGS[0] = 'dimkaplays':
 	gs 'stat'
 	dimarudorient = 1
 	'Dimka takes some white powder from his desk and a small straw. "Here, sniff this." He offers with a cocky smile, "It''s really cool! Excellent for relaxing!" Knowing the blackmail he has on you, you know you don''t really have a choice. So you do as he commands.'
+	
+	gs 'willpower', 'drugs', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			*clr & cla
+			minut += 5
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
+			'You refuse to use the powder. Dimka chuckles and puts it away. "Well, okay, but you''re missing something really cool." You sigh with relief, as seems that he doesn''t consider this an insult and look meekly at him.'
+			act 'Continue': gt 'dimaEv', 'dimkaplays2'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+	
 	act 'Snort':
 		*clr & cla
 		minut += 15
@@ -365,14 +381,6 @@ if $ARGS[0] = 'dimkaplays':
 		'You sniff up the dose of powder. For a moment, you just feel numb, then you feel yourself get aroused, the heat coming from your pussy as it soaks itself, you gasp, it is almost too much to take, you desperately need someone to fuck you. "Oh, fuck". You don''t think this is normal, he must have laced it with something. You blink a few times trying to clear your head, but soon your thoughts grow murky'
 		act 'Continue': gt 'dimaEv', 'dimkaplays2'
 	end
-	act 'Refuse':
-		*clr & cla
-		minut += 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
-		'You refuse to use the powder. Dimka chuckles and puts it away. "Well, okay, but you''re missing something really cool." You sigh with relief, as seems that he doesn''t consider this an insult and look meekly at him.'
-		act 'Continue': gt 'dimaEv', 'dimkaplays2'
-	end
 end
 
 if $ARGS[0] = 'dimkaplays2':
@@ -607,6 +615,8 @@ end
 
 if $ARGS[0] = 'Dimka_warning':
 !!this one is if Dimka sends a warning
+	menu_off = 1
+	if DimaBeHomeOnce = 0: DimaBeHomeOnce = 1
 	if dimkawarn = 0:
 		*clr & cla
 		pcs_mood -= 20