Não dropar certos itens

bom pessoal ja vi muitas pessoas pedindo isso, intão resolvi fazer 1 ! ... vamos lá!
Client~Side
abra a frmItemEditor e crie uma CheckBox com o nome de

Citação :

chkBound

certo,agora proucure por

Citação :

Sub DropItems()

mude a sub inteira por

Citação :

Sub DropItems()
Dim InvNum As Long
Dim GoldAmount As String
On Error GoTo Done
If Inventory <= 0 Then Exit Sub

InvNum = Inventory
If GetPlayerInvItemNum(MyIndex, InvNum) > 0 And GetPlayerInvItemNum(MyIndex, InvNum) <= MAX_ITEMS Then
If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Bound = 0 Then
If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
GoldAmount = InputBox("How much " & Trim(Item(GetPlayerInvItemNum(MyIndex, InvNum)).Name) & "(" & GetPlayerInvItemValue(MyIndex, InvNum) & ") would you like to drop?", "Drop " & Trim(Item(GetPlayerInvItemNum(MyIndex, InvNum)).Name), 0, frmMirage.Left, frmMirage.Top)
If IsNumeric(GoldAmount) Then
Call SendDropItem(InvNum, GoldAmount)
End If
Else
Call SendDropItem(InvNum, 0)
End If
End If
End If

picInv(InvNum - 1).Picture = LoadPicture()
Call UpdateVisInv
Exit Sub
done:
If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
MsgBox "The variable cant handle that amount!"
End If
End Sub

agora proucure por

Citação :

AttackSpeed As Long

abaixo adicione

Citação :

Bound As Long

agora procure por

Citação :

Item(Index).AttackSpeed = 1000

abaixo adicione

Citação :

Item(Index).Bound = 0

agora proucure por

Citação :

frmItemEditor.cmbType.ListIndex = Item(EditorIndex).Type

abaixo você adicione

Citação :

frmItemEditor.chkBound.Value = Item(EditorIndex).Bound

agora proucure por

Citação :

Item(EditorIndex).Type = frmItemEditor.cmbType.ListIndex

abaixo adicione

Citação :

Item(EditorIndex).Bound = frmItemEditor.chkBound.Value

agora proucure por

Citação :

Item(n).AttackSpeed = Val(Parse(23))

abaixo você adiciona

Citação :

Item(n).Bound = Val(Parse(24))

agora proucure por

Citação :

Item(n).AttackSpeed = Val(Parse(23))

abaixo você adiciona

Citação :

Item(n).Bound = Val(Parse(24))

agora proucure por

Citação :

Sub SendSaveItem(ByVal ItemNum As Long)

mude a sub toda por

Citação :

Sub SendSaveItem(ByVal ItemNum As Long)
Dim Packet As String

Packet = "SAVEITEM" & SEP_CHAR & itemnum & SEP_CHAR & Trim(Item(itemnum).Name) & SEP_CHAR & Item(itemnum).pic & SEP_CHAR & Item(itemnum).Type & SEP_CHAR & Item(itemnum).Data1 & SEP_CHAR & Item(itemnum).Data2 & SEP_CHAR & Item(itemnum).Data3 & SEP_CHAR & Item(itemnum).StrReq & SEP_CHAR & Item(itemnum).DefReq & SEP_CHAR & Item(itemnum).SpeedReq & SEP_CHAR & Item(itemnum).MagicReq & SEP_CHAR & Item(itemnum).ClassReq & SEP_CHAR & Item(itemnum).AccessReq & SEP_CHAR
Packet = Packet & Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).desc & SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR & Item(itemnum).Bound
Packet = Packet & SEP_CHAR & END_CHAR
Call SendData(Packet)
End Sub

agora vamos para parte do Server!

Server~Side

proucure por

Citação :

Item(N).AttackSpeed = Val(Parse(23))

abaixo adicione

Citação :

Item(N).Bound = Val(Parse(24))

proucure pela sub

Citação :

Sub SendEditItemTo(ByVal Index As Long, ByVal ItemNum As Long)

mude ela toda para

Citação :

Sub SendEditItemTo(ByVal Index As Long, ByVal ItemNum As Long)
Dim Packet As String

Packet = "EDITITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR & Item(ItemNum).StrReq & SEP_CHAR & Item(ItemNum).DefReq & SEP_CHAR & Item(ItemNum).SpeedReq & SEP_CHAR & Item(ItemNum).MagicReq & SEP_CHAR & Item(ItemNum).ClassReq & SEP_CHAR & Item(ItemNum).AccessReq & SEP_CHAR
Packet = Packet & Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR & Item(ItemNum).Bound
Packet = Packet & SEP_CHAR & END_CHAR
Call SendDataTo(Index, Packet)
End Sub

agora proucure por

Citação :

Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)

mude a sub toda para

Citação :

Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)
Dim Packet As String

'Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR & END_CHAR
Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR & Item(ItemNum).StrReq & SEP_CHAR & Item(ItemNum).DefReq & SEP_CHAR & Item(ItemNum).SpeedReq & SEP_CHAR & Item(ItemNum).MagicReq & SEP_CHAR & Item(ItemNum).ClassReq & SEP_CHAR & Item(ItemNum).AccessReq & SEP_CHAR
Packet = Packet & Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR & Item(ItemNum).Bound
Packet = Packet & SEP_CHAR & END_CHAR
Call SendDataTo(Index, Packet)
End Sub

proucure por

Citação :

Sub SendUpdateItemToAll(ByVal ItemNum As Long)

mude a sub toda para

Citação :

Sub SendUpdateItemToAll(ByVal ItemNum As Long)
Dim Packet As String

'Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR & END_CHAR
Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR & Item(ItemNum).StrReq & SEP_CHAR & Item(ItemNum).DefReq & SEP_CHAR & Item(ItemNum).SpeedReq & SEP_CHAR & Item(ItemNum).MagicReq & SEP_CHAR & Item(ItemNum).ClassReq & SEP_CHAR & Item(ItemNum).AccessReq & SEP_CHAR
Packet = Packet & Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR & Item(ItemNum).Bound
Packet = Packet & SEP_CHAR & END_CHAR
Call SendDataToAll(Packet)
End Sub

agora proucure por

Citação :

AttackSpeed As Long

abaixo coloque

Citação :

Bound As Long

agora proucure por

Citação :

Item(Index).AttackSpeed = 0

abaixo coloque

Citação :

Item(Index).Bound = 0

FIM
Testado & Funciona

Créditos: Gu1lh3rm3