WikiManual - User contributions [en]

Main FTP

2006-12-28T22:29:19Z

Griz: /* 2.42.9 */ fixed link to Darwin2.42.9r

__NOTOC__
== Main Install ==

Download the main install for [http://www.darwinbots.com/FTP/Darwin21.zip DarwinBots 2.1] This '''must be installed''' prior to installing the patches/updates. See the [[Installation_Instructions|installation instructions]]. This version is rather old, so you should install one of the patches below.

== Recent Releases ==

Unzip these patches to your download folder (wherever you installed it, by default c:\Program File\DarwinbotsII\). Say yes to all overwrites. You will need to run the new executable instead of the executable that came with the main install. If you've run the main install executable before, you should see immediate and noticable differences in the patches.

Please note that higher versions might not necessarily be more stable and bug-free than lower versions. Users are encouraged to download '''both''' of the versions below (2.37.6 and 2.4X). 2.4X settings files aren't backwards compatible with 2.37.6, and but must be installed '''in a seperate installation''' than 2.37.6. It is 100% backwards compatible otherwise. All robot files from previous versions will load into the program (though some may act a little weird).

=== 2.37.6 ===

[http://www.darwinbots.com/FTP/DarwinBots2.37.6.zip DarwinBots2.37.6] is a very, very stable release. New users can start with this version or use the latest 2.4 version below.

:NOTE: Sysvars2.21.txt may not be included in Version 2.37.6 It is available here as [[Talk:Sysvars2.21|text]] or as a [http://forum.darwinbots.com/index.php?act=Attach&type=post&id=1346996 download]. Place it in your "DarwinBotsII" folder. 

==== 2.37.7b ====

[http://www.darwinbots.com/FTP/Darwin2.37.7b.zip DarwinBots2.37.7b] is a reworking by Endy.

:# Fixed a bug involving limitless waste creation caused by storing negative values into .strvenom and .strpoison
:# Modified code to allow slime/shell/venom/poison to be unmade for an energy gain
:# Negative stores/inc/dec are now absoluted
:# Stores/inc/dec to values greater than 999 are now modified to be within 1-999 range; ie. 31330 would be stored to as 330

=== 2.42.9 ===

[http://www.darwinbots.com/FTP/DarwinBots2.42.9.zip DarwinBots2.42.9] is the latest and greatest release. It is very stable with some interesting new capabilities. New users should use this version as should anyone running long term evolution sims.

Some bots may behave differently than they do in the 2.37.6 version due to differences in the underlying physics engines. Please bring any such differences you notice to the attention of the program authors at the [http://forum.darwinbots.com forum]

Note: Older robots are going to act a little stupid. You will have a hard time even making them survive. '''Strongly consider downloading more modern bots in the [http://forum.darwinbots.com/index.php?showforum=13 beastiary].''' [http://forum.darwinbots.com/index.php?act=ST&f=24&t=157&st=0#entry240895 Animal Minimalis] is a good start, and is used in the [[Robot Tutorial]]s. Just copy the text into a plain old .txt file, and put the file into your robots directory.

[http://www.darwinbots.com/FTP/Darwin2.42.9r.zip DarwinBots2.42.9r] is the absolute latest and greatest buddy drop. Buddy drops are generally stable but may have features which are incomplete or not fully tested. New users are generally advised not to use buddy drops unless and until they are familiar with the program and understand the state of work a buddy drop represents.

== Tutorials ==

The [http://www.darwinbots.com/FTP/DarwinTutorial1+2.zip Darwinbots bot writing tutorial by PY] is a little old but a very good primer to learning how the DNA works. You can also check out the [[Robot Tutorial]]

== See Also ==

* [[Previous Versions]]
* [[Source Code]]

== Windows 95 Trouble ==
There is a report that Darwinbots might cause problems if you are running Windows 95. If you experience any such problems, please post them to the [http://forum.darwinbots.com forum].

Return to [[Main Page]]

User talk:Jez

2006-12-27T19:26:54Z

Griz:

here's one way to separate/distinguish replies ... 
placing a single ":" as the first character in a line will 'indent' it. 
placing two, will indent it twice, three, thrice ... etc, etc, etc 
example 
none : 
:one
::two
:::three

also ... bracketing text with two apostrophes <nowiki>''</nowiki> calls up ''italics'' 
three <nowiki>'''</nowiki>, '''bold''' ... 
five <nowiki>'''''</nowiki>, '''''bold italics'''''. 

color is easy too ... 
<nowiki>this is red</nowiki> gives you: 
this is red 
red, green, blue, yellow, orange also work. 

all this works well to distinguish between replies in ongoing conversations. 

four ---- as the first characters in a line will draw a line 
like so:
----
three <nowiki>~~~</nowiki> a signature, ie {{User:Griz/sig}} 
four <nowiki>~~~~</nowiki> a sig with time stamp, ie {{User:Griz/sig}} 10:26, 26 Dec 2006 (MST) 

just a few basics for you to play with if it helps.
of course clicking on edit ... you can see the code for any of this stuff 
i put here, and use something similar.
----

Good luck fella, I don't think DB is a good place to learn VB, Eric has been good at explaining things so far but I imagine he's much more interested in modifying the code than taking time to teach others how to use it. I imagine DB as a good place to practice some of the VB skill. I don't know how much VB you know or if you know any other languages but certainly if you are any where near as much a starter at VB as I am then this is the wrong place to be. You do seem to have a lot more skill at VB than me I admit but I don't see you getting answers to things you want to know with more than a sporadic frequency.
Anyway, like I said, best of luck for whatever you decide. [[User:Jez|Jez]] 10:41, 27 Dec 2006 (MST)

:yup.
:would have been nice to use DB as a vehicle to learn VB ...
:as the graphics are what i am interested in figuring out ...
:and i thought, great ... here's some folks who already know
:how to do this, and we are all involved in a cooperative
:effort to write a program so ... what could be better?
:yeah, well ...
:seems folks are more interested in doing their own thing ...
:than in bringing new folks into it.
:i don't know ...
:at work, a great deal of my time is spent at bringing new
:folks up to speed ... so it really does become a team effort.
:i don't think that exists here.
:too bad.
:oh well ... so it goes.
:onward
:{{User:Griz/sig}} 12:26, 27 Dec 2006 (MST)

DeBugging

2006-12-27T00:25:11Z

Griz: /* Setting Breakpoints */

== Compiler Related Recommendations ==

== In-game Bug Detecting ==

It is possible to directly debug at least some of the random glitches that are found in the DB universe from within the game itself. This thanks largly to a useful(if dated) console, which supplies information about the various memlocs. Although they can't be directly fixed from within the game, valuable information and clues to a bug's exact cause can be obtained.

----
:How about some of you 'seasoned' VB users giving the rest of us a few tips
:on VB and Debugging so we might be able to help out tracking down errors?
:Anyone signed in here at the Wiki can edit and add to these pages.
:Just click on edit and have at it.
:Not to worry about correct/ideal formatting ...
:we'll figure it out.
:{{User:Griz/sig}} 15:04, 24 Dec 2006 (MST)

= Basic Debugging from VB =

== error.sim ==
From Eric: 
There are two lines where the comment portion of the source code line indicates that line should be commented out when running under the debugger. Just put a single apostrophe at the beginning of the line. This way, the source code won't try to handle the exception (an 'exception' is just a fancy name for a crash, a divide by 0 or something like that) and VB will get the error. When an exception does happen, you should get a pop-up dialog that offers to let you debug the problem. When you hit the debug button, it should highlight the source code line where the exception is occurring.

This is the only one I know of that has to be commented in/out:
In MDIForm1 (code), Private Sub simload

:(remove these edit's as you see fit Griz, this is your domain! As far as I can see the two lines to be edited are the same line under two different names as regards Erics post later on)

<pre>
Private Sub simload(Optional path As String)
Dim I As Integer
Dim path2 As String

On Error GoTo fine ' Uncomment this line in the compiled version error.sim
</pre>

Comment this '''''On Error''''' out when using VB and Debugger ... 
or it will abort and go save the error.sim. 

:(It saves the error sim but also lets you degug as well AFAIK, based on experience it doesn't make a difference, what is the real advantage of doing this?)

::i don't think so, at least it didn't in the past ... or with 2.37 anyway.
::it may be a little different setup in 2.4X ...
::but i still think one needs to comment it out ... else why would eric have posted about it?

Then remember to uncomment it once you have located and fixed an 
error and want to recompile or the recompiled prog won't do it's 
'''''save error.sim'''''
Also ... once the debugger has sent you to the break ... 
'hovering' the mouse over variables in the code will (variables in the highlighted line of code, if there are no variables there don't worrry, a step by step intro to how you obtain the error can be just as useful)
give you their value at that time and place in the execution. 
this is helpful in finding overflows or variables out of range. 
using this, even I have been able to locate errors on occasion. 

=== Switching between Compiled and VB for Debugging ===
:for those running/searching for those errors in long sims ...
:if you run the compiled version and do an occasional save ...
:[this can be automatically done, yes?]
:then hopefully when an error is encountered and an error.sim
:file produced ...
:you can then fire it up in VB, ensure the error trapping is
:commented out, load in the error sim or the save that
:you captured which occurred just prior to the error ...
:and then run it from there using the debugger.
:this may not always work, as there seem to be many variables ...
:but I have had it do exactly this for me in the past ...
:even using the generated error.sim ...
:the error still existing ...
:which can certainly save a great deal of time debugging.
:[remember to save/rename the error.sim to keep on file
:for continued debugging, so it isn't overwritten]

== Search ==
To search from VB, click on the Binocular icon on the toolbar. 
Select where you wish to search, current modual, current project. 
This will step you thru all occurrences.
== Highlighting Variables ==
Once the debugger has sent you to a line containing an error, 
use the mouse to highlight variables to determine their value. 
This may help to determine if a variable is out-of-range.

:'''''a few notes from Ulciscor on the Forum
:'''''http://www.darwinbots.com/Forum/index.php?showtopic=874

::(Should be up top, if, like me, peeps are VB newbs then the acronym KISS seems appropriate, start with the simple stuff)

:::still just gathering info. will see what all we get and then arrange it ...
:::assuming anyone is going to ever read it. ;)

If you are running the program from VB, click 'Debug' when the error box appears. This will bring the VB code to focus with the offending code highlighted in yellow. This highlighted code should be copied along with the name of the function it is from (if applicable) and the form or module, which will be shown on the right. (example? I always add a few following lines of code in case the line in question is repeated, don't know if that is needed but it makes me feel better!)

The highlighted code will also display the values of the various variables (if there are variables in that line) and properties, at the point when the program crashed, when you hover your mouse over them. It is a good idea to note down the values of each part of the code and post them up with everything else.

If the error occurs from the EXE, then describe what was happening in the sim or what you did before the glitch, or possibly provide the sim file, which should be zipped to save space. (''Always'' note the steps you took before the error. Standard error reporting info...)

All this info will help us track down the error and its cause, and so to work out possible solutions. (Yay! (sry))

== Setting Breakpoints ==
pause VB, highlight a line, press F9
:(Or use debugger option when it finds error, I'm still not sure why I should use a breakpoint)
::because you can set them anywhere in the program ... not just where the debugger sends you.
::this will cause the program to 'break' there ... for testing new code or investigating where
::you might think there is a problem.
::an example for you might be ... setting a break point just after the code that is activated
::when you click that "win" button in leagues. then you could go there and take a look at the
::variables and maybe see why they increment by something other than "1".
::you might even put in a line of code as a delay after clicking the button ...
::if it turns out the routine is executing so quickly it catches you with your pants, err ... button down. ;)
::i think you can even 'step' thru the program, watching what happens. {{User:Griz/sig}}

== The Immediate Window ==
The immediate window in VB is a mostly a place where you can execute code you write on the fly while debugging - code that is not part of the program, but code you want to execute right then for help in debugging. Say you hit a breakpoint and want to step through from there, but with a certain set of variables having a certain set of values, say to reproduce a bug further down the line. Well, instead of waiting for the program to happen upon those values, you can change those variable values manually in the immediate window e.g. x = 5, y = 10, etc. and then proceed. The code you type in the immediate window is, well, immediate. It does not become part of the DB source code - it only executes right there and then is gone. Also useful for things like printing variable values at breakpoints.

== what else? ==
Breakfast at Tiffany's? Good stuff so far, I would start with a really basic page, downloading relevant stuff and basic reports then expand into the more difficult stuff. Just my opinion, you may ignore it as you see fit!
(Is there a better way for me to add comments to pages? I'm not used to not getting a new post for my comments, don't want to slow you down by making you search for my comments). (my mistake didn't read your message first!)

:yeah ... seeing as i don't know how to debug myself yet ... i still have no idea what we will put here.
:so we're reinventing the wheel as we go i guess. this is still the 'info gathering' stage.

:added in context is ok ...
:just try to use some color or something so i see them.
:it's all temporary right now anyway.
:also ... adding <nowiki>~~~ or ~~~~</nowiki> adds your sig and/or time stamp. then i know who it is and when it was added.
:like so: {{User:Griz/sig}} 17:13, 26 Dec 2006 (MST)

DeBugging

2006-12-27T00:23:48Z

Griz:

== Compiler Related Recommendations ==

== In-game Bug Detecting ==

It is possible to directly debug at least some of the random glitches that are found in the DB universe from within the game itself. This thanks largly to a useful(if dated) console, which supplies information about the various memlocs. Although they can't be directly fixed from within the game, valuable information and clues to a bug's exact cause can be obtained.

----
:How about some of you 'seasoned' VB users giving the rest of us a few tips
:on VB and Debugging so we might be able to help out tracking down errors?
:Anyone signed in here at the Wiki can edit and add to these pages.
:Just click on edit and have at it.
:Not to worry about correct/ideal formatting ...
:we'll figure it out.
:{{User:Griz/sig}} 15:04, 24 Dec 2006 (MST)

= Basic Debugging from VB =

== error.sim ==
From Eric: 
There are two lines where the comment portion of the source code line indicates that line should be commented out when running under the debugger. Just put a single apostrophe at the beginning of the line. This way, the source code won't try to handle the exception (an 'exception' is just a fancy name for a crash, a divide by 0 or something like that) and VB will get the error. When an exception does happen, you should get a pop-up dialog that offers to let you debug the problem. When you hit the debug button, it should highlight the source code line where the exception is occurring.

This is the only one I know of that has to be commented in/out:
In MDIForm1 (code), Private Sub simload

:(remove these edit's as you see fit Griz, this is your domain! As far as I can see the two lines to be edited are the same line under two different names as regards Erics post later on)

<pre>
Private Sub simload(Optional path As String)
Dim I As Integer
Dim path2 As String

On Error GoTo fine ' Uncomment this line in the compiled version error.sim
</pre>

Comment this '''''On Error''''' out when using VB and Debugger ... 
or it will abort and go save the error.sim. 

:(It saves the error sim but also lets you degug as well AFAIK, based on experience it doesn't make a difference, what is the real advantage of doing this?)

::i don't think so, at least it didn't in the past ... or with 2.37 anyway.
::it may be a little different setup in 2.4X ...
::but i still think one needs to comment it out ... else why would eric have posted about it?

Then remember to uncomment it once you have located and fixed an 
error and want to recompile or the recompiled prog won't do it's 
'''''save error.sim'''''
Also ... once the debugger has sent you to the break ... 
'hovering' the mouse over variables in the code will (variables in the highlighted line of code, if there are no variables there don't worrry, a step by step intro to how you obtain the error can be just as useful)
give you their value at that time and place in the execution. 
this is helpful in finding overflows or variables out of range. 
using this, even I have been able to locate errors on occasion. 

=== Switching between Compiled and VB for Debugging ===
:for those running/searching for those errors in long sims ...
:if you run the compiled version and do an occasional save ...
:[this can be automatically done, yes?]
:then hopefully when an error is encountered and an error.sim
:file produced ...
:you can then fire it up in VB, ensure the error trapping is
:commented out, load in the error sim or the save that
:you captured which occurred just prior to the error ...
:and then run it from there using the debugger.
:this may not always work, as there seem to be many variables ...
:but I have had it do exactly this for me in the past ...
:even using the generated error.sim ...
:the error still existing ...
:which can certainly save a great deal of time debugging.
:[remember to save/rename the error.sim to keep on file
:for continued debugging, so it isn't overwritten]

== Search ==
To search from VB, click on the Binocular icon on the toolbar. 
Select where you wish to search, current modual, current project. 
This will step you thru all occurrences.
== Highlighting Variables ==
Once the debugger has sent you to a line containing an error, 
use the mouse to highlight variables to determine their value. 
This may help to determine if a variable is out-of-range.

:'''''a few notes from Ulciscor on the Forum
:'''''http://www.darwinbots.com/Forum/index.php?showtopic=874

::(Should be up top, if, like me, peeps are VB newbs then the acronym KISS seems appropriate, start with the simple stuff)

:::still just gathering info. will see what all we get and then arrange it ...
:::assuming anyone is going to ever read it. ;)

If you are running the program from VB, click 'Debug' when the error box appears. This will bring the VB code to focus with the offending code highlighted in yellow. This highlighted code should be copied along with the name of the function it is from (if applicable) and the form or module, which will be shown on the right. (example? I always add a few following lines of code in case the line in question is repeated, don't know if that is needed but it makes me feel better!)

The highlighted code will also display the values of the various variables (if there are variables in that line) and properties, at the point when the program crashed, when you hover your mouse over them. It is a good idea to note down the values of each part of the code and post them up with everything else.

If the error occurs from the EXE, then describe what was happening in the sim or what you did before the glitch, or possibly provide the sim file, which should be zipped to save space. (''Always'' note the steps you took before the error. Standard error reporting info...)

All this info will help us track down the error and its cause, and so to work out possible solutions. (Yay! (sry))

== Setting Breakpoints ==
pause VB, highlight a line, press F9
:(Or use debugger option when it finds error, I'm still not sure why I should use a breakpoint)
::because you can set them anywhere in the program ... not just where the debugger sends you.
::this will cause the program to 'break' there ... for testing new code or investigating where
::you might think there is a problem.
::an example for you might be ... setting a break point just after the code that is activated
::when you click that "win" button in leagues. then you could go there and take a look at the
::variables and maybe see why they increment by something other than "1".
::you might even put in a line of code as a delay after clicking the button ...
::if it turns out the routine is executing so quickly it catches you with your pants, err ... button down. ;) {{User:Griz/sig}}

== The Immediate Window ==
The immediate window in VB is a mostly a place where you can execute code you write on the fly while debugging - code that is not part of the program, but code you want to execute right then for help in debugging. Say you hit a breakpoint and want to step through from there, but with a certain set of variables having a certain set of values, say to reproduce a bug further down the line. Well, instead of waiting for the program to happen upon those values, you can change those variable values manually in the immediate window e.g. x = 5, y = 10, etc. and then proceed. The code you type in the immediate window is, well, immediate. It does not become part of the DB source code - it only executes right there and then is gone. Also useful for things like printing variable values at breakpoints.

== what else? ==
Breakfast at Tiffany's? Good stuff so far, I would start with a really basic page, downloading relevant stuff and basic reports then expand into the more difficult stuff. Just my opinion, you may ignore it as you see fit!
(Is there a better way for me to add comments to pages? I'm not used to not getting a new post for my comments, don't want to slow you down by making you search for my comments). (my mistake didn't read your message first!)

:yeah ... seeing as i don't know how to debug myself yet ... i still have no idea what we will put here.
:so we're reinventing the wheel as we go i guess. this is still the 'info gathering' stage.

:added in context is ok ...
:just try to use some color or something so i see them.
:it's all temporary right now anyway.
:also ... adding <nowiki>~~~ or ~~~~</nowiki> adds your sig and/or time stamp. then i know who it is and when it was added.
:like so: {{User:Griz/sig}} 17:13, 26 Dec 2006 (MST)

DeBugging

2006-12-27T00:13:48Z

Griz:

== Compiler Related Recommendations ==

== In-game Bug Detecting ==

It is possible to directly debug at least some of the random glitches that are found in the DB universe from within the game itself. This thanks largly to a useful(if dated) console, which supplies information about the various memlocs. Although they can't be directly fixed from within the game, valuable information and clues to a bug's exact cause can be obtained.

----
:How about some of you 'seasoned' VB users giving the rest of us a few tips
:on VB and Debugging so we might be able to help out tracking down errors?
:Anyone signed in here at the Wiki can edit and add to these pages.
:Just click on edit and have at it.
:Not to worry about correct/ideal formatting ...
:we'll figure it out.
:{{User:Griz/sig}} 15:04, 24 Dec 2006 (MST)

= Basic Debugging from VB =

== error.sim ==
From Eric: 
There are two lines where the comment portion of the source code line indicates that line should be commented out when running under the debugger. Just put a single apostrophe at the beginning of the line. This way, the source code won't try to handle the exception (an 'exception' is just a fancy name for a crash, a divide by 0 or something like that) and VB will get the error. When an exception does happen, you should get a pop-up dialog that offers to let you debug the problem. When you hit the debug button, it should highlight the source code line where the exception is occurring.

This is the only one I know of that has to be commented in/out:
In MDIForm1 (code), Private Sub simload

:(remove these edit's as you see fit Griz, this is your domain! As far as I can see the two lines to be edited are the same line under two different names as regards Erics post later on)

<pre>
Private Sub simload(Optional path As String)
Dim I As Integer
Dim path2 As String

On Error GoTo fine ' Uncomment this line in the compiled version error.sim
</pre>

Comment this '''''On Error''''' out when using VB and Debugger ... 
or it will abort and go save the error.sim. 

:(It saves the error sim but also lets you degug as well AFAIK, based on experience it doesn't make a difference, what is the real advantage of doing this?)

::i don't think so, at least it didn't in the past ... or with 2.37 anyway.
::it may be a little different setup in 2.4X ...
::but i still think one needs to comment it out ... else why would eric have posted about it?

Then remember to uncomment it once you have located and fixed an 
error and want to recompile or the recompiled prog won't do it's 
'''''save error.sim'''''
Also ... once the debugger has sent you to the break ... 
'hovering' the mouse over variables in the code will (variables in the highlighted line of code, if there are no variables there don't worrry, a step by step intro to how you obtain the error can be just as useful)
give you their value at that time and place in the execution. 
this is helpful in finding overflows or variables out of range. 
using this, even I have been able to locate errors on occasion. 

=== Switching between Compiled and VB for Debugging ===
:for those running/searching for those errors in long sims ...
:if you run the compiled version and do an occasional save ...
:[this can be automatically done, yes?]
:then hopefully when an error is encountered and an error.sim
:file produced ...
:you can then fire it up in VB, ensure the error trapping is
:commented out, load in the error sim or the save that
:you captured which occurred just prior to the error ...
:and then run it from there using the debugger.
:this may not always work, as there seem to be many variables ...
:but I have had it do exactly this for me in the past ...
:even using the generated error.sim ...
:the error still existing ...
:which can certainly save a great deal of time debugging.
:[remember to save/rename the error.sim to keep on file
:for continued debugging, so it isn't overwritten]

== Search ==
To search from VB, click on the Binocular icon on the toolbar. 
Select where you wish to search, current modual, current project. 
This will step you thru all occurrences.
== Highlighting Variables ==
Once the debugger has sent you to a line containing an error, 
use the mouse to highlight variables to determine their value. 
This may help to determine if a variable is out-of-range.

:'''''a few notes from Ulciscor on the Forum
:'''''http://www.darwinbots.com/Forum/index.php?showtopic=874

::(Should be up top, if, like me, peeps are VB newbs then the acronym KISS seems appropriate, start with the simple stuff)

:::still just gathering info. will see what all we get and then arrange it ...
:::assuming anyone is going to ever read it. ;)

If you are running the program from VB, click 'Debug' when the error box appears. This will bring the VB code to focus with the offending code highlighted in yellow. This highlighted code should be copied along with the name of the function it is from (if applicable) and the form or module, which will be shown on the right. (example? I always add a few following lines of code in case the line in question is repeated, don't know if that is needed but it makes me feel better!)

The highlighted code will also display the values of the various variables (if there are variables in that line) and properties, at the point when the program crashed, when you hover your mouse over them. It is a good idea to note down the values of each part of the code and post them up with everything else.

If the error occurs from the EXE, then describe what was happening in the sim or what you did before the glitch, or possibly provide the sim file, which should be zipped to save space. (''Always'' note the steps you took before the error. Standard error reporting info...)

All this info will help us track down the error and its cause, and so to work out possible solutions. (Yay! (sry))

== Setting Breakpoints ==
pause VB, highlight a line, press F9 (Or use debugger option when it finds error, I'm still not sure why I should use a breakpoint)

== The Immediate Window ==
The immediate window in VB is a mostly a place where you can execute code you write on the fly while debugging - code that is not part of the program, but code you want to execute right then for help in debugging. Say you hit a breakpoint and want to step through from there, but with a certain set of variables having a certain set of values, say to reproduce a bug further down the line. Well, instead of waiting for the program to happen upon those values, you can change those variable values manually in the immediate window e.g. x = 5, y = 10, etc. and then proceed. The code you type in the immediate window is, well, immediate. It does not become part of the DB source code - it only executes right there and then is gone. Also useful for things like printing variable values at breakpoints.

== what else? ==
Breakfast at Tiffany's? Good stuff so far, I would start with a really basic page, downloading relevant stuff and basic reports then expand into the more difficult stuff. Just my opinion, you may ignore it as you see fit!
(Is there a better way for me to add comments to pages? I'm not used to not getting a new post for my comments, don't want to slow you down by making you search for my comments). (my mistake didn't read your message first!)

:yeah ... seeing as i don't know how to debug myself yet ... i still have no idea what we will put here.
:so we're reinventing the wheel as we go i guess. this is still the 'info gathering' stage.

:added in context is ok ...
:just try to use some color or something so i see them.
:it's all temporary right now anyway.
:also ... adding <nowiki>~~~ or ~~~~</nowiki> adds your sig and/or time stamp. then i know who it is and when it was added.
:like so: {{User:Griz/sig}} 17:13, 26 Dec 2006 (MST)

User talk:Jez

2006-12-26T23:58:05Z

Griz:

i see you discovered that <nowiki>'*'</nowiki> is a control character. ;) 
resulting in
***

here's one way to separate/distinguish replies ... 
placing a single ":" as the first character in a line will 'indent' it. 
placing two, will indent it twice, three, thrice ... etc, etc, etc 
example 
none : 
:one
::two
:::three

also ... bracketing text with two apostrophes <nowiki>''</nowiki> calls up ''italics'' 
three <nowiki>'''</nowiki>, '''bold''' ... 
five <nowiki>'''''</nowiki>, '''''bold italics'''''. 

color is easy too ... 
<nowiki>this is red</nowiki> gives you: 
this is red 
red, green, blue, yellow, orange also work. 

all this works well to distinguish between replies in ongoing conversations. 

four ---- as the first characters in a line will draw a line 
like so:
----
three <nowiki>~~~</nowiki> a signature, ie {{User:Griz/sig}} 
four <nowiki>~~~~</nowiki> a sig with time stamp, ie {{User:Griz/sig}} 10:26, 26 Dec 2006 (MST) 

just a few basics for you to play with if it helps.
of course clicking on edit ... you can see the code for any of this stuff 
i put here, and use something similar.
----

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact [[User_talk:Numsgil|Nums]] or [[User_talk:EricL|Eric]] or [[User_talk:Endy|Endy]] too. 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.
I'm a global mod (it's your birthday!!) ffs damn window focus pinching league reruns :( I doubt I'll ever be an admin as that's reserved for programmers but in the meantime don't hesitate to take advantage of the fact I can edit any post to add info. I'd have to rerun the install but I'll put that on my todo list and try to get the info to you fairly soon, remind me if I don't

----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

----

:i was really jazzed back when i first discovered it ... and did a lot of work here ...
:then realized no one cared or even took advantage of it.

***

That's the thing, people do read it, the last newb to ask for more info, when I pointed to the wiki said he had read most of it. You are not going to get thanked for doing it, unless it's people like me who have been there before and can see the difference. It's more sort of a reverse compliment system, people not re-editing it. The absence of all those old questions about 'how do I do something really simple with my first bot' is praise for the work you put in here.
I spent hours using the Wiki when I wrote zebedee btw and continued to refer to it as I wrote the other bots after that.

:i'm not looking to be thanked ... just for someone/anyone to acknowledge it is being used, that i am not wasting my time.
:actually i would love to see people re-edit. then i would know someone is actually reading/using it!
:what i get here is nada, naught, nothing. no response whatsoever. that's discouraging. ;)
:of course what i really hoped for was for many to participate here ... to make it a real forum.
:i've done a lot of groups in different formats over the years ... and have found wikis work far better for almost
:everything, precisely because everyone can participate in some way, can add their own thing ...
:and is certainly more user friendly and conducive to info exchange than the Invision format. imo. ime.
:but ... whaddaya goin' do? people get used to using something and don't want to change.
:and now the data base there is too large to abandon, so the best i can do is try to mirror the stuff
:that remains relevant here ... extract the good info and make it easier to access.

I hoped for some thanks (same as appreciation) when I did the first bot bestiary. Now I've long since given up hoping for such, as, I think you said, it's a labour of love. It can be discouranging, then, as the programmers find, thanks are few and far between. :( You are not wasting your time (arbitary judgement I admit) the wiki can be useful, just more for newbs than peeps like you and me, I don't expect newbs to re-edit the pages. It's a long held point that a better wiki would make for a better newb experience though.
Nobody has ever volunteered for fixing the wiki, people, like PY have tried but always given up after one or two updates. :(
It reminds me of amateur dramatics, I (tended to)get the lead male role, most of the time, the directors got their name on the flyer, the people who actually made the play work were the people (aargh BBQ window's focus) who stood in the wings.
Heck, the sysvars wiki bit is well out of date now, we don't have a curtains manager who does that stuff.
Part of the reason I don't mesh well with the wiki is that it needs more ezperience to use than the forum btw.
If you are willing, stinky, unrecognised job that it might be, to continue, for the love of DB, upkeeping the wiki, then I will push for you to be made a mod on the forum, it's all I can offer in the way of recognition. sry I can't do more.

::oh ... no thanks. i don't want to be a mod there.
::my ideas of where DB should be going are a great deal different than where it is headed. ;)
::carlos had a good handle on it, imo, but it's strayed far away from being an evosim, imo.
::i haven't 'used' DB since we abandoned 2.37 ... as it didn't work anymore ...
::and then went off further in the wrong direction, imo.
::i'm just using DB as a source to learn some VB now.
::that's why i'm trying to encourage discussion of DB and VB code here ...
::so i can learn something.
::they can take DB in whatever direction they want ...
::it's already not what i had hoped to see.

:i even began a bot page at one point ... [[BotTxt]]
:the bot text, hoping to get them all here so folks could ask questions about
:how various genes worked, and thereby learn a bit about the ins/outs of bot dna.
:i figured people could put their new creations here and talk about what/why/how their creations work.
:well, turned out to me just talking to myself ... even tho i put the idea and link at the forum.
:had a hard time even finding it myself now ... as there is no longer a link to it from anywhere.
:so again, apparently no interest. that being the case ... why bother?
:so there's a start on bot textif you are interesting in doing something like this.
Sry but forum for discussion, wiki for an easily accesible source (/me kicks windows) of information. That's the way it is. Don't worry about the discussions, keep the wiki as a source of facts. (IMO)
::well that's just it. nobody 'discusses' code there. the programmers know it already ...
::and imo, aren't really open to helping others learn it. getting info our of Nums is like getting blood out of a rock. ime.
::i gave up long ago.

::bottom line ... if i can't get people to discuss code here ...
::to go about it a logical manner, to ask questions and provide answers ...
::then there really isn't much point in continuing.
::i've tried to lure folks in, get them interested in making DB a
::for real cooperative effort ... but i don't see that happening.
::i'm here to learn something ... but for that to occur, others have to
::participate and be willing to share info.
::if that doesn't begin to happen, and unfortunately, i doubt it will ...
::then forgetaboutit.
::i've got other things to give my attention to.
::so afaic, this is one last experiment.
::we will see. {{User:Griz/sig}}

***

When it comes to links, the same as I have tried to do with the leagues, I want the relevant information as clearly marked as possible. Can take ages to track stuff down on the forum sometimes. I hate that. The Wiki needs to work in tandem with the forum though and andding links or making stickies (to the forum) seems (to me) the easiest way of doing this. If you are willing to fiddle with the wiki and request relevant links from apppropriate posts then I am more than willing to sort that out.


:sounds great to me

Working as a group is always stronger. (If DB evolution doesn't prove me wrong!)
Eventually a forum post with all the wiki links for newbs info maybe.


:exactly.

When it comes to downloading VB, the first time I chose every option, I'm like that, just a reminder to choose the most basic instal might be helpful; the second option on the first choice and no changes to the second choice was (I think) the way that worked for me.

I will add that link for the VB sourc download to the forum soon, in fact if not by tommorow then kick me. Thanks for pointing out it is in wiki not the forum.


:ok. i don't recall the steps i did to install it ...
:went thru the same as you ... just kept clicking whatever button it was ...
:and still got error messages but ... it somehow worked.
:installing and getting DB to work the first time was even more difficult ...
:as there was little guidance at the time ...
:having load the old 2.0 first was only mentioned in passing ...
:and the sysvars thing wasn't explained at all.
:i had runtime error after runtime error that no one could reproduce ...
:but of course they all had their paths set correctly ... while i didn't have a clue.
:i can only imagine how many folks give up before they ever get it up and happening.


***

Lol, I remember the first update PY done, took me ages to figure out how to make it work. There was talk about adding an installer to the next version of DB, after Eric has fixed most the bugs. Hopefully that will simplify things a bit. Is there not a 'how to install DB first time' on the wiki now?
All those error messages on VB were the templates/help files/libraries that haven't been included. When I chose a full install the first time I tried it probably took an hour to ignore them all, very dissapointed that it then didn't install properly :D

Anything you put on the forum I will read, I usually check for new posts every day.
I'm not sure about using the method you suggested to track this bug; I am running the league so not all the info will get saved and it has taken me several days to reproduce outside of the debugger before, would be gutted if I done that and then found the save hadn't kept this overflow error intact.
It is a good idea though, I hadn't thought of doing it that way.

:yeah ... leagues seems to be a special case ... code is scattered lots of places.
:i'm still trying to track it all down. {{User:Griz/sig}}
***


:well ... you know how to get ahold of me here ...
:i'll be checking in often and trying to sort out where all the league code is.

:btw ... i posted this at the forum
:http://www.darwinbots.com/Forum/index.php?showtopic=1837&pid=1369864&st=15&#entry1369864
:and will add it to the Debugging page as well but want to get it to you ...
:as it may be a big help in debugging those long sims:

<pre>
for those running/searching for those errors in long sims ...
if you run the compiled version and do an occasional save ...
[this can be automatically done, yes?]
then hopefully when an error is encountered and an error.sim
file produced ...
you can then fire it up in VB, ensuring the error trapping is
commented out, load in the error sim or ideally, the save that
you captured which occurred just prior to the error ...
and then run it from there using the debugger.
this may not always work, as there seem to be many variables ...
but I have had it do exactly this for me in the past ...
even using the generated error.sim ...
the error still existing ...
which can certainly save a great deal of time debugging.
[remember to save/rename the error.sim to keep on file
for continued debugging, so it isn't overwritten]
</pre>

later {{User:Griz/sig}} 16:55, 25 Dec 2006 (MST)

BotTxt

2006-12-26T17:35:10Z

Griz:

DB Bots

The idea here is to collect Bots and their text here ... 
so people can go through and ask questions about how 
various genes work. 
Click on [[Talk:BotTxt|discussion]] and start one.

===C_Circumgirans===
<pre>
' Comisia Circumgirans
'
' Robot NanniMorettiano
' (you'd need to know some italian politics
' to understand that... I hope you don't)
' Evolved 2002 from c. ancestralis
'
' A very efficient robot, it has the ability
' to move in swarms (swarms that become
' round when there is no food in sight,
' so the name).

cond
*.eye6
0
!=
start
21
40
store
17
.aimdx
store
stop

cond
start
16
.aimsx
store
stop

cond
*.eye8
-1
!=
start
-4
.dn
store
4
.up
store
stop

cond
*.aimdx
0
>
start
-1
.shoot
store
6
.nrg
store
stop

cond
*.refsx
6181
!%=
*.nrg
6181
>
start
430
.aimdx
store
50
.repro
store
42
.out1
store
37
stop
end
</pre>

===Devincio_Dominator_Invincibalis===
<pre>
'Devincio_Dominator_Invincibalis
'uses tie defence system
'***********************

'initialize
'*********
cond
*.robage 0 =
start
42 55 store
.tie inc
stop

cond
*.robage 1 =
start
.deltie inc
stop

cond
*.robage 300 >
*.nrg 3000 >
*.body 5000 <
start
100 .strbody store
stop

cond
*.body 100 >
*.nrg 500 <
start
100 .fdbody store
stop

' move forward
'****************
cond
*.refeye *.myeye !=
*.numties 0 =
start
*.maxvel *.vel sub .up store
stop

'turn towards food
'*************************
'avoid other conspecifics
'****************************
cond
start
mult mult 0 0
stop

cond
*.eye4 *.eye6 >
start
mult mult -5 -25
stop

cond
*.eye6 *.eye4 >
start
mult mult 5 25
stop

cond
*.eye3 *.eye5 >
*.eye3 *.eye4 >
*.eye3 *.eye6 >
start
mult mult -8 -80
stop

cond
*.eye7 *.eye5 >
*.eye7 *.eye6 >
*.eye7 *.eye4 >
start
mult mult 8 80
stop

cond
*.eye1 *.eye5 >
*.eye1 *.eye4 >
*.eye1 *.eye6 >
*.eye1 *.eye3 >
*.eye1 *.eye7 >
start
mult mult -14 -140
stop

cond
*.eye9 *.eye5 >
*.eye9 *.eye4 >
*.eye9 *.eye6 >
*.eye9 *.eye3 >
*.eye9 *.eye7 >
start
mult mult 14 140
stop

' Avoid conspecifics
' ***********************
cond
*.refeye *.myeye =
start
mult mult 0 85
stop

'reproduce
'***********
cond
*.robage 50 <
*.eye5 50 <
*.nrg 1500 >
start
50 .repro store
mult mult 0 250
stop

cond
*.nrg 5000 >
*.eye5 50 <
start
40 .repro store
mult mult 0 250
stop

'Feed
'******
cond
*.tiepres *51 !=
*.numties 0 >
start
*.tiepres .tienum store
1000 .tieval store
.tieval .tieloc store
stop

cond
*.multi 1 =
start
*.tiepres .deltie store
99 .sharenrg store
stop

cond
*52 2 =
start
*51 .deltie store
0 52 store
stop

cond
*52 0 >
start
*51 .tienum store
-1000 .tieval store
-1 .tieloc store
52 inc
stop

' sever ties to conspecifics
' *****************************
cond
*.trefeye *55 =
start
*.tiepres .deltie store
stop

' delete painful tie
' ******************
cond
*.numties 0 >
*.pain 500 >
start
*.tiepres .deltie store
stop

'Tie to an enemy
'********************
cond
*.eye5 50 >
*.eye6 *.eye4 %=
*.refeye *.myeye !=
*.robage 0 >
start
800 rnd 100 add 51 store
*51 .tie store
*51 .readtie store
mult mult 0 0
52 inc
stop

' Actually rotate
' *****************
cond
start
.aimdx store
.dx store
stop

cond
*.refeye *.myeye !=
*.refeye 1 !=
*.eye5 50 >
start
-6 .shoot store
stop

cond
*.waste 100 >
start
1 .backshot store
-4 .shoot store
*.waste .shootval store
stop

cond
*.poison 1000 <
*.nrg 1000 >
start
10 .strpoison store
stop

end

</pre>

===Devincio_Eversor===
<pre>
'Devincio_Eversor
' *** Tie Destroyerr ***
'***********************

'initialize
'*********
cond
*.robage 0 =
start
8 rnd 2 add 51 store
45 55 store
*51 .tie store
stop

' move forward
'****************
cond
*.refeye *55 !=
start
30 *.vel sub .up store
stop

cond
*.refeye *55 !=
*.refeye 0 !=
*.eye5 80 >
start
40 *.vel sub .up store
stop

cond
*.refeye *55 =
*.eye5 50 >
start
2 .dn store
stop

'turn towards food
'*************************
'avoid other conspecifics
'****************************
cond
start
mult 0
stop

cond
'*.eye4 *.eye5 >
*.eye4 *.eye6 >
start
mult -15
stop

cond
'*.eye6 *.eye5 >
*.eye6 *.eye4 >
start
mult 15
stop

cond
*.eye3 *.eye5 >
*.eye3 *.eye4 >
*.eye3 *.eye6 >
start
mult -50
stop

cond
*.eye7 *.eye5 >
*.eye7 *.eye6 >
*.eye7 *.eye4 >
start
mult 50
stop

cond
*.eye1 *.eye5 >
*.eye1 *.eye4 >
*.eye1 *.eye6 >
*.eye1 *.eye3 >
*.eye1 *.eye7 >
start
mult -100
stop

cond
*.eye9 *.eye5 >
*.eye9 *.eye4 >
*.eye9 *.eye6 >
*.eye9 *.eye3 >
*.eye9 *.eye7 >
start
mult 100
stop

' Avoid conspecifics
' ***********************
cond
*.refeye *55 =
start
mult 85
stop

'reproduce
'***********
cond
*.nrg 4000 >
*.eye5 0 =
start
25 .repro store
mult 250
stop

'Tie to an enemy
'********************
cond
*.eye5 30 >
*.eye5 *.eye4 =
*.eye5 *.eye6 =
*.refeye *55 !=
start
*51 .tie store
mult 0
stop

' Actually rotate
' *****************
cond
start
.aimdx store
stop

' sever ties to conspecifics
' *****************************
cond
*.trefeye *55 =
start
*51 .deltie store
stop

'Spin when attacked
'*************************
cond
*.shdn 0 <
*.pleas -10 <
start
620 .aimsx store
stop

cond
*.hitdn 0 !=
start
620 .aimsx store
stop

'Feed
'******
cond
*.numties 0 >
start
*51 .tienum store
-1000 .tieval store
-1 .tieloc store
*51 .readtie store
stop

cond
*.numties 0 >
*.waste 100 >
*.trefeye 0 =
start
1000 .tieval store
-4 .tieloc store
stop

cond
*.slime 90 <
start
50 .mkslime store
stop

cond
*.refeye *55 !=
*.eye5 50 >
start
-1 .shoot store
stop

end
</pre>

===Hunter V2.13===
<pre>
'New generation Hunter bot with state of the art features
'***********************

'reproduce
'*********
cond
*.nrg 4000 >
start
60 .repro store
628 .aimsx store
1 40 store
stop

cond
*.robage 0 =
start
1 .tie store
stop

cond
*.robage 1 =
start
314 .aimdx store
stop

cond
*.robage 3 =
start
314 .aimsx store
stop

cond
*40 0 !=
start
40 inc
stop

cond
*.eye5 80 <
*.refeye 18 !=
start
30 *.vel sub 3 div .up store
stop

'turn towards enemies or food
'*************************

cond
*.eye1 *.eye5 >
*.eye1 *.eye9 >
start
100 .aimsx store
'5 .sx store
stop

cond
*.eye9 *.eye5 >
*.eye9 *.eye1 >
start
-100 .aimsx store
'5 .dx store
stop

cond
*.eye3 *.eye5 >
*.eye3 *.eye7 >
start
50 .aimsx store
'5 .sx store
stop

cond
*.eye7 *.eye5 >
*.eye7 *.eye3 >
start
-50 .aimsx store
'5 .dx store
stop

cond
*40 3 =
start
628 .aimdx store
0 40 store
stop

'avoid conspecifics
'****************************
cond
*.refeye 18 =
'*.eye5 30 >
start
120 .aimsx store
stop

'shoot at enemy
'******************

cond
*.eye5 50 >
*.refeye 18 !=
start
-1 .shoot store
stop

'delete ties
'*********
cond
*.numties 0 >
start
1 .deltie store
stop

cond
start
100 .mkslime store
stop

end
</pre>

===next===
<pre></pre>

===next===
<pre></pre>

Robot Tutorial

2006-12-26T17:30:38Z

Griz:

*[[Basic Bot Tutorial | Basic Bot]]
*[[Elite%27s_Bot_Tutorial|Advanced Shot Bot Tutorial]]
*[[Tie_Feeder_Tutorial | Introduction to Tie Feeding]]
*[[Multibot Tutorial | Multibot Tutorial]] (very advanced, be sure you have a firm grasp on the DNA language and the simulation environment)
*[[PY tutorial | Purple Youko's tutorial (old, but still very good)]]
*[[Conditionless Bots]]
*[[Tie Tutorial]]
*[[BotTxt]] Bot text. Add any bot you would like to explore/talk about.

User talk:Jez

2006-12-26T17:26:54Z

Griz:

i see you discovered that <nowiki>'*'</nowiki> is a control character. ;) 
resulting in
***

here's one way to separate/distinguish replies ... 
placing a single ":" as the first character in a line will 'indent' it. 
placing two, will indent it twice, three, thrice ... etc, etc, etc 
example 
none : 
:one
::two
:::three

also ... bracketing text with two apostrophes <nowiki>''</nowiki> calls up ''italics'' 
three <nowiki>'''</nowiki>, '''bold''' ... 
five <nowiki>'''''</nowiki>, '''''bold italics'''''. 

color is easy too ... 
<nowiki>this is red</nowiki> gives you: 
this is red 
red, green, blue, yellow, orange also work. 

all this works well to distinguish between replies in ongoing conversations. 

four ---- as the first characters in a line will draw a line 
like so:
----
three <nowiki>~~~</nowiki> a signature, ie {{User:Griz/sig}} 
four <nowiki>~~~~</nowiki> a sig with time stamp, ie {{User:Griz/sig}} 10:26, 26 Dec 2006 (MST) 

just a few basics for you to play with if it helps.
of course clicking on edit ... you can see the code for any of this stuff 
i put here, and use something similar.
----

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact [[User_talk:Numsgil|Nums]] or [[User_talk:EricL|Eric]] or [[User_talk:Endy|Endy]] too. 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

----

:i was really jazzed back when i first discovered it ... and did a lot of work here ...
:then realized no one cared or even took advantage of it.

***

That's the thing, people do read it, the last newb to ask for more info, when I pointed to the wiki said he had read most of it. You are not going to get thanked for doing it, unless it's people like me who have been there before and can see the difference. It's more sort of a reverse compliment system, people not re-editing it. The absence of all those old questions about 'how do I do something really simple with my first bot' is praise for the work you put in here.
I spent hours using the Wiki when I wrote zebedee btw and continued to refer to it as I wrote the other bots after that.

:i'm not looking to be thanked ... just for someone/anyone to acknowledge it is being used, that i am not wasting my time.
:actually i would love to see people re-edit. then i would know someone is actually reading/using it!
:what i get here is nada, naught, nothing. no response whatsoever. that's discouraging. ;)
:of course what i really hoped for was for many to participate here ... to make it a real forum.
:i've done a lot of groups in different formats over the years ... and have found wikis work far better for almost
:everything, precisely because everyone can participate in some way, can add their own thing ...
:and is certainly more user friendly and conducive to info exchange than the Invision format. imo. ime.
:but ... whaddaya goin' do? people get used to using something and don't want to change.
:and now the data base there is too large to abandon, so the best i can do is try to mirror the stuff
:that remains relevant here ... extract the good info and make it easier to access.

:i even began a bot page at one point ... [[BotTxt]]
:the bot text, hoping to get them all here so folks could ask questions about
:how various genes worked, and thereby learn a bit about the ins/outs of bot dna.
:i figured people could put their new creations here and talk about what/why/how their creations work.
:well, turned out to me just talking to myself ... even tho i put the idea and link at the forum.
:had a hard time even finding it myself now ... as there is no longer a link to it from anywhere.
:so again, apparently no interest. that being the case ... why bother?
:so there's a start on bot textif you are interesting in doing something like this.
***

When it comes to links, the same as I have tried to do with the leagues, I want the relevant information as clearly marked as possible. Can take ages to track stuff down on the forum sometimes. I hate that. The Wiki needs to work in tandem with the forum though and andding links or making stickies (to the forum) seems (to me) the easiest way of doing this. If you are willing to fiddle with the wiki and request relevant links from apppropriate posts then I am more than willing to sort that out.


:sounds great to me

Working as a group is always stronger. (If DB evolution doesn't prove me wrong!)
Eventually a forum post with all the wiki links for newbs info maybe.


:exactly.

When it comes to downloading VB, the first time I chose every option, I'm like that, just a reminder to choose the most basic instal might be helpful; the second option on the first choice and no changes to the second choice was (I think) the way that worked for me.

I will add that link for the VB sourc download to the forum soon, in fact if not by tommorow then kick me. Thanks for pointing out it is in wiki not the forum.


:ok. i don't recall the steps i did to install it ...
:went thru the same as you ... just kept clicking whatever button it was ...
:and still got error messages but ... it somehow worked.
:installing and getting DB to work the first time was even more difficult ...
:as there was little guidance at the time ...
:having load the old 2.0 first was only mentioned in passing ...
:and the sysvars thing wasn't explained at all.
:i had runtime error after runtime error that no one could reproduce ...
:but of course they all had their paths set correctly ... while i didn't have a clue.
:i can only imagine how many folks give up before they ever get it up and happening.


***

Lol, I remember the first update PY done, took me ages to figure out how to make it work. There was talk about adding an installer to the next version of DB, after Eric has fixed most the bugs. Hopefully that will simplify things a bit. Is there not a 'how to install DB first time' on the wiki now?
All those error messages on VB were the templates/help files/libraries that haven't been included. When I chose a full install the first time I tried it probably took an hour to ignore them all, very dissapointed that it then didn't install properly :D

Anything you put on the forum I will read, I usually check for new posts every day.
I'm not sure about using the method you suggested to track this bug; I am running the league so not all the info will get saved and it has taken me several days to reproduce outside of the debugger before, would be gutted if I done that and then found the save hadn't kept this overflow error intact.
It is a good idea though, I hadn't thought of doing it that way.

:yeah ... leagues seems to be a special case ... code is scattered lots of places.
:i'm still trying to track it all down. {{User:Griz/sig}}
***


:well ... you know how to get ahold of me here ...
:i'll be checking in often and trying to sort out where all the league code is.

:btw ... i posted this at the forum
:http://www.darwinbots.com/Forum/index.php?showtopic=1837&pid=1369864&st=15&#entry1369864
:and will add it to the Debugging page as well but want to get it to you ...
:as it may be a big help in debugging those long sims:

<pre>
for those running/searching for those errors in long sims ...
if you run the compiled version and do an occasional save ...
[this can be automatically done, yes?]
then hopefully when an error is encountered and an error.sim
file produced ...
you can then fire it up in VB, ensuring the error trapping is
commented out, load in the error sim or ideally, the save that
you captured which occurred just prior to the error ...
and then run it from there using the debugger.
this may not always work, as there seem to be many variables ...
but I have had it do exactly this for me in the past ...
even using the generated error.sim ...
the error still existing ...
which can certainly save a great deal of time debugging.
[remember to save/rename the error.sim to keep on file
for continued debugging, so it isn't overwritten]
</pre>

later {{User:Griz/sig}} 16:55, 25 Dec 2006 (MST)

User talk:Jez

2006-12-26T04:50:24Z

Griz:

hi Jez ... 

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact [[User_talk:Numsgil|Nums]] or [[User_talk:EricL|Eric]] or [[User_talk:Endy|Endy]] too. 

i see you put some stuff in the [[Sandbox]] ... 
so will move it here and try to address them. 

also ... this page can always be edited, old matl overwritten ... whatever ... 
so put anything you want here, or at my talk page, in the way of questions. 

i put this page, your talk page, on my watchlist too ... 
so i can go check my watchlist anytime and be advised if any of the pages 
i watch have had any activity. you can add any page, like Debugging, etc. 

btw ... perhaps you know this already, or not ... 
the first page i come to here is [[Special:Recentchanges]] 
gives me a quick look at who is doing what, where. 

so ... is this a list of what you want to see implimented here? 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''The post by Ulciscor on bug reporting, I suggest we use to link all the sources of info from, is here: :'''''[http://www.darwinbots.com/Forum/index.php?showtopic=874 Bug Reporting]
:'''''That is pretty much the only relevant info on the forum, preceeding the topic we are using atm, that I have found so far.

:: ok. so what are you saying? put links there ... leading to relevant pages here?
:: i absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
:: or maintaining any kind of continuity, so i'll leave that end up to you.
:: i know wikis ... so will concentrate my efforts here ... and together maybe we can tie the two together.
:: what think ye?
----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

----
DB is the only forum I am active on, forgive my ignorance in replying this way:

Until your (welcome) call to look at the wiki. the last time I used it was when I re-returned to DB and used wiki as an aid to designing bots; the reason I feel it is a needed 'newb' resource and, as you pointed out. a much more easily accessible reource for such, is that is it is so much easily used as a source of information than the chaotic forum. (I am not wiki trained btw, maybe part of the reason I dont communicate via it)


:you'll pick it up. what's nice is, it's all editable. you can edit/overwrite/clear this page anytime ...
:but not only that ... it's still all kept in history ... so anything mistakenly jettisoned can be recovered.
:i think of wikis as virtual etch-a-sketches. ;)

While you: absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
It is a great place for discussion, I agree absolutely, it is a horrible place to find info, that's why I'm so pleased you are taking an interest in the wiki. All I was trying to do by adding those comments was make sure (for newb's) that the information was as clear and relevant as it could be.


:i was really jazzed back when i first discovered it ... and did a lot of work here ...
:then realized no one cared or even took advantage of it.

When it comes to links, the same as I have tried to do with the leagues, I want the relevant information as clearly marked as possible. Can take ages to track stuff down on the forum sometimes. I hate that. The Wiki needs to work in tandem with the forum though and andding links or making stickies (to the forum) seems (to me) the easiest way of doing this. If you are willing to fiddle with the wiki and request relevant links from apppropriate posts then I am more than willing to sort that out.


:sounds great to me

Working as a group is always stronger. (If DB evolution doesn't prove me wrong!)
Eventually a forum post with all the wiki links for newbs info maybe.


:exactly.

When it comes to downloading VB, the first time I chose every option, I'm like that, just a reminder to choose the most basic instal might be helpful; the second option on the first choice and no changes to the second choice was (I think) the way that worked for me.

I will add that link for the VB sourc download to the forum soon, in fact if not by tommorow then kick me. Thanks for pointing out it is in wiki not the forum.


:ok. i don't recall the steps i did to install it ...
:went thru the same as you ... just kept clicking whatever button it was ...
:and still got error messages but ... it somehow worked.
:installing and getting DB to work the first time was even more difficult ...
:as there was little guidance at the time ...
:having load the old 2.0 first was only mentioned in passing ...
:and the sysvars thing wasn't explained at all.
:i had runtime error after runtime error that no one could reproduce ...
:but of course they all had their paths set correctly ... while i didn't have a clue.
:i can only imagine how many folks give up before they ever get it up and happening.


Regards

Jez


:well ... you know how to get ahold of me here ...
:i'll be checking in often and trying to sort out where all the league code is.

:btw ... i posted this at the forum
:http://www.darwinbots.com/Forum/index.php?showtopic=1837&pid=1369864&st=15&#entry1369864
:and will add it to the Debugging page as well but want to get it to you ...
:as it may be a big help in debugging those long sims:

<pre>
for those running/searching for those errors in long sims ...
if you run the compiled version and do an occasional save ...
[this can be automatically done, yes?]
then hopefully when an error is encountered and an error.sim
file produced ...
you can then fire it up in VB, ensuring the error trapping is
commented out, load in the error sim or ideally, the save that
you captured which occurred just prior to the error ...
and then run it from there using the debugger.
this may not always work, as there seem to be many variables ...
but I have had it do exactly this for me in the past ...
even using the generated error.sim ...
the error still existing ...
which can certainly save a great deal of time debugging.
[remember to save/rename the error.sim to keep on file
for continued debugging, so it isn't overwritten]
</pre>

later {{User:Griz/sig}} 16:55, 25 Dec 2006 (MST)

Leagues

2006-12-26T01:33:43Z

Griz: /* F1 Mode */

Code/Debugging/Fixes/Changes for Leagues 

see also: [[DeBugging]] and [[Bug_Reports]] 

this is a Work In Progress
----

:Holy crap!!!
:League code is all over the place!

:Will just keep stashing it here as i find it.

==General Declarations==
<pre>
General
Declarations

Public Type datispecie
Skin(13) As Integer
path As String
Name As String
Stnrg As Integer
Veg As Boolean
Fixed As Boolean
color As Long
Colind As Integer
Postp As Single
Poslf As Single
Posdn As Single
Posrg As Single
qty As Integer
Comment As String
Leaguefilecomment As String
Mutables As mutationprobs
CantSee As Boolean ' Flag indicating eyes should be turned off for this

species
DisableDNA As Boolean ' Flag indicating DNA should not execute for

this species
DisableMovementSysvars As Boolean ' Flag indicating movement sysvars

should be disabled for this species
CantReproduce As Boolean ' Flag indicating whether reproduction has

been disabled for this species.
End Type
</pre>
<pre>

General
Declarations

'For League mode: (runs a series of F1 contests, 1 on 1)
Public LeagueMode As Boolean
Public Leaguename As String
Public Leaguererun As Boolean
Public LeagueEntrants(30) As datispecie 'all those already in the league
Public numLeagueEntrants As Integer
Public LeagueChallengers(31) As datispecie 'all those challenging (31 instead of

30 for some loop functions)
Public Defender As Integer 'couple used to determine which bots are facing

which in League mode
Public Attacker As Integer
Private eye11 As Integer 'for eye fudging. Search 'fudge' to see what I mean
</pre>
==General Startsim==
<pre>
General
Startsim

If LeagueMode Then
LeagueForm.Show
SimOpts.TotRunCycle = -1
End If
</pre>
==General StartSimul==
<pre>
General
StartSimul

'Restart
'Leaguemode handles restarts differently so only restart here if not in

leaguemode
If totnvegs = 0 And RestartMode And Not LeagueMode Then
' totnvegs = 1
' Contests = Contests + 1
ReStarts = ReStarts + 1
' Form1.StartSimul
StartAnotherRound = True
End If
End Sub
</pre>
==General FindSpecies==
<pre>
General
FindSpecies

If TotSpecies = 1 Then
' If Not LeagueMode Then
ContestMode = False
MDIForm1.F1Piccy.Visible = False
Contest_Form.Visible = False
t = MsgBox("You have only selected one species for combat. Formula 1

mode disabled", vbOKOnly)
Exit Sub
' End If
End If

</pre>
==MDIForm==
<pre>
MDIForm1 (Code)

Private Sub Leagues_Click()
optionsform.SSTab1.Tab = 4
NetEvent.Timer1.Enabled = False
NetEvent.Hide
optionsform.Show vbModal
End Sub
</pre>
==RerunCheck==
<pre>
RerunCheck

Private Sub RerunCheck_Click()
Leaguererun = CBool(RerunCheck.value)
End Sub

</pre>
==LeagueCheck==
<pre>
LeagueCheck

Private Sub LeagueCheck_Click()
If LeagueCheck.value = 1 Then
If F1Check.value <> 1 Then
F1Check.value = 1
F1check_Click
End If
LeagueMode = True
TmpOpts.League = True

If Leaguetype(0).value = False Then
Leaguetype(0).value = True
End If

Else
TmpOpts.League = False
LeagueMode = False
'Leaguetype(0).value = False
End If
End Sub

Private Sub LeagueAutoCheck()
If LeagueCheck.value <> 1 Then
LeagueCheck.value = 1
LeagueCheck_Click
End If
End Sub

Private Sub LeagueF1Option_Click()
Leaguename.text = "F1"
LeagueAutoCheck
End Sub

Private Sub LeagueF2Option_Click()
Leaguename.text = "F2"
LeagueAutoCheck
End Sub

Private Sub LeageSBOption_Click()
Leaguename.text = "Shortbot"
LeagueAutoCheck
End Sub

Private Sub LeagueMBOption_Click()
Leaguename.text = "Multibot"
LeagueAutoCheck
End Sub

Private Sub Leaguetype_Click(Index As Integer)
'If Leaguetype(Index).value = False Then
'' Leaguetype(Index).value = True
'End If
End Sub

Private Sub LightText_lostfocus()
Dim a As Single
a = val(LightText.text)
If a < LightUpDn.Min Then a = LightUpDn.Min
If a > LightUpDn.Max Then a = LightUpDn.Max
LightUpDn.value = a
TmpOpts.LightIntensity = a
End Sub

</pre>
==StartNew==
<pre>
StartNew

If LeagueMode = True Then LeagueForm.Visible = True ' EricL 3/20/2006 Have

to bring up league form after Options dialog goes away

'Form1.Active = True

'this just tricks the program into thinking we have enough
'species for F1 mode.
'If TmpOpts.League = True And TmpOpts.SpeciesNum = 2 Then
' additem TmpOpts.Specie(1).Name
' TmpOpts.SpeciesNum = TmpOpts.SpeciesNum + 1
'End If

SimOpts = TmpOpts

If SimOpts.League = True Then
LeagueMode = True 'should be anyway, but sometimes when
'restarting a league it screws up
LeagueInputChallengers
SetupLeague_Options
' SimOpts.F1 = True
LeagueForm.F1ChallengeOption_Click
End If

If Form1.Active Then Form1.SecTimer.Enabled = True

StartAnotherRound = True ' Set true for first simulation. Will get set true if

running leagues or using auto-restart mode
While StartAnotherRound
StartAnotherRound = False
Form1.StartSimul
Wend
End Sub

</pre>

==F1 Override code as of 2.42.n ==
(not sure in what modual this is in. {{User:Griz/sig}})

:Eric: I will add max cycles / Max rounds to my list of future work items.
:These will be post 2.43 however.

<pre>
If TmpOpts.F1 = True Then

'Zero out all Costs
For t = 1 To 70
TmpOpts.Costs(t) = 0
Next t

'Now set the ones that matter
TmpOpts.Costs(SHOTCOST) = 2
TmpOpts.Costs(COSTSTORE) = 0.04
TmpOpts.Costs(CONDCOST) = 0.004
TmpOpts.Costs(MOVECOST) = 0.05
TmpOpts.Costs(TIECOST) = 2
TmpOpts.Costs(SHOTCOST) = 2
TmpOpts.Costs(VENOMCOST) = 1
TmpOpts.Costs(POISONCOST) = 1
TmpOpts.Costs(SLIMECOST) = 1
TmpOpts.Costs(SHELLCOST) = 1
TmpOpts.Costs(COSTMULTIPLIER) = 1
TmpOpts.DynamicCosts = False

TmpOpts.CorpseEnabled = False ' No Corpses
TmpOpts.DayNight = False ' Sun never sets
TmpOpts.FieldWidth = 9237
TmpOpts.FieldHeight = 6928
TmpOpts.FieldSize = 1
TmpOpts.MaxEnergy = 40 ' Veggy nrg per cycle
TmpOpts.MaxPopulation = 25 ' Veggy max population
TmpOpts.MinVegs = 10
TmpOpts.Pondmode = False
TmpOpts.PhysBrown = 0 ' Animal Motion
TmpOpts.Toroidal = True

TmpOpts.BadWastelevel = 10000 ' Pretty high Waste Threshold

For t = 0 To TmpOpts.SpeciesNum - 1
TmpOpts.Specie(t).Fixed = False 'Nobody is fixed
TmpOpts.Specie(t).Mutables.Mutations = False 'Nobody can mutate
TmpOpts.Specie(t).CantSee = False
TmpOpts.Specie(t).DisableDNA = False
TmpOpts.Specie(t).CantReproduce = False
TmpOpts.Specie(t).DisableMovementSysvars = False
Next t

TmpOpts.Specie(0).Veg = True 'Force the first entry to be a veggy
TmpOpts.Specie(0).qty = 10 ' Do this so that eye fudge works

TmpOpts.FixedBotRadii = False
TmpOpts.NoShotDecay = False
TmpOpts.DisableTies = False
TmpOpts.RepopAmount = 10
TmpOpts.RepopCooldown = 1
TmpOpts.MaxVelocity = 180
TmpOpts.VegFeedingMethod = 0 ' Straight nrg /cycle feeding method
TmpOpts.VegFeedingToBody = 0.5 ' 50/50 nrg/body veggy feeding ratio
TmpOpts.SunUp = False ' Turn off bringing the sun up due to a threshold
TmpOpts.SunDown = False ' Turn off setting the sun due to a threshold
TmpOpts.CoefficientElasticity = 0 ' Collisions are soft.
TmpOpts.Ygravity = 0

' Surface Friction - Metal Option
TmpOpts.Zgravity = 2
TmpOpts.CoefficientStatic = 0.6
TmpOpts.CoefficientKinetic = 0.4

'No Fluid Resistance
TmpOpts.Viscosity = 0#
TmpOpts.Density = 0#

'Shot Energy Physics
TmpOpts.EnergyProp = 1 ' 100% normal shot nrg
TmpOpts.EnergyExType = True ' Use Proportional shot nrg exchange method

DispSettings
End If
</pre>

== F1 Mode ==

:well ... was hoping to find a way to make Max Rounds actually
:be max rounds but i can't make any sense of this.
:maybe somebody can point me to that?
:or add more comments to the below so i can might
:be able to get a grip on the flow here.
:that would be appreciated. {{User:Griz/sig}} 18:33, 25 Dec 2006 (MST)

F1Mode modual

<pre>
Option Explicit

Public Type pop
SpName As String
Population As Integer
Wins As Integer
exist As Integer
End Type

'For F1 Contests:
Public PopArray(20) As pop
Public F1count As Single
Public ContestMode As Boolean
Public Contests As Integer
Public TotSpecies As Integer
Public Maxrounds As Integer
Public RestartMode As Boolean
Public ReStarts As Long
Public FirstCycle As Boolean
Public SampFreq As Integer
Public Over As Boolean
Public MaxRoundsToDraw As Integer
Public MaxCycles As Long

'For League mode: (runs a series of F1 contests, 1 on 1)
Public LeagueMode As Boolean
Public Leaguename As String
Public Leaguererun As Boolean
Public LeagueEntrants(30) As datispecie 'all those already in the league
Public numLeagueEntrants As Integer
Public LeagueChallengers(31) As datispecie 'all those challenging (31 instead of 30 for some loop functions)
Public Defender As Integer 'couple used to determine which bots are facing which in League mode
Public Attacker As Integer
Private eye11 As Integer 'for eye fudging. Search 'fudge' to see what I mean

Public StartAnotherRound As Boolean

Public Sub ResetContest()
Dim t As Integer
Contests = 0
Contest_Form.Winner.Caption = ""
Contest_Form.Winner1.Caption = ""
For t = 1 To 5
PopArray(t).SpName = ""
PopArray(t).Population = 0
PopArray(t).Wins = 0
Next t
End Sub

Public Sub FindSpecies()
'counts species of robots at beginning of simulation
Dim SpeciePointer As Integer
Dim t As Integer
Dim nd As node
Dim robcol(10) As Long
Dim realname As String
TotSpecies = 0
If Contests = 0 Then ResetContest

For t = 1 To 20
PopArray(t).SpName = ""
PopArray(t).Population = 0
'If Contests = 0 Then PopArray(t).Wins = 0
Next t
Contest_Form.Show
Contest_Form.Contests.Caption = Str(Contests)

For t = 1 To MaxRobs
With rob(t)
'If Not .Veg And Not .Corpse And Not .wall And .exist Then
If Not .Veg And Not .Corpse And .exist Then
For SpeciePointer = 1 To 20

realname = Left(.FName, Len(.FName) - 4)
If realname = PopArray(SpeciePointer).SpName Then
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
Exit For
End If
If PopArray(SpeciePointer).SpName = "" Then
TotSpecies = TotSpecies + 1
PopArray(SpeciePointer).SpName = realname
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
robcol(SpeciePointer) = .color
Exit For
End If
Next SpeciePointer
End If
End With
Next t
If TotSpecies = 1 Then
' If Not LeagueMode Then
ContestMode = False
MDIForm1.F1Piccy.Visible = False
Contest_Form.Visible = False
t = MsgBox("You have only selected one species for combat. Formula 1 mode disabled", vbOKOnly)
Exit Sub
' End If
End If
If PopArray(1).SpName <> "" Then
Contest_Form.Robname1.Caption = PopArray(1).SpName
Contest_Form.wins1.Caption = Str(PopArray(1).Wins)
Contest_Form.Pop1.Caption = Str(PopArray(1).Population)
Contest_Form.Robname1.ForeColor = robcol(1)
Contest_Form.Option1(1).Visible = True
Else
Contest_Form.Robname1.Caption = ""
Contest_Form.wins1.Caption = ""
Contest_Form.Pop1.Caption = ""
Contest_Form.Option1(1).Visible = False
End If
If PopArray(2).SpName <> "" Then
Contest_Form.Robname2.Caption = PopArray(2).SpName
Contest_Form.Wins2.Caption = Str(PopArray(2).Wins)
Contest_Form.Pop2.Caption = Str(PopArray(2).Population)
Contest_Form.Robname2.ForeColor = robcol(2)
Contest_Form.Option1(2).Visible = True
Else
Contest_Form.Robname2.Caption = ""
Contest_Form.Wins2.Caption = ""
Contest_Form.Pop2.Caption = ""
Contest_Form.Option1(2).Visible = False
End If
If PopArray(3).SpName <> "" Then
Contest_Form.Robname3.Caption = PopArray(3).SpName
Contest_Form.Wins3.Caption = Str(PopArray(3).Wins)
Contest_Form.Pop3.Caption = Str(PopArray(3).Population)
Contest_Form.Robname3.ForeColor = robcol(3)
Contest_Form.Option1(3).Visible = True
Else
Contest_Form.Robname3.Caption = ""
Contest_Form.Wins3.Caption = ""
Contest_Form.Pop3.Caption = ""
Contest_Form.Option1(3).Visible = False
End If
If PopArray(4).SpName <> "" Then
Contest_Form.Robname4.Caption = PopArray(4).SpName
Contest_Form.Wins4.Caption = Str(PopArray(4).Wins)
Contest_Form.Pop4.Caption = Str(PopArray(4).Population)
Contest_Form.Robname4.ForeColor = robcol(4)
Contest_Form.Option1(4).Visible = True
Else
Contest_Form.Robname4.Caption = ""
Contest_Form.Wins4.Caption = ""
Contest_Form.Pop4.Caption = ""
Contest_Form.Option1(4).Visible = False
End If
If PopArray(5).SpName <> "" Then
Contest_Form.Robname5.Caption = PopArray(5).SpName
Contest_Form.Wins5.Caption = Str(PopArray(5).Wins)
Contest_Form.Pop5.Caption = Str(PopArray(5).Population)
Contest_Form.Robname5.ForeColor = robcol(5)
Contest_Form.Option1(5).Visible = True
Else
Contest_Form.Robname5.Caption = ""
Contest_Form.Wins5.Caption = ""
Contest_Form.Pop5.Caption = ""
Contest_Form.Option1(5).Visible = False
End If
If ContestMode Then
Contest_Form.Visible = True
'Contests = 0
End If
End Sub
Public Sub Countpop()
'counts population of robots at regular intervals
'for auto-combat mode and for automatic reset of starting conditions
Dim SpeciePointer As Integer
Dim SpeciesLeft As Integer
Dim t As Integer
Dim p As Integer
Dim nd As node
Dim Winner As String
Dim Wins As Single
Dim realname As String

For t = 1 To 20
PopArray(t).Population = 0
PopArray(t).exist = 0
Next t

For t = 1 To MaxRobs
With rob(t)
'If Not .Veg And Not .Corpse And Not .wall And .exist Then
If Not .Veg And Not .Corpse And .exist Then
For SpeciePointer = 1 To TotSpecies
realname = Left(.FName, Len(.FName) - 4)
If realname = PopArray(SpeciePointer).SpName Then
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
PopArray(SpeciePointer).exist = 1
Exit For
End If
Next SpeciePointer
End If
End With
Next t
If Contests < Maxrounds Then
Contest_Form.Contests.Caption = Contests + 1
End If
Contest_Form.Maxrounds.Caption = Maxrounds
Contest_Form.Refresh
SpeciesLeft = 0
For p = 1 To TotSpecies
SpeciesLeft = SpeciesLeft + PopArray(p).exist
Next p
If SpeciesLeft = 1 And Contests + 1 <= Maxrounds And Over = False Then
For t = 1 To TotSpecies
If PopArray(t).Population <> 0 Then
PopArray(t).Wins = PopArray(t).Wins + 1
End If
Next t
End If
Contest_Form.Visible = True
If PopArray(1).SpName <> "" Then
Contest_Form.Robname1.Caption = PopArray(1).SpName
Contest_Form.wins1.Caption = Str(PopArray(1).Wins)
Contest_Form.Pop1.Caption = Str(PopArray(1).Population)
Else
Contest_Form.Robname1.Caption = ""
Contest_Form.wins1.Caption = ""
Contest_Form.Pop1.Caption = ""
End If
If PopArray(2).SpName <> "" Then
Contest_Form.Robname2.Caption = PopArray(2).SpName
Contest_Form.Wins2.Caption = Str(PopArray(2).Wins)
Contest_Form.Pop2.Caption = Str(PopArray(2).Population)
Else
Contest_Form.Robname2.Caption = ""
Contest_Form.Wins2.Caption = ""
Contest_Form.Pop2.Caption = ""
End If
If PopArray(3).SpName <> "" Then
Contest_Form.Robname3.Caption = PopArray(3).SpName
Contest_Form.Wins3.Caption = Str(PopArray(3).Wins)
Contest_Form.Pop3.Caption = Str(PopArray(3).Population)
Else
Contest_Form.Robname3.Caption = ""
Contest_Form.Wins3.Caption = ""
Contest_Form.Pop3.Caption = ""
End If
If PopArray(4).SpName <> "" Then
Contest_Form.Robname4.Caption = PopArray(4).SpName
Contest_Form.Wins4.Caption = Str(PopArray(4).Wins)
Contest_Form.Pop4.Caption = Str(PopArray(4).Population)
Else
Contest_Form.Robname4.Caption = ""
Contest_Form.Wins4.Caption = ""
Contest_Form.Pop4.Caption = ""
End If
If PopArray(5).SpName <> "" Then
Contest_Form.Robname5.Caption = PopArray(5).SpName
Contest_Form.Wins5.Caption = Str(PopArray(5).Wins)
Contest_Form.Pop5.Caption = Str(PopArray(5).Population)
Else
Contest_Form.Robname5.Caption = ""
Contest_Form.Wins5.Caption = ""
Contest_Form.Pop5.Caption = ""
End If
Contest_Form.Refresh
F1count = 0
Wins = Sqr(Maxrounds) + (Maxrounds / 2)
If SpeciesLeft = 1 And Contests + 1 <= Maxrounds Then
If Contests + 1 = Maxrounds And Over = False Then 'contest is over now
For t = 1 To TotSpecies
If PopArray(t).Wins > Wins Then
Winner = PopArray(t).SpName
Over = True
'set up next league round
If LeagueMode Then
If Winner + ".txt" = LeagueEntrants(Defender).Name Then
'attacker lost, move to next challenger
Attacker = -1
Defender = 29

LeagueEnd

ElseIf Attacker < 0 Then
'attacker won. He was in the challenge array, move him to the
'league array and the bot he defeated to the challenge array
'This defeated bot will have another chance to get back into the
'league later.
If Winner + ".txt" = LeagueChallengers(-Attacker - 1).Name Then
Dim temp As datispecie
temp = LeagueChallengers(-Attacker - 1)
If LeagueEntrants(Defender).Name <> "EMPTY.TXT" And LeagueEntrants(Defender).Name <> "" Then
LeagueChallengers(-Attacker - 1) = LeagueEntrants(Defender)
LeagueEntrants(Defender) = temp
End If

Attacker = Defender
Defender = Defender - 1

End If
ElseIf Attacker > 0 Then
If Winner + ".txt" = LeagueEntrants(Attacker).Name Then
'attacker won, he was in the league already, swap with defender
Dim tempa As datispecie
tempa = LeagueEntrants(Attacker)
LeagueEntrants(Attacker) = LeagueEntrants(Defender)
LeagueEntrants(Defender) = tempa
Attacker = Defender
Defender = Defender - 1
End If
Else
MsgBox "Unknown Winner. Poor programmer to blame.", vbOKOnly, "Get a Real Job"
End If

If Defender = -1 Then
'that's it, we've hit the top. Congrats, start the next round
Attacker = -1
Defender = 29
If LeagueChallengers(0).Name = "" Then LeagueEnd
End If
Contests = 0
ReStarts = 0
ResetContest
Maxrounds = 5
LeagueForm.Erase_League_Highlights
If Form1.Active = True Then SetupLeagueRound

'update on screen list
If LeagueForm.F1ChallengeOption.value = True Then
LeagueForm.F1ChallengeOption_Click
Else
LeagueForm.ChallengersOption_Click
End If

If Form1.Active = True Then 'Form1.StartSimul
StartAnotherRound = True
Else
StartAnotherRound = False
End If
End If
Contest_Form.Refresh
Exit Sub
Else
Winner = "Statistical Draw. Extending contest."
End If
Next t
Contest_Form.Winner.Caption = Winner
If Winner <> "Statistical Draw. Extending contest." Then
Contest_Form.Winner1.Caption = "Winner"
Else
Maxrounds = Maxrounds + 1
If MaxRoundsToDraw <> 0 And Maxrounds >= 10 And Maxrounds > MaxRoundsToDraw Then
Contest_Form.Winner1.Caption = "Win By Draw"
Winner = "Maximum Rounds Reached."
Contest_Form.Refresh
Over = True

'Declare Defender to have won
Attacker = -1
Defender = 29
LeagueEnd

Contests = 0
ReStarts = 0
ResetContest
Maxrounds = 5
LeagueForm.Erase_League_Highlights
If Form1.Active = True Then SetupLeagueRound

'update on screen list
If LeagueForm.F1ChallengeOption.value = True Then
LeagueForm.F1ChallengeOption_Click
Else
LeagueForm.ChallengersOption_Click
End If

If Form1.Active = True Then 'Form1.StartSimul
StartAnotherRound = True
Else
StartAnotherRound = False
End If
Contest_Form.Refresh
Exit Sub
Else
Contest_Form.Winner1.Caption = "No Winner"
Over = False
End If
End If
End If
Contest_Form.Refresh
If Contests + 1 <= Maxrounds And Over = False Then
Contests = Contests + 1
StartAnotherRound = True
'Form1.StartSimul
Else
StartAnotherRound = False
End If
End If
End Sub

Public Sub SetupLeague_Options()
If optionsform.Leaguename.text <> "" And LeagueMode Then
Dim LeagueError As Integer

F1Mode.Leaguename = optionsform.Leaguename.text

LeagueError = Load_League_File(F1Mode.Leaguename)
If LeagueError = -1 Then
If MsgBox("League file does not exist. Make a new one?", vbYesNo, "League Undetected") = vbNo Then
Exit Sub
Else
'make a new league file and directory.
'does this automatically when user hits save after
'league runs.
End If
ElseIf LeagueError > 0 Then
If MsgBox("A robot listed doesn't exist. Delete from league table?", vbYesNo, "League Robot Not Found") = vbNo Then
Exit Sub
Else
'delete robot leaguerror from league table
End If
End If
LeagueForm.F1ChallengeOption.Caption = optionsform.Leaguename.text + " Challenge League"
'LeagueForm.Visible = True ' EricL 3/20/2006 Moved this to StartNew_Click in the Options Form
ElseIf optionsform.Leaguename.text = "" And LeagueMode Then
MsgBox "No league name. League must have a name.", vbOKOnly, "League Name Needed"
Exit Sub
ElseIf LeagueMode = False Then
LeagueForm.Visible = False
End If
Attacker = -1
Defender = 29

If Leaguererun = True Then
Dim Index As Integer
Dim numLeagueEntrants As Integer

numLeagueEntrants = 0
For Index = 0 To 29
If LeagueEntrants(Index).Name <> "" And LeagueEntrants(Index).Name <> "EMPTY" Then
numLeagueEntrants = numLeagueEntrants + 1
End If
Next Index

If numLeagueEntrants <= 1 Then
MsgBox "Can't rerun league. Not enough league entrants."
Leaguererun = False
optionsform.RerunCheck.value = 0
Else
For Index = 0 To 29
LeagueChallengers(Index) = LeagueEntrants(Index)
LeagueEntrants(Index).Name = ""
Next Index
End If
End If

SetupLeagueRound
End Sub

Public Sub LeagueInputChallengers()
Dim Index As Integer
Dim offset As Integer
Dim blank As datispecie

For Index = 0 To SimOpts.SpeciesNum - 1
If SimOpts.Specie(Index).Veg = True Then
offset = offset + 1
Else
LeagueChallengers(Index - offset) = SimOpts.Specie(Index)
If Index > 2 Then SimOpts.Specie(Index) = blank

LeagueChallengers(Index - offset).Mutables.Mutations = False
End If

If Index - offset > 29 Then
MsgBox "Not enough challenger slots to accomodate so many. Only running the first 30 bots.", vbOKOnly, "Too Many Challengers"
Exit Sub
End If
Next Index

End Sub

Public Sub SetupLeagueRound()
Dim attackerfound As Boolean
Dim defenderfound As Boolean
Dim loopdone As Boolean

SimOpts.SpeciesNum = 3
'SimOpts.Specie(0) = veg spot

While Not loopdone
DoEvents
If Attacker < 0 And Not attackerfound Then
SimOpts.Specie(1) = LeagueChallengers(-Attacker - 1)
ElseIf Attacker > 0 And Not attackerfound Then
SimOpts.Specie(1) = LeagueEntrants(Attacker)
End If

If Not defenderfound Then
SimOpts.Specie(2) = LeagueEntrants(Defender)
SimOpts.Specie(2).Posrg = SimOpts.Specie(1).Posrg
SimOpts.Specie(2).Posdn = SimOpts.Specie(1).Posdn
End If

'check to see if attacker and defender are the same
'if so, then prompt the user for action

If SimOpts.Specie(1).Name = "" Then
SimOpts.Specie(1).Name = "EMPTY.TXT"
TmpOpts.Specie(1).Name = "EMPTY.TXT"
End If
If SimOpts.Specie(2).Name = "" Then
SimOpts.Specie(2).Name = "EMPTY.TXT"
TmpOpts.Specie(2).Name = "EMPTY.TXT"
End If

If Left(SimOpts.Specie(1).Name, Len(SimOpts.Specie(1).Name) - 4) = "EMPTY" Then
attackerfound = False
If Attacker < 0 Then
Attacker = Attacker + 1
If Attacker = 0 Then Attacker = 29
Else
Attacker = Attacker - 1
End If
Else
attackerfound = True
End If

If Left(SimOpts.Specie(2).Name, Len(SimOpts.Specie(2).Name) - 4) = "EMPTY" Then
defenderfound = False
Defender = Defender - 1
If Defender < 0 Then
Defender = 0
defenderfound = True
End If
Else
defenderfound = True
End If

If attackerfound And defenderfound And SimOpts.Specie(2).Name = SimOpts.Specie(1).Name Then
If MsgBox("Challenger and Defender are the same bot. Continue with this Challenger?", vbYesNo, "Identical Bots") = vbYes Then
'run these two bots against each other.
Else
'bot has lost, move on to next challenger
End If
End If
If attackerfound And defenderfound Then loopdone = True
Wend

'now check to see if we need to move challenger up slots
'for an empty league
If LeagueEntrants(0).Name = "" Or Left(LeagueEntrants(0).Name, 5) = "EMPTY" Then
'empty league file
LeagueEntrants(0) = LeagueChallengers(-Attacker - 1)
LeagueEnd
SetupLeagueRound
ElseIf Defender <> 29 And Attacker < 0 Then
LeagueEntrants(Defender + 1) = LeagueChallengers(-Attacker - 1)
LeagueChallengers(-Attacker - 1).Name = ""
Attacker = Defender + 1
'empty league
End If

' If SimOpts.Specie(1).color = vbBlue And SimOpts.Specie(2).color = vbBlue Then
SimOpts.Specie(0).color = vbGreen
TmpOpts.Specie(0).color = vbGreen
SimOpts.Specie(1).color = vbRed
TmpOpts.Specie(1).color = vbRed
SimOpts.Specie(2).color = vbBlue
TmpOpts.Specie(2).color = vbBlue
' End If
End Sub

Public Function League_Eyefudge(robotnumber As Integer, t As Long)
'tests to see if two bots have the same number of refeye statements.
'if so, it adds the following gene at teh end of the DNA
'This is definately a fudge, both in practice and implementation.
'A better system will be needed if anything is done to break this
'(such as a bot not using refeyes for conspec identification)
'or bots that are so close that this gives a virus bot an undue edge
'Later: add a prompt for action and a small timer. If timer runs out then
'we use the default action below

If eye11 = rob(robotnumber).occurr(8) Then
'If SimOpts.TotRunCycle < 3 And eye11 = rob(robotnumber).occurr(8) Then
ReDim Preserve rob(robotnumber).DNA(UBound(rob(robotnumber).DNA) + 6)

'cond
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 1
t = t + 1

'*.eye5
rob(robotnumber).DNA(t).tipo = 1
rob(robotnumber).DNA(t).value = 505
t = t + 1

'dup
rob(robotnumber).DNA(t).tipo = 2
rob(robotnumber).DNA(t).value = 23
t = t + 1

'!=
rob(robotnumber).DNA(t).tipo = 3
rob(robotnumber).DNA(t).value = 4
t = t + 1

'start
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 2
t = t + 1

'stop
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 3
t = t + 1

'end
rob(robotnumber).DNA(t).tipo = 10 ' EricL - Changed tipo from 4 to 10, March 15, 2006
rob(robotnumber).DNA(t).value = 1 ' EricL - Changed value from 4 to 1, March 15, 2006

rob(robotnumber).occurr(8) = rob(robotnumber).occurr(8) + 1
End If
End Function

Public Sub Record_11eyes(eyes As Integer)
eye11 = eyes
End Sub

Private Sub LeagueEnd()
Dim i As Integer

If LeagueChallengers(-Attacker).Name = "EMPTY" Or LeagueChallengers(-Attacker).Name = "" Then
LeagueMode = False
ContestMode = False
' SimOpts.F1 = False

'pause simulation.
Form1.Active = False
Form1.SecTimer.Enabled = False

If MsgBox("The league has finished running. Simulation paused. Save league file?", vbYesNo, "League Finished.") = vbYes Then
'save results into file
Save_League_File Leaguename
End If
LeagueForm.Hide
Contest_Form.Hide

Else
Dim Index As Integer

For Index = 0 To 29
LeagueChallengers(Index) = LeagueChallengers(Index + 1)
Next Index

LeagueChallengers(29).Name = ""
End If

Attacker = -1
Defender = 29

'Puts things back the way they were before the league began so that the species list looks okay.
TmpOpts = SimOpts

'Let the sim play again so that it's not paused for the user
' Form1.Active = True
' Form1.SecTimer.Enabled = True
End Sub

Private Sub stuff()

'move up all challengers
Dim Index As Integer
For Index = 1 To 29
LeagueChallengers(Index - 1) = LeagueChallengers(Index)
Next Index

Dim empty0 As datispecie
LeagueChallengers(29) = empty0
End Sub

</pre>

Leagues

2006-12-26T01:22:33Z

Griz: F1Mode code added

Code/Debugging/Fixes/Changes for Leagues 

see also: [[DeBugging]] and [[Bug_Reports]] 

this is a Work In Progress
----

:Holy crap!!!
:League code is all over the place!

:Will just keep stashing it here as i find it.

==General Declarations==
<pre>
General
Declarations

Public Type datispecie
Skin(13) As Integer
path As String
Name As String
Stnrg As Integer
Veg As Boolean
Fixed As Boolean
color As Long
Colind As Integer
Postp As Single
Poslf As Single
Posdn As Single
Posrg As Single
qty As Integer
Comment As String
Leaguefilecomment As String
Mutables As mutationprobs
CantSee As Boolean ' Flag indicating eyes should be turned off for this

species
DisableDNA As Boolean ' Flag indicating DNA should not execute for

this species
DisableMovementSysvars As Boolean ' Flag indicating movement sysvars

should be disabled for this species
CantReproduce As Boolean ' Flag indicating whether reproduction has

been disabled for this species.
End Type
</pre>
<pre>

General
Declarations

'For League mode: (runs a series of F1 contests, 1 on 1)
Public LeagueMode As Boolean
Public Leaguename As String
Public Leaguererun As Boolean
Public LeagueEntrants(30) As datispecie 'all those already in the league
Public numLeagueEntrants As Integer
Public LeagueChallengers(31) As datispecie 'all those challenging (31 instead of

30 for some loop functions)
Public Defender As Integer 'couple used to determine which bots are facing

which in League mode
Public Attacker As Integer
Private eye11 As Integer 'for eye fudging. Search 'fudge' to see what I mean
</pre>
==General Startsim==
<pre>
General
Startsim

If LeagueMode Then
LeagueForm.Show
SimOpts.TotRunCycle = -1
End If
</pre>
==General StartSimul==
<pre>
General
StartSimul

'Restart
'Leaguemode handles restarts differently so only restart here if not in

leaguemode
If totnvegs = 0 And RestartMode And Not LeagueMode Then
' totnvegs = 1
' Contests = Contests + 1
ReStarts = ReStarts + 1
' Form1.StartSimul
StartAnotherRound = True
End If
End Sub
</pre>
==General FindSpecies==
<pre>
General
FindSpecies

If TotSpecies = 1 Then
' If Not LeagueMode Then
ContestMode = False
MDIForm1.F1Piccy.Visible = False
Contest_Form.Visible = False
t = MsgBox("You have only selected one species for combat. Formula 1

mode disabled", vbOKOnly)
Exit Sub
' End If
End If

</pre>
==MDIForm==
<pre>
MDIForm1 (Code)

Private Sub Leagues_Click()
optionsform.SSTab1.Tab = 4
NetEvent.Timer1.Enabled = False
NetEvent.Hide
optionsform.Show vbModal
End Sub
</pre>
==RerunCheck==
<pre>
RerunCheck

Private Sub RerunCheck_Click()
Leaguererun = CBool(RerunCheck.value)
End Sub

</pre>
==LeagueCheck==
<pre>
LeagueCheck

Private Sub LeagueCheck_Click()
If LeagueCheck.value = 1 Then
If F1Check.value <> 1 Then
F1Check.value = 1
F1check_Click
End If
LeagueMode = True
TmpOpts.League = True

If Leaguetype(0).value = False Then
Leaguetype(0).value = True
End If

Else
TmpOpts.League = False
LeagueMode = False
'Leaguetype(0).value = False
End If
End Sub

Private Sub LeagueAutoCheck()
If LeagueCheck.value <> 1 Then
LeagueCheck.value = 1
LeagueCheck_Click
End If
End Sub

Private Sub LeagueF1Option_Click()
Leaguename.text = "F1"
LeagueAutoCheck
End Sub

Private Sub LeagueF2Option_Click()
Leaguename.text = "F2"
LeagueAutoCheck
End Sub

Private Sub LeageSBOption_Click()
Leaguename.text = "Shortbot"
LeagueAutoCheck
End Sub

Private Sub LeagueMBOption_Click()
Leaguename.text = "Multibot"
LeagueAutoCheck
End Sub

Private Sub Leaguetype_Click(Index As Integer)
'If Leaguetype(Index).value = False Then
'' Leaguetype(Index).value = True
'End If
End Sub

Private Sub LightText_lostfocus()
Dim a As Single
a = val(LightText.text)
If a < LightUpDn.Min Then a = LightUpDn.Min
If a > LightUpDn.Max Then a = LightUpDn.Max
LightUpDn.value = a
TmpOpts.LightIntensity = a
End Sub

</pre>
==StartNew==
<pre>
StartNew

If LeagueMode = True Then LeagueForm.Visible = True ' EricL 3/20/2006 Have

to bring up league form after Options dialog goes away

'Form1.Active = True

'this just tricks the program into thinking we have enough
'species for F1 mode.
'If TmpOpts.League = True And TmpOpts.SpeciesNum = 2 Then
' additem TmpOpts.Specie(1).Name
' TmpOpts.SpeciesNum = TmpOpts.SpeciesNum + 1
'End If

SimOpts = TmpOpts

If SimOpts.League = True Then
LeagueMode = True 'should be anyway, but sometimes when
'restarting a league it screws up
LeagueInputChallengers
SetupLeague_Options
' SimOpts.F1 = True
LeagueForm.F1ChallengeOption_Click
End If

If Form1.Active Then Form1.SecTimer.Enabled = True

StartAnotherRound = True ' Set true for first simulation. Will get set true if

running leagues or using auto-restart mode
While StartAnotherRound
StartAnotherRound = False
Form1.StartSimul
Wend
End Sub

</pre>

==F1 Override code as of 2.42.n ==
(not sure in what modual this is in. {{User:Griz/sig}})

:Eric: I will add max cycles / Max rounds to my list of future work items.
:These will be post 2.43 however.

<pre>
If TmpOpts.F1 = True Then

'Zero out all Costs
For t = 1 To 70
TmpOpts.Costs(t) = 0
Next t

'Now set the ones that matter
TmpOpts.Costs(SHOTCOST) = 2
TmpOpts.Costs(COSTSTORE) = 0.04
TmpOpts.Costs(CONDCOST) = 0.004
TmpOpts.Costs(MOVECOST) = 0.05
TmpOpts.Costs(TIECOST) = 2
TmpOpts.Costs(SHOTCOST) = 2
TmpOpts.Costs(VENOMCOST) = 1
TmpOpts.Costs(POISONCOST) = 1
TmpOpts.Costs(SLIMECOST) = 1
TmpOpts.Costs(SHELLCOST) = 1
TmpOpts.Costs(COSTMULTIPLIER) = 1
TmpOpts.DynamicCosts = False

TmpOpts.CorpseEnabled = False ' No Corpses
TmpOpts.DayNight = False ' Sun never sets
TmpOpts.FieldWidth = 9237
TmpOpts.FieldHeight = 6928
TmpOpts.FieldSize = 1
TmpOpts.MaxEnergy = 40 ' Veggy nrg per cycle
TmpOpts.MaxPopulation = 25 ' Veggy max population
TmpOpts.MinVegs = 10
TmpOpts.Pondmode = False
TmpOpts.PhysBrown = 0 ' Animal Motion
TmpOpts.Toroidal = True

TmpOpts.BadWastelevel = 10000 ' Pretty high Waste Threshold

For t = 0 To TmpOpts.SpeciesNum - 1
TmpOpts.Specie(t).Fixed = False 'Nobody is fixed
TmpOpts.Specie(t).Mutables.Mutations = False 'Nobody can mutate
TmpOpts.Specie(t).CantSee = False
TmpOpts.Specie(t).DisableDNA = False
TmpOpts.Specie(t).CantReproduce = False
TmpOpts.Specie(t).DisableMovementSysvars = False
Next t

TmpOpts.Specie(0).Veg = True 'Force the first entry to be a veggy
TmpOpts.Specie(0).qty = 10 ' Do this so that eye fudge works

TmpOpts.FixedBotRadii = False
TmpOpts.NoShotDecay = False
TmpOpts.DisableTies = False
TmpOpts.RepopAmount = 10
TmpOpts.RepopCooldown = 1
TmpOpts.MaxVelocity = 180
TmpOpts.VegFeedingMethod = 0 ' Straight nrg /cycle feeding method
TmpOpts.VegFeedingToBody = 0.5 ' 50/50 nrg/body veggy feeding ratio
TmpOpts.SunUp = False ' Turn off bringing the sun up due to a threshold
TmpOpts.SunDown = False ' Turn off setting the sun due to a threshold
TmpOpts.CoefficientElasticity = 0 ' Collisions are soft.
TmpOpts.Ygravity = 0

' Surface Friction - Metal Option
TmpOpts.Zgravity = 2
TmpOpts.CoefficientStatic = 0.6
TmpOpts.CoefficientKinetic = 0.4

'No Fluid Resistance
TmpOpts.Viscosity = 0#
TmpOpts.Density = 0#

'Shot Energy Physics
TmpOpts.EnergyProp = 1 ' 100% normal shot nrg
TmpOpts.EnergyExType = True ' Use Proportional shot nrg exchange method

DispSettings
End If
</pre>

== F1 Mode ==

F1Mode modual

<pre>
Option Explicit

Public Type pop
SpName As String
Population As Integer
Wins As Integer
exist As Integer
End Type

'For F1 Contests:
Public PopArray(20) As pop
Public F1count As Single
Public ContestMode As Boolean
Public Contests As Integer
Public TotSpecies As Integer
Public Maxrounds As Integer
Public RestartMode As Boolean
Public ReStarts As Long
Public FirstCycle As Boolean
Public SampFreq As Integer
Public Over As Boolean
Public MaxRoundsToDraw As Integer
Public MaxCycles As Long

'For League mode: (runs a series of F1 contests, 1 on 1)
Public LeagueMode As Boolean
Public Leaguename As String
Public Leaguererun As Boolean
Public LeagueEntrants(30) As datispecie 'all those already in the league
Public numLeagueEntrants As Integer
Public LeagueChallengers(31) As datispecie 'all those challenging (31 instead of 30 for some loop functions)
Public Defender As Integer 'couple used to determine which bots are facing which in League mode
Public Attacker As Integer
Private eye11 As Integer 'for eye fudging. Search 'fudge' to see what I mean

Public StartAnotherRound As Boolean

Public Sub ResetContest()
Dim t As Integer
Contests = 0
Contest_Form.Winner.Caption = ""
Contest_Form.Winner1.Caption = ""
For t = 1 To 5
PopArray(t).SpName = ""
PopArray(t).Population = 0
PopArray(t).Wins = 0
Next t
End Sub

Public Sub FindSpecies()
'counts species of robots at beginning of simulation
Dim SpeciePointer As Integer
Dim t As Integer
Dim nd As node
Dim robcol(10) As Long
Dim realname As String
TotSpecies = 0
If Contests = 0 Then ResetContest

For t = 1 To 20
PopArray(t).SpName = ""
PopArray(t).Population = 0
'If Contests = 0 Then PopArray(t).Wins = 0
Next t
Contest_Form.Show
Contest_Form.Contests.Caption = Str(Contests)

For t = 1 To MaxRobs
With rob(t)
'If Not .Veg And Not .Corpse And Not .wall And .exist Then
If Not .Veg And Not .Corpse And .exist Then
For SpeciePointer = 1 To 20

realname = Left(.FName, Len(.FName) - 4)
If realname = PopArray(SpeciePointer).SpName Then
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
Exit For
End If
If PopArray(SpeciePointer).SpName = "" Then
TotSpecies = TotSpecies + 1
PopArray(SpeciePointer).SpName = realname
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
robcol(SpeciePointer) = .color
Exit For
End If
Next SpeciePointer
End If
End With
Next t
If TotSpecies = 1 Then
' If Not LeagueMode Then
ContestMode = False
MDIForm1.F1Piccy.Visible = False
Contest_Form.Visible = False
t = MsgBox("You have only selected one species for combat. Formula 1 mode disabled", vbOKOnly)
Exit Sub
' End If
End If
If PopArray(1).SpName <> "" Then
Contest_Form.Robname1.Caption = PopArray(1).SpName
Contest_Form.wins1.Caption = Str(PopArray(1).Wins)
Contest_Form.Pop1.Caption = Str(PopArray(1).Population)
Contest_Form.Robname1.ForeColor = robcol(1)
Contest_Form.Option1(1).Visible = True
Else
Contest_Form.Robname1.Caption = ""
Contest_Form.wins1.Caption = ""
Contest_Form.Pop1.Caption = ""
Contest_Form.Option1(1).Visible = False
End If
If PopArray(2).SpName <> "" Then
Contest_Form.Robname2.Caption = PopArray(2).SpName
Contest_Form.Wins2.Caption = Str(PopArray(2).Wins)
Contest_Form.Pop2.Caption = Str(PopArray(2).Population)
Contest_Form.Robname2.ForeColor = robcol(2)
Contest_Form.Option1(2).Visible = True
Else
Contest_Form.Robname2.Caption = ""
Contest_Form.Wins2.Caption = ""
Contest_Form.Pop2.Caption = ""
Contest_Form.Option1(2).Visible = False
End If
If PopArray(3).SpName <> "" Then
Contest_Form.Robname3.Caption = PopArray(3).SpName
Contest_Form.Wins3.Caption = Str(PopArray(3).Wins)
Contest_Form.Pop3.Caption = Str(PopArray(3).Population)
Contest_Form.Robname3.ForeColor = robcol(3)
Contest_Form.Option1(3).Visible = True
Else
Contest_Form.Robname3.Caption = ""
Contest_Form.Wins3.Caption = ""
Contest_Form.Pop3.Caption = ""
Contest_Form.Option1(3).Visible = False
End If
If PopArray(4).SpName <> "" Then
Contest_Form.Robname4.Caption = PopArray(4).SpName
Contest_Form.Wins4.Caption = Str(PopArray(4).Wins)
Contest_Form.Pop4.Caption = Str(PopArray(4).Population)
Contest_Form.Robname4.ForeColor = robcol(4)
Contest_Form.Option1(4).Visible = True
Else
Contest_Form.Robname4.Caption = ""
Contest_Form.Wins4.Caption = ""
Contest_Form.Pop4.Caption = ""
Contest_Form.Option1(4).Visible = False
End If
If PopArray(5).SpName <> "" Then
Contest_Form.Robname5.Caption = PopArray(5).SpName
Contest_Form.Wins5.Caption = Str(PopArray(5).Wins)
Contest_Form.Pop5.Caption = Str(PopArray(5).Population)
Contest_Form.Robname5.ForeColor = robcol(5)
Contest_Form.Option1(5).Visible = True
Else
Contest_Form.Robname5.Caption = ""
Contest_Form.Wins5.Caption = ""
Contest_Form.Pop5.Caption = ""
Contest_Form.Option1(5).Visible = False
End If
If ContestMode Then
Contest_Form.Visible = True
'Contests = 0
End If
End Sub
Public Sub Countpop()
'counts population of robots at regular intervals
'for auto-combat mode and for automatic reset of starting conditions
Dim SpeciePointer As Integer
Dim SpeciesLeft As Integer
Dim t As Integer
Dim p As Integer
Dim nd As node
Dim Winner As String
Dim Wins As Single
Dim realname As String

For t = 1 To 20
PopArray(t).Population = 0
PopArray(t).exist = 0
Next t

For t = 1 To MaxRobs
With rob(t)
'If Not .Veg And Not .Corpse And Not .wall And .exist Then
If Not .Veg And Not .Corpse And .exist Then
For SpeciePointer = 1 To TotSpecies
realname = Left(.FName, Len(.FName) - 4)
If realname = PopArray(SpeciePointer).SpName Then
PopArray(SpeciePointer).Population = PopArray(SpeciePointer).Population + 1
PopArray(SpeciePointer).exist = 1
Exit For
End If
Next SpeciePointer
End If
End With
Next t
If Contests < Maxrounds Then
Contest_Form.Contests.Caption = Contests + 1
End If
Contest_Form.Maxrounds.Caption = Maxrounds
Contest_Form.Refresh
SpeciesLeft = 0
For p = 1 To TotSpecies
SpeciesLeft = SpeciesLeft + PopArray(p).exist
Next p
If SpeciesLeft = 1 And Contests + 1 <= Maxrounds And Over = False Then
For t = 1 To TotSpecies
If PopArray(t).Population <> 0 Then
PopArray(t).Wins = PopArray(t).Wins + 1
End If
Next t
End If
Contest_Form.Visible = True
If PopArray(1).SpName <> "" Then
Contest_Form.Robname1.Caption = PopArray(1).SpName
Contest_Form.wins1.Caption = Str(PopArray(1).Wins)
Contest_Form.Pop1.Caption = Str(PopArray(1).Population)
Else
Contest_Form.Robname1.Caption = ""
Contest_Form.wins1.Caption = ""
Contest_Form.Pop1.Caption = ""
End If
If PopArray(2).SpName <> "" Then
Contest_Form.Robname2.Caption = PopArray(2).SpName
Contest_Form.Wins2.Caption = Str(PopArray(2).Wins)
Contest_Form.Pop2.Caption = Str(PopArray(2).Population)
Else
Contest_Form.Robname2.Caption = ""
Contest_Form.Wins2.Caption = ""
Contest_Form.Pop2.Caption = ""
End If
If PopArray(3).SpName <> "" Then
Contest_Form.Robname3.Caption = PopArray(3).SpName
Contest_Form.Wins3.Caption = Str(PopArray(3).Wins)
Contest_Form.Pop3.Caption = Str(PopArray(3).Population)
Else
Contest_Form.Robname3.Caption = ""
Contest_Form.Wins3.Caption = ""
Contest_Form.Pop3.Caption = ""
End If
If PopArray(4).SpName <> "" Then
Contest_Form.Robname4.Caption = PopArray(4).SpName
Contest_Form.Wins4.Caption = Str(PopArray(4).Wins)
Contest_Form.Pop4.Caption = Str(PopArray(4).Population)
Else
Contest_Form.Robname4.Caption = ""
Contest_Form.Wins4.Caption = ""
Contest_Form.Pop4.Caption = ""
End If
If PopArray(5).SpName <> "" Then
Contest_Form.Robname5.Caption = PopArray(5).SpName
Contest_Form.Wins5.Caption = Str(PopArray(5).Wins)
Contest_Form.Pop5.Caption = Str(PopArray(5).Population)
Else
Contest_Form.Robname5.Caption = ""
Contest_Form.Wins5.Caption = ""
Contest_Form.Pop5.Caption = ""
End If
Contest_Form.Refresh
F1count = 0
Wins = Sqr(Maxrounds) + (Maxrounds / 2)
If SpeciesLeft = 1 And Contests + 1 <= Maxrounds Then
If Contests + 1 = Maxrounds And Over = False Then 'contest is over now
For t = 1 To TotSpecies
If PopArray(t).Wins > Wins Then
Winner = PopArray(t).SpName
Over = True
'set up next league round
If LeagueMode Then
If Winner + ".txt" = LeagueEntrants(Defender).Name Then
'attacker lost, move to next challenger
Attacker = -1
Defender = 29

LeagueEnd

ElseIf Attacker < 0 Then
'attacker won. He was in the challenge array, move him to the
'league array and the bot he defeated to the challenge array
'This defeated bot will have another chance to get back into the
'league later.
If Winner + ".txt" = LeagueChallengers(-Attacker - 1).Name Then
Dim temp As datispecie
temp = LeagueChallengers(-Attacker - 1)
If LeagueEntrants(Defender).Name <> "EMPTY.TXT" And LeagueEntrants(Defender).Name <> "" Then
LeagueChallengers(-Attacker - 1) = LeagueEntrants(Defender)
LeagueEntrants(Defender) = temp
End If

Attacker = Defender
Defender = Defender - 1

End If
ElseIf Attacker > 0 Then
If Winner + ".txt" = LeagueEntrants(Attacker).Name Then
'attacker won, he was in the league already, swap with defender
Dim tempa As datispecie
tempa = LeagueEntrants(Attacker)
LeagueEntrants(Attacker) = LeagueEntrants(Defender)
LeagueEntrants(Defender) = tempa
Attacker = Defender
Defender = Defender - 1
End If
Else
MsgBox "Unknown Winner. Poor programmer to blame.", vbOKOnly, "Get a Real Job"
End If

If Defender = -1 Then
'that's it, we've hit the top. Congrats, start the next round
Attacker = -1
Defender = 29
If LeagueChallengers(0).Name = "" Then LeagueEnd
End If
Contests = 0
ReStarts = 0
ResetContest
Maxrounds = 5
LeagueForm.Erase_League_Highlights
If Form1.Active = True Then SetupLeagueRound

'update on screen list
If LeagueForm.F1ChallengeOption.value = True Then
LeagueForm.F1ChallengeOption_Click
Else
LeagueForm.ChallengersOption_Click
End If

If Form1.Active = True Then 'Form1.StartSimul
StartAnotherRound = True
Else
StartAnotherRound = False
End If
End If
Contest_Form.Refresh
Exit Sub
Else
Winner = "Statistical Draw. Extending contest."
End If
Next t
Contest_Form.Winner.Caption = Winner
If Winner <> "Statistical Draw. Extending contest." Then
Contest_Form.Winner1.Caption = "Winner"
Else
Maxrounds = Maxrounds + 1
If MaxRoundsToDraw <> 0 And Maxrounds >= 10 And Maxrounds > MaxRoundsToDraw Then
Contest_Form.Winner1.Caption = "Win By Draw"
Winner = "Maximum Rounds Reached."
Contest_Form.Refresh
Over = True

'Declare Defender to have won
Attacker = -1
Defender = 29
LeagueEnd

Contests = 0
ReStarts = 0
ResetContest
Maxrounds = 5
LeagueForm.Erase_League_Highlights
If Form1.Active = True Then SetupLeagueRound

'update on screen list
If LeagueForm.F1ChallengeOption.value = True Then
LeagueForm.F1ChallengeOption_Click
Else
LeagueForm.ChallengersOption_Click
End If

If Form1.Active = True Then 'Form1.StartSimul
StartAnotherRound = True
Else
StartAnotherRound = False
End If
Contest_Form.Refresh
Exit Sub
Else
Contest_Form.Winner1.Caption = "No Winner"
Over = False
End If
End If
End If
Contest_Form.Refresh
If Contests + 1 <= Maxrounds And Over = False Then
Contests = Contests + 1
StartAnotherRound = True
'Form1.StartSimul
Else
StartAnotherRound = False
End If
End If
End Sub

Public Sub SetupLeague_Options()
If optionsform.Leaguename.text <> "" And LeagueMode Then
Dim LeagueError As Integer

F1Mode.Leaguename = optionsform.Leaguename.text

LeagueError = Load_League_File(F1Mode.Leaguename)
If LeagueError = -1 Then
If MsgBox("League file does not exist. Make a new one?", vbYesNo, "League Undetected") = vbNo Then
Exit Sub
Else
'make a new league file and directory.
'does this automatically when user hits save after
'league runs.
End If
ElseIf LeagueError > 0 Then
If MsgBox("A robot listed doesn't exist. Delete from league table?", vbYesNo, "League Robot Not Found") = vbNo Then
Exit Sub
Else
'delete robot leaguerror from league table
End If
End If
LeagueForm.F1ChallengeOption.Caption = optionsform.Leaguename.text + " Challenge League"
'LeagueForm.Visible = True ' EricL 3/20/2006 Moved this to StartNew_Click in the Options Form
ElseIf optionsform.Leaguename.text = "" And LeagueMode Then
MsgBox "No league name. League must have a name.", vbOKOnly, "League Name Needed"
Exit Sub
ElseIf LeagueMode = False Then
LeagueForm.Visible = False
End If
Attacker = -1
Defender = 29

If Leaguererun = True Then
Dim Index As Integer
Dim numLeagueEntrants As Integer

numLeagueEntrants = 0
For Index = 0 To 29
If LeagueEntrants(Index).Name <> "" And LeagueEntrants(Index).Name <> "EMPTY" Then
numLeagueEntrants = numLeagueEntrants + 1
End If
Next Index

If numLeagueEntrants <= 1 Then
MsgBox "Can't rerun league. Not enough league entrants."
Leaguererun = False
optionsform.RerunCheck.value = 0
Else
For Index = 0 To 29
LeagueChallengers(Index) = LeagueEntrants(Index)
LeagueEntrants(Index).Name = ""
Next Index
End If
End If

SetupLeagueRound
End Sub

Public Sub LeagueInputChallengers()
Dim Index As Integer
Dim offset As Integer
Dim blank As datispecie

For Index = 0 To SimOpts.SpeciesNum - 1
If SimOpts.Specie(Index).Veg = True Then
offset = offset + 1
Else
LeagueChallengers(Index - offset) = SimOpts.Specie(Index)
If Index > 2 Then SimOpts.Specie(Index) = blank

LeagueChallengers(Index - offset).Mutables.Mutations = False
End If

If Index - offset > 29 Then
MsgBox "Not enough challenger slots to accomodate so many. Only running the first 30 bots.", vbOKOnly, "Too Many Challengers"
Exit Sub
End If
Next Index

End Sub

Public Sub SetupLeagueRound()
Dim attackerfound As Boolean
Dim defenderfound As Boolean
Dim loopdone As Boolean

SimOpts.SpeciesNum = 3
'SimOpts.Specie(0) = veg spot

While Not loopdone
DoEvents
If Attacker < 0 And Not attackerfound Then
SimOpts.Specie(1) = LeagueChallengers(-Attacker - 1)
ElseIf Attacker > 0 And Not attackerfound Then
SimOpts.Specie(1) = LeagueEntrants(Attacker)
End If

If Not defenderfound Then
SimOpts.Specie(2) = LeagueEntrants(Defender)
SimOpts.Specie(2).Posrg = SimOpts.Specie(1).Posrg
SimOpts.Specie(2).Posdn = SimOpts.Specie(1).Posdn
End If

'check to see if attacker and defender are the same
'if so, then prompt the user for action

If SimOpts.Specie(1).Name = "" Then
SimOpts.Specie(1).Name = "EMPTY.TXT"
TmpOpts.Specie(1).Name = "EMPTY.TXT"
End If
If SimOpts.Specie(2).Name = "" Then
SimOpts.Specie(2).Name = "EMPTY.TXT"
TmpOpts.Specie(2).Name = "EMPTY.TXT"
End If

If Left(SimOpts.Specie(1).Name, Len(SimOpts.Specie(1).Name) - 4) = "EMPTY" Then
attackerfound = False
If Attacker < 0 Then
Attacker = Attacker + 1
If Attacker = 0 Then Attacker = 29
Else
Attacker = Attacker - 1
End If
Else
attackerfound = True
End If

If Left(SimOpts.Specie(2).Name, Len(SimOpts.Specie(2).Name) - 4) = "EMPTY" Then
defenderfound = False
Defender = Defender - 1
If Defender < 0 Then
Defender = 0
defenderfound = True
End If
Else
defenderfound = True
End If

If attackerfound And defenderfound And SimOpts.Specie(2).Name = SimOpts.Specie(1).Name Then
If MsgBox("Challenger and Defender are the same bot. Continue with this Challenger?", vbYesNo, "Identical Bots") = vbYes Then
'run these two bots against each other.
Else
'bot has lost, move on to next challenger
End If
End If
If attackerfound And defenderfound Then loopdone = True
Wend

'now check to see if we need to move challenger up slots
'for an empty league
If LeagueEntrants(0).Name = "" Or Left(LeagueEntrants(0).Name, 5) = "EMPTY" Then
'empty league file
LeagueEntrants(0) = LeagueChallengers(-Attacker - 1)
LeagueEnd
SetupLeagueRound
ElseIf Defender <> 29 And Attacker < 0 Then
LeagueEntrants(Defender + 1) = LeagueChallengers(-Attacker - 1)
LeagueChallengers(-Attacker - 1).Name = ""
Attacker = Defender + 1
'empty league
End If

' If SimOpts.Specie(1).color = vbBlue And SimOpts.Specie(2).color = vbBlue Then
SimOpts.Specie(0).color = vbGreen
TmpOpts.Specie(0).color = vbGreen
SimOpts.Specie(1).color = vbRed
TmpOpts.Specie(1).color = vbRed
SimOpts.Specie(2).color = vbBlue
TmpOpts.Specie(2).color = vbBlue
' End If
End Sub

Public Function League_Eyefudge(robotnumber As Integer, t As Long)
'tests to see if two bots have the same number of refeye statements.
'if so, it adds the following gene at teh end of the DNA
'This is definately a fudge, both in practice and implementation.
'A better system will be needed if anything is done to break this
'(such as a bot not using refeyes for conspec identification)
'or bots that are so close that this gives a virus bot an undue edge
'Later: add a prompt for action and a small timer. If timer runs out then
'we use the default action below

If eye11 = rob(robotnumber).occurr(8) Then
'If SimOpts.TotRunCycle < 3 And eye11 = rob(robotnumber).occurr(8) Then
ReDim Preserve rob(robotnumber).DNA(UBound(rob(robotnumber).DNA) + 6)

'cond
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 1
t = t + 1

'*.eye5
rob(robotnumber).DNA(t).tipo = 1
rob(robotnumber).DNA(t).value = 505
t = t + 1

'dup
rob(robotnumber).DNA(t).tipo = 2
rob(robotnumber).DNA(t).value = 23
t = t + 1

'!=
rob(robotnumber).DNA(t).tipo = 3
rob(robotnumber).DNA(t).value = 4
t = t + 1

'start
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 2
t = t + 1

'stop
rob(robotnumber).DNA(t).tipo = 4
rob(robotnumber).DNA(t).value = 3
t = t + 1

'end
rob(robotnumber).DNA(t).tipo = 10 ' EricL - Changed tipo from 4 to 10, March 15, 2006
rob(robotnumber).DNA(t).value = 1 ' EricL - Changed value from 4 to 1, March 15, 2006

rob(robotnumber).occurr(8) = rob(robotnumber).occurr(8) + 1
End If
End Function

Public Sub Record_11eyes(eyes As Integer)
eye11 = eyes
End Sub

Private Sub LeagueEnd()
Dim i As Integer

If LeagueChallengers(-Attacker).Name = "EMPTY" Or LeagueChallengers(-Attacker).Name = "" Then
LeagueMode = False
ContestMode = False
' SimOpts.F1 = False

'pause simulation.
Form1.Active = False
Form1.SecTimer.Enabled = False

If MsgBox("The league has finished running. Simulation paused. Save league file?", vbYesNo, "League Finished.") = vbYes Then
'save results into file
Save_League_File Leaguename
End If
LeagueForm.Hide
Contest_Form.Hide

Else
Dim Index As Integer

For Index = 0 To 29
LeagueChallengers(Index) = LeagueChallengers(Index + 1)
Next Index

LeagueChallengers(29).Name = ""
End If

Attacker = -1
Defender = 29

'Puts things back the way they were before the league began so that the species list looks okay.
TmpOpts = SimOpts

'Let the sim play again so that it's not paused for the user
' Form1.Active = True
' Form1.SecTimer.Enabled = True
End Sub

Private Sub stuff()

'move up all challengers
Dim Index As Integer
For Index = 1 To 29
LeagueChallengers(Index - 1) = LeagueChallengers(Index)
Next Index

Dim empty0 As datispecie
LeagueChallengers(29) = empty0
End Sub

</pre>

User talk:Jez

2006-12-26T00:15:03Z

Griz:

hi Jez ... 

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact [[User_talk:Numsgil|Nums]] or [[User_talk:EricL|Eric]] or [[User_talk:Endy|Endy]] too. 

i see you put some stuff in the [[Sandbox]] ... 
so will move it here and try to address them. 

also ... this page can always be edited, old matl overwritten ... whatever ... 
so put anything you want here, or at my talk page, in the way of questions. 

i put this page, your talk page, on my watchlist too ... 
so i can go check my watchlist anytime and be advised if any of the pages 
i watch have had any activity. you can add any page, like Debugging, etc. 

btw ... perhaps you know this already, or not ... 
the first page i come to here is [[Special:Recentchanges]] 
gives me a quick look at who is doing what, where. 

so ... is this a list of what you want to see implimented here? 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''The post by Ulciscor on bug reporting, I suggest we use to link all the sources of info from, is here: :'''''[http://www.darwinbots.com/Forum/index.php?showtopic=874 Bug Reporting]
:'''''That is pretty much the only relevant info on the forum, preceeding the topic we are using atm, that I have found so far.

:: ok. so what are you saying? put links there ... leading to relevant pages here?
:: i absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
:: or maintaining any kind of continuity, so i'll leave that end up to you.
:: i know wikis ... so will concentrate my efforts here ... and together maybe we can tie the two together.
:: what think ye?
----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

----
DB is the only forum I am active on, forgive my ignorance in replying this way:

Until your (welcome) call to look at the wiki. the last time I used it was when I re-returned to DB and used wiki as an aid to designing bots; the reason I feel it is a needed 'newb' resource and, as you pointed out. a much more easily accessible reource for such, is that is it is so much easily used as a source of information than the chaotic forum. (I am not wiki trained btw, maybe part of the reason I dont communicate via it)


:you'll pick it up. what's nice is, it's all editable. you can edit/overwrite/clear this page anytime ...
:but not only that ... it's still all kept in history ... so anything mistakenly jettisoned can be recovered.
:i think of wikis as virtual etch-a-sketches. ;)

While you: absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
It is a great place for discussion, I agree absolutely, it is a horrible place to find info, that's why I'm so pleased you are taking an interest in the wiki. All I was trying to do by adding those comments was make sure (for newb's) that the information was as clear and relevant as it could be.


:i was really jazzed back when i first discovered it ... and did a lot of work here ...
:then realized no one cared or even took advantage of it.

When it comes to links, the same as I have tried to do with the leagues, I want the relevant information as clearly marked as possible. Can take ages to track stuff down on the forum sometimes. I hate that. The Wiki needs to work in tandem with the forum though and andding links or making stickies (to the forum) seems (to me) the easiest way of doing this. If you are willing to fiddle with the wiki and request relevant links from apppropriate posts then I am more than willing to sort that out.


:sounds great to me

Working as a group is always stronger. (If DB evolution doesn't prove me wrong!)
Eventually a forum post with all the wiki links for newbs info maybe.


:exactly.

When it comes to downloading VB, the first time I chose every option, I'm like that, just a reminder to choose the most basic instal might be helpful; the second option on the first choice and no changes to the second choice was (I think) the way that worked for me.

I will add that link for the VB sourc download to the forum soon, in fact if not by tommorow then kick me. Thanks for pointing out it is in wiki not the forum.


:ok. i don't recall the steps i did to install it ...
:went thru the same as you ... just kept clicking whatever button it was ...
:and still got error messages but ... it somehow worked.
:installing and getting DB to work the first time was even more difficult ...
:as there was little guidance at the time ...
:having load the old 2.0 first was only mentioned in passing ...
:and the sysvars thing wasn't explained at all.
:i had runtime error after runtime error that no one could reproduce ...
:but of course they all had their paths set correctly ... while i didn't have a clue.
:i can only imagine how many folks give up before they ever get it up and happening.


Regards

Jez


:well ... you know how to get ahold of me here ...
:i'll be checking in often and trying to sort out where all the league code is.

:btw ... i posted this at the forum
:http://www.darwinbots.com/Forum/index.php?showtopic=1837&pid=1369864&st=15&#entry1369864
:and will add it to the Debugging page as well but want to get it to you ...
:as it may be a big help in debugging those long sims:

<pre>
for those running/searching for those errors in long sims ...
if you run the compiled version and do an occasional save ...
[this can be automatically done, yes?]
then hopefully when an error is encountered and an error.sim
file produced ...
you can then fire it up in VB, ensuring the error trapping is
commented out, load in the error sim or ideally, the save that
you captured which occurred just prior to the error ...
and then run it from there using the debugger.
this may not always work, as there seem to be many varialbles ...
but I have had it do exactly this for me in the past ...
even using the generated error.sim ...
the error still existing ...
which can certainly save a great deal of time debugging.
[remember to save/rename the error.sim to keep on file
for continued debugging, so it isn't overwritten]
</pre>

later {{User:Griz/sig}} 16:55, 25 Dec 2006 (MST)

DeBugging

2006-12-26T00:05:18Z

Griz: added debugging tip for those long, long sims

User talk:Jez

2006-12-25T23:55:36Z

Griz:

hi Jez ... 

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact [[User_talk:Numsgil|Nums]] or [[User_talk:EricL|Eric]] or [[User_talk:Endy|Endy]] too. 

i see you put some stuff in the [[Sandbox]] ... 
so will move it here and try to address them. 

also ... this page can always be edited, old matl overwritten ... whatever ... 
so put anything you want here, or at my talk page, in the way of questions. 

i put this page, your talk page, on my watchlist too ... 
so i can go check my watchlist anytime and be advised if any of the pages 
i watch have had any activity. you can add any page, like Debugging, etc. 

btw ... perhaps you know this already, or not ... 
the first page i come to here is [[Special:Recentchanges]] 
gives me a quick look at who is doing what, where. 

so ... is this a list of what you want to see implimented here? 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''The post by Ulciscor on bug reporting, I suggest we use to link all the sources of info from, is here: :'''''[http://www.darwinbots.com/Forum/index.php?showtopic=874 Bug Reporting]
:'''''That is pretty much the only relevant info on the forum, preceeding the topic we are using atm, that I have found so far.

:: ok. so what are you saying? put links there ... leading to relevant pages here?
:: i absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
:: or maintaining any kind of continuity, so i'll leave that end up to you.
:: i know wikis ... so will concentrate my efforts here ... and together maybe we can tie the two together.
:: what think ye?
----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

----
DB is the only forum I am active on, forgive my ignorance in replying this way:

Until your (welcome) call to look at the wiki. the last time I used it was when I re-returned to DB and used wiki as an aid to designing bots; the reason I feel it is a needed 'newb' resource and, as you pointed out. a much more easily accessible reource for such, is that is it is so much easily used as a source of information than the chaotic forum. (I am not wiki trained btw, maybe part of the reason I dont communicate via it)

:''you'll pick it up. what's nice is, it's all editable. you can edit/overwrite/clear this page anytime ...
:''but not only that ... it's still all kept in history ... so anything mistakenly jettisoned can be recovered.
:''i think of wikis as virtual etch-a-sketches. ;)

While you: absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
It is a great place for discussion, I agree absolutely, it is a horrible place to find info, that's why I'm so pleased you are taking an interest in the wiki. All I was trying to do by adding those comments was make sure (for newb's) that the information was as clear and relevant as it could be.

:''i was really jazzed back when i first discovered it ... and did a lot of work here ...
:''then realized no one cared or even took advantage of it.

When it comes to links, the same as I have tried to do with the leagues, I want the relevant information as clearly marked as possible. Can take ages to track stuff down on the forum sometimes. I hate that. The Wiki needs to work in tandem with the forum though and andding links or making stickies (to the forum) seems (to me) the easiest way of doing this. If you are willing to fiddle with the wiki and request relevant links from apppropriate posts then I am more than willing to sort that out.

:''sounds great to me

Working as a group is always stronger. (If DB evolution doesn't prove me wrong!)
Eventually a forum post with all the wiki links for newbs info maybe.

:''exactly.

When it comes to downloading VB, the first time I chose every option, I'm like that, just a reminder to choose the most basic instal might be helpful; the second option on the first choice and no changes to the second choice was (I think) the way that worked for me.

I will add that link for the VB sourc download to the forum soon, in fact if not by tommorow then kick me. Thanks for pointing out it is in wiki not the forum.

:''ok. i don't recall the steps i did to install it ...
:''went thru the same as you ... just kept clicking whatever button it was ...
:''and still got error messages but ... it somehow worked.
:''installing and getting DB to work the first time was even more difficult ...
:''as there was little guidance at the time ...
:''having load the old 2.0 first was only mentioned in passing ...
:''and the sysvars thing wasn't explained at all.
:''i had runtime error after runtime error that no one could reproduce ...
:''but of course they all had their paths set correctly ... while i didn't have a clue.
:''i can only imagine how many folks give up before they ever get it up and happening.

Regards

Jez

:''well ... you know how to get ahold of me here ...
:''i'll be checking in often and trying to sort out where all the league code is.

:''btw ... i posted this at the forum
:''http://www.darwinbots.com/Forum/index.php?showtopic=1837&pid=1369864&st=15&#entry1369864
:''and will add it to the Debugging page as well but want to get it to you ...
:''as it may be a big help in debugging those long sims:
<pre>
for those running/searching for those errors in long sims ...
if you run the compiled version and do an occasional save ...
[this can be automatically done, yes?]
then hopefully when an error is encountered and an error.sim
file produced ...
you can then fire it up in VB, ensuring the error trapping is
commented out, load in the error sim or ideally, the save that
you captured which occurred just prior to the error ...
and then run it from there using the debugger.
this may not always work, as there seem to be many varialbles ...
but I have had it do exactly this for me in the past ...
even using the generated error.sim ...
the error still existing ...
which can certainly save a great deal of time debugging.
[remember to save/rename the error.sim to keep on file
for continued debugging, so it isn't overwritten]
</pre>

later {{User:Griz/sig}} 16:55, 25 Dec 2006 (MST)

DeBugging

2006-12-25T17:54:13Z

Griz: /* Highlighting Variables */added Ulciscor's note

User talk:Jez

2006-12-25T17:46:37Z

Griz:

User talk:Jez

2006-12-25T17:34:19Z

Griz:

hi Jez ... 

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}} 
all users have them ... so you can contact Numbs or Eric or Endy ... 

i see you put some stuff in the sandbox ... 
so will move it here and try to address it. 

also ... this page can always be edited, old matl overwritten ... whatever ... 
so put anything you want here, or at my talk page, in the way of questions. 

i put this page, your talk page, on my watchlist too ... 
so i can go check my watchlist anytime and be advised if any of the pages 
i watch have had any activity. you can add any page, like Debugging, etc. 

btw ... perhaps you know this already, or not ... 
the first page i come to here is [[Special:Recentchanges]] 
gives me a quick look at who is doing what, where. 

so ... is this a list of what you want to see implimented here? 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''The post by Ulciscor on bug reporting, I suggest we use to link all the sources of info from, is here: :'''''[http://www.darwinbots.com/Forum/index.php?showtopic=874 Bug Reporting]
:'''''That is pretty much the only relevant info on the forum, preceeding the topic we are using atm, that I have found so far.

:: ok. so what are you saying? put links there ... leading to relevant pages here?
:: i absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
:: or maintaining any kind of continuity, so i'll leave that end up to you.
:: i know wikis ... so will concentrate my efforts here ... and together maybe we can tie the two together.
:: what think ye?
----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

User talk:Jez

2006-12-25T17:29:11Z

Griz:

hi Jez ... 

Here's one cool thing ... you should be notified if you have messages here when you sign in to the wiki. 
so these talk pages work well for communicating back and forth. mine is {{User:Griz/sig}}

i see you put some stuff in the sandbox ... 
so will move it here and try to address it. 

btw ... perhaps you know this already, or not ... 
the first page i come to here is [[Special:Recentchanges]] 
gives me a quick look at who is doing what, where. 

so ... is this a list of what you want to see implimented here? 

----
:'''''A quick guide to installing VB6.0 first time I tried a full install and clicking ignore for all the bits it didn't have
:'''''nearly killed me, plus it didn't install at the end :( Need to just install most basic.

:: what should it consist of? can you write up what would have helped you? it's been so long since i
:: did it that i don't recall. just a few hints, as in your above? i can then put it somewhere ...
:: maybe a note on the VB6 download page.

----
:'''''The post by Ulciscor on bug reporting, I suggest we use to link all the sources of info from, is here: :'''''[http://www.darwinbots.com/Forum/index.php?showtopic=874 Bug Reporting]
:'''''That is pretty much the only relevant info on the forum, preceeding the topic we are using atm, that I have found so far.

:: ok. so what are you saying? put links there ... leading to relevant pages here?
:: i absolutely detest the forum layout ... and find it horribly chaotic for finding info ...
:: or maintaining any kind of continuity, so i'll leave that end up to you.
:: i know wikis ... so will concentrate my efforts here ... and together maybe we can tie the two together.
:: what think ye?
----
:'''''Need a link to download latest VB code, I still can only find C++ code source
::that would be on the [[Source_Code]] page ... the last entry under Ver 2.4X, Darwinsource2.42.9r (Latest Buddy Drop)
::actual link is http://www.darwinbots.com/FTP/Darwinsource2.42.9r.zip
::that's what i've been waiting for ... as now i can go in and play myself with the most up-to-date version.

Sandbox

2006-12-24T23:14:27Z

Griz:

Sandbox

2006-12-24T23:08:05Z

Griz:

Leagues

2006-12-24T23:02:41Z

Griz:

Leagues

2006-12-24T22:51:18Z

Griz:

Leagues

2006-12-24T22:46:26Z

Griz:

Code/Debugging/Fixes/Changes for Leagues
----

:Holy crap!!!
:League code is all over the place!

:Will just keep stashing it here as i find it.

<pre>
General
Declarations

Public Type datispecie
Skin(13) As Integer
path As String
Name As String
Stnrg As Integer
Veg As Boolean
Fixed As Boolean
color As Long
Colind As Integer
Postp As Single
Poslf As Single
Posdn As Single
Posrg As Single
qty As Integer
Comment As String
Leaguefilecomment As String
Mutables As mutationprobs
CantSee As Boolean ' Flag indicating eyes should be turned off for this

species
DisableDNA As Boolean ' Flag indicating DNA should not execute for

this species
DisableMovementSysvars As Boolean ' Flag indicating movement sysvars

should be disabled for this species
CantReproduce As Boolean ' Flag indicating whether reproduction has

been disabled for this species.
End Type
</pre>
<pre>
General
Declarations

'For League mode: (runs a series of F1 contests, 1 on 1)
Public LeagueMode As Boolean
Public Leaguename As String
Public Leaguererun As Boolean
Public LeagueEntrants(30) As datispecie 'all those already in the league
Public numLeagueEntrants As Integer
Public LeagueChallengers(31) As datispecie 'all those challenging (31 instead of

30 for some loop functions)
Public Defender As Integer 'couple used to determine which bots are facing

which in League mode
Public Attacker As Integer
Private eye11 As Integer 'for eye fudging. Search 'fudge' to see what I mean
</pre>
<pre>
General
Startsim

If LeagueMode Then
LeagueForm.Show
SimOpts.TotRunCycle = -1
End If
</pre>
<pre>
General
StartSimul

'Restart
'Leaguemode handles restarts differently so only restart here if not in

leaguemode
If totnvegs = 0 And RestartMode And Not LeagueMode Then
' totnvegs = 1
' Contests = Contests + 1
ReStarts = ReStarts + 1
' Form1.StartSimul
StartAnotherRound = True
End If
End Sub
</pre>
<pre>
General
FindSpecies

If TotSpecies = 1 Then
' If Not LeagueMode Then
ContestMode = False
MDIForm1.F1Piccy.Visible = False
Contest_Form.Visible = False
t = MsgBox("You have only selected one species for combat. Formula 1

mode disabled", vbOKOnly)
Exit Sub
' End If
End If

</pre>
<pre>
MDIForm1 (Code)

Private Sub Leagues_Click()
optionsform.SSTab1.Tab = 4
NetEvent.Timer1.Enabled = False
NetEvent.Hide
optionsform.Show vbModal
End Sub
</pre>
<pre>
RerunCheck

Private Sub RerunCheck_Click()
Leaguererun = CBool(RerunCheck.value)
End Sub

</pre>
<pre>
LeagueCheck

Private Sub LeagueCheck_Click()
If LeagueCheck.value = 1 Then
If F1Check.value <> 1 Then
F1Check.value = 1
F1check_Click
End If
LeagueMode = True
TmpOpts.League = True

If Leaguetype(0).value = False Then
Leaguetype(0).value = True
End If

Else
TmpOpts.League = False
LeagueMode = False
'Leaguetype(0).value = False
End If
End Sub

Private Sub LeagueAutoCheck()
If LeagueCheck.value <> 1 Then
LeagueCheck.value = 1
LeagueCheck_Click
End If
End Sub

Private Sub LeagueF1Option_Click()
Leaguename.text = "F1"
LeagueAutoCheck
End Sub

Private Sub LeagueF2Option_Click()
Leaguename.text = "F2"
LeagueAutoCheck
End Sub

Private Sub LeageSBOption_Click()
Leaguename.text = "Shortbot"
LeagueAutoCheck
End Sub

Private Sub LeagueMBOption_Click()
Leaguename.text = "Multibot"
LeagueAutoCheck
End Sub

Private Sub Leaguetype_Click(Index As Integer)
'If Leaguetype(Index).value = False Then
'' Leaguetype(Index).value = True
'End If
End Sub

Private Sub LightText_lostfocus()
Dim a As Single
a = val(LightText.text)
If a < LightUpDn.Min Then a = LightUpDn.Min
If a > LightUpDn.Max Then a = LightUpDn.Max
LightUpDn.value = a
TmpOpts.LightIntensity = a
End Sub

</pre>
<pre>
StartNew

If LeagueMode = True Then LeagueForm.Visible = True ' EricL 3/20/2006 Have

to bring up league form after Options dialog goes away

'Form1.Active = True

'this just tricks the program into thinking we have enough
'species for F1 mode.
'If TmpOpts.League = True And TmpOpts.SpeciesNum = 2 Then
' additem TmpOpts.Specie(1).Name
' TmpOpts.SpeciesNum = TmpOpts.SpeciesNum + 1
'End If

SimOpts = TmpOpts

If SimOpts.League = True Then
LeagueMode = True 'should be anyway, but sometimes when
'restarting a league it screws up
LeagueInputChallengers
SetupLeague_Options
' SimOpts.F1 = True
LeagueForm.F1ChallengeOption_Click
End If

If Form1.Active Then Form1.SecTimer.Enabled = True

StartAnotherRound = True ' Set true for first simulation. Will get set true if

running leagues or using auto-restart mode
While StartAnotherRound
StartAnotherRound = False
Form1.StartSimul
Wend
End Sub

</pre>

Sandbox

2006-12-24T22:22:08Z

Griz:

Bas

2006-12-24T22:12:11Z

Griz:

Bas

2006-12-24T22:11:31Z

Griz:

Leagues

2006-12-24T22:10:11Z

Griz: page for League code

Code/Debugging/Fixes/Changes for Leagues

DeBugging

2006-12-24T22:04:00Z

Griz:

Talk:RoundTable

2006-12-24T15:53:35Z

Griz:

User talk:Griz

2006-12-24T15:32:57Z

Griz: update

click on the [[User_talk:Griz&action=edit|Edit]] or [[User_talk:Griz&action=edit&section=new|+]] above to add your comments.
----

User:Griz

2006-12-24T15:23:52Z

Griz: restoration

greetz

My main hangout is at [http://peace.wikicities.com/wiki/User:-ts- PeaceWiki] as '''-ts-'''... 
but feel free to talk to me about DB or wiki stuff here by clicking the [[User_talk:Griz|discussion]] tab above. 
We also have a general discussion area: [[RoundTable]] 

[[Image:DB1_100.gif]] 
[http://www.darwinbots.com/WikiManual/index.php?title=Image:DB1.gif full size 1.5MB]

DeBugging

2006-12-24T15:19:53Z

Griz: how about some VB debugging tips?

Sandbox

2006-05-24T11:26:12Z

Griz: /* Geometry */ Math Markup now works!!!!!!!!

WikiManual:Help

2006-05-09T18:41:56Z

Griz:

Careful what you touch, if you're just playing around why don't you check out our [[Sandbox]] and have some fun

WikiManual:About

2006-05-09T18:33:49Z

Griz:

The Darwinbots manual is the official source for all information pertaining to Darwinbots.

Installation Instructions

2006-04-20T20:43:36Z

Griz: Reverted edit of 125.244.55.130, changed back to last version by Endy

Installing Darwinbots is usually quite easy. Occassionally, the programmers will make a mess of things, making new installations more difficult.

== New Installations ==

For a completely new installation it is necessary to download '''version 2.1''' and run the setup file before upgrading to later versions. 
This will set up all of the necessary directories and install the program. It will also add a number of activeX files to the Windows\system32 directory.

The download is available at the current [[Main FTP|Downloads]] or you can also try the [http://digilander.libero.it/darwinbots/download.html old FTP].

== Upgrading ==

The Darwinbots community is quite active, and major releases are made public generally every month. Each new version contains substantial improvements. Don't cheat your Darwinbots experience! Be sure to have the latest version installed.

Upgrading Darwinbots is quite easy, as all you need is the new sysvars file and executable. New patches are listed on the [http://www.darwinbots.com/FTP FTP] and [[FTP|Wiki FTP]] in chronological order, so newer releases are generally listed last for a section. Each release comes with a code archive and patch, downloadable seperately.

Newer releases are, obviously, of higher numbers. Thus 2.36 comes after 2.35 but before 2.4.

Note that the old FTP is no longer updated.

After downloading the zip of the new version, unzip it to your Darwinbots folder. (typically C:\Program Files\DarwinBotsII) Yes, you must do this manually. The developers are far too busy with real programming to figure out how to implement an autopatcher.

When you unzip your new version of DarwinBots, "sysvars2.21.txt" will automatically overwrite the existing version if you have one. This is okay since the '''sysvars files are backward compatible'''.

== Final Note ==
New versions almost always have bugs. The first week or so after a new release is filled with the programmers releasing minor updates almost daily. These updates are noted by the suffix numbers of the version. Thus, 2.37.0 was the initial release of 2.37 2.37.4 is the 4th bug fix version released.

We know it's a pain to download a new patch almost every day. But it's only through community bug testing that the bugs can be isolated at all.

Anything with the same first 3 digits (that is, all versions of 2.XX) have the same ''features'' and differ only in minor bug fixing.

Return to [[Main Page]]

WikiManual:About

2006-04-06T03:25:53Z

Griz: keep this page protected for anti-spam

The Darwinbots manual is the official source for all information pertaining to Darwinbots.

----
leave this page 'protected', spammers shouldn't be able to edit it. {{User:Griz/sig}} 20:25, 5 Apr 2006 (MST)

WikiManual:Help

2006-04-05T19:32:26Z

Griz: leave as protected page

Careful what you touch, if you're just playing around why don't you check out our [[Sandbox]] and have some fun

----
leave this page here ... as protected. 
if you delete it ... the spammers will merely recreate it. 
staying here as a protected page should result in them not being able to add the spam.{{User:Griz/sig}} 12:32, 5 Apr 2006 (MST)
[[Help:Contents]]

WikiManual talk:Help

2006-04-05T19:22:49Z

Griz: leave as protected page

leave this page here ... as protected. 
if you delete it ... the spammers will merely recreate it. 
staying here as a protected page should result in them not being able to add the spam.{{User:Griz/sig}} 12:22, 5 Apr 2006 (MST)

.

User talk:EricL

2006-04-03T12:06:36Z

Griz:

Hi Eric ... 
Made you into a Sysops so you can edit protected pages 
as well as delete and rollback pages with spam or whatever. 
You may have noted that if you come here signed in ... 
you will be alerted if you have any messages here on this page. 
Same happens for any of us for any message left on our User_talk: pages. 
We also have a [[RoundTable]] discussion area, although it doesn't get much use. 
{{User:Griz/sig}}

Sandbox

2006-04-01T23:07:34Z

Griz: /* spam test */

Sandbox

2006-04-01T22:56:12Z

Griz: test of spam blacklist

.shdx

2006-04-01T03:23:18Z

Griz: reverted spam, protected this page

{{v221}}
.shdx ----- Have I been shot from the right? Returns the location value of the shot when somebody .shoots me.

Talk:Main Page

2006-04-01T03:21:45Z

Griz:

WikiManual talk:Copyrights

2006-04-01T03:20:46Z

Griz:

WikiManual talk:About

2006-04-01T03:19:26Z

Griz:

WikiManual talk:About

2006-04-01T03:19:05Z

Griz:

:Don't bother deleting this page ...
:the spammers will only recreate it.
:For now, I am leaving it and protecting the page ...
:so they shouldn't be able to write to it.
:when we get the spam cleanup script working, i'll delete these pages. {{User:Griz/sig}}

<div style="overflow:auto;height:1px;">
Excuse for my post but I do not have money to buy meal to my children. Forgive me please.
[http://47964.rapidforum.com pharmacy]
[http://blog.myspace.com/cheap_phentermine pharmacy]
[http://1.myfreebulletinboard.com/phentermine/ pharmacy]
[http://i.mobb.ru/dir/phentermine/index.htm pharmacy]
[http://www.viagrastories.com/buy.shtml pharmacy]
[http://www.multiweb.cz/buy_online/viagra.html pharmacy]
[http://buy-valium-online.inknoise.com/cheap pharmacy]
[http://www.republika.pl/nashdor/buy-valium pharmacy]
[http://eteamz.active.com/tramadolhcl/files/buy-valium.html pharmacy]
[http://mulder.blogspirit.com/files/valium.html pharmacy]
[http://www.birding.com/forums/showflat.php?Number=2099 pharmacy]
[http://www.ultraguest.com/?id=1141564200 pharmacy]
[http://eteamz.active.com/cheap-fioricet-online pharmacy]
[http://fioricet.inknoise.com/fioricet pharmacy]
[http://www.republika.pl/buyonline2006/ fioricet/buy-fioricet.html pharmacy]
[http://pub33.bravenet.com/forum/2761181745 pharmacy]
[http://www.financialexpress.com/ adlinks/Fioricet/buy_fioricet.htm pharmacy]
[http://drug.inknoise.com/diazepam pharmacy]
[http://xph8buydiazepam.proboards57.com pharmacy]
[http://www.upsaid.com/buydiazepam pharmacy]
[http://eteamz.active.com/diazepams pharmacy]
[http://diazepams.proboards52.com pharmacy]
[http://pub41.bravenet.com/forum/3495470951 pharmacy]
[http://myblog.de/dronnoal pharmacy]
[http://spaces.msn.com/buy-cheap-diazepam pharmacy]
[http://usmo4.discoverlife.org/mp/20q?go=http://cyberimagegh.com/1/renova.html renova]
[http://www.ep.u-tokai.ac.jp/seido/hp.cgi?http://bestsearch20.com/1/wellbutrin.html wellbutrin]
[http://usmo4.discoverlife.org/mp/20q?go=http://bestsearch20.com/1/claritin.html claritin]
[http://libweb5.princeton.edu/scripts/link/access.pl?resource=ejournal&title=BMJ&type=Web&url=http://bestsearch20.com/1/zyrtec.html zyrtec]
[http://www.liverpoolfc.tv/lfctvt/?cid=36&inv=75&dest=http://bestsearch20.com/1/zoloft.html zoloft]
[http://libweb5.princeton.edu/scripts/link/access.pl?resource=ejournal&title=BMJ&type=Web&url=http://bestsearch20.com/1/prilosec.html prilosec]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://cyberimagegh.com/1/valtrex.html valtrex]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://cyberimagegh.com/1/prozac.html prozac]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/imitrex.html imitrex]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/buspar.html buspar]
[http://libweb5.princeton.edu/scripts/link/access.pl?resource=ejournal&title=BMJ&type=Web&url=http://bestsearch20.com/1/valtrex.html valtrex]
[http://www.liverpoolfc.tv/lfctvt/?cid=36&inv=75&dest=http://bestsearch20.com/1/tadalafil.html tadalafil]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://cyberimagegh.com/1/nexium.html nexium]
[http://libweb5.princeton.edu/scripts/link/access.pl?resource=ejournal&title=BMJ&type=Web&url=http://bestsearch20.com/1/retin.html retin]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://bestsearch20.com/1/celexa.html celexa]
[http://usmo4.discoverlife.org/mp/20q?go=http://bestsearch20.com/1/buspar.html buspar]
[http://usmo4.discoverlife.org/mp/20q?go=http://bestsearch20.com/1/imitrex.html imitrex]
[http://rwr.ru/exploder/?url=http://cyberimagegh.com/1/acyclovir.html acyclovir]
[http://rwr.ru/exploder/?url=http://cyberimagegh.com/1/flonase.html flonase]
[http://rwr.ru/exploder/?url=http://cyberimagegh.com/1/lexapro.html lexapro]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://cyberimagegh.com/1/sildenafil.html sildenafil]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://cyberimagegh.com/1/yasmin.html yasmin]
[http://usmo4.discoverlife.org/mp/20q?go=http://cyberimagegh.com/1/zoloft.html zoloft]
[http://usmo4.discoverlife.org/mp/20q?go=http://cyberimagegh.com/1/paxil.html paxil]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://cyberimagegh.com/1/zyrtec.html zyrtec]
[http://www.ep.u-tokai.ac.jp/seido/hp.cgi?http://bestsearch20.com/1/zithromax.html zithromax]
[http://www.liverpoolfc.tv/lfctvt/?cid=36&inv=75&dest=http://bestsearch20.com/1/xenical.html xenical]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://cyberimagegh.com/1/zithromax.html zithromax]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/claritin.html claritin]
[http://www.ep.u-tokai.ac.jp/seido/hp.cgi?http://bestsearch20.com/1/prozac.html prozac]
[http://usmo4.discoverlife.org/mp/20q?go=http://cyberimagegh.com/1/xenical.html xenical]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://cyberimagegh.com/1/wellbutrin.html wellbutrin]
[http://www.liverpoolfc.tv/lfctvt/?cid=36&inv=75&dest=http://bestsearch20.com/1/renova.html renova]
[http://libweb5.princeton.edu/scripts/link/access.pl?resource=ejournal&title=BMJ&type=Web&url=http://bestsearch20.com/1/yasmin.html yasmin]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/celebrex.html celebrex]
[http://www.ep.u-tokai.ac.jp/seido/hp.cgi?http://bestsearch20.com/1/nexium.html nexium]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/effexor.html effexor]
[http://rwr.ru/exploder/?url=http://cyberimagegh.com/1/celexa.html celexa]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://cyberimagegh.com/1/prilosec.html prilosec]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://bestsearch20.com/1/flonase.html flonase]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://bestsearch20.com/1/effexor.html effexor]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://cyberimagegh.com/1/retin.html retin]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://bestsearch20.com/1/lexapro.html lexapro]
[http://www.ep.u-tokai.ac.jp/seido/hp.cgi?http://bestsearch20.com/1/sildenafil.html sildenafil]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://bestsearch20.com/1/celebrex.html celebrex]
[http://www.oas.org/main/main.asp?sLang=E&sLink=http://bestsearch20.com/1/acyclovir.html acyclovir]
[http://www.fort-myers-florida-real-estate.com/include.php?URL=http://bestsearch20.com/1/lamisil.html lamisil]
[http://usmo4.discoverlife.org/mp/20q?go=http://cyberimagegh.com/1/tadalafil.html tadalafil]
[http://www.liverpoolfc.tv/lfctvt/?cid=36&inv=75&dest=http://bestsearch20.com/1/paxil.html paxil]
[http://www.udayton.edu/~vlc/misc/external_frame.php?lang=en&url=http://cyberimagegh.com/1/lamisil.html lamisil]
[http://h1.ripway.com/abirt/acyclovir.html acyclovir]
[http://h1.ripway.com/abirt/buspar.html buspar]
[http://h1.ripway.com/abirt/celebrex.html celebrex]
[http://h1.ripway.com/abirt/celexa.html celexa]
[http://h1.ripway.com/abirt/claritin.html claritin]
[http://h1.ripway.com/abirt/effexor.html effexor]
[http://h1.ripway.com/abirt/flonase.html flonase]
[http://h1.ripway.com/abirt/imitrex.html imitrex]
[http://h1.ripway.com/abirt/lamisil.html lamisil]
[http://h1.ripway.com/abirt/lexapro.html lexapro]
[http://h1.ripway.com/abirt/nexium.html nexium]
[http://h1.ripway.com/abirt/paxil.html paxil]
[http://h1.ripway.com/abirt/prilosec.html prilosec]
[http://h1.ripway.com/abirt/prozac.html prozac]
[http://h1.ripway.com/abirt/renova.html renova]
[http://h1.ripway.com/abirt/retin.html retin]
[http://h1.ripway.com/abirt/sildenafil.html sildenafil]
[http://h1.ripway.com/abirt/tadalafil.html tadalafil]
[http://h1.ripway.com/abirt/valtrex.html valtrex]
[http://h1.ripway.com/abirt/wellbutrin.html wellbutrin]
[http://h1.ripway.com/abirt/xenical.html xenical]
[http://h1.ripway.com/abirt/yasmin.html yasmin]
[http://h1.ripway.com/abirt/zithromax.html zithromax]
[http://h1.ripway.com/abirt/zoloft.html zoloft]
[http://h1.ripway.com/abirt/zyrtec.html zyrtec]
[http://www.gayhomes.net/hren/acyclovir.html acyclovir]
[http://www.gayhomes.net/hren/buspar.html buspar]
[http://www.gayhomes.net/hren/celebrex.html celebrex]
[http://www.gayhomes.net/hren/celexa.html celexa]
[http://www.gayhomes.net/hren/claritin.html claritin]
[http://www.gayhomes.net/hren/effexor.html effexor]
[http://www.gayhomes.net/hren/flonase.html flonase]
[http://www.gayhomes.net/hren/imitrex.html imitrex]
[http://www.gayhomes.net/hren/lamisil.html lamisil]
[http://www.gayhomes.net/hren/lexapro.html lexapro]
[http://www.gayhomes.net/hren/nexium.html nexium]
[http://www.gayhomes.net/hren/paxil.html paxil]
[http://www.gayhomes.net/hren/prilosec.html prilosec]
[http://www.gayhomes.net/hren/prozac.html prozac]
[http://www.gayhomes.net/hren/renova.html renova]
[http://www.gayhomes.net/hren/retin.html retin]
[http://www.gayhomes.net/hren/sildenafil.html sildenafil]
[http://www.gayhomes.net/hren/tadalafil.html tadalafil]
[http://www.gayhomes.net/hren/valtrex.html valtrex]
[http://www.gayhomes.net/hren/wellbutrin.html wellbutrin]
[http://www.gayhomes.net/hren/xenical.html xenical]
[http://www.gayhomes.net/hren/yasmin.html yasmin]
[http://www.gayhomes.net/hren/zithromax.html zithromax]
[http://www.gayhomes.net/hren/zoloft.html zoloft]
[http://www.gayhomes.net/hren/zyrtec.html zyrtec]
[http://buy-allegra-online2.mysite.pl/ allegra]
[http://buy-claritin-online2.omet.pl/ claritin]
[http://buy-cheap-flonase.one.pl/ flonase]
[http://buy-zyrtec-online2.sie.pl/ zyrtec]
[http://buy-celexa1.sie.pl/ celexa]
[http://buy-lexapro1.to.pl/ lexapro]
[http://buy-paxil-online.vel.pl/ paxil]
[http://buy-prozac1.czytelnia.net/ prozac]
[http://buy-wellbutrin1.e-zum.com/ wellbutrin]
[http://pub41.bravenet.com/forum/3495470951 pharmacy]
[http://myblog.de/dronnoal pharmacy]
[http://spaces.msn.com/buy-cheap-diazepam pharmacy]
</div>

WikiManual:Copyrights

2006-03-31T18:29:54Z

Griz: Reverted edit of 201.55.104.165, changed back to last version by Griz

Content is available under GNU Free Documentation License 1.2 or any later version.

Current events

2006-03-31T18:28:47Z

Griz: Reverted edit of 201.55.104.165, changed back to last version by Griz

== 2.4 Issues ==
2.4.0 has been released for a few weeks. Everyone is getting different sorts of errors, and the whole thing is sort of a mess. Numsgil is porting the code to C++ for various reasons, fixing a few bugs as he goes. --[[User:Numsgil|Numsgil]] 10:55, 18 Oct 2005 (MST)

== Send us your Pics ==
Uploading images has been enabled. --[[User:Numsgil|Numsgil]] 08:17, 25 Oct 2005 (MST)

== Changing Forums? ==

Been decided to move the forum to our own webspace. Blogs, Large downloads, and more await.

[[Main Page]]