Lephisto/scripts/ai/merchant.lua
2013-05-02 20:01:05 +01:00

124 lines
2.4 KiB
Lua

-- Required control rate.
control_rate = 2
-- Required "control" function.
function control()
task = ai.taskname()
if task == "hyperspace" then
ai.hyperspace() -- Try to go to hyperspace.
elseif task == "runaway" then
if ai.dist(ai.pos(ai.targetid())) > 300 then
ai.hyperspace()
end
elseif task == "none" then
planet = ai.rndplanet()
-- Planet must exist.
if planet == nil then
ai.pushtask(0, "hyperspace")
else
ai.pushtask(0, "go", planet)
end
end
end
-- Required "attacked" function.
function attacked(attacker)
if ai.taskname() ~= "runaway" then
-- Let's have some messages.
num = ai.rnd(0,3)
if num == 0 then msg = "Mayday! We are under attack!"
elseif num == 1 then msg = "Requesting assistance! Some scoundral is attacking us!"
elseif num == 2 then msg = "Merchant vessle under attack here! HALP!"
end
if msg then ai.broadcast(msg) end
-- So bravely run away!
ai.pushtask(0, "runaway", attacker)
else -- Runaway from the new bad guys.
ai.poptask()
ai.pushtask(0, "runaway", attacker)
end
end
function create()
ai.setcredits(ai.rnd(200, ai.shipprice()/100))
num = ai.rnd(12)
if num < 5 then
cargo = "Food"
elseif num < 8 then
cargo = "Ore"
elseif num < 10 then
cargo = "Industrial Goods"
elseif num < 12 then
cargo = "Luxury Goods"
else
cargo = "Medicine"
end
ai.setcargo(cargo, ai.rnd(0, ai.cargofree()))
end
-- Runs away.
function runaway()
target = ai.targetid()
if not ai.exists(target) then
ai.pushtask()
ai.pushtask(0, "hyperspace")
return
end
dir = ai.face(target, 1)
ai.accel()
if ai.hasturrets() then
dist = ai.dist(ai.pos(target))
if dist < 300 then
ai.settarget(target)
ai.shoot()
end
end
end
-- Fly to the target.
function go()
target = ai.target()
dir = ai.face(target)
dist = ai.dist(target)
bdist = ai.minbrakedist()
if dir < 10 and dist > bdist then
ai.accel()
elseif dir < 10 and dist < bdist then
ai.poptask()
ai.pushtask(0, "stop")
end
end
-- Backthrust.
function stop()
ai.brake()
if ai.isstopped() then
ai.stop()
ai.poptask()
ai.settimer(0, ai.rnd(8000, 15000))
ai.pushtask(0, "land")
else
ai.brake()
end
end
--Waits.
function land()
if ai.timeup(0) then
ai.pushtask(0, "hyperspace")
end
end
-- Go to hyperspace YEAAAHHH!!
function hyperspace()
dir = ai.face(-1) -- Face away from (0,0)
if(dir < 10) then
ai.accel()
end
end