API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 9th, 2017
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ActionScript 3 14.58 KB | None | 0 0
raw download clone embed print report
  1. ; ============================================================================================================================
  2. ; ==================================================== Programm Destails =====================================================
  3. ; ============================================================================================================================
  4.  
  5. ; Name:            Crystall Roots - Server Manager
  6. ; Description:     Der Server Manager dient dazu die Caali Files ( rev_1 ) zu modifizieren und dem
  7. ;                  Developer sehr viel Arbeit abzunehmen. Es wurde speziell für den Flyff ( v11 )
  8. ;                  Privat Server entwickelt.
  9. ; Version:         0.1.5
  10. ; Autor:           Nydn
  11. ; Copyright:       Nydn - Crystall Roots Head Developer
  12.  
  13. ; ============================================================================================================================
  14. ; ================================================== Header Datein includen ==================================================
  15. ; ============================================================================================================================
  16.  
  17. #include <ButtonConstants.au3>
  18. #include <ComboConstants.au3>
  19. #include <EditConstants.au3>
  20. #include <GUIConstantsEx.au3>
  21. #include <StaticConstants.au3>
  22. #include <TabConstants.au3>
  23. #include <WindowsConstants.au3>
  24. #include <GUIListBox.au3>
  25. #include <WinApi.au3>
  26.  
  27. ; ============================================================================================================================
  28. ; =================================================== Funktionen defenieren ==================================================
  29. ; ============================================================================================================================
  30.  
  31. ; Server *.INI speichern
  32. Func SaveINI()
  33.     ; Daten in config.ini speichern
  34.     IniWrite("config.ini", "Server", "IP", GUICtrlRead($Input5))
  35.     IniWrite("config.ini", "Server", "Name", GUICtrlRead($Input6))
  36.  
  37.     ; Daten in Login Server.ini speichern
  38.     IniWrite($iFilesFolder & "\login_server.ini", "mysql", "server", GUICtrlRead($Input1))
  39.     IniWrite($iFilesFolder & "\login_server.ini", "mysql", "username", GUICtrlRead($Input2))
  40.     IniWrite($iFilesFolder & "\login_server.ini", "mysql", "password", GUICtrlRead($Input3))
  41.     IniWrite($iFilesFolder & "\login_server.ini", "mysql", "database", GUICtrlRead($Input4))
  42.     IniWrite($iFilesFolder & "\login_server.ini", "server", "ip",  GUICtrlRead($Input5))
  43.     IniWrite($iFilesFolder & "\login_server.ini", "server", "name",  GUICtrlRead($Input7))
  44.     IniWrite($iFilesFolder & "\login_server.ini", "isc", "ip",  GUICtrlRead($Input5))
  45.     IniWrite($iFilesFolder & "\login_server.ini", "isc", "port" , GUICtrlRead($Input8))
  46.     IniWrite($iFilesFolder & "\login_server.ini", "server", "port" , GUICtrlRead($Input9))
  47.  
  48.     ; Daten in Char. Server.ini speichern
  49.     IniWrite($iFilesFolder & "\char_server.ini", "mysql", "server", GUICtrlRead($Input1))
  50.     IniWrite($iFilesFolder & "\char_server.ini", "mysql", "username", GUICtrlRead($Input2))
  51.     IniWrite($iFilesFolder & "\char_server.ini", "mysql", "password", GUICtrlRead($Input3))
  52.     IniWrite($iFilesFolder & "\char_server.ini", "mysql", "database", GUICtrlRead($Input4))
  53.     IniWrite($iFilesFolder & "\char_server.ini", "isc", "ip", GUICtrlRead($Input5))
  54.     IniWrite($iFilesFolder & "\char_server.ini", "isc", "port" ,GUICtrlRead($Input8))
  55.     IniWrite($iFilesFolder & "\char_server.ini", "server", "ip", GUICtrlRead($Input5))
  56.     IniWrite($iFilesFolder & "\char_server.ini", "server", "port" , GUICtrlRead($Input10))
  57.    
  58.     ; Daten in World Server.ini speichern
  59.     IniWrite($iFilesFolder & "\world_server.ini", "mysql", "server", GUICtrlRead($Input1))
  60.     IniWrite($iFilesFolder & "\world_server.ini", "mysql", "username", GUICtrlRead($Input2))
  61.     IniWrite($iFilesFolder & "\world_server.ini", "mysql", "password", GUICtrlRead($Input3))
  62.     IniWrite($iFilesFolder & "\world_server.ini", "mysql", "database", GUICtrlRead($Input4))
  63.     IniWrite($iFilesFolder & "\world_server.ini", "isc", "ip", GUICtrlRead($Input5))
  64.     IniWrite($iFilesFolder & "\world_server.ini", "isc", "port", GUICtrlRead($Input8))
  65.     IniWrite($iFilesFolder & "\world_server.ini", "server", "ip", GUICtrlRead($Input5))
  66.     IniWrite($iFilesFolder & "\world_server.ini", "server", "port", GUICtrlRead($Input11))
  67.     IniWrite($iFilesFolder & "\world_server.ini", "server", "name", GUICtrlRead($Input13))
  68.     IniWrite($iFilesFolder & "\world_server.ini", "server", "exprate", GUICtrlRead($Input16_1))
  69.     IniWrite($iFilesFolder & "\world_server.ini", "server", "fxprate", GUICtrlRead($Input16_2))
  70.     IniWrite($iFilesFolder & "\world_server.ini", "server", "droprate", GUICtrlRead($Input16_3))
  71.     IniWrite($iFilesFolder & "\world_server.ini", "server", "penyadroprate", GUICtrlRead($Input16_4))
  72.     IniWrite($iFilesFolder & "\world_server.ini", "server", "questdroprate", GUICtrlRead($Input16_5))
  73.     IniWrite($iFilesFolder & "\world_server.ini", "server", "motd", GUICtrlRead($Input12))
  74.     If GUICtrlRead($PKCombo) == "Ja" Then
  75.         $allowPK = 1
  76.     Else
  77.         $allowPK = 0
  78.     EndIf
  79.     IniWrite($iFilesFolder & "\world_server.ini", "server", "allowPK", $allowPK)
  80.     If GUICtrlRead($PVPCombo) == "Ja" Then
  81.         $allowPVP = 1
  82.     Else
  83.         $allowPVP = 0
  84.     EndIf
  85.     IniWrite($iFilesFolder & "\world_server.ini", "server", "everywherePVP", $allowPVP)
  86.    
  87.     MsgBox(1, "Speichern erfolgreich", "Einstellungen wurden erfolgreich gespeichert.")
  88. EndFunc
  89.  
  90. ; Quest speichern
  91. Func SaveQuest()
  92.    
  93.     $sNPCName = IniRead("config.ini", "NPC", GUICtrlRead($SNPCCombo), "")
  94.     $eNPCName = IniRead("config.ini", "NPC", GUICtrlRead($ENPCCombo), "")
  95.    
  96.     $LUA_QuestName = 'g_szQuestName         = "' & GUICtrlRead($Input17) & '"' & @CRLF
  97.     $LUA_QuestID = 'g_dwQuestID         = ' & GUICtrlRead($Input24) & @CRLF
  98.    
  99.     If GUICtrlRead($QTCombo) == "Monster töten" Then
  100.         $LUA_QuestNPC = 'g_szNPCName        = "' & $sNPCName & '"' & @CRLF
  101.     ElseIf GUICtrlRead($QTCombo) == "Monster töten" Then
  102.         $LUA_QuestNPC = 'g_szNPCNameStart       = "' & $sNPCName & '"' & @CRLF & 'g_szNPCNameEnd        = "' & $eNPCName & '"' & @CRLF
  103.     Else
  104.         MsgBox(1, "Warnung!", "Quest könnte Fehler enthalten.")
  105.         $LUA_QuestNPC = 'g_szNPCName        = "' & $sNPCName & '"' & @CRLF
  106.     EndIf
  107.    
  108.    
  109.        
  110.     $QuestFile = FileOpen("Quest\Server Files\" & GUICtrlRead($Input24) & "_" & GUICtrlRead($Input17) & ".lua", 1)
  111.     FileWrite($QuestFile, $LUA_QuestName & $LUA_QuestID & $LUA_QuestNPC )
  112.     FileClose($QuestFile)
  113.    
  114. EndFunc
  115.  
  116. ; ============================================================================================================================
  117. ; ================================================== Daten aus *.inis lesen ==================================================
  118. ; ============================================================================================================================
  119.  
  120. ; Config.ini auslesen
  121. $iFilesFolder = IniRead("config.ini", "Folder", "ServerFiles", "")
  122. $iServerName = IniRead("config.ini", "Server", "Name", "ServerName")
  123. $iServerIP = IniRead("config.ini", "Server", "IP", "ServerIP")
  124.  
  125. ; MySQL Zugangsdaten
  126. $mysql_server = IniRead($iFilesFolder & "\login_server.ini", "mysql", "server" ,"Datei konnte nicht gefunden werden")
  127. $mysql_user = IniRead($iFilesFolder & "\login_server.ini", "mysql", "username" ,"Datei konnte nicht gefunden werden")
  128. $mysql_pass = IniRead($iFilesFolder & "\login_server.ini", "mysql", "password" ,"Datei konnte nicht gefunden werden")
  129. $mysql_database = IniRead($iFilesFolder & "\login_server.ini", "mysql", "database" ,"Datei konnte nicht gefunden werden")
  130.  
  131. ; Login Server.ini auslesen
  132. $LoginServerPort = IniRead($iFilesFolder & "\login_server.ini", "server", "port" ,"Datei konnte nicht gefunden werden")
  133.  
  134. ; Char. Server.ini auslesen
  135. $LoginServer = IniRead($iFilesFolder & "\char_server.ini", "server", "name" ,"Datei konnte nicht gefunden werden")
  136. $CharServerPort = IniRead($iFilesFolder & "\char_server.ini", "server", "port" ,"Datei konnte nicht gefunden werden")
  137.  
  138. ; World Server.ini auslesem
  139. $ChannelName = IniRead($iFilesFolder & "\world_server.ini", "server", "name" ,"Datei konnte nicht gefunden werden")
  140. $WelcomeText = IniRead($iFilesFolder & "\world_server.ini", "server", "motd" ,"Datei konnte nicht gefunden werden")
  141. $WorldServerPort = IniRead($iFilesFolder & "\world_server.ini", "server", "port" ,"Datei konnte nicht gefunden werden")
  142. $EXPRate = IniRead($iFilesFolder & "\world_server.ini", "server", "exprate" ,"Datei konnte nicht gefunden werden")
  143. $FXPRate = IniRead($iFilesFolder & "\world_server.ini", "server", "fxprate" ,"Datei konnte nicht gefunden werden")
  144. $DROPRate = IniRead($iFilesFolder & "\world_server.ini", "server", "droprate" ,"Datei konnte nicht gefunden werden")
  145. $PENYARate = IniRead($iFilesFolder & "\world_server.ini", "server", "penyadroprate" ,"Datei konnte nicht gefunden werden")
  146. $QUESTRate = IniRead($iFilesFolder & "\world_server.ini", "server", "questdroprate" ,"Datei konnte nicht gefunden werden")
  147. $PK = IniRead($iFilesFolder & "\world_server.ini", "server", "allowPK" ,"Datei konnte nicht gefunden werden")
  148. If $PK = 1 Then
  149.     $PK = "Ja"
  150. Else
  151.     $PK = "Nein"
  152. EndIf
  153. $PVP = IniRead($iFilesFolder & "\world_server.ini", "server", "everywherePVP" ,"Datei konnte nicht gefunden werden")
  154. If $PVP = 1 Then
  155.     $PVP = "Ja"
  156. Else
  157.     $PVP = "Nein"
  158. EndIf
  159.  
  160. ; ISC Daten auslesen
  161. $ISCPort = IniRead($iFilesFolder & "\login_server.ini", "isc", "port" ,"Datei konnte nicht gefunden werden")
  162.  
  163. ;=============================================================================================================================
  164. ;========================================================== Form erstellen ===================================================
  165. ;=============================================================================================================================
  166. ; Haupt Form zeichnen
  167. $mainForm = GUICreate("Caali Workshop v0.1                                                                                                                                                                                                                             © by Crystal Roots", 1000, 700, 150, 100)
  168. GUISetState(@SW_SHOW)
  169.  
  170.     ; Menu
  171.     $mINIEditor = GUICtrlCreateMenu("*.INI Editor")
  172.     $MenuQuest = GUICtrlCreateMenu("&Quest")
  173.     $MenuShop = GUICtrlCreateMenu("S&hop")
  174.     $MenuHelp = GUICtrlCreateMenu("H&ilfe")
  175.         $HelpItem1 = GUICtrlCreateMenuItem("HomePage", $MenuHelp)
  176.         $HelpItem2 = GUICtrlCreateMenuItem("Forum", $MenuHelp)
  177.         $HelpItem3 = GUICtrlCreateMenuItem("About", $MenuHelp)
  178.         $HelpItem4 = GUICtrlCreateMenuItem("Credits", $MenuHelp)
  179.  
  180.  
  181.     $INIEditor = GUICreate("*INI Editor", 600, 400, 10, 0)
  182.    
  183.         $Button1 = GUICtrlCreateButton("Einstellungen speichern", 15, 373, 129, 25, $WS_GROUP)
  184.         $Button2 = GUICtrlCreateButton("Beenden", 449, 373, 129, 25, $WS_GROUP)
  185.  
  186.         $sDSGroup = GUICtrlCreateGroup("Allgemeine Einstellungen", 15, 40, 561, 153)
  187.             ; Label - Input
  188.             $Label1 = GUICtrlCreateLabel("Mysql Server:", 23, 67, 83, 20)
  189.                 $Input1 = GUICtrlCreateInput($mysql_server, 155, 65, 90, 22)
  190.             $Label2 = GUICtrlCreateLabel("Mysql User:", 23, 96, 74, 20)
  191.                 $Input2 = GUICtrlCreateInput($mysql_user, 155, 94, 90, 22)
  192.             $Label3 = GUICtrlCreateLabel("Mysql Passwort:", 23, 125, 101, 20)
  193.                 $Input3 = GUICtrlCreateInput($mysql_pass, 155, 123, 90, 22 ,$ES_PASSWORD)
  194.             $Label4 = GUICtrlCreateLabel("MySQL Datenbank:", 23, 154, 118, 20)
  195.                 $Input4 = GUICtrlCreateInput($mysql_database, 155, 152, 90, 22)
  196.             $Label5 = GUICtrlCreateLabel("Server IP:", 280, 67, 60, 20)
  197.                 $Input5 = GUICtrlCreateInput($iServerIP, 425, 65, 145, 22)
  198.             $Label6 = GUICtrlCreateLabel("Server Name", 280, 96, 82, 20)
  199.                 $Input6 = GUICtrlCreateInput($iServerName, 425, 94, 145, 22)
  200.             $Label7 = GUICtrlCreateLabel("Login - Server Name:", 280, 125, 125, 20)
  201.                 $Input7 = GUICtrlCreateInput($LoginServer, 425, 123, 145, 22)
  202.             $Label17 = GUICtrlCreateLabel("Speicher Ort:", 15, 15, 125, 20)
  203.                 $Input17 = GUICtrlCreateInput($iFilesFolder, 90, 12, 340, 20)
  204.                     GUICtrlSetState ($Input17, $GUI_DISABLE)
  205.                 $Button17 = GUICtrlCreateButton("Durchsuchen", 440, 12, 137, 20)
  206.                
  207.         $sMSGroup = GUICtrlCreateGroup("Server Einstellungen", 16, 200, 561, 169)  
  208.             ; Label - Input
  209.             $Label8 = GUICtrlCreateLabel("ISC Port:", 24, 227, 57, 20)
  210.                 $Input8 = GUICtrlCreateInput($ISCPort, 156, 224, 90, 22)
  211.             $Label9 = GUICtrlCreateLabel("Login Server Port:", 24, 256, 107, 20)
  212.                 $Input9 = GUICtrlCreateInput($LoginServerPort, 156, 254, 90, 22)
  213.             $Label10 = GUICtrlCreateLabel("Char. Server Port:", 24, 285, 107, 20)
  214.                 $Input10 = GUICtrlCreateInput($CharServerPort, 156, 283, 90, 22)
  215.             $Label11 = GUICtrlCreateLabel("World Server Port:", 24, 314, 110, 20)
  216.                 $Input11 = GUICtrlCreateInput($WorldServerPort, 156, 312, 90, 22)
  217.             $Label12 = GUICtrlCreateLabel("Willkommens Text:", 281, 227, 116, 20)
  218.                 $Input12 = GUICtrlCreateInput($WelcomeText, 426, 225, 145, 22)
  219.             $Label13 = GUICtrlCreateLabel("Channel Name:", 281, 256, 93, 20)
  220.                 $Input13 = GUICtrlCreateInput($ChannelName, 426, 254, 145, 22)
  221.             $Label14 = GUICtrlCreateLabel("PK Server:", 281, 285, 66, 20)
  222.                 $PKCombo = GUICtrlCreateCombo("", 426, 283, 145, 25)
  223.                     GUICtrlSetData(-1, "Ja|Nein", $PK)
  224.             $Label15 = GUICtrlCreateLabel("Überall PVP:", 281, 314, 79, 20)
  225.                 $PVPCombo = GUICtrlCreateCombo("", 426, 312, 145, 25)
  226.                     GUICtrlSetData(-1, "Ja|Nein", $PVP)
  227.             $Label16 = GUICtrlCreateLabel("Rates (EXP / FXP / DROP / PENYA / QUEST):", 24, 343, 277, 20)
  228.                 $Input16_1 = GUICtrlCreateInput($EXPRate, 332, 341, 40, 22)
  229.                 $Input16_2 = GUICtrlCreateInput($FXPRate, 380, 341, 40, 22)
  230.                 $Input16_3 = GUICtrlCreateInput($DROPRate, 428, 341, 40, 22)
  231.                 $Input16_4 = GUICtrlCreateInput($PENYARate, 524, 341, 40, 22)
  232.                 $Input16_5 = GUICtrlCreateInput($QUESTRate, 476, 341, 40, 22)
  233.  
  234.     _WinAPI_SetParent($INIEditor, $mainForm)
  235.     GUISetState(@SW_SHOW)
  236.    
  237. $hNew2_Child = GUICreate("Quest Editor", 300, 300, 20, 10)
  238. _WinAPI_SetParent($hNew2_Child, $mainForm)
  239. GUISetState(@SW_SHOW)
  240.  
  241. While 1
  242.     $msg = GuiGetMsg(1)
  243.    
  244.     Select
  245.     Case $msg[1] = $mainForm
  246.         Select
  247.         Case $msg[0] = $GUI_EVENT_CLOSE
  248.             ExitLoop
  249.         Case $msg[0] = $mINIEditor
  250.             GUISetState (@SW_SHOW, $INIEditor)
  251.         EndSelect
  252.        
  253.     Case $msg[1] = $INIEditor
  254.         Select
  255.         Case $msg[0] = $GUI_EVENT_CLOSE
  256.             GUIDelete($INIEditor)
  257.         Case $msg[0] = $Button17
  258.             $iFilesFolder = FileSelectFolder("Wählen sie den bin_x68 Ordner aus.", "")
  259.             IniWrite("config.ini", "Folder", "ServerFiles", $iFilesFolder)
  260.             MsgBox(1, "Wichtig!", "Sie müssen das Programm Neustarten damit alle Änderungen übernommen werden können.")
  261.         Case $msg[0] = $Button1
  262.             SaveINI()
  263.         Case $msg[0] = $Button2
  264.             GUIDelete($INIEditor)
  265.         EndSelect
  266.        
  267.     Case $msg[1] = $hNew2_Child
  268.         Select
  269.         Case $msg[0] = $GUI_EVENT_CLOSE
  270.             GUIDelete($hNew2_Child)
  271.         EndSelect
  272.        
  273.     EndSelect
  274. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!