Scripting:SchildPortal

Aus STNE-Wiki

Aktuelle Version vom 13. Februar 2009, 17:43 Uhr

Hier mal ein kleines Portal mit dem vorher eingestellte Verbündete die Schilde einer Basis (oder eines Schiffes) senken und heben können.

#UseInterface Web, ShipPortal;

// Benutzerberechtigungen festlegen
Var validUser As Boolean = False;

If(GuestUser.UserID = 12345) { // Eigene ID
  validUser = True;
}
If(GuestUser.AllianzID = 123) { // Alliazn erlaubt
  validUser = True;
}

If(validUser) {
  arbeite();
} Else {
  println("Sie habe keine Berechtigung dies zu tun"); // <-- Text, der unauthorisierten Benutzern ausgegeben wird
}



Function println(text As String) {
  Response.Add(text);
  Response.Add(New CHtmlBreak());
}
// Hier wird die richtige Ansicht generiert
Function arbeite() {
  
  // Formular öffnen
  Var form As New CHtmlForm(New CScriptUrl());
  Response.Add(form);
  form.Add(New CHtmlBreak());
  
  
  // Buttons druntertun
  form.Add(New CHtmlSubmitButton("Schilde Heben!", "Schilde1"));
  form.Add(New CHtmlSubmitButton("Schilde Senken!", "Schilde2"));
}
If(Request.Form.ContainsKey('Schilde1')) {
  MyShip.Aktion.SchildeAktivieren(True);
  println("Schilde wurden aktiviert"));
}
If(Request.Form.ContainsKey('Schilde2')) {
  MyShip.Aktion.SchildeAktivieren(False);
  println("Schilde wurden gesenkt"));
}