Duvida Sobre Script De Spell
3 participantes
Página 1 de 1
Duvida Sobre Script De Spell
por -Zero Sex 30 Jul 2010, 21:29
Bom Eu Coloquei Um Script Spell De Caminho de Fogo,e Ele Pego Namoral,
Mais Quando Tentei Colocar Outro no Case 1 Ele Nao funfo,Mais Quando
Troquei aa Cases Ele Pego.
E La No Main,Eu Coloquei Duas Vezes o Pedido,Um Pra Case 0 e outro pra Case 1!
Nao sei se tem Algo errado,Se pussivel Respondam Rapido!!
Case 0
Case 1
Main Colocado NAs Duas,So vou por 1 Deles,poz são os mesmos:
+2 Cradits Se Alguém Me Encinar a Dar Dois De Uma Vez,Se Nao Der
Eu Do +1 Credits Hj e Amanhã!!
Vlw Ae!!
Mais Quando Tentei Colocar Outro no Case 1 Ele Nao funfo,Mais Quando
Troquei aa Cases Ele Pego.
E La No Main,Eu Coloquei Duas Vezes o Pedido,Um Pra Case 0 e outro pra Case 1!
Nao sei se tem Algo errado,Se pussivel Respondam Rapido!!
Case 0
- Spoiler:
- Case 0
If GetPlayerMP(index) < 50 Then
Call PlayerMsg(index, "Você Esta Sem Mana,Va Se Recuperar!!", 2)
Else
Call CamFireSpelldois(index, GetPlayerDir(index))
Call SetPlayerMP(index, GetPlayerMP(index) - 50)
Call SendMP(index)
End If
End Select
End Sub
Case 1
- Spoiler:
- Case 1
If GetPlayerMP(index) < 50 Then
Call PlayerMsg(index, "Você Esta Sem Mana,Va Se Recuperar!!", 2)
Else
Call CamFireSpellum(index, GetPlayerDir(index))
Call SetPlayerMP(index, GetPlayerMP(index) - 50)
Call SendMP(index)
End If
End Select
End Sub
Main Colocado NAs Duas,So vou por 1 Deles,poz são os mesmos:
- Spoiler:
Sub CamFireSpell(index, dir)
Dim Map
Dim X
Dim Y
Dim Forca
Dim Comp
Comp = 50
Forca = GetPlayerStr(index) / 2
Forca = Forca + Comp
Map = GetPlayerMap(index)
X = GetPlayerX(index)
Y = GetPlayerY(index)
Select Case dir
Case 0
Call SpellAnim(6, Map, X, Y - 1)
Call SpellAnim(6, Map, X, Y - 2)
Call SpellAnim(6, Map, X, Y - 3)
Call SpellAnim(6, Map, X, Y - 4)
Call SpellAnim(6, Map, X, Y - 5)
Call SpellAnim(6, Map, X, Y - 6)
Call SpellAnim(6, Map, X, Y - 7)
Call CheckAttackNPC(index, Map, X, Y - 1, Forca)
Call CheckAttackNPC(index, Map, X, Y - 2, Forca)
Call CheckAttackNPC(index, Map, X, Y - 3, Forca)
Call CheckAttackNPC(index, Map, X, Y - 4, Forca)
Call CheckAttackNPC(index, Map, X, Y - 5, Forca)
Call CheckAttackNPC(index, Map, X, Y - 6, Forca)
Call CheckAttackNPC(index, Map, X, Y - 7, Forca)
Case 1
Call SpellAnim(6, Map, X, Y + 1)
Call SpellAnim(6, Map, X, Y + 2)
Call SpellAnim(6, Map, X, Y + 3)
Call SpellAnim(6, Map, X, Y + 4)
Call SpellAnim(6, Map, X, Y + 5)
Call SpellAnim(6, Map, X, Y + 6)
Call SpellAnim(6, Map, X, Y + 7)
Call CheckAttackNPC(index, Map, X, Y + 1, Forca)
Call CheckAttackNPC(index, Map, X, Y + 2, Forca)
Call CheckAttackNPC(index, Map, X, Y + 3, Forca)
Call CheckAttackNPC(index, Map, X, Y + 4, Forca)
Call CheckAttackNPC(index, Map, X, Y + 5, Forca)
Call CheckAttackNPC(index, Map, X, Y + 6, Forca)
Call CheckAttackNPC(index, Map, X, Y + 7, Forca)
Case 2
Call SpellAnim(6, Map, X - 1, Y)
Call SpellAnim(6, Map, X - 2, Y)
Call SpellAnim(6, Map, X - 3, Y)
Call SpellAnim(6, Map, X - 4, Y)
Call SpellAnim(6, Map, X - 5, Y)
Call SpellAnim(6, Map, X - 6, Y)
Call SpellAnim(6, Map, X - 7, Y)
Call CheckAttackNPC(index, Map, X - 1, Y, Forca)
Call CheckAttackNPC(index, Map, X - 2, Y, Forca)
Call CheckAttackNPC(index, Map, X - 3, Y, Forca)
Call CheckAttackNPC(index, Map, X - 4, Y, Forca)
Call CheckAttackNPC(index, Map, X - 5, Y, Forca)
Call CheckAttackNPC(index, Map, X - 6, Y, Forca)
Call CheckAttackNPC(index, Map, X - 7, Y, Forca)
Case 3
Call SpellAnim(6, Map, X + 1, Y)
Call SpellAnim(6, Map, X + 2, Y)
Call SpellAnim(6, Map, X + 3, Y)
Call SpellAnim(6, Map, X + 4, Y)
Call SpellAnim(6, Map, X + 5, Y)
Call SpellAnim(6, Map, X + 6, Y)
Call SpellAnim(6, Map, X + 7, Y)
Call CheckAttackNPC(index, Map, X + 1, Y, Forca)
Call CheckAttackNPC(index, Map, X + 2, Y, Forca)
Call CheckAttackNPC(index, Map, X + 3, Y, Forca)
Call CheckAttackNPC(index, Map, X + 4, Y, Forca)
Call CheckAttackNPC(index, Map, X + 5, Y, Forca)
Call CheckAttackNPC(index, Map, X + 6, Y, Forca)
Call CheckAttackNPC(index, Map, X + 7, Y, Forca)
End Select
End Sub
Sub CheckAttackNPC(index, map, x, y, Damage)
dim count
count = 1
do while count < 16
if getnpcx(map, count) = x AND getnpcy(map, count) = y then
Call DamageNPC(index, count, Damage)
exit sub
end if
count = count + 1
loop
End Sub
Sub CamFireSpelldois(index, dir)
Dim Map
Dim X
Dim Y
Dim Forca
Dim Comp
Comp = 50
Forca = GetPlayerStr(index) / 2
Forca = Forca + Comp
Map = GetPlayerMap(index)
X = GetPlayerX(index)
Y = GetPlayerY(index)
Select Case dir
Case 0
Call SpellAnim(7, Map, X, Y - 1)
Call SpellAnim(7, Map, X, Y - 2)
Call SpellAnim(7, Map, X, Y - 3)
Call SpellAnim(7, Map, X, Y - 4)
Call SpellAnim(7, Map, X, Y - 5)
Call SpellAnim(7, Map, X, Y - 6)
Call SpellAnim(7, Map, X, Y - 7)
Call CheckAttackNPC(index, Map, X, Y - 1, Forca)
Call CheckAttackNPC(index, Map, X, Y - 2, Forca)
Call CheckAttackNPC(index, Map, X, Y - 3, Forca)
Call CheckAttackNPC(index, Map, X, Y - 4, Forca)
Call CheckAttackNPC(index, Map, X, Y - 5, Forca)
Call CheckAttackNPC(index, Map, X, Y - 6, Forca)
Call CheckAttackNPC(index, Map, X, Y - 7, Forca)
Case 1
Call SpellAnim(7, Map, X, Y + 1)
Call SpellAnim(7, Map, X, Y + 2)
Call SpellAnim(7, Map, X, Y + 3)
Call SpellAnim(7, Map, X, Y + 4)
Call SpellAnim(7, Map, X, Y + 5)
Call SpellAnim(7, Map, X, Y + 6)
Call SpellAnim(7, Map, X, Y + 7)
Call CheckAttackNPC(index, Map, X, Y + 1, Forca)
Call CheckAttackNPC(index, Map, X, Y + 2, Forca)
Call CheckAttackNPC(index, Map, X, Y + 3, Forca)
Call CheckAttackNPC(index, Map, X, Y + 4, Forca)
Call CheckAttackNPC(index, Map, X, Y + 5, Forca)
Call CheckAttackNPC(index, Map, X, Y + 6, Forca)
Call CheckAttackNPC(index, Map, X, Y + 7, Forca)
Case 2
Call SpellAnim(7, Map, X - 1, Y)
Call SpellAnim(7, Map, X - 2, Y)
Call SpellAnim(7, Map, X - 3, Y)
Call SpellAnim(7, Map, X - 4, Y)
Call SpellAnim(7, Map, X - 5, Y)
Call SpellAnim(7, Map, X - 6, Y)
Call SpellAnim(7, Map, X - 7, Y)
Call CheckAttackNPC(index, Map, X - 1, Y, Forca)
Call CheckAttackNPC(index, Map, X - 2, Y, Forca)
Call CheckAttackNPC(index, Map, X - 3, Y, Forca)
Call CheckAttackNPC(index, Map, X - 4, Y, Forca)
Call CheckAttackNPC(index, Map, X - 5, Y, Forca)
Call CheckAttackNPC(index, Map, X - 6, Y, Forca)
Call CheckAttackNPC(index, Map, X - 7, Y, Forca)
Case 3
Call SpellAnim(7, Map, X + 1, Y)
Call SpellAnim(7, Map, X + 2, Y)
Call SpellAnim(7, Map, X + 3, Y)
Call SpellAnim(7, Map, X + 4, Y)
Call SpellAnim(7, Map, X + 5, Y)
Call SpellAnim(7, Map, X + 6, Y)
Call SpellAnim(7, Map, X + 7, Y)
Call CheckAttackNPC(index, Map, X + 1, Y, Forca)
Call CheckAttackNPC(index, Map, X + 2, Y, Forca)
Call CheckAttackNPC(index, Map, X + 3, Y, Forca)
Call CheckAttackNPC(index, Map, X + 4, Y, Forca)
Call CheckAttackNPC(index, Map, X + 5, Y, Forca)
Call CheckAttackNPC(index, Map, X + 6, Y, Forca)
Call CheckAttackNPC(index, Map, X + 7, Y, Forca)
End Select
End Sub
Sub CheckAttackNPC(index, map, x, y, Damage)
dim count
count = 1
do while count < 16
if getnpcx(map, count) = x AND getnpcy(map, count) = y then
Call DamageNPC(index, count, Damage)
exit sub
end if
count = count + 1
loop
End Sub
+2 Cradits Se Alguém Me Encinar a Dar Dois De Uma Vez,Se Nao Der
Eu Do +1 Credits Hj e Amanhã!!
Vlw Ae!!
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:33
se esta pegandpo direitinho não tem nada errado, mais se estiver com algum erro, me fala que te auxilio 
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: Duvida Sobre Script De Spell
por -Zero Sex 30 Jul 2010, 21:35
o Erro é que so a Case 0 Funfa,a Case 1 Não,So se Eu Colocar a Case 0 Pra Baixo e Por 2 e Deichar a Case 1 No Começo que Ela Pega,Ai Não Sei o Que Fazer.
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:36
coloca um exit sub depois de cada case
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: Duvida Sobre Script De Spell
por -Zero Sex 30 Jul 2010, 21:38
Ata,se resolver eu edito o post
____________________________________________________________
Outra Coisa,Como Dou 2 De Credits?
____________________________________________________________
Outra Coisa,Como Dou 2 De Credits?
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:39
clica em 2 + que o usuário tem, tanto faz no lugar,o negócio é o usuáio receber 2 de creditos, para vcs não tão tem como dar + de 1 de credito normalmente 
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: Duvida Sobre Script De Spell
por -Zero Sex 30 Jul 2010, 21:42
Ai,quando eu por exit sub eu tiro o End Sub?
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:48
não, o exit sub deve ficar depois do end if e antes da proxima case, sendo que a ultima case não precisa de exit sub
Karlos- Membro Veterano
- Mensagens : 2851
-
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:52
fica sim, você nunca poderá tirar o end sub senão o dragão cospe fogo :S
Karlos- Membro Veterano
- Mensagens : 2851
-
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sex 30 Jul 2010, 21:55
tenta adicionar outro end if depois do ultimo end if ;x
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: Duvida Sobre Script De Spell
por -Zero Sex 30 Jul 2010, 22:01
é nao deu mesmo,deicha pra la,vou me contentar com esse unico aki!!
-Zero- Membro Junior
- Mensagens : 96
Re: Duvida Sobre Script De Spell
por Karlos Sáb 31 Jul 2010, 07:10
não cara. ve aew se vc acha o que tem de errado
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: Duvida Sobre Script De Spell
por Gu1lh3rm3 Sáb 31 Jul 2010, 14:32
cara tenta ver se tem um End Select
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Re: Duvida Sobre Script De Spell
por -Zero Ter 03 Ago 2010, 15:41
Tipo,ja coloquei os End Select,Ja mechi em Tudo,So Que Nao funfa
a Segunda Case,so a primeira,Alguem Sabe o Que Pode ser?
a Segunda Case,so a primeira,Alguem Sabe o Que Pode ser?
-Zero- Membro Junior
- Mensagens : 96
Tópicos semelhantes» Uma dúvida sobre Script de Reset
» Duvida Sobre animaçoes de spell(Sub SpellAnim)
» Sobre Script ..
» Script Spell Ajuda
» Tudo sobre script e Frmware
» Duvida Sobre animaçoes de spell(Sub SpellAnim)
» Sobre Script ..
» Script Spell Ajuda
» Tudo sobre script e Frmware
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z