Entrar e Sair

por nikolasfoz Qui 22 Out 2009, 11:08

Gente eu tinha aquele código de mostra quando alguem entra ou sai e talz, se é vip ou nao e talz, mais agora perdi deletei o bloco de notas em que ela estava, tem como alguem me postar, o tutorial completo dela ,deve ser pequeno é só onde eu devo colocar e os códigos né XD eu sei que vai no principal, aprkaporkaporkar a eu nem sei oq to falando mais, então obrigado desde já

Exemplo: fulano VIP ENTROU NO DBZAERO.
fulano VIP SAIU DO DBZ AERO

por Rio Absolut Qui 22 Out 2009, 16:02

aqui acho que é issu neh só trocar

Código:: Sub JoinGame(index) Dim GameName Dim MOTD Dim GMOTD GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") GMOTD = Trim(GetVar("guilds.ini", GetPlayerGuild(index), "Motd")) ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If If GetPlayerGuild(index) = "" Then Call PlayerMsg(index, "Voce Nao Tem Guild!", 9) Else Call PlayerMsg(index, GetPlayerGuild(index) & ": " & GMOTD, 9) End If End Sub End Sub Sub LeftGame(index) Dim GameName Dim n GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) ' Check for boot map If GetBootMap(index) > 0 Then Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) End If End Sub

por nikolasfoz Qui 22 Out 2009, 17:01

ADM Garação escreveu:aqui acho que é issu neh só trocar

Código:
Sub JoinGame(index) Dim GameName Dim MOTD Dim GMOTD GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") GMOTD = Trim(GetVar("guilds.ini", GetPlayerGuild(index), "Motd")) ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If If GetPlayerGuild(index) = "" Then Call PlayerMsg(index, "Voce Nao Tem Guild!", 9) Else Call PlayerMsg(index, GetPlayerGuild(index) & ": " & GMOTD, 9) End If End Sub End Sub Sub LeftGame(index) Dim GameName Dim n GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) ' Check for boot map If GetBootMap(index) > 0 Then Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) End If End Sub

não eu quero que apareça no global quando ele entra, player tal acabou de entrar e talz !

por Lucas Lôpo Qui 22 Out 2009, 18:49

Acho que o que voce quer seja isso ^^

Código:: If GetPlayerAccess(index) => 2 Then Call GlobalMsg(GetPlayerName(index) & " Está Online", 0) End If

por nikolasfoz Qui 22 Out 2009, 23:09

Alexkids escreveu:Acho que o que voce quer seja isso ^^

Código:
If GetPlayerAccess(index) => 2 Then Call GlobalMsg(GetPlayerName(index) & " Está Online", 0) End If

sim eu quero isso ai mesmo alex kids, só q eu quero completo se nao for pedir muito, o de entrar e sair e onde botar ...

por Lucas Lôpo Sex 23 Out 2009, 08:59

Bom nao sei como voce quer dizer o resto mas entao vou encinar onde voce deve por..

Abaixo de :

Código:: Sub JoinGame(index) Dim GameName Dim MOTD

Voce coloca :

Código:: ' Send a global message that ele/ela joined If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " Está Online! ", 0) End If If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(ViP) Está Online! ", 14) End If If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & "(VipFull) Está Online! ", 2) End If

Esse que coloquei ai é o que eu uso no meu server ^^ bom proveito...

por boasfesta Sex 23 Out 2009, 14:39

No de sair voce coloca então

Código:: Sub LeftGame(index)

Em baixo

Código:: ' Send a global message that ele/ela joined If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " Está Online! ", 0) End If If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(ViP) Está Online! ", 14) End If If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & "(VipFull) Está Online! ", 2) End If

Espero tem ajudado Very Happy

por Rio Absolut Ter 03 Nov 2009, 22:07

boasfesta escreveu:No de sair voce coloca então
Código:
Sub LeftGame(index)
Em baixo
Código:
' Send a global message that ele/ela joined If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " Está Online! ", 0) End If If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(ViP) Está Online! ", 14) End If If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & "(VipFull) Está Online! ", 2) End If

Espero tem ajudado

Desculpe corrigir + esta errado , coisa minima portugues , Como eu vou sair falando que eu estou online , Edite o Post

por nikolasfoz Qua 04 Nov 2009, 09:42

Geração Desing escreveu:
boasfesta escreveu:No de sair voce coloca então
Código:
Sub LeftGame(index)
Em baixo
Código:
' Send a global message that ele/ela joined - AQUI SERIA "LEFT" NÃO É? If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " Está Online! ", 0) End If If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(ViP) Está Online! ", 14) End If If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & "(VipFull) Está Online! ", 2) End If

Espero tem ajudado

Desculpe corrigir + esta errado , coisa minima portugues , Como eu vou sair falando que eu estou online , Edite o Post

por Karlos Sáb 14 Nov 2009, 13:11

Odeio esso codigo assim todo mundo sabe quem esta on e quem não esta. ¬¬' prefiro um que mostre a quantidade de player online. e um outro parecido com
/playeronline
/gmonline