Ant-Warp Player
:: Elysium Engine :: Tutoriais
Página 1 de 1
Ant-Warp Player
Começando
Client Side
No modClientTCP procure por:
Procure por:
Agora procure por:
abc
Depois procure por:
Sever Side
No modServerTCP procure por:
Procure por:
Adicione:
Procure por:
Adicione:
Procure por:
Client Side
No modClientTCP procure por:
- Código:
Sub SendWarp(ByVal Where As String)
Dim Packet As String
Packet = "WARPPLAYER" & SEP_CHAR & Where & END_CHAR
Call SendData(Packet)
End Sub
- Código:
WARPPLAYER
- Código:
ABC
- Código:
Sub WarpMeTo(ByVal name As String)
Dim Packet As String
Packet = "WARPPLAYER" & SEP_CHAR & name & END_CHAR
Call SendData(Packet)
End Sub
- Código:
WARPPLAYER
- Código:
ABC
- Código:
Sub WarpTo(ByVal Name As String)
Dim Packet As String
Packet = "WARPTOME" & SEP_CHAR & Name & END_CHAR
Call SendData(Packet)
End Sub
- Código:
WARPTOME
- Código:
ABC
Procure por:
- Código:
Sub SendSetAccess(ByVal name As String, ByVal Access As Byte)
Dim Packet As String
Packet = "SETACCESS" & SEP_CHAR & name & SEP_CHAR & Access & END_CHAR
Call SendData(Packet)
End Sub
- Código:
SETACCESS
- Código:
ABC
Agora procure por:
- Código:
' ::::::::::::::::::::
' :: Weather packet ::
' ::::::::::::::::::::
If (Parse(0) = "weather") Then
If Val(Parse(1)) = WEATHER_RAINING And GameWeather <> WEATHER_RAINING Then
Call AddText("You see drops of rain falling from the sky above!", BrightGreen)
End If
- Código:
If (Parse(0) = "weather
abc
Depois procure por:
- Código:
' :::::::::::::::::
' :: Time packet ::
' :::::::::::::::::
If (Parse(0) = "time") Then
GameTime = Val(Parse(1))
End If
- Código:
If (Parse(0) = "time
- Código:
abc
Sever Side
No modServerTCP procure por:
- Código:
Case "gmtime"
GameTime = Val(Parse(1))
Call SendTimeToAll
Exit Sub
- Código:
Case "gmtime
- Código:
abc
- Código:
Case "weather"
GameWeather = Val(Parse(1))
Call SendWeatherToAll
Exit Sub
- Código:
Case "weather
- Código:
abc
Procure por:
- Código:
Case "warpto"
Call PlayerWarp(Index, Val(Parse(1)), GetPlayerX(Index), GetPlayerY(Index))
Exit Sub
- Código:
Case "warpto
Adicione:
- Código:
abc
Procure por:
- Código:
Case "warptome"
N = FindPlayer(Parse(1))
If N > 0 Then
Call PlayerWarp(N, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
Else
Call PlayerMsg(Index, "Player not online!", BrightRed)
End If
Exit Sub
- Código:
Case "warptome
Adicione:
- Código:
abc
Procure por:
- Código:
Case "warpplayer"
If Val(Parse(1)) > MAX_MAPS Or Val(Parse(1)) < 1 Then
If FindPlayer(Trim$(Parse(1))) <> 0 Then
Call PlayerWarp(Index, GetPlayerMap(FindPlayer(Trim$(Parse(1)))), GetPlayerX(FindPlayer(Trim$(Parse(1)))), GetPlayerY(FindPlayer(Trim$(Parse(1)))))
If Player(Index).Pet.Alive = YES Then
Player(Index).Pet.Map = GetPlayerMap(Index)
Player(Index).Pet.x = GetPlayerX(Index)
Player(Index).Pet.y = GetPlayerY(Index)
Player(Index).Pet.MapToGo = -1
Player(Index).Pet.XToGo = -1
Player(Index).Pet.YToGo = -1
End If
Else
Call PlayerMsg(Index, "'" & Parse(1) & "' não é um mapa ou um jogador online válido!", BrightRed)
Exit Sub
End If
Else
Call PlayerWarp(Index, Val(Parse(1)), GetPlayerX(Index), GetPlayerY(Index))
If Player(Index).Pet.Alive = YES Then
Player(Index).Pet.Map = GetPlayerMap(Index)
Player(Index).Pet.x = GetPlayerX(Index)
Player(Index).Pet.y = GetPlayerY(Index)
Player(Index).Pet.MapToGo = -1
Player(Index).Pet.XToGo = -1
Player(Index).Pet.YToGo = -1
End If
End If
Exit Sub
- Código:
Case "warpplayer
- Código:
abc
- Código:
' :::::::::::::::::::::::
' :: Set access packet ::
' :::::::::::::::::::::::
Case "setaccessabc"
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_CREATOR Then
Call HackingAttempt(Index, "Tentando usar poderes que você não possui?")
Exit Sub
End If
- Código:
Case "setaccess
- Código:
abc
:: Elysium Engine :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Seg Abr 08, 2013 7:18 pm por L Mars
» PlayGame chego !!
Qua Out 17, 2012 1:59 pm por PlayGame
» Dragon Ball Z Moster Online
Ter Out 16, 2012 8:19 pm por Myke ~
» [EEB]Sistema de Guerra ninja Basic Por ComandButton
Ter Out 16, 2012 8:14 pm por Myke ~
» Meus tutorias
Dom Out 14, 2012 4:55 pm por PlayGame
» Avaliem esse's desenho
Dom Out 14, 2012 4:36 pm por PlayGame
» Tutorial Mapper - Como avaliar um mapa
Sáb Out 13, 2012 4:52 pm por NeeTo
» Movimentação Wasd e Setas V2.0
Qui Out 11, 2012 6:14 pm por Myke ~
» Level Maximo 1000
Qui Out 11, 2012 6:10 pm por Myke ~