Hitskin.comIsto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Transformação por Spell
+6
bejaflo1
Himinato
Vitribopio
Tayllor
Valentine
thales12
10 participantes
Página 1 de 2
Página 1 de 2 • 1, 2 
Transformação por Spell
por thales12 Sáb Nov 24, 2012 4:17 pm
Ao você usar uma spell vc se transforma.. e dps de um tempo vc volta ao normal..
Configuravel no spelleditor
Abra o Client~Side:
Na frmEditorSpell crie uma frame igual essa img:
Coloque a Frame em Visible False.
de 2 clicks na scrlTrans e adicione:
de 2 clicks na scrlForça e adicione:
de 2 clicks na scrlDef e adicione:
de 2 clicks na scrlAgi e adicione:
de 2 clicks na scrlWill e adicione:
de 2 clicks na scrlInt e adicione:
de 2 clicks na scrlAnima e adicione:
l
de 2 clicks na scrlTempo e adicione:
na List do cmbType adicione:
procure por:
em baixo adicione:
dps na Private Type PlayerRec adicione:
dps procure por:
abaixo adicione:
dps procure por:
em baixo adicione:
Client~Side terminado, Abra o Server~Side:
Procure por:
abaixo adicione:
procure por:
abaixo adicione:
na Private Type TempPlayerRec adicione:
na Sub JoinGame em cima do End Sub adicione:
no ServerLoop em cima de:
adicione:
na Sub LeftGame(ByVal index As Long) adicione em baixo de:
o codigo:
procure por:
em baixo adicione:
na subCastSpell em cima de:
adicione:
no final da modGameLogic adicione:
Fim !
Créditos: Thales por fazer o sistema e Tutorial
Créditos: Eduardo por adicionar Tempo
Configuravel no spelleditor
Abra o Client~Side:
Na frmEditorSpell crie uma frame igual essa img:
Frame Name: fraTrans
Frame Caption: Transformação
Picture Name: picSprite2
1º Scrl Name: scrlTrans
2º Scrl Name: scrlForça
3º Scrl Name: scrlDef
4º Scrl Name: scrlAgi
5º Scrl Name: scrlWill
6º Scrl Name: scrlInt
7º Scrl Name: scrlAnima
8º Scrl Name: scrlTempo
1º lbl Name: lblTrans
2º lbl Name: lblFor
3º lbl Name: lblDef
4º lbl Name: lblAgi
5º lbl Name: lblWill
6º lbl Name: lblInt
7º lbl Name: lblAnima
8º lbl Name: lblTempo
1º lbl Caption: Sprite: None
2º lbl Caption: Força: None
3º lbl Caption: Defesa: None
4º lbl Caption: Agilidade: None
5º lbl Caption: Willpower: None
6º lbl Caption: Inteligencia: None
7º lbl Caption: Animação: None
8º lbl Caption: Duração: None
Coloque a Frame em Visible False.
de 2 clicks na scrlTrans e adicione:
- Código:
lblTrans.Caption = "Sprite: " & scrlTrans.Value
Spell(EditorIndex).trans = scrlTrans.Value
de 2 clicks na scrlForça e adicione:
- Código:
lblFor.Caption = "Força: " & scrlForça.Value
Spell(EditorIndex).Força = scrlForça.Value
de 2 clicks na scrlDef e adicione:
- Código:
lblDef.Caption = "Defesa: " & scrlDef.Value
Spell(EditorIndex).Defesa = scrlDef.Value
de 2 clicks na scrlAgi e adicione:
- Código:
lblAgi.Caption = "Agilidade: " & scrlAgi.Value
Spell(EditorIndex).Agilidade = scrlAgi.Value
de 2 clicks na scrlWill e adicione:
- Código:
lblWill.Caption = "Willpower: " & scrlWill.Value
Spell(EditorIndex).Willpower = scrlWill.Value
de 2 clicks na scrlInt e adicione:
- Código:
lblInt.Caption = "Inteligencia: " & scrlInt.Value
Spell(EditorIndex).Inteligencia = scrlInt.Value
de 2 clicks na scrlAnima e adicione:
l
- Código:
blAnima.Caption = "Animação: " & Trim$(Animation(scrlAnima.Value).Name)
Spell(EditorIndex).Anima = scrlAnima.Value
de 2 clicks na scrlTempo e adicione:
- Código:
lblTempo.Caption = "Duração: " & scrlTempo.Value & "s"
Spell(EditorIndex).Tempo = scrlTempo.Value
na List do cmbType adicione:
depois de 2 clicks na cmbType e adicione:Trans
- Código:
If cmbType.ListIndex = SPELL_TYPE_TRANS Then
fraTrans.Visible = True
Else
fraTrans.Visible = False
End If
procure por:
- Código:
StunDuration As Long
em baixo adicione:
- Código:
trans As Long
Força As Long
Defesa As Long
Agilidade As Long
Willpower As Long
Inteligencia As Long
Anima As Long
Tempo As Long
dps na Private Type PlayerRec adicione:
- Código:
Tempo(1 To MAX_PLAYER_SPELLS) As Long
dps procure por:
- Código:
Public Const SPELL_TYPE_WARP As Byte = 4
abaixo adicione:
- Código:
Public Const SPELL_TYPE_TRANS As Byte = 5
dps procure por:
- Código:
.scrlRange.Value = Spell(EditorIndex).Range
em baixo adicione:
- Código:
.scrlTrans.Value = Spell(EditorIndex).trans
.scrlForça.Value = Spell(EditorIndex).Força
.scrlDef.Value = Spell(EditorIndex).Defesa
.scrlAgi.Value = Spell(EditorIndex).Agilidade
.scrlWill.Value = Spell(EditorIndex).Willpower
.scrlInt.Value = Spell(EditorIndex).Inteligencia
.scrlAnima.Value = Spell(EditorIndex).Anima
.scrlTempo.Value = Spell(EditorIndex).Tempo
Client~Side terminado, Abra o Server~Side:
Procure por:
- Código:
Public Const SPELL_TYPE_WARP As Byte = 4
abaixo adicione:
- Código:
Public Const SPELL_TYPE_TRANS As Byte = 5
procure por:
- Código:
StunDuration As Long
abaixo adicione:
- Código:
Trans As Long
Força As Long
Defesa As Long
Agilidade As Long
Willpower As Long
Inteligencia As Long
Anima As Long
Tempo As Long
na Private Type TempPlayerRec adicione:
- Código:
Tempo(1 To MAX_PLAYER_SPELLS) As Long
Trans as Long
MySprite As Long
na Sub JoinGame em cima do End Sub adicione:
- Código:
TempPlayer(index).MySprite = GetPlayerSprite(index)
no ServerLoop em cima de:
- Código:
' Check for disconnections every half second
adicione:
- Código:
If TempPlayer(i).Trans > 0 Then
If Tick > TempPlayer(i).Trans Then
SendAnimation GetPlayerMap(i), 20, 0, 0, TARGET_TYPE_PLAYER, i
TempPlayer(i).Trans = 0
SetPlayerSprite i, TempPlayer(i).MySprite
SendPlayerData i
AcabarTrans i
End If
End If
na Sub LeftGame(ByVal index As Long) adicione em baixo de:
- Código:
Dim n As Long, i As Long
Dim tradeTarget As Long
o codigo:
- Código:
If TempPlayer(index).Trans > 0 Then
SetPlayerSprite index, TempPlayer(index).MySprite
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) - Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) - Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) - Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) - Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) - Spell(index).Inteligencia)
End If
procure por:
- Código:
' see if cooldown has finished
em baixo adicione:
- Código:
If TempPlayer(index).Trans > GetTickCount Then Exit Sub
na subCastSpell em cima de:
- Código:
' find out what kind of spell it is! self cast, target or AOE
adicione:
- Código:
'Transformaçao
With Spell(SpellNum)
If .Type = SPELL_TYPE_TRANS Then
Call SetPlayerSprite(index, Spell(index).Trans)
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) Spell(index).Inteligencia)
Call SetPlayerVital(index, Vitals.MP, GetPlayerVital(index, Vitals.MP) - MPCost)
Call SendVital(index, Vitals.MP)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index))
TempPlayer(index).Trans = GetTickCount (Spell(index).Tempo * 1000)
SendAnimation GetPlayerMap(index), Spell(index).Anima, 0, 0, TARGET_TYPE_PLAYER, index
TempPlayer(index).SpellCD(spellslot) = GetTickCount (Spell(SpellNum).CDTime * 1000)
Call PlayerMsg(index, GetPlayerName(index) & " - Você se Transformou! Para: " & Trim$(Spell(SpellNum).Name), Cyan)
SendPlayerData index
SavePlayer index
SendStats index
End If
End With
no final da modGameLogic adicione:
- Código:
Public Sub AcabarTrans(ByVal index As Long)
If index < 1 Or index > MAX_PLAYERS Then Exit Sub
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) - Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) - Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) - Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) - Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) - Spell(index).Inteligencia)
SendAnimation GetPlayerMap(index), Spell(index).Anima, 0, 0, TARGET_TYPE_PLAYER, index
Call PlayerMsg(index, "O Tempo Limite da Sua Transformação Acabou...", DarkGrey)
TempPlayer(index).Trans = 0
SendPlayerData index
SavePlayer index
SendStats index
End Sub
Fim !
Créditos: Thales por fazer o sistema e Tutorial
Créditos: Eduardo por adicionar Tempo
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
thales12- Membro de Honra
- Mensagens : 322
Créditos : 108
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida: (30/30) -
Valentine- Administrador
- Medalhas :
Mensagens : 5343
Créditos : 1164 -
Re: Transformação por Spell
por Tayllor Qui Dez 06, 2012 4:02 pm
O codigo Força, Defesa, Agilidade, WillPower, Inteligencia usado no ultimo codigo do server.vbp ta dando erro aqui. :/
_________________
Tayllor- Iniciante
- Mensagens : 33
Créditos : 0
Re: Transformação por Spell
por Vitribopio Seg Mar 10, 2014 11:45 pm
cara me explica mais essa parte n consigo achar
[size=11.818181991577148]Private Type PlayerRec[/size]
Tempo(1 To MAX_PLAYER_SPELLS) As Long
Vlw
[size=11.818181991577148]Private Type PlayerRec[/size]
Tempo(1 To MAX_PLAYER_SPELLS) As Long
Vlw
Vitribopio- Novato
- Mensagens : 7
Créditos : 0
Vitribopio- Novato
- Mensagens : 7
Créditos : 0
Re: Transformação por Spell
por Himinato Qui maio 08, 2014 10:08 am
o meu de este erro, como eu ajeito ?
Himinato- Novato
- Mensagens : 19
Créditos : 0
Re: Transformação por Spell
por bejaflo1 Ter maio 13, 2014 2:30 pm
Realmente tem erros s aqui tb deu erro
bejaflo1- Iniciante
- Mensagens : 49
Créditos : 3
Re: Transformação por Spell
por falcon459 Qua maio 28, 2014 3:24 am
os caras nem testam e post Tutoriais cheios de erros '-' se vai postar alguma coisa testem Porfavor
falcon459- Novato
- Mensagens : 7
Créditos : 0
Re: Transformação por Spell
por Lord Pegason Qua maio 28, 2014 12:15 pm
falcon459 escreveu:os caras nem testam e post Tutoriais cheios de erros '-' se vai postar alguma coisa testem Porfavor
Por causa de gente igual você que 95% das pessoas que contribuem com tutoriais não fazem questão de compartilhar opinião mais...
Você deveria agradecer de pegar a "ideia" (que é o principal) e refazer, reajustar o que for necessário. Se não se acha capaz de fazer isso, creio que CRIAR jogos não é a sua área.
Lord Pegason- Novato
- Mensagens : 5
Créditos : 1
Re: Transformação por Spell
por falcon459 Qua maio 28, 2014 4:37 pm
Enves de vc falar tanta bosta então ja que vc é foda pq vc não da um jeito de arrumar o Código então 5 Pessoa pediram para ajudar ou se quer dar uma mão mais ja que troxas como vcs que não ajuda ninguém e fica puxando saco dos outros deveria ficar quetinho e não falar nada eu realmente agradeço o pessoal que posta os tuturiais mais o que falam la , olha gente eu testei e esta funcionando qualquer coisa é só me falar esses eu respeito respeito muito , caras que postam tutoriais sem nem falar que testou ou ao menos dar uma ajuda só pra ganhar crédito
não merece agradecimento nenhum então ao envés se vc ficar puxando saco dos caras pq vc não tenta ajudar essas pessoas que estão falando que deu erro ou pedido ajudar seu otário e se tem gente procurando tutoriais é pq não sabem mexer muito bem no VB pensa antes de falar qualquer coisa ou tira essas bolas da boca pra falar , se esse thales12 voltar falar olha agora eu testei e esta funcionando ai eu vou dar um credito e agradecer ele caso contrario não vou fazer isso.
Esse tutorial é fodas pra caramba se desse certo ficaria Muito legal mais ja que tem tantos errors vc não pode esperar que alguém venha e fala nossa foda pra caramba muito bom mais não consigo da erro '-'
não merece agradecimento nenhum então ao envés se vc ficar puxando saco dos caras pq vc não tenta ajudar essas pessoas que estão falando que deu erro ou pedido ajudar seu otário e se tem gente procurando tutoriais é pq não sabem mexer muito bem no VB pensa antes de falar qualquer coisa ou tira essas bolas da boca pra falar , se esse thales12 voltar falar olha agora eu testei e esta funcionando ai eu vou dar um credito e agradecer ele caso contrario não vou fazer isso.
Esse tutorial é fodas pra caramba se desse certo ficaria Muito legal mais ja que tem tantos errors vc não pode esperar que alguém venha e fala nossa foda pra caramba muito bom mais não consigo da erro '-'
falcon459- Novato
- Mensagens : 7
Créditos : 0
Página 1 de 2 • 1, 2
Tópicos semelhantes» [TUTORIAL] Transformaçao por Spell
» Transformação por Spell
» Transformação por Spell
» Erro Transformação por Spell
» ajuda com transformação por spell
» Transformação por Spell
» Transformação por Spell
» Erro Transformação por Spell
» ajuda com transformação por spell
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos