Teleport All

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

3ª

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