i need some one help me to make event happy working fine and change the reward of it because i try alot of time and i cant make it working
thanks
thanks
Help !
01/24/2019 03:10
Worshiper#1
01/24/2019 14:34
devdash#2
never tried it before but i think its easy, all you have to do is changing the rewards codes from GameServer.exe with Ollydbg or dbgx32
that's for the rewards
and now lets say that it dosen't drop from mobs in your game, then u have to edit your server files script
hope that helps
i mentioned all i knew, nothing else can be said
good luck...
that's for the rewards
and now lets say that it dosen't drop from mobs in your game, then u have to edit your server files script
hope that helps
i mentioned all i knew, nothing else can be said
good luck...
01/24/2019 18:54
Mc-Diesel#3
change reward from script i did it before
01/25/2019 03:40
Worshiper#4
Can you share the files and lines for the happy event?Quote:
change reward from script i did it before
01/25/2019 09:27
NorseGodTyr#5
Quest Script Name is @SN_QEV_110221.luaQuote:
i Change Happy to Valtyr letter work fine 3 month ago i have this active
today i have full working Winter Event with exchange Snow flake by so-ok :)
[Only registered and activated users can see links. Click Here To Register...]Quote:
function QEV_CH_EVENT_KISAENG_100315()
EventID = 10168
SetEventOne(EventID, "SN_QEV_EVENT_KISAENG_100315", 1, 1, 4)
SetEventTwo(2, "SN_TALK_QEV_CH_EVENT_KISAENG_100315_B", "SN_TALK_COMMON_EXIT")
NPC_COUNT = 1
LuaInsertNpc(NPC_COUNT, "NPC_CH_EVENT_KISAENG1")
InsertPayItemCodeName(20, "ITEM_ETC_E051111_WHITECHOCO_PEPERO", "ITEM_ETC_E051111_ALMOND_PEPERO", "ITEM_ETC_E051111_GREENTEA_PEPERO", "ITEM_ETC_E051111_GINSENG_PEPERO", "ITEM_ETC_E051111_STRAWBERRY_PEPERO", "ITEM_ETC_ALL_POTION_05", "ITEM_ETC_ALL_SPOTION_01", "ITEM_EVENT_ARCHEMY_REINFORCE_RECIPE_ACCESSARY _B", "ITEM_EVENT_ARCHEMY_REINFORCE_RECIPE_WEAPON_B" , "ITEM_ETC_E080723_SKILL_EXP_5", "ITEM_ETC_E080723_SKILL_EXP_10", "ITEM_ETC_E080723_SKILL_EXP_15", "ITEM_ETC_E080723_SKILL_EXP_20", "ITEM_EVENT_HP_INC_1900_POTION", "ITEM_EVENT_HP_INC_4100_POTION", "ITEM_ETC_ARCHEMY_MAGICSTONE_STR_08", "ITEM_ETC_ARCHEMY_MAGICSTONE_INT_08", "ITEM_ETC_E090930_HIT_SUPER_SCROLL", "ITEM_ETC_E090930_EVATION_SUPER_SCROLL", "ITEM_ETC_E060526_SUMMON_PARTY_SCROLL_A")
InsertPayItemRatio(20, 10, 10, 15, 7, 5, 15, 15, 7, 3, 2, 1, 0.6, 0.5, 1.8, 1, 1, 1, 1, 1, 3)
LuaInsertDropItem(4, "ITEM_ETC_E100603_LOVE_L", 2, "ITEM_ETC_E100603_LOVE_O", 2, "ITEM_ETC_E100603_LOVE_V", 2, "ITEM_ETC_E100603_LOVE_E", 2)
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_100315_A", "EVENT_MENUSTRING_NOT_ACHIEVED", "SN_TALK_QEV_CH_EVENT_KISAENG_100315_E", "EVENT_MENUSTRING_INVENTORY_FULL", "SN_TALK_QEV_CH_EVENT_KISAENG_100315_D", "EVENT_MENUSTRING_ACHIEVED", "SN_TALK_QEV_CH_EVENT_KISAENG_100315_C")
CONVERSATION_SINGLE = 0
LuaInsertFunctionStringList(1, "CONVERSATION_SINGLE", "KISAENG_100315_Conversation")
end
function ItemCheck()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_L", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_O", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_V", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_E", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
function ItemDel()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_L", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_L", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_O", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_O", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_V", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_V", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_E", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_E100603_LOVE_E", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
end
function GiveEventRewardItem()
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 1 > LuaGetCountEmptyInventory(0, -1) then
return
else
nGive = LuaRanged_rand_f(1, 10000)
for i = 1, RewardItemMax do
if nGive > RewardItemRatio[i] and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount[i], SYSOP_REASON_Event, FALSE, FALSE, i)
ItemDel()
break
end
end
end
end
function KISAENG_100315_Conversation(EventID_Sub, CharName)
CONVERSATION_START = 0
CONVERSATION_RESPONSE = 2
EventID = 10168
EventID_Message = EventID_Sub
NpcHandlerNum = LuaNpcHandlerNum()
if CONVERSATION_START == EventID_Sub and CharName == "NPC_CH_EVENT_KISAENG1" then
CurPage = 5
SelectionList_CommonIndex = 0
Button = 2
LuaShowMenu(CurPage, EventID, SelectionList_CommonIndex, Button, NpcHandlerNum)
end
if CONVERSATION_RESPONSE == EventID_Sub 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 0 < LuaGetCountEmptyInventory(0, -1) 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
if MenuOffset == 1 then
LuaTerminateMenu()
end
elseif CONVERSATION_RESPONSE == EventID_Sub and LuaGetCurPage() == 1 then
LuaTerminateMenu()
end
end
function QEV_CH_EVENT_KISAENG_GLOBAL2011_2()
EventID = 10168
SetEventOne(EventID, "SN_QEV_EVENT_HAPPY", 1, 1, 6)
SetEventTwo(2, "SN_TALK_QEV_CH_EVENT_HAPPY_B", "SN_TALK_COMMON_EXIT")
NPC_COUNT = 1
LuaInsertNpc(NPC_COUNT, "NPC_CH_EVENT_KISAENG1")
InsertPayItemCodeName(20, "ITEM_MALL_RETURN_SCROLL_HIGH_SPEED", "ITEM_MALL_HP_INC_1300_POTION", "ITEM_MALL_MP_INC_1300_POTION", "ITEM_MALL_HP_INC_1900_POTION", "ITEM_MALL_MP_INC_1900_POTION", "ITEM_ETC_ARCHEMY_REINFORCE_RECIPE_ARMOR_B", "ITEM_ETC_ARCHEMY_REINFORCE_RECIPE_SHIELD_B", "ITEM_ETC_ARCHEMY_REINFORCE_RECIPE_ACCESSARY_B ", "ITEM_ETC_ARCHEMY_REINFORCE_RECIPE_WEAPON_B", "ITEM_MALL_DAMAGE_INC_10P_SCROLL", "ITEM_MALL_DAMAGE_ABS_10P_SCROLL", "ITEM_ETC_ARCHEMY_MAGICSTONE_LUCK_08", "ITEM_ETC_150EXP_BASIC", "ITEM_MALL_REVERSE_RETURN_SCROLL", "ITEM_ETC_ARCHEMY_MAGICSTONE_STR_08", "ITEM_ETC_ARCHEMY_MAGICSTONE_INT_08", "ITEM_ETC_E080723_HWAN_POTION", "ITEM_ETC_E060526_SUMMON_PARTY_SCROLL_A", "ITEM_ETC_E060529_GOLDDRAGONFLAG_F", "ITEM_ETC_E060529_GOLDDRAGONFLAG_M")
InsertPayItemRatio(20, 10, 10, 10, 1, 1, 10, 10, 10, 10, 2, 1, 0.8, 0.7, 0.3, 0.5, 0.4, 0.3, 0.2, 0.1, 0.1)
LuaInsertDropItem(6, "ITEM_ETC_VALTYR_HAPPY_V", 1, "ITEM_ETC_VALTYR_HAPPY_A", 1, "ITEM_ETC_VALTYR_HAPPY_L", 1, "ITEM_ETC_VALTYR_HAPPY_T", 1, "ITEM_ETC_VALTYR_HAPPY_Y", 1, "ITEM_ETC_VALTYR_HAPPY_R", 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_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
function ItemCheck()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_V", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_A", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_L", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_T", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1)and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_Y", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1)and 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_R", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
function ItemDel()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_V", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_V", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_A", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_A", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_L", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_L", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_T", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_T", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_Y", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_Y", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_R", INQUIRE_SAMEITEM_OP_COUNT_ALL_SAMEITEM, 0) then
slot = LuaEventInQuireSameItem(0, "ITEM_ETC_VALTYR_HAPPY_R", INQUIRE_SAMEITEM_OP_FIND_FIRST_SLOT, 0)
LuaDelItem_EXT(0, slot, 1, SYSOP_REASON_Event, 0)
end
end
function GiveEventRewardItem()
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 1 > LuaGetCountEmptyInventory(0, -1) then
return
else
nGive = LuaRanged_rand_f(1, 10000)
for i = 1, RewardItemMax do
if nGive > RewardItemRatio[i] and nGive <= RewardItemRatio[i + 1] then
LuaAddItem_EXT(EventID, 0, RewardItemCount[i], SYSOP_REASON_Event, FALSE, FALSE, i)
ItemDel()
break
end
end
end
end