Benutzer:Schnobs/Skripte

Jawoll, ich will's versuchen. Mal sehen, was dabei rauskommt. Als erstes Projekt habe ich mir ein Skript vorgenommen, daß automatisch Satelliten aufstellt (und zerstörte Satelliten ersetzt).

Hier der Plan. Kommentare sind herzlich willkommen.

Funktionsumfang

oder
Was geht und was nicht geht

Dies ist ein sehr schlichtes Skript, um in einem bestimmten Bereich Satelliten aufzustellen. Das Schiff plaziert Satelliten in allen Sektoren des Einsatzgebietes, und ersetzt verloren gegangene. Die erforderlichen Satelliten werden (ebenfalls innerhalb des Einsatzgebietes) günstigst eingekauft.

Dieses Skript richtet sich an den aufstrebenden Jungunternehmer: der Funktionsumfang ist bescheiden, mit Problemen kann es nicht umgehen. Dafür entstehen auch keine weiteren Kosten, keine Gebühr pro aufgestelltem Satellit oder sowas. Die Satelliten und das Schiff sind schon teuer genug.

Bedienung:
Bei Start wird man gebeten, eine Station auszuwählen: das Basislager. Dies ist keine Heimatbasis im eigentlichen Sinne, sondern lediglich der Parkplatz, den das Schiff anfliegt, wenn es sonst nichts zu tun hat. Insofern tut es jede Station, auf der man andocken kann.

Weiterhin wird man gefragt, welche Art von Satellit man verteilen will: E = Erweitert, alle anderen Eingaben = Navigationssatellit.

Zu guter letzt soll man noch eine Sprungweite angeben. Der Ausgangspunkt ist der Sektor, in dem sich das Basislager befindet. Das Einsatzgebiet wird aus der Sprungweite in Verbindung mit den Freund/Feind-Einstellungen berechnet. Beispiel: Basislager ist die Handelsstation in Argon Prime, Sprungweite ist 7, alle außer den Argonen sind Feinde. Ergebins: das Einsatzgebiet sind die sog. "Argonischen Kernsektoren".

Die Einbeziehung der Freund/Feind-Einstellungen ermöglicht eine recht sinnvolle Abgrenzung des Einsatzgebietes. Es wird einmal berechnet und dann als Liste gespeichert; es ließe sich also mit relativ wenig Aufwand ein Skript basteln, das einzelne Sektoren zur Liste hinzufügt oder daraus entfernt. Wenn man die F/F-Einstellungen später ändert, hat das KEINE Auswirkungen auf den Einsatzbereich!

Was geschieht:
Alle fünf Mizuras werden die Sektoren im Einsatzbereich abgeklopft. Wenn sich in einem Sektor kein Spieler-Satellit befindet, fliegt das Schiff hin und plaziert einen Satelliten in der Mitte des Sektors deutlich oberhalb der Ekliptik. Es kann mehrere Satelliten hintereinander aufstellen, ohne jedesmal zum Basislager zurückzukehren.

Wenn ihm die Satelliten ausgehen, versucht es innerhalb des Einsatzgebietes neue zu beschaffen. So billig wie möglich zwar, aber erforderlichenfalls werden Spitzenpreise gezahlt. Falls das aus welchem Grund auch immer nicht klappt: Kein Geld auf dem Spielerkonto? Keine Station im Einsatzgebiet handelt mit den erforderlichen Satelliten? Keine Andockerlaubnis irgendwo? Das Skript kennt das alles nicht. Es weiß nur daß immer noch keine Satelliten geladen hat, wartet ein paar Mizuras und versucht es erneut. Wenn es über längere Zeit keine Satelliten einkaufen kann, wird ca. einmal pro Stunde eine Nachricht an den Spieler geschickt, während das Schiff es einfach immer weiter versucht.

Also, nochmal zum mitschreiben: das Skript ist schlau genug, ohne Satelliten gar nicht erst zu starten. Und das ist die einzige Intelligenz, die es hat. Andere Probleme werden nicht einmal erkannt.

Ablauf (hier brauche ich Hilfe)

Start

Script plugin.satdrop.start
Version: 0
for Script Engine Version: 25
Description
Asks for relevant values, starts Sat deployment loop
Arguments                                                                                                                  

    * 1: Camp , Var/Station , 'Select Base Camp'
    * 2: SatType , Var/Number , '0 NavSat, alles andere Erw.Sat'
    * 3: Range , Var/Number , 'max. Jump Range'

Source Text

001   $PageID = get global variable: name=$pageID.satdrop
002   
003   * Created by Schnobs, July 2007
004   * Automatic Satellite Deployment, startup script
005   
006   if $SatType == 0
007    $SatType = Navigationssatellit
008   else
009    $SatType = Erweiterter Satellit
010   end
011   
012   * Andockerlaubnis am Basislager
013   
014   if not [THIS] -> is docking allowed at $Camp
015    play sample 1248
016    write to player logbook: printf: pageid=$PageID textid=1, $Camp, null, null, null, null
017    return null
018   end
019   
020   * sind schon Satelliten im Kofferraum
021   if not [THIS] -> get amount of ware $SatType in cargo bay
022   * aha. Ist denn wenigstens genug Platz
023    if not [THIS] -> get free amount of ware $SatType in cargo bay
024     play sample 1253
025     write to player logbook: printf: pageid=$PageID textid=2, $SatType, null, null, null, null
026     return null
027    end
028   end
029   
030   * ----ab hier werden die Sektoren durchgegangen----
031   * erstmal ein paar variablen
032   * wie gross ist das Universum
033   $uniX = get max sectors in x direction
034   $uniY = get max sectors in y direction
035   
036   * und wo bin ich gerade
037   $CampSector = $Camp -> get sector
038   $homeX = $CampSector -> get universe x index
039   $homeY = $CampSector -> get universe y index
040   $SectorList =  array alloc: size=0
041   
042   
043   * kleineren bereich abstecken...
044   
045   $minX = $homeX - $Range
046   skip if $minX >= 0
047    $minX = 0
048   $maxX = $homeX + $Range
049   skip if $maxX <= $uniX
050    $maxX = $uniX
051   
052   $minY = $homeY - $Range
053   skip if $minY >= 0
054    $minY = 0
055   $maxY = $homeY + $Range
056   skip if $maxY <= $uniY
057    $maxY = $uniY
058   
059   * und jetzt fuer min max XY pruefen...
060   
061   $x = $minX
062   while $x <= $maxX
063    $y = $minY
064    while $y <= $maxY
065     $tempSec = get sector from universe index: x=$x, y=$y
066     $tempdist = get jumps from sector $CampSector to sector $tempSec
067     $known = $tempSec -> is sector known by the player
068     $nmy = [THIS] -> is $tempSec a enemy
069     if $tempdist <= $Range AND $known == [TRUE] AND $nmy == [FALSE]
070      
071   * Sektor dem Array hinzufuegen
072      append $tempSec to array $SectorList
073      
074   * ende der eigentlichen tests
075     end
076     
077   * y hochsetzen, y-Schleife beenden
078     inc $y = 
079    end
080    
081   * Ende der x-Schleife
082    inc $x = 
083   end
084   
085   * an dieser Stelle sollte eine Sektorenliste vorliege
086   * nun die Liste ins Log schreiben
087   
088   
089   $i = 1
090   $numSectors =  size of array $SectorList
091   $tempSec = $SectorList[0]
092   $msg = $tempSec
093   while $i < $numSectors
094    $tempSec = $SectorList[$i]
095    $msg = $msg + ', ' + $tempSec
096    inc $i = 
097   end
098   
099   write to player logbook: printf: pageid=$PageID textid=3, $SatType, $Camp, $msg, null, null
100   
101   
102   * variablen exportieren un das eigentliche skript aufrufen.
103   [THIS] -> set local variable: name=$SectorList value=$SectorList
104   [THIS] -> set local variable: name=$SatType value=$SatType
105 @ = [THIS] -> call script 'plugin.satdrop.main' :  Basislager=$Camp  Nav. oder Erw. satellit=$SatType
106   * callscript
107   return null

Sektoren überprüfen

Script plugin.satdrop.main
Version: 0
for Script Engine Version: 25
Description
Satellite Deployment, main program loop
Arguments

    * 1: Camp , Var/Station , 'Basislager'
    * 2: SatType , Var/Ware , 'Nav. oder Erw. satellit'

Source Text

001   
002   
003   
004   
005   * dies ist eine Endlos-Schleife
006   while [TRUE]
007   START:
008   * Sektorenliste aktualisieren
009    $SectorList = [THIS] -> get local variable: name=$SectorList
010    
011   * sind ueberhaupt Satelliten an Bord
012   * nicht vergessen, alles ausser 0 ist wahr...
013    skip if [THIS] -> get amount of ware $SatType in cargo bay
014   * FEHLT einkaufskript starten
015    
016    
017    $i.sec = 0
018    $sector.count =  size of array $SectorList
019    while $i.sec < $sector.count
020     $tempSec = $SectorList[$i.sec]
021     
022   * falls wir keinen Nav.Sat finden...
023     skip if  find ship: sector=$tempSec class or type=Navigationssatellit race=Player flags=null refobj=null maxdist=null maxnum=null refpos=null
024   * und auch keinen Erw.Sat...
025     skip if  find ship: sector=$tempSec class or type=Erweiterter Satellit race=Player flags=null refobj=null maxdist=null maxnum=null refpos=null
026   * sofort aus der Schleife ausbrechen.
027     break
028     
029     
030   * wenn wir bis hier kommen, ist ein Satellit vorhanden.
031   * deshalb wird tempSec geloescht, i hochgesetzt, naechster Sektor bitte.
032     $tempSec = null
033     inc $i.sec = 
034    end
035    
036    
037   * wenn tempSec einen Wert hat, wurde oben kein Sat gefunden...
038    if  is datatyp[ $tempSec ] == [SECTOR]
039   * FEHLT script hingehen und satellit aussetzen
040     
041   * und zurueck auf los. Wir schauen uns die restlichen
042   * Sektoren an, noch bevor wir nach hause fliegen.
043 @   = wait randomly from 0 to 5000 ms
044     goto label START
045    end
046    
047    
048   * wenn wir hier ankommen, gibt es derzeit nichts weiter zu tun.
049   * aber wenn wir im raum sind, gab es was zu tun.
050   * brauchen wir nachschub an satelliten
051    if not [THIS] -> is docked
052     $sat.count = [THIS] -> get amount of ware $SatType in cargo bay
053     skip if $sat.count > 1
054   * FEHLT einkaufscript aufrufen
055 @   = wait randomly from 0 to 5000 ms
056     goto label START
057    end
058    
059    
060   * wenn wir hier ankommen, wars ein nullrunde
061   * machen wir halt 5 Mizuras Pause...
062 @  = wait 300000 ms
063   * ...plus zusatzzahl
064 @  = wait randomly from 0 to 5000 ms
065   end
066   return null

Satelliten einkaufen

Dazu würde ich gerne auf die "Manuellen Handelsbefehle" (Skript im Bonuspack) zurückgreifen. Die Sprungweite würde dann von der Einstellung des Einsatzbereiches übernommen. Ein potentielles Problem besteht darin, daß für ein vernünftiges Einkaufsverhalten bereits einige Satelliten verteilt sein sollten...

Der Rest

Ziel Anfliegen, Satellit erzeugen, ggf zurück zum Parkplatz. Nichts davon sollte ein Problem sein.