Como colocar itens requerir leveis e certos itens indropaveis

por yugimoto Sex 21 Dez 2012, 11:45

Galera seguinte eu fiz um totorial de itens requerirem lvl ai salvei deu de boa, criei meu projeto depois fui fazer o de n dropa certos itens e como eles mexem nos mesmos codigos deu conflito e ambos sistemas falharam o link deles são:
requerir lvl para usar: http://www.mmorpgbr.com/t6463-requerimento-de-level-para-usar-item?highlight=itens+requerirem+level

Certos itens indropaveis: http://www.mmorpgbr.com/t2314-allnao-dropar-certos-items?highlight=n+dropar+certos+itens
Gostaria de ter tanto requerimento de lvl para itens como colocar alguns indropaveis quem puder ajudar ficarei grato
+1credito pra quem conseguir essa façanha '-'

por John Locke Sex 21 Dez 2012, 12:26

cara e muito fácil identificar a diferença entre alguns codigos em algumas partes ele pede para publicar, ai em vez de tu excluir a publicação do outro , você coloca abaixo e em outros casos e na pakcet ai você colocaria

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

e logo abaixo

Código:: Item(n).Level = Val(Parse(25))

Lembre-se de mudar o numero , e também tem as packet do no serve Sub SendUpdateItemTo etc... as do item... onde você tem que por as do item level e item nao dropar , que e o SEP_CHAR & Item(ItemNum).Bound junto logo depois o SEP_CHAR & Item(ItemNum).Level , então ao fazer os tutoriais não siga ao pé da letra quando eles mandam substituir a sub inteira, veja bem os codigos que você está colocando para não apagar outros codigos por cima ,assim não ira ter problema com nenhum sistema.

por yugimoto Sex 21 Dez 2012, 19:06

John eu coloquei tds codigos com uma parte do Pack do tutorial de n dropat itens ai ficou assim

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 & 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).Level 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 Packet = Packet & END_CHAR Call SendDataToAll(Packet) End Sub

Não da erro na hora de salvar os codigos no vb6 mas na hora de uasar, n da certo o tutorial de n dropar certos itens e o de requerir level se eu po para requerir lvl 1 passa a ser lvl 100 ajuda ae mam plis

por John Locke Sex 21 Dez 2012, 19:19

Não e para colocar asism , você precisa por assim:

depois do

Código:: & SEP_CHAR & Item(ItemNum).AttackSpeed

você colocaria

Código:: & SEP_CHAR & Item(ItemNum).Bound & SEP_CHAR & Item(ItemNum).Level

claro que tem que ser na ordem que você colocou em outra parte onde tem:

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

ai abaixo colocaria em ordem :

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

isso no client e servidor, onde o tutorial manda adicionar.

por yugimoto Sex 21 Dez 2012, 20:06

Vlw mam mais 1 cred se me ajudo mto vlws

por Conteúdo patrocinado

Como colocar itens requerir leveis e certos itens indropaveis

Como colocar itens requerir leveis e certos itens indropaveis

Re: Como colocar itens requerir leveis e certos itens indropaveis

Re: Como colocar itens requerir leveis e certos itens indropaveis

Re: Como colocar itens requerir leveis e certos itens indropaveis

Re: Como colocar itens requerir leveis e certos itens indropaveis

Re: Como colocar itens requerir leveis e certos itens indropaveis