Genel Araştırma
'buy' etiketi için arama sonuçları.
Araştırmada 3 sonuç bulundu
-
Uzun süredir şunu kullanıyordum ama şuan kapat hatası alıyorum. Sanırım adresler değişmiş.Bunları opcode çekip mi bulacağım yoksa başka bir yolu var mı? Public Sub buykur() Dim AlinacakItemCount As Long Dim fiyat(1 To 12) As Long Dim SlotCount(1 To 12) As Long Dim SlotItemID(1 To 12) As Long Dim BuyPaketi As String Dim gercekadres As Long Dim pointer2 As Long Dim i As Long AlinacakItemCount = 1 fiyat(1) = 1 SlotCount(1) = Form1.Text6.Text SlotItemID(1) = 810418000 'RECV KAPA 'pointer2 = ReadLong(ReadLong(KO_PTR_DLG)) + 8 'gercekadres = ReadLong(pointer2) 'WriteLong &HC50900, &H900008C2 'WriteLong pointer2, &HC50900 'RECV KAPA Pause 2 PaketYolla "6821" Pause 2 BuyPaketi = "6822" + FormatHex(Hex(AlinacakItemCount), 2) For i = 1 To AlinacakItemCount BuyPaketi = BuyPaketi + AlignDWORD1(SlotItemID(i), Len(str(SlotItemID(i)))) + FormatHex(Hex(SlotCount(i)), 2) + "00" + AlignDWORD1(fiyat(i), Len(str(fiyat(i)))) Next PaketYolla BuyPaketi Pause 2 'RECV AC 'pointer2 = ReadLong(ReadLong(KO_PTR_DLG)) + 8 'WriteLong pointer2, gercekadres 'RECV AC End Sub
-
Buy Merchant ta olmayan görev itemleri gibi itemleri TBL ye ekleyip buy kurabiliyorum ama Rare Item için yapamadım. Daha doğrusu buy kurmak için doğru item kodlarını bulamadım. Fikir verebilecek olan var mı? Şimdiden teşekkürler. Mesela "Large Breaker +6 - MP Recovery", "Plate +5 - Dagger Defence",...