Das Intro kann nur sch**** werden😂 Guck mal auf YouTube nach TheRushFX der macht super Intros kannst ihn ja mal anschreiben.
Eine Leiche liegt dort und nach 100 Jahren liegt da nur noch das Skelett die Haut und Organe sind VEROTET oder auch bananenschalen verrotten nach einiger zeit
Ihr seid Opfer. Klassenfeind ?! Ignoriert euch doch einfach und geht euch aus dem Weg
Danke für den Link dachte immer die Gehinzellen regenerieren dann schnell wieder nach :/
8Gb RAM (reicht für Server mehr) GraKa Nvidia Gtx 980 + (wichtig!!!) Prozessor intel i7 4970k (nicht so wichtig geht auh i5) Selber zusammen bauen spar Geld!!!
Guck bei yt. Hirtenstab wie so in der Richtung: /give player1 fisch 1 0 {Display[CostumName:"Tololo"]}
Oder du machst es mit einer mysql Datenbank
Nein du kannst mit MutiVerse plugin mehrere Welten auf einem Server machen und du kannst ja auch die Lobby und das Game in einer Welt machen
Du kann mit: getConfig.addDefault("path.path.path...","value"); Etwas in der Config des Plugins speichern
Was möchtest du verändern? Die Commands und chat Nachrichten?
1.Neustarten: home- und sperrbutton gedrückt halten bis es aus geht. 2. zurücksetzen: an pc anschließen und in iTunes auf zurücksetzen klicken
Hast du schon eine Lösung gefunden? Wenn nein, brauchst du einen Developer? Könnte dir so'n Plugin machen das würde dann mit alles Blöcke funktionieren. Nicht nur mit druckplatten.
Hast du hinter deine RAM Zahl ein großes G geschrieben? ZB: 4G
Private Sub Button1Variablespeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1Variablespeichern.Click
If ComboBoxVariablen.Text = VA1 Then
VA2 = TextBoxVariablenwert.Text
VA1 = TextBoxVariablenname.Text
VA3 = TextBoxVariablenbeschreibung.Text
Variablenlöschen = ComboBoxVariablen.Text
ComboBoxVariablen.Items.Remove(Variablenlöschen)
ComboBoxVariablen.Items.Add(VA1)
MsgBox("Variable: " & VA1 & " enthält jetzt den Wert: " & VA2)
ElseIf ComboBoxVariablen.Text = VB1 Then
VB2 = TextBoxVariablenwert.Text
VB1 = TextBoxVariablenname.Text
VB3 = TextBoxVariablenbeschreibung.Text
Variablenlöschen = ComboBoxVariablen.Text
ComboBoxVariablen.Items.Remove(Variablenlöschen)
ComboBoxVariablen.Items.Add(VB1)
MsgBox("Variable: " & VB1 & " enthält jetzt den Wert: " & VB2)
ElseIf ComboBoxVariablen.Text = VC1 Then
VC2 = TextBoxVariablenwert.Text
VC1 = TextBoxVariablenname.Text
VC3 = TextBoxVariablenbeschreibung.Text
Variablenlöschen = ComboBoxVariablen.Text
ComboBoxVariablen.Items.Remove(Variablenlöschen)
ComboBoxVariablen.Items.Add(VC1)
MsgBox("Variable: " & VC1 & " enthält jetzt den Wert: " & VC2)
ElseIf ComboBoxVariablen.Text = VD1 Then
VD2 = TextBoxVariablenwert.Text
VD1 = TextBoxVariablenname.Text
VD3 = TextBoxVariablenbeschreibung.Text
Variablenlöschen = ComboBoxVariablen.Text
ComboBoxVariablen.Items.Remove(Variablenlöschen)
ComboBoxVariablen.Items.Add(VD1)
MsgBox("Variable: " & VD1 & " enthält jetzt den Wert: " & VD2)
ElseIf ComboBoxVariablen.Text = VE1 Then
VE2 = TextBoxVariablenwert.Text
VE1 = TextBoxVariablenname.Text
VE3 = TextBoxVariablenbeschreibung.Text
Variablenlöschen = ComboBoxVariablen.Text
ComboBoxVariablen.Items.Remove(Variablenlöschen)
ComboBoxVariablen.Items.Add(VE1)
MsgBox("Variable: " & VE1 & " enthält jetzt den Wert: " & VE2)
End If
End Sub
End Class
Sorry dass das in einzelnen abschnitten ist und das manches verrückt wurde ich habs nur kopiert aber ich hoffe ihr könnt mir trotzdem helfen
Private Sub ButtonGleich_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGleich.Click If My.Settings.rechenzeichen = "+" Then If (TextBoxAufgabe.Text = VA1) Or (TextBoxAufgabe.Text = VB1) Or (TextBoxAufgabe.Text = VC1) Or (TextBoxAufgabe.Text = VD1) Or (TextBoxAufgabe.Text = VE1) Then If TextBoxAufgabe.Text = VA1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + VA2 ElseIf TextBoxAufgabe.Text = VB1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VB2) ElseIf TextBoxAufgabe.Text = VC1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VC2) ElseIf TextBoxAufgabe.Text = VD1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VD2) ElseIf TextBoxAufgabe.Text = VE1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VE2) End If TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(TextBoxAufgabe.Text) Else TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(TextBoxAufgabe.Text) End If End If If My.Settings.rechenzeichen = "-" Then If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then
Else
TextBoxAufgabe.Text = Val(My.Settings.zahl) - Val(TextBoxAufgabe.Text)
End If
End If
If My.Settings.rechenzeichen = "*" Then
If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then
Else
TextBoxAufgabe.Text = Val(My.Settings.zahl) * Val(TextBoxAufgabe.Text)
End If
End If
If My.Settings.rechenzeichen = "/" Then
If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then
Else
TextBoxAufgabe.Text = Val(My.Settings.zahl) / Val(TextBoxAufgabe.Text)
End If
End If
End Sub
Private Sub ButtonEinsweg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEinsweg.Click
My.Settings.zahl = ""
My.Settings.rechenzeichen = ""
TextBoxAufgabe.Text = ""
End Sub
Private Sub ButtonAllesweg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAllesweg.Click
Try
Dim i As Integer
i = TextBoxAufgabe.Text.Length
TextBoxAufgabe.Text = Mid(TextBoxAufgabe.Text, 1, i - 1)
Catch ex As Exception
End Try
End Sub
Private Sub ButtonVariablendefinieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonVariablendefinieren.Click
If togglevariabledefinieren = 0 Then
PanelVariablendefinieren.Visible = True
togglevariabledefinieren = 1
Else
PanelVariablendefinieren.Visible = False
togglevariabledefinieren = 0
End If
End Sub
Private Sub ComboBoxVariablen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxVariablen.SelectedIndexChanged If ComboBoxVariablen.Text = VA1 Then TextBoxVariablenname.Text = VA1 TextBoxVariablenwert.Text = VA2 TextBoxVariablenbeschreibung.Text = VA3
ElseIf ComboBoxVariablen.Text = VB1 Then
TextBoxVariablenname.Text = VB1
TextBoxVariablenwert.Text = VB2
TextBoxVariablenbeschreibung.Text = VB3
ElseIf ComboBoxVariablen.Text = VC1 Then
TextBoxVariablenname.Text = VC1
TextBoxVariablenwert.Text = VC2
TextBoxVariablenbeschreibung.Text = VC3
ElseIf ComboBoxVariablen.Text = VD1 Then
TextBoxVariablenname.Text = VD1
TextBoxVariablenwert.Text = VD2
TextBoxVariablenbeschreibung.Text = VD3
ElseIf ComboBoxVariablen.Text = VE1 Then
TextBoxVariablenname.Text = VE1
TextBoxVariablenwert.Text = VE2
TextBoxVariablenbeschreibung.Text = VE3
End If
End Sub
Public Class Form1 Private togglevariabledefinieren = 0 Private VA1 = "a" Private VA2 = 0 Private VA3 = "" Private VB1 = "b" Private VB2 = 0 Private VB3 = "" Private VC1 = "c" Private VC2 = 0 Private VC3 = "" Private VD1 = "d" Private VD2 = 0 Private VD3 = "" Private VE1 = "e" Private VE2 = 0 Private VE3 = "" Private Variablenlöschen
Private Sub ButtonAus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAus.Click
PanelBildschirmschoner.Visible = True
Me.Text = "MusicPlayChannel"
End Sub
Private Sub PanelBildschirmschoner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelBildschirmschoner.Click
PanelBildschirmschoner.Visible = False
Me.Text = "Taschenrechner"
End Sub
Private Sub LabelBildschirmschoner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelBildschirmschoner.Click
PanelBildschirmschoner.Visible = False
Me.Text = "Taschenrechner"
End Sub
Private Sub LabelSmiley_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelSmiley.Click
PanelBildschirmschoner.Visible = False
Me.Text = "Taschenrechner"
End Sub
Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
TextBoxAufgabe.Text += "0"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBoxAufgabe.Text += "1"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBoxAufgabe.Text += "2"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBoxAufgabe.Text += "3"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBoxAufgabe.Text += "4"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBoxAufgabe.Text += "5"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBoxAufgabe.Text += "6"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBoxAufgabe.Text += "6"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBoxAufgabe.Text += "8"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBoxAufgabe.Text += "9"
End Sub
Private Sub ButtonKomma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKomma.Click
TextBoxAufgabe.Text += "."
End Sub
Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.Click
My.Settings.zahl = TextBoxAufgabe.Text
TextBoxAufgabe.Text = ""
My.Settings.rechenzeichen = "+"
End Sub
Private Sub ButtonMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMinus.Click
My.Settings.zahl = TextBoxAufgabe.Text
TextBoxAufgabe.Text = ""
My.Settings.rechenzeichen = "-"
End Sub
Private Sub ButtonMal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMal.Click
My.Settings.zahl = TextBoxAufgabe.Text
TextBoxAufgabe.Text = ""
My.Settings.rechenzeichen = "*"
End Sub
Private Sub ButtonGeteilt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGeteilt.Click
My.Settings.zahl = TextBoxAufgabe.Text
TextBoxAufgabe.Text = ""
My.Settings.rechenzeichen = "/"
End Sub
Private Sub ButtonPlusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlusminus.Click
TextBoxAufgabe.Text = Val(TextBoxAufgabe.Text) * (-1)
End Sub