Nein, das ist nicht möglich, du könntest um einen ähnlichen Effekt zu erzielen Funktionen mit einer gewissen Zahl verbinden und dann immer die jeweilige Funktion mit Hilfe der Zahl aufrufen.
Solche Webseiten werden nie funktionieren, am größten ist deine Chance noch bei diversen Gewinnspielen. Ich habe noch nie so einen funktionierenden Free-Nitro-Server gesehen, allerdings machen das die Besitzer um viele User zu bekommen und anschließend den Server verkaufen zu können. Ich würde dir eher davon abraten, auch wenn es ganz theoretisch funktionieren könnte, dass jemand dir Teile des Gewinns am Server für ein paar erfolgreiche Invites gibt. Ob du aber mit einem Monat Nitro zufrieden sein wirst, bezweifle ich.
Ich war dort mal für ca. einen Monat und habe in dieser Zeit 3 Orders bekommen, allerdings haben 2 Personen nicht auf meine Bestätigung geantwortet.
Ich war zwar auch nicht der Einzige in meinem Gebiet dort, aber trotzdem gibt es bessere Möglichkeiten.
Etwas einzigartiges, der Rest muss doch jedem irgendwann mal langweilig werden... Am Ehesten noch Survival / Citybuild, da diese Spielmodis Minecraft vollkommen durchspielen lassen :)
Einfach das
InventoryClickEvent#getCurrentItem()
abrufen, dann bekommst du einen ItemStack zurück und kannst entweder den Namen oder das Material vergleichen.
Infos zum ItemStack findest du hier: https://hub.spigotmc.org/javadocs/spigot/org/bukkit/inventory/ItemStack.html
Infos zum InventoryClickEvent hier: https://hub.spigotmc.org/javadocs/spigot/org/bukkit/event/inventory/InventoryClickEvent.html
Ja, gibt es, aber nicht einfach so. Dazu müsstest du Mitarbeiter bei Mojang sein, Mojang irgendwie eine Hilfe erweisen oder die Minecon besuchen.
Ja, allerdings nicht mehr viele...
Ich persönlich schaue manchmal Skate 702 (https://www.youtube.com/user/skate702germany), der relativ aktiv Modpack-Gameplay hochlädt.
Als Projekt von mehreren großen YouTubern läuft momentan Minecraft Lava, dass gestern gestartet ist: https://www.youtube.com/watch?v=RhJclp556pk. Mit dabei sind Baasti, Balui, CastCrafter, Clym, Debitor, Earliboy, Items, SparkOfPhoenix, TheJoCraft und Zinus; die man teilweise noch von früher kennt, vielleicht gefällt dir das ja ;)
Seliba
Das einfachste wäre es, den Gegner aller 2 Ticks 0.1 Blöcke in die Luft zu teleportieren.
Andernfalls die Velocity mit p.setVelocity() ändern.
Seliba
VIP, VIP+, MVP, MVP+, Premium, Supremium, Master, Titan, Ultra, Legende und Champion wären ein paar Ideen :)
Bitte beachte, dass du ein Gewerbe benötigst, um legal und ohne Gefahr Ränge zu verkaufen.
Diese Webseite bietet die Dateien rein theoretisch illegal an (die Dateien darf es nicht zum direkten Download geben), zudem ist sie inoffiziell.
Legale & offizielle "Anleitung" für die 1.12.2: https://www.spigotmc.org/threads/bukkit-craftbukkit-spigot-bungeecord-1-12-2.273891/
Seliba
Da die anderen beiden nichts sinnvolles schreiben, ist hier meine Lösung:
Dim Datum
Dim DatumS
Dim ScriptPath
Datum = date
DatumS = CStr(Datum)
ScriptPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
Pfad = ScriptPath + DatumS + ".txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.CreateTextFile(Pfad, TRUE)
MyFile.Close
Set MyFile = FS
Evtl musst du mehrere Zeilen erstellen, einfach unter Writeline ein neues Writeline runtersetzen:
...
MyFile.WriteLine ("Erster Text")
MyFile.WriteLine ("Zweiter Text")
...
Ich erklär dir mal Alles:
Dim Datum
Dim DatumS
Dim ScriptPath
Datum = date
DatumS = CStr(Datum)
Die Variablen werden erstellt, die Variable Datum wird zum aktuellen Datum gesetzt. Da das Datum allerdings kein String ist, wird DatumS als Datum mit String gespeichert.
ScriptPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
Pfad = ScriptPath + DatumS + ".txt"
Der Pfad der zukünftigen Datei wird gesetzt. Er besteht aus dem Pfad des Scriptes, dem Datum als String und der .txt-Endung.
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.CreateTextFile(Pfad, TRUE)
MyFile.Close
Eine Datei wird erstellt, da die Endung in der Variable Pfad .txt ist, wird das eine Text-Datei.
Set MyFile = FSO.OpenTextFile(Pfad, 8)
MyFile.WriteLine ("Dein Text")
MyFile.Close
Das Textdokument wird erneut geöffnet, diesmal wird was reingeschrieben. Solltest du die Werte aus der PHP-Datei als Variable gespeichert haben (etwas anderes ergibt eigentlich keinen Sinn), kannst du die "" weglassen und den Namen der Variable reinschreiben. Zeilen fügst du wie oben beschrieben hinzu.
Das Script wurde von mir getestet, es funktioniert so wie es soll.
Solltest du allerdings die Uhrzeit ebenfalls haben wollen, musst du das
Datum = date
durch
Datum = now
ersetzen.
Das hat ganz schön lange gedauert, das hier zusammenzustellen, ich hoffe, dass ich dir helfen konnte... ;)
finn1123 // Seliba
EDIT: Zum Hochladen habe ich auch was gefunden, einfach an's Ende mit den entsprechenden Daten schreiben:
'FTP Upload
'Upload a file/folder to an FTP server
Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Path to file or folder to upload
path = "test.txt"
FTPUpload(path)
Sub FTPUpload(path)
On Error Resume Next
'Copy Options: 16 = Yes to All
Const copyType = 16
'FTP Wait Time in ms
waitTime = 80000
FTPUser = "user"
FTPPass = "pass"
FTPHost = "www.domain.com"
FTPDir = "/htdocs/"
strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)
'Make new folder on FTP site
'objFTP.NewFolder "FTP Backup"
'Upload single file
If objFSO.FileExists(path) Then
Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = oShell.NameSpace(strParent)
Set objItem = objFolder.ParseName(objFile.Name)
Wscript.Echo "Uploading file " & objItem.Name & " to " & strFTP
objFTP.CopyHere objItem, copyType
End If
'Upload all files in folder
If objFSO.FolderExists(path) Then
'Code below can be used to upload entire folder
Set objFolder = oShell.NameSpace(path)
Wscript.Echo "Uploading folder " & path & " to " & strFTP
objFTP.CopyHere objFolder.Items, copyType
End If
If Err.Number <> 0 Then
Wscript.Echo "Error: " & Err.Description
End If
'Wait for upload
WScript.Sleep waitTime
End Sub
Sie dürfen es rechtlich gesehen, aber sie wollen es nicht ;)
(Zumindest die Meisten)