Ware verteilen brauche hilfe !!

[ThalonMook]

Hallo Leute,

ich Spiele X2 jetzt seit ca 4 Monaten. Habe auch schon einige Scripte am laufen. Hab dei meisten von Scripting Center und dann halt an die deutsche Version angepasst.

XaiCorp Jumpdrive V3.1
KriMe SDS V2
BHP V1.26
SDMPNet v0.99
ZZ Adv. Salesman
und ein paar kleinere Scripts (BuyWareLoop, Hoechtpreisfinder usw.)

Jetzt zu meinem Problem:

Ich habe 4 Silizium Minen in Erzgürtel und möchte ein Schiff haben das von 3 oder mehr Minen Silizium abholt und es dann zu einer Siliziummine bringt.

Grund: Dort wartet ein Frachter der, wenn das Lager voll ist die Waren zum höchst möglich Preis verkauft. (Mit Jumpdrive!!)

Ich habe schon auf allen möglichen Seiten nachgeschaut aber noch kein Script gefunden das Waren frei verteilt.

Wer kann mir da helfen ???

Vielleicht kann man ja das BuyWareLoop Script umschreiben muss ja nur umgekehrt laufen .

Hier der Link zu dem Script http://www.tzd-webdesign.de/software/buyloop.zip

Ok schon mal Danke....

Thalon

[ThalonMook]

Iss denn keiner hier der mir helfen möchte ???????

[ticaki]

Code: Select all

Arguments
1: inputarr , Var/Station and Product , 'Station and product' 
1: inputarr1 , Var/Station and Product , 'Station and product' 
1: inputarr2 , Var/Station and Product , 'Station and product' 
1: inputarr3 , Var/Station and Product , 'Station and product' 
2: numloops , Number , 'Number of loops' 

000 $warelist = array alloc = 0
000 $stationlist = array alloc = 0

001   $ware = $inputarr[0]
002   $station = $inputarr[1]
append $ware to array $warelist
append $station to array $stationlist
001   $ware = $inputarr1[0]
002   $station = $inputarr1[1]
append $ware to array $warelist
append $station to array $stationlist
001   $ware = $inputarr2[0]
002   $station = $inputarr2[1]
append $ware to array $warelist
append $station to array $stationlist
001   $ware = $inputarr3[0]
002   $station = $inputarr3[1]
append $ware to array $warelist
append $station to array $stationlist

004   if not [HOMEBASE]
005    $msg = 'Ship does not have assigned home base!'
006    send incoming message $msg to player: display it=[FALSE]
007    return null
008   end
009   
010   skip if $numloops > 0
011    $numloops = 99999
012   
013   $count = 0
014   
015   while $count < $numloops
000   a = count mod 4
000   $station = $stationlist[a]
000   $ware = $warelist[a]
016 @  = [THIS] -> call script '!ship.cmd.getware.std' :  ware=$ware  trade partner=$station  amount=null  max price=null  stay if unable to buy=null
017    inc($count)
018 @  = wait randomly from 100 to 200 ms
019   end
020   
021   return null

Bitte schön! sollte 4 Stationen abfliegen und jeweils die ausgewählte Ware einkaufen und bei der Heimatbasis ausladen.

Gruß ticaki

[ThalonMook]

Vielen Dank !!!

Werd ich heute abend mal testen....
(endlich mal ein Wochenende an dem ich X2 durch zocken kann !!)

eine frage zur Zeile 16

016 @ = [THIS] -> call script '!ship.cmd.getware.std' : ware=$ware trade partner=$station amount=null max price=null stay if unable to buy=null

wartet der TS dann bis was da ist oder nicht ??

Bis denn Thalon

[ticaki]

NULL ~ 0
0 = [false]
[false] = falsch oder Nein

Gruß ticaki