pz-random-corpses/Random Corpses/media/lua/shared/ScatteredTrashes.lua

-- local function hasWaterObject(square)	
	-- for i=0, square:getObjects():size()-1 do
		-- local v = square:getObjects():get(i);
		-- if instanceof(v, "IsoObject") and v:getSprite() and v:getSprite():getProperties() and v:getSprite():getProperties():Is(IsoFlagType.water) then
			-- --print("Water Tile")
			-- return true;
		-- end
	-- end
-- end
 
function trashSquare(square)
	-- print("SQUARE 1")
	local mData = square:getModData()	
    if mData.trashSquare then return end
    if mData.specialSquare then return end
    mData.trashSquare = true
	square:transmitModdata()
    --if mData.trashSquare then return end
	if ZombRand(0,5) ~= 0 then return end
    if not square then return end
	if checkBlockedSquare(square) == false then return false end
    if mData.stashSquare then return end
	if not square:getZone() then return end
	--if square:hasFloor(false) then return end
	if not square:getZone():getType() then return end
	--if square:isVehicleIntersecting() then return end
	--if not square:isNotBlocked(true) then return end
	local zoneType = square:getZone():getType()
	local vehicleZone = nil
	if getVehicleZoneAt and getVehicleZoneAt(square:getX(), square:getY(), square:getZ()) then
		vehicleZone = getVehicleZoneAt(square:getX(), square:getY(), square:getZ())
	end
	-- print("SQUARE 2")
	local cell = getCell()
	
	--if hasWaterObject(square) then return false end
	
	if not square:isOutside() then

		if square:getZ() > 0 and not square:hasFloor(true) then return end

		--if ZombRand(0,49)== 0 then
		if ZombRand(0,10)== 0 then
			local body = createRandomDeadBody(square, 200 )
			
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their backs
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end	
		 return
	end
	if square:getZ() > 0 and not square:hasFloor(true) then return end
	local vehicleZoneType = nil
	if vehicleZone and vehicleZone:getType() then vehicleZoneType = vehicleZone:getType() end
	--if  vehicleZone and vehicleZone:getName():contains("trafficjam") then
	if  vehicleZoneType and vehicleZoneType:contains("trafficjam") then
		--if ZombRand(0,99)== 0 then
		if ZombRand(0,20)== 0 then
			--print("Crash Corpse")
		    local body = createRandomDeadBody(square, 200 )
			--if body then body:setSkeleton(true) end
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end
	elseif  vehicleZone then

		--if ZombRand(0,199)== 0 then
		if ZombRand(0,40)== 0 then
			--print("Car Corpse")
		    local body = createRandomDeadBody(square, 200 )
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end		
	elseif zoneType =="Nav" then

		--if ZombRand(0,1999)== 0 then	
		if ZombRand(0,400)== 0 then
			--print("Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end		
	elseif zoneType == "TownZone" or zoneType == "ZoneStory" or  zoneType == "TrailerPark"  then

		--if square:getZ() > 0 and ZombRand(0,3999)== 0 then
		if square:getZ() > 0 and ZombRand(0,800)== 0 then
			--print("Roof Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			--if body then body:setSkeleton(true) end
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		-- end		
		--elseif square:getZ()==0 and ZombRand(0,399)== 0 then
		elseif square:getZ()==0 and ZombRand(0,80)== 0 then
			--print("Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			--if body then body:setSkeleton(true) end
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end
			
	elseif zoneType == "Vegitation"   or zoneType == "Farm" then
	
		--if ZombRand(0,1999)== 0 then
		if ZombRand(0,400)== 0 then
			--print("Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end				
	elseif zoneType == "Forest" then	
		--if ZombRand(0,99999)== 0 then
		if ZombRand(0,2000)== 0 then
			--print("Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end				
	elseif zoneType == "DeepForest" then
		if ZombRand(0,20000)== 0 then
			--print("Corpse Spawn")
		    local body = createRandomDeadBody(square, 200 )
			if body and ZombRand(0,3) == 0 then -- used so that all spawned bodies are not on their rbacks
				body:setFallOnFront(true)
			end
			mData.specialSquare = true
		end	
	end
	square:transmitModdata()
end