#UseInterface Web, ColoniePortal;

Var Ally As New CAllianz(126);
Var AllyBild As String = "http://game3.stne.net/Url.aspx?cr=3USLexE1o0SNxzbP1dxDD9nhru_2TEPwudxXWz0ucckg_3";
Var Minimumwerte As New CObjectHashTable();


Minimumwerte.Add("PhotonenTorpedos", 100);
Minimumwerte.Add("PlasmaTorpedos", 100);
Minimumwerte.Add("QuantenTorpedos", 100);
Minimumwerte.Add("TorpedoEMP", 100);
Minimumwerte.Add("TorpedoHülle", 100);
Minimumwerte.Add("TorpedoSchilde", 100);

//Hier alle Allianzen eintragen, die Zugriff auf die Dienste haben sollen
Var allianzen As New CObjectList();
allianzen.Add(126);

//Hier alle Einzelpersonen eintragen
Var einzelne As New CObjectList();
//einzelne.Add(1733);


//######################
//Ab hier nichts mehr ändern
//######################

Var Willkommenstext As String = "Willkommen beim Kolonieportal der "
Var v_dienst As String = '';
Var v_verwaltung As String = 'Index';
Var v_epsmenge As Integer;
Var v_schiffstyp As String;
Var v_spielerid As Integer;
Var v_schiffsid As Integer;
Var v_workbee As Boolean = checkwb();;
Var Schiff As CShip;
Var v_hatWerft As Boolean = checkWerft();
Var v_lager As String;
Var v_WarenMenge As Integer;
Var v_warentyp As EWarenTyp;

Function zeigeIndex() {
  Var form As New CHtmlForm(New CScriptUrl());
  
  Response.Add(New CHtmlSeperator('Kolonieportal der Solarconfederation'));
  Response.Add(form);
  Var MainTable As New CTable(2, 1);
  form.Add(MainTable);
  Var Mainrow As CTableRow = MainTable.AddRow();
  
  
  Mainrow.Cells.Item(0).Add(New CHtmlImage(AllyBild));
  Mainrow.Cells.Item(0).Add(New CHtmlNewLine());
  Mainrow.Cells.Item(0).Add(Willkommenstext);
  Mainrow.Cells.Item(0).Add(Ally.GetHtmlNameAndID());
  
  
  Mainrow.Cells.Item(1).Add(New CHtmlSeperator('Dienste:'));
  Mainrow.Cells.Item(1).Add(GuestUser.GetHtmlNameAndID());
  
  Var table As New CTable(1, 5);
  Mainrow.Cells.Item(1).Add(table);
  
  Var row As CTableRow = table.AddRow();
  Var url As New CScriptUrl();
  url.Parameters.Add('Verwaltung', 'Energieverwaltung');
  row.Cells.Item(0).Add(New CHtmlLinkButton('Energie', url, 'Hier gehts zur Energieverwaltung'));
  
  //Abfrage ob eine Werft existiert
  If (v_hatWerft) {
    row = table.AddRow();
    url = New CScriptUrl();
    url.Parameters.Add('Verwaltung', 'Reperatur');
    row.Cells.Item(0).Add(New CHtmlLinkButton('Reperatur', url, 'Hier gehts zur Werft'));
  }
  
  //Lagerverwaltung
  //row = table.AddRow();
  //url = New CScriptUrl();
  //url.Parameters.Add('Verwaltung', 'Lager');
  //row.Cells.Item(0).Add(New CHtmlLinkButton('zum Lager', url, 'Hier gehts zum Lager'));
  
  //Waffenkammer
  row = table.AddRow();
  url = New CScriptUrl();
  url.Parameters.Add('Verwaltung', 'Waffenkammer');
  row.Cells.Item(0).Add(New CHtmlLinkButton('Waffenkammer', url, 'Hier gehts in die Waffenkammer'));
}

Function checkWerft() As Boolean {
  Var g As Integer;
  For (g = 0 To MyColonie.Gebäude.Count - 1) {
    If (MyColonie.Gebäude.Item(g).TypName = 'Große Werft') {
      Return true;
    }
  }
  Return false;
}


//Erstellt die Seite für die Energieverwaltung
Function zeigeEnergieverwaltung(){
  
  Var form As New CHtmlForm(New CScriptUrl());
  Response.Add(form);
  
  form.Add(New CHtmlSeperator('Energieverwaltung'));
  form.Add(New CHtmlNewLine());
  
  Var table As New CTable(7, 4);
  form.Add(table);
  
  
  Var row As CTableRow = table.AddRow();
  row.Cells.Item(0).Add('Energie vorhanden:');
  row.Cells.Item(1).Add(MyColonie.Energie & " + " & MyColonie.EnergieBilanz & " (" & MyColonie.EnergieKapazität & ")");
  
  Var mengenBox As New CHtmlListBox('mengenBox');
  Var i As Integer;
  mengenBox.Add('max Eps', 2000, true);
  For (i = 1 To 100) {
    mengenBox.Add(i, (i), False);
  }
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Menge aufladen: ');
  row.Cells.Item(1).Add(mengenBox);
  
  
  
  
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Schiffstyp einschränken: ');
  row.Cells.Item(1).Add(Schiffstypen());
  
  row = table.AddRow();
  row.Cells.Item(0).Add(New CHtmlNewLine());
  row.Cells.Item(1).Add(New CHtmlNewLine());
  row.Cells.Item(2).Add(New CHtmlNewLine());
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Einzelnes Schiff laden:');
  row.Cells.Item(2).Add('Alle Schiffe von Besitzer laden:');
  
  row = table.AddRow();
  row.Cells.Item(0).Add(EinzelSchiffe());
  row.Cells.Item(2).Add(UserListe());
  
  row = table.AddRow();
  row.Cells.Item(0).Add(New CHtmlSubmitButton('EPS aufladen', 'Dienst', 'Hier drücken für Wiederaufladung'));
  row.Cells.Item(1).Add(New CHtmlSubmitButton('ALLE EPS', 'Dienst', 'Hier drücken für Wiederaufladung'));
  row.Cells.Item(2).Add(New CHtmlSubmitButton('Spieler EPS aufladen', 'Dienst', 'Hier drücken für Wiederaufladung'));
  
  //Abfrage ob eine Werft existiert
  If (v_hatWerft) {
    row = table.AddRow();
    row.Cells.Item(0).Add(New CHtmlSubmitButton('Reserve aufladen', 'Dienst', 'Hier drücken für Wiederaufladung'));
    row.Cells.Item(1).Add(New CHtmlSubmitButton('ALLE Reserve', 'Dienst', 'Hier drücken für Wiederaufladung'));
    row.Cells.Item(2).Add(New CHtmlSubmitButton('Spieler Reserve aufladen', 'Dienst', 'Hier drücken für Wiederaufladung'));
  }
  If (v_hatWerft) {
    row = table.AddRow();
    row.Cells.Item(0).Add(New CHtmlSubmitButton('Reserve und EPS aufladen', 'Dienst', 'Hier drücken für Beides'));
    row.Cells.Item(1).Add(New CHtmlSubmitButton('ALLE Komplett', 'Dienst', 'Hier drücken für Beides'));
    row.Cells.Item(2).Add(New CHtmlSubmitButton('Spieler Reserve und EPS aufladen', 'Dienst', 'Hier drücken für Beides'));
  }
  form.Add(New CHtmlNewLine());
  LinkZumIndex();
  form.Add(New CHtmlInput('Energieverwaltung', 'Verwaltung', EHtmlInputType.Hidden);
}
allianzen.Add(66 + 67);

Function zeigeReperatur()
{
  Var form As New CHtmlForm(New CScriptUrl());
  Response.Add(form);
  
  form.Add(New CHtmlSeperator('Reperaturmenu'));
  form.Add(New CHtmlNewLine());
  
  Var table As New CTable(6, 3);
  form.Add(table);
  
  Var row As CTableRow = table.AddRow();
  row.Cells.Item(0).Add('Duranium vorhanden: ' & MyColonie.Lager.Menge(EWarenTyp.Duranium));
  row = table.AddRow();
  row.Cells.Item(0).Add('Energie: ' & MyColonie.Energie & " + " & MyColonie.EnergieBilanz & " (" & MyColonie.EnergieKapazität & ")");
  row = table.AddRow();
  row.Cells.Item(0).Add('Schiffstypen: ');
  row.Cells.Item(0).Add(Schiffstypen());
  
  row = table.AddRow();
  row.Cells.Item(0).Add(EinzelSchiffe());
  row.Cells.Item(2).Add(UserListe());
  
  row = table.AddRow();
  row.Cells.Item(0).Add(New CHtmlSubmitButton('Schiff reparieren', 'Dienst', 'Hier drücken für Wiederaufladung'));
  row.Cells.Item(1).Add(New CHtmlSubmitButton('Alles reparieren', 'Dienst', 'Hier drücken für Wiederaufladung'));
  row.Cells.Item(2).Add(New CHtmlSubmitButton('Spieler reparieren', 'Dienst', 'Hier drücken für Wiederaufladung'));
  
  LinkZumIndex();
  form.Add(New CHtmlInput('Reperatur', 'Verwaltung', EHtmlInputType.Hidden);
  

}

Function zeigeWaffenkammer() {
  Var form As New CHtmlForm(New CScriptUrl());
  Response.Add(form);
  
  
  form.Add(New CHtmlSeperator('Waffenkammer'));
  form.Add(New CHtmlNewLine());
  
  Var table As New CTable(2, 12);
  form.Add(table);
  
  Var row As CTableRow;
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Energie: ');
  row.Cells.Item(1).Add(MyColonie.Energie);
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Beamen von Torpedos kostet Energie, bitte bedenken. ');
  Var lagerBox As New CHtmlListBox('lagerBox');
  
  If(MyColonie.Lager.Menge(EWarenTyp.PhotonenTorpedos) > Minimumwerte.Item("PhotonenTorpedos"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('PhotonenTorpedos vorhanden: ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.PhotonenTorpedos));
    lagerBox.Add('PhotonenTorpedos', 'PhotonenTorpedos');
  }
  
  If(MyColonie.Lager.Menge(EWarenTyp.PlasmaTorpedos) > Minimumwerte.Item("PlasmaTorpedos"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('PlasmaTorpedos vorhanden: ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.PlasmaTorpedos));
    lagerBox.Add('PlasmaTorpedos', "PlasmaTorpedos");
  }
  
  If(MyColonie.Lager.Menge(EWarenTyp.QuantenTorpedos) > Minimumwerte.Item("QuantenTorpedos"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('QuantenTorpedos vorhanden: ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.QuantenTorpedos));
    lagerBox.Add('QuantenTorpedos', "QuantenTorpedos");
  }
  
  If(MyColonie.Lager.Menge(EWarenTyp.TorpedoEMP) > Minimumwerte.Item("TorpedoEMP"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('TorpedoEMP vorhanden: (beamen nicht möglich) ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.TorpedoEMP));
    lagerBox.Add('TorpedoEMP', "TorpedoEMP");
  }
  
  If(MyColonie.Lager.Menge(EWarenTyp.TorpedoHülle) > Minimumwerte.Item("TorpedoHülle"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('TorpedoHülle vorhanden: (beamen nicht möglich) ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.TorpedoHülle));
    lagerBox.Add('TorpedoHülle', "TorpedoHülle");
  }
  
  If(MyColonie.Lager.Menge(EWarenTyp.TorpedoSchilde) > Minimumwerte.Item("TorpedoSchilde"))
  {
    row = table.AddRow();
    row.Cells.Item(0).Add('TorpedoSchilde vorhanden: (beamen nicht möglich) ');
    row.Cells.Item(1).Add(MyColonie.Lager.Menge(EWarenTyp.TorpedoSchilde));
    lagerBox.Add('TorpedoSchilde', "TorpedoSchilde");
  }
  
  row = table.AddRow();
  row.Cells.Item(0).Add("Schiffstypen: ");
  row.Cells.Item(1).Add(Schiffstypen());
  
  row = table.AddRow();
  row.Cells.Item(0).Add('Menge pro Schiff: ');
  row.Cells.Item(0).Add(New CHtmlTextBox(5, 'Menge'));
  row.Cells.Item(1).Add(lagerBox);
  
  
  row = table.AddRow();
  row.Cells.Item(0).Add(EinzelSchiffe());
  row.Cells.Item(1).Add(New CHtmlSubmitButton('Schiff mit Torps versorgen', 'Dienst', 'Hier drücken zum nachladen'));
  
  row = table.AddRow();
  row.Cells.Item(0).Add(UserListe());
  row.Cells.Item(1).Add(New CHtmlSubmitButton('Spieler mit Torps versorgen', 'Dienst', 'Hier drücken zum nachladen'));
  
  form.Add(New CHtmlNewLine());
  
  form.Add(New CHtmlInput('Waffenkammer', 'Verwaltung', EHtmlInputType.Hidden);
  LinkZumIndex();
}


Function createView(){
  If(v_verwaltung = 'Index')
  {zeigeIndex();}
  Elseif(v_verwaltung = 'Energieverwaltung')
  {zeigeEnergieverwaltung();}
  Elseif(v_verwaltung = 'Reperatur')
  {zeigeReperatur();}
  Elseif(v_verwaltung = 'Lager')
  {zeigeEnergieverwaltung();}
  Elseif(v_verwaltung = 'Waffenkammer')
  {zeigeWaffenkammer();}
}

Function executeDienst()
{
  If(MyColonie.Energie > 0){
    If(
    (v_dienst = 'Spieler mit Torps versorgen') or 
    (v_dienst = 'Spieler reparieren') or 
    (v_dienst = 'Spieler EPS aufladen') or 
    (v_dienst = 'Spieler Reserve aufladen') or 
    (v_dienst = 'Spieler Reserve und EPS aufladen')){}Else
    {
      v_spielerid = 0;
    }
    If(v_dienst = 'Schiff mit Torps versorgen')
    {
      beamWareEinzeln(v_schiffsid);
    }
    If((v_dienst = 'Reserve aufladen') or (v_dienst = 'Reserve und EPS aufladen'))
    {
      If (workbeeVorbereiten()){
        sendReserveEinzeln(v_schiffsid);}
    }
    If((v_dienst = 'EPS aufladen') or (v_dienst = 'Reserve und EPS aufladen'))
    {
      sendEpsEinzeln(v_schiffsid);
    }
    If(v_dienst = 'Schiff reparieren')
    {
      If(MyColonie.Lager.Menge(EWarenTyp.Duranium) = 0){Response.Add("Duranium leer");}
      If (workbeeVorbereiten()){
        repariereSchiffEinzeln(v_schiffsid);}
    }
    If(
    (v_dienst = 'Spieler Reserve aufladen') or (v_dienst = 'ALLE Reserve') or 
    (v_dienst = 'Spieler Reserve und EPS aufladen') or (v_dienst = 'ALLE Komplett'))
    {
      For (Each Schiff In MyColonie.SRS) {
        If(MyColonie.Energie = 0){Response.Add("Energie leer"); Exit For;}
        If((CheckDienstJaNein(Schiff)) and (workbeeVorbereiten()))
        {sendReserve(Schiff);}
      }
    }
    If(
    (v_dienst = 'Spieler EPS aufladen') or (v_dienst = 'ALLE EPS') or 
    (v_dienst = 'Spieler Reserve und EPS aufladen') or (v_dienst = 'ALLE Komplett'))
    {
      For (Each Schiff In MyColonie.SRS) {
        If(MyColonie.Energie = 0){Response.Add("Energie leer"); Exit For;}
        If(CheckDienstJaNein(Schiff))
        {sendEps(Schiff);}
      }
    }
    
    
    
    
    If(v_dienst = 'Spieler mit Torps versorgen')
    {
      For (Each Schiff In MyColonie.SRS) {
        If(MyColonie.Energie = 0){Response.Add("Energie leer");
          Exit For;}
        If((CheckDienstJaNein(Schiff)))
        {
          beamWare(Schiff);}
      }
    }
    
    If((v_dienst = 'Spieler reparieren') or (v_dienst = 'Alles reparieren'))
    {
      For (Each Schiff In MyColonie.SRS) {
        If(MyColonie.Energie = 0){Response.Add("Energie leer");
          Exit For;}
        If(MyColonie.Lager.Menge(EWarenTyp.Duranium) = 0){Response.Add("Duranium leer");
          Exit For;}
        
        
        
        If((CheckDienstJaNein(Schiff)) and (workbeeVorbereiten()))
        {
          repariereSchiff(Schiff);}
      }
    }
    
  }
  Else
  {
    Response.Add("Energie leer");
  }
  
  workbeeWiederherstellen()
}

Function Main(){
  
  If (Request.Form.ContainsKey('Dienst'))
  {
    v_dienst = Request.Form.Item('Dienst');
  }
  If (Request.Parameters.ContainsKey('Verwaltung'))
  {
    v_verwaltung = Request.Parameters.Item('Verwaltung');
  }
  If (Request.Form.ContainsKey('Verwaltung'))
  {
    v_verwaltung = Request.Form.Item('Verwaltung');
  }
  If (Request.Form.ContainsKey('mengenBox'))
  {
    v_epsmenge = Request.Form.Item('mengenBox');
  }
  If (Request.Form.ContainsKey('zielbox'))
  {
    v_schiffsid = Request.Form.Item('zielbox');
  }
  If (Request.Form.ContainsKey('typenBox'))
  {
    v_schiffstyp = Request.Form.Item('typenBox');
  }
  If (Request.Form.ContainsKey('kundenbox'))
  {
    v_spielerid = Request.Form.Item('kundenbox');
  }
  If (Request.Form.ContainsKey('lagerBox'))
  {
    v_lager = Request.Form.Item('lagerBox');
  }
  If (Request.Form.ContainsKey('Menge'))
  {
    v_WarenMenge = Request.Form.Item('Menge');
  }
  
  executeDienst();
  createView();

}

Function Schiffstypen() As CHtmlListBox
{
  Var typenBox As New CHtmlListBox('typenBox');
  //Standardauswahl
  typenBox.Add('Alle', "Alle", true);
  Var typenliste As New CObjectList();
  //Alle Auswahlmöglichkeiten
  For (Each Schiff In MyColonie.SRS) {
    If (typenliste.Contains(Schiff.TypName)){}
    Else{
      typenliste.Add(Schiff.TypName);
    }
  }
  typenliste.Sort();
  Var typ As String;
  For (Each typ In typenliste) {
    typenBox.Add(typ, typ);
  }
  Return typenBox;
}

Function EinzelSchiffe() As CHtmlListBox
{
  Var zielbox As New CHtmlListBox('zielbox');
  Var help As Integer;
  //Standardauswahl
  If(v_verwaltung = 'Reperatur'){help = GuestShip.Hülle;}Else{help = GuestShip.Energie;}
  zielbox.Add(GuestShip.TypName & ' - ' & GuestShip.ShipID & ' - ' & GuestShip.Name & ' - ' & help, GuestShip.ShipID, true);
  //Alle Auswahlmöglichkeiten
  For (Each Schiff In MyColonie.SRS) {
    If(v_verwaltung = 'Reperatur'){help = Schiff.Hülle;}Else{help = Schiff.Energie;}
    If(Schiff.UserID <> 3)
    {
      zielbox.Add(Schiff.TypName & ' - ' & Schiff.ShipID & ' - ' & Schiff.Name & ' - ' & help, Schiff.ShipID, False);}
  }
  zielbox.SortByCaption();
  Return zielbox;
}

Function UserListe() As CHtmlListBox
{
  
  Var kundenbox As New CHtmlListBox('kundenbox');
  Var kundenliste As New CObjectList();
  Var spieler As CUser;
  //Standardauswahl
  kundenbox.Add(GuestUser.UserID & ' - ' & GuestUser.Name, (GuestUser.UserID), True);
  //Alle Auswahlmöglichkeiten
  For (Each Schiff In MyColonie.SRS) {
    If (kundenliste.Contains(Schiff.UserID)){}
    Else{
      kundenliste.Add(Schiff.UserID);
    }
  }
  kundenliste.Sort();
  Var id As Integer;
  For (Each id In kundenliste) {
    spieler = New CUser(id);
    kundenbox.Add(id & ' - ' & spieler.Name, (id), False);
  }
  Return kundenbox;
}


Function LinkZumIndex()
{
  Response.Add(New CHtmlBreak());
  Var url As New CScriptUrl();
  url.Parameters.Add('Verwaltung', 'Index');
  Response.Add(New CHtmlLinkButton('zurück', url, 'Zur Startseite'));
}

Function CheckDienstJaNein(Schiff As CShip) As Boolean
{
  If(((v_spielerid = 0) or (Schiff.UserID = v_spielerid)) and (Schiff.UserID <> 3) and 
  ((v_schiffstyp = "Alle") or (Schiff.TypName = v_schiffstyp))){
    Return True; }
  Else {
    Return False;}
}

Function checkwb() As Boolean {
  Var g As Integer;
  
  For (g = 0 To MyColonie.Gebäude.Count - 1) {
    If (MyColonie.Gebäude.Item(g).TypName = 'WorkBee-Raumbahnhof') {
      If (MyColonie.Gebäude.Item(g).Aktiv) {Return true;}Else{Return false;}
    }
  }
  Return false;
}

Function setzewb(status As Boolean) {
  Var g As Integer;
  Var pos As String;
  
  For (g = 0 To MyColonie.Gebäude.Count - 1) {
    If (MyColonie.Gebäude.Item(g).TypName = 'WorkBee-Raumbahnhof') {
      pos = cStr(MyColonie.Gebäude.Item(g).Feld.Coords.X) & "|" & cStr(MyColonie.Gebäude.Item(g).Feld.Coords.Y);
      MyColonie.Aktion.GebäudeAktivieren(pos, status)
      
      
    }
  }
}

Function workbeeVorbereiten() As Boolean
{
  If(checkwb()){Return True;}
  Else{
    setzewb(True);
    If(checkwb()){Response.Add("Der Workbee wurde aktiviert"); Response.Add(New CHtmlBreak()); Return True;}
    Else{Response.Add("Der Workbee konnte nicht aktiviert werden. Einige funktionen stehen nicht zur Verfügung (Reserve laden, Reperatur"); Response.Add(New CHtmlBreak()); Return False;}
  }
}

Function workbeeWiederherstellen()
{
  If((checkwb()) and (v_workbee = false))
  {setzewb(False);
    Response.Add("Workbee wurde weider deaktiviert");
    Response.Add(New CHtmlBreak());}
}

Function beamWareEinzeln(Ziel As Integer){
  If(v_lager = "PhotonenTorpedos"){v_warentyp = EWarenTyp.PhotonenTorpedos;}
  If(v_lager = "PlasmaTorpedos"){v_warentyp = EWarenTyp.PlasmaTorpedos;}
  If(v_lager = "QuantenTorpedos"){v_warentyp = EWarenTyp.QuantenTorpedos;}
  If(v_lager = "TorpedoEMP"){v_warentyp = EWarenTyp.TorpedoEMP;}
  If(v_lager = "TorpedoHülle"){v_warentyp = EWarenTyp.TorpedoHülle;}
  If(v_lager = "TorpedoSchilde"){v_warentyp = EWarenTyp.TorpedoSchilde;}
  Var warenMenge As Integer = MyColonie.Lager.Menge(v_warentyp);
  If (warenMenge > Minimumwerte.Item(v_lager)){
    If (warenMenge < (Minimumwerte.Item(v_lager) + v_WarenMenge)){
      v_WarenMenge = warenMenge - Minimumwerte.Item(v_lager);}
    
    MyColonie.Aktion.TransferiereZuSchiff(Ziel, v_WarenMenge, v_warentyp));
    Response.Add(New CHtmlNewLine());
    Var beamMenge As Integer = (warenMenge - MyColonie.Lager.Menge(v_warentyp));
    Response.Add('Es wurden ' & beamMenge & ' Einheiten gebeamt!');
  } Else {
    Response.Add('Es sind leider zu wenig Waren da, um zu beamen.' & Minimumwerte.Item(v_lager) & ' Rest sind Minimum');
  }
}

Function sendReserveEinzeln(Ziel As Integer, Typ) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.Werft_ReserveBatterieAufladen(Ziel, v_epsmenge);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add('Es wurden ' & (energie - MyColonie.Energie) & ' Reserveeinheiten bei ' & (Ziel) & ' geladen!');
    Response.Add(New CHtmlBreak());}
}

Function sendReserveEinzeln(Ziel As Integer) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.Werft_ReserveBatterieAufladen(Ziel, v_epsmenge);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add('Es wurden ' & (energie - MyColonie.Energie) & ' Reserveeinheiten bei ' & (Ziel) & ' geladen!');
    Response.Add(New CHtmlBreak());}
}

Function repariereSchiffEinzeln(Ziel As Integer) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.Werft_Reparieren(Ziel, 9999);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add((energie - MyColonie.Energie) & ' Hülle wurden bei ' & (Ziel) & ' repariert!');
    Response.Add(New CHtmlBreak());}
}

Function sendEpsEinzeln(Ziel As Integer) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.TransferiereZuSchiff(Ziel, v_epsmenge, EBeamRessource.Energie);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add('Es wurden ' & (energie - MyColonie.Energie) & ' nach ' & (Ziel) & ' transferiert!');
    Response.Add(New CHtmlBreak());}
}

Function beamWare(Ziel As CShip){
  If(v_lager = "PhotonenTorpedos"){v_warentyp = EWarenTyp.PhotonenTorpedos;}
  If(v_lager = "PlasmaTorpedos"){v_warentyp = EWarenTyp.PlasmaTorpedos;}
  If(v_lager = "QuantenTorpedos"){v_warentyp = EWarenTyp.QuantenTorpedos;}
  If(v_lager = "TorpedoEMP"){v_warentyp = EWarenTyp.TorpedoEMP;}
  If(v_lager = "TorpedoHülle"){v_warentyp = EWarenTyp.TorpedoHülle;}
  If(v_lager = "TorpedoSchilde"){v_warentyp = EWarenTyp.TorpedoSchilde;}
  Var warenMenge As Integer = MyColonie.Lager.Menge(v_warentyp);
  If (warenMenge > Minimumwerte.Item(v_lager)){
    If (warenMenge < (Minimumwerte.Item(v_lager) + v_WarenMenge)){
      v_WarenMenge = warenMenge - Minimumwerte.Item(v_lager);}
    
    MyColonie.Aktion.TransferiereZuSchiff(Ziel.ShipID, v_WarenMenge, v_warentyp));
    Response.Add(New CHtmlNewLine());
    Var beamMenge As Integer = (warenMenge - MyColonie.Lager.Menge(v_warentyp));
    Response.Add(
    "Es wurden " & beamMenge & " " & v_lager & " nach " & (Ziel.Name) & " (" & Ziel.ShipID & "/" & Ziel.TypName & " gebeamt!");
  } Else {
    Response.Add('Es sind leider zu wenig Waren da, um zu beamen.' & Minimumwerte.Item(v_lager) & ' Rest sind Minimum');
  }
}

Function sendReserve(Ziel As CShip) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.Werft_ReserveBatterieAufladen(Ziel.ShipID, v_epsmenge);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add('Es wurden ' & (energie - MyColonie.Energie) & ' Reserveeinheiten bei ' & 
    (Ziel.Name) & " (" & Ziel.ShipID & "/" & Ziel.TypName & ") " & ' geladen!');
    Response.Add(New CHtmlBreak());}
}

Function repariereSchiff(Ziel As CShip) {
  Var energie As Integer = MyColonie.Energie;
  MyColonie.Aktion.Werft_Reparieren(Ziel.ShipID, 999);
  If((energie - MyColonie.Energie) > 0)
  {Response.Add((energie - MyColonie.Energie) & ' Hülle wurden bei ' & 
    (Ziel.Name) & " (" & Ziel.ShipID & "/" & Ziel.TypName & ") " & ' repariert!');
    Response.Add(New CHtmlBreak());}
}

Function sendEps(Ziel As CShip) {
  Var energie As Integer = MyColonie.Energie;
  If(Ziel.SchildeAktiv)
  {Response.Add((Ziel.Name) & " (" & Ziel.ShipID & "/" & Ziel.TypName & " hat die Schilde aktiviert"); Response.Add(New CHtmlBreak());}
  Else
  {
    MyColonie.Aktion.TransferiereZuSchiff(Ziel.ShipID, v_epsmenge, EBeamRessource.Energie);
    If((energie - MyColonie.Energie) > 0)
    {Response.Add('Es wurden ' & (energie - MyColonie.Energie) & ' nach ' & 
      (Ziel.Name) & " (" & Ziel.ShipID & "/" & Ziel.TypName & ") " & ' transferiert!');
      Response.Add(New CHtmlBreak());}
  }
}

Function checkRight() As Boolean {
  If (allianzen.Contains(GuestUser.AllianzID)) {
    Return true;
  } Elseif (einzelne.Contains(GuestUser.UserID)) {
    Return true;
  }
  Return false;
}


If (MyColonie.SRS.ContainsShipID(GuestShip.ShipID)){
  If(checkRight())
  {
    Main();
  }
  Else
  {
    Response.Add("Sorry,aber du hast kein Zutritt");
  }
}
Else
{Response.Add("Einflug in den Orbit notwendig");}