Convidado Convidado
| Assunto: [ALL]comando mostrando os resets e poder de luta. Seg 11 Out 2010, 19: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. [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]comando mostrando os resets e poder de luta. Seg 11 Out 2010, 21:20 | |
| | |
|