Minecraft Mods erstellen [ModLoader]

[Njahs]

Originally Posted by the_cake

Es ist ja kein direkter Fehler es ist ja mit dem Norten Antivier programm das löscht dan den Modmaker hier ist der text fals den irgendjemanden interessiert

 Spoiler

Imports System.IO

Public Class Form1
    Dim Web As New Net.WebClient
    Private Property Zeit As Integer
    Private Property Zeit2 As Integer
    Private Property Appdata As String

    Private Property ende As Boolean

    Function testInternetConnection()
        Dim ping As New Net.NetworkInformation.Ping
        Try
            ping.Send("google.de")
            Return True
        Catch ex As Exception
            Return True
        End Try
    End Function

    Sub Runupdate()
        If testInternetConnection() = True Then
            Try
                'virtuelle Text datei
                Dim version As Integer = Web.DownloadString("http://dl.dropbox.com/u/79646035/version.txt")

                If version > CInt(lblversion.Text) Then
                    Dim path As String = "http://dl.dropbox.com/u/79646035/MinecraftMM.exe"
                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt") = False Then
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt")
                    Else
                        Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt")
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt")
                    End If


                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt") = False Then
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/changelog.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
                        Label_transparent2.Text = IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
                    End If

                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMMUpdater.exe") = False Then
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/MinecraftMMUpdater.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMMUpdater.exe")
                    Else
                        'nichts
                    End If
                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMM.exe") = False Then
                        My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMM.exe")
                    Else
                        Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMM.exe")
                        My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMM.exe")
                    End If
                    ende = True
                    Progressbar.Start()
                Else
                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt") = False Then
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt")
                    End If

                    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt") = False Then
                        My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/changelog.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
                        Label_transparent2.Text = IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
                    End If
                    'form ändern

                    If INI_ReadValueFromFile("GUI", "Startscreen", "Error", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini") = "false" Then
                        Form3.Show()
                        Me.Hide()
                        Form3.Visible = True
                        Form2.Close()
                    Else
                        Form2.Show()
                        Me.Hide()
                        Form2.Visible = True
                    End If

                End If
            Catch ex As Exception
                'nothing
            End Try
        End If
    End Sub

    Public Const WM_NCLBUTTONDOWN As Integer = &HA1
    Public Const HT_CAPTION As Integer = &H2
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32
    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

    Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
        Dim strTemp As String = Space(1024), lLength As Integer
        lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
        Return (strTemp.Substring(0, lLength))
    End Function

    Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
        Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
    End Function


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM") = True Then
            If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini") = False Then
                IO.File.Create(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini")
            End If
            If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update") = False Then
                Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update")
            End If
        Else
            Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM")
            If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini") = False Then
                IO.File.Create(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini")
            End If
            If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update") = False Then
                Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update")
            End If
        End If
        If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt") = True Then
            Label_transparent2.Text = IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
        End If

        If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt") = False Then
            My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/79646035/changelog.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
            Label_transparent2.Text = IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\changelog.txt")
        End If

            If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt") = True Then
                Label_transparent3.Text = "V.: " & IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\version.txt") & " Alpha"
            End If
            testInternetConnection()
    End Sub


    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            ReleaseCapture()
            SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
        End If
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
        End
    End Sub

    Private Sub PictureBox2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseHover
        PictureBox2.BackgroundImage = My.Resources.close
    End Sub

    Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
        PictureBox2.BackgroundImage = My.Resources.close2
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
        Runupdate()
    End Sub

    Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
        PictureBox1.BackgroundImage = My.Resources.start_over
    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.BackgroundImage = My.Resources.start
    End Sub

    Private Sub Progressbar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Progressbar.Tick
        Zeit += 4
        PictureBox4.Width = Zeit
        If PictureBox4.Width = 752 Then
            Progressbar.Stop()
            Zeit = 0
            PictureBox4.Width = 0
            If ende = True Then
                If INI_ReadValueFromFile("GUI", "LocationProgramm", "error", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\settings.ini") = "error" Then

                Else
                    Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.MinecraftMM\Update\MinecraftMMUpdater.exe")
                    End
                End If
            End If
        End If
    End Sub
End Class

Updater (Autoit)

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Documents\FFOutput\Minecraft Icon Version III.ico
#AutoIt3Wrapper_Outfile=MinecraftMMUpdater.exe
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Appdata = @AppDataDir & "\.MinecraftMM\Update"
Global $Path = @AppDataDir & "\.MinecraftMM\settings.ini"
Global $PathDir = IniRead($Path, "GUI", "LocationProgramm", "Error")
Global $Update = FileRead(@AppDataDir & "\.MinecraftMM\Update\Version.txt")

If ProcessExists("MinecraftMM.exe") Then
	ProcessClose("MinecraftMM.exe")
	FileCopy($Appdata & "\MinecraftMM.exe", $PathDir & "\MinecraftMM.exe", 1)
	ShellExecuteWait($PathDir & "\MinecraftMM.exe")
Else
	FileMove($Appdata & "\MinecraftMM.exe", $PathDir & "\MinecraftMM.exe", 1)
	ShellExecuteWait($PathDir & "\MinecraftMM.exe")
EndIf

Glaub hast den falschen zitiert ^^
Btw. ein unfertiges Programm zu "releasen" = Sinnfrei

[morice1999]

Der MinecraftMM gefällt mir! Bisher macht er zwar noch nicht viel, aber das was er macht, ist schon toll! Die Oberfläche ist toll gemacht. ABer bei dem Tutorial muss ich dich noch ma anschreiben, ich grieg da was net hin.

[sourcemaker]

Was für ein geiles, ausführliches Tut.
Vielen Dank - mal schauen, was man damit alles anstellen kann!

[the_cake]

Habt ihr eine idee was ich noch machen könnte so tutorial artig ??

[merquart]

Öhm, eigene Flüssige Blöcke erstellen, wie Lava oder Wasser?

[morice1999]

Oder einfach weiter am Modmaker arbeiten? =) War´n witz.

Mhhhh... Gute Frage, vllt. mhhhh. *nachdenk* MHHHHH... *stark nachdenk*, mhhhhhh, *Kopf gegen Wand schlag* Ahhhhh!!! Ich weiß es... ****, vergessen. Mhhhhhhhhhhhhhh

Vllt. seinen eigen Trank erstellen?
Oder gar eine ganz neue "Crafting"-Art erfinden, z.b. Bilder bemalen (kommt zwar in einem späteren Minecraft-Update raus, wäre aber doch ne gute Idee)

[merquart]

Originally Posted by morice1999

Oder einfach weiter am Modmaker arbeiten? =) War´n witz.

Das ist ne gute Idee! =D

[morice1999]

Originally Posted by Alex280M

Das ist ne gute Idee! =D

Danke

[the_cake]

Ich glaube wir erstellen als nächstes einen art slime Block wenn man diesen berürt gibt es 2 arten was er macht

Art 1.:
Der Block schießt dich ihn die leuft macht er dich schneller

Art 2.:
Nun ist der block instabil und bei Berührung zerfließt er ihn schleim.

[False]

Originally Posted by the_cake

Ich glaube wir erstellen als nächstes einen art slime Block wenn man diesen berürt gibt es 2 arten was er macht

Art 1.:
Der Block schießt dich ihn die leuft macht er dich schneller

Art 2.:
Nun ist der block instabil und bei Berührung zerfließt er ihn schleim.

Hört sich nett an

[chris26]

und weißte das jez mit den struckturen?

[idattnertv]

Hallo,
ein Freund und ich arbeiten gerade an einem Mod. Er soll auch mit Bukkit Kompatibel werden! Der Mod ist Call of Minecraft ( oder )!
Leider haben wir keine Ahungung wie man Bukkit moddet!
Wir haben schon eine Version für Vanilla aber noch nix für Bukkit. Es wäre halt praktisch wegen den ganzen Funktionen und Plugins von Bukkit!
Danke schonmal!

[the_cake]

Originally Posted by idattnertv

Hallo,
ein Freund und ich arbeiten gerade an einem Mod. Er soll auch mit Bukkit Kompatibel werden! Der Mod ist Call of Minecraft ( oder )!
Leider haben wir keine Ahungung wie man Bukkit moddet!
Wir haben schon eine Version für Vanilla aber noch nix für Bukkit. Es wäre halt praktisch wegen den ganzen Funktionen und Plugins von Bukkit!
Danke schonmal!

Hier ist mal ein sollte dir normal helfen.

[mosmos1996]

gute erklärt, kann es aber sein dass es bei Vista irgendwie anderst geht?

"Wir drücken den Start Knopf und geben bei Suche Systemumgebung ein
Danach sollte ein solches Fenster aufgehen "

bei mir find ich keine Systemumgebung, zumindest keine die ich bearbeiten kann^^

könntest du echt für solche fälle mal mods von dir reinstellen?

[JONMI2000]

Hallo!
Kann mir jemand den "Code-Schnipsel" dafür geben, dass meine Mobs fliegen können der aus dem Mo Creatures wäre okay (der von dem Vogel). Ich weiß ich kann das auch selber machne, aber mein Rechner ist vor vein paar Tagen abgeschmiert und daher muss ich ihn neu aufsetzen. Ich schreib grad mit dem Laptop meines Vater und auf dem darf ich nix weiter machen!


Brauche schnelle Antwort!
JONMI2000