[ALL]Tansformações vip e free

por gokured Qua 20 Out 2010, 15:20

bom outro tuto meu . Nao vi esse tuto aki entao revolve postar aki esse tuto , um tuto que quando tu usar um comando ele ira fazer q o sprite q tu tem 2 x mais forte agora vamos lá

vai em Binários,Servidor,Scripts e Principal . agora vocês apertem CTRL+F dai isso vai fazer abri uma janelinha ae da você porcura 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 Dim ki Dim Resets m = GetVar("Dados.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index) Portal = GetPlayerHelmetSlot(index) i = 1 C = 0

agora vocês dão enter e adiciona isso:

Código:: If LCase(Trim(TextSay)) = "/ssj" Then If GetPlayerAccess(Index) >= 0 Then If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 0 Then If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 0) Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call PlaySound(Index, "ssjtransform.wav") Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub End If End If End If End If End If

agora esplicação quero que pertem bem atenção ! [ALL]Tansformações vip e free 608858

If LCase(Trim(TextSay)) = "/gokussj" Then (aki e o comando de tranformação do sprite. )
If GetPlayerAccess(Index) >= 0 Then (aki e o acesso q pode usar o comando tipo se tu botar 2 acesso superior usa tb galera ^^ ).
If GetPlayerClass(Index) = 1 Then (aki e a classe requerida para usar o comando.)
If GetPlayerLevel(Index) >= 250 Then (aki e o level requerido para usar o comando.)
If GetPlayerSprite(Index) = 1 Then (aki e o sprite q tem que tar .)
Call SetPlayerSprite(Index, 35) (aki e o sprite q vai ir .)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) (aki e q o sprites va ificar 2 x mais forte.)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) (aki tb o sprites vai ficar 2x mais forte .)
Call PlaySound(Index, "ssjtransform.wav") (aki e o son q vai fazer quando você usar o comando que vocês botaro la em cima .)
Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False)
Exit Sub
End If
End If
End If
End If
End If

agora um uma coisa que quero que vocês pedindo para eu fazer mais tuto ae galera adoro ajuda

por AluCarD [FM] Qui 21 Out 2010, 11:25

Call SetPlayerSTR(Index, GetPlayerSTR(Index) + * 2)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + * 2)

Obs: os '+' não precisa assim ja da tb
Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2)

por gokured Qui 21 Out 2010, 13:34

ops nao tinha visto isso mais tu gosto no tuto ?

por Dukinha Sex 22 Out 2010, 20:05

Bom Tuto +1 cred

por Cristian Zero Qui 11 Nov 2010, 15:25

Muitoo bom seuu tuto manooo. Parabens [ALL]Tansformações vip e free 89051

por Lucas Roberto Qui 11 Nov 2010, 17:25

Arruma ae Veio voce esqueceu e nao arrumou

Arruma isso ae pow

por matheusgxdc Dom 20 Fev 2011, 14:07

tuto bom vc merece +1

por TeamH4ckers Qua 08 Ago 2012, 12:56

aqui nao ta dando eu vo no jogo e escrevo o comando e n dá :s

por montevechi Qua 08 Ago 2012, 12:58

Não pode reviver topicos deleta aew antes q eles vejam

por Pablo Qua 08 Ago 2012, 13:04

TeamH4ckers cara olha a data da proxima vez mano, leia as regras antes de postar... Obs: Olhe o level se está certo para transformação.

Tópico Trancado

Att: Pablo

por Conteúdo patrocinado

[ALL]Tansformações vip e free

[ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free

Re: [ALL]Tansformações vip e free