evt arkadaşlar ilk öncelikle şunu yapaıyoruz...
HP
MP
Vigor
Pill
Anti State
Anti Stealth içindir...şimdi ..öncelikle sremuyu visual ile modgame serveri açıyoruz ardındanda ctrl+f ye basıyoruz find yerinede "Select Case sOpcode" bunu yazıyoruz buluyor ardındanda altına bunları yapıştırıyoruz
Case "75BD" ' Handle Pottings
HandlePot index, sData
onun altınada bunları yapıştırıyoruz ..
Public Function HandlePot(index As Integer, data As String)
Dim psize As String
Dim tslot As String
Dim pottype As Integer
Dim potcount As Integer
Dim newpot As Integer
Dim laenge As Integer
Dim potsave As String
Rem ==== Check if its HP Pots ====
If Right$(data, 4) = "EC08" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its MP Pots ====
If Right$(data, 4) = "EC10" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its Vigor Pots ====
If Right$(data, 4) = "EC18" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its UniPil Pots ====
If Right$(data, 4) = "6C31" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its AntiState Pots ====
If Right$(data, 4) = "6C09" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
psize = Inverse(psize) & "0000"
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its AntiStealth Pots ====
If Right$(data, 4) = "EC0E" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
psize = Inverse(psize) & "0000"
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
fData = "4934"
fData = fData & "0000"
fData = fData & PlayerData(index).CharID
fData = fData & psize
pLen = (Len(fData) - Cool / 2
fData = WordFromInteger(pLen) & fData
For i = 1 To UBound(PlayerData)
If PlayerData(i).Ingame = True Then
frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
End If
Next i
End Function
şimdide olay bukadar işte bunlarda itemleri çıkartmakl için gerekli olan kodlar iyi oyunlar ayrıca benmle hamachiden oynarsanız pvpde olmuştur olay budur
iyi eylenceler ..işte kodlar..
4 ITEM_ETC_HP_POTION_01
5 ITEM_ETC_HP_POTION_02
6 ITEM_ETC_HP_POTION_03
7 ITEM_ETC_HP_POTION_04
8 ITEM_ETC_HP_POTION_05
9 ITEM_ETC_HP_SPOTION_01
(MP)
11 ITEM_ETC_MP_POTION_01
12 ITEM_ETC_MP_POTION_02
13 ITEM_ETC_MP_POTION_03
14 ITEM_ETC_MP_POTION_04
15 ITEM_ETC_MP_POTION_05
16 ITEM_ETC_MP_SPOTION_01
(Vigor)
18 ITEM_ETC_ALL_POTION_01
19 ITEM_ETC_ALL_POTION_02
20 ITEM_ETC_ALL_POTION_03
21 ITEM_ETC_ALL_POTION_04
22 ITEM_ETC_ALL_POTION_05
23 ITEM_ETC_ALL_SPOTION_01
(Pill)
55 ITEM_ETC_CURE_ALL_01
56 ITEM_ETC_CURE_ALL_02
57 ITEM_ETC_CURE_ALL_03
58 ITEM_ETC_CURE_ALL_04
(Anti State)
10368 ITEM_ETC_CURE_RANDOM_01
10369 ITEM_ETC_CURE_RANDOM_02
10370 ITEM_ETC_CURE_RANDOM_03
10371 ITEM_ETC_CURE_RANDOM_04
(Anti Stealth)
10372 ITEM_ETC_DETECT_01
10373 ITEM_ETC_DETECT_02
10374 ITEM_ETC_DETECT_03
10375 ITEM_ETC_DETECT_04
......EMEĞE SAYGI.....alıntı değildir kendi elcağazlarımla yaptım ayrıca benm serverde sremu değil prevate olmuştur artık siz ne derseniz diyyin ama yaratıklar toplu çıkabiliyor yani ben çıkartıyorum ayrıca sana yani onune gelene saldırabiliyor ayrıca unquelerin yanında elitler titanslar flnda çıkıyor npcler eklendi ayrıca avrupalılarda var ve en önemliside PVP yapılabiliyor jamachiden benmle oynamak istiyenler..ağ adı=TCTURKEY........pw=tctc dir görüşmek üzere..
HP
MP
Vigor
Pill
Anti State
Anti Stealth içindir...şimdi ..öncelikle sremuyu visual ile modgame serveri açıyoruz ardındanda ctrl+f ye basıyoruz find yerinede "Select Case sOpcode" bunu yazıyoruz buluyor ardındanda altına bunları yapıştırıyoruz
Case "75BD" ' Handle Pottings
HandlePot index, sData
onun altınada bunları yapıştırıyoruz ..
Public Function HandlePot(index As Integer, data As String)
Dim psize As String
Dim tslot As String
Dim pottype As Integer
Dim potcount As Integer
Dim newpot As Integer
Dim laenge As Integer
Dim potsave As String
Rem ==== Check if its HP Pots ====
If Right$(data, 4) = "EC08" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its MP Pots ====
If Right$(data, 4) = "EC10" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its Vigor Pots ====
If Right$(data, 4) = "EC18" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its UniPil Pots ====
If Right$(data, 4) = "6C31" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
laenge = Len(psize)
If laenge = 2 Then
psize = psize & "000000"
Else
psize = "0" & psize & "000000"
End If
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its AntiState Pots ====
If Right$(data, 4) = "6C09" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
psize = Inverse(psize) & "0000"
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
Rem ==== Check if its AntiStealth Pots ====
If Right$(data, 4) = "EC0E" Then
tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
Rem Set Pot size
psize = Hex$(pottype)
psize = Inverse(psize) & "0000"
Rem =============
newpot = potcount - 1 'calculate new pot amount
potsave = newpot
If newpot = 0 Then
iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
Else
iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
End If
End If
Rem ==============================
fData = "4934"
fData = fData & "0000"
fData = fData & PlayerData(index).CharID
fData = fData & psize
pLen = (Len(fData) - Cool / 2
fData = WordFromInteger(pLen) & fData
For i = 1 To UBound(PlayerData)
If PlayerData(i).Ingame = True Then
frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
End If
Next i
End Function
şimdide olay bukadar işte bunlarda itemleri çıkartmakl için gerekli olan kodlar iyi oyunlar ayrıca benmle hamachiden oynarsanız pvpde olmuştur olay budur
iyi eylenceler ..işte kodlar..4 ITEM_ETC_HP_POTION_01
5 ITEM_ETC_HP_POTION_02
6 ITEM_ETC_HP_POTION_03
7 ITEM_ETC_HP_POTION_04
8 ITEM_ETC_HP_POTION_05
9 ITEM_ETC_HP_SPOTION_01
(MP)
11 ITEM_ETC_MP_POTION_01
12 ITEM_ETC_MP_POTION_02
13 ITEM_ETC_MP_POTION_03
14 ITEM_ETC_MP_POTION_04
15 ITEM_ETC_MP_POTION_05
16 ITEM_ETC_MP_SPOTION_01
(Vigor)
18 ITEM_ETC_ALL_POTION_01
19 ITEM_ETC_ALL_POTION_02
20 ITEM_ETC_ALL_POTION_03
21 ITEM_ETC_ALL_POTION_04
22 ITEM_ETC_ALL_POTION_05
23 ITEM_ETC_ALL_SPOTION_01
(Pill)
55 ITEM_ETC_CURE_ALL_01
56 ITEM_ETC_CURE_ALL_02
57 ITEM_ETC_CURE_ALL_03
58 ITEM_ETC_CURE_ALL_04
(Anti State)
10368 ITEM_ETC_CURE_RANDOM_01
10369 ITEM_ETC_CURE_RANDOM_02
10370 ITEM_ETC_CURE_RANDOM_03
10371 ITEM_ETC_CURE_RANDOM_04
(Anti Stealth)
10372 ITEM_ETC_DETECT_01
10373 ITEM_ETC_DETECT_02
10374 ITEM_ETC_DETECT_03
10375 ITEM_ETC_DETECT_04
......EMEĞE SAYGI.....alıntı değildir kendi elcağazlarımla yaptım ayrıca benm serverde sremu değil prevate olmuştur artık siz ne derseniz diyyin ama yaratıklar toplu çıkabiliyor yani ben çıkartıyorum ayrıca sana yani onune gelene saldırabiliyor ayrıca unquelerin yanında elitler titanslar flnda çıkıyor npcler eklendi ayrıca avrupalılarda var ve en önemliside PVP yapılabiliyor jamachiden benmle oynamak istiyenler..ağ adı=TCTURKEY........pw=tctc dir görüşmek üzere..