by Dabawig (3 Submissions)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 26th April 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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.
VBcoders
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
No comments have been posted about Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or he. Why not be the first to post a comment about Fight Out 2 Player 1.0 2 player take turns choosing either to advance, retreat, fire, attack, or he.
