Public Sub GoKordinat(GoKoRX As Integer, GoKoRY As Integer)
Dim XFark, YFark As Long
Dim atlaX, atlaY As Integer
XFark = GoKoRX - KarakterX
YFark = GoKoRY - KarakterY
AtlamaPayX = 5
AtlamaPayY = 5

If KarakterX = GoKoRX And KarakterY = GoKoRY Then
Exit Sub
End If

Dim i
For i = 1 To 5
If XFark = -1 * i Or XFark = i Then
AtlamaPayX = 1
ElseIf YFark = -1 * i Or YFark = i Then
AtlamaPayY = 1
End If
Next i

If XFark <> 0 Or YFark <> 0 Then
If XFark < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, KarakterX - AtlamaPayX
ElseIf XFark > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, KarakterX + AtlamaPayX
End If
If YFark < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, KarakterY - AtlamaPayY
ElseIf YFark > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, KarakterY + AtlamaPayY
End If

SendPackeT "06" & FormatHex(hex(CInt(KarakterX) * 10), 4) _
& FormatHex(hex(CInt(KarakterY) * 10), 4) _
& FormatHex(hex(CInt(KarakterZ) * 10), 4) _
& "2D0003"
End If
End Sub 

If Check1.Value = 1 And GetAsyncKeyState(162) And GetAsyncKeyState(1) Then
'// CTRL + Mause Sol Klik..
GogoKor Val(ReadFloat(ReadLong(KO_PTR_CHR) + &HD74)), Val(ReadFloat(ReadLong(KO_PTR_CHR) + &HD7C))
 End If 

 If Check2.Value = 1 Then
 '// Maradon Sağdaki Banka..
 GogoKor Val("858"), Val("647")
 End If