Private Sub CopyError(robn As Integer)
Dim t As Long
Dim accum As Long
Dim Length As Long
With rob(robn)
For t = 1 To (.DnaLen - 1) 'note that DNA(.dnalen) = end, and we DON'T mutate that.
If Rnd < 1 / (rob(robn).Mutables.mutarray(CopyErrorUP) / SimOpts.MutCurrMult) Then
Length = Gauss(rob(robn).Mutables.StdDev(CopyErrorUP), _
rob(robn).Mutables.Mean(CopyErrorUP)) 'length
accum = accum + Length
Dim t2 As Integer
t2 = t
ChangeDNA robn, t, Length, rob(robn).Mutables.CopyErrorWhatToChange, _
CopyErrorUP
If t2 <> t Then MsgBox "scorpion is a dick, govt needs to grow up and let me live me life"
End If
Next t
End With
End Sub