Comandos de chat

por Fogomax Dom 09 Set 2012, 01:31

Bom, eu queria saber como eu faço para executar uns códigos quando a pessoa digita algo no chat. Por exemplo:
"/comandos", "@comandos" ou "/teleport 15".
Como não sei nada de VB, queria saber onde colocar o código, e como modificá-lo. Obrigado Smile

por stiflertech Dom 09 Set 2012, 14:10

Fogomax escreveu:Bom, eu queria saber como eu faço para executar uns códigos quando a pessoa digita algo no chat. Por exemplo:
"/comandos", "@comandos" ou "/teleport 15".
Como não sei nada de VB, queria saber onde colocar o código, e como modificá-lo. Obrigado

bom Se vc usa o EEBR.
vc vai na Pasta Server/script/Principal.txt

e proucure 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)

Vc colocara todos os comandas a baixo dessa SUB.

Observação o comando "/Comando" esta em Seu Projeto VB6. não no SadScript

'mais se kiser por ele em SadScript ai vai uma ajuda
Basta add isso em seu Principal.Txt.

Código:: If LCase(Trim(TextSay)) = "/X" Then ' troque o X para o comando ke vc ker. If GetPlayerAccess(index) => 0 Then ' acesso que ira usar o comando. If GetPlayerlevel(index) => 1 ' level que o player tem que esta no 1 ou mais. Call PlayerMsg(index, "/ssj", 15) ' Msg que ira mostrar. End If Exit Sub End If

[/code]

tem varios outros comando

os que se tem GET = vc tem que ter ou estar
ter ou estar por exemplo vc tem que ter lvl 500 ou estar em no;
mapa 1, de posiçaoX 5, e posiçao Y 4

os SET vc vai ganhar

exemplo
Todo o GET começa por IF
o Seto por CALL

Código:: If GetPlayerSprite(index) = 1 then call SetPlayerSprite(index, 500)

espero ter te ajudado

por Eduardo Dom 09 Set 2012, 14:52

Cara ele postou na Area de EO então não é EEB
Fogomax explique melhor seu pedido

por Fogomax Dom 09 Set 2012, 18:04

Edu, é que eu queria saber como eu faço para algo acontecer quando você digita algo no chat. Por exemplo, quando eu digito:
"/comando 15"
Ele execute algum comando. Por exemplo:

Código:: if "/comando 15" then begin lalala ~ else lalala~ end

E tbm quero saber como pega esse número, que vem dps do comando, o 15.
Como não sei VB, vc n deve ter intendido nada do código acima.
Só quero que detecte se alguém escreveu certo comando, caso escreveu, executo os códigos.

por Eduardo Dom 09 Set 2012, 18:53

continuo não entendendo , mais acho que você quer isso
Procura "/help" depois adiciona isso:

Código:: Case "/comando15" 'Fiz sem VB qualquer erro fala AddText "lalala~",Cyan

por Conteúdo patrocinado

Comandos de chat

Comandos de chat

Re: Comandos de chat

Re: Comandos de chat

Re: Comandos de chat

Re: Comandos de chat

Re: Comandos de chat