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  Perş. Ocak 20, 2011 1:29 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 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ı_________ | |
|
