Help Happy Event?!
It work fine but after some times it dont work
Someone can help me ?
PHP Code:
-- Decompiled using luadec 2.0 standard by sztupy (http://luadec51.luaforge.net)
-- Command line was: C:\Users\xyz\Desktop\LuaDecompiler\b\Event.sct
QEV_EVENT_HAPPY = function()
EventID = 10168
SetEventOne(EventID, "SN_QEV_EVENT_HAPPY", 1, 1, 5)
SetEventTwo(2, "SN_TALK_QEV_CH_EVENT_HAPPY_B", "SN_TALK_COMMON_EXIT")
NPC_COUNT = 1
LuaInsertNpc(NPC_COUNT, "NPC_CH_EVENT_KISAENG1")
InsertPayItemCodeName(14, "ITEM_MALL_RETURN_SCROLL_HIGH_SPEED", "ITEM_MALL_REVERSE_RETURN_SCROLL", "ITEM_MALL_HP_INC_4100_POTION", "ITEM_MALL_MP_INC_4100_POTION", "ITEM_MALL_DAMAGE_ABS_20P_SCROLL", "ITEM_MALL_DAMAGE_INC_20P_SCROLL", "ITEM_MALL_EQUIP_TRANSGENDER_4", "ITEM_MALL_REPAIR_HAMMER", "ITEM_MALL_RESURRECTION_100P_SCROLL", "ITEM_MALL_GACHA_CARD", "ITEM_ETC_SD_TOKEN_01", "ITEM_ETC_ARCHEMY_MAGICSTONE_ATHANASIA_11", "ITEM_COS_T_BEHEMOTH", "ITEM_ETC_ARENA_COIN")
InsertPayItemRatio(14, 15, 15, 15, 15, 15, 15, 15, 15, 10, 5, 3, 2, 1, 0.2)
LuaInsertDropItem(5, "ITEM_ETC_E110125_HAPPY_H", 3, "ITEM_ETC_E110125_HAPPY_A", 3, "ITEM_ETC_E110125_HAPPY_P", 3, "ITEM_ETC_E110125_HAPPY_P_2", 3, "ITEM_ETC_E110125_HAPPY_Y", 3)
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_HAPPY_A", "EVENT_MENUSTRING_NOT_ACHIEVED", "SN_TALK_QEV_CH_EVENT_HAPPY_E", "EVENT_MENUSTRING_INVENTORY_FULL", "SN_TALK_QEV_CH_EVENT_HAPPY_D", "EVENT_MENUSTRING_ACHIEVED", "SN_TALK_QEV_CH_EVENT_HAPPY_C")
CONVERSATION_SINGLE = 0
LuaInsertFunctionStringList(1, "CONVERSATION_SINGLE", "KISAENG_100315_Conversation")
end
ItemCheck = function()
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_H", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) > 0 and LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_A", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) > 0 and LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) > 0 and LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P_2", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) > 0 and LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_Y", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) > 0 then
return 0
else
return 1
end
end
ItemDel = function()
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_H", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) > 0 then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_H", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_A", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) > 0 then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_A", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) > 0 then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P_2", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) > 0 then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_P_2", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_Y", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) > 0 then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E110125_HAPPY_Y", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
end
GiveEventRewardItem = function()
bGiveItemNum = 0
btErrorCode = 0
SYSOP_REASON_Event = 0
EventID = 10168
RewardItemMax = 20
RewardItemCount = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}
RewardItemRatio = {0, 1000, 2000, 3470, 4170, 4670, 6140, 7610, 8310, 8610, 8810, 8910, 8970, 9020, 9200, 9300, 9400, 9500, 9600, 9700, 10000}
if LuaGetCountEmptyInventory(0, -1) < 1 then
return
else
nGive = LuaRanged_rand_f(1, 10000)
for i = 1, RewardItemMax do
if RewardItemRatio[i] < nGive and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount[i], SYSOP_REASON_Event, FALSE, FALSE, i)
ItemDel()
else
end
end
end
end
KISAENG_100315_Conversation = function(l_11_0, l_11_1)
CONVERSATION_START = 0
CONVERSATION_RESPONSE = 2
EventID = 10168
EventID_Message = l_11_0
NpcHandlerNum = LuaNpcHandlerNum()
if CONVERSATION_START == l_11_0 and l_11_1 == "NPC_CH_EVENT_KISAENG1" then
CurPage = 5
SelectionList_CommonIndex = 0
Button = 2
LuaShowMenu(CurPage, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
end
if CONVERSATION_RESPONSE == l_11_0 then
if CurPage <= 3 and CurPage >= 1 then
LuaTerminateMenu()
return
end
MenuOffset = LuaGetEventMenuResponse()
MenuOffset = MenuOffset - TALK_RESPONSE_LIST_BASE
if MenuOffset == 0 then
if ItemCheck() == 0 then
if LuaGetCountEmptyInventory(0, -1) > 0 then
CurPage = 3
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
LuaShowMenu(CurPage, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
GiveEventRewardItem()
return
else
CurPage = 2
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
LuaShowMenu(CurPage, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
return
end
else
CurPage = 1
SelectionList_CommonIndex = 1
Button = 1
LuaSetCurPage(CurPage)
LuaShowMenu(CurPage, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
return
end
end
end
end
if MenuOffset == 1 then
LuaTerminateMenu()
elseif CONVERSATION_RESPONSE == l_11_0 and LuaGetCurPage() == 1 then
LuaTerminateMenu()
end
