VERSION 5.00 Begin VB.Form DNA_Help BorderStyle = 3 'Fixed Dialog Caption = "Help for DNA commands" ClientHeight = 7335 ClientLeft = 2340 ClientTop = 1935 ClientWidth = 10455 ClipControls = 0 'False Icon = "frmAbout1.frx":0000 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5062.748 ScaleMode = 0 'User ScaleWidth = 9817.785 Begin VB.CommandButton Basic Caption = "&Basic Help" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 345 Left = 6600 TabIndex = 4 Top = 6840 Width = 1740 End Begin VB.TextBox Help Height = 5835 Left = 240 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 3 Top = 840 Width = 9975 End Begin VB.PictureBox picIcon AutoSize = -1 'True ClipControls = 0 'False Height = 540 Left = 240 Picture = "frmAbout1.frx":08CA ScaleHeight = 337.12 ScaleMode = 0 'User ScaleWidth = 337.12 TabIndex = 1 Top = 240 Width = 540 End Begin VB.CommandButton cmdOK Caption = "&Exit Help" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 345 Left = 8520 TabIndex = 0 Top = 6840 Width = 1740 End Begin VB.Label lblTitle Caption = "Application Title" ForeColor = &H00000000& Height = 480 Left = 1050 TabIndex = 2 Top = 240 Width = 3885 End End Attribute VB_Name = "DNA_Help" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit 'Botsareus 3/24/2012 Added a version icon 'Botsareus 6/12/2012 form's icon change ' Reg Key Security Options... Const READ_CONTROL = &H20000 Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL ' Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = &H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 ' Unicode nul terminated string Const REG_DWORD = 4 ' 32-bit number Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long Private Sub Basic_Click() 'Botsareus 8/7/2012 Old help for new developers is also available Help.Visible = False Help.text = "" Help.text = Help.text + "A simple list of mathematical operators" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "add" + vbTab + "-----" + vbTab + "Adds the top two values on the stack and leaves the result on the stack" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 add) will add 15 to 25 and leave 40 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "sub" + vbTab + "-----" + vbTab + "Subtracts the top value on the stack from the second value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 sub) will subtract 25 from 15 and leave -10 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mult" + vbTab + "-----" + vbTab + "Multiplies the top two values on the stack and leaves the result on the stack" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 mult) will multiply 15 by 25 and leave 375 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "div" + vbTab + "-----" + vbTab + "divides the second value on the stack by the top value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(150 10 div) will divide 150 by 10 and leave 15 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "rnd" + vbTab + "-----" + vbTab + "Generates a random value from 0 to the top value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original number is removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(150 rnd) will generate a random value from 0 to 150 leave it on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "inc" + vbTab + "-----" + vbTab + "Increments the value stored in a given memory cell by one." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The memory location is defined by the top number on the stack which is then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(330 inc) will increment the value stored in memory location 330 (.tie)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "dec" + vbTab + "-----" + vbTab + "decrements the value stored in a given memory cell by one." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The memory location is defined by the top number on the stack which is then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(2 dec) will decrement the value stored in memory location 2 (.dn)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "store" + vbTab + "-----" + vbTab + "Stores the #2 value of the stack into the memory location defined by the #1 value." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The top two stack values are then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 store) will store a value of 55 in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "angle" + vbTab + "-----" + vbTab + "Calculates the angle between my co-ordinates and two other co-ordinates." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Place the desired co-ordinates onto the stack first then this function will remove them both and place." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "the calculated angle onto the stack. (1000 1000 angle) will store the angle between where" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I am now and the target co-ordinates, 1000, 1000, onto the stack. Then I can use the new value to show " + vbCrLf Help.text = Help.text + vbTab + vbTab + "me which direction to head in." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "And here are the Boolean comparisson functions which can also be used in the condition step of the DNA" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are exactly equal." + vbCrLf Help.text = Help.text + "%=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are almost equal. +/- 10%" + vbCrLf Help.text = Help.text + "!=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are NOT equal." + vbCrLf Help.text = Help.text + "!%=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are NOT almost equal. +/- 10%" + vbCrLf Help.text = Help.text + ">" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is greater than #1." + vbCrLf Help.text = Help.text + "<" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is less than #1." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "And finally the System Variables" + vbCrLf Help.text = Help.text + "Store a value in one of these locations or read a value from it to activate the command" + vbCrLf Help.text = Help.text + "Many of these are READ ONLY! eg. You can't store a meaningful value into .refeye!" + vbCrLf Help.text = Help.text + "There may be a few exceptions to this rule but hey! I have to keep some secrets." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Each of these labels represents a memory location. Remember to put a dot in front of them." + vbCrLf Help.text = Help.text + "If you want to read a value the use a star too." + vbCrLf Help.text = Help.text + "*.refeye will give you the value stored in the mem location represented by the label .refeye." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "up" + vbTab + "-----" + vbTab + "Accelerates me forward in the direction I am facing." + vbCrLf Help.text = Help.text + "dn" + vbTab + "-----" + vbTab + "Accelerates me backward away from the direction I am facing." + vbCrLf Help.text = Help.text + "sx" + vbTab + "-----" + vbTab + "Accelerates me to the left, 90 degrees from the direction I am facing." + vbCrLf Help.text = Help.text + "dx" + vbTab + "-----" + vbTab + "Accelerates me to the right, 90 degrees from the direction I am facing." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(25 .up store) will store a value of 25 in my memory location 1 (.up)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will accelerate by this amount provided my maximum velocity is not exceeded." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "aimsx" + vbTab + "-----" + vbTab + "Rotates me anti-clockwise by the value stored into this location." + vbCrLf Help.text = Help.text + "aimdx" + vbTab + "-----" + vbTab + "Rotates me clockwise by the value stored in this location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(25 .aimdx store) will store a value of 25 in my memory location 5 (.aimdx)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will rotate by this amount. The input value must be in the range of 1 to 1256." + vbCrLf Help.text = Help.text + "setaim" + vbTab + "-----" + vbTab + "This one could be really useful. By using this I can set my angle to a precise value. Used with angle it will be cool." + vbCrLf Help.text = Help.text + "setaim" + vbTab + "-----" + vbTab + "Used with angle it will be cool." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "shoot" + vbTab + "-----" + vbTab + "Makes me shoot a particle from my front end(usually)." + vbCrLf Help.text = Help.text + "shootval" + vbTab + "-----" + vbTab + "Defines the value of the particle shot with the shoot command." + vbCrLf Help.text = Help.text + "backshot" + vbTab + "-----" + vbTab + "Any non zero value here makes me shoot backwards instead of forward. Neat huh?" + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(50 .shoot store) will store a value of 50 in my memory location 7 (.shoot)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The value stored in .shoot defines the memory location in which it will strike its target." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The value stored in .shootval will be transferred into that memory location when the shot hits another robot" + vbCrLf Help.text = Help.text + vbTab + vbTab + "A number of specific negative numbers can be used with .shoot." + vbCrLf Help.text = Help.text + vbTab + "-1" + vbTab + "Forces the target robot to fire a -2 (containing some of his energy) shot back toward the first robot" + vbCrLf Help.text = Help.text + vbTab + vbTab + "A -1 shot does not require a value to be stored in .shootval." + vbCrLf Help.text = Help.text + vbTab + "-2" + vbTab + "Fires a shot containing some of the robot's energy." + vbCrLf Help.text = Help.text + vbTab + "-3" + vbTab + "Fires a venom shot." + vbCrLf Help.text = Help.text + vbTab + "-4" + vbTab + "Fires a shot containing some of the robot's waste." + vbCrLf Help.text = Help.text + vbTab + "-5" + vbTab + "Poison shot. Cannot be fired voluntarily, only in response to an incoming -1 shot." + vbCrLf Help.text = Help.text + vbTab + "-6" + vbTab + "As -1 but specifically targets body points rather than energy points." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Hey somebody has been changing the way my poison and venom works. Lets take a look." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Cool! Now i can make custom poison and venom to turn specific memory locations on or off." + vbCrLf Help.text = Help.text + vbTab + vbTab + "in the robot that my shots hit." + vbCrLf Help.text = Help.text + "ploc" + vbTab + "-----" + vbTab + "Defines the memory location where my poison shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "My poison shot will hit the target in this location and set the value there to zero for as long as he is affected by it." + vbCrLf Help.text = Help.text + "vloc" + vbTab + "-----" + vbTab + "Defines the memory location where my venom shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "My venom shot will hit the target in this location and set it to the value in venval for as long as" + vbCrLf Help.text = Help.text + vbTab + vbTab + "he is affected by venom." + vbCrLf Help.text = Help.text + "venval" + vbTab + "-----" + vbTab + "This is the value that will be placed into the location where my venom shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I can do all kinds of fun stuff with this I think." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "robage" + vbTab + "-----" + vbTab + "How old am I? Returns my own age." + vbCrLf Help.text = Help.text + "mass" + vbTab + "-----" + vbTab + "How fat am I? Returns the my own mass." + vbCrLf Help.text = Help.text + "maxvel" + vbTab + "-----" + vbTab + "How fast can I move? Returns my maximum velocity. Depends on mass." + vbCrLf Help.text = Help.text + "aim" + vbTab + "-----" + vbTab + "What direction am I facing? Returns my own aim direction." + vbCrLf Help.text = Help.text + "eye1 thru eye9" + vbTab + "-----" + vbTab + "What am I looking at? Returns a value inversly proportional to my" + vbCrLf Help.text = Help.text + vbTab + vbTab + "distance from a viewed robot." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Each eye views a 10 degree arc." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye5 looks straight ahead and is the most important eye of all since all reference variables." + vbCrLf Help.text = Help.text + vbTab + vbTab + "(or refvars)are calculated from this eye." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye1 looks to the extreme left. About 45 degrees from the centre" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye9 looks to the extreme right. About 45 degrees from the centre" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "vel" + vbTab + "-----" + vbTab + "How fast am I moving? Returns my velocity. (in the direction I am facing)" + vbCrLf Help.text = Help.text + "pain" + vbTab + "-----" + vbTab + "Have I been hurt? Returns the amount of energy lost in the last cycle." + vbCrLf Help.text = Help.text + "pleas" + vbTab + "-----" + vbTab + "Have I been feeding? Returns the amount of energy gained in the last cycle." + vbCrLf Help.text = Help.text + vbTab + vbTab + "As .pain and .pleas both read positive and negative, we don't really need both. Do we?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "hitup" + vbTab + "-----" + vbTab + "Have I been hit from behind? Returns a value of 1 when some idiot rear-ends me." + vbCrLf Help.text = Help.text + "hitdn" + vbTab + "-----" + vbTab + "Have I been hit from the front? Returns a value of 1 when I ram somebody else." + vbCrLf Help.text = Help.text + "hitsx" + vbTab + "-----" + vbTab + "Have I been hit from the left? Returns a value of 1 when some idiot crashes into me." + vbCrLf Help.text = Help.text + "hitdx" + vbTab + "-----" + vbTab + "Have I been hit from the right? Returns a value of 1 when some idiot crashes into me." + vbCrLf Help.text = Help.text + "shup" + vbTab + "-----" + vbTab + "Have I been shot from behind? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shdn" + vbTab + "-----" + vbTab + "Have I been shot from the front? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shsx" + vbTab + "-----" + vbTab + "Have I been shot from the left? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shdx" + vbTab + "-----" + vbTab + "Have I been shot from the right? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "edge" + vbTab + "-----" + vbTab + "Have I crashed into the side of the screen? Returns a value of 1 when I hit the edge." + vbCrLf Help.text = Help.text + "fixed" + vbTab + "-----" + vbTab + "Am I fixed in place? Returns a value of 1 If I am." + vbCrLf Help.text = Help.text + "fixpos" + vbTab + "-----" + vbTab + "Just enter a value of zero to become unfixed or any non-zero value to become fixed again." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "depth" + vbTab + "-----" + vbTab + "How deep am I swimming? Returns the value (in DB units) of my distance from the top of the screen." + vbCrLf Help.text = Help.text + "daytime" + vbTab + "-----" + vbTab + "Is it day or night? Returns the value of 1 for day and 0 for night" + vbCrLf Help.text = Help.text + "ypos" + vbTab + "-----" + vbTab + "How far am I from the top? Returns the value (in DB units) of my distance from the top of the screen." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Haven't we seen that before somewhere? No matter. Ypos and depth share the same memory address anyway." + vbCrLf Help.text = Help.text + "xpos" + vbTab + "-----" + vbTab + "How far am I from the left? Returns the value (in DB units) of my distance from the left of the screen." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "nrg" + vbTab + "-----" + vbTab + "How many energy points do I have left? Returns the value of my energy" + vbCrLf Help.text = Help.text + "body" + vbTab + "-----" + vbTab + "How many body points do I have left? Returns the value of my body" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Body and energy are very closely related. Just think of body as fat storage. A little bit is left there each time I eat." + vbCrLf Help.text = Help.text + vbTab + vbTab + "something. DarwinBots are also able to store and retrieve body points at will. Each body point is worth 10 energy " + vbCrLf Help.text = Help.text + vbTab + vbTab + "points." + vbCrLf Help.text = Help.text + "strbody" + vbTab + "-----" + vbTab + "Store a number of body points away for a rainy day. I get 1 body for 10 energy." + vbCrLf Help.text = Help.text + "fdbody" + vbTab + "-----" + vbTab + "Retreive some of those body points as energy. I get 10 energy points back for 1 body." + vbCrLf Help.text = Help.text + vbTab + vbTab + "My energy storing and retrieving are limited to 100 points of energy in either direction so I can't abuse this ability." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "repro" + vbTab + "-----" + vbTab + "It's time to have a baby. I will just let him have a percentage of my energy and body to give him" + vbCrLf Help.text = Help.text + vbTab + vbTab + "a good start in life. AAAHHH! isn't that cute?" + vbCrLf Help.text = Help.text + "mrepro" + vbTab + "-----" + vbTab + "Same as .repro but this time I will make sure that my baby gets the maximum mutations possible." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Even if my mutations are disabled in the options screen he will STILL mutate. BWAAHAAHAAHAA!!" + vbCrLf Help.text = Help.text + "sexrepro" + vbTab + "-----" + vbTab + "Similar to .repro but where can I get the genetic mix to give to my baby?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I guess I could just grab the genetic code from the nearest passer by, mix it with my own. Et Voila!!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "!!TIES!!. These things are cool. I can do so much with them." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "tie" + vbTab + "-----" + vbTab + "Fires a permanent tie toward another robot in my eye5 cell. It won't hit if he is too far away." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The number that I store in .tie becomes the permanent reference address for that tie" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will need to remember this number so that I can access the tie a little later." + vbCrLf Help.text = Help.text + "tienum" + vbTab + "-----" + vbTab + "This is where I have to store a value to access my tie. If this doesn't match the number" + vbCrLf Help.text = Help.text + vbTab + vbTab + "that I used to make my tie then I can't get at it. What was that number again?" + vbCrLf Help.text = Help.text + "deltie" + vbTab + "-----" + vbTab + "This lets me delete a tie that I don't want any more. I still need that number though." + vbCrLf Help.text = Help.text + "tiepres" + vbTab + "-----" + vbTab + "Oh great! This one tells me the id number of that tie. Even if I didn't fire it?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "If I have more than one tie though, it will only give me the id# for the last one made." + vbCrLf Help.text = Help.text + "tieloc" + vbTab + "-----" + vbTab + "I can comunicate through this tie. .tieloc lets me specify the memory address." + vbCrLf Help.text = Help.text + "tieval" + vbTab + "-----" + vbTab + "This one lets me set the value to transmit into your memory. You know. The location" + vbCrLf Help.text = Help.text + vbTab + vbTab + "defined in .tieloc. I wonder if I can use the same values that I can for .shoot?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Cool! I can! A -1 value lets me give away the number of energy pionts defined in .tieval." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Wait a minute! Why should I give you my energy? This is MY tie after all. Perhaps I could use a negative value?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Yeah! that worked. Apparently there is an upper limit of 1000 though." + vbCrLf Help.text = Help.text + "tieang" + vbTab + "-----" + vbTab + "Ties harden after a while. Whatever angle and length that they have at that point becomes permanent." + vbCrLf Help.text = Help.text + vbTab + vbTab + ".tiang lets metemporarily me bend the angle by the value that I store. It springs back though." + vbCrLf Help.text = Help.text + "tielen" + vbTab + "-----" + vbTab + ".tielen lets me stretch or shrink the tie for a cycle or two till it springs back." + vbCrLf Help.text = Help.text + "fixang" + vbTab + "-----" + vbTab + "This one lets me permanently change the angle between the tie and myself." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Zero should make me face you while 628 (half a circle) should make me face directly away from you." + vbCrLf Help.text = Help.text + "fixlen" + vbTab + "-----" + vbTab + "This one lets me permanently change the length of the tie between us." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Better not let it get beyond 1000 units or it will snap." + vbCrLf Help.text = Help.text + "stifftie" + vbTab + "-----" + vbTab + "This one lets me change the stiffness of all my ties. At zero they are springy." + vbCrLf Help.text = Help.text + vbTab + vbTab + "but at the maximum value of 40, my ties get really stiff. Apparently this works by limiting the difference." + vbCrLf Help.text = Help.text + vbTab + vbTab + "in velocity between me and my tied partner." + vbCrLf Help.text = Help.text + "sharenrg" + vbTab + "-----" + vbTab + "This lets me share my energy with any robot that I am tied too. I don't even need to know the tie" + vbCrLf Help.text = Help.text + vbTab + vbTab + "reference number for this. The number stored in here becomes the percentage of our total energy that I receive." + vbCrLf Help.text = Help.text + "sharewaste" + vbTab + "-----" + vbTab + "Now why would I want to share your waste? I know. Perhaps I can just keep 1% then you will get it all." + vbCrLf Help.text = Help.text + vbTab + vbTab + "If you happen to be a veggie then I can use you to convert it to energy again. Sweet!!" + vbCrLf Help.text = Help.text + "shareshell" + vbTab + "-----" + vbTab + "Oh! I can share your shell too. Perhaps we can work together to become a bigger and badder Mulit-Bot." + vbCrLf Help.text = Help.text + vbTab + vbTab + "I think we can actually have 200 shell each if we stay together. That is twice as much as we can alone." + vbCrLf Help.text = Help.text + "shareslime" + vbTab + "-----" + vbTab + "And we can share our slime as well. 200 points each! Wow! I only get 100 if I am alone." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Everything costs a lot less for a Multi-Bot as well. If there are two of us then it is all halved." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Do you think all the costs will be one third if we bring another robot into this Multi-Bot? Why don't we" + vbCrLf Help.text = Help.text + vbTab + vbTab + "all get together?." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Oh I see. I can only have 3 ties so the maximum energy cost reduction factor is 4. Besides that I need a spare" + vbCrLf Help.text = Help.text + vbTab + vbTab + "tie to feed through." + vbCrLf Help.text = Help.text + "multi" + vbTab + "-----" + vbTab + "This one returns a value of one when I become part of a Multi-Bot. That happens when the tie hardens." + vbCrLf Help.text = Help.text + vbTab + vbTab + "I need to be part of a Multi-Bot before I can use the share commands." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The reference variables! This is where I read information about the robot in my eye5 cell. (or even the last one" + vbCrLf Help.text = Help.text + vbTab + "who used to be in it, as these refvars are never cleared aftr use.)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "refup" + vbTab + "-----" + vbTab + "How many .up commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refdn" + vbTab + "-----" + vbTab + "How many .dn commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refsx" + vbTab + "-----" + vbTab + "How many .sx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refdx" + vbTab + "-----" + vbTab + "How many .dx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refaimsx" + vbTab + "-----" + vbTab + "How many .aimsx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refaimdx" + vbTab + "-----" + vbTab + "How many .aimdx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refshoot" + vbTab + "-----" + vbTab + "How many .shoot commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refeye" + vbTab + "-----" + vbTab + "How many .eye commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + vbTab + vbTab + "eye1, eye2, eye5, eye9? Any of them. I'm not fussy." + vbCrLf Help.text = Help.text + "refnrg" + vbTab + "-----" + vbTab + "How much energy do you have? Returns the number to me" + vbCrLf Help.text = Help.text + "refage" + vbTab + "-----" + vbTab + "How old are you? Returns the number to me" + vbCrLf Help.text = Help.text + "refaim" + vbTab + "-----" + vbTab + "Which direction are you facing? Returns the number to me" + vbCrLf Help.text = Help.text + "reftie" + vbTab + "-----" + vbTab + "How many .tie commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refpoison" + vbTab + "-----" + vbTab + "How much poison do you have?" + vbCrLf Help.text = Help.text + "refvenom" + vbTab + "-----" + vbTab + "How much venom do you have?" + vbCrLf Help.text = Help.text + "reffixed" + vbTab + "-----" + vbTab + "Are you fixed to the spot like a blocked veggie? HaHa!" + vbCrLf Help.text = Help.text + "refkills" + vbTab + "-----" + vbTab + "How many robots have you killed? If you are too tough then maybe I should run away" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The personal variables! This is where I read information about myself." + vbCrLf Help.text = Help.text + vbTab + "It would be pretty strange to be able to check your DNA but not my own, wouldn't it?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "myup" + vbTab + "-----" + vbTab + "How many .up commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mydn" + vbTab + "-----" + vbTab + "How many .dn commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mysx" + vbTab + "-----" + vbTab + "How many .sx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mydx" + vbTab + "-----" + vbTab + "How many .dx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myaimsx" + vbTab + "-----" + vbTab + "How many .aimsx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myaimdx" + vbTab + "-----" + vbTab + "How many .aimdx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myshoot" + vbTab + "-----" + vbTab + "How many .shoot commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myeye" + vbTab + "-----" + vbTab + "How many .eye commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myties" + vbTab + "-----" + vbTab + "How many .tie commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mypoison" + vbTab + "-----" + vbTab + "How many .mkpoison commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myvenom" + vbTab + "-----" + vbTab + "How many .mkvenom commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "kills" + vbTab + "-----" + vbTab + "How many other robots have I killed? Returns the number to me" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "More advanced comunication methods." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "out1" + vbTab + "-----" + vbTab + "Here I can store a value which I want to be easily visible to other robots." + vbCrLf Help.text = Help.text + "out2" + vbTab + "-----" + vbTab + "Here I can store a value which I want to be easily visible to other robots." + vbCrLf Help.text = Help.text + "in1" + vbTab + "-----" + vbTab + "In this location, I can read the value stored in .out1 of a robot that I'm looking at." + vbCrLf Help.text = Help.text + "in2" + vbTab + "-----" + vbTab + "In this location, I can read the value stored in .out2 of a robot that I'm looking at." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + vbTab + "But I can also read your most closely guarded secrets if I really want to." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "memloc" + vbTab + "-----" + vbTab + "I can store a value in here that represents ANY one of your memory locations." + vbCrLf Help.text = Help.text + "memval" + vbTab + "-----" + vbTab + "And this is where I can read back the value that you have stored there." + vbCrLf Help.text = Help.text + "tmemloc" + vbTab + "-----" + vbTab + "I can store a value in here that represents ANY one of your memory locations." + vbCrLf Help.text = Help.text + vbTab + vbTab + "But only if I am tied to you at the time." + vbCrLf Help.text = Help.text + "tmemval" + vbTab + "-----" + vbTab + "And this is where I can read back the value that you have stored there." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Bit of a bummer having to use the tie that way. Still could be useful though." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Here are some useful commands for combat and waste management." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mkslime" + vbTab + "-----" + vbTab + "I can make a layer of slime on my body to protect me from your ties. Trouble is it slowly dissolves away." + vbCrLf Help.text = Help.text + "mkshell" + vbTab + "-----" + vbTab + "I can make a big, thick shell to protect my body from your shots. Trouble is it makes me heavy." + vbCrLf Help.text = Help.text + "slime" + vbTab + "-----" + vbTab + "This tells me how much slime I currently have so that I know when to replace it." + vbCrLf Help.text = Help.text + "shell" + vbTab + "-----" + vbTab + "This tells me how big my shell currently is. Perhaps I should make it smaller with a negative value in .mkshell." + vbCrLf Help.text = Help.text + "strvenom" + vbTab + "-----" + vbTab + "Now I can make some venom to store away in a sac ready to shoot you with it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Hmm? It is a bit expensive though. Only one venom point for two energy points." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Still when I paralyze you it will be well worth the cost." + vbCrLf Help.text = Help.text + "strpoison" + vbTab + "-----" + vbTab + "Perhaps I should make some poison too. That way when you shoot me, you will be the one in trouble." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Hmm? I can only make four poison points for one energy point." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Still it will be worth it to watch you whizzing around backwards while you are poisoned." + vbCrLf Help.text = Help.text + "venom" + vbTab + "-----" + vbTab + "This tells me how much venom I have stored up. I can carry up to 32000 units." + vbCrLf Help.text = Help.text + "poison" + vbTab + "-----" + vbTab + "This tells me how much poison I have stored up. I can carry up to 32000 units of it too." + vbCrLf Help.text = Help.text + "waste" + vbTab + "-----" + vbTab + "This tells me how much waste I have accumulated. I can only carry 32000 units of it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "but it would most likely kill me long before I get that much. As I accumulate more of it, my body doesn't work as well." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Luckily it is pretty easy to get rid of it. I can give it to a robot i am tied to or just shoot it out. No problem." + vbCrLf Help.text = Help.text + "pwaste" + vbTab + "-----" + vbTab + "Permanent waste! Shudder!! This stuff is nasty. It builds up slowly. When I dump regular waste" + vbCrLf Help.text = Help.text + vbTab + vbTab + "a little bit is left behind. I can never get rid of Permanent waste and eventually it WILL kill me. If you other robots" + vbCrLf Help.text = Help.text + vbTab + vbTab + "don 't get me first." + vbCrLf Help.text = Help.text + "sun" + vbTab + "-----" + vbTab + "Sun eh? That sounds pretty cool. What do you mean? it only returns a 1 if I am facing upwards?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "What is the point of that?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The Tie reference variables! This is where I read information about the robot on the other end of my tie." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "readtie" + vbTab + "-----" + vbTab + "I need to specify a tie id# to interogate before I can read values through it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "This value stays with me for as long as I want so I only need to store it once." + vbCrLf Help.text = Help.text + "trefup" + vbTab + "-----" + vbTab + "Exactly like .refup but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefdn" + vbTab + "-----" + vbTab + "Exactly like .refdn but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefsx" + vbTab + "-----" + vbTab + "Exactly like .refsx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefdx" + vbTab + "-----" + vbTab + "Exactly like .refdx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaimsx" + vbTab + "-----" + vbTab + "Exactly like .refaimsx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaimdx" + vbTab + "-----" + vbTab + "Exactly like .refaimdx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefshoot" + vbTab + "-----" + vbTab + "Exactly like .refshoot but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefeye" + vbTab + "-----" + vbTab + "Exactly like .refeye but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefnrg" + vbTab + "-----" + vbTab + "Exactly like .refnrg but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefage" + vbTab + "-----" + vbTab + "Exactly like .refage but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefbody" + vbTab + "-----" + vbTab + "Reads the body body points of a tied robot through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "treffixed" + vbTab + "-----" + vbTab + "Exactly like .reffixed but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaim" + vbTab + "-----" + vbTab + "Exactly like .refaim but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Now I can us chloroplasts. I am no longer artificially fed!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "chlr" + vbTab + "-----" + vbTab + "How much chloroplasts do I currently have? Return the number to me." + vbCrLf Help.text = Help.text + "mkchlr" + vbTab + "-----" + vbTab + "I can make more chloroplasts using mkchlr. There is a cost though." + vbCrLf Help.text = Help.text + "rmchlr" + vbTab + "-----" + vbTab + "I have too much chloroplasts for given light conditions." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Time to get rid of some." + vbCrLf Help.text = Help.text + "light" + vbTab + "-----" + vbTab + "Let's find out what our current light conditions are." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The lower the number, the less light we have available." + vbCrLf Help.text = Help.text + "sharechlr" + vbTab + "-----" + vbTab + "I can also share chloroplasts with everyone I am tied to." + vbCrLf Help.Visible = True End Sub Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() ''Botsareus 8/7/2012 mod for new version Me.Caption = "DarwinBots V2.48 DNA Help" lblTitle.Caption = "DarwinBots V2.48 DNA Help" Help.text = "" Help.text = Help.text + vbTab + vbTab + vbTab + vbTab + "DarwinBots V2.48 DNA" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "This is a full listing of all the DNA commands and how they work" + vbCrLf Help.text = Help.text + vbTab + "Just to keep it interesting it is told from a robot's eye view. HeHe!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "First here are basic mathematical operators" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "add" + vbTab + "-----" + vbTab + "Adds the top two values on the stack and leaves the result on the stack" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 add) will add 15 to 25 and leave 40 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "sub" + vbTab + "-----" + vbTab + "Subtracts the top value on the stack from the second value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 sub) will subtract 25 from 15 and leave -10 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mult" + vbTab + "-----" + vbTab + "Multiplies the top two values on the stack and leaves the result on the stack" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(15 25 mult) will multiply 15 by 25 and leave 375 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "div" + vbTab + "-----" + vbTab + "divides the second value on the stack by the top value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original two numbers are removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(150 10 div) will divide 150 by 10 and leave 15 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "rnd" + vbTab + "-----" + vbTab + "Generates a random value from 0 to the top value on the stack." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The result is left on the stack and the original number is removed." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(150 rnd) will generate a random value from 0 to 150 leave it on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "*" + vbTab + "-----" + vbTab + "Takes one value from the top of the stack. If that value is appropriate for a memory address [1,1000]" + vbCrLf Help.text = Help.text + vbTab + vbTab + "it places the value of that memory location on the top of the stack. " + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(.fixpos *) is the same as *.fixpos" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mod" + vbTab + "-----" + vbTab + "Removes two values from the stack. Performs modular arithmetic on the two values," + vbCrLf Help.text = Help.text + vbTab + vbTab + "placing the result onto the stack." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(351 69 mod) is the same as 351 mod 69 and will leave 6 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "sgn" + vbTab + "-----" + vbTab + "Returns the sign of the value on the stack. 1 if positive, -1 if negative. 0 seems to return 0. " + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(-10 sgn) will leave -1 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "abs" + vbTab + "-----" + vbTab + "Returns the absolute value of the top value on the stack." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(-10 abs) will leave 10 on the stack" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "dup" + vbTab + "-----" + vbTab + "Duplicates the top value of the integer stack." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "drop" + vbTab + "-----" + vbTab + "Removes the top value off the integer the stack." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "clear" + vbTab + "-----" + vbTab + "Clears all values off the integer stack." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "swap" + vbTab + "-----" + vbTab + "Swaps the top two values on the integer stack. Does nothing if stack contains only a single value." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "over" + vbTab + "-----" + vbTab + "Pushes a copy of the second value from top onto the integer stack." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Here are advanced mathematical operators" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "angle" + vbTab + "-----" + vbTab + "Calculates the angle between my co-ordinates and two other co-ordinates." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Place the desired co-ordinates onto the stack first then this function will remove them both and place." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "the calculated angle onto the stack. (1000 1000 angle) will store the angle between where" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I am now and the target co-ordinates, 1000, 1000, onto the stack. Then I can use the new value to show " + vbCrLf Help.text = Help.text + vbTab + vbTab + "me which direction to head in." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "dist" + vbTab + "-----" + vbTab + "Allows a bot to calculate the distance between one location and its own. " + vbCrLf Help.text = Help.text + vbTab + vbTab + "Place the desired co-ordinates onto the stack first then this function will remove them both and place." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "the calculated distance onto the stack. (1000 1000 angle) will store the distance between where" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I am now and the target co-ordinates, 1000, 1000, onto the stack. Then I can use the new value to show " + vbCrLf Help.text = Help.text + vbTab + vbTab + "how far am I from the given location." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "ceil" + vbTab + "-----" + vbTab + "Will 'cut off' any value the stack's holding to the ceil's number." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(A B ceil) A will be cut off to B, providing that A>B " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "floor" + vbTab + "-----" + vbTab + "Holds a number above another number." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(A B floor) A will be increased to B, providing that A>" + vbTab + "-----" + vbTab + "Picks the last two numbers in the stack and shifts right the first one's bits the" + vbCrLf Help.text = Help.text + vbTab + vbTab + "amount specified by the second one." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Shifting 1 by x returns zero unless x is 0." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Shifting -1 by x always returns -1." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Shifting x by 1, when x is positive, always returns the absolute value of x 2 div. " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Here is a list of store commands that write to the memory adress specified" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "inc" + vbTab + "-----" + vbTab + "Increments the value stored in a given memory location by one." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The memory location is defined by the top number on the stack which is then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(330 inc) will increment the value stored in memory location 330 (.tie)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "dec" + vbTab + "-----" + vbTab + "decrements the value stored in a given memory location by one." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The memory location is defined by the top number on the stack which is then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(2 dec) will decrement the value stored in memory location 2 (.dn)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "store" + vbTab + "-----" + vbTab + "Stores the #2 value of the stack into the memory location defined by the #1 value." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The top two stack values are then deleted." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 store) will store a value of 55 in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "addstore" + vbTab + "-----" + vbTab + "Works like add but the second variable passed is a memory location and data is added directly into location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 addstore) will add a value of 55 in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "substore" + vbTab + "-----" + vbTab + "Works like sub but the second variable passed is a memory location and data is subtracted directly from location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 substore) will subtract a value of 55 in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "multstore" + vbTab + "-----" + vbTab + "Works like mult but the second variable passed is a memory location and data is multiplied directly with location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 multstore) will mult the value of 55 with data in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "divstore" + vbTab + "-----" + vbTab + "Works like div but the second variable passed is a memory location and data is devided directly with location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 divstore) will devide by a value of 55 in memory location 4 (.aimdx)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "ceilstore" + vbTab + "-----" + vbTab + "Works like ceil but the second variable passed is a memory location and ceil is preformed on location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 ceilstore) If memory location 4 has a value greater then 55 then memory 4 will be 55" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "floorstore" + vbTab + "-----" + vbTab + "Works like floor but the second variable passed is a memory location and floor is preformed on location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(55 4 floorstore) If memory location 4 has a value less then 55 then memory 4 will be 55" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "rndstore" + vbTab + "-----" + vbTab + "Takes the value stored in a given memory location, takes the random of that value," + vbCrLf Help.text = Help.text + vbTab + vbTab + "and puts it back into the same memory location" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "sgnstore" + vbTab + "-----" + vbTab + "Takes the value stored in a given memory location, takes the sign (-1, 0, 1) of that value," + vbCrLf Help.text = Help.text + vbTab + vbTab + "and puts it back into the same memory location" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "absstore" + vbTab + "-----" + vbTab + "Takes the value stored in a given memory location, takes its absolute value," + vbCrLf Help.text = Help.text + vbTab + vbTab + "and puts it back into the same memory location" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "sqrstore" + vbTab + "-----" + vbTab + "Takes the value stored in a given memory location, takes the square root of that value," + vbCrLf Help.text = Help.text + vbTab + vbTab + "and puts it back into the same memory location" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "negstore" + vbTab + "-----" + vbTab + "Converts a memory location to its negative value. " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Here is a list of commands that do not mutate and are generally used by robot programmers only" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "NewMove" + " ----- " + "When placed on top of the dna, tells DB that it doesn't want it's .up's and .dn's" + vbCrLf Help.text = Help.text + vbTab + vbTab + "multiplied by mass automatically." + vbCrLf Help.text = Help.text + "def" + vbTab + "-----" + vbTab + "Allows you to define constants for DB instead of remembering numbers." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(def variablename 11) will make the value 11 appear everywhere you type 'variablename'" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Here are the Boolean comparisson functions which can also be used in the condition step of the DNA" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are exactly equal." + vbCrLf Help.text = Help.text + "%=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are almost equal. +/- 10%" + vbCrLf Help.text = Help.text + "!=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are NOT equal." + vbCrLf Help.text = Help.text + "!%=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when they are NOT almost equal. +/- 10%" + vbCrLf Help.text = Help.text + ">" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is greater than #1." + vbCrLf Help.text = Help.text + "<" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is less than #1." + vbCrLf Help.text = Help.text + ">=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is greater or equal than #1." + vbCrLf Help.text = Help.text + "<=" + vbTab + "-----" + vbTab + "Compares the top two values on the stack. Returns TRUE when #2 is less or equal than #1." + vbCrLf Help.text = Help.text + "~=" + vbTab + "-----" + vbTab + "Using the top three values on the stack. Returns TRUE whenever #2 is within #3 % of #1 " + vbCrLf Help.text = Help.text + "!~=" + vbTab + "-----" + vbTab + "Using the top three values on the stack. Returns FALSE whenever #2 is within #3 % of #1 " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Here are the logic commands that allow you to combine/manipulate the data from the comparisson functions" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "and" + vbTab + "-----" + vbTab + "Compares the top two values on the boolean stack. Returns TRUE if both values are TRUE." + vbCrLf Help.text = Help.text + "or" + vbTab + "-----" + vbTab + "Compares the top two values on the boolean stack. Returns TRUE if either values are TRUE." + vbCrLf Help.text = Help.text + "xor" + vbTab + "-----" + vbTab + "Compares the top two values on the boolean stack. Returns TRUE when they are NOT equal." + vbCrLf Help.text = Help.text + "not" + vbTab + "-----" + vbTab + "Inverts the top value on the boolean stack." + vbCrLf Help.text = Help.text + "true" + vbTab + "-----" + vbTab + "Puts TRUE on the boolean stack." + vbCrLf Help.text = Help.text + "false" + vbTab + "-----" + vbTab + "Puts FALSE on the boolean stack." + vbCrLf Help.text = Help.text + "dropbool" + vbTab + "-----" + vbTab + "Removes the top value off the boolean the stack." + vbCrLf Help.text = Help.text + "clearbool" + vbTab + "-----" + vbTab + "Clears all values off the boolean stack." + vbCrLf Help.text = Help.text + "dupbool" + vbTab + "-----" + vbTab + "Duplicates the top value of the boolean stack." + vbCrLf Help.text = Help.text + "swapbool" + vbTab + "-----" + vbTab + "Swaps the top two values on the boolean stack. Does nothing if stack contains only a single value." + vbCrLf Help.text = Help.text + "overbool" + vbTab + "-----" + vbTab + "Pushes a copy of the second value from top onto the boolean stack." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "And here are the flow commands that split the DNA into genes" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "cond" + vbTab + "-----" + vbTab + "Begins the conditional part of a new gene." + vbCrLf Help.text = Help.text + "start" + vbTab + "-----" + vbTab + "Begins the executable part of the gene, activates if conditional part is TRUE." + vbCrLf Help.text = Help.text + "else" + vbTab + "-----" + vbTab + "Same as START but activates if conditional part is FALSE." + vbCrLf Help.text = Help.text + "stop" + vbTab + "-----" + vbTab + "End of gene." + vbCrLf Help.text = Help.text + "end" + vbTab + "-----" + vbTab + "End of DNA." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "You can use the debugint and debugbool commands to debug commands and system variables." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "debugint" + vbTab + "-----" + vbTab + "Stores a copy of the top of the Integer stack to the console window when you run the debug command" + vbCrLf Help.text = Help.text + "debugbool" + "-----" + vbTab + "Stores a copy of the top of the Boolean stack to the console window when you run the debug command" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "And finally the System Variables" + vbCrLf Help.text = Help.text + "Store a value in one of these locations or read a value from it to activate the command" + vbCrLf Help.text = Help.text + "Many of these are READ ONLY! eg. You can't store a meaningful value into .refeye!" + vbCrLf Help.text = Help.text + "There may be a few exceptions to this rule but hey! I have to keep some secrets." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "Each of these labels represents a memory location. Remember to put a dot in front of them." + vbCrLf Help.text = Help.text + "If you want to read a value the use a star too." + vbCrLf Help.text = Help.text + "*.refeye will give you the value stored in the mem location represented by the label .refeye." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "up" + vbTab + "-----" + vbTab + "Accelerates me forward in the direction I am facing." + vbCrLf Help.text = Help.text + "dn" + vbTab + "-----" + vbTab + "Accelerates me backward away from the direction I am facing." + vbCrLf Help.text = Help.text + "sx" + vbTab + "-----" + vbTab + "Accelerates me to the left, 90 degrees from the direction I am facing." + vbCrLf Help.text = Help.text + "dx" + vbTab + "-----" + vbTab + "Accelerates me to the right, 90 degrees from the direction I am facing." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(25 .up store) will store a value of 25 in my memory location 1 (.up)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will accelerate by this amount provided my maximum velocity is not exceeded." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "aimsx" + vbTab + "-----" + vbTab + "Also known as aimleft, rotates me anti-clockwise by the value stored into this location." + vbCrLf Help.text = Help.text + "aimdx" + vbTab + "-----" + vbTab + "Also known as aimright, rotates me clockwise by the value stored in this location." + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(25 .aimdx store) will store a value of 25 in my memory location 5 (.aimdx)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will rotate by this amount. The input value must be in the range of 1 to 1256." + vbCrLf Help.text = Help.text + "setaim" + vbTab + "-----" + vbTab + "This one could be really useful. By using this I can set my angle to a precise value. Used with angle it will be cool." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Used with angle it will be cool." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "shoot" + vbTab + "-----" + vbTab + "Makes me shoot a particle from my front end(usually)." + vbCrLf Help.text = Help.text + "shootval" + vbTab + "-----" + vbTab + "Increases the range (negative values) or power (positive values) of a shot or sets the variable that gets stored in" + vbCrLf Help.text = Help.text + vbTab + vbTab + "memory shot." & vbCrLf Help.text = Help.text + "backshot" + vbTab + "-----" + vbTab + "Any non zero value here makes me shoot backwards instead of forward. Neat huh?" + vbCrLf Help.text = Help.text + vbTab + "Syntax." + vbTab + "(50 .shoot store) will store a value of 50 in my memory location 7 (.shoot)" + vbCrLf Help.text = Help.text + vbTab + vbTab + "The value stored in .shoot defines the memory location in which it will strike its target." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The value stored in .shootval will be transferred into that memory location when the shot hits another robot" + vbCrLf Help.text = Help.text + vbTab + vbTab + "A number of specific negative numbers can be used with .shoot." + vbCrLf Help.text = Help.text + vbTab + "-1" + vbTab + "Forces the target robot to fire a -2 (containing some of his energy) shot back toward the first robot" + vbCrLf Help.text = Help.text + vbTab + vbTab + "A -1 shot does not require a value to be stored in .shootval." + vbCrLf Help.text = Help.text + vbTab + "-2" + vbTab + "Fires a shot containing some of the robot's energy." + vbCrLf Help.text = Help.text + vbTab + "-3" + vbTab + "Fires a venom shot. Robot is immune to Venom from his own species." + vbCrLf Help.text = Help.text + vbTab + "-4" + vbTab + "Fires a shot containing some of the robot's waste." + vbCrLf Help.text = Help.text + vbTab + "-5" + vbTab + "Poison shot. Cannot be fired voluntarily, only in response to an incoming -1 shot or info shot." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Robot is immune to Poison from his own species" + vbCrLf Help.text = Help.text + vbTab + "-6" + vbTab + "As -1 but specifically targets body points rather than energy points." + vbCrLf Help.text = Help.text + vbTab + "-7" + vbTab + "Virus shot. I can only shoot this using vshoot in a random direction." + vbCrLf Help.text = Help.text + vbTab + "-8" + vbTab + "Fires a sperm shot for sex repro." + vbCrLf Help.text = Help.text + "aimshoot" + vbTab + "-----" + vbTab + "Follows .backshot's syntax, but allows you to specify an angle to shoot at." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The number stored here represents the angle from the bot's eye" + vbCrLf Help.text = Help.text + vbTab + vbTab + "vector (direction it's facing) running counter-clockwise." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Hey somebody has been changing the way my poison and venom works. Lets take a look." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Cool! Now i can make custom poison and venom to turn specific memory locations on or off." + vbCrLf Help.text = Help.text + vbTab + vbTab + "in the robot that my shots hit." + vbCrLf Help.text = Help.text + "ploc" + vbTab + "-----" + vbTab + "Defines the memory location where my poison shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "My poison shot will hit the target in this location and set the value there to the value in pval for as long as" + vbCrLf Help.text = Help.text + vbTab + vbTab + "he is affected by poison." + vbCrLf Help.text = Help.text + "vloc" + vbTab + "-----" + vbTab + "Defines the memory location where my venom shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "My venom shot will hit the target in this location and set the value in venval for as long as" + vbCrLf Help.text = Help.text + vbTab + vbTab + "he is affected by the venom." + vbCrLf Help.text = Help.text + "venval" + vbTab + "-----" + vbTab + "This is the value that will be placed into the location where my venom shots will hit" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I can do all kinds of fun stuff with this I think." + vbCrLf Help.text = Help.text + "paralyzed" + vbTab + "-----" + vbTab + "When under the influence of venom, this sysvar returns a positive number indicating the" + vbCrLf Help.text = Help.text + vbTab + vbTab + "number of cycles remaining before the venom wears off." + vbCrLf Help.text = Help.text + "poisoned" + vbTab + "-----" + vbTab + "Same as paralyzed but with poison." + vbCrLf Help.text = Help.text + "pval" + vbTab + "-----" + vbTab + "Similar to .venval, allows me to choose which value is put into .ploc on the affected bot." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "robage" + vbTab + "-----" + vbTab + "How old am I? Returns my own age." + vbCrLf Help.text = Help.text + "mass" + vbTab + "-----" + vbTab + "How fat am I? Returns the my own mass." + vbCrLf Help.text = Help.text + "maxvel" + vbTab + "-----" + vbTab + "How fast can I move? Returns my maximum velocity. Depends on mass." + vbCrLf Help.text = Help.text + "aim" + vbTab + "-----" + vbTab + "What direction am I facing? Returns my own aim direction." + vbCrLf Help.text = Help.text + "eye1 thru eye9" + " ----- " + "What am I looking at? Returns a value inversly proportional to my" + vbCrLf Help.text = Help.text + vbTab + vbTab + "distance from a viewed robot." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Each eye views a 10 degree arc." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye5 looks straight ahead and is the most important eye of all since all reference variables." + vbCrLf Help.text = Help.text + vbTab + vbTab + "(or refvars)are calculated from this eye." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye1 looks to the extreme left. About 45 degrees from the centre" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Eye9 looks to the extreme right. About 45 degrees from the centre" + vbCrLf Help.text = Help.text + "eye1dir" + vbTab + "-----" + vbTab + "Changes direction that eye1 is facing in a counterclockwise direction. The default direction of the eye is 0.4." + vbCrLf Help.text = Help.text + "eye2dir" + vbTab + "-----" + vbTab + "Changes direction that eye2 is facing in a counterclockwise direction. The default direction of the eye is 0.3." + vbCrLf Help.text = Help.text + "eye3dir" + vbTab + "-----" + vbTab + "Changes direction that eye3 is facing in a counterclockwise direction. The default direction of the eye is 0.2." + vbCrLf Help.text = Help.text + "eye4dir" + vbTab + "-----" + vbTab + "Changes direction that eye4 is facing in a counterclockwise direction. The default direction of the eye is 0.1." + vbCrLf Help.text = Help.text + "eye5dir" + vbTab + "-----" + vbTab + "Changes direction that eye5 is facing in a counterclockwise direction. The default direction of the eye is 0/1256." + vbCrLf Help.text = Help.text + "eye6dir" + vbTab + "-----" + vbTab + "Changes direction that eye6 is facing in a counterclockwise direction. The default direction of the eye is 0.1255.9." + vbCrLf Help.text = Help.text + "eye7dir" + vbTab + "-----" + vbTab + "Changes direction that eye7 is facing in a counterclockwise direction. The default direction of the eye is 0.1255.8." + vbCrLf Help.text = Help.text + "eye8dir" + vbTab + "-----" + vbTab + "Changes direction that eye8 is facing in a counterclockwise direction. The default direction of the eye is 0.1255.7" + vbCrLf Help.text = Help.text + "eye9dir" + vbTab + "-----" + vbTab + "Changes direction that eye9 is facing in a counterclockwise direction. The default direction of the eye is 0.1255.6" + vbCrLf Help.text = Help.text + "eyef" + vbTab + "-----" + vbTab + "This sysvar acts just like the eye1-eye9 sysvars except that it's value is based on the view from whatever" + vbCrLf Help.text = Help.text + vbTab + vbTab + "eye is specified as the focus eye using the .focuseye sysvar." + vbCrLf Help.text = Help.text + "focuseye" + vbTab + "-----" + vbTab + "indicates which of the bots 9 eyes should be used to populate the refvars." + vbCrLf Help.text = Help.text + vbTab + vbTab + "A value of 0 indicates .eye5 should be used." + vbCrLf Help.text = Help.text + vbTab + vbTab + "A value of -1 indicates .eye4, and value of +1 indicates .eye6 and so on..." + vbCrLf Help.text = Help.text + "eye1width, ..." + " ----- " + "(eye1width thru eye9width) Used to change the width and range of an eye. " + vbCrLf Help.text = Help.text + vbTab + vbTab + "The more degrees that you see, the less range you have. 0/-1256 is the normal 10 degrees," + vbCrLf Help.text = Help.text + vbTab + vbTab + "1220/-35 is 360 degrees, and -34 is a long skinny wisker." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "vel" + vbTab + "-----" + vbTab + "How fast am I moving? Returns my velocity. (in the direction I am facing)" + vbCrLf Help.text = Help.text + "velscalar" + vbTab + "-----" + vbTab + "the scalar (magnitude) of your velocity. It's the physical 'speed' as opposed to velocity." + vbCrLf Help.text = Help.text + "velup, ..." + vbTab + "-----" + vbTab + "(velup, deldn, veldx, velsx) give bots velocity from its frame of reference. " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "pain" + vbTab + "-----" + vbTab + "Have I been hurt? Returns the amount of energy lost in the last cycle." + vbCrLf Help.text = Help.text + "pleas" + vbTab + "-----" + vbTab + "Have I been feeding? Returns the amount of energy gained in the last cycle." + vbCrLf Help.text = Help.text + vbTab + vbTab + "As .pain and .pleas both read positive and negative, we don't really need both. Do we?" + vbCrLf Help.text = Help.text + "bodgain" + vbTab + "-----" + vbTab + "How much body did I gain the last cycle?" + vbCrLf Help.text = Help.text + "bodloss" + vbTab + "-----" + vbTab + "How much body did I lose the last cycle?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "hit" + vbTab + "-----" + vbTab + "These give me a sense of touch, allowing me to tell when something has hit me or if I have hit something." + vbCrLf Help.text = Help.text + "hitup" + vbTab + "-----" + vbTab + "Have I been hit from behind? Returns a value of 1 when some idiot rear-ends me." + vbCrLf Help.text = Help.text + "hitdn" + vbTab + "-----" + vbTab + "Have I been hit from the front? Returns a value of 1 when I ram somebody else." + vbCrLf Help.text = Help.text + "hitsx" + vbTab + "-----" + vbTab + "Have I been hit from the left? Returns a value of 1 when some idiot crashes into me." + vbCrLf Help.text = Help.text + "hitdx" + vbTab + "-----" + vbTab + "Have I been hit from the right? Returns a value of 1 when some idiot crashes into me." + vbCrLf Help.text = Help.text + "shup" + vbTab + "-----" + vbTab + "Have I been shot from behind? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shdn" + vbTab + "-----" + vbTab + "Have I been shot from the front? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shsx" + vbTab + "-----" + vbTab + "Have I been shot from the left? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shdx" + vbTab + "-----" + vbTab + "Have I been shot from the right? Returns the location value of the shot when somebody shoots me." + vbCrLf Help.text = Help.text + "shflav" + vbTab + "-----" + vbTab + "The .shoot value (flavor) of a shot that hits me. Resets to zero every cycle." + vbCrLf Help.text = Help.text + "shang" + vbTab + "-----" + vbTab + "Returns the angle of a shot that hits me. Starting at 90 degrees right of the bot's eye, going clockwise " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "edge" + vbTab + "-----" + vbTab + "Have I crashed into the side of the screen? Returns a value of 1 when I hit the edge." + vbCrLf Help.text = Help.text + "fixed" + vbTab + "-----" + vbTab + "Am I fixed in place? Returns a value of 1 If I am." + vbCrLf Help.text = Help.text + "fixpos" + vbTab + "-----" + vbTab + "Just enter a value of zero to become unfixed or any non-zero value to become fixed again." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "depth" + vbTab + "-----" + vbTab + "How deep am I swimming? Returns the value (in DB units) of my distance from the top of the screen." + vbCrLf Help.text = Help.text + "daytime" + vbTab + "-----" + vbTab + "Is it day or night? Returns the value of 1 for day and 0 for night" + vbCrLf Help.text = Help.text + "ypos" + vbTab + "-----" + vbTab + "How far am I from the top? Returns the value (in DB units) of my distance from the top of the screen." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Haven't we seen that before somewhere? No matter. Ypos and depth share the same memory address anyway." + vbCrLf Help.text = Help.text + "xpos" + vbTab + "-----" + vbTab + "How far am I from the left? Returns the value (in DB units) of my distance from the left of the screen." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "nrg" + vbTab + "-----" + vbTab + "How many energy points do I have left? Returns the value of my energy" + vbCrLf Help.text = Help.text + "body" + vbTab + "-----" + vbTab + "How many body points do I have left? Returns the value of my body" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Body and energy are very closely related. Just think of body as fat storage. A little bit is left there each time I eat." + vbCrLf Help.text = Help.text + vbTab + vbTab + "something. DarwinBots are also able to store and retrieve body points at will. Each body point is worth 10 energy " + vbCrLf Help.text = Help.text + vbTab + vbTab + "points." + vbCrLf Help.text = Help.text + "strbody" + vbTab + "-----" + vbTab + "Store a number of body points away for a rainy day. I get 1 body for 10 energy." + vbCrLf Help.text = Help.text + "fdbody" + vbTab + "-----" + vbTab + "Retreive some of those body points as energy. I get 10 energy points back for 1 body." + vbCrLf Help.text = Help.text + vbTab + vbTab + "My energy storing and retrieving are limited to 100 points of energy in either direction so I can't abuse this ability." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "setboy" + vbTab + "-----" + vbTab + "I feel like floating. Change my buoyancy by a specified level. Passing a positive value here will increase buoyancy." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Passing a negative value will decrease it." + vbCrLf Help.text = Help.text + "rdboy" + vbTab + "-----" + vbTab + "Just how floaty am I though? Reads back my bouyancy value. At 32000 I will float all the way to the top." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Remember you can only float around in pond mode. Bouyancy is a waste of time otherwise." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "repro" + vbTab + "-----" + vbTab + "It's time to have a baby. I will just let him have a percentage of my energy and body to give him" + vbCrLf Help.text = Help.text + vbTab + vbTab + "a good start in life. AAAHHH! isn't that cute?" + vbCrLf Help.text = Help.text + "mrepro" + vbTab + "-----" + vbTab + "Same as .repro but this time I will make sure that my baby gets the maximum mutations possible." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Even if my mutations are disabled in the options screen he will STILL mutate. BWAAHAAHAAHAA!!" + vbCrLf Help.text = Help.text + "sexrepro" + vbTab + "-----" + vbTab + "Similar to .repro but where can I get the genetic mix to give to my baby?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I guess I could just grab the genetic code from the nearest passer by, mix it with my own. Et Voila!!" + vbCrLf Help.text = Help.text + "timer" + vbTab + "-----" + vbTab + "Automatically increments every cycle and is passed during reproduction which allows the child and mother's" + vbCrLf Help.text = Help.text + vbTab + vbTab + "timer to stay in sync." + vbCrLf Help.text = Help.text + "fertilized" + vbTab + "-----" + vbTab + "Counts down the cycles remaining until the bot is no longer fertilized." + vbCrLf Help.text = Help.text + vbTab + vbTab + "If the bot gets shot with another sperm shot while fertilized, that DNA replaces the previous DNA and the" + vbCrLf Help.text = Help.text + vbTab + vbTab + ".fertilized counter gets set to 10 again." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "!!TIES!!. These things are cool. I can do so much with them." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "tie" + vbTab + "-----" + vbTab + "Fires a permanent tie toward another robot in my eye5 cell. It won't hit if he is too far away." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The number that I store in .tie becomes the permanent reference address for that tie" + vbCrLf Help.text = Help.text + vbTab + vbTab + "I will need to remember this number so that I can access the tie a little later." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Now I can attach a permanent tie to your parent at birth or even tie by touch if I don't see anything." + vbCrLf Help.text = Help.text + "tienum" + vbTab + "-----" + vbTab + "This is where I have to store a value to access my tie. If this doesn't match the number" + vbCrLf Help.text = Help.text + vbTab + vbTab + "that I used to make my tie then I can't get at it. What was that number again?" + vbCrLf Help.text = Help.text + "deltie" + vbTab + "-----" + vbTab + "This lets me delete a tie that I don't want any more. I still need that number though." + vbCrLf Help.text = Help.text + "tiepres" + vbTab + "-----" + vbTab + "Oh great! This one tells me the id number of that tie. Even if I didn't fire it?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "If I have more than one tie though, it will only give me the id# for the last one made." + vbCrLf Help.text = Help.text + "tieloc" + vbTab + "-----" + vbTab + "Positive values let me comunicate through this tie. .tieloc lets me specify the memory address." + vbCrLf Help.text = Help.text + vbTab + vbTab & "Negative values:" & vbCrLf Help.text = Help.text + vbTab + "-1" + vbTab + "I can give or take energy." & vbCrLf Help.text = Help.text + vbTab + "-3" + vbTab + "Positive value in tieval same as my venom attack. I can steal venom with a negative value in tieval." & vbCrLf Help.text = Help.text + vbTab + "-4" + vbTab + "I can give or take waste." & vbCrLf Help.text = Help.text + vbTab + "-6" + vbTab + "I can give or take body." & vbCrLf Help.text = Help.text + "tieval" + vbTab + "-----" + vbTab + "This one lets me set the value to transmit into your memory or the amount of stuff to exchange." + vbCrLf Help.text = Help.text + "tieang" + vbTab + "-----" + vbTab + "What is the angle of the tie in reference to eye5? Return the number to me." + vbCrLf Help.text = Help.text + "tielen" + vbTab + "-----" + vbTab + "What is the length of the tie? Return the number to me." + vbCrLf Help.text = Help.text + "fixang" + vbTab + "-----" + vbTab + "This one lets me permanently change the angle between the tie and myself." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Zero should make me face you while 628 (half a circle) should make me face directly away from you." + vbCrLf Help.text = Help.text + "fixlen" + vbTab + "-----" + vbTab + "This one lets me permanently change the length of the tie between us." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Better not let it get beyond 1000 units or it will snap." + vbCrLf Help.text = Help.text + "stifftie" + vbTab + "-----" + vbTab + "This one lets me change the stiffness of all my ties. At zero they are springy." + vbCrLf Help.text = Help.text + vbTab + vbTab + "but at the maximum value of 40, my ties get really stiff. Apparently this works by limiting the difference." + vbCrLf Help.text = Help.text + vbTab + vbTab + "in velocity between me and my tied partner." + vbCrLf Help.text = Help.text + "numties" + vbTab + "-----" + vbTab + "Tells the DNA how many ties are currently attached to the robot." + vbCrLf Help.text = Help.text + "tieang1, ..." + " ----- " + "Sets the angle of the nth tie in existance, ordered from oldest to newest," + vbCrLf Help.text = Help.text + vbTab + vbTab + "where n is the number corresponding to the end of this system variable's name" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Now you can read the angle of the tie by using this sysvar as well." + vbCrLf Help.text = Help.text + "tielen1, ..." + vbTab + "-----" + vbTab + "Lets me stretch or shrink the tie in existance for a cycle or two till it springs back" + vbCrLf Help.text = Help.text + vbTab + vbTab + ", ordered from oldest to newest, where n is the number corresponding to the end of this system variable's name" + vbCrLf Help.text = Help.text + vbTab + vbTab + "Now you can read the length of the tie by using this sysvar as well." + vbCrLf Help.text = Help.text + "sharenrg" + vbTab + "-----" + vbTab + "This lets me share my energy with any robot that I am tied too. I don't even need to know the tie" + vbCrLf Help.text = Help.text + vbTab + vbTab + "reference number for this. The number stored in here becomes the percentage of our total energy that I receive." + vbCrLf Help.text = Help.text + "sharewaste" + "---" + vbTab + "Now why would I want to share your waste? I know. Perhaps I can just keep 1% then you will get it all." + vbCrLf Help.text = Help.text + vbTab + vbTab + "If you happen to be a veggie then I can use you to convert it to energy again. Sweet!!" + vbCrLf Help.text = Help.text + "shareshell" + "-----" + vbTab + "Oh! I can share your shell too. Perhaps we can work together to become a bigger and badder Mulit-Bot." + vbCrLf Help.text = Help.text + vbTab + vbTab + "I think we can actually have 200 shell each if we stay together. That is twice as much as we can alone." + vbCrLf Help.text = Help.text + "shareslime" + "-----" + vbTab + "And we can share our slime as well. 200 points each! Wow! I only get 100 if I am alone." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Everything costs a lot less for a Multi-Bot as well. If there are two of us then it is all halved." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Do you think all the costs will be one third if we bring another robot into this Multi-Bot? Why don't we" + vbCrLf Help.text = Help.text + vbTab + vbTab + "all get together?." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Oh I see. I can only have 3 ties so the maximum energy cost reduction factor is 4. Besides that I need a spare" + vbCrLf Help.text = Help.text + vbTab + vbTab + "tie to feed through." + vbCrLf Help.text = Help.text + "multi" + vbTab + "-----" + vbTab + "This one returns a value of one when I become part of a Multi-Bot. That happens when the tie hardens." + vbCrLf Help.text = Help.text + vbTab + vbTab + "I need to be part of a Multi-Bot before I can use the share commands." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The reference variables! This is where I read information about the robot in my eye5 cell. (or even the last one" + vbCrLf Help.text = Help.text + vbTab + "who used to be in it, as these refvars are never cleared aftr use.)" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "refup" + vbTab + "-----" + vbTab + "How many .up commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refdn" + vbTab + "-----" + vbTab + "How many .dn commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refsx" + vbTab + "-----" + vbTab + "How many .sx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refdx" + vbTab + "-----" + vbTab + "How many .dx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refaimsx" + vbTab + "-----" + vbTab + "How many .aimsx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refaimdx" + vbTab + "-----" + vbTab + "How many .aimdx commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refshoot" + vbTab + "-----" + vbTab + "How many .shoot commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refeye" + vbTab + "-----" + vbTab + "How many .eye commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + vbTab + vbTab + "eye1, eye2, eye5, eye9? Any of them. I'm not fussy." + vbCrLf Help.text = Help.text + "refnrg" + vbTab + "-----" + vbTab + "How energy do you have? Returns the number to me" + vbCrLf Help.text = Help.text + "refage" + vbTab + "-----" + vbTab + "How old are you? Returns the number to me" + vbCrLf Help.text = Help.text + "refaim" + vbTab + "-----" + vbTab + "Which direction are you facing? Returns the number to me" + vbCrLf Help.text = Help.text + "reftie" + vbTab + "-----" + vbTab + "How many .tie commands do you have in your DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "refpoison" + vbTab + "-----" + vbTab + "How much poison do you have stored?" + vbCrLf Help.text = Help.text + "refvenom" + vbTab + "-----" + vbTab + "How much venom do you have stored?" + vbCrLf Help.text = Help.text + "reffixed" + vbTab + "-----" + vbTab + "Are you fixed to the spot like a blocked veggie? HaHa!" + vbCrLf Help.text = Help.text + "refkills" + vbTab + "-----" + vbTab + "How many robots have you killed? If you are too tough then maybe I should run away" + vbCrLf Help.text = Help.text + "reftype" + vbTab + "-----" + vbTab + "What am I looking at? Returns the type of object in the focus eye. A shape returns one. A bot zero." + vbCrLf Help.text = Help.text + "refmulti" + vbTab + "-----" + vbTab + "If I am looking at a multibot returns one. If not, returnd zero" + vbCrLf Help.text = Help.text + "refshell" + vbTab + "-----" + vbTab + "How much shell does the robot I am looking at have?. Uses eye5." + vbCrLf Help.text = Help.text + "refbody" + vbTab + "-----" + vbTab + "How much body does the robot I am looking at have?. Uses eye5." + vbCrLf Help.text = Help.text + "refxpos" + vbTab + "-----" + vbTab + "What is the x position of the robot I am looking at?." + vbCrLf Help.text = Help.text + "refypos" + vbTab + "-----" + vbTab + "What is the y position of the robot I am looking at?." + vbCrLf Help.text = Help.text + "refvel, ..." + vbTab + "-----" + vbTab + ".refvel (refvelup, refveldn, refvelsx, refveldx) Returns to me the velocity of" + vbCrLf Help.text = Help.text + vbTab + vbTab + "currnet target using bot's frame of reference. Uses eye5. Value is not refreshed if (*.eye5 0 =)." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Highest possible value is found using *.maxvel, lowest value by using (*.maxvel -1 mult)." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The personal variables! This is where I read information about myself." + vbCrLf Help.text = Help.text + vbTab + "It would be pretty strange to be able to check your DNA but not my own, wouldn't it?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "myup" + vbTab + "-----" + vbTab + "How many .up commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mydn" + vbTab + "-----" + vbTab + "How many .dn commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mysx" + vbTab + "-----" + vbTab + "How many .sx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mydx" + vbTab + "-----" + vbTab + "How many .dx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myaimsx" + vbTab + "-----" + vbTab + "How many .aimsx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myaimdx" + vbTab + "-----" + vbTab + "How many .aimdx commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myshoot" + vbTab + "-----" + vbTab + "How many .shoot commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myeye" + vbTab + "-----" + vbTab + "How many .eye commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myties" + vbTab + "-----" + vbTab + "How many .tie commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "mypoison" + vbTab + "-----" + vbTab + "How many .mkpoison commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "myvenom" + vbTab + "-----" + vbTab + "How many .mkvenom commands I you have in my DNA? Returns the number to me" + vbCrLf Help.text = Help.text + "kills" + vbTab + "-----" + vbTab + "How many other robots have I killed? Returns the number to me" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "More advanced comunication methods." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "out1 tru out9" + " ----- " + "Here I can store a value which I want to be easily visible to other robots." + vbCrLf Help.text = Help.text + "in1 tru in9" + vbTab + "-----" + vbTab + "In this location, I can read the value stored in .outN of a robot that I'm looking at." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + vbTab + "But I can also read your most closely guarded secrets if I really want to." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "memloc" + vbTab + "-----" + vbTab + "I can store a value in here that represents ANY one of your memory locations." + vbCrLf Help.text = Help.text + "memval" + vbTab + "-----" + vbTab + "And this is where I can read back the value that you have stored there." + vbCrLf Help.text = Help.text + "tmemloc" + vbTab + "-----" + vbTab + "I can store a value in here that represents ANY one of your memory locations." + vbCrLf Help.text = Help.text + vbTab + vbTab + "But only if I am tied to you at the time." + vbCrLf Help.text = Help.text + "tmemval" + vbTab + "-----" + vbTab + "And this is where I can read back the value that you have stored there." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Bit of a bummer having to use the tie that way. Still could be useful though." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Here are some useful commands for combat and waste management." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mkslime" + vbTab + "-----" + vbTab + "I can make a layer of slime on my body to protect me from your ties and virus. Trouble is it slowly dissolves away." + vbCrLf Help.text = Help.text + "mkshell" + vbTab + "-----" + vbTab + "I can make a big, thick shell to protect my body from your shots. Trouble is it makes me heavy." + vbCrLf Help.text = Help.text + "slime" + vbTab + "-----" + vbTab + "This tells me how much slime I currently have so that I know when to replace it." + vbCrLf Help.text = Help.text + "shell" + vbTab + "-----" + vbTab + "This tells me how big my shell currently is. Perhaps I should make it smaller with a negative value in .mkshell." + vbCrLf Help.text = Help.text + "strvenom" + vbTab + "-----" + vbTab + "Now I can make some venom to store away in a sac ready to shoot you with it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Hmm? It is a bit expensive though. Only one venom point for two energy points." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Still when I paralyze you it will be well worth the cost." + vbCrLf Help.text = Help.text + "strpoison" + vbTab + "-----" + vbTab + "Perhaps I should make some poison too. That way when you shoot me, you will be the one in trouble." + vbCrLf Help.text = Help.text + vbTab + vbTab + "I can only make four poison points for one energy point." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Still it will be worth it to watch you whizzing around backwards while you are poisoned." + vbCrLf Help.text = Help.text + "venom" + vbTab + "-----" + vbTab + "This tells me how much venom I have stored up. I can carry up to 32000 units." + vbCrLf Help.text = Help.text + "poison" + vbTab + "-----" + vbTab + "This tells me how much poison I have stored up. I can carry up to 32000 units of it too." + vbCrLf Help.text = Help.text + "waste" + vbTab + "-----" + vbTab + "This tells me how much waste I have accumulated. I can only carry 32000 units of it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "but it would most likely kill me long before I get that much. As I accumulate more of it, my body doesn't work as well." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Luckily it is pretty easy to get rid of it. I can give it to a robot i am tied to or just shoot it out. No problem." + vbCrLf Help.text = Help.text + "pwaste" + vbTab + "-----" + vbTab + "Permanent waste! Shudder!! This stuff is nasty. It builds up slowly. When I dump regular waste" + vbCrLf Help.text = Help.text + vbTab + vbTab + "a little bit is left behind. I can never get rid of Permanent waste and eventually it WILL kill me. If you other robots" + vbCrLf Help.text = Help.text + vbTab + vbTab + "don 't get me first." + vbCrLf Help.text = Help.text + "sun" + vbTab + "-----" + vbTab + "Sun eh? That sounds pretty cool. What do you mean? it only returns a 1 if I am facing upwards?" + vbCrLf Help.text = Help.text + vbTab + vbTab + "What is the point of that?" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "The Tie reference variables! This is where I read information about the robot on the other end of my tie." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "readtie" + vbTab + "-----" + vbTab + "I need to specify a tie id# to interogate before I can read values through it." + vbCrLf Help.text = Help.text + vbTab + vbTab + "This value stays with me for as long as I want so I only need to store it once." + vbCrLf Help.text = Help.text + "trefup" + vbTab + "-----" + vbTab + "Exactly like .refup but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefdn" + vbTab + "-----" + vbTab + "Exactly like .refdn but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefsx" + vbTab + "-----" + vbTab + "Exactly like .refsx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefdx" + vbTab + "-----" + vbTab + "Exactly like .refdx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaimsx" + vbTab + "-----" + vbTab + "Exactly like .refaimsx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaimdx" + vbTab + "-----" + vbTab + "Exactly like .refaimdx but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefshoot" + vbTab + "-----" + vbTab + "Exactly like .refshoot but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefeye" + vbTab + "-----" + vbTab + "Exactly like .refeye but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefnrg" + vbTab + "-----" + vbTab + "Exactly like .refnrg but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefage" + vbTab + "-----" + vbTab + "Exactly like .refage but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefbody" + vbTab + "-----" + vbTab + "Reads the body body points of a tied robot through the tie specified in .readtie." + vbCrLf Help.text = Help.text + ".trefvelmyupup,dn,sx,dx ---- Gives the up velocity of the robot at the other end of the tie from my bots frame of reference." + vbCrLf Help.text = Help.text + ".trefvelyourup,dn,sx,dx ---- Gives the actual up velocity of the robot at the other end of the line." + vbCrLf Help.text = Help.text + "treffixed" + vbTab + "-----" + vbTab + "Exactly like .reffixed but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "trefaim" + vbTab + "-----" + vbTab + "Exactly like .refaim but reads through the tie specified in .readtie." + vbCrLf Help.text = Help.text + "tout1 tru tout9" + " ----- " + "Here I can store a value which I want other robots I'm tied with to see." + vbCrLf Help.text = Help.text + "tin1 tru tin9" + " ----- " + "In this location, I can read the value stored in .outN of a robot that I'm tied with" + vbCrLf Help.text = Help.text + "trefxpos" + vbTab + "-----" + vbTab + "What is the x position of the bot that I'm tied to.? " + vbCrLf Help.text = Help.text + "trefypos" + vbTab + "-----" + vbTab + "What is the y position of the bot that I'm tied to.? " + vbCrLf Help.text = Help.text + "trefvelscalar" + " ----- " + "Same as .refvelscalar, but read through a tie." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Now I can make and shoot a virus!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "mkvirus" + vbTab + "-----" + vbTab + "Store to create self perpetuating viruses." + vbCrLf Help.text = Help.text + "thisgene" + vbTab + "-----" + vbTab + "Returns the current gene's number. Designed for: (*.thisgene .mkvirus store) " + vbCrLf Help.text = Help.text + vbTab + vbTab + "Allowing a self reproducing virus. Note: The later in the dna the gene is the more power a virus has vs slime." + vbCrLf Help.text = Help.text + "dnalen" + vbTab + "-----" + vbTab + "Hmm.. What if I want to make a virus, but don't know my DNA length? Returns the number to me." + vbCrLf Help.text = Help.text + "vtimer" + vbTab + "-----" + vbTab + "A readonly value let me know how much time left before virus is ready to fire." + vbCrLf Help.text = Help.text + "vshoot" + vbTab + "-----" + vbTab + "By placing a non-zero value here I can fire my virus. The larger the value the further it travels." + vbCrLf Help.text = Help.text + "genes" + vbTab + "-----" + vbTab + "What if I want to know how much genes I have? Returns the number to me." + vbCrLf Help.text = Help.text + "delgene" + vbTab + "-----" + vbTab + "Allows me to delete a gene from my own genome. The number specified is the gene number to delete." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Primary use is as an anti-viral defence for single gene bots." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Now I can keep track of the simulations populations!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "totalbots" + vbTab + "-----" + vbTab + "Returns the total number of bots in the simulation. This is usually used for shepherd bots." + vbCrLf Help.text = Help.text + "totalmyspecies" + vbTab + "-----" + vbTab + "Returns the number of bots in the same species in the sim. " + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Now I can us chloroplasts. I am no longer artificially fed!" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "chlr" + vbTab + "-----" + vbTab + "How much chloroplasts do I currently have? Return the number to me." + vbCrLf Help.text = Help.text + "mkchlr" + vbTab + "-----" + vbTab + "I can make more chloroplasts using mkchlr. There is a cost though." + vbCrLf Help.text = Help.text + "rmchlr" + vbTab + "-----" + vbTab + "I have too much chloroplasts for given light conditions." + vbCrLf Help.text = Help.text + vbTab + vbTab + "Time to get rid of some." + vbCrLf Help.text = Help.text + "light" + vbTab + "-----" + vbTab + "Let's find out what our current light conditions are." + vbCrLf Help.text = Help.text + vbTab + vbTab + "The lower the number, the less light we have available." + vbCrLf Help.text = Help.text + "sharechlr" + vbTab + "-----" + vbTab + "I can also share chloroplasts with everyone I am tied to." + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + "" + vbCrLf Help.text = Help.text + vbTab + "Well that is all the stuff that they have given me so far. Maybe I will get more stuff to play with in later versions!" + vbCrLf Help.text = Help.text + vbTab + "See You later" + vbCrLf End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim rc As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long ' Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String ' Tempory Storage For A Registry Key Value Dim KeyValSize As Long ' Size Of Registry Key Variable '------------------------------------------------------------ ' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} '------------------------------------------------------------ rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... tmpVal = String$(1024, 0) ' Allocate Variable Space KeyValSize = 1024 ' Mark Variable Size '------------------------------------------------------------ ' Retrieve Registry Key Value... '------------------------------------------------------------ rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) ' Null Not Found, Extract String Only End If '------------------------------------------------------------ ' Determine Key Value Type For Conversion... '------------------------------------------------------------ Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type KeyVal = tmpVal ' Copy String Value Case REG_DWORD ' Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True ' Return Success rc = RegCloseKey(hKey) ' Close Registry Key GoTo getout ' Exit GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String GetKeyValue = False ' Return Failure rc = RegCloseKey(hKey) ' Close Registry Key getout: End Function