UFOCast := Integer(UFO);

Was bewirkt denn da das integer? Wir können ja nicht nur ne Nummer speichern.

Doch, genau das machen wir. Die Variable UFO ist eigentlich nur ein Verweis auf ein Objekt im Spiel (die Variable UFO ist also nicht das Objekt UFO selbst). Kannst dir das so vorstellen, dass in einer UFO-Variablen eigentlich nur die Information über den Speicherort des eigentlichen UFOs gespeichert ist - und dafür reicht eine Nummer. Aber vielleicht kann dir das einer der Programmierer noch exakter erklären.

Jetzt ist das UFO rumgeflogen OHNE eine Landung zu machen. O.o
Bis jetzt kam eine Fehlermeldung ja immer erst nachdem der Bodeneinsatz abgelaufen war.

Kein wunder - eine Landung geht ja nur über Land. Wenn dein UFO auf dem Ozean startet, dann klappt das nicht. Musst einfach so oft probieren (= Skript erneut starten), bis du über Land bist.

if (earth_api_PointOverLand(UFO.Position)=true) then
              begin
                Zwischenlandung(UFO);
                UFO.KIStep:= 9-Flugzahl2;
                Landezahl:= Landezahl-1;
              end
            else UFO.FlyToPoint(PositionNear(UFO.position,20));

DU liegst aus mehreren Gründen falsch.
1. Wo das UFO startet ist egal - es fliegt ja erstmal herum.
2. Der Ausschnitt, den du gezeigt hast, sagt doch aus, dass das UFO so lange fliegt, bis es mal über Land ist beim Bewegungsende. Ich habe ein UFO beobachtet, das 5 Mal über Land eine Richtungsänderung gemacht hat - damit hätte es mind. 1 Mal landen müssen, da meine Zahlen nur bis 4 gehen.
3. Habe ich den Eindruck gehabt, die KI wurde teilweise durch die Standard-KI ersetzt. Ich hatte einmal eine Infiltrations-Meldung, und ein UFO ist nacheinander 3 Städte angeflogen - was mit meinem script nicht möglich ist. Selbst wenn die Richtungen richtig wären, war die Entfernung viel zu klein.

Nein, das Problem ist ein Missverständnis. Ich teste momentan nur in medit. Dort bringt es aber herzlich wenig, wenn die UFOs eigentlich herumfliegen - in medit ändert sich die Position nicht wirklich, wenn die über Wasser starten, dann bleiven die über Wasser.

Im Spiel hab ich das noch nicht probiert - ist ja auch aufwendiger, da müsste ich einen kompletten Spielsatz anpassen, um ein UFO mit dieser KI aufzurufen.

Ich kann ihn hochladen, kein Problem. Ich muss eh einen tester-Spielsatz anlegen, von daher ist das sowieso geplant - ich hatte nur gehofft, das KI-script noch hinzukriegen :D.
Du kannst doch auch mein Dark Age Forum sehen, richtig? Dann mache ich das gleich.

Link ist drin.

Hmm, erstmal hast du versehentlich UFO.UserKI:=true; mit auskommentiert - das könnte eventuell schon alles erklären.

Zumindest klappt es bei mir auch im Spiel, nachdem ich die Zeile wieder aufgenommen hab.

Dann seh ich aber noch ein Problem. Dein UFO bleibt endlos stehen, wenn man den Bodeneinsatz erledigt (du reagierst ja nur auf die Zeitüberschreitung).

Das war mein letzter aber älterer Stand des Wissens - und es wurde nie ausdrücklich gesagt das die Variablen jetzt auch im Editor funktionieren;-)


Ich benutze das um ein Objekt an ein anderes Skript zu übergeben, da hilft keine globale Variable bei.

Es funktioniert solange eine von zwei Bedingungen erfüllt ist: Entweder man muss die Variable sofort auslesen bevor man den Geoscape weiterlaufen lässt (so mache ich das im UKI), oder es dürfen keine zwei UFOs mit demselben Skript unterwegs sein (klappt z.B. bei Spezialmissionen).

LennStar wird wohl tatsächlich in einer globalen Variablen Zwischenspeichern müssen - oder warten bis die UFOs weggeschaltet werden können.


Und für das Problem des stehenbleibens müsste er einfach nur die beiden anderen Events für Sieg und Niederlage im Bodeneinsatz registrieren, die könnten sogar auf die gleiche Funktion zeigen.

Ups... peinlich.
Trotzdem komisch, die KI war auf jeden Fall eine andere als die "greife Basis" an, die bei "normalen" UFOs läuft.

Bei mir gab es übrigens einen Absturz als das UFO (wahrscheinlich) über Wasser zur zweiten Landung ansetzte.


Das ist ja kein großes Problem. register, UFO.escape, fertig.


Willst du mir jetzt Angst machen oder was? Was ist denn jetzt schon wieder?

Das was Du die ganze Zeit willst - UFOs verschwinden lassen ohne sie zu löschen...

Mir wär lieber, wenn es jetzt überhaupt einmal läuft. Doch dazu müsste ich wissen, warum das Spiel beim zweiten Landeversuch über Wasser abstürzt.
Da fällt mir ein, über Land ist noch nicht ausprobiert.

Über Land gings aben, aber über Wasser ist es wieder abgeschmiert.

der zweite von wievielen Landeversuchen, und bei welcher Zeile genau kommt der Absturz?

Korrektur: War nur Zufall. Es liegt am escape. Immer da stürzt das Spiel ab.

Außerdem hab ich einen kleinen Fehler der Flugzahl entdeckt, aber das ist nebensächlich. Am Ende ist das UFO einmal zu oft geflogen.



Zwei Mal bei der zweiten und einmal bei der dritten Landung (da hats zuvor über Land zwei Mal geklappt). Von wie viel kann ich nicht sagen. Zeile auch nicht. Ich hab aber jede Menge error.txt's.

Normalerweise sollte das dann nicht abstürzen, da das Skript ja damit beendet ist (registriertes UFO gelöscht durch letzten Befehl in der CommandComplete-Funktion.

Mail mal 2-3 der error.txt

Und versuch mal folgendes:
- in Startmission:
var
UFOEvent:TEvent;

ergänzen. weiter unten

UFOEvent:=register_event(@UKICommandComplete, UFO, EVENT_ONUFOCOMMANDCOMPLETE);

und
19: begin
UFO.Escape;
UFOEvent.free;
end;

unknown identifier "UFOEvent" bei 19:


funktioniert das denn mit 2 Mal register(@UFOCo...)? oder soll ich ds erste rausnehmen?

register_event(@UKICommandComplete, UFO, EVENT_ONUFOCOMMANDCOMPLETE);
UFOEvent:=register_event(@UKICommandComplete, UFO, EVENT_ONUFOCOMMANDCOMPLETE);

natürlich das erste ersetzen.
Und das Event dann doch global statt lokal definieren, sorry.

Keine Veränderung, stürzt immer noch ab.

Hab mir das jetzt mal genauer angeschaut. Ist letztlich wohl ein Fehler in X-Force. CommandComplete wird noch aufgerufen, wenn das UFO entkommen ist. Eventuell wurde das in Zusammenhang mit 1612 schon behoben (gleiches Problem gabs bei register_timed_event).

Als Übergangslösung (oder um auf der sicheren Seite zu sein), kannst du das ganze aber selbst abfangen. Einfach in UKICommandComplete auf Nil prüfen:

  if (not (Sender = Nil)) then
  UFO:=TUFO(sender);
  if (not (UFO = Nil)) then
  case UFO.KIstep of