[ALL]Não Dropar certos Items!

por Gu1lh3rm3 Qua 11 Ago 2010, 14:29

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

Código:: chkBound

certo,agora proucure por

Código:: Sub DropItems()

mude a sub inteira por

Código:: 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

Código:: AttackSpeed As Long

abaixo adicione

Código:: Bound As Long

agora procure por

Código:: Item(Index).AttackSpeed = 1000

abaixo adicione

Código:: Item(Index).Bound = 0

agora proucure por

Código:: frmItemEditor.cmbType.ListIndex = Item(EditorIndex).Type

abaixo você adicione

Código:: frmItemEditor.chkBound.Value = Item(EditorIndex).Bound

agora proucure por

Código:: Item(EditorIndex).Type = frmItemEditor.cmbType.ListIndex

abaixo adicione

Código:: Item(EditorIndex).Bound = frmItemEditor.chkBound.Value

agora proucure por

Código:: Item(n).AttackSpeed = Val(Parse(23))

abaixo você adiciona

Código:: Item(n).Bound = Val(Parse(24))

agora proucure por

Código:: Item(n).AttackSpeed = Val(Parse(23))

abaixo você adiciona

Código:: Item(n).Bound = Val(Parse(24))

agora proucure por

Código:: Sub SendSaveItem(ByVal ItemNum As Long)

mude a sub toda por

Código:: 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

Código:: Item(N).AttackSpeed = Val(Parse(23))

abaixo adicione

Código:: Item(N).Bound = Val(Parse(24))

proucure pela sub

Código:: Sub SendEditItemTo(ByVal Index As Long, ByVal ItemNum As Long)

mude ela toda para

Código:: 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

Código:: Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)

mude a sub toda para

Código:: 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

Código:: Sub SendUpdateItemToAll(ByVal ItemNum As Long)

mude a sub toda para

Código:: 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

Código:: AttackSpeed As Long

abaixo coloque

Código:: Bound As Long

agora proucure por

Código:: Item(Index).AttackSpeed = 0

abaixo coloque

Código:: Item(Index).Bound = 0

FIM
Testado & Funciona

Código:: Creditos: Gu1lh3rm3 & MMORPGBR

por Cris~ Qua 11 Ago 2010, 14:30

HeHe +1 De Cred

por Gu1lh3rm3 Qua 11 Ago 2010, 14:31

vlw !

por goldeen Qua 11 Ago 2010, 17:14

Gracias +1

por maykel Qui 12 Ago 2010, 13:23

quando a opção Bound estiver marcada, o item não será dropado?

por Cris~ Qui 12 Ago 2010, 13:26

é,ele n pode dropar ^^

por hornet600 Seg 16 Ago 2010, 14:49

Otimo tutorial Parabens

por igorfla10 Sex 22 Out 2010, 20:59

itens q requer acesso maior ou igual à 1 nao sao dropados é?

por Gu1lh3rm3 Sáb 23 Out 2010, 05:16

os item estilo dbz forces ... se você conpro ele na loja virtual .. para nimguem dropar ele você ativa a chkBound ... e pronto ... nimguem vai conseguir dropar esse item !, apenas com hack O_O...

por igorfla10 Sáb 23 Out 2010, 12:08

saquei...tem uma chk no item editor pra ativar quando for editar o item...
guilherme,esse tutorial ajudou meu vb a reconhecer o .Bound,agora sim o "arrumando stackable e price"vai pegar
vlw +2 pra vc,resolveu 2 problemas em 1 hsuahsuahsua