ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: Etraftaki Mob ve Player'lari Bulma  Cuma Ara. 24, 2010 3:41 pm | |
| - DieBitch demiş ki:
- 3 tane pointer'imiz var:
- Kod:
-
KO_FLMZ = &HC144AC
KO_FLPZ = &HC14400
KO_FLDB = &HC1EA8C ben altta moblari almak icin gereken kodu verdim.playar'lar icin ilk offseti &H3C, KO_FLMZ'yi de KO_FLPZ olarak degistirmeniz gerek. - Kod:
-
Public Function getAllMobs()
' DieBitch , 06.12.2010
Dim EBP As Long, ESI As Long, EAX As Long
EBP = ReadLong(ReadLong(KO_FLDB) [color=red]&H2C[/color])
ESI = ReadLong(EBP)
While ESI EBP
[color=Lime]Base_Addr = ReadLong(ESI &H10) ' base adresi burda aliyoruz[/color]
EAX = ReadLong(ESI 8)
If ReadLong(ESI 8) ReadLong([color=Red]KO_FLMZ[/color]) Then
While ReadLong(EAX) ReadLong([color=Red]KO_FLMZ[/color])
EAX = ReadLong(EAX)
Wend
ESI = EAX
Else
EAX = ReadLong(ESI 4)
While ESI = ReadLong(EAX 8)
ESI = EAX
EAX = ReadLong(EAX 4)
Wend
If ReadLong(ESI 8) EAX Then
ESI = EAX
End If
End If
Wend
End Function ------------edit----------------
kullanimi ile ilgili sorunu olanlar icin olayi anlatayim en geri tab'da
ki while dongusu her donusunde bir sonraki mob yada player(hangisini
almaya calisiyosaniz)'in base adres'ini verior yani gorsel bisiler
istiyosaniz:
.
. - Kod:
-
[color=Lime]Base_Addr = ReadLong(ESI &H10) ' base adresi burda aliyoruz[/color]
Form1.List1.additem readlong(base_addr ko_off_id)
.
.
seklinde tum id leri bi list'e atip, mob ismine gore atak yaptirabilirsiniz.eger playerlari aliorsaniz basit bi gm kontrol, - Kod:
-
.
.
[color=Lime]Base_Addr = ReadLong(ESI &H10) ' base adresi burda aliyoruz[/color]
if readlong(base_addr &h5e8) = 0 then
' bu karakter gm....
end if
.
. gibi gibi ________Kullanıcı İmzası_________ | |
|
