d1c02773bf
[Add] Chance for pirate to come and rampage. [Fix] Actually got that buffer overflow in ai.
61 lines
1.2 KiB
Lua
61 lines
1.2 KiB
Lua
-- Required control rate.
|
|
control_rate = 2
|
|
|
|
-- Required "control" function.
|
|
function control()
|
|
if taskname() == "none" then
|
|
pushtask(0, "fly")
|
|
end
|
|
end
|
|
|
|
-- Required "attacked" function.
|
|
function attacked(attacker)
|
|
task = taskname()
|
|
if task ~= "attack" and task ~= "runaway" then
|
|
-- Let's have some taunts.
|
|
num = rng(0,4)
|
|
if num == 0 then msg = "You will never kill me!"
|
|
elseif num == 1 then msg = "DIE!"
|
|
elseif num == 2 then msg = "You won't survive!"
|
|
elseif num == 3 then msg = "I hate you!"
|
|
end
|
|
if msg then comm(attacker, msg) end
|
|
|
|
pushtask(0, "attack", attacker)
|
|
end
|
|
end
|
|
|
|
-- Runs away.
|
|
function runaway()
|
|
target = gettargetid()
|
|
dir = face(target, 1)
|
|
accel()
|
|
end
|
|
|
|
-- Attack
|
|
function attack()
|
|
target = gettargetid()
|
|
dir = face(target)
|
|
dist = getdist(getpos(target))
|
|
|
|
if parmor() < 70 then
|
|
poptask()
|
|
pushtask(0, "runaway", target)
|
|
elseif dir < 10 and dist > 300 then
|
|
accel()
|
|
elseif dir < 10 and dist < 300 then
|
|
shoot()
|
|
end
|
|
end
|
|
|
|
-- Fly to the player.
|
|
function fly()
|
|
target = 0
|
|
dir = face(target)
|
|
dist = getdist(getpos(target))
|
|
if dir < 10 and dist > 300 then
|
|
accel()
|
|
end
|
|
end
|
|
|