[ALL]Comando /iventario

Convidado

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

tire o espaço entre o >>

deixe >>>

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Administrador Mensagens : 711

Legal em mais isso achu que vem incluido com EEB BR

/inv

Convidado

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