Universo Games
Ola , Convidado



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

[ALL]comando mostrando os resets e poder de luta.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]comando mostrando os resets e poder de luta.

Mensagem por Thales12 em Seg 11 Out 2010, 18:54

No Principal ou no Main, 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("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

e adicione:

Código:
If Lcase(Trim(TextSay)) = "/ki" Then
Call BattleMsg(index, "Seu Ki é de: " & Ki & "!", 14, 0)
Call BattleMsg(index, "Voce tem " & GetPlayerResets(Index) & " Resets", 14, 0)
Exit Sub
End If

OBS: caso queiram por para aparecer seu poder de luta adicione acima do

Código:
If Lcase(Trim(TextSay)) = "/ki" Then

o seguinte código

Código:
Ki = GetPlayerSTR(index) + GetPlayerDef(index) + GetPlayerSPEED(index) + GetPlayerMAGI(index)

Creditos:GamesPower
Créditos: Thales.

[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]comando mostrando os resets e poder de luta.

Mensagem por Lucas Roberto em Seg 11 Out 2010, 20:20

+1 CRED
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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