Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Spell Memorized

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Spell Memorized em Seg 18 Out 2010, 12:11

Luucas Robeerto


Fundador
Fundador
FrmMirage procure por isso:

Dim SpellMemorized as long

Abaixo adicione:

Dim SpellMemorizedF9 As Long
Procure por:

If KeyCode = vbKeyInsert Then
If SpellMemorized > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
If Player(MyIndex).Moving = 0 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
Else
Call AddText("Cannot cast while walking!", BrightRed)
End If
End If
Else
Call AddText("No spell here memorized.", BrightRed)
End If
Else
Call CheckInput(0, KeyCode, Shift)
End If

Abaixo adicione:

If KeyCode = vbKeyF9 Then
If SpellMemorized > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
If Player(MyIndex).Moving = 0 Then
Call SendData("cast" & SEP_CHAR & SpellMemorizedF9 & SEP_CHAR & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
Else
Call AddText("Cannot cast while walking!", BrightRed)
End If
End If
Else
Call AddText("No spell here memorized.", BrightRed)
End If
Else
Call CheckInput(0, KeyCode, Shift)
End If

Server~Cide

Agora vá no ServeTCp procure por:

' Put spells known in player record

Mude tudo para:

' Put spells known in player record
For I = 1 To MAX_PLAYER_SPELLS
Player(MyIndex).Spell(I) = Val(Parse(I))
If Player(MyIndex).Spell(I) <> 0 Then
frmMirage.lstSpells.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name)
frmMirage.cmbSpells.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name)
frmMirage.cmbSpells2.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name)
Else
frmMirage.lstSpells.AddItem ""
frmMirage.cmbSpells.AddItem ""
frmMirage.cmbSpells2.AddItem ""
End If
Next I

frmMirage.lstSpells.ListIndex = 0
End If

Crie uma Pic adicione duas cmbList uma com o nome cmbSpells e outra com o nome cmbSpells2 e crei um command button.
adicione isso no command button:

SpellMemorized = cmbSpells.ListIndex + 1
Call AddText("Primeira magia gravada no Insert!", Black)
SpellMemorizedF9 = cmbSpells2.ListIndex + 1
Call AddText("Segunda magia gravada no F9", Black)


Créditos:
• RafaelS.~
• GamesPower

http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum