Jump to content
  • Kaydol

Kontrol Fonksiyonları


Önerilen Mesajlar

Eski fonksiyonlar pointer + offsetler güncellerseniz tıkırında çalışır.

 

Çar Kazı Yapıyor mu ?

 
Function MineControl() As Boolean
'// SexClub
'007FC44F - 8A 85 CD070000 - mov al,[ebp+000007CD]
If ReadByte(ReadLong(KO_PTR_DLG) + &H7CD) = 1 Then
MineControl = True
Exit Function
Else
MineControl = False
End If
End Function

Sundries Açık mı ? (hp,mp pot bitince town at özelliği içinde kullanılabilir)

 
Function SundriesControl() As Boolean
'// SexClub
'0077F676 - A1 5CE0C200 - mov eax,[00C2E05C]
'0077F686 - 8B 88 C0010000 - mov ecx,[eax+000001C0]
'0077F690 - 38 99 C0000000 - cmp [ecx+000000C0],bl
If ReadByte(ReadLong(ReadLong(KO_PTR_DLG) + &H1C0) + &HC0) = 1 Then
SundriesControl = True
Exit Function
Else
SundriesControl = False
End If
End Function

Hedef Seçili mi ?

 
Function TargetControl() As Boolean
'// SexClub
'0082AB58 - 8B 85 BC010000 - mov eax,[ebp+000001BC]
'0082AB66 - 8A 88 C0000000 - mov cl,[eax+000000C0]
If ReadByte(ReadLong(ReadLong(KO_PTR_DLG) + &H1BC) + &HC0) = 1 Then
TargetControl = True
Exit Function
Else
TargetControl = False
End If
End Function

Banka Açık mı ?

 
Function BankControl() As Boolean
'// SexClub
'0077F6D7 - 8B 88 EC010000 - mov ecx,[eax+000001EC]
'0077F6E1 - 38 99 C0000000 - cmp [ecx+000000C0],bl
If ReadByte(ReadLong(ReadLong(KO_PTR_DLG) + &H1EC) + &HC0) = 1 Then
BankControl = True
Exit Function
Else
BankControl = False
End If
End Function

 

Yorum bağlantısı
Sitelerde Paylaş

Misafir
Bu konu kapalıdır ama konuya cevap yazmaya yetkiniz var görünüyor.
 Share

×
×
  • Yeni Oluştur...