# Hoşgeldin ziyaretçi. veya KaydolParolanı mı unuttun ?

hata vermeden botun durması

  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ii


#1
rapstar_bg
Yeni Üye
Üye Grubu
Yorumları: 24 Konuları: 9 Kayıt Tarihi: 20-09-2019 Rep Puanı: 0
Teşekkürler: 1
2 mesajına 2 kez teşekkür edildi.

merhaba arkadaşlar,
botumda aşağıda  verdiğim fonksiyonu kullanarak bir kordinata gidiyorum birkaç paket atıp, sonra tekrar geri aynı fonksiyon ile geliyorum ve tekrar paket atıyorum vs. bu işlem sorunsuz çalışırken, sabah bir bakıyorum char ilk başlattığım yerde duruyor, hiçbir işlem yapmıyor, hata da vermiyor, botta diğer fonksiyonları kullanabilmeme rağmen bu yaptığım işlemleri başlattığım check'e bastiğimda hiçbir şey olmuyor. botu kapatıp tekrar açınca yine sorunsuz bir süre devam ediyor.

runner fonksiyonu ile kordinata gidiyorum. fonksiyon kodu aşağıda;
Kod:
Public Function Runner(crx As Single, cry As Single)
On Error GoTo 0 'On Error Resume Next
Dim zipla, X, Y, uzak, a, b, d, e, i, isrtx, isrty
Dim tx As Single, ty As Single
Dim x1 As Single, y1 As Single
Dim bykx, byky, kckx, kcky
zipla = 1#
tx = ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_X)
ty = ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_Y)
X = Abs(crx - tx)
Y = Abs(cry - ty)
If tx > crx Then isrtx = -1: bykx = tx: kckx = crx Else isrtx = 1: bykx = crx: kckx = tx
If ty > cry Then isrty = -1: byky = ty: kcky = cry Else isrty = 1: byky = cry: kcky = ty
uzak = Int(Sqr((X ^ 2 + Y ^ 2)))
If crx <= 0 Or cry <= 0 Then Exit Function
For i = zipla To uzak Step zipla
a = i ^ 2 * X ^ 2
b = X ^ 2 + Y ^ 2
d = Sqr(a / b)
e = Sqr(i ^ 2 - d ^ 2)
x1 = Int(tx + isrtx * d)
y1 = Int(ty + isrty * e)
If (kckx <= x1 And x1 <= bykx) And (kcky <= y1 And y1 <= byky) Then
WriteFloat ReadLong(KO_PTR_CHR) + KO_OFF_X, x1
WriteFloat ReadLong(KO_PTR_CHR) + KO_OFF_Y, y1
WriteFloat ReadLong(KO_PTR_CHR) + KO_OFF_Z, ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_Z)
PaketAt "06" _
& Left(AlignDword(ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_X) * 10), 4) _
& Left(AlignDword(ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_Y) * 10), 4) _
& Left(AlignDword(ReadFloat(ReadLong(KO_PTR_CHR) + KO_OFF_Z) * 10), 4) _
& "2D0000" _
& FormatHex(Hex(CInt(CharX) * 10), 4) & FormatHex(Hex(CInt(CharY) * 10), 4) & FormatHex(Hex(CInt(5) * 10), 4)
End If
Next
End Function
kullanırken de 
runner xxx,xxx 
wait 10
paketat xxxx
wait 1
runner xxx,xxx
paketat xxxx
şeklinde kullanıyorum sorun nerde acaba?





Hızlı Menü:


Konuyu Okuyanlar:
1 Ziyaretçi