[fixed] willpower wasn't paid for doing homework

locations/stol.qsrc

@@ -151,6 +151,7 @@ if $ARGS[0] = 'stolPar':
 			lernHome = 0
 			gs 'willpower', 'misc', 'self', iif((pcs_grades < 50 or grupTipe = 3) and grupTipe ! 4, 'easy', iif(pcs_grades < 90 and grupTipe ! 4, 'medium', 'hard'))
 			will_cost = will_cost * lernHome
+			gs 'willpower', 'pay', 'self'
 			gs'stat'
 			
 			act 'Continue':gt 'stol', 'stolPar'