HF Tarzı Oto Minor

zulum76 · 1 HF Tarzı Oto Minor Perş. Tem. 29, 2010 5:23 pm

zulum76

Cinsiyet : Erkek

Mesaj Sayısı : 973

Başarı Puanı : 3109

Yaş : 34

Simdi HF De dikkat ettiyseniz hp indiğinde
belirli bir seviye altına anında fuller
buda atak yaparken sekmeleri
önler..
ayrıca timer ile sürekli sürekli minor paketi yollayıp saliselik de
olsa programın akısındaki aksaklıkları önlemenize yardımcı
olabilir..

Peki Şimdi Bunu Nasıl Yapıcaz..

Önce Kendi mantığımıı
Anlatayım ..

Bir Anda Yapmak için Öncelikle Maxhp ve Hp arasındaki Farkı
Almamız Lazım..
Ve Bu Fark İçin Kaç Defa Minor Basmamız Lazım Onu
HEsaplayalım..

Aradaki Fark : CharmaxHp - CharHP ' dir..
MinorDeger :
60 Hp ' 1 defada Döndürüğü Hp ...
Tekrar : Fark \ Minor Değer ...

Hee
Şimdi Bunu Bi Döngü İle Halledelim ...

for n = 1 to
tekrar
minor
next

şimdi kod haline
getirelim..

Public Sub Minor()
Dim
Fark,Tekrar,MinorHpDeger as integer
MinorHPDeger = 60
if CharHP <
((CharMaxHP * textbox1.text) \ 100)
fark = charmaxhp - charhp
tekrar =
fark \ minorhpdeger
for n = 1 to tekrar
'minor Paketi
next
end if

End Sub

Public Sub MinorPaket()

Dim pString as string
Dim
pBytes() as byte
pString = "3103" + strings.mid(aligndword(classoku &
"705"),1,6) & "00" & charid & charid &
"000000000000000000000000"
convhex2bytearray(pstring,pbytes)
sendpackets(pbytes)
End
Sub

HF Tarzı Oto Minor

1 HF Tarzı Oto Minor Perş. Tem. 29, 2010 5:23 pm

zulum76