Sektorkarte in Handelsstation erwerben....

[m.demon]

Da ich nich jedes mal erst alle Sektoren besuchen will, habe ich mal angefangen zu Scripten.
Naturlich gibt es schon einiges dieser Art, aber ich will es selber machen
Alle Sektoren aufdecken -> dazu wird Temporär ein ESat stationier. Dieser verschwindet dann natürlich wieder.... Die Kosten für diesen Service sollten so ca bei 300.000 - 400.000 Credits liegen (angemessen für den Zeitgewinn). Die Funktion soll dann als Message/Auftrag in den Handelsstationen abrufbar sein.

Kann mir mal einer verraten warum das Script sich in einer Schleife aufhängt ?

Code: Select all

001   $iPosX = 0
002   $iMaxX = get max sectors in x direction
003   $iMaxY = get max sectors in y direction
004   while $iPosX < $iMaxX
005    $iPosY = 0
006    while $iPosY < $iMaxY
007     $sSektor = get sector from universe index: x=$iPosX, y=$iPosY
008     while not $sSektor == null
009   * Sektor gefunden - Temporaer ein ESat erzeugen
010      $oShip =  create ship: type=Erweiterter Satellit owner=Player addto=$sSektor x=0 y=0 z=0
011   * Objekt wieder entfernen
012  
013     free sector object $oShip
014      
015     end
016     $iPosY = $iPosY + 1
017    end
018    $iPosX = $iPosX + 1
019   end
020   return null

[ticaki]

Da ich nich jedes mal erst alle Sektoren besuchen will, habe ich mal angefangen zu Scripten.
Naturlich gibt es schon einiges dieser Art, aber ich will es selber machen
Alle Sektoren aufdecken -> dazu wird Temporär ein ESat stationier. Dieser verschwindet dann natürlich wieder.... Die Kosten für diesen Service sollten so ca bei 300.000 - 400.000 Credits liegen (angemessen für den Zeitgewinn). Die Funktion soll dann als Message/Auftrag in den Handelsstationen abrufbar sein.

Kann mir mal einer verraten warum das Script sich in einer Schleife aufhängt ?

Code: Select all

001   $iPosX = 0
002   $iMaxX = get max sectors in x direction
003   $iMaxY = get max sectors in y direction
004   while $iPosX < $iMaxX
005    $iPosY = 0
006    while $iPosY < $iMaxY
007     $sSektor = get sector from universe index: x=$iPosX, y=$iPosY
008     if $sSektor 
009   * Sektor gefunden - Temporaer ein ESat erzeugen
010      $oShip =  create ship: type=Erweiterter Satellit owner=Player addto=$sSektor x=0 y=0 z=0
011   * Objekt wieder entfernen
012  
013      $oShip -> destruct: show no explosion= TRUE
014      
015     end
016     inc $iPosY = 
017    end
018    inc $iPosX = 
019   end
020   return null

while bedeutet soviel wie "Führe diese Schleife aus solange"

und Zeile 013 ist nicht richtig... benutze dort

Code: Select all

6.076 <RefObj> destruct: show no explosion=<Var/Number>

desweiteren kann man z016 imd z018 noch etwas tunen mit

Code: Select all

1.002 inc <RetVar> = 

habs verbessert!

Gruß ticaki

[m.demon]

hat funktioniert...

tnx

[Joe Black]

Moin

kannst das Script auch zur verfügung stellen würde auch gerne alle sektoren sehen


gruß Joe

[m.demon]

@joe
Das Script ist leider noch nicht komplett. Jetzt muss erst einmal das init Script her.

Wie kann ich von einer eingehenden Meldung bzw einer News abfragen ob die Option Kaufen ausgewählt worden ist ? Und wichtiger noch wie bekomme ich die News umgehend auf die Stationen... ich kann Sie zwar mit set state of news... auf verfügbar stellen, nur erscheint die dann vieleicht mal Irgentwann auf eine der Stationen. (Ist zum Testen jedoch nicht so toll)



bsp Auszug aus dem Pagefile

Code: Select all

<t id="8">[author]ISN Network[/author][text cols='1'][justify]\033YHaben Sie Interesse an aktuellen Sektorenkarten?\033Z\n\nEs kostet lediglich %s Credits. Ich biete Informationen ueber \033Yalle\033X Sektoren an.[/justify][center][select value='accept']Karte Kaufen[/select][/center]\ngez. Ferd Harling[/text]</t>

Es muss doch möglich sein den Status der Select-Abfrage herrauszufinden...

state of news article bringt als Rückmeldung nur "0".