[EO]Andar Com Mouse[Tutorial]

por guifs Qua 17 Jul 2013, 09:06

Obs: esse sistema não foi desenvolvido por mim,mais sim por um membro da touch,mas muito estavam com dificuldade em traduzi-lo e então apedido de um membro vim postar

Explicação:
Com esse sistema seu char será capaz de andar utilizando o mouse,para realizar essa função você deverá manter presionado o botão direito e no mais so rodar a seta.

Tudo é no client.

Primeiro passo:

Vá até:

modGlobals

e no final dele adicione:

Código:: ' mover com o mouse Public MyX As Integer Public MyY As Integer Public MouseMove As Boolean

Em seguida procure por:

Sub Main

E antes de:

Código:: ' Error handler Exit Sub errorhandler: HandleError "Main", "modGeneral", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

Adicione:

Código:: MouseMove = False

Depois procure por:

Código:: Sub CheckInputKeys

E antes de:

Código:: 'Move Up If GetKeyState(vbKeyUp) < 0 Then DirUp = True DirDown = False DirLeft = False DirRight = False Exit Sub Else DirUp = False End If

Adicione:

Código:: If MouseMove = True Then Exit Sub End If

Em seguida procure por:

Código:: picScreen_MouseDown

Nessa mesmasub ache:

Código:: ' right click ElseIf Button = vbRightButton Then

Em seguida adicione:

Código:: If chkMM.Value = YES Then MouseMove = True 'Right Click Mouse Movement Here, Give MyX and MyY values for current Pos then compare MyX = GetPlayerX(MyIndex) MyY = GetPlayerY(MyIndex) 'Move Right If CurX > MyX Then DirUp = False DirDown = False DirLeft = False DirRight = True End If 'Move Left If CurX < MyX Then DirUp = False DirDown = False DirLeft = True DirRight = False End If 'Move Down If CurY > MyY Then DirUp = False DirDown = True DirLeft = False DirRight = False End If 'Move Up If CurY < MyY Then DirUp = True DirDown = False DirLeft = False DirRight = False End If End If

Depois no final da frmMain adicione:

Código:: Private Sub picScreen_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseMove = False DirUp = False DirDown = False DirLeft = False DirRight = False End Sub

Depois procure por: