(loop (gr (count wrecks) 0)
					(and
						(setq randomWreck (random wrecks))
						; Obtain wrecks nearby
						(setq partners (sysFindObject randomWreck "TN:100 +shipwreck"))
						(if
							(and
								(gr (+ (count partners) 1) 10) ; No less than 10 wrecks nearby
								(setq cargoVolume
									(typGetProperty
										(objGetShipwreckType randomWreck)
										"cargoSpace"
									) ; Define cargo volume with random wreck's cargo volume
								)
								(gr (setq cargoVolume
									(enum partners wreck
										(setq cargoVolume
											(+ cargoVolume
											(typGetProperty
												(objGetShipwreckType wreck)
												"cargoSpace"
											))
										) ; Summarize all nearby wrecks' cargo space
									))
									500
								)
							)
							; If the condition is met, create a new marker at nearby grid verticle and delete all partners
							(and
								(sysCreateStation
									&vtFruityPlaceMarker;
									(sysFindObject randomWreck "VTN +expGridVerticle")
								)
								(enum partners wreck
									(lnkRemove wrecks
										(find wrecks wreck)
									)
								)
							)
							True ; Continue
						)
						(lnkRemove wrecks
							(find wrecks randomWreck) ; Delete this wreck from the list
						)
					)