Ajuda com GuilD e outros !

por Hunter Sáb 21 Nov 2009, 19:29

Como fazer com que só acess 2 + crie guild e dê acess 5 ao dono?
Como fazer um comando para a cidade principal tpw "/sair"?
Como trocar os comandos de "/grupo" para "/party" e "/sair" p/ "/leave" no EEB?

Wink

por Lucas Lôpo Sáb 21 Nov 2009, 19:54

Bom pra o cara criar uma guild com acesso 2 + so procurar por:

Código:: If KeyCode = vbKeyF5 Then

E onde tem :

Código:: If Player(MyIndex).Guildaccess = 1 Then

Mude para :

Código:: If Player(MyIndex).Guildaccess => 2 Then

Como fazer um comando para a cidade principal tpw "/sair"?

Vá na pasta do servidor e procure pela pasta script dentro de script procure por "Principal.txt ou Mai.txt" e entra procure por isso :

Código:: Case "/bell" Call GlobalMsg("*ding* *ding* *ding*", 7) Exit Sub

E abaixo coloque isso :

Código:: Case "/sair" If GetPlayerAccess(index) => 0 Then Call PlayerWarp(index, 151, 5, 12) 'Aqui é as cordenadas (MAPA , X , Y) End If Exit Sub

E pronto xD

Como trocar os comandos de "/grupo" para "/party" e "/sair" p/ "/leave" no EEB?

No cliente side procure por :

Código:: ' Party request If LCase(Mid(MyText, 1, 6)) = "/grupo" Then ' Make sure they are actually sending something If Len(MyText) > 7 Then ChatText = Mid(MyText, 8, Len(MyText) - 7) Call SendPartyRequest(ChatText) Else Call AddText("Use: /grupo <nome do jogador>", AlertColor) End If MyText = vbNullString Exit Sub End If

Mude a sub toda para :

Código:: ' Party request If LCase(Mid(MyText, 1, 6)) = "/party" Then ' Make sure they are actually sending something If Len(MyText) > 7 Then ChatText = Mid(MyText, 8, Len(MyText) - 7) Call SendPartyRequest(ChatText) Else Call AddText("Use: /party <nome do jogador>", AlertColor) End If MyText = vbNullString Exit Sub End If

Para sair agora procure por :

Código:: ' Leave party If LCase$(Mid(MyText, 1, 6)) = "/sair" Then Call SendLeaveParty MyText = vbNullString Exit Sub End If

Mude para :

Código:: ' Leave party If LCase$(Mid(MyText, 1, 6)) = "/leave" Then Call SendLeaveParty MyText = vbNullString Exit Sub End If

por Hunter Sáb 21 Nov 2009, 23:19

Perfeito, muito bom parabéns, +1 Credito Wink

Só faltou uma coisa, qdo crio a guild, o acesso padrão do dono da guild é 3, quero colocar padrão = 5, flw's!

por Demi Dom 22 Nov 2009, 04:31

No servidor procure por:

Código:: Case "makeguild" ' O dono está online? If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If ' Ele já está em uma guild? If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em uma guild.", Red) Exit Sub End If ' Se estiver tudo bem, faça a Guild Call SetPlayerGuild(FindPlayer(Parse(1)), (Parse(2))) Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 3) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub

Mude para:

Código:: Case "makeguild" ' O dono está online? If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If ' Ele já está em uma guild? If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em uma guild.", Red) Exit Sub End If ' Se estiver tudo bem, faça a Guild Call SetPlayerGuild(FindPlayer(Parse(1)), (Parse(2))) Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 5) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub

por Hunter Dom 22 Nov 2009, 06:51

Valeeoo!
Só num sei se tuh é homem, mulher ou os dois mas...

vlw! Smile

O único problema é que, quando aperto F5 pra colocar membro e talz, não acontece nada, nem abre aquele submenu de "fazer iniciante" e tal..! Oô'

por boasfesta Dom 22 Nov 2009, 17:09

isso voce tem que mudar no código dentro do visual basic
procure por GetPlayerGuildAccess(myindex) > 2 then
ae voce muda 2 para 4
fim

Obs: é homem xD

por Hunter Dom 22 Nov 2009, 19:00

Nem consegui , é como se a tecla F5 pra colocar alguém em guild estivesse bloqueada, num aparece nada quando aperto, mesmo meu char sendo aceess 5 da guild Shocked

por boasfesta Seg 23 Nov 2009, 12:48

tente mudar para

Código:: Case "makeguild" ' O dono está online? If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If ' Ele já está em uma guild? If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em uma guild.", Red) Exit Sub End If ' Se estiver tudo bem, faça a Guild Call SetPlayerGuild(FindPlayer(Parse(1)), (Parse(2))) Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 6) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub

Não esqueça de criar uma nova guild Wink

por Hunter Seg 23 Nov 2009, 17:02

Bom Tio Boas, eu ajeitei aqui, mas ñ usando o seu code, eu até tentei mas ñ funfô, tipo: eu percebi que quando troco o acesso padrão do criador da guild que é "3" para "5" por exemplo, a tecla F5 trava, então deixei acess 3 padrão mesmo Shocked

por boasfesta Qua 25 Nov 2009, 11:11

Ta bom voce decide, caso queira ajuda melhor pode me contatar no msn

por Hunter Qua 25 Nov 2009, 21:05

Com Certeza Wink

por Demi Qui 26 Nov 2009, 12:15

Depois darei uma olhava melhor nisso e editarei (ou em grande necessidade, criarei um tutorial).

por Hunter Qui 26 Nov 2009, 16:50

por Lucas Roberto Dom 09 Jan 2011, 12:15

Topico Trancado e Movido Assuntos resolvidos

por Conteúdo patrocinado

Ajuda com GuilD e outros !

Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !

Re: Ajuda com GuilD e outros !