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 ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

+2
montevechi
Kakarotto 1
6 participantes

Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Kakarotto 1 Seg 22 Out 2012, 16:04

Eu Quero Um Pedido Queria Saber Como ADD pontos depois de full exemplo:

eu adiciono 1 e gasto 1000 pontos
eu adiciono 1000 e gasto 10000 pontos assim vai como fasso iso


SOMENTE FORÇA E DEFESA^^
Kakarotto 1
Kakarotto 1
Banido
Banido

Mensagens : 139

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por montevechi Qua 24 Out 2012, 11:16

bom tambem quero isso so que com forca def int e agi vlw !
--------edit-------
Pensei q era pra eeb , mas ai não é ?
montevechi
montevechi
Membro
Membro

Mensagens : 236

http://www.dbz-caos.blogspot.com

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Kakarotto 1 Qua 24 Out 2012, 18:43

e sim pocha ninguem ai pra ajudar ;'(
Kakarotto 1
Kakarotto 1
Banido
Banido

Mensagens : 139

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por montevechi Qua 24 Out 2012, 19:10

então ta na rea errada ta na de e.o !
montevechi
montevechi
Membro
Membro

Mensagens : 236

http://www.dbz-caos.blogspot.com

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Kakarotto 1 Qua 24 Out 2012, 20:28

sim e que eu nao vi na hora XD
Kakarotto 1
Kakarotto 1
Banido
Banido

Mensagens : 139

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Pablo Sex 26 Out 2012, 22:06

Área errada meu amigo, cuidado onde posta as coisas, amanhã quando eu tiver tempo faço um tuto bem legal para você.

Tópico Enviado para área Suporte e Ajuda / Elysium Engine

Atenciosamente,
Pablo
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Gяiммjσw' Sex 26 Out 2012, 23:58

Código:

         
          'COMANDOS DO STATUS "FORÇA"                     
                If LCase(Trim(TextSay)) = "/addfor" Then ' Texto que utilizara para o comando
        If GetPlayerstr(index) < 1000000 Then ' Aqui é assim , se o player tiver menos que esse numero de força aew , aparecera a mensagem abaixo
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em STR! para usar Esse comando!", 12, 0) ' Mensagem caso o Player nao tenha a força necessaria
        Else
        If GetPlayerPOINTS(index) > 150 Then ' Pontos Necessarios
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 150) ' coloque em "150" os pontos necessarios tamben
        Call SetPlayerstr(index, GetPlayerstr(index) + 1)  ' Quanto o Player ganha em for
          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 1 ponto em STR!", 15, 0) ' Mensagem ao adicionar
                      Exit Sub
        End If
        End If
        End if     
        ' O Resto é a mesma coisa , só que para mais pontos
                        If LCase(Trim(TextSay)) = "/addpdl1" Then
        If GetPlayerstr(index) < 1000000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em PDL! para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1500 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1500)
        Call SetPlayerstr(index, GetPlayerstr(index) + 10)   
          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10 [b]pontos[/b] em PDL!", 15, 0)

        Exit Sub
        End If
        End If
        End if 
       
                        If LCase(Trim(TextSay)) = "/addpdl2" Then
        If GetPlayerstr(index) < 1000000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em PDL! para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 15000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 15000)
        Call SetPlayerstr(index, GetPlayerstr(index) + 100)   
          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 100 [b]pontos[/b] em PDL!", 15, 0)
        else
                Call BattleMsg(index, "Você Precisa [b]de[/b] 15.000 [b]de[/b] [b]pontos[/b] para usar esse Comando!!", 15, 0)

        Exit Sub
        End If
        End If
        End if 
 
                        If LCase(Trim(TextSay)) = "/addpdl3" Then
        If GetPlayerstr(index) < 1000000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em PDL para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 150000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 150000)
        Call SetPlayerstr(index, GetPlayerstr(index) + 1000)   
          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 1000 [b]pontos[/b] em PDL!", 15, 0)
        else
                Call BattleMsg(index, "Você Precisa [b]de[/b] 150.000 [b]de[/b] [b]pontos[/b] para usar esse Comando!!", 15, 0)

        Exit Sub
        End If
        End If
        End if


        If LCase(Trim(TextSay)) = "/addpdl4" Then
        If GetPlayerstr(index) < 1000000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em PDL! para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1000000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1000000)
        Call SetPlayerstr(index, GetPlayerstr(index) + 10000)   
          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10000 [b]pontos[/b] em PDL!", 15, 0)
        else
                Call BattleMsg(index, "Você Precisa [b]de[/b] 1000000 [b]de[/b] [b]pontos[/b] para usar esse Comando!!", 15, 0)

        Exit Sub
        End If
        End If
        End if

      'COMANDOS DO STATUS "DEFESA"
       
       
        If LCase(Trim(TextSay)) = "/adddef1" Then
        If GetPlayerDEF(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Defesa para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 150 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 150)
        Call SetPlayerDEF(index, GetPlayerDEF(index) + 1) 
                  Call SendStats(Index) 
        Call BattleMsg(index, "Você adicionou 1 ponto em Defesa!", 15, 0) 
        Exit Sub
        End If
        End If
        End if             
       
        If LCase(Trim(TextSay)) = "/adddef10" Then
        If GetPlayerDEF(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Defesa para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1500 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1500)
        Call SetPlayerDEF(index, GetPlayerDEF(index) + 10)
                  Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10 [b]pontos[/b] em Defesa!", 15, 0)
                      Exit Sub
        End If
        End If
        End if 
       
        If LCase(Trim(TextSay)) = "/adddef100" Then
        If GetPlayerDEF(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Defesa para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 15000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 15000)
        Call SetPlayerDEF(index, GetPlayerDEF(index) + 100) 
                  Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 100 [b]pontos[/b] em Defesa!", 15, 0)
        Exit Sub
        End If
        End If
        End if       
       
       
       
                                                        'COMANDOS DO STATUS "VELOCIDADE"
       
                If LCase(Trim(TextSay)) = "/addvel1" Then
        If GetPlayerSPEED(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Velocidade para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 150 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 150)
        Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1)
                          Call SendStats(Index) 
        Call BattleMsg(index, "Você adicionou 1 ponto em Velocidade!", 15, 0)
        Exit Sub
        End If
        End If
        End if     
       
                        If LCase(Trim(TextSay)) = "/addvel10" Then
        If GetPlayerSPEED(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Velocidade para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1500 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1500)
        Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 10) 
                          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10 [b]pontos[/b] em Velocidade!", 15, 0)
        Exit Sub
        End If
        End If
        End if 
       
                        If LCase(Trim(TextSay)) = "/addvel100" Then
        If GetPlayerSPEED(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Velocidade para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 15000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 15000)
        Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 100)     
                          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 100 [b]pontos[/b] em Velocidade!", 15, 0)
        Exit Sub
        End If
        End If
        End if 
       
              'COMANDOS DO STATUS "Magia"
       
       
        If LCase(Trim(TextSay)) = "/addmag1" Then
        If GetPlayerMAGI(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Magia para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1500 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 150)
        Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1)     
                          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10 [b]pontos[/b] em Magia!", 15, 0)
        Exit Sub
        End If
        End If
        End if
       
                                If LCase(Trim(TextSay)) = "/addmag10" Then
        If GetPlayerMAGI(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Magia para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 1500 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1500)
        Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 10)     
                          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 10 [b]pontos[/b] em Magia!", 15, 0)
        Exit Sub
        End If
        End If
        End if
       
                                If LCase(Trim(TextSay)) = "/addmag100" Then
        If GetPlayerMAGI(index) < 100000 Then
        Call BattleMsg(index, "Você Precisa Ser [b]Full[/b] Em Magia para usar Esse comando!", 12, 0)
        Else
        If GetPlayerPOINTS(index) > 15000 Then
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 15000)
        Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 100)
                          Call SendStats(Index)
        Call BattleMsg(index, "Você adicionou 100 [b]pontos[/b] em Magia!", 15, 0)
        Exit Sub
        End If
        End If
        End if
Obs: O Exemplo de Força serve para todos
Obs²: Caso queira somente For e Def , use somente For e Def
Obs³: Coloque abaixo do code:
Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C   
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

Acho que vai ser mais ou menos isso '
Se estiver errado pesso desculpas e que alguém me corrija por favor ;D

Ajudei ? Deu Certo ? Dê um +CreD não cai a mão ;D
Gяiммjσw'
Gяiммjσw'
Membro Junior
Membro Junior

Mensagens : 70

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por thiagobranco Qui 08 Nov 2012, 16:19

TiPo isso ai eu add em scripts Ou no VB ????
thiagobranco
thiagobranco
Novato
Novato

Mensagens : 16

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Kakarotto 1 Sex 09 Nov 2012, 17:43

Script ¬¬' ninguem ajuda a gente
Kakarotto 1
Kakarotto 1
Banido
Banido

Mensagens : 139

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por OIOI Sáb 10 Nov 2012, 07:07

kakarotto 1 passa o link do tutorial que vc seguiu pra gente ver oque podemos fazer
OIOI
OIOI
Membro
Membro

Mensagens : 100

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Kakarotto 1 Dom 11 Nov 2012, 11:55

http://www.mmorpgbr.com/t3378-alltabela-de-acc-pontos
olha como eu queria


https://2img.net/r/ihimizer/img849/9959/xfd.jpg
Kakarotto 1
Kakarotto 1
Banido
Banido

Mensagens : 139

Ir para o topo Ir para baixo

Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos Empty Re: Ajuda ADD Pontos Depois de Fuul Tabela eu segui o tutorial [ALL]Tabela de Acc Pontos

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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