Herkese Merhaba,Bu Event Önceden Paylaşılmştı Fakat İçinde Bazı Sorunlar Vardı.Bende Bunu Fixleyip Tamamen %100 Sorunsuz Hale Getirdim Tabi Önceden Paylaşılanda %100 Sorunsuzdu Fakat Bazı Sorunları Vardı,Misal,
Sorun-1-Kırdırma Sorunu.
Cevap-1-1 Tane Jewel Box Olsada Kırdırıyordu,10Tane Jewel Box Olsada Kırdırıyordu,
Bunu Şöyle Fixledim 10tane Olmandan Kırdırmıyor,
Düzenlenecek Yerler,
Sorun-2-Toplu Kırdırıyor.
Cevap-2-Şuan Öyle Bir Sorun Olmuyor Fixlemiş Bulunmaktayım.
Kırmızı Yerlerde Gösterdiklerimin Açıklamaları.
1.RewardItemMax-28 Yani En Yukarda Belirlediğimiz Verilecek İtem Miktarı Yukardakinden Aynı Olmak Zorunda Yoksa Toplu Kırdırır.
2.RewardItemCount-Kaç Adet Verilecek Miktarı Önemli Not.son 2 tane dahil edilmedi Diyor Çünkü son 2 tane devil
3.RewardItemRatio- Box Gibi Düşünebilirsiniz Random Seçip Gönderiyor.
En Önemli Kısım Geldik Arkadaşlar;
1. 26 +Gender Yazan Yer. Burda Son 2 Tane itemi Malemi Femalemi Diye Ayırt Ediyor Öyle Veriyor,
1.for i=1 ,RewardİtemMax-2 do Yazan Yer İse,28 Tane Belirlediğimiz İtemi Dahil Etmiyor Zaten Yukarıda Ona Göre Ayar Yapmıştık. Tabi Bunu Çogaltabilirsniz. -2 Degiştirmeden Önce Yukarıyı Ona Göre Ayarlayınız.
SQL Girdisi;
_RefEvent Tablosuna Sadece Ekleme Yapın
Not :InsertPayItemCodeName Siz Kendinize Göre Düzenleme Yapın Fakat Son 2tane Devile Karışmayın Hata Alırsınız.
Görselleri Bekliyorum,Arkadaşlar Şuan Musait Olamadıgımdan Görsel Atamıyorum.
ÖNEMLİ NOT.ALINTI DEGİLDİR,EMEKTİR.!
Sorun-1-Kırdırma Sorunu.
Cevap-1-1 Tane Jewel Box Olsada Kırdırıyordu,10Tane Jewel Box Olsada Kırdırıyordu,
Bunu Şöyle Fixledim 10tane Olmandan Kırdırmıyor,
Düzenlenecek Yerler,
function KISAENG_110221_ItemCheck() --Event İtem Varmı Yokmu Denetle
if 9 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
----------------------------------------------------------------------------------------------------------------------------------------
function KISAENG_110221_ItemDel() --...Var ise,Event İtemi Kır Ve Ödülleri Ver
if 9 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot,10, SYSOP_REASON_Event, 0)
end
end
Kırmızı Yerlerde Gösterdiklerimin Açıklamaları.
1.Slot,10 (10tane jewel Box Oldugunda Kırdır,)
2.if 9 < LuaEventInQuireSameItem (Fakat 10taneden az olursa kırdırmayı durdur)
if 9 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
----------------------------------------------------------------------------------------------------------------------------------------
function KISAENG_110221_ItemDel() --...Var ise,Event İtemi Kır Ve Ödülleri Ver
if 9 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot,10, SYSOP_REASON_Event, 0)
end
end
Kırmızı Yerlerde Gösterdiklerimin Açıklamaları.
1.Slot,10 (10tane jewel Box Oldugunda Kırdır,)
2.if 9 < LuaEventInQuireSameItem (Fakat 10taneden az olursa kırdırmayı durdur)
Sorun-2-Toplu Kırdırıyor.
Cevap-2-Şuan Öyle Bir Sorun Olmuyor Fixlemiş Bulunmaktayım.
RewardItemMax = 28 --Toplamda Verilecek Ödül
RewardItemCount = {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,10,10,10,1,1,1,1,1} --Toplamda Verilen Adet Miktari son 2 tanesi Dahil Edilmedi.
RewardItemRatio = {0,800,1000,1600,1500,1950,2400,2800,3200,3400,3800,4000,4250,4800,4950,5600,6400,6600,6950,7200,7600,7999,8000,8100,9990} --Ödüllerin Rate Sistemi Son 2 Tane Ödül Dahil Edilmedi.
RewardItemCount = {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,10,10,10,1,1,1,1,1} --Toplamda Verilen Adet Miktari son 2 tanesi Dahil Edilmedi.
RewardItemRatio = {0,800,1000,1600,1500,1950,2400,2800,3200,3400,3800,4000,4250,4800,4950,5600,6400,6600,6950,7200,7600,7999,8000,8100,9990} --Ödüllerin Rate Sistemi Son 2 Tane Ödül Dahil Edilmedi.
Kırmızı Yerlerde Gösterdiklerimin Açıklamaları.
1.RewardItemMax-28 Yani En Yukarda Belirlediğimiz Verilecek İtem Miktarı Yukardakinden Aynı Olmak Zorunda Yoksa Toplu Kırdırır.
2.RewardItemCount-Kaç Adet Verilecek Miktarı Önemli Not.son 2 tane dahil edilmedi Diyor Çünkü son 2 tane devil
3.RewardItemRatio- Box Gibi Düşünebilirsiniz Random Seçip Gönderiyor.
En Önemli Kısım Geldik Arkadaşlar;
if KISAENG_110221_ItemCheck() == 0 then
nGive = LuaRanged_rand_n(1, 10000)
if 9990 < nGive then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, 26 + Gender)
else
for i = 1, RewardItemMax-2 do
if nGive > RewardItemRatio and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, i)
KISAENG_110221_ItemDel()
nGive = LuaRanged_rand_n(1, 10000)
if 9990 < nGive then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, 26 + Gender)
else
for i = 1, RewardItemMax-2 do
if nGive > RewardItemRatio and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, i)
KISAENG_110221_ItemDel()
1. 26 +Gender Yazan Yer. Burda Son 2 Tane itemi Malemi Femalemi Diye Ayırt Ediyor Öyle Veriyor,
1.for i=1 ,RewardİtemMax-2 do Yazan Yer İse,28 Tane Belirlediğimiz İtemi Dahil Etmiyor Zaten Yukarıda Ona Göre Ayar Yapmıştık. Tabi Bunu Çogaltabilirsniz. -2 Degiştirmeden Önce Yukarıyı Ona Göre Ayarlayınız.
SQL Girdisi;
_RefEvent Tablosuna Sadece Ekleme Yapın
| 1 | 4 | EVENT_KISAENG_110221 | SN_QEV_CH_EVENT_KISAENG_110221 | xxx | 0 |
Not :InsertPayItemCodeName Siz Kendinize Göre Düzenleme Yapın Fakat Son 2tane Devile Karışmayın Hata Alırsınız.
Görselleri Bekliyorum,Arkadaşlar Şuan Musait Olamadıgımdan Görsel Atamıyorum.
ÖNEMLİ NOT.ALINTI DEGİLDİR,EMEKTİR.!
