VERSION 5.00 Begin VB.Form main BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Earth Damage" ClientHeight = 5775 ClientLeft = 45 ClientTop = 435 ClientWidth = 7140 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5775 ScaleWidth = 7140 StartUpPosition = 3 'Windows Default Begin VB.CommandButton weaptech Caption = "Weapon Tech" Height = 375 Left = 3638 TabIndex = 32 Top = 5040 Width = 1215 End Begin VB.CommandButton close Caption = "Close" Height = 375 Left = 5198 TabIndex = 16 Top = 5040 Width = 1215 End Begin VB.CheckBox govb Alignment = 1 'Right Justify BackColor = &H80000006& Caption = "Dictatorship" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Left = 3653 TabIndex = 15 Top = 2430 Width = 2415 End Begin VB.CheckBox gova Alignment = 1 'Right Justify BackColor = &H80000007& Caption = "Dictatorship" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Left = 413 TabIndex = 14 Top = 2430 Width = 2415 End Begin VB.CommandButton about Caption = "About" Height = 375 Left = 503 TabIndex = 13 Top = 5040 Width = 1215 End Begin VB.CommandButton help Caption = "Help" Height = 375 Left = 2078 TabIndex = 12 Top = 5040 Width = 1215 End Begin VB.TextBox tech2 Height = 285 Left = 5123 TabIndex = 11 Text = "100" Top = 2040 Width = 975 End Begin VB.TextBox tech1 Height = 285 Left = 1883 TabIndex = 10 Text = "100" Top = 2040 Width = 975 End Begin VB.TextBox apower Height = 285 Left = 3263 Locked = -1 'True TabIndex = 9 Top = 3600 Width = 2175 End Begin VB.TextBox dpower Height = 285 Left = 3263 Locked = -1 'True TabIndex = 8 Top = 3960 Width = 2175 End Begin VB.TextBox compare Height = 285 Left = 3263 Locked = -1 'True TabIndex = 7 Top = 4320 Width = 2175 End Begin VB.CommandButton comparebutton Caption = "Calculate" Height = 375 Left = 2048 TabIndex = 6 Top = 3000 Width = 3015 End Begin VB.TextBox d3 Height = 285 Left = 4523 TabIndex = 5 Top = 1680 Width = 2175 End Begin VB.TextBox d2 Height = 285 Left = 4523 TabIndex = 4 Top = 1320 Width = 2175 End Begin VB.TextBox d1 Height = 285 Left = 4523 TabIndex = 3 Top = 960 Width = 2175 End Begin VB.TextBox a3 Height = 285 Left = 1283 TabIndex = 2 Top = 1680 Width = 2175 End Begin VB.TextBox a2 Height = 285 Left = 1283 TabIndex = 1 Top = 1320 Width = 2175 End Begin VB.TextBox a1 Height = 285 Left = 1283 TabIndex = 0 Top = 960 Width = 2175 End Begin VB.Line Line1 BorderColor = &H80000004& Index = 2 X1 = 30 X2 = 7110 Y1 = 4800 Y2 = 4800 End Begin VB.Line Line1 BorderColor = &H80000004& Index = 1 X1 = 405 X2 = 6735 Y1 = 2790 Y2 = 2790 End Begin VB.Line Line1 BorderColor = &H80000004& Index = 0 X1 = 3600 X2 = 3600 Y1 = 2670 Y2 = 630 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000007& Caption = "Defender" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 5 Left = 3690 TabIndex = 31 Top = 480 Width = 3015 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000007& Caption = "Attacker" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 4 Left = 450 TabIndex = 30 Top = 480 Width = 3015 End Begin VB.Label label1 BackColor = &H80000007& Caption = "%" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 4 Left = 6210 TabIndex = 29 Top = 2040 Width = 255 End Begin VB.Label label1 BackColor = &H80000007& Caption = "%" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 3 Left = 2970 TabIndex = 28 Top = 2040 Width = 255 End Begin VB.Label label1 BackColor = &H80000007& Caption = "Troops:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 2 Left = 450 TabIndex = 27 Top = 960 Width = 735 End Begin VB.Label Label3 BackColor = &H80000007& Caption = "Weapons Tech:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 3 Left = 3690 TabIndex = 26 Top = 2040 Width = 1455 End Begin VB.Label Label3 BackColor = &H80000007& Caption = "Weapons Tech:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 2 Left = 450 TabIndex = 25 Top = 2040 Width = 1455 End Begin VB.Label Label4 BackColor = &H80000007& Caption = "Power Compare:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 2 Left = 1695 TabIndex = 24 Top = 4320 Width = 1455 End Begin VB.Label Label4 BackColor = &H80000007& Caption = "Attack Power:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 0 Left = 1680 TabIndex = 23 Top = 3600 Width = 1215 End Begin VB.Label Label4 BackColor = &H80000007& Caption = "Defense Power:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 1 Left = 1680 TabIndex = 22 Top = 3960 Width = 1455 End Begin VB.Label label1 BackColor = &H80000007& Caption = "Troops:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 1 Left = 3690 TabIndex = 21 Top = 960 Width = 735 End Begin VB.Label Label2 BackColor = &H80000007& Caption = "Turrets:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 1 Left = 3690 TabIndex = 20 Top = 1320 Width = 735 End Begin VB.Label Label3 BackColor = &H80000007& Caption = "Tanks:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 1 Left = 3690 TabIndex = 19 Top = 1680 Width = 735 End Begin VB.Label Label3 BackColor = &H80000007& Caption = "Tanks:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 0 Left = 450 TabIndex = 18 Top = 1680 Width = 735 End Begin VB.Label label1 BackColor = &H80000007& Caption = "Jets:" BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 0 Left = 450 TabIndex = 17 Top = 1320 Width = 735 End End Attribute VB_Name = "main" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Attacker_Troops As Long, Defender_Troops As Long Private Attacker_Jets As Long, Defender_Turrets As Long Private Attacker_Tanks As Long, Defender_Tanks As Long Private Attacker_WT As Single, Defender_WT As Single Private Attacker_Power As Single, Defender_Power As Single Private Power_Compare As Single Private Sub about_Click() aboutprogram.Show End Sub Private Sub close_Click() Unload Me End Sub Private Sub help_Click() helpprogram.Show End Sub Private Sub comparebutton_Click() Attacker_Troops = Val(a1.Text) Attacker_Jets = Val(a2.Text) Attacker_Tanks = Val(a3.Text) Attacker_WT = Val(tech1.Text) Attacker_Power = (Attacker_Troops * 1) + (Attacker_Jets * 2) + (Attacker_Tanks * 2) * (Attacker_WT / 100) If gova.Value = 1 Then Attacker_Power = Attacker_Power * 1.2 End If apower.Text = Str$(Attacker_Power) Defender_Troops = Val(a1.Text) Defender_Turrets = Val(a2.Text) Defender_Tanks = Val(a3.Text) Defender_WT = Val(tech1.Text) Defender_Power = (Defender_Troops * 1) + (Defender_Turrets * 2) + (Defender_Tanks * 2) * (Defender_WT / 100) If govb.Value = 1 Then Defender_Power = Defender_Power * 1.2 End If dpower.Text = Str$(Defender_Power) Power_Compare = Attacker_Power - Defender_Power compare.Text = Str$(Power_Compare) End Sub Private Sub weaptech_Click() Dim IE As Object Set IE = CreateObject("Internetexplorer.application") IE.Navigate "http://www.wazmo.us/cgi-bin/tech.cgi" IE.Visible = True End Sub