Register for your free account! | Forgot your password?

You last visited: Today at 12:17

  • Please register to post and access all features, it's quick, easy and FREE!


Help !

Discussion on Help ! within the SRO Private Server forum part of the Silkroad Online category.

Reply
 
Old   #1
 
elite*gold: 60
Join Date: May 2017
Posts: 740
Received Thanks: 110
Help !

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



[GM]Dejo is offline  
Old 01/24/2019, 14:34   #2

 
elite*gold: 0
Join Date: Feb 2016
Posts: 1,403
Received Thanks: 396
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...


alydandy is offline  
Thanks
1 User
Old 01/24/2019, 18:54   #3
 
elite*gold: 80
Join Date: May 2015
Posts: 246
Received Thanks: 57
change reward from script i did it before
Mc-Diesel is offline  
Thanks
1 User
Old 01/25/2019, 03:40   #4
 
elite*gold: 60
Join Date: May 2017
Posts: 740
Received Thanks: 110
Quote:
Originally Posted by Mc-Diesel View Post
change reward from script i did it before
Can you share the files and lines for the happy event?


[GM]Dejo is offline  
Old 01/25/2019, 09:27   #5



 
elite*gold: 197
Join Date: May 2013
Posts: 1,401
Received Thanks: 647
Quote:
Originally Posted by [GM]Dejo View Post
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

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
Next time Use your Brain Please !! Happy event is xxx Times shared


NorseGodTyr is offline  
Reply



« what is these RegRegions ? | [Looking]Pro Hwid Bypasser »

Similar Threads Similar Threads
[HELP]HELP HELP HELP[HELP]
09/23/2013 - Facebook - 3 Replies
GUYS ^^ THIS IS A HELP THREAD NOT REQUEST THREAD BUT YOU CAN CONSIDER IT AS REQUEST THREAD DOES ANYONE OF YOU KNOW THE AUTO SUBMIT PHP CODE? THANKS!
[HELP][HELP][HELP][HELP]!!
09/11/2009 - Soldier Front - 3 Replies
Microsoft Visual C++ Run time error! :(:( **HELP ME PLEASE!!***
help help help help help help
06/28/2009 - Say Hello - 0 Replies
how i can dowmload Mangos 6385 ??????????????????????????????????? please give me the limk i can't see that i know it is in www.elitepvpers.com/.../153716-release-mangos-relea ses-blackscorpian-win32-2-4-3-a.html - but give me link sent it to my email plz



All times are GMT +2. The time now is 12:17.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

BTC: 33E6kMtxYa7dApCFzrS3Jb7U3NrVvo8nsK
ETH: 0xc6ec801B7563A4376751F33b0573308aDa611E05

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2020 elitepvpers All Rights Reserved.