Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;include Bereich
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <GdiPlus.au3>
#include <WinAPI.au3>
#include <TabConstants.au3>
;Globale Variabeln
Global $iLoop
Global $pos[4]
Global $ianzhal
Global $checkedzhal
Global $blockanzhal
Global $lichtBock
Global $id
Global $lichtBock = '0F'
Global $saveString = @DocumentsCommonDir & '\modmaker'
Global $versionMMM = "0.2A"
Global $FormName = "Minecraft Mod Maker Alpha Version " & $versionMMM & " (©Ste3et_C0st)"
Global $time = "4"
Global $Header1 = @ScriptDir & "\bilder\GUI\Minecraft01.jpg"
Global $seiten = "3"
Global $landschaft = @ScriptDir & "\Bilder\GUI\landschaft"
Global $save = $saveString & '\Save\Proberties.ini'
Global $normal = @ScriptDir & "\Bilder\GUI\Buttons"
Global $over = @ScriptDir & "\Bilder\GUI\Buttons\over"
Global $Minecraft_Create_ID_Block = 0
Global $BildId_Nr = 384
If FileExists($saveString & '\bilder') = 0 Then
MsgBox(16,'Erorr', 'Der Ordner ' & $saveString & '\bilder' & ' wurde hicht gefunden Bitte den ModMaker neu installieren.')
ElseIf FileExists($landschaft) = 0 Then
MsgBox(16,'Erorr', 'Der Ordner ' & $landschaft & ' wurde hicht gefunden Bitte den ModMaker neu installieren.')
ElseIf FileExists($normal) = 0 Then
MsgBox(16,'Erorr', 'Der Ordner ' & $normal & ' wurde hicht gefunden Bitte den ModMaker neu installieren.')
ElseIf FileExists($normal) = 0 Then
MsgBox(16,'Erorr', 'Der Ordner ' & $over & ' wurde hicht gefunden Bitte den ModMaker neu installieren.')
EndIf
#region ### START Koda GUI section ### Form=C:\Users\matthias\Desktop\Modmaker\Form1.kxf
$GUI_1 = GUICreate($FormName, 739, 471, 172, 71)
$licenseTxt = GUICtrlCreateEdit('', 16, 96, 713, 257, BitOR($ES_UPPERCASE, $ES_READONLY, $ES_WANTRETURN, $WS_CLIPSIBLINGS), 0)
GUICtrlSetData(-1, StringFormat("ALLGEMEINE INFOS\r\n\r\n\r\n1. DIESES PROGRAMM IST OPEN SOURCE DAS HEIST JEDER DARF ES BELIBICH ANPASSEN. UNTER VOLGENDEN BEDINGUNGEN:\r\n - DAS BRANDING DARF NICHT ENTFERNT WERDEN\r\n - DAS PROGRAMM DARFT NICHT DECOMPILT WERDEN\r\n\r\n2. ALLE HIER ERSTELLTEN MINECRAFT MODS FUNKTIONIEREN AUSSCHLIEßLICH MIT MODLOADER\r\n\r\n3. DIESES PROGRAMM WURDE MIT AUTOIT ENTWICKELT D.H DIESES PROGRAMM ERKENNT NICHT AUTOMATISCH .PNG BILDER DIESE \r\nWERDEN DAHER AUTOMATISCH IHN \r\n.BMP BILDER UMGEWANDELT\r\n\r\n4. EIN FEEDBACK WÄRE SEHR ERWÜNSCHT \r\n\r\n5. FOLGENDE SACHEN WURDEN INSTALLIERT:\r\n - MINECRAFT FONT\r\n - GUI BILDER \r\n - UNTER " & @ScriptDir & "\r\n"))
GUICtrlSetState(-1, $GUI_DISABLE)
$StimmeZuBtn = GUICtrlCreateButton("Stimme zu (" & $time & ")", 16, 360, 715, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$StimmeNichtZuBtn = GUICtrlCreateButton("Stimme nicht zu", 16, 392, 715, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Schritt 0/" & $seiten, 672, 448, 54, 17)
$HeaderPic = GUICtrlCreatePic($Header1 & '', 8, 8, 716, 52)
$TrennStrich1 = GUICtrlCreateLabel("_________________________________________________________________________________________________________________________", 8, 424, 730, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$TrennStrich2 = GUICtrlCreateLabel("_________________________________________________________________________________________________________________________", 8, 64, 730, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$CopyTxt = GUICtrlCreateLabel("Copyright by Ste3et_C0st", 8, 448, 123, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
#endregion ### END Koda GUI section ###
#region ### START Koda GUI section ### Form=C:\Users\matthias\Desktop\Modmaker\Design\Form2.kxf
$GUI_2 = GUICreate($FormName, 881, 445, 184, 149)
$Background = GUICtrlCreatePic(@ScriptDir & "\Bilder\Gui\bg.jpg", 153, 0, 751, 425)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod = GUICtrlCreateMenu("&Mod")
$Mod_saveTab = GUICtrlCreateMenuItem("Speichern", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_deleteTab = GUICtrlCreateMenuItem("Löschen", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_finishTab = GUICtrlCreateMenuItem("Fertigstellen", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_backupTab = GUICtrlCreateMenuItem("Backup", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_exitTab = GUICtrlCreateMenuItem("Beenden", $Mod)
$Settings = GUICtrlCreateMenu("Einstellungen")
GUICtrlSetState(-1, $GUI_DISABLE)
$Settings_update = GUICtrlCreateMenuItem("Update", $Settings)
$SiteTxt_1 = GUICtrlCreateLabel("Schritt 1/" & $seiten, 824, 408, 54, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
$Header_Pic = GUICtrlCreatePic($Header1 & '', 265, 15, 413, 30)
$CopyTxt = GUICtrlCreateLabel("Copyright by Ste3et_C0st", 160, 405, 250, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 8, 400, 0, "Minecraft")
$Minecraft_modNameTxt = GUICtrlCreateLabel("Minecraft Mod Name", 160, 224, 112, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_modNameInput = GUICtrlCreateInput('', 160, 248, 313, 21)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_modVersionInput = GUICtrlCreateInput('', 160, 296, 41, 21)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_modVersionTxt = GUICtrlCreateLabel("Minecraft Version", 160, 272, 86, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_searchBtn = GUICtrlCreatePic($normal & "\Durchsuchen.jpg", 290, 354, 144, 20)
$Minecraft_mcpFolderInput = GUICtrlCreateInput('', 160, 354, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Minecraft_mcpTxt = GUICtrlCreateLabel("Minecraft Coder Pack Ordner", 160, 328, 142, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$helpPic = GUICtrlCreatePic($normal & "\help.jpg", 850, 10, 20, 20)
$PictureFlow_01 = GUICtrlCreatePic($landschaft & "\01.jpg", 0, 0, 153, 430)
$PictureFlow_02 = GUICtrlCreatePic($landschaft & "\02.jpg", 0, 0, 153, 430)
$PictureFlow_03 = GUICtrlCreatePic($landschaft & "\03.jpg", 0, 0, 153, 430)
$Welcome_Massage = GUICtrlCreateLabel("Herzlich Willkommen Das ist der erste Schritt zu deinen Minecraft Mod." & @CRLF & @CRLF & "Wenn du Fragen hast benutz die Hilfe funktion oben Rechts", 160, 65, 800, 150)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gui_NextBtn = GUICtrlCreatePic($normal & "\weiter.jpg", 780, 370, 88, 20)
$Gui_NextBtnDisable = GUICtrlCreatePic($normal & '\weiter_disable.jpg', 780, 370, 88, 20)
GUICtrlSetState(-1, $GUI_HIDE)
#endregion ### END Koda GUI section ###
#region ### START Koda GUI section ### Form=C:\Users\matthias\Desktop\Modmaker\Design\Form3.kxf
$GUI_3 = GUICreate($FormName, 881, 445, 178, 147, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_WINDOWEDGE))
$Background = GUICtrlCreatePic(@ScriptDir & "\Bilder\Gui\bg.jpg", 153, 0, 751, 425)
GUICtrlSetState(-1, $GUI_DISABLE)
$Minecraft_TexturPicLoadInWindowsViewer = GUICtrlCreateLabel( '',290, 280, 32, 32)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Mod = GUICtrlCreateMenu("&Mod")
$Mod_saveTab = GUICtrlCreateMenuItem("Speichern", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_deleteTab = GUICtrlCreateMenuItem("Löschen", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_finishTab = GUICtrlCreateMenuItem("Fertigstellen", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_backupTab = GUICtrlCreateMenuItem("Backup", $Mod)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mod_exitTab = GUICtrlCreateMenuItem("Beenden", $Mod)
$Settings = GUICtrlCreateMenu("Einstellungen")
GUICtrlSetState(-1, $GUI_DISABLE)
$Test = GUICtrlCreateMenu("1")
$SiteTxt_2 = GUICtrlCreateLabel("Schritt 2/" & $seiten, 824, 408, 54, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Header_Pic = GUICtrlCreatePic($Header1 & '', 265, 15, 413, 30)
$Gui_NextBtn2 = GUICtrlCreatePic($normal & '\weiter_disable.jpg', 780, 370, 88, 20)
$PictureFlow_01 = GUICtrlCreatePic($landschaft & "\01.jpg", 0, 0, 153, 430)
$PictureFlow_02 = GUICtrlCreatePic($landschaft & "\02.jpg", 0, 0, 153, 430)
$PictureFlow_03 = GUICtrlCreatePic($landschaft & "\03.jpg", 0, 0, 153, 430)
$Gui_BackwarBtn = GUICtrlCreatePic($normal & "\backward.jpg", 278, 70, 20, 20)
$Gui_NextItemBtn = GUICtrlCreatePic($normal & "\forward.jpg", 170, 70, 20, 20)
$Gui_BackItemBtn = GUICtrlCreatePic($normal & "\zuruck.jpg", 170, 370, 88, 20)
$Gui_DragField = GUICtrlCreatePic($normal & "\block\drag.jpg", 170, 305, 62, 59)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Gui_BlockPic = GUICtrlCreatePic($normal & "\block.jpg", 190, 70, 88, 20)
$Gui_ItemPic = GUICtrlCreatePic($normal & "\item.jpg", 190, 70, 88, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$Gui_BiomePic = GUICtrlCreatePic($normal & "\biome.jpg", 190, 70, 88, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$Gui_RuestungPic = GUICtrlCreatePic($normal & "\rüstung.jpg", 190, 70, 88, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$Gui_WaffenPic = GUICtrlCreatePic($normal & "\waffe.jpg", 190, 70, 88, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$Gui_BlockTxt = GUICtrlCreateLabel("Block mit generieren lassen", 420, 100, 220, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Gui_BlockGenCombo = GUICtrlCreateCombo('', 420, 125, 200, 10)
GUICtrlSetData(-1, "Sehr Oft|Oft|Normal|Fast Garnicht|Niemals", "Niemals")
$Minecraft_ModBlockPicText = GUICtrlCreateLabel("Bild des Blocks", 170, 285, 150, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$CopyTxt = GUICtrlCreateLabel("Copyright by Ste3et_C0st", 160, 408, 200, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 400, 0, "Minecraft")
$Minecraft_ModBlockAktionText = GUICtrlCreateLabel("Funktion Des Blocks", 170, 220, 150, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_ModBlockLightPic = GUICtrlCreatePic($normal & "\block\nolight.jpg", 170, 175, 40, 40)
$Minecraft_ModBlockAktionPic = GUICtrlCreatePic($normal & "\block\nolight.jpg", 170, 240, 40, 40)
$Minecraft_DragMenuPic = GUICtrlCreatePic($normal & "\block\bg.jpg", 160, 205, 60, 200, $WS_BORDER)
GUICtrlSetState(-1, $GUI_HIDE)
$Minecraft_TexturPic = GUICtrlCreatePic($saveString & '\bilder\vorschau.jpg', 290, 280, 32, 32)
$Minecraft_BlockNameText = GUICtrlCreateLabel("Name Des Blocks", 170, 100, 150, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_LightText = GUICtrlCreateLabel("Licht Des Blocks", 170, 150, 150, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Minecraft")
$Minecraft_BlockNameInput = GUICtrlCreateInput('', 170, 125, 200, 20)
;dd1
$Minecraft_BlockEditBtn = GUICtrlCreatePic($normal & "\edit.jpg", 300, 70, 176, 20)
$Minecraft_BlockFinishBtn = GUICtrlCreatePic($normal & "\fertig.jpg", 478, 70, 160, 20)
$Minecraft_BlockResetBtn = GUICtrlCreatePic($normal & "\reset.jpg", 640, 70, 124, 20)
$Minecraft_BlockLight_01 = GUICtrlCreatePic($normal & "\block\01.jpg", 170, 210, 40, 40)
GUICtrlSetState(-1, $GUI_HIDE)
$Minecraft_BlockLight_02 = GUICtrlCreatePic($normal & "\block\02.jpg", 170, 260, 40, 40)
GUICtrlSetState(-1, $GUI_HIDE)
$Minecraft_BlockLight_03 = GUICtrlCreatePic($normal & "\block\03.jpg", 170, 310, 40, 40)
GUICtrlSetState(-1, $GUI_HIDE)
$Minecraft_BlockLight_04 = GUICtrlCreatePic($normal & "\block\04.jpg", 170, 360, 40, 40)
GUICtrlSetState(-1, $GUI_HIDE)
#endregion ### END Koda GUI section ###
#region ### START Koda GUI section ### Form=
$Form5 = GUICreate("Form5", 185, 163, 192, 154, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
$Combo1 = GUICtrlCreateCombo("Combo1", 16, 56, 161, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Button1", 16, 128, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 104, 128, 75, 25)
#endregion ### END Koda GUI section ###
_Check()
_checkinput()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Local $Mod_Version = GUICtrlRead($Minecraft_modVersionInput)
Local $Mod_Name = GUICtrlRead($Minecraft_modNameInput)
IniWrite($save, "GUI", "Version", $Mod_Version)
IniWrite($save, "GUI", "Project_Name", $Mod_Name)
Exit
Case $StimmeZuBtn
_Check_MCP()
Case $StimmeNichtZuBtn
IniWrite($save, "GUI", "Welcome_Gui", "true")
Exit
Case $Minecraft_searchBtn
_Check_MCP()
Case $Gui_NextBtn
_GUI_Change(1)
_SaveString()
Case $Gui_NextItemBtn
_forward()
Case $Gui_BackwarBtn
_backward()
Case $Minecraft_ModBlockLightPic
_dropown()
Case $Gui_DragField
Search2()
Case $GUI_EVENT_DROPPED
$File = @GUI_DragFile
$read = StringRight($File, 3)
If $read = "png" Then
Search3()
Else
MsgBox(48, 'Info', 'Das ist Keine Png datei')
EndIf
Case $Gui_BackItemBtn
_GUI_Change(2)
Case $Minecraft_modNameInput
_checkinput()
GUICtrlSetData($Minecraft_modNameInput, StringReplace(GUICtrlRead($Minecraft_modNameInput), ' ', '_'))
Case $Minecraft_BlockFinishBtn
_fertigstellen()
Case $Minecraft_BlockLight_01
$lichtBock = '0.2F'
Case $Minecraft_BlockLight_02
$lichtBock = '0.5F'
Case $Minecraft_BlockLight_03
$lichtBock = '1.0F'
Case $Minecraft_BlockLight_04
$lichtBock = '1.5F'
Case $Minecraft_BlockEditBtn
_anzeige()
Case $Minecraft_TexturPicLoadInWindowsViewer
If FileExists($saveString & '\bilder\copy.png') = 1 Then
ShellExecuteWait($saveString & '\bilder\copy.png')
Else
MsgBox(16,'Error','Keine Textur gefunden')
EndIf
EndSwitch
WEnd
Func _Check()
If FileExists($save) = 0 Then
FileOpen($save, 1)
FileClose($save)
EndIf
$Read2 = IniRead($save, "GUI", "Welcome_Gui", "NotFound")
$Read3 = IniRead($save, "GUI", "MCP_Link", '')
$Read4 = IniRead($save, "GUI", "Version", "1.1")
$Read5 = IniRead($save, "GUI", "Project_Name", "Minecraft Mod Name")
If $Read2 = "false" Then
GUISetState(@SW_SHOW, $GUI_2)
_bild()
GUICtrlSetData($Minecraft_mcpFolderInput, $Read3)
GUICtrlSetData($Minecraft_modVersionInput, $Read4)
GUICtrlSetData($Minecraft_modNameInput, $Read5)
AdlibRegister("_MouseOver")
Else
GUISetState(@SW_SHOW, $GUI_1)
_timer()
EndIf
EndFunc ;==>_Check
Func _bild()
$iLoop += 1
$ImaxLimit = 30
If $iLoop = 1 Then
AdlibRegister("_bild", 1000)
EndIf
If $iLoop = 2 Then
GUICtrlSetState($PictureFlow_03, $GUI_HIDE)
GUICtrlSetState($PictureFlow_01, $GUI_SHOW)
EndIf
If $iLoop = 10 Then
GUICtrlSetState($PictureFlow_01, $GUI_HIDE)
GUICtrlSetState($PictureFlow_02, $GUI_SHOW)
EndIf
If $iLoop = 20 Then
GUICtrlSetState($PictureFlow_02, $GUI_HIDE)
GUICtrlSetState($PictureFlow_03, $GUI_SHOW)
EndIf
If $iLoop = $ImaxLimit Then $iLoop = 0
$FindPicture = FileFindFirstFile($landschaft & "\*.jpg")
While 1
$file = FileFindNextFile($FindPicture)
If @error Then ExitLoop
MsgBox(4096, "Datei:", $file)
WEnd
FileClose($FindPicture)
EndFunc ;==>_bild
Func _timer()
$read1 = GUICtrlRead($time)
$iLoop -= 1
If $time > 0 Then
AdlibRegister("_timer", 1000)
GUICtrlSetData($StimmeZuBtn, "Stimme zu (" & $time + $iLoop & ")")
EndIf
If GUICtrlRead($StimmeZuBtn) = "Stimme zu (0)" Then
AdlibUnRegister("_timer")
GUICtrlSetData($StimmeZuBtn, "Stimme zu")
GUICtrlSetState($StimmeZuBtn, $GUI_ENABLE)
EndIf
EndFunc ;==>_timer
;-------------ENDE----------------------------
;Das ist der Mouse Over teil
Func _MouseOver()
$pos = GUIGetCursorInfo()
If IsArray($pos) Then
If $pos[4] = $helpPic Then
GUICtrlSetImage($helpPic, $over & "\help_over.jpg")
Else
GUICtrlSetImage($helpPic, $normal & "\help.jpg")
EndIf
If $pos[4] = $Gui_BackwarBtn Then
GUICtrlSetImage($Gui_BackwarBtn, $over & "\backward_over.jpg")
Else
GUICtrlSetImage($Gui_BackwarBtn, $normal & "\backward.jpg")
EndIf
If $pos[4] = $Gui_DragField Then
GUICtrlSetImage($Gui_DragField, $normal & "\block\over\drag_over.jpg")
Else
GUICtrlSetImage($Gui_DragField, $normal & "\block\drag.jpg")
EndIf
If $pos[4] = $Minecraft_searchBtn Then
GUICtrlSetImage($Minecraft_searchBtn, $over & "\Durchsuchen_over.jpg")
Else
GUICtrlSetImage($Minecraft_searchBtn, $normal & "\Durchsuchen.jpg")
EndIf
If BitAND(GUICtrlGetState($Gui_NextBtn), $GUI_SHOW) = $GUI_SHOW Then
If $pos[4] = $Gui_NextBtn Then
GUICtrlSetImage($Gui_NextBtn, $over & "\weiter_over.jpg")
Else
GUICtrlSetImage($Gui_NextBtn, $normal & "\weiter.jpg")
EndIf
EndIf
If $pos[4] = $Gui_BlockPic Then
GUICtrlSetImage($Gui_BlockPic, $over & "\block_over.jpg")
Else
GUICtrlSetImage($Gui_BlockPic, $normal & "\block.jpg")
EndIf
If $pos[4] = $Gui_BackItemBtn Then
GUICtrlSetImage($Gui_BackItemBtn, $over & "\zuruck_over.jpg")
Else
GUICtrlSetImage($Gui_BackItemBtn, $normal & "\zuruck.jpg")
EndIf
If $pos[4] = $Gui_ItemPic Then
GUICtrlSetImage($Gui_ItemPic, $over & "\item_over.jpg")
Else
GUICtrlSetImage($Gui_ItemPic, $normal & "\item.jpg")
EndIf
If $pos[4] = $Gui_BiomePic Then
GUICtrlSetImage($Gui_BiomePic, $over & "\biome_over.jpg")
Else
GUICtrlSetImage($Gui_BiomePic, $normal & "\biome.jpg")
EndIf
If $pos[4] = $Gui_WaffenPic Then
GUICtrlSetImage($Gui_WaffenPic, $over & "\waffe_over.jpg")
Else
GUICtrlSetImage($Gui_WaffenPic, $normal & "\waffe.jpg")
EndIf
If $pos[4] = $Gui_RuestungPic Then
GUICtrlSetImage($Gui_RuestungPic, $over & "\rüstung_over.jpg")
Else
GUICtrlSetImage($Gui_RuestungPic, $normal & "\rüstung.jpg")
EndIf
If $pos[4] = $Gui_NextItemBtn Then
GUICtrlSetImage($Gui_NextItemBtn, $over & "\forward_over.jpg")
Else
GUICtrlSetImage($Gui_NextItemBtn, $normal & "\forward.jpg")
EndIf
EndIf
EndFunc ;==>_MouseOver
;-------------ENDE----------------------------
Func _info()
$Read2 = GUICtrlRead($Minecraft_modVersionInput)
$Read3 = GUICtrlRead($Minecraft_modNameInput)
IniWrite($save, "GUI", "Version", $Read2)
IniWrite($save, "GUI", "Project_Name", $Read3)
EndFunc ;==>_info
Func _Check_MCP()
Local $Search_result = FileSelectFolder("MCP ordner wählen", '')
If FileExists($save) = 0 Then
DirCreate($saveString & '\save')
FileOpen($save, 1)
IniWrite($save, "GUI", 'Welcome_Gui', '')
IniWrite($save, 'GUI', 'MCP_Link', '')
IniWrite($save, 'GUI', 'Version', '')
IniWrite($save, 'GUI', 'Project_Name', '')
FileClose($save)
EndIf
If FileExists($Search_result & "\jars\bin\minecraft.jar") = 0 And FileExists($Search_result & "\decompile.bat") = 0 Then
Do
Local $Msgbox = MsgBox(4 + 32 + 262144, 'Info', 'Kein MCP Ordner ausgewählt nochmal suchen ?')
If $Msgbox = 6 Then
$Search_result = FileSelectFolder("MCP ordner wählen", '')
Else
Return 0
EndIf
Until FileExists($Search_result & "\jars\bin\minecraft.jar") <> 0 And FileExists($Search_result & "\decompile.bat") <> 0
Else
GUISetState(@SW_HIDE, $GUI_1)
GUISetState(@SW_SHOW, $GUI_2)
GUICtrlSetData($Minecraft_mcpFolderInput, $Search_result)
IniWrite($save, "GUI", "MCP_Link", $Search_result)
SplashTextOn('Willkommen', @UserName & ' danke das du den Modmaker erfolgreich eingestellt hast.', 300, 100)
Sleep(3000)
SplashOff()
AdlibRegister("_MouseOver")
IniWrite($save, "GUI", "Welcome_Gui", "false")
EndIf
EndFunc ;==>_Check_MCP
;-------------ENDE----------------------------
;Hier ist der GUI Wechsel
Func _GUI_Change($iFlag)
Switch $iFlag
Case 1
GUISetState(@SW_HIDE, $GUI_2)
GUISetState(@SW_SHOW, $GUI_3)
Case 2
GUISetState(@SW_HIDE, $GUI_3)
GUISetState(@SW_SHOW, $GUI_2)
EndSwitch
EndFunc ;==>_GUI_Change
;-------------ENDE----------------------------
;Hier ist der Befehl zum Bild Wechsel
Func _forward()
$ianzhal += 1
If $ianzhal = 1 Then
GUICtrlSetState($Gui_BlockPic, $GUI_HIDE)
GUICtrlSetState($Gui_ItemPic, $GUI_SHOW)
ElseIf $ianzhal = 2 Then
GUICtrlSetState($Gui_ItemPic, $GUI_HIDE)
GUICtrlSetState($Gui_BiomePic, $GUI_SHOW)
ElseIf $ianzhal = 3 Then
GUICtrlSetState($Gui_BiomePic, $GUI_HIDE)
GUICtrlSetState($Gui_WaffenPic, $GUI_SHOW)
ElseIf $ianzhal = 4 Then
GUICtrlSetState($Gui_WaffenPic, $GUI_HIDE)
GUICtrlSetState($Gui_RuestungPic, $GUI_SHOW)
ElseIf $ianzhal = 5 Then
GUICtrlSetState($Gui_RuestungPic, $GUI_HIDE)
GUICtrlSetState($Gui_BlockPic, $GUI_SHOW)
$ianzhal = 0
ElseIf $ianzhal > 4 Then
GUICtrlSetState($Gui_BlockPic, $GUI_HIDE)
GUICtrlSetState($Gui_ItemPic, $GUI_SHOW)
$ianzhal = 1
EndIf
EndFunc ;==>_vorward
Func _backward()
$ianzhal -= 1
If $ianzhal = 1 Then
GUICtrlSetState($Gui_BiomePic, $GUI_HIDE)
GUICtrlSetState($Gui_ItemPic, $GUI_SHOW)
ElseIf $ianzhal = 2 Then
GUICtrlSetState($Gui_WaffenPic, $GUI_HIDE)
GUICtrlSetState($Gui_BiomePic, $GUI_SHOW)
ElseIf $ianzhal = 3 Then
GUICtrlSetState($Gui_RuestungPic, $GUI_HIDE)
GUICtrlSetState($Gui_WaffenPic, $GUI_SHOW)
ElseIf $ianzhal = 4 Then
GUICtrlSetState($Gui_WaffenPic, $GUI_HIDE)
GUICtrlSetState($Gui_RuestungPic, $GUI_SHOW)
ElseIf $ianzhal = 0 Then
GUICtrlSetState($Gui_ItemPic, $GUI_HIDE)
GUICtrlSetState($Gui_BlockPic, $GUI_SHOW)
$ianzhal = 5
ElseIf $ianzhal < 1 Then
GUICtrlSetState($Gui_BlockPic, $GUI_HIDE)
GUICtrlSetState($Gui_RuestungPic, $GUI_SHOW)
$ianzhal = 4
EndIf
EndFunc ;==>_backward
Func _dropown()
$checkedzhal += 1
If $checkedzhal = 1 Then
GUICtrlSetState($Minecraft_DragMenuPic, $GUI_SHOW)
GUICtrlSetState($Minecraft_BlockLight_01, $GUI_SHOW)
GUICtrlSetState($Minecraft_BlockLight_02, $GUI_SHOW)
GUICtrlSetState($Minecraft_BlockLight_03, $GUI_SHOW)
GUICtrlSetState($Minecraft_BlockLight_04, $GUI_SHOW)
GUICtrlSetState($Gui_DragField, $GUI_DISABLE)
GUICtrlSetState($Gui_BackwarBtn, $GUI_DISABLE)
GUICtrlSetState($Minecraft_ModBlockAktionText, $GUI_DISABLE)
GUICtrlSetState($Minecraft_ModBlockPicText, $GUI_DISABLE)
ElseIf $checkedzhal = 2 Then
GUICtrlSetState($Minecraft_DragMenuPic, $GUI_HIDE)
GUICtrlSetState($Minecraft_BlockLight_01, $GUI_HIDE)
GUICtrlSetState($Minecraft_BlockLight_02, $GUI_HIDE)
GUICtrlSetState($Minecraft_BlockLight_03, $GUI_HIDE)
GUICtrlSetState($Minecraft_BlockLight_04, $GUI_HIDE)
GUICtrlSetState($Minecraft_DragMenuPic, $GUI_ENABLE)
GUICtrlSetState($Gui_DragField, $GUI_ENABLE)
GUICtrlSetState($Minecraft_ModBlockAktionText, $GUI_ENABLE)
GUICtrlSetState($Minecraft_ModBlockPicText, $GUI_ENABLE)
EndIf
If $checkedzhal = 2 Then $checkedzhal = 0
EndFunc ;==>_dropown
Func Search3()
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@GUI_DragFile)
$width = _GDIPlus_ImageGetWidth($hImage)
$height = _GDIPlus_ImageGetHeight($hImage)
If $width And $height = 16 Then
_GDIPlus_BrushCreateSolid(0x000000)
$sCLSID = _GDIPlus_EncodersGetCLSID("BMP")
_GDIPlus_ImageSaveToFileEx($hImage, $saveString & '\bilder\vorschau.jpg', $sCLSID)
_GDIPlus_Shutdown()
GUICtrlSetImage($Minecraft_TexturPic, $saveString & '\bilder\vorschau.jpg')
FileCopy(@GUI_DragFile, $saveString & '\bilder\copy.png',1)
Else
MsgBox(0, 'Info', 'Bitte eine png Datei benuzen mit den massen 16x16 Pixel')
EndIf
EndFunc ;==>Search3
Func Search2()
If FileExists($saveString & '\bilder') = 0 Then
DirCreate($saveString & '\bilder')
EndIf
$var = FileOpenDialog("test", @DesktopDir & '', "Bild (*png)")
If @error Then
$msg = MsgBox(4 + 32, 'Error', 'Ein feheler ist aufgetreten nochmal suchen ??')
If $msg = 6 Then
Search2()
EndIf
Else
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($var)
$width = _GDIPlus_ImageGetWidth($hImage)
$height = _GDIPlus_ImageGetHeight($hImage)
If $width And $height = 16 Then
_GDIPlus_BrushCreateSolid(0x000000)
$sCLSID = _GDIPlus_EncodersGetCLSID("BMP")
_GDIPlus_ImageSaveToFileEx($hImage, $saveString & '\bilder\vorschau.jpg', $sCLSID)
_GDIPlus_Shutdown()
GUICtrlSetImage($Minecraft_TexturPic, $saveString & '\bilder\vorschau.jpg')
FileCopy($var, $saveString & '\bilder\copy.png',1)
Else
$msg2 = MsgBox(4 + 32, 'Info', 'Bitte eine png Datei benuzen mit den massen 16x16 Pixel')
If $msg2 = 6 Then
Search2()
EndIf
EndIf
EndIf
EndFunc ;==>Search2
Func _checkinput()
$text = GUICtrlRead($Minecraft_modNameInput)
$array = StringReplace($text, ' ', '_')
GUICtrlSetData($Minecraft_modNameInput, $array)
EndFunc ;==>_checkinput
Func _SaveString()
If FileExists($saveString) = 0 Then
DirCreate($saveString)
EndIf
FileOpen($saveString & '\Blockanzhal.ini', 1)
FileOpen($saveString & '\Block.ini', 1)
EndFunc ;==>_SaveString
Func _fertigstellen()
$blockanzhal = 384
$id += 1
$ausgabe = $blockanzhal + $id
IniWrite($saveString & '\Blockanzhal.ini', 'Anzhal', 'BlockID', $ausgabe)
IniWrite($saveString & '\Block.ini', 'Namen', $ausgabe, GUICtrlRead($Minecraft_BlockNameInput))
$blockName = IniRead($saveString & '\Block.ini', 'Namen', $ausgabe, 'Error')
IniWrite($saveString & '\Block.ini', $blockName, 'Licht', $lichtBock)
EndFunc ;==>_fertigstellen
Func _anzeige()
GUISetState($Form5, @SW_SHOW)
If FileExists($saveString & '\Block.ini') = 1 Then
If FileReadLine($saveString & '\Block.ini', 1) = ' ' Then
MsgBox(0, 'Info', 'Error Die Ini datei ist beschädigt')
Else
$secname = IniReadSectionNames($saveString & '\Block.ini')
$section = IniReadSection($saveString & '\Block.ini', $secname[1])
For $i = 1 To $section[0][0]
GUICtrlSetData($Combo1, 'Block:' & $section[$i][1] & ' ID ' & $section[$i][0], $section[$i][0])
Next
EndIf
Else
MsgBox(0, 'Info', 'Die Ini datei konnte weder geladen werden noch gefunden werden')
EndIf
EndFunc ;==>_anzeige