Also

Ich habe mal versucht, ein Script für ein BossUfo zu erstellen, aber irgendwie funzt das ganze überhaupt nicht. Könnte sich das mal jemand anschauen und mir bitte sagen, was genau ich anders machen könnte.

Hier das Script:

program BossUFO;

const
  messageText = 'test';
  messageWin  = 'test'; //weil das BossUfo Bestandteil
                        //der Story ist und man nicht
                        //verlieren sollte
  
procedure Onmessagewin;
begin
  game_api_messageBox(messageWin);     //Macht ein Dialogfeld
                                       //im Falle des Sieges
end;

procedure StartMission;
var
  UFO: TUFO;
  UFOS: Integer;
  UFOModel: TUFOModel;

begin
   UFOModel.Name := 'Armensia Omnima';  // Name des UFOs
   UFOModel.HitPoints := 3500;          // Hitpoints des UFOs
   UFOModel.Shield:=1000;               // Schildpunkte
   UFOModel.ShieldType.Projektil := 80; // Schildabsorption für Projektile in %
   UFOModel.ShieldType.Rakete := 80;    // Schildabsorption für Raketen in %
   UFOModel.ShieldType.Laser := 80;     // Schildabsorption für Laserwaffen in %
   UFOModel.ShieldType.Laden := 80;     // Nachladezeit des Schildes in ms
   UFOModel.MinBesatz := 1;             // minimale Besatzung (wichtig für eventuelle Bodeneinsätze)
   UFOModel.ZusBesatz := 0;             // zufällige zusätzliche Besatzung
   UFOModel.Angriff := 100;             // Angriffsstärke
   UFOModel.Pps := 7;                   // Geschwindigkeit
   UFOModel.Treffsicherheit := 80;

   UFOS := 1;
   
 begin
   ufo_api_CreateUFOFromModel(UFOModel);
   register_UFO(UFO);                      //hier kommt der Fehler
 end;

end;


begin
  // Hier darf kein weiterer Code folgen
  // Missionsname festlegen
  MissionName := 'YourName';

  // Missionstype festlegen 
  //   mzUFOs = alle mit register_ufo registrierten UFOs müssen zerstört werden
  //   mzUser = müssen muss mit Mission_Win oder Mission_loose abgeschlossen werden
  MissionType := mzUFO;
end.

Hi, die Prozedur muss OnMissionWin, statt OnmessageWin heissen.
Desweiteren musst du

UFO:=ufo_api_CreateUFOFromModel(UFOModel);

statt

ufo_api_CreateUFOFromModel(UFOModel);

schreiben, da UFO sonst leer ist. P.S: Das begin..end bei

 begin
   ufo_api_CreateUFOFromModel(UFOModel);
   register_UFO(UFO);                      //hier kommt der Fehler
 end;

kann weg.

Alles was ich sage, ist mit Vorsicht zu genießen ;)

1. begin und end bei ufo_api sind völlig falsch, wegmachen. Zu was sollte das denn gehören?
Oder wolltest du für UFOS-Zahl mal ein UFO haben?
Dann braucht das eine Schleife wie z.B.

for i:=0 to UFOS do
begin
   ufo_api_CreateUFOFromModel(UFOModel);
   register_UFO(UFO);
 end;

und i muss natürlich noch als Variable angelegt werden. Du kannst ein begin oder end nicht einfach in die Luft hängen. Allerdings weiß ich nicht, wie sich das bei mehreren UFOs mit dem register/OnMissionWin verträgt.

2. fehlt für deine procedure Onmessagewin; (die onmissionwin heißen muss)
noch etwas wie ein register_event...onufoshootdown oder sowas, sieh mal in der Referenz nach, was du willst.

3. messagetext ist völlig ohne Funktion

@Raynor: Ich hab das jetzt verändert aber mir scheint es immer noch nicht richtig zu funktionieren.
Evtl. könnte LennStar damit

recht haben. Ein Event könnte ebenfalls fehlen...



Das habe ich auch gesehen. Ich stell das Ding ja nicht umsonst hier rein :D

Es würde helfen wenn Du sagst was Deiner Meinung nach nicht funktioniert - wenn man nicht weiß was das vorgesehene Ergebnis ist dann kann man auch nur schwer suchen.

Einen größeren Fehler sehe ich aber schon jetzt: Du verwechselst den Einsatz von mzUser und mzUFO.

OnMissionWin wird nur aufgerufen, wenn Du den Befehl mission_win gibst - und der wird meistens bei mzUser genutzt, da mzUFO das Skript ohne eine Siegesdefinition beendet, sobald das letzte registrierte UFO verschwunden ist. Genaueres dazu kannst Du im XSkriptTutorial.Kapitel6 lesen, aber das ist ein ziemlicher Block mit vielen Informationen, mehr eine Referenzbeschreibung als ein Tutorial.

Es gibt zwei Lösungsansätze:
- entweder auf mzUser wechseln und mit mehreren Event-Funktionen überprüfen ob das UFO abgeschossen oder geflohen ist und passende Meldungen ausgeben.
- die Funktion FinalizeMission benutzen, die auch bei mzUFO am Ende automatisch aufgerufen wird (siehe auch XSkriptTutorial.Kapitel6), aber dann hast Du ein paar Probleme den Unterschied zwischen Abschuss und Escape zu erkennen und musst ggfs tricksen.

Hmm, vielleicht liegt das auch daran, dass bei mir ein Fenster mit "Ereignis Simulieren" kommt, wenn ich auf die Schaltfläche mit dem Play zeichen drücke. Dummerweise ist kein Ereignis aufgelistet, deswegen kann das Script anscheinend gar nicht richtig getestet werden.

kann es sein, dass ich dazu ein "Event" brauche?

Meine Absicht ist es, ein BossUFO zu erstellen, dass dann nur einmal im Spielsatz auftaucht und mithilfe einer Technologie im Spielsatz freigeschaltet wird.

Genau - wenn Du auf kein Ereignis=Event reagieren kannst, dann brauchst Du auch keine Events.


Das Tutorial-Kapitel 3 beschreibt übrigens fast genau das was Du machen willst und ist seit einigen Tagen auch endlich auf dem aktuellen Stand.
Arbeite also einfach das Tutorial einmal durch, dann weißt Du auch welche Events Du benötigst und wie diese registriert werden.

Ja, dass Problem ist, dass UFOs nicht mehr aufgelistet werden, wenn sie nur mit register_ufo registriert werden. Das wird erst wieder mit der Version 0.915 der Fall sein ... Aber entscheidend ist der Test im Spiel selber ;)

Hm gut, werd ich dann malmachen ^^
-------------
Es funktioniert einwandfrei, nur das Textfeld kommt nicht.


Es gibt ja: UFOModell.Aliens. Welches Parameter muss ich da eingeben um eine bestimmte Alienart einzufügen?

Das Textfeld kommt nicht, weil es nie aufgerufen wird - siehe Antworten oben.
Die Funktion "OnMissionWin" erscheint eben NICHT sobald alle UFOs weg sind, denn auch entkommene UFOs sind weg.
Im Skript müssen alle Sieges- und Verlustbedingungen manuell überprüft werden, normalerweise per register_event.


Das wird aufwendig und lohnt sich kaum - wenn es für viele UFOs gelten soll besser per Editor eingeben und das UFO deaktivieren, damit es nur bei Skriptaufruf verfügbar ist.
Für einzelne UFOs bringt das weniger was, da gehst Du besser an das UFO selber mit TUFO.AddAlien.

Zur Erklärung:
TUFOModell ist das Modell was man normalerweise im Editor eingibt und aus dem man beliebig viele UFOs im Spiel erzeugen kann. Die Eigenschaft Aliens dieses Modells ist nichts anderes als die Editortabelle für die Wahrscheinlichkeiten bestimmter Aliens in diesem UFO.

Wenn Du das wirklich im Script eingeben willst, dann ist Aliens ein Array aus TAlieninUFO (XSkriptReferenz.TypTUFOModel). Du musst also ersteinmal einen temporären Array in denau demselben Format erzeugen, in dem Du die Daten dann ablegen kannst.
Und das TAlieninUFO (XSkriptReferenz.TypTAlienInUFOist dann eine Zuordnung von AlienID (ablesbar im Editor) und einer Häufigkeitsangabe, die die Zufallsverteilung beeinflusst.

Wenn Du nun über IDs z.B. eine Verteilung von ID1:50, ID2:30 und ID3:30 eingibst, dann kann das erste aus dem Modell erstellte UFO bei 5 Besatzungsmitgliedern z.B. 3x Alien1, 1x Alien2 und 1x Alien3 enthalten, das nächte UFO aus diesem Modell vielleicht 2xAlien2 und 3x Alien3 usw - die Zufallsverteilung wird jedesmal neu ausgewürfelt.

Aber wie gesagt - das UFOModell manuell im Skript zu erzeugen lohnt sich nur für einzelne Spezialgegner (und selbst das auch nur wenn man die je nach Schwierigkeitsgrad unterschiedlich stark machen will).
Jedes UFO dessen Werte man schon vor dem Spielstart kennt, sollte über den Editor eingegeben und dann nur deaktiviert werden. Deaktivierte UFOs können nicht als Zufallsufos auftreten, d.h. sie können nur gezielt über Skripte erstellt werden (es sei denn man benutzt Skripte um das UFO nachträglich aktiv zu schalten, sowas mache ich z.B. im galaktischen Krieg)

Na sooo kompliziert möchte ich das als Anfänger noch nicht machen ^^

Meine Absicht ist, ein einziges Alien in diesem Raumschiff unterzubringen. Mir ist dabei die Funktion (oder Prozedur - wie auch immer (;) aufgefallen, als ich nach einem Weg gesucht habe ein Alien diesem Raumschiff zuzuweisen.

Dabei möchte ich auf ein Alien zurückgreifen, dass im Editor vorhanden ist (...und noch keinem Raumschiff zugewiesen ist) Dazu benötige ich also TUFO.AddAlien? oder muss da noch was mit der ID gemacht werden?

Das AddAlien braucht die ID um zu wissen, welches Alien addiert werden soll...
Und für ein einzelnes UFO solltest Du das wirklich im TUFO und nicht im TUFOModell machen.

Das hab ich nicht gewusst. Dann heißt das dann: TUFO.AddAlien := ID ?



ich versuch das mal vorläufig so. Ich muss erstmal bisschen Grundwissen sammeln und guck zuerst mal ob diese Form des Scriptes funzt :) Dann werd ich was anderes ausprobieren.

Nein.
AddAlien ist eine Funktion und erwartet als Parameter die ID. Also TUFO.AddAlien(ID). Und statt TUFO musst du natürlich deine UFO Variable nehmen ;)

Ahhhh, da hab ich wieder mal Funktion mit Prozedur verwechselt (ich Anfänger >.< xD) ;)

Danke für die Hilfe ^^ Werd das ganze Zeuch mal testen...

Ähh. MMh. Ob Prozedur oder Funktion ist egal. Entscheidend ist nur, dass ID ein Parameter von AddAlien ist und Parameter werden in Klammern übergeben.

Ich habe mich übrigens falsch ausgedrückt. Korrekterweise wäre AddAlien eine Prozedur, da es keinen Rückgabewert hat.
Aber ich will dich nicht zu sehr verwirren ^^

Sagen wir doch einfach, es ist eine Methode von TUFO...


dito ;)

Mir war klar dass ich mit meinen vorigen Post nicht richtig lag ;)



Nana glaub nicht, dass ich absolut NULL Ahnung habe, den Tutorial hab ich mir einige Male angeschaut ;)

Any team would be lucky to have you on it. https://homehealthcarewacotx.com

Good article, but it would be better if in future you can share more about this subject. Keep posting. metalbuildingsbatonrouge.com