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 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real time then the 2 player version. Instead of
VBcoders
eh = 25
Ehealth = eh
d = 100
Dis = d
h = 25
health = h
p = 0
power = p
ed = 5
edefense = ed
ea = 5
epower = ea
datt = 5
aa = datt
pa = 1
patt = pa
End Sub
Private Sub Label8_Click()
End Sub
Private Sub ma_Click()
If d < 15 And d > -15 Then
eh = eh - 4
Ehealth = eh
Text = "You attacked melee for 4 points of damage"
If eh < 0 Then MsgBox "You struck the final blow and your opponent falls"
End If
End Sub
Private Sub pow_Click()
If Dis > 80 And Dis < 120 And pa = 1 Then
eh = eh - p
Ehealth = eh
Text = "You hit your opponent with a power attack for " & p & " points of damage"
p = o
pa = pa - 1
patt = pa
power = p
If eh < o Then MsgBox "It turn's out your power attack did the trick, Good Job"
End If
End Sub
Private Sub rd_Click()
de = de + 2
Defense = de
Text = "You raised your defense by 2"
End Sub
Private Sub rp_Click()
p = p + 3
power = p
Text = "You raised you attacking power by 3"
End Sub
Private Sub Timer1_Timer()
If Dis < 15 And Dis > -15 Then
If Rnd < 0.5 Then h = h - 4
health = h
Etext = "Your opponent hit you in melee"
If Rnd > 0.5 Then
Dis = Dis + 10
Distance = Dis
Etext = "Your opponent ran 10 feet back"
End If
End If
If Dis > 10 And Dis < 75 And ea > 0 Then
If Rnd < 0.5 Then
h = h - 2
health = h
ea = ea - 1
epower = ea
Etext = "Your opponent hit you with an arrow"
Else
If Rnd < 0.5 Then
Dis = Dis - 10
Distance = Dis
Etext = "Your opponent advanced 10 feet"
Else
If Rnd < 0.5 Then
Dis = Dis - 10
Distance = Dis
Etext = "Your opponent advanced 10 feet"
Else
Dis = Dis + 10
Distance = Dis
Etext = "Your opponent ran 10 feet back"
End If
End If
End If
End If
If Dis > 70 Then
Dis = Dis - 10
Etext = "Your opponent moved 10 feet towards you"
Distance = Dis
End If
End Sub
No comments have been posted about Fight Out 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real t. Why not be the first to post a comment about Fight Out 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real t.
