Pioneer dev forum

Code: Select all

local systemiter = 0

local onCreateBB = function (station)
	--local num = Engine.rand:Integer(0, math.ceil(Game.system.population))
--	for i = 1,num do
		debugmessage = string.interp("onCreateBB call {num}", {num = systemiter,})
		Comms.ImportantMessage(debugmessage, "debug")
		systemiter = systemiter + 1
--	end
end

local serialize = function ()
	return { ads = ads, missions = missions }
end

local unserialize = function (data)
	loaded_data = data
end

Event.Register("onCreateBB", onCreateBB)

Mission.RegisterType('UB_RoboSurvey','Robotic Survey')

Serializer:Register("Robotic Survey", serialize, unserialize)

Code: Select all

-- don't produce missions for further than this many SECTORS away
local max_mission_dist = 10
local min_mission_dist = 8
-- typical time for travel to a system max_mission_dist away
local typical_travel_time = 0.9 * max_mission_dist * 24 * 60 * 60 * 3
-- base reward from which payment is calculated. Adjust for balancing.
local base_reward = 20000



local GetFarSystemPath
GetFarSystemPath = function (distance)
--Brianettas hack to get a far system without generating a huge amount of systems
	for i = 0, 9, 1 do
		local here = StarSystem.path
	-- Fear my crazy maths.  Seriously.
		X = distance * distance
		Z = Engine.rand:Integer(1,X - 2)
		X = X - Z
		Y = Engine.rand:Integer(1,X)
		X = X - Y
		Z = math.floor(math.sqrt(Z))
		Y = math.floor(math.sqrt(Y))
		X = math.floor(math.sqrt(X))
		local OK,systempath = pcall(SystemPath.New,X,Y,Z,1)
		if OK then
			return systempath
		end
	end
--	Comms.ImportantMessage("no system found", "debug")
	return nil
end


local makeAdvert = function (station)

	--getting a random system a long distance of
	local farsystempath = GetFarSystemPath((max_mission_dist + min_mission_dist) / 2)

	if farsystempath == nil then
		return
	end
	
	--looking for an apropriate system in its vicinity
	local nearbysystems = farsystempath:GetStarSystem():GetNearbySystems((max_mission_dist - min_mission_dist) * 4, function (s) return #s:GetStationPaths() == 0 end)

	local reward, due, location, nearbysystem
	local client = Character.New()
	local flavour = Engine.rand:Integer(1,#delivery_flavours)
	local urgency = delivery_flavours[flavour].urgency
	local risk = delivery_flavours[flavour].risk


	--		local nearbysystems = Game.system:GetNearbySystems(max_mission_dist, function (s) return #s:GetStationPaths() == 0 end)
		if #nearbysystems == 0 then return end
		nearbysystem = nearbysystems[Engine.rand:Integer(1,#nearbysystems)]
		while nearbysystem:DistanceTo(Game.system) < min_mission_dist do
			nearbysystem = nearbysystems[Engine.rand:Integer(1,#nearbysystems)]
		end

		local dist = nearbysystem:DistanceTo(Game.system)
		local nearbystations = nearbysystem:GetBodyPaths()
		location = nearbystations[Engine.rand:Integer(1,#nearbystations)]
		while location:GetSystemBody().type ~= "PLANET_TERRESTRIAL" do
			location = nearbystations[Engine.rand:Integer(1,#nearbystations)]
		end

		--random number of robots to be deployed. No less than 2, no more than 10 (don't want to make things too tedious)
		local robonumber = Engine.rand:Integer(2,10)
		--surveytime for robots between 3 and 7 days
		local surveytime = Engine.rand:Integer(3,7)

		--[[reward calculation: Change base_reward in header for rough balancing
			more robots to deploy and pick up = higher reward, factor between 1.4 and 2.
			higher risk modifies reward, by 1 + risklevel / 2 (between 1 and 2.5)]]--

		reward = math.floor(base_reward * (1 + robonumber / 10) * (1 + risk / 2))
		due = Game.time + ((dist / max_mission_dist) * typical_travel_time * (1.5-urgency) * Engine.rand:Number(0.9,1.1))

	local ad = {
		station		= station,
		flavour		= flavour,
		client		= client,
		location	= location,
		due		= due,
		risk		= risk,
		urgency		= urgency,
		reward		= reward,
		isfemale	= isfemale,
		faceseed	= Engine.rand:Integer(),
		robonumber	= robonumber,
		distance 	= dist,
		surveytime 	= surveytime,
	}

	local sbody = ad.location:GetSystemBody()

	ad.desc = string.interp(delivery_flavours[flavour].adtext, {
		system	= nearbysystem.name,
		cash	= Format.Money(ad.reward),
		starport = sbody.name,
	})

	local ref = station:AddAdvert(ad.desc, onChat, onDelete)
	ads[ref] = ad
end



local onCreateBB = function (station)
		makeAdvert(station)
end

local serialize = function ()
	return { ads = ads, missions = missions }
end

local unserialize = function (data)
	loaded_data = data
end

Event.Register("onCreateBB", onCreateBB)

Mission.RegisterType('UB_RoboSurvey','Robotic Survey')

Serializer:Register("Robotic Survey", serialize, unserialize)

Code: Select all

      while location:GetSystemBody().type ~= "PLANET_TERRESTRIAL" do
         location = nearbystations[Engine.rand:Integer(1,#nearbystations)]
      end

Code: Select all

local onUnload = function (body, cargoType)
		print(body.path:GetSystemBody().name)
end
Event.Register("onCargoUnload", onUnload)