yondaime1981
Grünschnabel
Hallo,
ich programmiere einen Gameloader (Spielstarter) für das Spiel Left 4 Dead 2. Ich weiss, dass es welche gibt, aber ich möchte es selbst realisieren.
Er funktioniert auch schon, nur wenn ich mit ihm gleich einen anderen Gamemode öffnen möchte, macht er eben dieses nicht. Er startet immer nur den Gamemode Kampange (Coop).
Eingestellt habe ich aber auch die Modi Versus und Scavange. Sie stehen in einem Dropdownmenü zur Verfügung und sind auch anwählbar aber werden nicht gesetzt oder berücksichtigt.
Der Code um den es geht:
Die Maps werden später mit derselben methode eingefügt.
Kann mir vielleicht jemand helfen?
LG Yondaime 1981
ich programmiere einen Gameloader (Spielstarter) für das Spiel Left 4 Dead 2. Ich weiss, dass es welche gibt, aber ich möchte es selbst realisieren.
Er funktioniert auch schon, nur wenn ich mit ihm gleich einen anderen Gamemode öffnen möchte, macht er eben dieses nicht. Er startet immer nur den Gamemode Kampange (Coop).
Eingestellt habe ich aber auch die Modi Versus und Scavange. Sie stehen in einem Dropdownmenü zur Verfügung und sind auch anwählbar aber werden nicht gesetzt oder berücksichtigt.
Der Code um den es geht:
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xcode As String
Dim mode As String
Dim mode1 As String
Dim endcode As String
mode = modebox.SelectedItem
If mode = "" Then 'Sicherheitsabfrage wenn modus nicht gewählt
MsgBox("Bitte einen Modus auswählen!")
Else
If mode = "Kampange" Then 'Modusabfrage
mode1 = " +coop"
ElseIf mode = "Versus" Then
mode1 = " +versus"
Else
mode1 = " +scavange"
End If
xcode = "-console -novid +map c1m4_atrium"
endcode = (xcode + mode1)
System.Diagnostics.Process.Start("F:\Program Files\Left 4 Dead 2\left4dead2.exe", endcode)
End If
'haltepunkt
End Sub
Private Sub EndeBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EndeBT.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim screen As New Splash1()
screen.ShowDialog()
End Sub
Private Sub modebox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modebox.SelectedIndexChanged
Dim mode = modebox
Dim maps = mapcontrol
Dim kampange, versus, scavange As String
If mode.SelectedItem = kampange Then
maps.Enabled = True
ElseIf mode.SelectedItem = versus Then
maps.Enabled = True
ElseIf mode.SelectedItem = scavange Then
maps.Enabled = True
Else
maps.Enabled = True
End If
End Sub
End Class
Die Maps werden später mit derselben methode eingefügt.
Kann mir vielleicht jemand helfen?
LG Yondaime 1981