Genel Araştırma

LİNK : [Gizli İçerik] RAR PASS : [Gizli İçerik] ALINTIDIR

Oyun içerisinde basılacak bir scroll yapıp bu tabloya eklediğinizde oyuncu scrollu bastığında belirlediğiniz levele geliyor. Böylelikle MYKO serverlarda moda olan 62 level başlangıç scroll vs. yapabilirsiniz. [Gizli İçerik] Kill Gift Event CZ'de oyuncuların aldıkları kill e göre ödül vermenizi sağlamakta soacs.ini dosyasına eklemeniz gerekenler; [Gizli İçerik] burada czde online sayısı 1 kişi olduğunda event başlar bunu istediğiniz gibi değiştirip örneğin czde 100 kişi olduğunda eventi başlamasını sağlayabilirsiniz. Merchant event için soacs.ini eklemeniz gerekenler; [Gizli İçerik] +merchantevent 1 ile başlatabilirsiniz. Burada dikkat edilmesi gereken time bölümü saniye olarak hesaplanıyor ek olarak kendi sunucumda exp ödülü eklediğimde leveli düşük olan oyuncular exp buga giriyordu buna dikkat edin. Ardream event için soacs.ini eklemeniz gerekenler; [Gizli İçerik] +aw 1 ile başlar databasenizde ardream harita kodu kaç ise zone bölümünü kendinize göre ayarlayın.

Bildiğiniz gibi Gold Merchantı bastığımız zaman 8 Tane itemi görebiliyoruz. Şuan piyasadaki dosyalarda bu sistem ilk 8 itemi gösteriyor sadece. Normalde Boş slotları atlayıp item olan slotları göstermesi gerekiyor. yani gold pazarda 9. 10. 11. 12. slota koyulan itemler bunlardan önceki itemler satılsa dahi göstermeyecek. itemler satıldıkça pazarda ne kadar item kaldıysa sırayla göstermeli. tabi maximum 8 tane. boş slotları atlamalı yani. pazardan Gemleri Çektikten sonraki sıralama. [Gizli İçerik]

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

Selam Offline Merchant İtemi ekleme kodu mümkünmü

merhaba arkadaşlar 2083 v üstünde çalışıyorum epey bi aşama katlettim biraz zevki birazda uğraşmak istediğimden dolayı şuan takıldığım konuda yardımlarınızı bekliyorum Offline Merchant konusunda neredeyse tüm kodları kontrol ettim kodlarda herhangi bi açıklık bulamadım eksik şeyler olabilir bu konuda yardımlarınızı bekliyorum sevgili kodevelopers üyeleri adminleri ve moderatörleri şimdiden teşekkür ederim herkese