• Home
 · 
• Games
 · 
• Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or he

Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or he

Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or heal. Attacking and Healing takes does or

API Declarations


Command 1 to 13
Text 1 to 3
Figure out which commands do what and caption them accordanly.





Rate Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or he

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Player1 As Integer
Dim Player2 As Integer
Dim Dis As Integer



Private Sub Command1_Click()
Dis = Dis - 5
Text1.Text = Dis
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled
Command12.Enabled = False 'disabled
Command11.Enabled = False 'disabled





    
    
    
    
End Sub




Private Sub Command10_Click()
d = (Rnd * 6) + 1
Player1 = Player1 + d
Text2.Text = Player1
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command12.Enabled = False 'disabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled


End Sub

Private Sub Command11_Click()
d = (Rnd * 6) + 1
Player2 = Player2 + d
Text3.Text = Player2
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command13.Enabled = False 'disabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled
Command11.Enabled = False 'disabled
End Sub

Private Sub Command12_Click()
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled
Command12.Enabled = False 'disabled
End Sub

Private Sub Command13_Click()
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled
Command9.Enabled = False 'disabled
Command13.Enabled = False 'disabled
End Sub

Private Sub Command2_Click()
Dis = Dis + 5
Text1.Text = Dis
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command12.Enabled = False 'disabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled
If Dis > 50 Then
MsgBox ("P1 ran away. P2 Wins!")
End
End If

End Sub

Private Sub Command3_Click()
If Dis < 30 Then
  d = (Rnd * 5) + 1
Player2 = Player2 - d
Text3.Text = Player2
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command12.Enabled = False 'disabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled

End If
If Player2 < -50 Then
MsgBox ("Player1 Wins!")
End
End If
End Sub

Private Sub Command4_Click()
If Dis < 15 Then
d = (Rnd * 10) + 1
Player2 = Player2 - d
Text3.Text = Player2
Command5.Enabled = True 'enabled
Command6.Enabled = True 'enabled
Command7.Enabled = True 'enabled
Command8.Enabled = True 'enabled
Command9.Enabled = True 'enabled
Command13.Enabled = True 'enabled
Command12.Enabled = False 'disabled
Command1.Enabled = False 'disabled
Command2.Enabled = False 'disabled
Command3.Enabled = False 'disabled
Command4.Enabled = False 'disabled
Command10.Enabled = False 'disabled

End If
If Player2 < -50 Then
MsgBox ("Player1 Wins!")
End
End If
End Sub

Private Sub Command5_Click()
Dis = Dis - 5
Text1.Text = Dis
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled

Command13.Enabled = False 'disabled
Command11.Enabled = False 'disabled

End Sub

Private Sub Command6_Click()
Dis = Dis + 5
Text1.Text = Dis
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command13.Enabled = False 'disabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled

Command11.Enabled = False 'disabled

If Dis > 50 Then
MsgBox ("P2 ran away. P1 Wins!")
End
End If

End Sub

Private Sub Command7_Click()
If Dis < 30 Then
d = (Rnd * 5) + 1
Player1 = Player1 - d
Text2.Text = Player1
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command13.Enabled = False 'disabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled
Command9.Enabled = False 'disabled
Command11.Enabled = False 'disabled
End If

If Player1 < -50 Then
MsgBox ("Player2 Wins!")
End
End If
End Sub

Private Sub Command8_Click()
If Dis < 15 Then
d = (Rnd * 10) + 1
Player1 = Player1 - d
Text2.Text = Player1
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command12.Enabled = True 'enabled
Command13.Enabled = False 'disabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled

Command11.Enabled = False 'disabled
End If
If Player1 < -50 Then
MsgBox ("Player2 Wins!")
End
End If
End Sub

Private Sub Command9_Click()
If MsgBox("Are you Sure?", vbYesNo) = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
Player1 = 0
Player2 = 0
Dis = 50
Text1.Text = Dis
Text2.Text = Player1
Text3.Text = Player2
Command12.Enabled = False 'disabled



End Sub

Private Sub Pass_Click()
Command1.Enabled = True 'enabled
Command2.Enabled = True 'enabled
Command3.Enabled = True 'enabled
Command4.Enabled = True 'enabled
Command10.Enabled = True 'enabled
Command5.Enabled = False 'disabled
Command6.Enabled = False 'disabled
Command7.Enabled = False 'disabled
Command8.Enabled = False 'disabled
End Sub