kawanzii escreveu:Legal, tudo tão bem feito '-'
só faltou uma coisa

Suspense:

ps: nem testei o sistema, mas pela parte programada não vi nada parecido

é porque eu não fiz isso
Deixei isso para quem estiver usando, até porque tenho preguiça de ensinar como trabalhar com forms...

Mas eu botei o codigo abaixo de como adicionar o titulo, então é só por o valor = 0

erro patch  not found " Open filename For Binary As #F " criei o caminho do arquivo C:\arquivos de jogo\Eclipse Origins  v2.0.0.0\client\data files\titulos   ' mais não  ta indo aparece esse erro.

Código:

Call MkDir(tDir & tName)

esse erro tmb " runtime error 75 
path/file acess erro

joaopaulo98 escreveu:erro patch  not found " Open filename For Binary As #F " criei o caminho do arquivo C:\arquivos de jogo\Eclipse Origins  v2.0.0.0\client\data files\titulos   ' mais não  ta indo aparece esse erro.

Código:

Call MkDir(tDir & tName)

esse erro tmb " runtime error 75 
path/file acess erro

man cê não seguiu o tutorial direito, leia atentamente tudo e refaça, vc fez no cliente oque era para ser feito no server o.O

Aqui tá dando Variable not Defined Ao clicar no Command Button
Na Sub:

Código:


Private Sub Command1_Click()


Marcando o Buffer =  
De

Código:

Set Buffer = New clsBuffer

Còdigo Completo da Sub.

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Resolvi, deixei assim o

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Dim Buffer As clsBuffer
               Dim i As Long
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Como faço para dar o título para uma pessoa? o.O

Spooky escreveu:Aqui tá dando Variable not Defined Ao clicar no Command Button
Na Sub:

Código:


Private Sub Command1_Click()


Marcando o Buffer =  
De

Código:

Set Buffer = New clsBuffer

Còdigo Completo da Sub.

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Resolvi, deixei assim o

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Dim Buffer As clsBuffer
               Dim i As Long
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Como faço para dar o título para uma pessoa? o.O

Eu li rapidamente, mas pelo que eu entendi :

Código:

AddPlayerTitulo index, 1 'Onde tem o numero 1 você muda para o numero do titulo.

Ele fornece isso a cima. Você pode adicionar isso a criação de algum item, ou Level Up, ou morte oO ou ao atacar um monstro? Terminar uma quest? ;c você que sabe ;x Ele deixou a se complementar isso já que é bem pessoal como se adquire. 

Pode fazer via server um Btt e um Scrl, para adicionar o Numero do Titulo ao alvo, e o botão chamando o Set para o alvo. Dando o titulo via Server Side.

Profane ~ escreveu:

Spooky escreveu:Aqui tá dando Variable not Defined Ao clicar no Command Button
Na Sub:

Código:


Private Sub Command1_Click()


Marcando o Buffer =  
De

Código:

Set Buffer = New clsBuffer

Còdigo Completo da Sub.

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Resolvi, deixei assim o

Código:

Private Sub Command1_Click()
picCharacter.Visible = False
           picInventory.Visible = False
           picSpells.Visible = False
           picOptions.Visible = False
           picParty.Visible = False
           ' picQuestLog.Visible = False
           picTitulo.Visible = True
           ' send packet
               Dim Buffer As clsBuffer
               Dim i As Long
               Set Buffer = New clsBuffer
               Buffer.WriteLong CTitulos
               SendData Buffer.ToArray()
               Set Buffer = Nothing
               ' show the window
           PlaySound Sound_ButtonClick
End Sub


Como faço para dar o título para uma pessoa? o.O

Eu li rapidamente, mas pelo que eu entendi :

Código:

AddPlayerTitulo index, 1 'Onde tem o numero 1 você muda para o numero do titulo.

Ele fornece isso a cima. Você pode adicionar isso a criação de algum item, ou Level Up, ou morte oO ou ao atacar um monstro? Terminar uma quest? ;c você que sabe ;x Ele deixou a se complementar isso já que é bem pessoal como se adquire. 

Pode fazer via server um Btt e um Scrl, para adicionar o Numero do Titulo ao alvo, e o botão chamando o Set para o alvo. Dando o titulo via Server Side.

Tendi, eu tava tentando fazer isso utilizando o lvwinfo, mas dava erro no codigo dele, na parte do index, variable not defined
Eta, q porra ´´é Btt? aspkapskapskasa

Btt é um Button xD 

é uma sigla de definição usual.

Como :

Scrl = Scroll
lbl = Label..

E por ai vai xD

Creio que para usar o Lvw terá de ligar o "btt" index, a uma Sub com Set.

Att

Spooky escreveu:Uma Dica, ao usar um item conseguir rank e spell (tipo usa o item na categoria de Spell da cmbtype
e ganha a spell e título. :)
+2

concordo! ñ li as outras msg entam n sei se vc ja add mais seria uma ótima ideia

me desculpe resucitar o post mais eu estou com uns erros ao fazer oque pede na parte do  server

Código:

Call MkDir(tDir & tName)

esse erro tmb " runtime error 75 
path/file acess erro

depois

runtime error 76
path not found

Código:

Open filename For Binary As #F
    Put #F, , Titulo(TituloNum)


depois

runtime error 76
path not found

Código:

Open filename For Binary As #F


abaixo
runtime error 52
bad file name or number

Código:

Get #F, , Titulo(i)


bom eu refiz 3x vezes para ver se o erro era meu pondo em algum código errado mais creio que não é