Show Posts

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.


Messages - Pascal666

Pages: 1 [2]
16
Newbie / Sexual reproduction
« on: January 03, 2010, 07:58:35 AM »
You could program a mod for darwinbots that scrambles a gene list, and lets 2 scrambled bots compete with each other, and let the winner compete with a new scrambled bot.

17
Bugs and fixes / Outbound teleports don´t work(windows 7) -Run as Admin
« on: November 30, 2009, 07:24:25 AM »
I agree, but I was searching for a quick solution, because I was working on other things in the client.
In stead of updating the pop files every 30 minutes you could check if a new file has been uploaded by checking the creation date if that is possible.

Actually in private I have been working on the client already; improving speed and order.
I will share my updated version when it is finished.

18
Bugs and fixes / Outbound teleports don´t work(windows 7) -Run as Admin
« on: November 29, 2009, 07:54:57 AM »
I have been testing it for five minutes and think patching is required since it uploads all the pop files constantly.
My solution for it is only to update the internet population every 30 minutes:

Code: [Select]
Function DownloadPopFiles() As Boolean
  On Error GoTo fine
  Dim DirList(999) As String
  Dim k, I, dirnum As Integer
  Dim fase As Integer
  
  DownloadPopFiles = False
  If GetTickCount - popTickCount < 1800000 Then
    DownloadPopFiles = True
    Exit Function
  End If
  popTickCount = GetTickCount

19
Bugs and fixes / Outbound teleports don´t work(windows 7) -Run as Admin
« on: November 29, 2009, 07:36:48 AM »
I noticed because I was trying to patch it, and when I try to run it in visual basic it actually doesn't crash.
But I did get this out of the debug: DownloadPopFiles: scaricata dir, poi errore which means the error is after fase 1:
Quote
fase = 1
  Debug.Print "FTP session initialized.  About to get FTP download list."
  CompilePopDirlist Directory, DirList()
  Debug.Print "FTP download list completed."
 
  dirnum = CInt(val(DirList(0)))
  If dirnum = 0 Then
    DownloadPopFiles = False
 '   frmMain_Client.Inet1.Cancel
    Disconnect
    Exit Function
  End If
  I = dirnum
  While I > 0
    If DownloadFile(DirList(I), frmMain.MainDir + "\Transfers\F1\") = False Then GoTo getout
    I = I - 1
  Wend
  DownloadPopFiles = True

And since I added a msgbox(which didnt show up after the first function means that compilepopdirlist() is bugged:

Quote
Debug.Print "FTP session initialized.  About to get FTP download list."
  CompilePopDirlist Directory, DirList()
  Debug.Print "FTP download list completed."
 
  MsgBox 1

I added ^ to compilePopDirList() and got the error subscript out of range.
Which probably means the array Dim DirList(150) As String is too small.

I have changed the array size in LoadRandomOrgs and DownloadPopFiles to 999 and it seems to work, though it takes a while downloading all the files.
Since it takes a while maybe you should ban newbie names from uploading their pop files, and resetting the whole pop database once in a while.

As a quick solution I have deleted all newbie pop files on the ftp server so you should be under the current 150 file limit now.
Anybody can use it again without patching( for now ) just be patient while darwinbots needs to download all the pop files.

20
Bugs and fixes / Outbound teleports don´t work(windows 7) -Run as Admin
« on: November 28, 2009, 11:50:20 AM »
Internet mode doesn't function because the directory bots on the ftp is empty.

21
Newbie / Unnatural Evolution
« on: November 28, 2009, 08:36:49 AM »
Animal_Minimalis quickly evolved into a much better bot, at the end of every 10000 cycles animal minimalis would have had about 30 bots and the new bot 200+
Though it seems limited to its original dna count so I will try manually adding empty genes and wait for the results  

Quote
'#generation: 19
'#mutations: 7
 cond
 *.eye5 -20 >
 *.refeye *.myeye !=
 start
 *.refveldx *.refvelup store
 4 30 add .up store
 stop
''''''''''''''''''''''''  Gene:  1 Ends at position  17  '''''''''''''''''''''''
 cond
 *.eye5 50 >
 *.refeye *.myeye !%=
 start
 -1 .shoot store
 *.refveldx .dx store
 *.refvelup .up store

''''''''''''''''''''''''  Gene:  2 Ends at position  34  ''''''''''''''''''''''' else

''''''''''''''''''''''''  Gene:  3 Ends at position  35  '''''''''''''''''''''''
 cond
 *.eye5 0 =
 *.refeye *.myeye =
 or
 start
 314 rnd .aimright store

''''''''''''''''''''''''  Gene:  4 Ends at position  48  ''''''''''''''''''''''' else

''''''''''''''''''''''''  Gene:  5 Ends at position  49  '''''''''''''''''''''''
 cond
 *.nrg 17388 >
 start
 10 .repro store
 stop
''''''''''''''''''''''''  Gene:  6 Ends at position  58  '''''''''''''''''''''''

'#hash: you}iq!*%J04WI4Noh'&:#

Edit: I also wanted to show you the graphs of the evolution progress...

22
Newbie / Unnatural Evolution
« on: November 27, 2009, 02:40:52 PM »
About the fittest function I looked it up before and it uses the function score() which if I read it correctly looks up all bots and checks who's their parent, and the parent with the highest amount of alive children*children energy has the highest score.
Quote
For t = 1 To MaxRobs
    If rob(t).exist Then
      If rob(t).parent = rob®.AbsNum Then
        If reclev < maxrec Then score = score + score(t, reclev + 1, maxrec, tipo)
        score = score + InvestedEnergy(t)
So this should work correctly.

I will update later.

23
Newbie / Unnatural Evolution
« on: November 27, 2009, 11:55:34 AM »
I just finished writing the code to turbo evolve bots, and wanted to ask if anyone else has done something similar already, or has other idea's which I could work out.

My first technique is to reset the pond every 10000 cycles and use darwinbot 's existing fittest() function to store the best bot, everytime it starts a new round it adds the last 5 stored bots from the last 5x10000 cycles and starts a new 10000 cycles.
I will let it run for a while and post the results...

But I also want to ask about if anyone else tryed something similar or if anyone can come up with a similar idea which I could add.

24
Darwinbots Program Source Code / How do I get ericL code?
« on: November 26, 2009, 10:41:32 AM »
Is there another way to download this than file by file(without installing annoying software)?

Pages: 1 [2]