1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
require "jumpdist.lua"
require "nextjump.lua"
require "numstring.lua"
-- Don't use hidden jumps by default; set this to true to use hidden jumps.
cargo_use_hidden = false
-- By default, only generate if commodities available. Set to true to always generate.
cargo_always_available = false
-- Find an inhabited planet 0-3 jumps away.
function cargo_selectMissionDistance ()
local seed = rnd.rnd()
-- 70% chance of 0-3 jump distance
if seed < 0.7 then
missdist = rnd.rnd(0, 3)
else
missdist = rnd.rnd(4, 6)
end
return missdist
end
-- Build a set of target planets
function cargo_selectPlanets(missdist, routepos)
local planets = {}
getsysatdistance(system.cur(), missdist, missdist,
function(s)
for i, v in ipairs(s:planets()) do
if v:services()["inhabited"] and v ~= planet.cur()
and not (s == system.cur()
and ( vec2.dist( v:pos(), routepos ) < 2500 ) )
and v:canLand() and cargoValidDest( v ) then
planets[#planets + 1] = {v, s}
end
end
return true
end,
nil, cargo_use_hidden)
return planets
end
-- We have a destination, now we need to calculate how far away it is by simulating the journey there.
-- Assume shortest route with no interruptions.
-- This is used to calculate the reward.
function cargo_calculateDistance(routesys, routepos, destsys, destplanet)
local traveldist = 0
jumps = routesys:jumpPath( destsys, cargo_use_hidden )
if jumps then
for k, v in ipairs(jumps) do
-- We're not in the destination system yet.
-- So, get the next system on the route, and the distance between
-- our entry point and the jump point to the next system.
-- Then, set the exit jump point as the next entry point.
local j, r = jump.get( v:system(), v:dest() )
traveldist = traveldist + vec2.dist(routepos, j:pos())
routepos = r:pos()
end
end
-- We ARE in the destination system now, so route from the entry point to the destination planet.
traveldist = traveldist + vec2.dist(routepos, destplanet:pos())
return traveldist
end
function cargo_calculateRoute ()
origin_p, origin_s = planet.cur()
local routesys = origin_s
local routepos = origin_p:pos()
-- Select mission tier.
local tier = rnd.rnd(0, 4)
-- Farther distances have a lower chance of appearing.
local missdist = cargo_selectMissionDistance()
local planets = cargo_selectPlanets(missdist, routepos)
if #planets == 0 then
return
end
local index = rnd.rnd(1, #planets)
local destplanet = planets[index][1]
local destsys = planets[index][2]
-- We have a destination, now we need to calculate how far away it is by simulating the journey there.
-- Assume shortest route with no interruptions.
-- This is used to calculate the reward.
local numjumps = origin_s:jumpDist(destsys, cargo_use_hidden)
local traveldist = cargo_calculateDistance(routesys, routepos, destsys, destplanet)
--Determine amount of piracy along the route
local jumps = system.jumpPath( system.cur(), destsys )
local risk = system.cur():presences()["Pirate"]
if risk == nil then risk = 0 end
if jumps then
for k, v in ipairs(jumps) do
local travelrisk = v:system():presences()["Pirate"]
if travelrisk == nil then
travelrisk = 0
end
local risk = risk+travelrisk
end
end
local avgrisk = risk/(numjumps + 1)
-- We now know where. But we don't know what yet. Randomly choose a commodity type.
local cargo
local cargoes = difference(planet.cur():commoditiesSold(),destplanet:commoditiesSold())
if #cargoes == 0 then
if cargo_always_available then
cargo = nil
else
return
end
else
cargo = cargoes[rnd.rnd(1,#cargoes)]:nameRaw()
end
-- Return lots of stuff
return destplanet, destsys, numjumps, traveldist, cargo, avgrisk, tier
end
-- Calculates the minimum possible time taken for the player to reach a destination.
function cargoGetTransit( timelimit, numjumps, traveldist )
local pstats = player.pilot():stats()
local stuperpx = 1 / pstats.speed_max * 30
local arrivalt = time.get() + time.create(0, 0, traveldist * stuperpx +
numjumps * pstats.jump_delay + 10180 + 240 * numjumps)
return arrivalt
end
function cargoValidDest( targetplanet )
-- factions which cannot be delivered to by factions other than themselves
local hidden = {
faction.get("FLF"),
faction.get("Pirate"),
faction.get("Proteron"),
faction.get("Thurion"),
}
for i, f in ipairs( hidden ) do
if targetplanet:faction() == f and planet.cur():faction() ~= f then
return false
end
end
return true
end
--Determines the items in table a that are not in table b.
--Used to determine what cargo is sold at current planet but not at destination planet.
function difference(a, b)
local ai = {}
local r = {}
for k,v in pairs(a) do r[k] = v; ai[v]=true end
for k,v in pairs(b) do
if ai[v]~=nil then r[k] = nil end
end
return r
end
--Sets the description based on the particulars of the mission.
--
function cargo_setDesc( cargo, amount, target, notes, deadline )
end
--[[
-- @brief Returns a block of mission-description text for the given cargo.
-- @tparam string misn_desc Translated title-level description, e.g. _("Cargo transport to %s in the %s system."):format(...).
-- @tparam string cargo Cargo type (raw name). May be nil.
-- @tparam number amount Cargo amount in tonnes. May be nil.
-- @param target Target planet for the delivery.
-- @param deadline Target delivery time. May be nil.
-- @param notes Any additional text the user should see on its own detail line, such as piracy risk. May be nil.
-- ]]
function cargo_setDesc( misn_desc, cargo, amount, target, deadline, notes )
local t = { misn_desc, "" };
if amount ~= nil then
table.insert( t, _("Cargo: %s (%s)"):format( _(cargo), tonnestring(amount) ) );
elseif cargo ~= nil then
table.insert( t, _("Cargo: %s"):format( _(cargo) ) );
end
local numjumps = system.cur():jumpDist( target:system(), cargo_use_hidden )
local dist = cargo_calculateDistance( system.cur(), planet.cur():pos(), target:system(), target )
table.insert( t,
gettext.ngettext( "Jumps: %d", "Jumps: %d", numjumps ):format( numjumps )
.. "\n"
.. gettext.ngettext("Travel distance: %s", "Travel distance: %s", dist):format( numstring(dist) ) )
if notes ~= nil then
table.insert( t, notes );
end
if deadline ~= nil then
table.insert( t, _("Time limit: %s"):format( tostring(deadline - time.get()) ) );
end
misn.setDesc( table.concat(t, "\n" ) );
end
|
