Blocking access to homes was broken - probably while adding 'homeless'

It didn't always set the new access status correctly.
Wanted to review it and refactor anyway, will do that now.

locations/homes_properties.qsrc

@@ -75,11 +75,12 @@ end
 !!			- empty strying   ->  '' - will work as if a location was passed, but will use the actual value of $loc
 !!			- A number as str -> '1', '2' - this should be the id of the property
 !!			  					NOTE: only added in case someone really want to use the old ids
-!! ARGS[2]: ownership type
+!! ARGS[2]: ownership type -> status code
 !!			0: no acces  -> 'no access'
-!!			1: not owned but can live her - a rented property or living at some else''s place
+!!			1: rented - a rented property
 !!			2: owned     -> 'owned'
 !!			3: owned and rented out -> 'tenants'
+!!			4: can live there -> not owned, not rented, but can live there - parents, friends, dorm, etc.
 !! ARGS[3]: construction status - optional
 !!			0: land only
 !!			1: foundation, frames built, utilities are connected
@@ -91,6 +92,7 @@ if $ARGS[0] = 'set_access':
 	$propcode = iif($ARGS[1] = '', $home_name[$loc], $home_name[$ARGS[1]])
 	orig_status_code = accessible_property[$propcode]
 	new_status_code = ARGS[2]
+
 	if orig_status_code ! new_status_code:
 		if $accessible_property[$propcode] = '' or $accessible_property['<<$propcode>>-display'] = '' or $accessible_property['<<$propcode>>-name'] = '':
 			if $property['code'] ! $propcode:
@@ -98,8 +100,7 @@ if $ARGS[0] = 'set_access':
 			else
 				nokill = 1
 			end
-			if ARGS[2] = 1 and property['rental'] = 0: new_status_code = 4
-			accessible_property[$propcode] = new_status_code
+			if new_status_code = 1 and property['rental'] = 0: new_status_code = 4
 			$accessible_property[$propcode] = $propcode
 			$accessible_property['<<$propcode>>-name'] = $property['name']
 			$accessible_property['<<$propcode>>-type'] = $property['type']
@@ -118,11 +119,11 @@ if $ARGS[0] = 'set_access':
 			accessible_property['<<$propcode>>-sales-price'] = property['price']
 			accessible_property['<<$propcode>>-rent'] = property['rent']
 		end
+		accessible_property[$propcode] = new_status_code
 
 		if accessible_property[$propcode] = 0:
 			!! If this was the current home then killing it
 			if $home['current'] = $propcode: killvar '$home'
-
 			!! Updating home counts
 			!! NOTE: Valid transitions: 1 -> 0, 2 -> 0, 4 -> 0
 			if accessible_property['<<$propcode>>-is-home'] = 1: