Mirage Source http://miragesource.net/forums/ |
|
Player Warp http://miragesource.net/forums/viewtopic.php?f=210&t=2228 |
Page 1 of 1 |
Author: | funkynut [ Thu Jul 05, 2007 2:34 pm ] |
Post subject: | Player Warp |
Not really a fix, and not even properly fixed anyways but good enough 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 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 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 |
Page 1 of 1 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |