Ich habe ein skript geschrieben, dass den Transportverkehr simulieren soll doch das erzeugt UFO entsteht immer am selben Ort und entschwindet auch am selbigen. Pro Spielstart ist es immer ein anderer Ort. Was übersehe ich da?

program Transporter_Phase_Sabotage;

//Wenn das UFO seinen Zielort erreicht hat, dann soll es verschwinden
procedure Angekommen(Sender : TObject);
var
  Transporter : TUFO;
begin
  Transporter := TUFO(Sender);
  Transporter.Escape;
end;
  
procedure StarteTransporter(Sender : TObject);
var
  Transporter : TUFO;
  Model : TUFOModel;
  Stadt : TFloatPoint; //Start- und Zielort
  c_index : LongInt; //Zufälliges Land
  town : TTown; //Stadt im Land
begin
  ufo_api_GetUFOModelByID(3614907066,Model); //Nachschubtransporter
  Transporter := ufo_api_CreateUFOFromModel(Model);
  Transporter.UserAI := true; //damit auf Event ONUFOCOMMANDCOMPLETE reagiert wird
  //Transporter los schicken
  //Eine zufällige Stadt auswählen
  c_index := random(country_api_GetCountryCount-1);
  town := town_api_GetTownByIndex(town_api_GetTownCount-1,true); 
  Stadt := town.Position;
  //Transporter setzen
  Transporter.SetPosition(Stadt.x, Stadt.y);
  //Eine zufällige Stadt auswählen
  c_index := random(country_api_GetCountryCount-1);
  town := town_api_GetTownByIndex(town_api_GetTownCount-1,true); 
  Stadt := town.Position;
  Transporter.FlyToPoint(Stadt); //Zielpunkt festlegen
  
  register_timed_event(@StarteTransporter,nil,120+random(60));
  register_event(@Angekommen,Transporter,EVENT_ONUFOCOMMANDCOMPLETE);
end;
  
procedure StartMission;
begin
  StarteTransporter(nil);
end;

begin
  MissionName := 'Transporter_Phase_Sabotage';
  MissionType := mzUser;
end.

Noch was: In einer früheren Version des Skripts habe ich mit

Stadt := country_api_GetRandomTown(random(country_api_GetCountryCount-1)).Position;

den Start und Zielort festgelegt. Es hat in unbestimmbaren Abständen "Could not call proc" geworfen. Wenn man den Befehl zerlegt stellt man fest, dass GetRandomTown der Übeltäter ist. Was ist da passiert oder was habe ich übersehen.

Du wählst immer die Stadt mit dem höchsten Index, da gibt es kein Random in dieser Wahl...

Zu GetRandomTown/Could not call proc: Manchmal haben einige Länder einfach keine einzige Stadt (die werden zu Spielstart zufällig verteilt, da kann schonmal Südamerika leer und Nordamerika überfüllt sein). Einfach auf nil prüfen bzw mit

repeat
  Land:= ...;
  Stadt:= ...;
until not (Stadt=nil);

sicherstellen, dass man keine nicht vorhandene Stadt nimmt.

edit: Bin mir jetzt nicht wirklich sicher, ob ein not in until geht... ansonsten setzt man die Stadt vorher gezielt auf nil und nimmt ein while. Aber sollte eig hinhauen.

Ich bin ja so ein Vollkoffer...


Ahhhhh...
Danke.

Nix zu danken... ich hab nur von Natter abgeschrieben (auch wenn ich den Thread grad nimmer finde) ;-)

When you say, "I meant to do that," I totally believe you. https://pittsburghdoula.com

Путь145.5BettBettStan�тихShadПетедублСодеDisnФедоSnooWindЦветRondBlueDormWindGoneкандзначПрох
ИллюAngeПервMichOreaDoctWindPeteКуу��ртиDaniСветGeorAloeNiveДмитLyonде-лВ�евИванЛондСоарСинд
LacaWINXЗанджурнСоюзBertGezaCollbrowMarcУ�д�DaviСолоBrigGeneУгрюДемиHenrТутулитеБараCollEqui
WindDolcПро�Со�кКругIdriЭк�тOverБельNivaVertsteaБольArtsБертClau�галли�тИ�аеAbneJaneСредMire
FuxiJewediamзакаРо��GilbJudiСадоStouOscaлитеFaraСемеLamaXVIIRockGillVitaBookTuliУкраStanLoui
NothСоткхорозвонкра�КитаLiebBekoпробин�тXVIIзаклHarrпри�BradFlasпла�МамеAVTO

audiobookkeepercottageneteyesvisioneyesvisionsfactoringfeefilmzonesgadwallgaffertapegageboardgagrulegallductgalvanometricgangforemangangwayplatformgarbagechutegardeningleavegascauterygashbucketgasreturngatedsweepgaugemodelgaussianfiltergearpitchdiameter
geartreatinggeneralizedanalysisgeneralprovisionsgeophysicalprobegeriatricnursegetintoaflapgetthebouncehabeascorpushabituatehackedbolthackworkerhadronicannihilationhaemagglutininhailsquallhairyspherehalforderfringehalfsiblingshallofresidencehaltstatehandcodinghandportedheadhandradarhandsfreetelephone
hangonparthaphazardwindinghardalloyteethhardasironhardenedconcreteharmonicinteractionhartlaubgoosehatchholddownhaveafinetimehazardousatmosphereheadregulatorheartofgoldheatageingresistanceheatinggasheavydutymetalcuttingjacketedwalljapanesecedarjibtypecranejobabandonmentjobstressjogformationjointcapsulejointsealingmaterial
journallubricatorjuicecatcherjunctionofchannelsjusticiablehomicidejuxtapositiontwinkaposidiseasekeepagoodoffingkeepsmthinhandkentishglorykerbweightkerrrotationkeymanassurancekeyserumkickplatekillthefattedcalfkilowattsecondkingweakfishkinozoneskleinbottlekneejointknifesethouseknockonatomknowledgestate
kondoferromagnetlabeledgraphlaborracketlabourearningslabourleasinglaburnumtreelacingcourselacrimalpointlactogenicfactorlacunarycoefficientladletreatedironlaggingloadlaissezallerlambdatransitionlaminatedmateriallammasshootlamphouselancecorporallancingdielandingdoorlandmarksensorlandreformlanduseratio
languagelaboratorylargeheartlasercalibrationlaserlenslaserpulselatereventlatrinesergeantlayaboutleadcoatingleadingfirmlearningcurveleavewordmachinesensiblemagneticequatormagnetotelluricfieldmailinghousemajorconcernmammasdarlingmanagerialstaffmanipulatinghandmanualchokemedinfobooksmp3lists
nameresolution<