[ALL]Item Level

por V-Force Sex 03 Dez 2010, 23:22

Item Level - Att. SkyNetwork

.::Descrição::.
•Funciona ao o player tentar equipar ou usar o Item,se ele tiver o level XX que você configurou no Item Editor ele poderá ultiliza-lo

.::Requerimentos::.
•Programação 4/5
•Ter um PC(Capitão Obvio)
•Ser Humano(Capitão Obvio²)
•Ser Brasileiro(Folgado)

.::Tutorial::.
(Client Side)

1º - No frmItemEditor crie um HScroll com o seguinte padrão

Código:: (Name) = ScrlLevel (Min) = 1

2º - Agora clique duas vezes na frmItemEditor e na sub Form_Load adicione o seguinte CODE

Código:: ' > Scrl Max para Max_Level < ScrlLevel.Max = MAX_LEVEL

3º - Agora va no modGameLogic e na sub ItemEditorIni adicione em algum canto:

Código:: '> ScrlLevel por Item Level < frmItemEditor.ScrlLevel.Value = Item(EditorIndex).Level

4º - Ainda no modGameLogic na sub ItemEditorOk coloque o seguinte codigo:

Código:
'> Item Level é o ScrlLevel < [/i]Item(EditorIndex).Level = frmItemEditor.ScrlLevel.Value

[i]5º - Vá no modTypes procure por ItemRec e adicione o seguinte CODE em algum canto =)

Código:
'> Level < Level As Long

6º - Agora va no modClientTCP e procure pela sub SendSaveItem
e substitua o code todo por esse

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

(Client Side Finalized)
(Server Side Inicialized)

1º - Vá no modTypes procure por ItemRec e adicione o seguinte CODE em algum canto =)
Sim Repetide o Penultimo passo do Client Side

Código:: '> Level < Level As Long

2º - Procure por "UseItem" e Antes do case
Case ITEM_TYPE_WEAPON
adicione

Código:: 'Dim's for As Long Dim Level As Long 'Functions for Dim's Level = Item(GetPlayerInvItemNum(Index, InvNum)).Level If GetPlayerLevel(Index) >= Level then

3º - Ainda na "UseItem" no final dela antes do Exit Sub adicione

Código:: 'End If do Level Item End If

4º - Procure por "SAVEITEM" e abaixo de Item(N).AttackSpeed = Val(Parse(23)) adicione

Código:: 'Packet do Level Item Item(N).Level = Val(Parse(24))

(Server Side Finalized)

.::Recomendações::.
•Sempre faça um Backup para que quando aconteça algum erro,não tenha perigo perder seu projeto

.::Créditos::.
•SkyNetwork(Por Fazer o Tutorial)
•MMORPGBR(Por deixar postar o tutorial)

por Lucas Lôpo Sáb 04 Dez 2010, 06:20

Mas o Guilherme eu acho , fez um tuto desse aqui.

por V-Force Sáb 04 Dez 2010, 09:17

Sim ele fez um mas não tva funfando porque ele fez uma parte soh do cleint,e falto algumas coisas ainda

por Cris~ Sáb 04 Dez 2010, 09:21

Boa + 1 De Cred

por Lucas Roberto Sáb 04 Dez 2010, 09:29

Bom e não testei mais eu dei uma olhadinha achu que nao vai ter nehum problema

bom ja vou adiantando seu credito

+1 ae

voce esta fazendo um belo trabalho no forum

por Lucas Lôpo Sáb 04 Dez 2010, 10:27

SkyNetwork escreveu:Sim ele fez um mas não tva funfando porque ele fez uma parte soh do cleint,e falto algumas coisas ainda

Hum..Entendo , nem reparei no codigo.

por Gu1lh3rm3 Qua 08 Dez 2010, 07:24

tem um error ae Wink

... mais como sou bomzinho vou arrumar!

por gin Sáb 18 Dez 2010, 08:42

E eu testei e não consigo entrar no editor de Iten da um erro 385 eu acho, gulher eiz ai se e isso xD to prescisando desse sistema, se possivel Very Happy

por SkyZero Sáb 18 Dez 2010, 09:20

º - Agora clique duas vezes na frmItemEditor e na sub Form_Load adicione o seguinte CODE

CÓDIGO:

' > Scrl Max para Max_Level <
ScrlLevel.Max = MAX_LEVEL

da erro ali em MAX_LEVEL data alguma coisa

por St4rk Sáb 18 Dez 2010, 09:36

Acho sem utilidade, se é apenas o level do item...

por mmorpgelysium Sáb 02 Jun 2012, 16:16

Como o SkyZero falou , dá o mesmo erro aqui , ai eu tirei essa parte ( na maior burrice) achando que iria funcionar mais da um erro " Invalid Propiety Value 385 " e fecha o game, o item salva mais o game fecha e não fica tipo eu coloco pra so level 300, ai qualquer level pode usar ¬¬' se alguém for bonzinho e me ajudar eu agradeço

por V-Force Sáb 02 Jun 2012, 17:01

kra olha a data do ultimo post("Sab 18 Dez 2010, 12:36")... não fique revivendo tópico

Tópico trancado.

por Conteúdo patrocinado

[ALL]Item Level

[ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level

Re: [ALL]Item Level