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 /iventario

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

Tutorial [ALL]Comando /iventario

Mensagem por Thales12 em Ter 12 Out 2010, 22:43

Abra seu Principal ou Main e 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 abaixo no lugar q achar melhor o seguinte código:

Código:
If LCase(Mid(TextSay, 1, 8 )) = "/inventorio" Then
If Len(TextSay) > 9 Then
If GetPlayerAccess(index) < 0 Then
Call PlayerMsg(index, "Você precisa ter mais acesso para usar esse comando!", 4)
Exit Sub
End If

OBS: no
Código:
If LCase(Mid(TextSay, 1, 8 )) = "/inventorio" Then
tire o espaço entre o >>
Código:
8 ))
deixe >>>
Código:
8))

Créditos: Desconhecido
Créditos: a mim por postar.

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

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Comando /iventario

Mensagem por Lucas Roberto em Qua 13 Out 2010, 14:57

Legal em mais isso achu que vem incluido com EEB BR

/inv
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Comando /iventario

Mensagem por Thales12 em Ter 19 Out 2010, 22:36

sim vem, mais digamos q nao venha em algum... ai ja sabe tem o tuto ^^
avatar
Thales12

Mensagens : 182

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