Bonjour!
Bien dormi et bien joué? ^^
Bon ton script est fonctionnel. Je ne vais pas tout démolir, ça ne serait ni constructif ni plaisant.
Je ne suis pas un maitre du scripting non plus, je ne suis qu'un initié dirons-nous. (j'ai ma propre idole du scripting... ^^ )
Bref tout ça pour dire que si ton code est bon il pourrait être améliorable. Si tu veux savoir quoi, je te dirais, sinon je laisse.
Un truc qui m'a fait tiqué par contre:
Tu utilises le display subtitle (DS) et le write player logbook (WPL). Les deux n'écrivent pas au même endroit.
A savoir : en ligne 16 tu utilise un WPL alors qu'aux autres lignes de test d'applicabilité du script tu utilises un DS.
C'est pas encore gênant, mais si tu fais comme pour tes lignes 57 à 59 (inclue) ça ne vas pas marcher : une partie du message sera inscrite dans le Log une autre en sous titré...
[edit] Autant pour moi c'est deux messages différents, mais celui du Log ne va pas marcher...
Pour afficher un message avec une variable contenue dedans il faut utiliser la commande:
$msg = sprintf: pageid=8874 textid=6, $station, null, null, null, null
avec
display subtitle text: text=$msg duration=2000 ms (ou write to player logbook $msg)
ou
write to player logbook: printf: pageid=8874 textid=6, $station, null, null, null, null
avec dans ton fichier t
<page id="8874" title="stocktodock" descr="">
<t id="6">Attention le transport docké à %s est plein</t>
</page>
Le %s est remplacé par ta variable.
Comme tu peux remarquer que la commande peux utiliser 5 variables, tu peux donc en mettre 5 dans ton message:
<t id="6">Attention! Le transport %s de stokage de %s docké à %s dans le secteur %s est plein</t>
write to player logbook: printf: pageid=8874 textid=6, [THIS], $Ware, $Station, [SECTOR], null
Ou pour les sous titres:
$msg = sprintf: pageid=8874 textid=6, [THIS], $Ware, $Station, [SECTOR], null
display subtitle text: text=$msg duration=2000 ms
Après, bien le wait! ^^
Au moins le message n'apparaitra que toutes les minutes!
main:
* cette partie n'est lu que lors du lancement du script
$ware.volume = get volume of ware $ware
$environement = [THIS]->get environment
$ware.class = get transport class of ware $ware
$cargo.class = [THIS]->get max. ware transport class
if $environement->is of class {Station}
$station.owner = $environement->get owner race
if not $station.owner == {Joueur}
$speak = read text: page=8874 id=1
display subtitle text: text=$speak duration=2000 ms
goto label end
end
if $cargo.class < $ware.class
$speak = read text: page=8874 id=2
write to player logbook $speak
goto label end
end
$station.ware = $environement->get product ware
$station.ware = array alloc: size=50
$station.ware = $environement->get tradeable ware array from station
$i = 0
while not $i > 50
$station.ware.test = $station.ware[$i]
if $station.ware.test == $ware
$speak = read text: page=8874 id=3
display subtitle text: text=$speak duration=2000 ms
goto label stockage
end
inc $i =
end
if $i > 50
$speak = read text: page=8874 id=4
display subtitle text: text=$speak duration=2000 ms
goto label end
end
else
$speak = read text: page=8874 id=5
display subtitle text: text=$speak duration=2000 ms
goto label end
end
* boucle de stockage
stockage:
= wait 60000 ms
$cargo.free = [THIS]->get free volume of cargo bay
$station.stock = $environement->get amount of ware $ware in cargo bay
$stock.volume = $ware.volume * $station.stock
$station = [THIS]->get environment
skip if $station == $environement
goto label end
if $stock.volume <= $cargo.free
= [THIS]->add $station.stock units of $ware
$station.stock = -1 * $station.stock
= $station->add $station.stock units of $ware
else if $cargo.free < $ware.volume
write to player logbook: printf: pageid=8874 textid=6, $station, 7, null, null, null
$speak = read text: page=8874 id=8
display subtitle text: text=$speak duration=2000 ms
play sample 924
else
$station.stock = $cargo.free / $ware.volume
= [THIS]->add $station.stock units of $ware
$station.stock = -1 * $station.stock
= $station->add $station.stock units of $ware
end
goto label stockage
end:
return null