16
Darwinbots Program Source Code / Re: DB IM P2P Work
« on: June 09, 2012, 02:30:23 AM »
Download emule 0.50 source code and look for anything containing upnp.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
oh, he never moded the code, it simply not a true zero bot...Looks good. Can I ask for another one: decrease mutation rate defaults by a factor of 10?
I have to look into doing this kind of stuff internally...
That problem seems to come from this line:
Do
' Dim a As Integer
.DNA(t).value = Gauss(IIf(Abs(old) < 100, IIf(Sgn(old) = 0, Random(0, 1) * 2 - 1, Sgn(old)) * 10, old / 10), .DNA(t).value)
Loop While .DNA(t).value = old
I am going to try a mod...
el fixo:Code: [Select]If Mtype = PointUP Then
Dim randomsysvar As Integer
Do
randomsysvar = Int(Rnd * 1000)
Loop Until sysvar(randomsysvar).Name <> ""
.DNA(t).value = sysvar(randomsysvar).value
Else
Do
' Dim a As Integer
.DNA(t).value = Gauss(IIf(Abs(old) < 100, IIf(Sgn(old) = 0, Random(0, 1) * 2 - 1, Sgn(old)) * 10, old / 10), .DNA(t).value)
Loop While .DNA(t).value = old
End If
I feel better about using point mutations now
I think it'll be pretty cool when it's done, which drives my motivation some.It's not just the amount of work/time you spend on DB3. For me a motivation needs to be on a different time scale than it'll be pretty cool when it's done in 2 years time. I need to see results much quicker than that.