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.

[ALL] Botão de dar Reset Pelo Server

+4
guidio
Ricardo
LukasC4
Thales12
8 participantes

Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty [ALL] Botão de dar Reset Pelo Server

Mensagem por Thales12 Dom 10 Abr 2011, 13:33

Abra o Server~Side va na frmServer na aba Painel de Controles Crie 1 commandButton no lugar q vc achar melhor de 2 clicks e adicione:

Código:
Dim Index As Long
Dim i As Long
On Error Resume Next

    Call GlobalMsg("O servidor deu um Reset grátis para todos!", BrightGreen)
    For Index = 1 To MAX_PLAYERS

        If IsPlaying(Index) = True Then
            If GetPlayerLevel(Index) >= MAX_LEVEL Then
                Call SetPlayerExp(Index, Experience(MAX_LEVEL))
                Call SendStats(Index)
            Else
                'Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1000)
                Call SetPlayerExp(Index, 1)
                Call SetPlayerLevel(Index, 1)
                Call SetPlayerResets(Index, GetPlayerResets(Index) + 1)
                Call PlayerMsg(Index, "Agora Você Tem " & GetPlayerResets(Index) & " Resets!", 4)

                If i < 3000 Then i = 3000
                If i > 3000 Then i = 3000
                Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i)

                If GetPlayerLevel(Index) >= MAX_LEVEL Then
                    Call SetPlayerExp(Index, Experience(MAX_LEVEL))
                    Call SendStats(Index)
                End If
                Call SendStats(Index)
            End If
        End If
    Next

caso queira q o botão de mais de 1 reset basta mudar essa linha aki :

Código:
Call SetPlayerResets(Index, GetPlayerResets(Index) + 1)

ali no numero 1 vc muda para a quantidade q vc quer !

agora so salvar e compilar ![ALL] Botão de dar Reset Pelo Server 256397

Créditos: a mim Thales12
Créditos: Willame


Última edição por Thales12 em Dom 10 Abr 2011, 15:30, editado 3 vez(es)
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por LukasC4 Dom 10 Abr 2011, 13:37

Hmm.. Gostei vou tentar no meu jogo, vai ajudar as pessoas que estavam procurando para seus jogos Very Happy
+ 1 Cred pelo trabalho ae..
LukasC4
LukasC4
Membro Junior
Membro Junior

Mensagens : 81

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Ricardo Dom 10 Abr 2011, 13:40

Pra que serve isso?
Ricardo
Ricardo


Mensagens : 1044

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por guidio Dom 10 Abr 2011, 13:42

Ae vc pode me falar como faz para por exemplo eu colocar /resets e aparecer Você Tem "100" resets ?
guidio
guidio
Novato
Novato

Mensagens : 10

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por St4rk Dom 10 Abr 2011, 13:47

Cria o comando para verificar os resets, como você prefiri e bote esse código.
Código:
Call PlayerMsg(Index, "Você tem " & GetPlayerResets(Index),3)
Simples ;O
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por guidio Dom 10 Abr 2011, 13:48

ta.. mais como eu crio esse comando ? Surprised
guidio
guidio
Novato
Novato

Mensagens : 10

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por St4rk Dom 10 Abr 2011, 13:50

Ai é com você, eu já te dei a vara, agora falta você saber usar :]
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Thales12 Dom 10 Abr 2011, 13:52

Pra que serve isso?


ja viu no server, q vc clica no botão dar 1 level, ai vc clica o cara ganha 1 level, e quase isso, em vez de vc ganhar level vai ganhar 1 reset ! ._.'
Simples ! '-'

se e util ou nao eu nao sei, mais to sem ideia doq fazer, entao fiz isso ai :S

mais acho q talvez tenha alguma utilidade ...
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Ricardo Dom 10 Abr 2011, 13:55

A entendi, mais nã me conquistou
Ricardo
Ricardo


Mensagens : 1044

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Lucas Roberto Dom 10 Abr 2011, 13:56

kkk simples e presiso de dois para fazer

Vlw Thales depois de 2 anos longe volto com algo ultio --'

Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por guidio Dom 10 Abr 2011, 13:56

onde eu coloco esse comando ?

Call PlayerMsg(Index, "Você tem " & GetPlayerResets(Index),3)

em q pasta? e em q lugar dela ? '-'
guidio
guidio
Novato
Novato

Mensagens : 10

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Lucas Roberto Dom 10 Abr 2011, 14:01

guidio

vai na pasta Server > Script > Main/Principal

Procure por:

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("Data.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)

abaixo coloque

Código:
If LCase(Trim(TextSay)) = "/resets" Then
Call PlayerMsg(index, "Você tem " & GetPlayerResets(index) & " Resetes!", 4)
Exit Sub
End If
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por guidio Dom 10 Abr 2011, 14:04

Vlw +1 Cred Very Happy
guidio
guidio
Novato
Novato

Mensagens : 10

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Thales12 Dom 10 Abr 2011, 14:04

kkk simples e presiso de dois para fazer

Vlw Thales depois de 2 anos longe volto com algo ultio --'

hauhauahuahuahuhauhau, so para nao dizer q nao fasso nada, fiz uma coisinha basica Very Happy

não foi preciso 2 para fazer nao ! '-'
molezinha isso ! ._.'
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Lucas Roberto Dom 10 Abr 2011, 14:06

e que os creditos estão pra dois

Créditos: a mim Thales12
Créditos: Willame

por isso eu pensei que voces dois tinha feito kkk

e valeu ae guidio pelo credito
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Thales12 Dom 10 Abr 2011, 14:09

e que os creditos estão pra dois

Créditos: a mim Thales12
Créditos: Willame

por isso eu pensei que voces dois tinha feito kkk

e valeu ae guidio pelo credito

eu sei eu sei Smile
é q os creditos realmente e de nos 2..
mais nao foi preciso 2 para fazer isso '-'
so 1 fez em menos de .. 30 segundos ! '-'
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por guidio Dom 10 Abr 2011, 14:36

ae outra duvida Neutral
tipo eu quero add /for+ 10000, /def+ 10000 etc.. mais so pode até 1k
como eu faço ? Surprised
guidio
guidio
Novato
Novato

Mensagens : 10

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por willa Dom 10 Abr 2011, 20:46

Simples, na verdade qualquer um pode faser isso. Mais quem fez foi eu, quando eu fiz comentei com ele, ai ele queria postar por isso tem os creditos de nois dois ali. No entanto elle ate fez de outra maneira mais bacana.
willa
willa
Membro Junior
Membro Junior

Mensagens : 80

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por DshFox Seg 11 Abr 2011, 02:26

nemli mas tae mais 1 cred
DshFox
DshFox
Membro Vitalicio
Membro Vitalicio

Mensagens : 614

Ir para o topo Ir para baixo

[ALL] Botão de dar Reset Pelo Server Empty Re: [ALL] Botão de dar Reset Pelo Server

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos