Untitled

#UseInterface Web, Gui;

 

 

Function Init()

{

  ScriptContext.EnableExtension();

  ScriptContext.RegisterEvent(EGuiEventType.InfoBarAfterCreate, AddressOf CallBack_InfoBarAfterCreate);

  ScriptContext.ActivateEvents();

}

 

 

 

Var d As New CDataNodeStorage("Status");

 

 

 

Function getSpace() As IGuiControl {

  Var space As New CHtmlSpan();

  space.Add("|###|");

  space.Style.Add("color", "#FF0000");

  Return space.GuiControl;

}

 

Function AddSkript(e As CGuiEventOnInfoBarAfterCreate, id As Integer, text As String) {

  Var surl As CUrl = CUrlBuilder.Script(id);

  Var slink As New CHtmlHyperLink(surl, "[" & text & "]");

  e.CreateItem(False).Add(slink.GuiControl);

}

 

Function AddShipLink(e As CGuiEventOnInfoBarAfterCreate, id As Integer, text As String) {

  Var surl As CUrl = CUrlBuilder.Ship(id);

  Var slink As New CHtmlHyperLink(surl, text);

  e.CreateItem(False).Add(slink.GuiControl);

}

 

Function FlottenStatus(e As CGuiEventOnInfoBarAfterCreate, id As Integer, skriptnr As Integer) As CMyShip {

  Var f As New CMyFleet(id);

  Var s As CMyShip;

  Var sum As Integer;

 

  If (f.Ships.Count > 0) {

    AddShipLink(e, f.Ships.Item(0).ShipID, f.Name & ":");

    For (Each s In f.Ships) {

      sum = sum + s.WarpCore;

    }

    If (s.WarpCore < 50) {

      e.CreateItem(False).Add(s.Name & " hat kein WK!");

    }

    AddSkript(e, skriptnr, " WK: " & Math.Round(sum / f.Ships.Count) & " ");

  } Else {

    e.CreateItem(False).Add(f.Name & " hat keine Schiffe");

  }

}

 

Function CallBack_InfoBarAfterCreate(e As CGuiEventOnInfoBarAfterCreate)

{

 

  AddSkript(e, 22300, "Versorgung");

  AddSkript(e, 22297, "Schiff-WB");

  AddSkript(e, 23369, "Schiff-Home");

  AddSkript(e, 22265, "Werft");

  AddSkript(e, 20755, "Userliste");

  AddSkript(e, 20650, "[ESS]");

  AddSkript(e, 24064, "EPS");

  AddSkript(e, 21090, "Beman.");

  AddSkript(e, 16951, "Benennen");

  AddSkript(e, 21668, "Infoleiste");

  AddSkript(e, 19869, "Schiffsliste");

 

  Var root As New CMyColony(142, 487);

  e.CreateItem(False).Add(root.Name);

  e.CreateItem(False).Add(CGoodsInfo.GetImage(6).GuiControl);

  e.CreateItem(False).Add(" " & root.StockRoom.Amount(EGoodsType.Deuterium));

  e.CreateItem(False).Add(CGoodsInfo.GetImage(4).GuiControl);

  e.CreateItem(False).Add(" " & root.StockRoom.Amount(EGoodsType.IridiumOre));

  e.CreateItem(False).Add(CGoodsInfo.GetImage(15).GuiControl);

  e.CreateItem(False).Add(" " & root.StockRoom.Amount(EGoodsType.Nitrium));

  e.CreateItem(False).Add(" " & "Lager: " & root.StockRoom.Sum & "/" & (root.StockRoom.Sum + root.StockRoom.FreeStorage) & " Frei: " & root.StockRoom.FreeStorage);

 

 

  FlottenStatus(e, 132777, 22264);

  FlottenStatus(e, 132778, 23406);

  FlottenStatus(e, 132779, 19978);

 

}

 

 

Init();