Script - Escort Reticle

From FreeSpace Wiki
Revision as of 20:08, 7 July 2006 by Wanderer (talk | contribs) (new page)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Function

Creates an additional reticle around all ships in the escort list and also displayes ships name below the reticle

Table Entry

#Global Hooks

$GameInit:

[

escortReticle = function(x1, y1, name)
   gr.drawGradientLine(x1, y1+36, x1+8, y1+24)
   gr.drawGradientLine(x1, y1+36, x1-8, y1+24)
   gr.drawGradientLine(x1+24, y1, x1+16, y1+12)
   gr.drawGradientLine(x1-24, y1, x1-16, y1+12)
   gr.drawGradientLine(x1, y1-36, x1+8, y1-24)
   gr.drawGradientLine(x1, y1-36, x1-8, y1-24)
   gr.drawGradientLine(x1+24, y1, x1+16, y1-12)
   gr.drawGradientLine(x1-24, y1, x1-16, y1-12)
   gr.drawString(name,x1-36,y1+48)
end

]

$HUD:

[

for i=1, mn.getNumEscortShips() do
   escortedship = mn.getEscortShipByIndex(i)
   X, Y = escortedship.Position:getScreenCoords()
   if escortedship.Position:getScreenCoords() ~= false and escortedship.Team.Name == "Hostile" then
      gr.setColor(255,50,50,255)
      escortReticle(X, Y, escortedship.Name)
   end
   if escortedship.Position:getScreenCoords() ~= false and escortedship.Team.Name == "Friendly" then
      gr.setColor(0,255,0,255)
      escortReticle(X, Y, escortedship.Name)
   end
   if escortedship.Position:getScreenCoords() ~= false and escortedship.Team.Name == "Unknown" then
      gr.setColor(255,255,0,255)
      escortReticle(X, Y, escortedship.Name)
   end
end

]

#End