vSRO Çözüldü Jewel Box 10 - 10 Kırma Sorunu

function QEV_CH_EVENT_KISAENG_110221()
EventID = 10185
SetEventOne(EventID, "SN_QEV_CH_EVENT_KISAENG_110221", 1, 1, 1)
SetEventTwo(2, "SN_TALK_QEV_CH_EVENT_KISAENG_090714_B", "SN_TALK_COMMON_EXIT")
NPC_COUNT = 1
LuaInsertNpc(NPC_COUNT, "NPC_CH_EVENT_KISAENG1")
InsertPayItemCodeName(13, "ITEM_ETC_E051123_AGILITY_SCROLL", "ITEM_ETC_E051123_EVATION_SCROLL", "ITEM_ETC_E051123_HIT_SCROLL", "ITEM_ETC_E080723_SKILL_EXP_5", "ITEM_ETC_E080723_SKILL_EXP_10", "ITEM_ETC_BALLOON_MANGNYANG", "ITEM_ETC_BALLOON_MOVOI", "ITEM_ETC_E051123_HP500_SCROLL", "ITEM_ETC_E051123_MP500_SCROLL", "ITEM_ETC_E041225_CANDY_RED", "ITEM_ETC_E041225_CANDY_BLUE", "ITEM_EVENT_AVATAR_M_NASRUN", "ITEM_EVENT_AVATAR_W_NASRUN")
LuaInsertDropItem(1, "ITEM_ETC_E050618_TREASUREBOX", 1.1)
InsertMenuStringList("NPC_CH_EVENT_KISAENG1", 5, "EVENT_MENUSTRING_GREETING", "SN_NPC_CH_EVENT_KISAENG1_QS", "EVENT_MENUSTRING_REQUEST_ACCEPT_QUEST", "SN_TALK_QEV_CH_EVENT_KISAENG_090714_A", "EVENT_MENUSTRING_NOT_ACHIEVED", "SN_TALK_QEV_CH_EVENT_KISAENG_090714_E", "EVENT_MENUSTRING_INVENTORY_FULL", "SN_TALK_QEV_CH_EVENT_KISAENG_090714_D", "EVENT_MENUSTRING_ACHIEVED", "SN_TALK_QEV_CH_EVENT_KISAENG_090714_C")
CONVERSATION_SINGLE = 0
LuaInsertFunctionStringList(1, "CONVERSATION_SINGLE", "KISAENG_110221_Conversation")
end
function KISAENG_110221_ItemCheck()
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()
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
function KISAENG_110221_GiveEventRewardItem()
bGiveItemNum = 0
btErrorCode = 0
SYSOP_REASON_Event = 0
EventID = 10185
Gender = 0
if LuaGetPlayerGender() == 0 then
Gender = 1
end
RewardItemMax = 11
RewardItemCount = {
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1
}
RewardItemRatio = {
0,
1000,
2000,
3000,
3600,
3800,
4800,
5800,
6490,
6990,
8490,
9990
}
while KISAENG_110221_ItemCheck() == 0 do
if 1 > LuaGetCountEmptyInventory(0, -1) then
return
else
nGive = LuaRanged_rand_n(1, 10000)
if 9990 < nGive then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, 12 + Gender)
else
for i = 1, RewardItemMax do
if nGive > RewardItemRatio and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount, SYSOP_REASON_Event, FALSE, FALSE, i)
KISAENG_110221_ItemDel()
break
end
end
end
end
end
end
function KISAENG_110221_Conversation(EventID_Sub, CharName)
CONVERSATION_START = 0
CONVERSATION_RESPONSE = 2
EventID = 10185
EventID_Message = EventID_Sub
NpcHandlerNum = LuaNpcHandlerNum()
if CONVERSATION_START == EventID_Sub and CharName == "NPC_CH_EVENT_KISAENG1" then
CurPage = 1
LuaSetCurPage(CurPage)
CurString = 5
SelectionList_CommonIndex = 0
Button = 2
LuaShowMenu(CurString, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
return
end
if CONVERSATION_RESPONSE == EventID_Sub then
if LuaGetCurPage() == 1 then
MenuOffset = LuaGetEventMenuResponse()
MenuOffset = MenuOffset - TALK_RESPONSE_LIST_BASE
if MenuOffset == 0 then
if KISAENG_110221_ItemCheck() == 0 then
if 0 < LuaGetCountEmptyInventory(0, -1) then
CurPage = 2
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
CurString = 3
LuaShowMenu(CurString, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
KISAENG_110221_GiveEventRewardItem()
return
else
CurPage = 2
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
CurString = 2
LuaShowMenu(CurString, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
return
end
else
CurPage = 2
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
CurString = 1
LuaShowMenu(CurString, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
return
end
elseif MenuOffset == 1 then
LuaTerminateMenu()
return
end
else
LuaTerminateMenu()
return
end
end
end

Genişletmek için tıkla ...