Últimos assuntos
Quem está conectado?
Há 1 usuário online :: 0 registrados, 0 invisíveis e 1 visitante Nenhum
[ Ver toda a lista ]
O recorde de usuários online foi de 13 em Sex Mar 04, 2022 3:18 am
Top dos mais postadores
Warrior_Maker | ||||
Tayllor | ||||
KingSora | ||||
~FullzDied | ||||
SynysterGates | ||||
NeeTo | ||||
Alumary | ||||
SameKage | ||||
samuel250 | ||||
Vitor-DR. |
Sistema de Teletransportar todos de uma vez
2 participantes
TutoRPG :: Eclipse Origins :: Programação :: Tutoriais
Página 1 de 1
Sistema de Teletransportar todos de uma vez
Server Side
- Crie uma command button no control da frmServer.
deixe-a normal.
- Der 2 cliques na command button ponha:
- Crie uma picturebox na parte control do server ponha o nome de picWarpAll e va na visible de suas properties e ponho false.
- Crie uma label dentro da picturebox com o nome lblMM e o caption Map: 1
- Abaixo da label que acabamos de construir, faça uma HScrollbar com o nome scrlMM
Der 2 cliques e ponha
- Abaixo crie uma label com o nome lblMX e a caption X: 0
- De baixo da label lblMX faça outra HScrollbar com o nome scrlMX. der dois cliques na mesma e ponha:
- Abaixo do que acabamos de construir faça outra label dessa vez com o nome lblMY e o caption Y: 0
- Abaixo acrescente a HScrollbar ponhaa o nome scrlMY e der dois cliques na mesma e ponha:
- Ainda ta picturebox crie embaixo da ultima HScrollbar um command button com qualquer nome e caption der dois cliques no mesmo e adicione:
- Abaixo crie outra command button com qualquer nome e com a Caption Cancelar der dois cliques na mesma e adicione:
É isso erros ou duvidas postem aqui.
Créditos
Tayllor
O Sistema agora sera unico da TUTORPG,para postar em outrolocal por favor pedir permissão.
- Crie uma command button no control da frmServer.
deixe-a normal.
- Der 2 cliques na command button ponha:
- Código:
scrlMM.Max = MAX_MAPS
scrlMX.Max = MAX_MAPX
scrlMY.Max = MAX_MAPY
picWarpAll.Visible = True
- Crie uma picturebox na parte control do server ponha o nome de picWarpAll e va na visible de suas properties e ponho false.
- Crie uma label dentro da picturebox com o nome lblMM e o caption Map: 1
- Abaixo da label que acabamos de construir, faça uma HScrollbar com o nome scrlMM
Der 2 cliques e ponha
- Código:
lblMM.caption = "Map: " & scrlMM.Value
- Abaixo crie uma label com o nome lblMX e a caption X: 0
- De baixo da label lblMX faça outra HScrollbar com o nome scrlMX. der dois cliques na mesma e ponha:
- Código:
lblMX.caption = "X: " & scrlMX.Value
- Abaixo do que acabamos de construir faça outra label dessa vez com o nome lblMY e o caption Y: 0
- Abaixo acrescente a HScrollbar ponhaa o nome scrlMY e der dois cliques na mesma e ponha:
- Código:
lblMY.caption = "Y: " & scrlMY.Value
- Ainda ta picturebox crie embaixo da ultima HScrollbar um command button com qualquer nome e caption der dois cliques no mesmo e adicione:
- 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(O servidor teletransporta todos para map " & MapNum & ".", YELLOW)
picWarpAll.Visible = False
- Abaixo crie outra command button com qualquer nome e com a Caption Cancelar der dois cliques na mesma e adicione:
- 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("O servidor teletransporta todos para map " & MapNum & ".", YELLOW)
picWarpAll.Visible = False
É isso erros ou duvidas postem aqui.
Créditos
Tayllor
O Sistema agora sera unico da TUTORPG,para postar em outrolocal por favor pedir permissão.
Última edição por Tayllor em Dom Ago 26, 2012 5:58 pm, editado 1 vez(es)
Re: Sistema de Teletransportar todos de uma vez
vlw ai!Quer um rep?Toma ai so pq ta postando bastante!
Tópicos semelhantes
» Sistema de Ferreiro Para todos os RPG Makers
» Sistema de Guild
» Sistema De Vila
» (New)Sistema de pescaria
» (New) Sistema de minerar
» Sistema de Guild
» Sistema De Vila
» (New)Sistema de pescaria
» (New) Sistema de minerar
TutoRPG :: Eclipse Origins :: Programação :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Ter Set 10, 2013 12:30 pm por lauk
» Sistema de Guild (do Eduardo)
Ter maio 14, 2013 8:54 pm por Khaws
» Sistema de Guild
Ter maio 14, 2013 6:48 pm por Khaws
» Teco Fabrica
Sáb Mar 23, 2013 8:18 am por ~FullzDied
» Apresentaçao
Sex Mar 01, 2013 6:58 pm por Sweeps
» Editando nick
Sex Mar 01, 2013 6:35 pm por Sweeps
» Sistema De Vila
Sex Fev 01, 2013 4:59 pm por ~FullzDied
» alguns tilesets
Sáb Dez 22, 2012 8:42 pm por Diegoslstuto
» Tilesets de natureza
Sáb Dez 22, 2012 8:40 pm por Diegoslstuto
» Olá, vim para trazer sistemas e muitas outras coisas
Qui Dez 13, 2012 3:09 pm por ~FullzDied
» [Recrutando] Bleach Online Dark Saga
Sáb Nov 10, 2012 8:23 pm por Hunter™
» Dragon Ball Fox
Dom Out 28, 2012 7:55 am por NeeTo
» Tutorial Mapper - Como avaliar um mapa
Sáb Out 13, 2012 12:45 pm por NeeTo
» Life RPG Maker 2.0
Qui Out 11, 2012 4:02 pm por SynysterGates
» Fórum decaido
Qui Out 11, 2012 2:16 pm por SynysterGates
» Dragon Ball Elite
Qua Out 10, 2012 3:07 pm por KingSora
» Auto Ataque por checkbox
Ter Out 09, 2012 7:35 pm por Warrior_Maker
» Pokémon Online - Xstrond Games BETA
Ter Out 02, 2012 10:29 pm por thales12
» Auto Correr Por CheckBox
Ter Out 02, 2012 10:03 pm por thales12
» Auto Loot para Eclipse Origins
Ter Out 02, 2012 10:02 pm por thales12
» Ganhar Item em Certo Nivel
Ter Out 02, 2012 9:58 pm por thales12
» SK - Lógica de Programação - Aula 3
Qua Set 26, 2012 7:05 pm por SameKage
» Distrito Rpg Maker 2.0 no Ar !!
Dom Set 23, 2012 7:59 pm por SameKage
» Sistemas que preciso
Sex Set 21, 2012 7:28 pm por KingSora
» [ALL] Títulos nos NPC's 1.0
Sex Set 21, 2012 5:38 pm por lucas100vzs
» Vídeo Tutorial Mapper Caverna - MMORPG 2D
Qui Set 20, 2012 8:16 pm por KingSora
» Sistema de plantar e colher
Ter Set 18, 2012 10:00 pm por SameKage
» Perfect engine
Ter Set 18, 2012 9:59 pm por SameKage
» O Seu pirata chegou !
Dom Set 16, 2012 7:58 pm por SameKage
» Novidades para tutorpg o que acha?
Sáb Set 15, 2012 7:03 pm por Guilherme Azevedo
» [ZIG ZAG GAMES] Age of Dragons
Sáb Set 15, 2012 1:56 pm por Guilherme Azevedo
» Me ajudem Pliss
Sex Set 14, 2012 9:48 am por KingSora
» SK - HTML - Aula 1
Qui Set 13, 2012 12:35 pm por SameKage
» Forum Decaindo
Ter Set 11, 2012 1:52 pm por Tayllor
» Meus 3 mapas
Ter Set 11, 2012 11:26 am por KingSora
» [Apresentação] Okumura-Rin~
Seg Set 10, 2012 5:43 pm por Warrior_Maker
» 3 primeiras sprites
Sex Set 07, 2012 6:19 pm por KingSora
» [EEB] Comando para Salvar Seu Game
Sex Set 07, 2012 5:06 pm por SynysterGates
» [Off] Olha Suas PM Tayllor
Sex Set 07, 2012 4:49 pm por Tayllor
» Fabrica da JCG Corp: Technology in designer [Fechada
Qui Set 06, 2012 6:15 pm por KingSora