CTRL + Mause Duvar Hack Yapımı

Private Const VK_CONTROL  As Long = &H11

If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End If

On Error Resume Next
Dim pptr As Long
Dim XFark As Long
Dim YFark As Long
Dim FareX As Long, FareY As Long, FareZ As Long

If GetAsyncKeyState(VK_CONTROL) Then
FareX = ReadFloat(KO_ADR_CHR + KO_OFF_MX)
FareY = ReadFloat(KO_ADR_CHR + KO_OFF_MY)
FareZ = ReadFloat(KO_ADR_CHR + KO_OFF_MZ)

pptr = ReadLong(KO_PTR_CHR)
XFark = FareX - CharXOku
YFark = FareY - CharYOku
YFark = FareZ - CharZOku

If XFark <> 0 Or YFark <> 0 Or ZFark <> 0 Then
If XFark < 0 Then
WriteFloat pptr + KO_OFF_X, CharXOku - 1
ElseIf XFark > 0 Then
WriteFloat pptr + KO_OFF_X, CharXOku + 1
End If

If YFark < 0 Then
WriteFloat pptr + KO_OFF_Y, CharYOku - 1
ElseIf YFark > 0 Then
WriteFloat pptr + KO_OFF_Y, CharYOku + 1
End If

If ZFark < 0 Then
WriteFloat pptr + KO_OFF_Z, CharZOku - 1
ElseIf YFark > 0 Then
WriteFloat pptr + KO_OFF_Z, CharZOku + 1
End If

End If
End If

KO_OFF_MX = &HD44
KO_OFF_MY = &HD4C
KO_OFF_MZ = &HD48

Public KO_OFF_MX As Long
Public KO_OFF_MY As Long
Public KO_OFF_MZ As Long

Public Function CharXOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_X)
CharXOku = YeniAdres
End Function
Public Function CharYOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_Y)
CharYOku = YeniAdres
End Function
Public Function CharZOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_Z)
CharZOku = YeniAdres
End Function