Help !

[Worshiper]

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

[devdash]

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...

[Mc-Diesel]

change reward from script i did it before

[Worshiper]

Originally Posted by Mc-Diesel

change reward from script i did it before

Can you share the files and lines for the happy event?

[NorseGodTyr]

Originally Posted by [GM]Dejo

Can you share the files and lines for the happy event?

Quest Script Name is @SN_QEV_110221.lua
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

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