--修炼场传送人 function c5610047_On_Talk(MapID, InstanceID, CreatureID, CreatureTypeID, RoleID, TalkIndex) local CurTime = tonumber(os.date("%j")) local UpdateTime = role.GetRoleScriptData(RoleID, 1, RoleDataType["XiuLianChang_LingQu"]) local rolelevel = role.GetRoleLevel(MapID, InstanceID, RoleID) local k = role.GetRoleScriptData(RoleID, 1, RoleDataType["XiuLianChang_Time"]) local hour = math.floor(k/60) local minute = k%60 if TalkIndex == -1 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605005) --炼魂殿守卫：\n 只有70级以上的玩家才能进入炼魂殿进行修炼。您剩余的修炼时间为XX小时XX分钟，使用修炼场门票可以增加您的剩余修炼时间（上限48个小时）。 msg.AddMsgEvent(MsgID, 9, hour) msg.AddMsgEvent(MsgID, 9, minute) -- if rolelevel >= 70 then msg.AddMsgEvent(MsgID, 21, 4) --按钮 msg.AddMsgEvent(MsgID, 1, 605006) --进入修炼场 if CurTime ~= UpdateTime then msg.AddMsgEvent(MsgID, 21, 5) --按钮 msg.AddMsgEvent(MsgID, 1, 605007) --领取免费修炼场门票 end end msg.AddMsgEvent(MsgID, 21, 20) --按钮 msg.AddMsgEvent(MsgID, 1, 100002) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) elseif TalkIndex == 4 then if rolelevel >= 70 then if k >= 1 then role.SetRoleScriptData(RoleID, 1, RoleDataType["XiuLianChang_Time"],k-1) role.RoleGotoNewMap(MapID, InstanceID, RoleID, 2748433913, 277, 200, 483) else local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605008) --炼魂殿守卫：\n 您需要购买修炼场门票才能进入修炼场。 msg.AddMsgEvent(MsgID, 21, -1) --按钮 msg.AddMsgEvent(MsgID, 1, 100001) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) end end elseif TalkIndex == 5 then if CurTime ~= UpdateTime then if role.GetBagFreeSize(RoleID) < 1 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605009) --炼魂殿守卫：\n 请您清空背包后再来领取。 msg.AddMsgEvent(MsgID, 21, -1) --按钮 msg.AddMsgEvent(MsgID, 1, 100001) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) else role.SetRoleScriptData(RoleID, 1, RoleDataType["XiuLianChang_LingQu"], CurTime) role.AddRoleItem(MapID, InstanceID, RoleID, 4800131, 1, 1, 8, 420) end end end end aux.RegisterCreatureEvent(5610047, 7, "c5610047_On_Talk") function c5610046_On_Talk(MapID, InstanceID, CreatureID, CreatureTypeID, RoleID, TalkIndex) --玩家ID， 生成物品TypeID，数量，品质，生成模式，log用网络消息枚举 local EXP_XIULIAN = {} EXP_XIULIAN[70] = 1463050 EXP_XIULIAN[71] = 1478050 EXP_XIULIAN[72] = 1493140 EXP_XIULIAN[73] = 1509290 EXP_XIULIAN[74] = 1525540 EXP_XIULIAN[75] = 1541890 EXP_XIULIAN[76] = 1558350 EXP_XIULIAN[77] = 1574920 EXP_XIULIAN[78] = 1591590 EXP_XIULIAN[79] = 1696390 EXP_XIULIAN[80] = 1716800 EXP_XIULIAN[81] = 1737350 EXP_XIULIAN[82] = 1758020 EXP_XIULIAN[83] = 1779950 EXP_XIULIAN[84] = 1802020 EXP_XIULIAN[85] = 1824220 EXP_XIULIAN[86] = 1846560 EXP_XIULIAN[87] = 1891650 EXP_XIULIAN[88] = 1891650 EXP_XIULIAN[89] = 1915560 EXP_XIULIAN[90] = 11057050 EXP_XIULIAN[91] = 11084270 EXP_XIULIAN[92] = 11111650 EXP_XIULIAN[93] = 11140510 EXP_XIULIAN[94] = 11169540 EXP_XIULIAN[95] = 11331930 EXP_XIULIAN[96] = 11364560 EXP_XIULIAN[97] = 11397390 EXP_XIULIAN[98] = 11430400 EXP_XIULIAN[99] = 11465100 EXP_XIULIAN[100] = 11500000 EXP_XIULIAN[101] = 120570500 EXP_XIULIAN[102] = 130842700 EXP_XIULIAN[103] = 111116500 EXP_XIULIAN[104] = 111405100 EXP_XIULIAN[105] = 111695400 EXP_XIULIAN[106] = 113319300 EXP_XIULIAN[107] = 113645600 EXP_XIULIAN[108] = 113973900 EXP_XIULIAN[109] = 114304000 EXP_XIULIAN[110] = 214651000 EXP_XIULIAN[111] = 215000000 EXP_XIULIAN[112] = 210842700 EXP_XIULIAN[113] = 211116500 EXP_XIULIAN[114] = 211405100 EXP_XIULIAN[115] = 211695400 EXP_XIULIAN[116] = 213319300 EXP_XIULIAN[117] = 213645600 EXP_XIULIAN[118] = 213973900 EXP_XIULIAN[119] = 214304000 EXP_XIULIAN[120] = 2146510000 local rolelevel = role.GetRoleLevel(MapID, InstanceID, RoleID) if rolelevel > 120 then rolelevel = 120 elseif rolelevel < 70 then rolelevel = 70 end if TalkIndex == -1 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605001) --魂水晶兑换人：\n 从0点开始，每隔两个小时，炼魂殿中将会出现殿灵。击杀殿灵，将他们随身携带的魂水晶交给我，我会给你XXX点经验。 msg.AddMsgEvent(MsgID, 9, EXP_XIULIAN[rolelevel]*0.3) msg.AddMsgEvent(MsgID, 21, 4) --按钮 msg.AddMsgEvent(MsgID, 1, 605002) --交付魂水晶碎片*30 msg.AddMsgEvent(MsgID, 21, 5) --按钮 msg.AddMsgEvent(MsgID, 1, 605003) --交付有瑕疵的魂水晶*3 msg.AddMsgEvent(MsgID, 21, 6) --按钮 msg.AddMsgEvent(MsgID, 1, 605004) --交付完美的魂水晶 msg.AddMsgEvent(MsgID, 21, 20) --按钮 msg.AddMsgEvent(MsgID, 1, 100002) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) elseif TalkIndex == 4 then local b = role.GetRoleItemNum(RoleID,4800134) if b < 30 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605010) --魂水晶兑换人：\n 你必须拥有30个魂水晶碎片才能兑换一次经验。 msg.AddMsgEvent(MsgID, 21, -1) --按钮 msg.AddMsgEvent(MsgID, 1, 100001) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) else role.RemoveFromRole(MapID, InstanceID, RoleID, 4800134, 30, 101) role.AddRoleExp(MapID, InstanceID, RoleID, EXP_XIULIAN[rolelevel]*0.3) --人数统计 local curTime = tonumber(os.date("%j")) if lianHunQ_Roles[RoleID] == nil then UpdateSeverData(55, 1) lianHunQ_Roles[RoleID] = curTime elseif lianHunQ_Roles[RoleID] ~= curTime then lianHunQ_Roles = {} lianHunQ_Roles[RoleID] = curTime UpdateSeverData(55, 1) end end elseif TalkIndex == 5 then local b = role.GetRoleItemNum(RoleID,4800135) if b < 3 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605011) --魂水晶兑换人：\n 你必须拥有3个有瑕疵的魂水晶才能兑换一次经验。 msg.AddMsgEvent(MsgID, 21, -1) --按钮 msg.AddMsgEvent(MsgID, 1, 100001) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) else role.RemoveFromRole(MapID, InstanceID, RoleID, 4800135, 3, 101) role.AddRoleExp(MapID, InstanceID, RoleID, EXP_XIULIAN[rolelevel]*0.3) --人数统计 local curTime = tonumber(os.date("%j")) if lianHunQ_Roles[RoleID] == nil then UpdateSeverData(55, 1) lianHunQ_Roles[RoleID] = curTime elseif lianHunQ_Roles[RoleID] ~= curTime then lianHunQ_Roles = {} lianHunQ_Roles[RoleID] = curTime UpdateSeverData(55, 1) end end elseif TalkIndex == 6 then local b = role.GetRoleItemNum(RoleID,4800136) if b < 1 then local MsgID = msg.BeginMsgEvent() msg.AddMsgEvent(MsgID, 20, 605012) --魂水晶兑换人：\n 你必须拥有1个完美的魂水晶才能兑换一次经验。 msg.AddMsgEvent(MsgID, 21, -1) --按钮 msg.AddMsgEvent(MsgID, 1, 100001) --取消 msg.AddMsgEvent(MsgID, 24, CreatureID) --npcid msg.DispatchRoleMsgEvent(RoleID, MsgID) else role.RemoveFromRole(MapID, InstanceID, RoleID, 4800136, 1, 101) role.AddRoleExp(MapID, InstanceID, RoleID, EXP_XIULIAN[rolelevel]*0.3) --人数统计 local curTime = tonumber(os.date("%j")) if lianHunQ_Roles[RoleID] == nil then UpdateSeverData(55, 1) lianHunQ_Roles[RoleID] = curTime elseif lianHunQ_Roles[RoleID] ~= curTime then lianHunQ_Roles = {} lianHunQ_Roles[RoleID] = curTime UpdateSeverData(55, 1) end end end end aux.RegisterCreatureEvent(5610046, 7, "c5610046_On_Talk")