Index: CostsForm.frm =================================================================== --- CostsForm.frm (revision 68) +++ CostsForm.frm (working copy) @@ -61,7 +61,6 @@ Left = 4320 TabIndex = 128 Text = "0" - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 1440 Width = 960 End @@ -128,7 +127,6 @@ Height = 285 Left = 4800 TabIndex = 117 - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 360 Width = 255 _ExtentX = 450 @@ -136,7 +134,7 @@ _Version = 327681 Value = 100 BuddyControl = "DynamicCostTargetPopulation" - BuddyDispid = 196616 + BuddyDispid = 196617 OrigLeft = 3600 OrigTop = 360 OrigRight = 3855 @@ -151,7 +149,6 @@ Height = 285 Left = 4800 TabIndex = 120 - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 720 Width = 255 _ExtentX = 450 @@ -159,7 +156,7 @@ _Version = 327681 Value = 100 BuddyControl = "DynamicCostsRangeU" - BuddyDispid = 196615 + BuddyDispid = 196616 OrigLeft = 4800 OrigTop = 720 OrigRight = 5055 @@ -174,7 +171,6 @@ Height = 285 Left = 4800 TabIndex = 124 - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 1080 Width = 255 _ExtentX = 450 @@ -182,7 +178,7 @@ _Version = 327681 Value = 100 BuddyControl = "DynamicCostsRangeL" - BuddyDispid = 196614 + BuddyDispid = 196615 OrigLeft = 4800 OrigTop = 1080 OrigRight = 5055 @@ -268,7 +264,6 @@ Left = 4320 TabIndex = 107 Text = "0" - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 1080 Width = 960 End @@ -276,7 +271,6 @@ Height = 285 Left = 5280 TabIndex = 108 - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 1080 Width = 255 _ExtentX = 450 @@ -285,7 +279,7 @@ Value = 100 AutoBuddy = -1 'True BuddyControl = "BotNoCostThreshold" - BuddyDispid = 196626 + BuddyDispid = 196627 OrigLeft = 3600 OrigTop = 360 OrigRight = 3855 @@ -300,7 +294,6 @@ Height = 285 Left = 5280 TabIndex = 129 - ToolTipText = "Set the length of day and night in game cycles. The value entered here represents one full cycle of both." Top = 1440 Width = 255 _ExtentX = 450 @@ -309,7 +302,7 @@ Value = 100 AutoBuddy = -1 'True BuddyControl = "CostReinstate" - BuddyDispid = 196612 + BuddyDispid = 196613 OrigLeft = 3600 OrigTop = 360 OrigRight = 3855 @@ -1344,7 +1337,7 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit - +'Botsareus 3/25/2012 removed incorrect tool tips from Cost Overwrites Private Sub AgeCostLog_Click() If AgeCostLog.value = 1 Then LinearAgeCostCheck.Enabled = False Index: DNA.bas =================================================================== --- DNA.bas (revision 68) +++ DNA.bas (working copy) @@ -122,7 +122,7 @@ If CurrentFlow = body Or CurrentFlow = ELSEBODY Then If CondStateIsTrue Then ' Check the Bool stack. If empty or True on top, do the stores. Don't if False. ExecuteStores .DNA(a).value - If n = robfocus Or Not (rob(n).console Is Nothing) Then rob(n).ga(currgene) = True 'EricL This gene fired this cycle! Populate ga() + If n = robfocus Or Not (rob(n).console Is Nothing) Then rob(n).ga(currgene) = True 'EricL This gene fired this cycle! Populate ga() End If End If Case 8 'reserved for a future type @@ -318,7 +318,7 @@ Dim e As Single 'angle to target b = PopIntStack ' * Form1.yDivisor a = PopIntStack ' * Form1.xDivisor - c = rob(currbot).pos.x / Form1.xDivisor + c = rob(currbot).pos.X / Form1.xDivisor d = rob(currbot).pos.Y / Form1.yDivisor e = angnorm(angle(c, d, a, b)) * 200 PushIntStack e @@ -332,7 +332,7 @@ Dim e As Single 'distance to target b = PopIntStack * Form1.yDivisor a = PopIntStack * Form1.xDivisor - c = rob(currbot).pos.x + c = rob(currbot).pos.X d = rob(currbot).pos.Y e = Sqr(((c - a) ^ 2 + (d - b) ^ 2)) If Abs(e) > 2000000000# Then @@ -783,10 +783,9 @@ ExecuteFlowCommands = True If CurrentFlow = COND Then CurrentCondFlag = AddupCond If Not ingene Then CurrentCondFlag = NEXTBODY - - If CurrentCondFlag And CurrentFlow <> CLEAR Then + If CurrentCondFlag And (CurrentFlow = ELSEBODY Or CurrentFlow = body) Then 'Botsareus 3/24/2012 Fixed a bug where: any else gene was showing activation ' Need to check this for the case where the gene body doesn't have any stores to trigger the activation dialog - If bot = robfocus Or Not (rob(bot).console Is Nothing) Then rob(bot).ga(currgene) = True 'EricL This gene fired this cycle! Populate ga() + If bot = robfocus Or Not (rob(bot).console Is Nothing) Then rob(bot).ga(currgene) = True 'EricL This gene fired this cycle! Populate ga() End If CurrentFlow = CLEAR Select Case n @@ -861,12 +860,12 @@ ExecuteDNA t If Not (rob(t).console Is Nothing) And DisplayActivations Then rob(t).console.textout "" - rob(t).console.textout "robot genes execution: - =not executed" + rob(t).console.textout "***ROBOT GENES EXECUTION***" 'Botsareus 3/24/2012 looks a little better now For k = 1 To rob(t).genenum If rob(t).ga(k) Then rob(t).console.textout CStr(k) & " executed" Else - rob(t).console.textout CStr(k) & " -" + rob(t).console.textout CStr(k) & " not executed" 'Botsareus 3/24/2012 looks a little better now End If Next k End If Index: frmAbout.frm =================================================================== --- frmAbout.frm (revision 68) +++ frmAbout.frm (working copy) @@ -5,19 +5,19 @@ ClientHeight = 4455 ClientLeft = 45 ClientTop = 330 - ClientWidth = 6120 + ClientWidth = 6825 Icon = "frmAbout.frx":0000 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4455 - ScaleWidth = 6120 + ScaleWidth = 6825 StartUpPosition = 3 'Windows Default Tag = "12001" Begin VB.TextBox Text1 BackColor = &H80000000& Height = 1455 - Left = 120 + Left = 600 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical @@ -40,12 +40,30 @@ Strikethrough = 0 'False EndProperty Height = 345 - Left = 4320 + Left = 4800 TabIndex = 0 Tag = "12008" Top = 3960 Width = 1500 End + Begin VB.Label Label5 + Alignment = 1 'Right Justify + Caption = "Post 2.45.1 revisions by Botsareus (hit me up on twitter CosmoTwitt007)" + BeginProperty Font + Name = "Arial" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = -360 + TabIndex = 10 + Top = 1680 + Width = 6735 + End Begin VB.Label Label4 Alignment = 1 'Right Justify Caption = "Further revisions by EricL (eric@sulaadventures.com)" @@ -59,7 +77,7 @@ Strikethrough = 0 'False EndProperty Height = 255 - Left = 1080 + Left = 1560 TabIndex = 9 Top = 1440 Width = 4815 @@ -77,7 +95,7 @@ Strikethrough = 0 'False EndProperty Height = 255 - Left = 1320 + Left = 1800 TabIndex = 8 Top = 1200 Width = 4575 @@ -95,7 +113,7 @@ EndProperty ForeColor = &H00000000& Height = 660 - Left = 1560 + Left = 1920 TabIndex = 6 Top = 120 Width = 3015 @@ -113,7 +131,7 @@ EndProperty ForeColor = &H00000000& Height = 210 - Left = 3240 + Left = 3720 TabIndex = 5 Top = 960 Width = 2775 @@ -154,7 +172,7 @@ Strikethrough = 0 'False EndProperty Height = 540 - Left = 120 + Left = 600 TabIndex = 3 Tag = "12006" Top = 3480 @@ -202,7 +220,7 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit - +'Botsareus 2/24/2012 post 2.45 revisions update Private Sub cmdOK_Click() Hide End Sub @@ -225,6 +243,9 @@ Text1.text = Text1.text + "2.42 and beyond Copyright (C) Eric Lockard" + vbCrLf Text1.text = Text1.text + "ericl@sulaadventures.com" + vbCrLf Text1.text = Text1.text + "" + vbCrLf + Text1.text = Text1.text + "2.45.2 and beyond Copyright (C) Botsareus" + vbCrLf 'Botsareus 3/24/2012 more info + Text1.text = Text1.text + "CosmoTwitt007" + vbCrLf 'Botsareus 3/24/2012 more info + Text1.text = Text1.text + "" + vbCrLf 'Botsareus 3/24/2012 more info Text1.text = Text1.text + "All rights reserved. " + vbCrLf Text1.text = Text1.text + "" + vbCrLf Text1.text = Text1.text + "Redistribution and use in source and binary forms, with or without " Index: frmAbout1.frm =================================================================== --- frmAbout1.frm (revision 68) +++ frmAbout1.frm (working copy) @@ -28,6 +28,7 @@ ClipControls = 0 'False Height = 540 Left = 240 + Picture = "frmAbout1.frx":0000 ScaleHeight = 337.12 ScaleMode = 0 'User ScaleWidth = 337.12 @@ -37,7 +38,7 @@ End Begin VB.CommandButton cmdOK Cancel = -1 'True - Caption = "Enough Already!!" + Caption = "&Exit Help" Default = -1 'True BeginProperty Font Name = "MS Sans Serif" @@ -49,7 +50,7 @@ Strikethrough = 0 'False EndProperty Height = 345 - Left = 6480 + Left = 8520 TabIndex = 0 Top = 6840 Width = 1740 @@ -79,7 +80,7 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit - +'Botsareus 3/24/2012 Added an icon ' Reg Key Security Options... Const READ_CONTROL = &H20000 Const KEY_QUERY_VALUE = &H1 @@ -112,345 +113,345 @@ End Sub Private Sub Form_Load() - Me.Caption = "DarwinBots V2.32beta DNA Help" - lblTitle.Caption = "DarwinBots V2.32beta DNA Help" - help.text = "" - help.text = help.text + vbTab + vbTab + vbTab + vbTab + "DarwinBots V2.32beta DNA" + vbCrLf - help.text = help.text + "" + vbCrLf - help.text = help.text + vbTab + "This is a very brief 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 is a reminder of the mathematical operators" + vbCrLf - help.text = help.text + "These can only be used in the Action step of the DNA. (after START)" + 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 + Me.Caption = "DarwinBots V2.45.2 DNA Help" + lblTitle.Caption = "DarwinBots V2.45.2 DNA Help" + Help.text = "" + Help.text = Help.text + vbTab + vbTab + vbTab + vbTab + "DarwinBots V2.32beta DNA" + vbCrLf + Help.text = Help.text + "" + vbCrLf + Help.text = Help.text + vbTab + "This is a very brief 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 is a reminder of the mathematical operators" + vbCrLf + Help.text = Help.text + "These can only be used in the Action step of the DNA. (after START)" + 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 + "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 + "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 + "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 + "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 + "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 + "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 + "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 + "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 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 which can also be found in the file (sysvars2.21.txt)" + 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 + "And finally the System Variables which can also be found in the file (sysvars2.21.txt)" + 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 + "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 + "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 + "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 affetxed by the 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 a specific for as long as 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 + "" + 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 affetxed by the 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 a specific for as long as 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 + "" + 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 + "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 + "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 + "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 + "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 + "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 + "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. Sets my bouyancy value in the range of -2000 (sink) to +2000 (float)." + vbCrLf - help.text = help.text + "rdboy" + vbTab + "-----" + vbTab + "Just how floaty am I though? Reads back my bouyancy value." + 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 + "setboy" + vbTab + "-----" + vbTab + "I feel like floating. Sets my bouyancy value in the range of -2000 (sink) to +2000 (float)." + vbCrLf + Help.text = Help.text + "rdboy" + vbTab + "-----" + vbTab + "Just how floaty am I though? Reads back my bouyancy value." + 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 + "" + 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 + "" + 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 + "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 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 many .strpoison commands do you have in your DNA? Returns the number to me" + vbCrLf - help.text = help.text + "refvenom" + vbTab + "-----" + vbTab + "How many .strvenom commands do you have in your DNA? Returns the number to me" + 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 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 many .strpoison commands do you have in your DNA? Returns the number to me" + vbCrLf + Help.text = Help.text + "refvenom" + vbTab + "-----" + vbTab + "How many .strvenom commands do you have in your DNA? Returns the number to me" + 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 .strpoison commands I you have in my DNA? Returns the number to me" + vbCrLf - help.text = help.text + "myvenom" + vbTab + "-----" + vbTab + "How many .strvenom 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 + "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 .strpoison commands I you have in my DNA? Returns the number to me" + vbCrLf + Help.text = Help.text + "myvenom" + vbTab + "-----" + vbTab + "How many .strvenom 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 + "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 + 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? This is a bit expensive too. Only one poison point for two energy points." + 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 + "" + 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? This is a bit expensive too. Only one poison point for two energy points." + 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 + "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 + "" + 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 + "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 + "" + 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 + 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 Index: Iersera.vbp =================================================================== --- Iersera.vbp (revision 68) +++ Iersera.vbp (working copy) @@ -1,12 +1,12 @@ Type=Exe -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation -Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\..\..\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation +Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\..\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime Object={FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0; COMCT232.OCX -Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx +Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX -Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#..\..\..\..\..\Windows\SysWOW64\msstdfmt.dll#Microsoft Data Formatting Object Library +Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#..\..\..\..\Windows\SysWow64\MSSTDFMT.DLL#Microsoft Data Formatting Object Library Form=MDIForm1.frm Form=robdata.frm Form=InfoForm.frm @@ -70,7 +70,6 @@ HelpFile="" Title="DarwinBots" ExeName32="Darwin2.45.01.exe" -Path32="..\..\..\Darwinbots" Command32="" Name="DarwinBots" HelpContextID="0" Index: InfoForm.frm =================================================================== --- InfoForm.frm (revision 68) +++ InfoForm.frm (working copy) @@ -1,12 +1,12 @@ VERSION 5.00 Begin VB.Form InfoForm - BackColor = &H00800000& + BackColor = &H00C00000& BorderStyle = 1 'Fixed Single Caption = "Darwinbots" ClientHeight = 6000 ClientLeft = 2205 ClientTop = 2550 - ClientWidth = 9600 + ClientWidth = 9615 Icon = "InfoForm.frx":0000 LinkTopic = "Form10" MaxButton = 0 'False @@ -14,16 +14,29 @@ Picture = "InfoForm.frx":08CA ScaleHeight = 400 ScaleMode = 3 'Pixel - ScaleWidth = 640 + ScaleWidth = 641 StartUpPosition = 1 'CenterOwner Tag = "16000" - Begin VB.Label Label9 - BackStyle = 0 'Transparent - Height = 6015 - Left = 0 + Begin VB.CommandButton Command1 + Appearance = 0 'Flat + BackColor = &H00C00000& + Caption = "OK" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = 7680 + MaskColor = &H00800000& + Style = 1 'Graphical TabIndex = 8 - Top = 0 - Width = 9615 + Top = 5520 + Width = 1815 End Begin VB.Label Label8 Appearance = 0 'Flat @@ -37,16 +50,9 @@ Top = 4785 Width = 2295 End - Begin VB.Image Image1 - Height = 345 - Left = 8025 - Picture = "InfoForm.frx":91C5 - Top = 5520 - Width = 1125 - End Begin VB.Label Label7 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":A683 + Caption = $"InfoForm.frx":91C5 BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -58,7 +64,7 @@ EndProperty ForeColor = &H00FFC0C0& Height = 1320 - Left = 6945 + Left = 6840 TabIndex = 6 Tag = "16002" Top = 15 @@ -108,7 +114,7 @@ End Begin VB.Label Label6 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":A76F + Caption = $"InfoForm.frx":92B1 BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -148,7 +154,7 @@ End Begin VB.Label Label4 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":A815 + Caption = $"InfoForm.frx":9357 BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -168,7 +174,7 @@ End Begin VB.Label Label3 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":A8BA + Caption = $"InfoForm.frx":93FC BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -188,7 +194,7 @@ End Begin VB.Label Label2 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":A9B9 + Caption = $"InfoForm.frx":94FB BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -208,7 +214,7 @@ End Begin VB.Label Label1 BackStyle = 0 'Transparent - Caption = $"InfoForm.frx":AB57 + Caption = $"InfoForm.frx":9699 BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -233,11 +239,10 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit - -Dim this As Boolean +'Botsareus 3/24/2012 simplified the info form Private Sub Command1_Click() - Me.Hide + Unload Me End Sub Private Sub Form_Load() @@ -245,23 +250,3 @@ SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE InfoForm.Show End Sub - -Private Sub Form_lostfocus() - ' InfoForm.Hide -' MDIForm1.Show -End Sub - -Private Sub Image1_Click() -' InfoForm.Hide - ' MDIForm1.Show -End Sub - -Private Sub Form_Click() -' InfoForm.Hide - ' MDIForm1.Show -End Sub - -Private Sub Label9_Click() -' InfoForm.Hide -' MDIForm1.Show -End Sub Index: InfoForm.frx =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: MDIForm1.frm =================================================================== --- MDIForm1.frm (revision 68) +++ MDIForm1.frm (working copy) @@ -1,5 +1,5 @@ VERSION 5.00 -Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" +Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.MDIForm MDIForm1 AutoShowChildren= 0 'False @@ -1346,6 +1346,11 @@ Form1.SecTimer.Enabled = Not Form1.SecTimer.Enabled End Sub +Private Sub removepiccy_Click() 'Botsareus 3/24/2012 Added code that deletes the background picture +Form1.PiccyMode = False +Form1.Picture = optionsform.Picture +End Sub + Private Sub Report_Click() pro.Report End Sub @@ -1978,7 +1983,7 @@ simload MDIForm1.MainDir + "\saves\lastexit.sim" End If Else - InfoForm.Show + 'Botsareus 3/28/2012 do not need to load InfoForm here ' Put the code here to start up a default sim using internally defined bots If MsgBox("Would you like to connect to Internet Mode?", vbYesNo + vbExclamation, MBwarning) = vbYes Then MDIForm1.Caption = MDIForm1.Caption + " Internet Mode" Index: SimOptions.bas =================================================================== --- SimOptions.bas (revision 68) +++ SimOptions.bas (working copy) @@ -1,6 +1,7 @@ Attribute VB_Name = "SimOptModule" Public Const COSTSTORE As Integer = 7 Public Const CONDCOST As Integer = 5 +'Botsareus to do: add the rest of the costs Public Const MOVECOST As Integer = 20 Public Const TURNCOST As Integer = 21 Index: OptionsForm.frm =================================================================== --- OptionsForm.frm (revision 68) +++ OptionsForm.frm (working copy) @@ -1,6 +1,6 @@ VERSION 5.00 Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX" -Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" +Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" @@ -2983,6 +2983,7 @@ ' which is modified. On exit, if ok has been clicked ' TmpOpts is copied to SimOpts again ' SimOpts struct is defined in SimOptModule +' Option Explicit @@ -5541,6 +5542,7 @@ "If this is a new install, choose OK.", vbOKCancel + vbQuestion) If b = vbOK Then RecursiveMkDir (MDIForm1.MainDir + "\settings") + InfoForm.Show '3/28/2012 Added code to show InfoForm on new install Else MsgBox ("Darwinbots cannot continue. Program will exit.") MDIForm1.exitDB = True @@ -5550,6 +5552,7 @@ MsgBox ("Cannot find the settings file from your last exit. " + vbCrLf + _ "Using the internal default settings. " + vbCrLf + vbCrLf + _ "If this is a new install, this is normal.") + InfoForm.Show '3/28/2012 Added code to show InfoForm on new install Else MsgBox MBcannotfindI, , MBwarning CommonDialog1.FileName = path