天龙八部–激情泡点脚本-爱天龙--宇宇工作室

——————–源文件据说是来自莫问老咸鱼也不清楚因为源文件没有任何注释——————————
x460078210_g_scriptId = 460078210 —脚本号
x460078210_g_SceneId = 538 —场景号
x460078210_g_Exp = 100 —经验值
x460078210_g_ZD = 0 –这里原本老咸鱼我是准备给赠点
x460078210_g_YB = 0–这里原本老咸鱼我是准备给元宝
x460078210_g_MaxObj = 50 —最大人数限制一般不用限制可以给到999
——————脚本是用泡点脚本—————————–
—这个脚本挺好用的可以加入一些自己需要的检测比如赠点没达到多少就踢出去，比如血没达到多少就踢出去。比如等级高于多少就踢出去，反正任你写下面条件检测我写了几个示范的
–**********************************
— OnTime
–**********************************
function x460078210_OnSceneTimer(sceneId)
if 1 ~= x460078210_CheckTime() then
x460078210_TransAll(sceneId)
StopTimer(sceneId)
return
end

local nHumanCount = LuaFnGetCopyScene_HumanCount(sceneId)
if nHumanCount < 1 then
return
end

if nHumanCount > x460078210_g_MaxObj then
x460078210_TipAll(sceneId, “地图人数多与 “..x460078210_g_MaxObj..” 人，什么都不加，赶紧干掉其他玩家吧。”) —x460078210_g_MaxObj = 50 如果给到999 就不会出现这个意思是地图最大人数
return
end
for i=0, nHumanCount-1 do
local nHumanId = LuaFnGetCopyScene_HumanObjId(sceneId, i)
if x460078210_CheckCondition(sceneId, nHumanId) ~= 1 then
x460078210_MsgBox(sceneId, nHumanId, “条件不足”)
x460078210_Exit(sceneId, nHumanId)
end
local ret = x460078210_DoAutoGetExpLogic( sceneId, nHumanId )
–if ret == 1 then
— x460078210_MsgBox(sceneId, nHumanId, “当前人数:”..nHumanCount)
–end———-这一大段可以注释掉
end

end
–通告
function x460078210_OnScenePlayerEnter(sceneId, selfId)
local name = GetName(sceneId,selfId)
local str = format(“#{_INFOUSR%s}#P进入了每日经验图”,GetName(sceneId,selfId),GetSceneName(sceneId))–进入地图的系统通知
LuaFnCancelSpecificImpact( sceneId, selfId, 5927 )
LuaFnCancelSpecificImpact( sceneId, selfId, 54 )
BroadMsgByChatPipe(sceneId, objId, str, 4)
end
–时间检测
function x460078210_CheckTime(sceneId, selfId)
local CurHour = GetHour()
if CurHour == 20 then —这里是检测时间的如果不是这个时间点就踢出去可以定义多个时间点比如 if CurHour == 20 or CurHour ==21 or CurHour == 22 then
return 1
end
return -1
end
–条件检测
function x460078210_CheckCondition(sceneId, objId)
— local yb = YuanBao(sceneId,selfId,targetId,3,0) 定义取得元宝数量
–local xueliang = GetMaxHp(sceneId,selfId) 定义取得血量

–这段是示范需要先定义取得的数据然后如果数据不满足就踢出去 –这里是我自己写的
if GetLevel(sceneId, objId) < 40 or —等级检测等级小于40
GetMoney(sceneId, objId) < 50000 –or —包裹里金币检测这里的50000=5金币
— xueliang < 10000 or 这里检测血量
— yb > 10000 then 这里是检测元宝数量如果大于多少就踢出去

then

return 0
end
return 1
end—-这一大段是用来检测的你可以加入自己的一些检测
–传送回去
function x460078210_Exit( sceneId, selfId)
CallScriptFunction(400900,”TransferFunc”,sceneId, selfId, 2,155, 165)—条件不足回去的场景号和坐标
end
–提示所有人
function x460078210_TipAll(sceneId,Str)
— 获得场景里头的所腥?
local nHumanNum = LuaFnGetCopyScene_HumanCount(sceneId)

— 没有人的场景，什么都不做
if nHumanNum < 1 then
return
end

for i=0, nHumanNum-1 do
local PlayerId = LuaFnGetCopyScene_HumanObjId(sceneId, i)
BeginEvent(sceneId)
AddText(sceneId, Str)
EndEvent(sceneId)
DispatchMissionTips(sceneId, PlayerId)
end
end
function x460078210_TransAll(sceneId)
— 获得场景里头的所有人
local nHumanNum = LuaFnGetCopyScene_HumanCount(sceneId)

— 没有人的场景，什么都不做
if nHumanNum < 1 then
return
end

for i=0, nHumanNum-1 do
local PlayerId = LuaFnGetCopyScene_HumanObjId(sceneId, i)
LuaFnSendSystemMail( sceneId, GetName(sceneId,PlayerId), ” 本次已经结束活动已经结束，等待下一次的开启吧。每天#Y20点#W准时开启。” )—-邮件通知
x460078210_MsgBox(sceneId,PlayerId,”时间已经过了”)—界面提示
x460078210_Exit(sceneId, PlayerId)
end
end

–**********************************
— 挂机加经验逻辑
–**********************************
function x460078210_DoAutoGetExpLogic( sceneId, selfId )

if LuaFnIsObjValid( sceneId, selfId ) ~= 1 then
return -1
end

if LuaFnIsCanDoScriptLogic( sceneId, selfId ) ~= 1 then
return -2
end
if LuaFnIsCharacterLiving(sceneId, selfId) ~= 1 then
return -3
end

–获得经验….
LuaFnAddExp( sceneId, selfId, x460078210_g_Exp);—给经验当然你也可以给点其他的东西
return 1

end

–**********************************
–消息提示
–**********************************
function x460078210_MsgBox( sceneId, selfId, str )
BeginEvent( sceneId )
AddText( sceneId, str )
EndEvent( sceneId )
DispatchMissionTips( sceneId, selfId )
end
–死亡事件
–扣除死亡者50金，奖励杀人者30J
function x460078210_OnDie(sceneId, selfId, killerId)
CallScriptFunction(400900,”TransferFunc”,sceneId, selfId, 538,20, 38) —538是地图号
CostMoney(sceneId, selfId,50000) –被杀死扣除金币
AddMoney(sceneId, killerId,30000)—击杀给金币
if GetMoney(sceneId, selfId) < 50000 then
x460078210_Exit(sceneId, selfId)
end
local kname = format(“#{_INFOUSR%s}”,GetName(sceneId,killerId))
local dname = format(“#{_INFOUSR%s}”,GetName(sceneId,selfId))
local str = format(“%s#P跑到#Y每日经验#P地图想要占点便宜，结果却被霸气的%s#P一下弄死搞残怀孕。还掉了#W50金币#P真是一个悲剧啊，实力不行就别逞强撒。”,dname,kname)
BroadMsgByChatPipe(sceneId, objId, str, 4)
local str = format(“%s#P正在#Y每日经验#P地图享受快速升级的快感，不料%s#P不长眼的走进了他的视线。抄起杀猪刀，一下秒杀，跟杀猪一样，捡起30金币。大叫:谁要不服，给爷爷进来。”,kname,dname)
BroadMsgByChatPipe(sceneId, objId, str, 4)
end