reduce payout for modelling at high levels

locations/foto

@@ -1818,7 +1818,7 @@ if $ARGS[0] = 'model':
 	if model = 0:model = 1
 	*clr & cla
 	minut += 5
-	modelpay = (pcs_mdlng/2 * 25) + (city_modelling * 5) + pcs_apprnc
+	modelpay = (pcs_mdlng/2 * 25) + (func('shortgs','sqrt', city_modelling) * 50) + pcs_apprnc
 	gs 'stat'
 	'<center><b><font color="maroon">Photographer</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'