Utilitaires de Marcon et quelques démos

[Stilgar]

Merci à Mark_a_condren : http://forum.egosoft.com/viewtopic.p...337465#3337465


Scripts de démonstration
La commande Add value selection
Ce script est une démo pour montrer comment on peut se servir de la commande "add value selection" dans le menu. Ceci est particulièrement utile pour les options et les paramètres.
Google code : Add value selection to Menu Demo v1 Zip

Images


Un tutoriel complet ici : ce lien.



Scripts utiles
Clonage de stations/de chantier naval
Utile si vous avez besoin de faire des remplacements en jeu. Que vous ayez envie d'augmenter votre économie ou autre. Utile pour testes des scripts et des mods.

Spoiler:

- Hotkey settable in controls menu.
- Target station and use hotkey.
- Follow the menu prompts.

Note : cela ne marche pas avec les stations du joueur. Google code :
SPK: MarCon Clone Station v3 Spk
ZIP: MarCon Clone Station v3 Zip



Mini scripts
Freinage d'urgence
Cela créé deux conditions : l'une pour votre navire de joueur, et l'autre pour le vaisseau vous suivant si il est à vours.

Vaisseau du joueur :



Vaisseau cible :



SPK: E Brake v1 Spk.

ZIP: E Brake v1 Zip.

Scripts de données
Avoir tous les secteurs par race v1
Ce script vous indiquera tous les secteurs sous le contrôle de la race indiquée. Si vous mettez "null" en guise de race, alors vous aurez tous les secteurs du jeu.

Version: 1
for Script Engine Version: 44


Description
Returns array of all sectors in Universe, race selectable.
Arguments
1: Race , Var/Race , 'Race, null = All :' 
Source Text


001   * --------------------------------------------------------------------------------
002   * Author : mark_a_condren   a.k.a   MarCon
003   * --------------------------------------------------------------------------------
004   * Created : May - 2010
005   * --------------------------------------------------------------------------------
006   
007   *$Testing = [TRUE]
008   $Testing = [FALSE]
009   
010   $max.x = get max sectors in x direction
011   $max.y = get max sectors in y direction
012   
013   $x = 0
014   $y = 0
015   
016   $sectors.array =  array alloc: size=0
017   
018   while $x <= $max.x AND $y <= $max.y
019   |$sector = get sector from universe index: x=$x, y=$y
020   |if $sector -> exists
021   ||if not $Race == null
022   |||$sector.owner = $sector -> get owner race
023   |||if $sector.owner == $Race
024   ||||append $sector to array $sectors.array
025   |||end
026   ||else
027   |||append $sector to array $sectors.array
028   ||end
029   |end
030   |if $y == $max.y
031   ||$y = 0
032   ||inc $x = 
033   |else
034   ||inc $y = 
035   |end
036   end
037   
038   if $Testing
039   |$Sectors.count =  size of array $sectors.array
040   |$desc = sprintf: fmt='%s', $Sectors.count, null, null, null, null
041   |$ret =  open custom menu: title='Sectors :' description=$desc option array=$sectors.array
042   |$sect = $sectors.array[$ret]
043   |$sect = sprintf: fmt='%s', $sect, null, null, null, null
044   |display subtitle text: text=$sect duration=3000 ms
045   end
046   
047   return $sectors.array

ZIP:
lib_All_sectors_array_by_race_xml Zip.



Secteurs par race / organisation en tableau
Comme au dessus, avec une présentation un peu différente.

Version: 1
for Script Engine Version: 44


Description
Lib - Get all sectors from universe, by race array.
Arguments
1: race.array , Value , 'Inc Races Array, Null = All:' 
Source Text


001   * --------------------------------------------------------------------------------
002   * Author : mark_a_condren   a.k.a   MarCon
003   * --------------------------------------------------------------------------------
004   * Created : May - 2010
005   * --------------------------------------------------------------------------------
006   
007   $Testing = [TRUE]
008   *$Testing = [FALSE]
009   
010   $max.x = get max sectors in x direction
011   $max.y = get max sectors in y direction
012   
013   $x = 0
014   $y = 0
015   
016   $sectors.array =  array alloc: size=0
017   
018   while $x <= $max.x AND $y <= $max.y
019   |$sector = get sector from universe index: x=$x, y=$y
020   |if $sector -> exists
021   ||if $race.array
022   |||$race = $sector -> get owner race
023   |||if  find $race in array: $race.array
024   ||||append $sector to array $sectors.array
025   |||end
026   ||else
027   |||append $sector to array $sectors.array
028   ||end
029   |end
030   |if $y == $max.y
031   ||$y = 0
032   ||inc $x = 
033   |else
034   ||inc $y = 
035   |end
036   end
037   
038   if $Testing
039   |$Sectors.count =  size of array $sectors.array
040   |$desc = sprintf: fmt='%s', $Sectors.count, null, null, null, null
041   |$ret =  open custom menu: title='All Sectors :' description=$desc option array=$sectors.array
042   end
043   
044   return $sectors.array

ZIP:
lib_All_sectors_array_ByRaceArra_xml






Extraits de codes

(flemmite de traduction)
Get Ship Current Action Text :
001 $ship.current.action = $ship -> get current action
002 $ship.current.action.t.id = $ship.current.action + 350 ...
003 $ship.current.action.txt = read text: page= 14 id= $ship.current.action.t.id


Get Ship Command Text :
001 $ship.cmd = $ship -> get command
002 $ship.cmd.sub = get subtype of ware $ship.cmd
003 $ship.cmd.txt = read text: page= 2010 id= $ship.cmd.sub


Get the Ware Transport Class Abreviation : ('Extra Large Containers XL' becomes 'XL')
001 $t.class = get transport class of ware $ware
002 $t.class.abrev = read text: page = 1999 id= $t.class
(page 1999 is a stock Egosoft page file)



Permissions
MarCon donne la permission pour utiliser ces scripts/fichiers du moment que les crédits sont donnés.


Couleurs :

B = Blue
C = Cyan
G = Green (Lime)
K = Black
M = Magenta (Violet)
O = Orange
R = Red
W = White
Y = Yellow
Z = Grey


X = Turns color off




Egalement :