[fixed] willpower 'skill' check for pcs_inhib + [added] alcohol affecting inhibitions

locations/stat_sklattrib_lvlset.qsrc

@@ -181,7 +181,7 @@ pcs_pool = ((pool_lvl * 3) + pcs_intel)/4
 pool[1] = 3 & pool[2] = -1
 
 !! inhibition 
-pcs_inhib = inhib_lvl
+pcs_inhib = inhib_lvl + (alko * 3) & if pcs_inhib > 100: pcs_inhib = 100
 inhib[1] = 3 & inhib[2] = -1
 
 !!Performance; Skill at things like acting or putting on a show

locations/willpower.qsrc

@@ -716,20 +716,21 @@ if $ARGS[0] = 'skill':
 
 	if $ARGS[1] = 'resist' or $ARGS[1] = 'force' or $ARGS[1] = 'self':
 		if $ARGS[2] = 'inhib_lvl':
-			will_cost = (pcs_inhib + will_calc)/10
+			will_cost = (100 - pcs_inhib + will_calc)/10
 		else
 			dynamic 'will_cost = (100 - <<$ARGS[2]>> + will_calc)/10'
 		end
+		gs 'willpower', 'difficulty', '<<$ARGS[3]>>'
 	else
 		if $ARGS[1] = 'inhib_lvl':
-			will_cost = (pcs_inhib + will_calc)/10
+			will_cost = (100 - pcs_inhib + will_calc)/10
 		else
 			dynamic 'will_cost = (100 - <<$ARGS[1]>> + will_calc)/10'
 		end
+		gs 'willpower', 'difficulty', '<<$ARGS[2]>>'
 	end
-	gs 'willpower', 'difficulty', '<<$ARGS[2]>>'
 end
-		
+
 if $ARGS[0] = 'rape':
 	gs 'willpower', 'calc'