This repository has been archived by the owner on Jun 7, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathserverproperties.vb
115 lines (68 loc) · 3.37 KB
/
serverproperties.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Public Class ServerProperties
Public generatorsettings As String
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles defaultfile.CheckedChanged
If defaultfile.Checked = True Then
options.Enabled = False
Else
options.Enabled = True
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles hardcore.CheckedChanged
If hardcore.Checked Then
defaultgamemode.Enabled = False
survival.Checked = True
peaceful.Enabled = False
easy.Enabled = False
normal.Enabled = False
hard.Enabled = False
hard.Checked = True
Else
defaultgamemode.Enabled = True
peaceful.Enabled = True
easy.Enabled = True
normal.Enabled = True
hard.Enabled = True
End If
End Sub
Private Sub Serverproperties_Load(sender As Object, e As EventArgs) Handles MyBase.Load
leveltype.SelectedItem = leveltype.Items(0)
End Sub
Private Sub Serverproperties_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
MsgBox("Attention !" & vbNewLine & "Certaines option ne peuvent pas être effectives dans le jeu car certaines versions n'ont pas les mêmes propriétés (des propriétés en moins ou en plus)" & vbNewLine & vbNewLine & "Ne vous inquiétez donc pas si certaines propriétés que vous avez modifié sur cette page ne sont pas effectives dans le jeu !", MsgBoxStyle.Exclamation + vbOKOnly + 4096, "Avertissement !")
End Sub
Private Sub CheckBox2_CheckedChanged_1(sender As Object, e As EventArgs) Handles whitelist.CheckedChanged
If whitelist.Checked = True Then
forcewhitelist.Enabled = True
Else
forcewhitelist.Enabled = False
forcewhitelist.Checked = False
End If
End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles levelname.Click
MsgBox("Les caractères telles que les ' (apostrophe) doivent avoir un caractère d’échappement devant (par exemple, l'adorable devient l\'adorable).", vbOKOnly + MsgBoxStyle.Exclamation + 4096, "Avertissement")
End Sub
Private Sub Enablequery_CheckedChanged(sender As Object, e As EventArgs) Handles enablequery.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged
If enablequery.Checked = True Then
queryport.Enabled = True
Else
queryport.Enabled = False
End If
End Sub
Private Sub Leveltype_SelectedIndexChanged(sender As Object, e As EventArgs) Handles leveltype.SelectedIndexChanged
Select Case leveltype.SelectedItem
Case "Monde SuperFlat"
levelpersonnalise.Enabled = True
Case "Personnalisé"
levelpersonnalise.Enabled = True
Case Else
levelpersonnalise.Enabled = False
End Select
End Sub
Private Sub Levelpersonnalise_Click(sender As Object, e As EventArgs) Handles levelpersonnalise.Click
Select Case leveltype.SelectedItem
Case "Monde SuperFlat"
Case "Personnalisé"
End Select
End Sub
End Class