[EO] Sistema de Dash 1.0

por Itukakitu Dom Ago 05, 2018 4:17 pm

Itukakitu: Novato; Mensagens : 4
Créditos : 2

Mensagem nº1

[EO] Sistema de Dash 1.0

por Itukakitu Dom Ago 05, 2018 4:17 pm

Um sistema simples de dash :)

Ja aviso que tem alguns bugs, então se alguém tiver disponível a consertar pra deixar esse sistema perfeito eu agradeço.
Os bugs sao: Atravessar tiles type blocked, algumas vezes se usar o dash perto da parede pd dar subscript out of range no server.

Client-Side

no modEnumerations, procure por:

Código:: Public Enum ClientPackets

Antes do End Enum Adicione:

Código:: CSendDash

No final do modClientTCP adicione

Código:: Sub SendDash() Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CSendDash SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendDash", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Na frmMain na Sub Form_KeyPress procure por:

Código:: ' prevents textbox on error ding sound If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyEscape Then KeyAscii = 0 End If

Abaixo adicione:

Código:: ' Troque o vkKeyS por outra tecla de sua preferencia If KeyAscii = vbKeyS Then Call SendDash End If

Client Finalizado, vamos ao server

Server-Side

no modEnumerations, procure por:

Código:: Public Enum ClientPackets

Antes do End Enum Adicione:

Código:: CSendDash

No modHandleData na sub InitMessages, antes do end sub adicione:

Código:: HandleDataSub(CSendDash) = GetAddress(AddressOf HandleUseDash)

Ainda no modHandleData, no final do mod adicione:

Código:: Sub HandleUseDash(ByVal Index As Long) Dim i As Long Dim x As Long, y As Long Dim xt As Long Dim yt As Long Dim xtt As Long Dim ytt As Long Dim n As Long ' see if cooldown has finished If TempPlayer(Index).DashCD > GetTickCount Then 'PlayerMsg Index, "Aguarde para usar o Dash novamente.", BrightRed Exit Sub End If ' Tempo até o proximo uso do dash (2000 = 2 Segundos) TempPlayer(Index).DashCD = GetTickCount * 2000 If Player(Index).Dir = 0 Then xt = Player(Index).x yt = Player(Index).y - 4 + 0 If xt > Map(Index).MaxX Then xt = Map(Index).MaxX If yt > Map(Index).MaxY Then yt = Map(Index).MaxY If xt < 1 Then xt = 1 If yt < 1 Then yt = 1 If Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index Else If yt < Player(Index).y Then Do Until Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE yt = yt + 1 Loop If yt < Player(Index).y Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If Else If yt > Player(Index).y Then Do Until Map(mapnum).Tile(xt, yt).Type = TILE_TYPE_WALKABLE yt = yt - 1 Loop If yt > Player(Index).y Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If End If End If End If End If If Player(Index).Dir = 1 Then xt = Player(Index).x yt = Player(Index).y + 4 - 0 If xt > Map(Index).MaxX Then xt = Map(Index).MaxX If yt > Map(Index).MaxY Then yt = Map(Index).MaxY If xt < 1 Then xt = 1 If yt < 1 Then yt = 1 If Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index Else If yt < Player(Index).y Then Do Until Map(mapnum).Tile(xt, yt).Type = TILE_TYPE_WALKABLE yt = yt + 1 Loop If yt < Player(Index).y Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If Else If yt > Player(Index).y Then Do Until Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE yt = yt - 1 Loop If yt > Player(Index).y Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If End If End If End If End If If Player(Index).Dir = 2 Then xt = Player(Index).x - 4 + 0 yt = Player(Index).y If xt > Map(Index).MaxX Then xt = Map(Index).MaxX If yt > Map(Index).MaxY Then yt = Map(Index).MaxY If xt < 1 Then xt = 1 If yt < 1 Then yt = 1 If Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE Then Call SendAnimation(GetPlayerMap(Index), 6, GetPlayerX(Index), GetPlayerY(Index), 0, 0) SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index Else If xt < Player(Index).x Then Do Until Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE xt = xt + 1 Loop If xt < Player(Index).x Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If Else If xt > Player(Index).x Then Do Until Map(mapnum).Tile(xt, yt).Type = TILE_TYPE_WALKABLE xt = xt - 1 Loop If xt > Player(Index).x Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If End If End If End If End If If Player(Index).Dir = 3 Then xt = Player(Index).x + 4 - 0 yt = Player(Index).y If xt > Map(Index).MaxX Then xt = Map(Index).MaxX If yt > Map(Index).MaxY Then yt = Map(Index).MaxY If xt < 1 Then xt = 1 If yt < 1 Then yt = 1 If Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE Then Call SendAnimation(GetPlayerMap(Index), 7, GetPlayerX(Index), GetPlayerY(Index), 0, 0) SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index Else If xt < Player(Index).x Then Do Until Map(Index).Tile(xt, yt).Type = TILE_TYPE_WALKABLE xt = xt + 1 Loop If xt < Player(Index).x Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If Else If Not Player(Index).Map <= 0 Then If xt > Player(Index).x Then Do Until Map(mapnum).Tile(xt, yt).Type = TILE_TYPE_WALKABLE xt = xt - 1 Loop If xt > Player(Index).x Then SetPlayerX Index, xt SetPlayerY Index, yt SendPlayerXYToMap Index End If End If End If End If End If End If End Sub