(29-08-2019, Saat: 00:38)Eliter Adlı Kullanıcıdan Alıntı:hocam teşekkür ederim becemeredim bir türlü ya teamwiwer atsam yardımcı olurmusun 2 gündür uğraşyırorum çıldırttı artık
KO_OFF_LUP = &H1044
Karakterde Lupin eyes yoksa 0 olur varsa 1103626240
(29-08-2019, Saat: 01:07)pepelenzo Adlı Kullanıcıdan Alıntı:hocam teşekkür ederim becemeredim bir türlü ya teamwiwer atsam yardımcı olurmusun 2 gündür uğraşyırorum çıldırttı artık
KO_OFF_LUP = &H1044
Karakterde Lupin eyes yoksa 0 olur varsa 1103626240
public function lupbasilimi(offset1 as long) ' lupin eyes basılı ise 1103626240 değilse 0 değerini alıyor.
lupbasilimi = readlong(KO_ADR_CHR + offset1 ) 'readlong(readlong(KO_ptr_CHR) + offset1 )
end function
list1.clear
for a = 0 to 6000
if lupbasilimi((a)) = text1 then' belirtilen değere eşitse list1 e o offseti ekle
list1.additem (a)
end if
next a
(29-08-2019, Saat: 14:50)Eliter Adlı Kullanıcıdan Alıntı:(29-08-2019, Saat: 01:07)pepelenzo Adlı Kullanıcıdan Alıntı: hocam teşekkür ederim becemeredim bir türlü ya teamwiwer atsam yardımcı olurmusun 2 gündür uğraşyırorum çıldırttı artık
beceremediğin kısmı anlamadım. sana yolladığım offset (&H1044) usko için geçerli.
10 yıl önce lup basınca okunan değer 1103626240 idi. hala öyle. c.e uğraşmadan şöyle de yaparsın
öncelikle hafızada değer okumak için şöyle bir fonksiyon yazalım
modüle
Kod:public function lupbasilimi(offset1 as long) ' lupin eyes basılı ise 1103626240 değilse 0 değerini alıyor.
lupbasilimi = readlong(KO_ADR_CHR + offset1 ) 'readlong(readlong(KO_ptr_CHR) + offset1 )
end function
1 buton, 1 text(text1) ve 1 list(list1) ekleyelim
1. buton içine
Kod:list1.clear
for a = 0 to 6000
if lupbasilimi((a)) = text1 then' belirtilen değere eşitse list1 e o offseti ekle
list1.additem (a)
end if
next a
lupin eyes basıp textboxa 1103626240 yazarsın. offset ekrana gelir. teamviewer için imkanım yok o yüzden twden yardımcı olamam
(03-09-2019, Saat: 19:38)pepelenzo Adlı Kullanıcıdan Alıntı:(29-08-2019, Saat: 14:50)Eliter Adlı Kullanıcıdan Alıntı: beceremediğin kısmı anlamadım. sana yolladığım offset (&H1044) usko için geçerli.
10 yıl önce lup basınca okunan değer 1103626240 idi. hala öyle. c.e uğraşmadan şöyle de yaparsın
öncelikle hafızada değer okumak için şöyle bir fonksiyon yazalım
modüle
Kod:public function lupbasilimi(offset1 as long) ' lupin eyes basılı ise 1103626240 değilse 0 değerini alıyor.
lupbasilimi = readlong(KO_ADR_CHR + offset1 ) 'readlong(readlong(KO_ptr_CHR) + offset1 )
end function
1 buton, 1 text(text1) ve 1 list(list1) ekleyelim
1. buton içine
Kod:list1.clear
for a = 0 to 6000
if lupbasilimi((a)) = text1 then' belirtilen değere eşitse list1 e o offseti ekle
list1.additem (a)
end if
next a
lupin eyes basıp textboxa 1103626240 yazarsın. offset ekrana gelir. teamviewer için imkanım yok o yüzden twden yardımcı olamam
yorumun için teşekkür ederim hocam offesti buldum ama lup aktif olmuyor offseti yanlış buluyor olabilirmi
public function LupBasiliMi() ' lupin eyes basılı ise 1103626240 değilse 0 değerini alıyor.
LupBasiliMi= readlong(KO_ADR_CHR + &h1044) 'readlong(readlong(KO_ptr_CHR) + &h1044)
end function
if LupBasiliMi = 0 then
' skill basma paketi buraya..
else
end if
(07-09-2019, Saat: 17:11)Eliter Adlı Kullanıcıdan Alıntı:yok hocam paketsiz oluyor bu ya hatta fonksiyonuda şu 1299 serverlede çalışıyor hatta 20xx serverlerdede çalışıyorda nasıl bulundugunu unuttum(03-09-2019, Saat: 19:38)pepelenzo Adlı Kullanıcıdan Alıntı: yorumun için teşekkür ederim hocam offesti buldum ama lup aktif olmuyor offseti yanlış buluyor olabilirmi
tam olarak ne yaptığını bilmiyorum ama lupin eyes skilini kullanmak için o fonksiyon yerine paket yollaman gerekiyor diye biliyorum.
bu fonksion ile basılımı diye bak, basılı değilse skill paketini yolla.
Kod:public function LupBasiliMi() ' lupin eyes basılı ise 1103626240 değilse 0 değerini alıyor.
LupBasiliMi= readlong(KO_ADR_CHR + &h1044) 'readlong(readlong(KO_ptr_CHR) + &h1044)
end function
check ile kontrol edilen bi timere
Kod:if LupBasiliMi = 0 then
' skill basma paketi buraya..
else
end if
Bunlarda 1299 Pointleri bunları 20xx server için güncellemeye çalışıyorum sizin yukarıda dediğniz şekilde 1103626240 lupu bastım cıkan point ile 8 azalttım yine olmadı
KO_OFF_LUP = 2792
KO_OFF_LUP2 = 2800
If Check10.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_LUP, "1"
WriteLong KO_ADR_CHR + KO_OFF_LUP2, "1103626240"
Else
WriteLong KO_ADR_CHR + KO_OFF_LUP, "0"
End If
Konu ile Alakalı Benzer Konular | |||||
Konular | Yazar | Yorumlar | Okunma | Son Yorum | |
Steamko exe unpack nasıl yapılır? | ODEL | 4 | 4,740 |
24-04-2016, Saat: 13:08 Son Yorum: ODEL |
|
Oto Login Nasıl Yapabilirim | ODEL | 3 | 3,618 |
18-03-2016, Saat: 21:50 Son Yorum: Reonrow |