|
You last visited: Today at 07:43
Advertisement
[Request ] How i can add item in DB & Media.PK2...
Discussion on [Request ] How i can add item in DB & Media.PK2... within the SRO Private Server forum part of the Silkroad Online category.
10/08/2011, 13:49
|
#1
|
elite*gold: 0 
Join Date: Apr 2008
Posts: 154
Received Thanks: 12
|
[Request ] How i can add item in DB & Media.PK2...
hey Guys my Request is :
1- how can i add Item Like [Vigor] in Shop.
2- how can i add Quest Like [Knight/Baronet/Captin/General/etc...
3- how can i make RegPage With iis and mad it work i need Guide For this with hamachi. >> Important <<
4- how can i add my ip in my media.pk2 with out damage client.
really i need help guys plz ^^
any help ????
|
|
|
|
10/10/2011, 09:32
|
#2
|
elite*gold: 0
Join Date: Feb 2008
Posts: 71
Received Thanks: 10
|
Quote:
Originally Posted by JENZO
[COLOR="Blue"][B]hey Guys my Request is :
4- how can i add my ip in my media.pk2 with out damage client.
|
PK2tools for ur client (search at forum)
and a tool by lolkop Divisioninfo editor ( also search, i cant upload it now.)
|
|
|
|
|
10/10/2011, 15:13
|
#3
|
elite*gold: 0
Join Date: Apr 2008
Posts: 154
Received Thanks: 12
|
Quote:
Originally Posted by vitalik123
PK2tools for ur client (search at forum)
and a tool by lolkop Divisioninfo editor ( also search, i cant upload it now.)
|
plz upload or give me the link if u can coz i cant find anythink at forum.
|
|
|
|
|
10/10/2011, 22:35
|
#4
|
elite*gold: 0
Join Date: May 2008
Posts: 58
Received Thanks: 2
|
You cant only edit media.pk you need edit shops on DB too
|
|
|
|
|
10/11/2011, 16:38
|
#5
|
elite*gold: 0
Join Date: Apr 2008
Posts: 154
Received Thanks: 12
|
Quote:
Originally Posted by r4full
You cant only edit media.pk you need edit shops on DB too
|
like what in DB ?
shops ???
|
|
|
|
|
10/13/2011, 00:46
|
#6
|
elite*gold: 0
Join Date: Feb 2008
Posts: 71
Received Thanks: 10
|
division info editor, compile using AutoIt and use.
btw author is lolkop
PHP Code:
Dim $file, $divisions[0xFF][0xFF]
$gui = GUICreate('Divisioninfo Editor', 400, 220)
$divisionList = GUICtrlCreateList('', 10, 10, 180, 150)
$serverList = GUICtrlCreateList('', 200, 10, 190, 150)
$addDivision = GUICtrlCreateButton('Add Division', 10, 160, 90, 20)
$delDivision = GUICtrlCreateButton('Del Division', 100, 160, 90, 20)
$addServer = GUICtrlCreateButton('Add Server', 200, 160, 95, 20)
$delServer = GUICtrlCreateButton('Del Server', 295, 160, 95, 20)
$open = GUICtrlCreateButton('Open Divisioninfo', 10, 185, 180, 25)
$save = GUICtrlCreateButton('Save Divisioninfo', 200, 185, 190, 25)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $open
$file = FileSaveDialog('Divisioninfo.txt', Default, 'Divisioninfo (DIVISIONINFO.TXT)', 1, 'DIVISIONINFO.TXT', $gui)
If $file<>'' Then
$fileHwnd = FileOpen($file, 16)
$locale = FileRead($fileHwnd, 1)
$numberOfDivisions = Int(FileRead($fileHwnd, 1))
For $division=1 To $numberOfDivisions
$lengthOfDivisionName = Int(FileRead($fileHwnd, 4))
$divisionName = BinaryToString(FileRead($fileHwnd, $lengthOfDivisionName))
GUICtrlSetData($divisionList, $divisionName)
$divisions[$division][0] = $divisionName
FileRead($fileHwnd, 1)
$numberOfServers = Int(FileRead($fileHwnd, 1))
For $server=1 To $numberOfServers
$lengthOfServerAdress = Int(FileRead($fileHwnd, 4))
$serverAdress = BinaryToString(FileRead($fileHwnd, $lengthOfServerAdress))
$divisions[$division][$server] = $serverAdress
FileRead($fileHwnd, 1)
Next
Next
FileClose($fileHwnd)
EndIf
Case $divisionList
GUICtrlSetData($serverList, '')
$div = 0
For $div=1 To 0xFE
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0 Then
For $serv=1 To 0xFE
If $divisions[$div][$serv] <> '' Then GUICtrlSetData($serverList, $divisions[$div][$serv])
Next
EndIf
Case $addServer
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
Else
$newAdress = InputBox('Server', 'Enter the Serveradress here', '')
If $newAdress<>'' Then
For $div=1 To 0xFF
If $div = 0xFF Then ExitLoop
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0xFF Then
For $serv=1 To 0xFF
If $serv = 0xFF Then ExitLoop
If $divisions[$div][$serv] = '' Then ExitLoop
Next
EndIf
If $serv <> 0xFF Then
$divisions[$div][$serv] = $newAdress
GUICtrlSetData($serverList, $newAdress)
EndIf
EndIf
EndIf
Case $addDivision
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
Else
$newDivision = InputBox('Division', 'Enter the Divisionname here', '')
If $newDivision<>'' Then
For $div=1 To 0xFE
If $divisions[$div][0] = '' Then
$divisions[$div][0] = $newDivision
GUICtrlSetData($divisionList, $newDivision)
GUICtrlSetData($serverList, '')
ExitLoop
EndIf
Next
EndIf
EndIf
Case $delDivision
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
Else
For $div=1 To 0xFE
If $divisions[$div][0] = GUICtrlRead($divisionList) Then
For $i=0 To 0xFE
$divisions[$div][$i] = ''
Next
EndIf
Next
EndIf
GUICtrlSetData($divisionList, '')
GUICtrlSetData($serverList, '')
For $i=1 To 0xFE
If $divisions[$i][0] <> '' Then GUICtrlSetData($divisionList, $divisions[$i][0])
Next
Case $delServer
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
ElseIf GUICtrlRead($serverList) = '' Then
MsgBox(0, 'Error', 'Select a Server Fist!')
Else
For $div=1 To 0xFF
If $div = 0xFF Then ExitLoop
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0xFF Then
For $serv=1 To 0xFF
If $serv = 0xFF Then ExitLoop
If $divisions[$div][$serv] = GUICtrlRead($serverList) Then
$divisions[$div][$serv] = ''
EndIf
Next
EndIf
EndIf
GUICtrlSetData($serverList, '')
For $i=1 To 0xFE
If $divisions[$div][$i] <> '' Then GUICtrlSetData($serverList, $divisions[$div][$i])
Next
Case $save
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
Else
FileMove($file, StringTrimRight($file, 16)&'BACKUP_DIVISIONINFO.TXT',8)
$newFile = FileOpen($file, 18)
FileWrite($newFile, $locale)
$divNr = 0
For $i=1 To 0xFE
If $divisions[$i][0]<>'' Then $divNr+=1
Next
FileWrite($newFile, BinaryMid(Binary($divNr), 1, 1))
For $i=1 To 0xFE
If $divisions[$i][0]<>'' Then
FileWrite($newFile, Binary(StringLen($divisions[$i][0])))
FileWrite($newFile, StringToBinary($divisions[$i][0]))
FileWrite($newFile, BinaryMid(Binary(0), 1, 1))
$servNr = 0
For $h=1 To 0xFE
If $divisions[$i][$h]<>'' Then $servNr+=1
Next
FileWrite($newFile, BinaryMid(Binary($servNr), 1, 1))
For $h=1 To 0xFE
If $divisions[$i][$h]<>'' Then
FileWrite($newFile, Binary(StringLen($divisions[$i][$h])))
FileWrite($newFile, StringToBinary($divisions[$i][$h]))
FileWrite($newFile, BinaryMid(Binary(0), 1, 1))
EndIf
Next
EndIf
Next
FileClose($newFile)
MsgBox(0,'Info', 'The Divisioninfo has been saved!')
EndIf
EndSwitch
WEnd
|
|
|
|
|
10/13/2011, 16:46
|
#7
|
elite*gold: 0
Join Date: Apr 2008
Posts: 154
Received Thanks: 12
|
Quote:
Originally Posted by vitalik123
division info editor, compile using AutoIt and use.
btw author is lolkop
PHP Code:
Dim $file, $divisions[0xFF][0xFF]
$gui = GUICreate('Divisioninfo Editor', 400, 220)
$divisionList = GUICtrlCreateList('', 10, 10, 180, 150)
$serverList = GUICtrlCreateList('', 200, 10, 190, 150)
$addDivision = GUICtrlCreateButton('Add Division', 10, 160, 90, 20)
$delDivision = GUICtrlCreateButton('Del Division', 100, 160, 90, 20)
$addServer = GUICtrlCreateButton('Add Server', 200, 160, 95, 20)
$delServer = GUICtrlCreateButton('Del Server', 295, 160, 95, 20)
$open = GUICtrlCreateButton('Open Divisioninfo', 10, 185, 180, 25)
$save = GUICtrlCreateButton('Save Divisioninfo', 200, 185, 190, 25)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $open
$file = FileSaveDialog('Divisioninfo.txt', Default, 'Divisioninfo (DIVISIONINFO.TXT)', 1, 'DIVISIONINFO.TXT', $gui)
If $file<>'' Then
$fileHwnd = FileOpen($file, 16)
$locale = FileRead($fileHwnd, 1)
$numberOfDivisions = Int(FileRead($fileHwnd, 1))
For $division=1 To $numberOfDivisions
$lengthOfDivisionName = Int(FileRead($fileHwnd, 4))
$divisionName = BinaryToString(FileRead($fileHwnd, $lengthOfDivisionName))
GUICtrlSetData($divisionList, $divisionName)
$divisions[$division][0] = $divisionName
FileRead($fileHwnd, 1)
$numberOfServers = Int(FileRead($fileHwnd, 1))
For $server=1 To $numberOfServers
$lengthOfServerAdress = Int(FileRead($fileHwnd, 4))
$serverAdress = BinaryToString(FileRead($fileHwnd, $lengthOfServerAdress))
$divisions[$division][$server] = $serverAdress
FileRead($fileHwnd, 1)
Next
Next
FileClose($fileHwnd)
EndIf
Case $divisionList
GUICtrlSetData($serverList, '')
$div = 0
For $div=1 To 0xFE
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0 Then
For $serv=1 To 0xFE
If $divisions[$div][$serv] <> '' Then GUICtrlSetData($serverList, $divisions[$div][$serv])
Next
EndIf
Case $addServer
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
Else
$newAdress = InputBox('Server', 'Enter the Serveradress here', '')
If $newAdress<>'' Then
For $div=1 To 0xFF
If $div = 0xFF Then ExitLoop
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0xFF Then
For $serv=1 To 0xFF
If $serv = 0xFF Then ExitLoop
If $divisions[$div][$serv] = '' Then ExitLoop
Next
EndIf
If $serv <> 0xFF Then
$divisions[$div][$serv] = $newAdress
GUICtrlSetData($serverList, $newAdress)
EndIf
EndIf
EndIf
Case $addDivision
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
Else
$newDivision = InputBox('Division', 'Enter the Divisionname here', '')
If $newDivision<>'' Then
For $div=1 To 0xFE
If $divisions[$div][0] = '' Then
$divisions[$div][0] = $newDivision
GUICtrlSetData($divisionList, $newDivision)
GUICtrlSetData($serverList, '')
ExitLoop
EndIf
Next
EndIf
EndIf
Case $delDivision
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
Else
For $div=1 To 0xFE
If $divisions[$div][0] = GUICtrlRead($divisionList) Then
For $i=0 To 0xFE
$divisions[$div][$i] = ''
Next
EndIf
Next
EndIf
GUICtrlSetData($divisionList, '')
GUICtrlSetData($serverList, '')
For $i=1 To 0xFE
If $divisions[$i][0] <> '' Then GUICtrlSetData($divisionList, $divisions[$i][0])
Next
Case $delServer
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
ElseIf GUICtrlRead($divisionList) = '' Then
MsgBox(0, 'Error', 'Select a Division First')
ElseIf GUICtrlRead($serverList) = '' Then
MsgBox(0, 'Error', 'Select a Server Fist!')
Else
For $div=1 To 0xFF
If $div = 0xFF Then ExitLoop
If $divisions[$div][0] = GUICtrlRead($divisionList) Then ExitLoop
Next
If $div <> 0xFF Then
For $serv=1 To 0xFF
If $serv = 0xFF Then ExitLoop
If $divisions[$div][$serv] = GUICtrlRead($serverList) Then
$divisions[$div][$serv] = ''
EndIf
Next
EndIf
EndIf
GUICtrlSetData($serverList, '')
For $i=1 To 0xFE
If $divisions[$div][$i] <> '' Then GUICtrlSetData($serverList, $divisions[$div][$i])
Next
Case $save
If $file='' Then
MsgBox(0, 'Error', 'Open the Divisioninfo first!')
Else
FileMove($file, StringTrimRight($file, 16)&'BACKUP_DIVISIONINFO.TXT',8)
$newFile = FileOpen($file, 18)
FileWrite($newFile, $locale)
$divNr = 0
For $i=1 To 0xFE
If $divisions[$i][0]<>'' Then $divNr+=1
Next
FileWrite($newFile, BinaryMid(Binary($divNr), 1, 1))
For $i=1 To 0xFE
If $divisions[$i][0]<>'' Then
FileWrite($newFile, Binary(StringLen($divisions[$i][0])))
FileWrite($newFile, StringToBinary($divisions[$i][0]))
FileWrite($newFile, BinaryMid(Binary(0), 1, 1))
$servNr = 0
For $h=1 To 0xFE
If $divisions[$i][$h]<>'' Then $servNr+=1
Next
FileWrite($newFile, BinaryMid(Binary($servNr), 1, 1))
For $h=1 To 0xFE
If $divisions[$i][$h]<>'' Then
FileWrite($newFile, Binary(StringLen($divisions[$i][$h])))
FileWrite($newFile, StringToBinary($divisions[$i][$h]))
FileWrite($newFile, BinaryMid(Binary(0), 1, 1))
EndIf
Next
EndIf
Next
FileClose($newFile)
MsgBox(0,'Info', 'The Divisioninfo has been saved!')
EndIf
EndSwitch
WEnd
|
thx bro but im Really idk what i can do with this cod's ^^
|
|
|
|
|
10/15/2011, 10:14
|
#8
|
elite*gold: 0
Join Date: Feb 2010
Posts: 307
Received Thanks: 48
|
Download AutoIt
Install it
Compile the code 
|
|
|
|
Similar Threads
|
[Request ] How i can add item in DB & Media.PK2...
10/08/2011 - SRO Private Server - 1 Replies
hey Guys my Request is :
1- how can i add Item Like in Shop.
2- how can i add Quest Like
any help
|
Media PK2 ITEM Deg 10 SwSRO !
06/19/2010 - SRO PServer Guides & Releases - 14 Replies
I have completed a full copy of the modified media.PK2 SwSRO with the change from item to item D10 item D9
only apply to D9 item, change item icon within the box characters!
Applies to version SwSRO 2.021
this is the first picture, because I can not sever the CHECK condition soon after, I will continue to complete
for all glavie, bow, sword, blade, spear, shield ^ ^!
download here : http://s20.galaxyz.net/data/7240414543464444/Media SWSro D10.rar.glx
or in rapidshare :...
|
[Request]How to Change Item Colour or selected item when use lootalarm
05/14/2010 - 12Sky2 - 0 Replies
ex1.
item is rare colour i want to change to elite colour.
ex2.
item is rare but i don't want it then no alarm.
|
All times are GMT +1. The time now is 07:43.
|
|
![[Request ] How i can add item in DB & Media.PK2...](https://www.elitepvpers.com/forum/iconimages/sro-private-server/request-how-i-can-add-item-db-media-pk2_ltr.gif){kind=small}
