andar com o mouse

por sushi123 Qui 05 maio 2011, 01:18

oie gente so de boa ,jaja vo dormir eu sei ngm qr sabe kkkkk andar com o mouse 80839

qro ir

entuam vamos logo *-*

googo

1-abre o client side
2-Abra o modGameLogic e procure por Sub CheckInput
3-procure por

If KeyCode = vbKeyShift Then
ShiftDown = True
End If
End If
End If
End If
End Sub

Substitua ele por esse:

If KeyCode = vbKeyShift Then
ShiftDown = True
End If
Else
If KeyCode = vbKeyUp Then
XToGo = -1
YToGo = -1
End If
If KeyCode = vbKeyDown Then
XToGo = -1
YToGo = -1
End If
If KeyCode = vbKeyLeft Then
XToGo = -1
YToGo = -1
End If
If KeyCode = vbKeyRight Then
XToGo = -1
YToGo = -1
End If
If KeyCode = vbKeyShift Then ShiftDown = False
If KeyCode = vbKeyControl Then ControlDown = False
End If
End If
End Sub

Agora adicione essas 2 novas funções publicas no modConstants

Vá até o modClientTCP, procure por Sub TcpInit, e adicione isso antes do end sub:

XToGo = -1
YToGo = -1

-Agora vá ate o modGameLogic e procure a Sub GameLoop, Role até ver esse código:

' Blit the backbuffer
Call DD_PrimarySurf.Blt(rec_pos, DD_BackBuffer, rec, DDBLT_WAIT)

-Abaixo dele adicione isso:

If XToGo <> -1 Or YToGo <> -1 Then
Dim XDif As Long
Dim YDif As Long

XDif = Abs(GetPlayerX(MyIndex) - XToGo)
YDif = Abs(GetPlayerY(MyIndex) - YToGo)

If XToGo = GetPlayerX(MyIndex) Or XToGo = -1 Then
XToGo = -1
XDif = 0
Else
XDif = Abs(GetPlayerX(MyIndex) - XToGo)
End If

If YToGo = GetPlayerY(MyIndex) Or YToGo = -1 Then
YToGo = -1
YDif = 0
Else
YDif = Abs(GetPlayerY(MyIndex) - YToGo)
End If

Debug.Print (XDif & " " & YDif)

If XDif > YDif Then
If GetPlayerX(MyIndex) - XToGo > 0 Then
DirLeft = True
Else
DirRight = True
End If
End If

If YDif > XDif Then
If GetPlayerY(MyIndex) - YToGo > 0 Then
DirUp = True
Else
DirDown = True
End If
End If

'If Int(Rnd * 2) = 0 Then
If GetPlayerX(MyIndex) - XToGo > 0 Then
DirLeft = True
Else
DirRight = True
End If
' Else
If GetPlayerY(MyIndex) - YToGo > 0 Then
DirUp = True
Else
DirDown = True
End If
'End If
End If
End If

-Agora vá ate a frmMirage e procure por
Sub PicScreen_MouseDown Dentro dela, antes do End Sub, adicione isso:

If Button = 1 Then
XToGo = (X + (NewPlayerX * PIC_X)) / PIC_X
YToGo = (y + (NewPlayerY * PIC_Y)) / PIC_Y
End If

If Button = 2 Then
AttackSpeed = 1000
If Player(MyIndex).AttackTimer + AttackSpeed < GetTickCount Then
If Player(MyIndex).Attacking = 0 Then
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Call SendData("attack" & END_CHAR)
End If
End If
End If