Evet Arkadaşlar Şimdi Sizlere Atack Kodunu Vericem Ama Biraz Karışık Anlarsanız Kolay vB. Bilen Arkadaşlarım Yapabilir.


Kod:
Function MobID()
Dim pPtr As Long
Dim GetMobID As String
Dim GetMBID As Long
pPtr = ReadLong(KO_PTR_CHR)
GetMBID = ReadLong(pPtr + KO_OFF_MOB)
GetMobID = AlignDWORD(GetMBID)
MobID = Strings.Mid(GetMobID, 1, 4)
End Function


Evet beyler kod bu bunu skill modulenizin yada ana modulenizin alt veya üst kısımlarından bi yere yazın.. Ama bu kadarla bittmi hayır tabikide şimdi geldi atak timerlerindeki kodları deişmeye eğer kodları moduleye yazıp timerede sadece mesela rogueatak,atak gibi şeyler yazdıysanız bu sefer moduleden deişin yani atak kodunun en altındaki

Kod:
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobID + "0000000000000000000000000D00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobID + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobID + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes


İyi Forumlar ..