It turns out the robots were getting extra energy out of junk dna. I cant trace the source of the problem so I wrote a quick simple solution:
Private Sub corpo(n As Integer)
Dim pnt As Integer
rob(n).mem(thisgene) = currgene
For pnt = rob(n).pntr To rob(n).DnaLen
Select Case rob(n).DNA(pnt).tipo
Case 0, 1
instack n, pnt
Case 2
istruzione n, pnt
Case 4
Exit For
End Select
rob(n).nrg = rob(n).nrg - 0.007 'James Bond Fix
Next pnt
...
That fixes the problem, now robots with a lot of junk dna and robots with little dna are in equal ammounts of energy.
Stay tooned for more bugs and/or more mutants, and sry that I deleted 13.txt , its that junk dna feeding robot, :banghead: I should of saved it. But still if you look at the file I posted attached to this thread from before, you will see that it does atleast 5 opps. that are basicaly junk dna. This stuff does not make sense... fix above^.