• Home
 · 
• Games
 · 
• Fight Out 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real t

Fight Out 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real t

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

Rate Fight Out 1 player 1.0 This is the one player version of Fight Out 2 player 1.0 This is more real t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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