Dim Fiyat As Long
Dim adet As Long
Dim MerchantSlot, InventorySlot, mItemID, adethex As String
Dim invitem1 As Long
Dim invitem2 As String
Dim invitem3 As String
Fiyat = "55555" [color=Lime]' Itemin Satılacak Fiyatı [/color]
If Len(Fiyat) > 9 then Fiyat = Strings.Mid(Fiyat, 1, 9) [color=lime] ' Fiyat için Maximum Değer 9 hanedir ilk 9 haneyi alalım[/color]
MerchantSlot = "0B"[color=lime] ' Itemin Merchanttaki Slot Değeri ( 00,01,02,03,04,05,06,07,08,09,0A,0B ) [/color]
InventorySlot = "00" [color=Lime]' Itemin Inventorydeki Slot Değeri ( 00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F,1A  ,1B,1C,1D,1E,1F,2A,2B,2C,2D,2E,2F ) [/color]
adet = "1" [color=Lime]' Itemin Adeti Dilerseniz Get Inventory ile yapabilirsiniz [/color]
adethex = Hex(adet) [color=lime]' Itemin Adetini Hex Yapalım[/color]
If Len(adethex) = 1 Then adethex = "0" & adethex [color=lime] ' Eğer Hexli Sonuç Tek Karakterse Başına 0 ekleyelim[/color]
invitem1 = GetInventory([color=Red]1[/color], invitem2, invitem3) [color=lime]' Inventorynin [color=red]1[/color].
 Slotundaki ItemID mizi bulalım. ( ItemID yi alırken Yukarıda Girdiğiniz
 Inventory Slot ile Aynı Slotu Almanız Gerekmektedir. GetInventory
Fonksiyonunda 1,2,3,......,28 şeklinde kullanılır 1. slot bu fonksiyon
içerisinde ( paket yollama kısmında ) 00 a eşit 2. slot 01 3. slot 03
....... 28. slot 2F [/color]
mItemID = Strings.Mid(AlignDWORD(invitem1), 1, 8)[color=Lime]' Çıkan ItemID yi Paket Yollamaya Hazır Hale Getirelim.[/color]
sPackets "6A02" [color=Lime] ' Inventorymizi Tazeleyelim[/color]
sPackets "6801" [color=lime]' Pazarı Açalım[/color]
sPackets "6803" + mItemID + adethex + "00" + AlignDWORD(Fiyat) + InventorySlot + MerchantSlot [color=lime]' Itemi Belirlediğimiz Yere Koyalım[/color]
sPackets "68070000" [color=lime]' Merchant Kuralım[/color]