[DL + Source] BonusEditor

[sherer]

Czesc, ten pomysł podsunął mi Glinka

To jest wersja v.1, dlatego dostajecie source :P

Działa on na takiej zasadzie, że najpierw logujemy się do mysql, nastepnie wpisujemy ID i wartosci nowych bonów + vnum przedmiotu, w którym mają być zmienione bony.

Bez zbędnego pierdolenia.

Source:

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>
Dim $IP, $Login, $Haslo, $Port, $1, $2, $3, $1b, $2b, $3b, $vnum
#region ### START Koda GUI section ### Form=
$BonusEditor = GUICreate("BonusEditor", 499, 443, 192, 124)
$Label1 = GUICtrlCreateLabel("IP", 24, 8, 50, 17)
$Label2 = GUICtrlCreateLabel("Login", 24, 64, 50, 17)
$Label3 = GUICtrlCreateLabel("Haslo", 24, 120, 50, 17)
$Label4 = GUICtrlCreateLabel("Port", 24, 176, 150, 17)
$Input1 = GUICtrlCreateInput("", 24, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 24, 88, 121, 21)
$Input3 = GUICtrlCreateInput("", 24, 144, 121, 21)
$Input4 = GUICtrlCreateInput("", 24, 200, 121, 21)
$Button1 = GUICtrlCreateButton("Polacz", 24, 232, 185, 49, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zmien Bony", 72, 232, 353, 81, $WS_GROUP)
GUICtrlSetState(-1, $GUI_HIDE)
$Label5 = GUICtrlCreateLabel("Wartosc 1 Bonu", 224, 8, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$Input5 = GUICtrlCreateInput("", 224, 32, 121, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Label6 = GUICtrlCreateLabel("Wartosc 2 Bonu", 224, 64, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$Input6 = GUICtrlCreateInput("", 224, 88, 121, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Label7 = GUICtrlCreateLabel("Wartosc 3 Bonu", 224, 120, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$Input7 = GUICtrlCreateInput("", 224, 144, 121, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Button3 = GUICtrlCreateButton("Pomoc", 432, 16, 65, 265, $WS_GROUP)
GUICtrlSetState(-1, $GUI_HIDE)
$Button4 = GUICtrlCreateButton("Wyjdz", 120, 344, 257, 81, $WS_GROUP)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$IP = GUICtrlRead($Input1)
$Login = GUICtrlRead($Input2)
$Haslo = GUICtrlRead($Input3)
$Port = GUICtrlRead($Input4)
If $IP = "" Or $Login = "" Or $Haslo = "" Or $Port = "" Then
MsgBox(64, "Blad", "Przed polaczeniem uzupelnij wszystkie dane!")
Else
$a = _MySQLConnect($Login, $Haslo, "player", $IP, "{MySQL ODBC 5.1 Driver}", $Port)
If $a <> 0 Then
MsgBox(64, "Udalo sie!", "Polaczenie Udane!")
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_SHOW)
GUICtrlSetState($Button3, $GUI_SHOW)
GUICtrlSetState($Button4, $GUI_SHOW)
GUICtrlSetState($Label5, $GUI_SHOW)
GUICtrlSetState($Label6, $GUI_SHOW)
GUICtrlSetState($Label7, $GUI_SHOW)
GUICtrlSetState($Input5, $GUI_SHOW)
GUICtrlSetState($Input6, $GUI_SHOW)
GUICtrlSetState($Input7, $GUI_SHOW)
GUICtrlSetData($Label1, "ID 1 Bonu")
GUICtrlSetData($Label2, "ID 2 Bonu")
GUICtrlSetData($Label3, "ID 3 Bonu")
GUICtrlSetData($Label4, "Vnum Przedmiotu do zmiany")
Else
MsgBox(64, "Blad", "Nie udalo sie polaczyc!")
EndIf
EndIf
Case $Button4
Exit
Case $Button2
$1 = GUICtrlRead($Input5)
$2 = GUICtrlRead($Input6)
$3 = GUICtrlRead($Input7)
$1b = GUICtrlRead($Input1)
$2b = GUICtrlRead($Input2)
$3b = GUICtrlRead($Input3)
$vnum = GUICtrlRead($Input4)
If $1 = "" Or $2 = "" Or $3 = "" Or $1b = "" Or $2b = "" Or $3b = "" Or $vnum = "" Then
MsgBox(64, "Blad", "Napierw uzupelnij wszystkie pola")
Else
$q = "UPDATE item_proto SET applytype0='" & $1b & "', applyvalue0='" & $1 & "', applytype1='" & $2b & "', applyvalue1='" & $2 & "'" & ", applytype2='" & $3b & "', applyvalue2='" & $3 & "'" & " WHERE vnum='" & $vnum & "'" & ";"
MsgBox(64, "fasfa", $q)
_Query($a, $q)
MsgBox(64, "Sukces", "Bony zmienione pomyslnie!")
EndIf
EndSwitch
WEnd

 

Dl w zalaczniku + include mysql.au3

PISZE ROWNIEZ WERSJE BETA, KTÓRA BEDZIE MIALA WIELE NOWYCH FUNKCJI (to jest wersja v1)

BonusEditor.rar

[Ziomek*17]

Good job. Na pewno się przyda Like It

[Terenzo.]

Mam dla cb sherer pomysł...

Do tego mógłbyś dodać opcje żeby np zmieniało w broni czy zbroji

bony od +O do +9 ale automatycznie, tzn wpisuje np id broni +0 i +9

obok ustawiam wartość bonu jaki ma być od +0 do +9 i o ile

ma się zwiększać itd (coś w stylu item maker'a)

[sherer]

Dodałem UDF do paczki

[SDeath]

Nie rozumiem do czego służy ten program. Z całego tematu wiem tylko ze zmienia bony..

[Katien]

Dało by radę skołować jakiegoś SS ?

[Lyons]

Z tego co się domyślam to program wyszukuje w item_proto

$q = "UPDATE item_proto SET

Danego itemu dany bon.

 

Czyli podasz id poty i program automatycznie zmienia np 1 bon czyli regeneracje hp.

 

Dobre dla osób mało doświadczonych lecz z czasem wychodzi tam samo jak ręcznie a nawet może jeszcze wolniej

[old_kwiatosz]

O, to jest coś lepszego

Sheru widzę, że w au3 już koxisz =)

Programik przydatny, ale trzeba zresetować mysql żeby mieć zmienione bony :<

[Marcuśny]

Czyli to jest do robienia wybranych bonow do wybranej broni/zbroji tak?

 

Jak tak to nie lepszy panel bambusa? przynajmniej nie trzeba resetowac^^

 

@ edit no chyba ze to do robienia stałych bonusow to pobiorę

[Terenzo.]

Ten program zmienia stałe bony na jakie chesz...

 

[SDeath]

To powie mi ktoś wkoncu do czego ten program?

[Lyons]

@UP:

 

Zmienia stałe bony w itemie, czyli np masz zbroje odp na magie to mozesz sobie zamienic to na np sile lub atak

 

Ps napisz do mnie na gg 2343702. Ważna sprawa, być może masz moją starą postać na dragonmt2 spinners :P