Player Warp Tiles
Especially for Advocate
At the moment, the way player movement is currently handled is, the server moves the player onto the next tile, then tells the client that the player has moved at which point the client starts moving the player. Now if the player moves onto a tile with an attribute, the server will apply that effect to the player before the client actually visually shows that the player is on the tile.
Aim of this tutorial is to change the warp tile so that it waits until the player is on the tile fully before warping them
So to begin, find this section of code in modGamelogic in the server
Code:
' Check to see if the tile is a warp tile, and if so warp them
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WARP Then
MapNum = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data1
x = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2
y = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data3
Call PlayerWarp(Index, MapNum, x, y)
Moved = YES
End If
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WARP Then
MapNum = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data1
x = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2
y = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data3
Call PlayerWarp(Index, MapNum, x, y)
Moved = YES
End If
This piece of code basically checks if there’s a warp tile immediately after a player has moved (Remember me saying that the server applies tile attribs straight away?)
Now we need to change that so that it’ll just tell the server that the player will need to be warped soon so Change that too…
Code:
' Check to see if the tile is a warp tile, and if so warp them
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WARP Then
Player(Index).WarpTick = GetTickCount + 200
Moved = YES
End If
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WARP Then
Player(Index).WarpTick = GetTickCount + 200
Moved = YES
End If
Now then, for the people who are actually reading this, you’d have noticed that I’ve used something you haven’t got so add this part to the server AccountRec type in modTypes
Code:
WarpTick As Long
Also, don’t forget to change that 200 value to something more suitable for your server (depending on what speed your players walk in the client, since it depends on fps and walk/run speed)
K, add to the bottom of any module the following sub
Code:
Public Sub CheckWarp()
Dim i As Integer
For i = 0 To MAX_PLAYERS
If IsConnected(i) Then
If Player(i).WarpTick < GetTickCount And Player(i).WarpTick > 0 Then
Call PlayerWarp(i, Map(GetPlayerMap(i)).Tile(GetPlayerX(i), _
GetPlayerY(i)).Data1, Map(GetPlayerMap(i)).Tile(GetPlayerX(i), GetPlayerY(i)).Data2, _
Map(GetPlayerMap(i)).Tile(GetPlayerX(i), GetPlayerY(i)).Data3)
' Reset WarpTick so it doesnt constantly warp them
Player(i).WarpTick = 0
End If
End If
Next i
End Sub
Simple routine, checks every player, see if they need to warp, check if its actually time to warp, then after they’ve warped, reset warp tick so we don’t continuously warp them
Now for the final part, we need to call it from somewhere, this can be your choice but I’ve done it from another custom timer
I did consider using GameAi or something but that’s called every 500ms, and speeding that up could have various effects on the game (npcs on speed anyone?) So I thought the safest option would be to use a timer
I created a simple timer with interval of 25 (although you could change this, I just used it since it was ¼ of 100) and inside was the code
Code:
Call CheckWarp
That is basically it, simple fix, not exactly 100% since I’m only delaying the warp and not timing it properly but it’ll do
Oh yea, I forgot to mention, I havent tested this on servers with more then one person, but I dont see anything that should cause a problem
