Version: 1.2.1e
Computer Specs:
OS: Windows 10
GPU: GTX 970
CPU: i5 7600
RAM: 16 gb
Motherboard: gigabyte h270n
Storage Device (HDD/SSD): WDS500g2b0a ssd
I turned corpses off in the settings menu and it doesn't seem to do anything. I join servers and I still end up seeing bodies. Which sucks...
yeah I think its an april fools thing Currently the logistics of multiplayer are jankier than warband's beta. probably wait a bit for them to get everything sorted out before investing too much time in the multiplayer.
I am not sure I even used a seed. I am quite new at these things. Here is the code I used.
Public Class Form1
Dim Fighter1 As String
Dim Fighter2 As String
Dim Num1 As Single
Public Class GlobalVariable
Public Shared intVariable As Integer
End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Fighter1 = CObj(TextBox1.Text)
Fighter2 = CObj(TextBox2.Text)
Simulation_Start:
If GlobalVariable.intVariable <= 19 Then
'Add one to the intVariable
GlobalVariable.intVariable = GlobalVariable.intVariable + 1
'Do the common action
Dim x As Integer
Dim Num1 As Integer
Randomize()
For x = 1 To 20
Num1 = Rnd() * 20
If Num1 = 1 Then
RichTextBox1.Text = Fighter1 + " kicks " + Fighter2 + " in the stomach!"
ElseIf Num1 = 2 Then
RichTextBox1.Text = Fighter2 + " kicks " + Fighter1 + " in the stomach!"
ElseIf Num1 = 3 Then
RichTextBox1.Text = Fighter1 + " punches " + Fighter2 + " in his jaw!"
ElseIf Num1 = 4 Then
RichTextBox1.Text = Fighter2 + " punches " + Fighter1 + " in his jaw!"
ElseIf Num1 = 5 Then
RichTextBox1.Text = Fighter1 + " hits " + Fighter2 + " with a flying kick!"
ElseIf Num1 = 6 Then
RichTextBox1.Text = Fighter2 + " hits " + Fighter1 + " with a flying kick!"
ElseIf Num1 = 7 Then
RichTextBox1.Text = Fighter1 + " introduces his finger into " + Fighter2 + "´s eye! " + Fighter2 + " is half blind."
ElseIf Num1 = 8 Then
RichTextBox1.Text = Fighter2 + " introduces his finger into " + Fighter1 + "´s eye! " + Fighter1 + " is half blind."
ElseIf Num1 = 9 Then
RichTextBox1.Text = Fighter1 + " throws " + Fighter2 + " to the ground!"
ElseIf Num1 = 10 Then
RichTextBox1.Text = Fighter2 + " throws " + Fighter1 + " to the ground!"
ElseIf Num1 = 15 Then
RichTextBox1.Text = Fighter1 + " tries to choke " + Fighter2 + "!"
ElseIf Num1 = 16 Then
RichTextBox1.Text = Fighter2 + " tries to choke " + Fighter1 + "!"
ElseIf Num1 = 17 Then
RichTextBox1.Text = Fighter1 + " bites off " + Fighter2 + "´s ear!"
ElseIf Num1 = 18 Then
RichTextBox1.Text = Fighter2 + " bites off " + Fighter1 + "´s ear!"
End If
Next
If GlobalVariable.intVariable = 20 Then
Button1.Text = "Finish him!"
If Num1 = 19 Then
RichTextBox1.Text = Fighter1 + " punches " + Fighter2 + " in his balls! Ouch!"
ElseIf Num1 = 20 Then
RichTextBox1.Text = Fighter2 + " punches " + Fighter1 + " in his balls! Ouch!"
End If
End If
Else
'Do the alternate action
Dim x As Integer
Dim Num1 As Integer
Randomize()
For x = 1 To 2
Num1 = Rnd() * 2
If Num1 = 1 Then
RichTextBox1.Text = Fighter1 + " lands a punch so hard in " + Fighter2 + "´s head that he decapitates him!"
RichTextBox2.Text = Fighter1 + " wins!"
GoTo Simulation_Start
ElseIf Num1 = 2 Then
RichTextBox1.Text = Fighter2 + " lands a punch so hard in " + Fighter1 + "´s head that he decapitates him!"
RichTextBox2.Text = Fighter2 + " wins!"
GoTo Simulation_Start
End If
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'initalize the variable
GlobalVariable.intVariable = 1
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.