MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Ajuda]Item com Spell...

Ir para baixo

[Ajuda]Item com Spell... Empty [Ajuda]Item com Spell...

Mensagem por llAliferll Seg 24 Jun 2013, 17:56

O que eu quero fazer é um sistema em que uma espada,Escudo ou Capacete habilite uma Spell ao ser equipada e ao retirar essa Spell seja retirada. Eu comecei pela frmEditor_item e criei uma Frame, 2 Hscroll, 2 Label com os seguintes nomes:

Código:
Frame: frspellitem (Sempre visivel...)
Label1: lblspellopt
Label2: lblspellopt2
Hscroll1: spellscroll1
Hscroll2: spellscroll2
Ficou assim no meu client...
[Ajuda]Item com Spell... 2rut
Terminando isso na Hscroll1 Coloquei este Código:
Código:
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo ErrorHandler
    
    If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
    
    If Len(Trim$(Spell(scrlSpell.value).name)) > 0 Then
        lblspellopt.Caption = "Nome: " & Trim$(Spell(spellscroll1.value).name)
    Else
        lblspellopt.Caption = "Nome: None"
    End If

    Item(EditorIndex).data1 = spellscroll1.value
    
    ' Error handler
    Exit Sub
ErrorHandler:
    HandleError "spellscroll1_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
Na Hscroll2:
Código:
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo ErrorHandler
    
    If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
    
    If Len(Trim$(Spell(scrlSpell.value).name)) > 0 Then
        lblspellopt2.Caption = "Nome: " & Trim$(Spell(spellscroll2.value).name)
    Else
        lblspellopt2.Caption = "Nome: None"
    End If

    Item(EditorIndex).data1 = spellscroll2.value
    
    ' Error handler
    Exit Sub
ErrorHandler:
    HandleError "spellscroll2_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Então acabei me enrolando aqui... Fui ao (~server) porém não sei editar os case ITEM_TYPE a ponto de fazer estas configurações pegar no item escolhido.

Agradeço desde Já Very Happy
llAliferll
llAliferll
Novato
Novato

Mensagens : 49

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos