Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Comando de Transformação

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Comando de Transformação em Seg 11 Out 2010, 19:18

Thales12


Membro
Membro
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 no lugar q achar melhor:

Código:
If LCase(Trim(TextSay)) = "/ssj" Then ' o comando q vai usar
If GetPlayerAccess(Index) >= 0 Then ' o acesso requerido
If GetPlayerClass(Index) = 1 Then ' a classe requerida
If GetPlayerLevel(Index) >= 250 Then ' o level requerido
If GetPlayerSprite(Index) = 1 Then ' a sprite requerida
Call SetPlayerSprite(Index, 35) ' a sprite q vai virar
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 2) ' a quantidade de str q vai ganhar
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2) ' a quantidade de def q vai ganhar
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2) ' a quantidade de velocidade q vai ganhar
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2) ' a quantidade de MAGI q vai ganhar
Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False)
Exit Sub
End If
End If
End If
End If
End If

OBS: caso vc queria por para duplicar, dividir, almentar ou diminuir basta add no:

Código:
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 2)

Desse Jeito:

Código:
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 100) ' add mais 100
Call SetPlayerSTR(Index, GetPlayerSTR(Index) - 100) ' tira 100
Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) ' duplica sua força se tiver 100 vai para 200, etc..
Call SetPlayerSTR(Index, GetPlayerSTR(Index) / 2) ' dividi sua força se tiver 200 vai para 100, etc..
OBS: tem o STR, DEF, MAGI e SPEED

Créditos: Desconhecido.
Créditos: Thales por adicionar algumas coisas e por postar.

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



Última edição por thalesbliss em Seg 11 Out 2010, 20:35, editado 1 vez(es)

2Tutorial Re: [ALL]Comando de Transformação em Seg 11 Out 2010, 20:18

Luucas Robeerto


Fundador
Fundador
Muito Bom

Mais esse Sistema naoe seu ponha os Creditos

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Comando de Transformação em Qua 11 Maio 2011, 12:54

elysium


Membro
Membro
EU TENTO DO MESMO JEITO Q TA AE MAIS NUM VAI

4Tutorial Re: [ALL]Comando de Transformação em Sex 13 Maio 2011, 14:10

Thales12


Membro
Membro
EU TENTO DO MESMO JEITO Q TA AE MAIS NUM VAI


Seu script deve estar bugado ! '-'
ou entao vc realmente esta fazendo algo errado. .

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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