MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Teleport All

3 participantes

Ir para baixo

Teleport All  Empty Teleport All

Mensagem por guifs Dom 19 maio 2013, 15:16

Bom muitas pessoas estão querendo um sistema de teleport all então aki vai um:

Obs:Esta versão é 1.0 então ela teleporta todos os players onlines então tele quem quer e quem ñ quer ,mais é facil fazer a 1.2 mais vou deixar vcs quebrarem um pouquinho de nada a cabeça,mais vamos lá.

Só meche com o Servidor.

Bom para não lotar mt a parte sonsole do sv crie e um cmd,com a caption a escolha e o nome deixei o q vier.
Dê 2 clicks nesse cmd e add:

Código:
picWarpAll.Visible = True

Dps crie uma picturebox,e altere o nome para picWarpAll,e mude o caption de visible para false.
Crie 3 lbl,3 scroll bars e 2 butions

1ª:
Código:
Name:lblMM
              Capition:Map: 1
2ª:
Código:
Name:lblMX
              Capition:X: 0
Código:
Name:lblMY
            Capition:Y: 0

Agora as scroll bars:
1ª:
Código:
scrlMM
Dê 2 clicks e add:
Código:
lblMM.Caption = "Map: " & scrlMM.Value
2ª:
Código:
scrlMX
Dê 2 clicks e add:
Código:
lblMX.Caption = "X: " & scrlMX.Value
3ª:
Código:
scrlMY
Dê 2 clicks e add:
Código:
lblMY.Caption = "Y: " & scrlMY.Value

Butions:
Obs:Não mecham no name,só alterem o caption
1°:
Código:
Inicio
Código:
Dim index As Long
    Dim MapNum As Long
    Dim MapX As Long
    Dim mapY As Long
   
    MapNum = Int(scrlMM.Value)
    MapX = Int(scrlMX.Value)
    mapY = Int(scrlMY.Value)

    For index = 1 To MAX_PLAYERS
        If IsPlaying(index) Then
            If GetPlayerAccess(index) = 0 Then
                Call PlayerWarp(index, MapNum, MapX, mapY)
            End If
        End If
    Next index

    Call GlobalMsg("Boa sorte a todos,o evento acaba de começar,e que venca o melhor!", Yellow)
    picWarpAll.Visible = False
2°:
Código:
Fim
Código:
  Dim index As Long
    Dim MapNum As Long
    Dim MapX As Long
    Dim mapY As Long
   
    MapNum = Int(scrlMM.Value)
    MapX = Int(scrlMX.Value)
    mapY = Int(scrlMY.Value)

    For index = 1 To MAX_PLAYERS
        If IsPlaying(index) Then
            If GetPlayerAccess(index) = 0 Then
                Call PlayerWarp(index, MapNum, MapX, mapY)
            End If
        End If
    Next index

    Call GlobalMsg("É chegado o fim do nosso evento caros players,obrigado pela sua participação!", Yellow)

    picWarpAll.Visible = False

Recomendações:Antes de teleportarem os players avisem ele pela mensagem do sv,mais vamos continuar.

Creditos:Não sei acho q alguem já fez este sistema

E eu por postar aki e tirar duvidas de um monte de pessoas
guifs
guifs
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

Teleport All  Empty Re: Teleport All

Mensagem por dazateam Dom 19 maio 2013, 15:51

Funciono Smile

+1
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

Teleport All  Empty Re: Teleport All

Mensagem por hitler789 Dom 19 maio 2013, 17:50

Funciono aki +1 ;D
hitler789
hitler789
Novato
Novato

Mensagens : 15

Ir para o topo Ir para baixo

Teleport All  Empty Re: Teleport All

Mensagem por guifs Sex 24 maio 2013, 16:27

Bom no tutorial teve um pequeno erro,caso alguem qtive-se ascesso superior a 0 ele não seria teleportado então em :
Código:
If GetPlayerAccess(index) = 0 Then
Tanto no botão inicio e no botão fim acrescentem um "<"

Ficando:
Código:
If GetPlayerAccess(index) <= 0 Then

Asim quem tem ascesso igual a zero ou maior q zero é teleportado do mesmo geito
guifs
guifs
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

Teleport All  Empty Re: Teleport All

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos