|
You last visited: Today at 10:41
Advertisement
[Request] Treasure Box Quest working script ..
Discussion on [Request] Treasure Box Quest working script .. within the SRO Private Server forum part of the Silkroad Online category.
03/20/2018, 21:15
|
#1
|
elite*gold: 0 
Join Date: May 2008
Posts: 167
Received Thanks: 2
|
[Request] Treasure Box Quest working script ..
hi there
i wonder if someone can give me a working script for Treasure box quest
i tried to make it and i didn't succeed
ill really appreciate your help if someone share it with me
thanks .
|
|
|
|
03/24/2018, 16:39
|
#2
|
elite*gold: 0
Join Date: May 2008
Posts: 167
Received Thanks: 2
|
anybody can help ?
|
|
|
|
|
03/26/2018, 15:40
|
#3
|
elite*gold: 0
Join Date: Oct 2007
Posts: 1,171
Received Thanks: 346
|
This is the' Jewelry Box' (QEV_CH_EVENT_KISAENG_110529) event quest script, is that what you searching for?
PHP Code:
function QEV_CH_EVENT_KISAENG_110529()
EventID = 10188
SetEventOne(EventID, "SN_QEV_CH_EVENT_KISAENG_110529", 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.5)
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_110529_Conversation")
end
function KISAENG_110529_ItemCheck()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
function KISAENG_110529_ItemDel()
if 0 < 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, 1, SYSOP_REASON_Event, 0)
end
end
function KISAENG_110529_GiveEventRewardItem()
bGiveItemNum = 0
btErrorCode = 0
SYSOP_REASON_Event = 0
EventID = 10188
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_110529_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[i], SYSOP_REASON_Event, FALSE, FALSE, 12 + Gender)
else
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)
KISAENG_110529_ItemDel()
break
end
end
end
end
end
end
function KISAENG_110529_Conversation(EventID_Sub, CharName)
CONVERSATION_START = 0
CONVERSATION_RESPONSE = 2
EventID = 10188
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_110529_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_110529_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
Regards
|
|
|
|
|
03/27/2018, 02:04
|
#4
|
elite*gold: 0
Join Date: May 2008
Posts: 167
Received Thanks: 2
|
Quote:
Originally Posted by hexcode
This is the' Jewelry Box' (QEV_CH_EVENT_KISAENG_110529) event quest script, is that what you searching for?
PHP Code:
function QEV_CH_EVENT_KISAENG_110529()
EventID = 10188
SetEventOne(EventID, "SN_QEV_CH_EVENT_KISAENG_110529", 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.5)
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_110529_Conversation")
end
function KISAENG_110529_ItemCheck()
if 0 < LuaEventInQuireSameItem(0, "ITEM_ETC_E050618_TREASUREBOX", INQUIRE_SAMEITEM_OP_COUNT_FIRST_ITEM, -1) then
return 0
else
return 1
end
end
function KISAENG_110529_ItemDel()
if 0 < 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, 1, SYSOP_REASON_Event, 0)
end
end
function KISAENG_110529_GiveEventRewardItem()
bGiveItemNum = 0
btErrorCode = 0
SYSOP_REASON_Event = 0
EventID = 10188
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_110529_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[i], SYSOP_REASON_Event, FALSE, FALSE, 12 + Gender)
else
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)
KISAENG_110529_ItemDel()
break
end
end
end
end
end
end
function KISAENG_110529_Conversation(EventID_Sub, CharName)
CONVERSATION_START = 0
CONVERSATION_RESPONSE = 2
EventID = 10188
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_110529_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_110529_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
Regards |
man ur the best i rlly appreciate ur help  thanks.
|
|
|
|
|
03/27/2018, 15:57
|
#5
|
elite*gold: 1
Join Date: Oct 2012
Posts: 8,423
Received Thanks: 3,242
|
Glad your question is solved
#Closed
|
|
|
|
Similar Threads
|
[PHP] Treasure Script auf Treasure Link weiterleiten
04/18/2016 - Web Development - 4 Replies
Hallöle,
bastel grad an nem Treasure Script und bin grad am verzweifeln wie ich nach dem erfolgreichen erstellen der Treasure nun auf das erstellte Treasure verlinken soll.
Habt ihr da ne idee?
|
Compile all quest without quest's files list // Kompilieren Sie alle Quest ohne Quest
07/17/2011 - Metin2 PServer Guides & Strategies - 3 Replies
ENGLISH
Hello dear community, this is a very simple guide but at the same time useful.
How to compile ALL quest in the folder "quest" without the files list in the file "locale_list"?
Easy!
Open the file "make" and replace the content of the file with this:
for f in *.quest; do ./qc $f; done
Oki. Now set the 0777 permission to the file.
Finally open a SSH client and sign in. Write the command:
cd /game_file_folder
|
All times are GMT +1. The time now is 10:43.
|
|
![[Request] Treasure Box Quest working script ..](https://www.elitepvpers.com/forum/iconimages/sro-private-server/request-treasure-box-quest-working-script_ltr.gif){kind=small}
