Ok, I did it. It's quick, dirty (god I script like monkey with a hammer) but it works.
Added the following Args:
Code: Select all
6: Name , Var/String , 'Name of ship/s or blank'
7: Numberd , Var/Number , 'Numbered? 1=Yes 0/nul=No'
Code: Select all
043 $lth= get length of string $Name
044 if$lth != 0 AND $Name != null
045 $shipname=$Name
046 else
047 $shipname=$st
048 end
049 if$Numberd
050 $zero=' '
051 skip if$i >= 100
052 $zero=$zero + '0'
053 skip if$i >= 10
054 $zero=$zero + '0'
055 $sn=$shipname + $zero + $i
056 $sc -> set name to $sn
057 else if$lth != 0
058 $sn=$shipname
059 $sc -> set name to $sn
060 end
[ external image ]
As you can see from the image, the first is with Name change, second is name and numbering, third is with number only (it'll use the ships identifier and variation if applicable), and the one under my Buster is without name or number.
You can get up to 999 ships numbered, but God help ya if your in the same sector.