[Request] Treasure Box Quest working script ..

[multiuses]

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 .

[multiuses]

anybody can help ?

[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

[multiuses]

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.

[Spidy.]

Glad your question is solved

#Closed