throw in a check box to include bots with chloroplasts.
ok nice, but lets say the robots happen to mutate and use chloroplasts so when I "find best" the general population uses them, then what? Chances are only outcasts will not use a generally excepted mutation, outcasts are not good representation of the best robot. I know, I have been running this thing close to a year now , I might even add I am as good at shvartz at this now. btw where is shvartz, have not seen him in a while. Anyway,
Scanning based the robot name is very unreliable.
Well as long as no one adds weird named robots to my sim or renames them it should work splendid. Btw I just realized I will need to scan based on robot name anyway for one of my special optional changes, so now I really want to know why it is unreliable.
Example as part of Public Sub UpdateBots() (I'll clean it up and make it as optional as possible):
'Need to do this first as NetForces can update bots later in the loop
For t = 1 To MaxRobs
If rob(t).exist Then
If rob(t).FName = "bfb.txt" Then bfbcount = bfbcount + 1 'botschange countA
If rob(t).FName = "mfb.txt" Then mfbcount = mfbcount + 1 'botschange countB
If (rob(t).DisableDNA = False) Then EraseSenses t
If numTeleporters > 0 Then CheckTeleporters t
End If
Next t
'botschange unstable environment
Dim unste As Double
If bfbcount <= 4 Then
unste = 0
ElseIf mfbcount <= 4 Then
unste = 1
Else
unste = (bfbcount - 3) / (mfbcount - 3)
End If
If unste > 1 Then unste = 1
SimOpts.PhysBrown = unste * 50
'botschange killfat safetyflux antyflux
For t = 1 To MaxRobs
If rob(t).exist Then
If rob(t).FName = "mfb.txt" Then
If rob(t).body > 2500 Then KillRobot t
If (mfbcount - bfbcount) > 0 Then rob(t).nrg = rob(t).nrg - AntiHandycap / (50 ^ 3 / (mfbcount - bfbcount) ^ 3) 'antyflux
End If
If rob(t).FName = "bfb.txt" Then 'saftyflux is here
If (bfbcount - mfbcount) > 0 Then rob(t).nrg = rob(t).nrg - Handycap / (50 ^ 3 / (bfbcount - mfbcount) ^ 3)
End If
End If
Next t
If bfbcount = 0 And Not bfbT Then
bfbT = True
MsgBox "WON"
DisplayActivations = False
Form1.Active = False
Form1.SecTimer.Enabled = False
End If
If mfbcount = 0 And Not mfbT Then
mfbT = True
MsgBox "LOST"
End If
'botschange killfat end
If that species gets below the number, more are spawned
But what about all the funky settings like repopulation cool down period, or vegs per repopulation event? I need them all work the same they do in say 2.44.1 when you setup F1 mode ...
Here is one: Max vegs. How do I limit the maximum number of vegs now?
P.S.
I know you guys are really not that evil, but please do not change the source code specifically to make my changes impossible to implement.
Thats how I fell right now
Poll