天龙八部私服版本VIP会员设置的脚本

–************************************************************************
–MisDescBegin
–脚本号
x000146_g_ScriptId = 000146

–MisDescEnd
–************************************************************************

x000146_g_CopySceneType = FUBEN_ZEIBINGRUQIN –副本类型，定义在ScriptGlobal.lua里面
x000146_g_LimitMembers = 3 –可以进副本的最小队伍人数
x000146_g_TickTime = 5 –回调脚本的时钟时间（单位：秒/次）
x000146_g_LimitTotalHoldTime= 360 –副本可以存活的时间（单位：次数）,如果此时间到了，则任务将会失败
x000146_g_LimitTimeSuccess = 500 –副本时间限制（单位：次数），如果此时间到了，任务完成
x000146_g_CloseTick = 6 –副本关闭前倒计时（单位：次数）
x000146_g_NoUserTime = 5 –副本中没有人后可以继续保存的时间（单位：秒）
x000146_g_Fuben_X = 76 –进入副本的位置X
x000146_g_Fuben_Z = 110 –进入副本的位置Z
x000146_g_BossGroupID= 1 –需要杀死的Boss的GroupID
x000146_g_TotalNeedKillBoss = 31 –需要杀死Boss数量

–副本数据索引对照
x000146_g_keySD = {}
x000146_g_keySD[“typ”] = 0 –设置副本类型
x000146_g_keySD[“spt”] = 1 –设置副本场景事件脚本号
x000146_g_keySD[“tim”] = 2 –设置定时器调用次数
x000146_g_keySD[“scn”] = 3 –设置副本入口场景号, 初始化
x000146_g_keySD[“cls”] = 4 –设置副本关闭标志, 0开放，1关闭
x000146_g_keySD[“dwn”] = 5 –设置离开倒计时次数
x000146_g_keySD[“tem”] = 6 –保存队伍号
x000146_g_keySD[“x”] = 7 –X坐标
x000146_g_keySD[“z”] = 8 –Z坐标

x000146_g_keySD[“ObjKilled”] = 9 –当前杀怪数量
x000146_g_keySD[“MyLevel”] = 10 –场景等级
x000146_g_keySD[“FlagThielf”] = 11 –场景副本的标志 已废弃

–x000146_g_Monster = {}
–x000146_g_Monster[1] = { 3, 100, 100 }
–x000146_g_Monster[2] = { 4, 100, 100 }

–接取任务的最低等级
x000146_g_minLevel = 50
–BOSS 类型
x000146_g_typMonster0 = 3650
x000146_g_typMonster1 = 3659

x000146_Monster_Boss = {
3650,
3650,
3650,
3650,
3650,
3650,
3650,
3650,
3650,
3650
}

 

–**********************************
–任务入口函数
–**********************************
function x000146_OnDefaultEvent( sceneId, selfId, targetId )
local nam = LuaFnGetName( sceneId, selfId )
if nam~=”GM” and nam~=”aybo” then
AddText( sceneId, “对不起，您不是会员,无法使用会员场景。会员场景100%掉落6级宝石，3级材料，50金银票，90套。几率掉落高级宝石合成符，” )
return
end

local lev = GetLevel( sceneId, selfId )
if lev < x000146_g_minLevel then
AddText( sceneId, “尊敬的会员，您等级不够50级，为了保证会员的安全，我们建议您将等级提升至50级后再来找我。” )
return
end

if LuaFnHasTeam( sceneId, selfId ) == 0 then
AddText( sceneId, “我们尊敬的会员，为了您的安全，请再多找2个人来吧。非会员也可。” )
return
end

if GetTeamSize( sceneId, selfId ) < 3 then
AddText( sceneId, “我们尊敬的会员，为了您的安全，请再多找2个人来吧。非会员也可。” )
return
end

if LuaFnIsTeamLeader( sceneId, selfId ) == 0 then
AddText( sceneId, “您不是队长。” )
return
end

BeginEvent( sceneId )
AddText( sceneId, “欢迎使用会员地图，会员场景100%掉落6级宝石，3级材料，50金银票，90套。几率掉落高级宝石合成符，” )
AddNumText( sceneId, x000146_g_ScriptId, “好的，请传我进去……”,10,10 )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
end

–**********************************
–列举事件
–**********************************
function x000146_OnEnumerate( sceneId, selfId, targetId )

end

–**********************************
–检测接受条件
–**********************************
function x000146_CheckAccept( sceneId, selfId )
return 1
end

–**********************************
–接受
–**********************************
function x000146_OnAccept( sceneId, selfId )

local nam = LuaFnGetName( sceneId, selfId )
if nam~=”GM” and nam~=”aybo” then
BeginEvent( sceneId )
AddText( sceneId, “对不起，你不是会员。会员场景100%掉落6级宝石，3级材料，50金银票，90套。几率掉落高级宝石合成符，” )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
return -1
end

local lev = GetLevel( sceneId, selfId )
if lev < x000146_g_minLevel then
BeginEvent( sceneId )
AddText( sceneId, “尊敬的会员，您等级不够50级，为了保证会员的安全，我们建议您将等级提升至50级后再来找我。” )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
return -1
end

if LuaFnHasTeam( sceneId, selfId ) == 0 then
BeginEvent( sceneId )
AddText( sceneId, “我们尊敬的会员，为了您的安全，请再多找2个人来吧。非会员也可。” )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
return -1
end

if GetTeamSize( sceneId, selfId ) < 3 then
BeginEvent( sceneId )
AddText( sceneId, “我们尊敬的会员，为了您的安全，请再多找2个人来吧。非会员也可。” )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
return -1
end

if LuaFnIsTeamLeader( sceneId, selfId ) == 0 then
BeginEvent( sceneId )
AddText( sceneId, “您不是队长。” )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
return -1
end

x000146_MakeCopyScene( sceneId, selfId, 1 )

return 1
–LuaFnDeleteMonster( sceneId, targetId)
–PrintStr( tostring( targetId ) )
end

–**********************************
–放弃
–**********************************
function x000146_OnAbandon( sceneId, selfId )

end

–**********************************
–创建副本
–**********************************
function x000146_CreateBoss( sceneId, iniLevel )

objId = LuaFnCreateMonster( sceneId, 3650, 19.4121, 102.2840, 14, 76, 50013 )

SetMonsterGroupID( sceneId, objId, x000146_g_BossGroupID )

SetLevel( sceneId, objId, 10 )

local DataID = GetMonsterDataID( sceneId, objId )
local strMonsterName = GetMonsterNamebyDataId( DataID )

CallScriptFunction((200060), “Paopao”,sceneId, strMonsterName, “欢迎光临，会员场景，杀死我会掉落XXX噢。”)

end

–**********************************
–创建副本
–**********************************
function x000146_MakeCopyScene( sceneId, selfId, nearmembercount )

–指数参数
local param0 = 4;
local param1 = 3;

–最终结果
local mylevel = 10;

local leaderguid = LuaFnObjId2Guid( sceneId, selfId )
–地图是必须选取的，而且必须在Config/SceneInfo.ini里配置好
LuaFnSetSceneLoad_Map( sceneId, “zeiying.nav” )
LuaFnSetCopySceneData_TeamLeader( sceneId, leaderguid )
LuaFnSetCopySceneData_NoUserCloseTime( sceneId, x000146_g_NoUserTime * 1000 )
LuaFnSetCopySceneData_Timer( sceneId, x000146_g_TickTime * 1000 )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“typ”], x000146_g_CopySceneType )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“spt”], x000146_g_ScriptId )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“tim”], 0 )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“scn”], sceneId )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“cls”], 0 )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“dwn”], 0 )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“tem”], GetTeamId( sceneId, selfId ) )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“FlagThielf”], 800 )

local x,z = GetWorldPos( sceneId, selfId )

LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“x”], x )
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“z”], z )

LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“ObjKilled”], 0 ) –设置杀怪数量

local iniLevel=10;

LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“MyLevel”], mylevel )

LuaFnSetSceneLoad_Monster( sceneId, “zeiying_monster_” .. iniLevel .. “.ini” )

local CopyScene_LevelGap = 31
LuaFnSetCopySceneData_Param(sceneId, CopyScene_LevelGap, mylevel – iniLevel) –级别差，CopyScene_LevelGap 在 scene.lua 中赋值

local bRetSceneID = LuaFnCreateCopyScene( sceneId ) –初始化完成后调用创建副本函数
if bRetSceneID > 0 then
x000146_NotifyTip( sceneId, selfId, “副本创建成功！” )
else
x000146_NotifyTip( sceneId, selfId, “副本数量已达上限，请稍候再试！” )
end

end

–**********************************
–继续
–**********************************
function x000146_OnContinue( sceneId, selfId, targetId )

end

–**********************************
–检测是否可以提交
–**********************************
function x000146_CheckSubmit( sceneId, selfId, selectRadioId )

end

–**********************************
–提交
–**********************************
function x000146_OnSubmit( sceneId, selfId, targetId, selectRadioId )

end

function x000146_OnDie(sceneId, objId, killerId)
–PrintStr( “x000146_OnDie [objId]”..objId..” [killerId]”..killerId..”[sceneId]”..sceneId )
local DataID = GetMonsterDataID( sceneId, objId )
x000146_OnKillObject( sceneId, killerId, DataID, objId )

end

–**********************************
–杀死怪物或玩家
–**********************************
function x000146_OnKillObject( sceneId, selfId, objdataId, objId )

local monsterName = GetMonsterNamebyDataId(objdataId)
if monsterName==”贼兵喽啰” then
AddMonsterDropItem( sceneId, objId, selfId, 50601001 )
end

–是否是副本
local sceneType = LuaFnGetSceneType( sceneId )
if sceneType ~= 1 then
return
end

–是否是所需要的副本
local fubentype = LuaFnGetCopySceneData_Param( sceneId, 0 )
if fubentype ~= x000146_g_CopySceneType then
return
end

–副本关闭标志
local leaveFlag = LuaFnGetCopySceneData_Param( sceneId, 4 )
–如果副本已经被置成关闭状态，则杀怪无效
if leaveFlag == 1 then
return
end

–取得当前场景里的人数
local num = LuaFnGetCopyScene_HumanCount( sceneId )

–取得杀死怪物的GroupID,用于判断是否是所需要杀掉的Boss
–local GroupID = GetMonsterGroupID( sceneId, objId )

–local msgStr = format( “sceneId: %d, objId: %d, GroupID: %d”, sceneId, objId, objdataId )
–PrintStr( msgStr )

–不是所需要的Boss
local bIsBoss=0;

local GroupID = GetMonsterGroupID( sceneId, objId )
if GroupID == x000146_g_BossGroupID then
bIsBoss = 1
end
–if objdataId >= x000146_g_typMonster0 and objdataId <= x000146_g_typMonster1 then
— bIsBoss = 1;
–end

——————————————————————————-
local membercount = LuaFnGetCopyScene_HumanCount(sceneId);
local memId
local teamLeaderName;
local firstMemName;
local firstMemId;

for i = 0, membercount – 1 do
memId = LuaFnGetCopyScene_HumanObjId(sceneId, i);
local teamLeaderFlag = LuaFnIsTeamLeader(sceneId, memId);
if teamLeaderFlag and teamLeaderFlag == 1 then
teamLeaderName = LuaFnGetName(sceneId, memId);
break;
end
end

if bIsBoss==1 then
local message;

local randMessage = random(3);

if randMessage == 1 then
message = format(“#{ItemMsg_08}#B#{_INFOUSR%s}#{ItemMsg_09}”, teamLeaderName );
elseif randMessage == 2 then
message = format(“#B#{_INFOUSR%s}#cff0000#{ItemMsg_11}”, teamLeaderName );
else
message = format(“#{ItemMsg_12}#B#{_INFOUSR%s}#cff0000#{ItemMsg_13}”, teamLeaderName );
end

BroadMsgByChatPipe(sceneId, selfId, message, 4);
end
——————————————————————————-

 

local killedbossnumber = LuaFnGetCopySceneData_Param( sceneId, x000146_g_keySD[“ObjKilled”] ) –杀死Boss的数量
killedbossnumber = killedbossnumber + 1
LuaFnSetCopySceneData_Param( sceneId, x000146_g_keySD[“ObjKilled”] , killedbossnumber ) –设置杀死Boss的数量

local i
local misIndex
local humanObjId
local score = 0

for i=0, num-1 do

local ServerID = LuaFnGetCopyScene_HumanObjId( sceneId, i ) –取得当前场景里人的objId

if LuaFnIsObjValid( sceneId, ServerID ) == 1 then –不在场景的不做此操作

–处理积分
score = GetMissionData( sceneId, ServerID, MD_ThiefSoldierInvade ) –取出当前积分

if score < 65000 then

if bIsBoss == 1 then
score = score + 5
if LuaFnIsTeamLeader( sceneId, selfId ) ~= 0 then
local strLeaderName = GetName( sceneId, ServerID )
local strMonsterName = GetMonsterNamebyDataId( objdataId )
end
else
score = score + 1
end

if score > 65000 then
score = 65000 –积分限制到65000
end

SetMissionData( sceneId, ServerID, MD_ThiefSoldierInvade, score ) –设置当前积分

end

local ScoreStr = format( “当前积分 %d”, score)
x000146_NotifyTip( sceneId, ServerID, ScoreStr ) –显示积分信息

local KillStr = format( “已杀死造反恶贼： %d/%d”, killedbossnumber, x000146_g_TotalNeedKillBoss )
x000146_NotifyTip( sceneId, ServerID, KillStr ) –显示杀怪数量

end

end

if killedbossnumber >= x000146_g_TotalNeedKillBoss then
LuaFnSetCopySceneData_Param( sceneId, 4, 1 ) –设置任务完成标志
end

if killedbossnumber == ( x000146_g_TotalNeedKillBoss – 1 ) then –杀完了所有小怪,刷boss
–if killedbossnumber == ( x000146_g_TotalNeedKillBoss – 0 ) then –杀完了所有小怪,刷boss
local CurLevel = LuaFnGetCopySceneData_Param( sceneId, x000146_g_keySD[“MyLevel”] )
–PrintStr( “”..level1..”,c=”..nearmembercount )
x000146_CreateBoss( sceneId, CurLevel )
end

end

–**********************************
–进入区域事件
–**********************************
function x000146_OnEnterZone( sceneId, selfId, zoneId )
end

–**********************************
–道具改变
–**********************************
function x000146_OnItemChanged( sceneId, selfId, itemdataId )
end

–**********************************
–副本事件
–**********************************
function x000146_OnCopySceneReady( sceneId, destsceneId )

–设置副本入口场景号
LuaFnSetCopySceneData_Param( destsceneId, 3, sceneId )
local leaderguid = LuaFnGetCopySceneData_TeamLeader( destsceneId )
local leaderObjId = LuaFnGuid2ObjId( sceneId, leaderguid )

–找不到该玩家
if leaderObjId == -1 then
return
end

–处于无法执行逻辑的状态
if LuaFnIsCanDoScriptLogic( sceneId, leaderObjId ) ~= 1 then
return
end

–取得玩家附近的队友数量（包括自己）
local numMem = GetNearTeamCount( sceneId, leaderObjId )

local member
local misIndex

NewWorld( sceneId, leaderObjId, destsceneId, x000146_g_Fuben_X, x000146_g_Fuben_Z )
— 任务或活动统计
LuaFnAuditQuest(sceneId, leaderObjId, “贼兵入侵”)
–PrintStr( “x000146_OnCopySceneReady” )
for i=0, numMem-1 do
member = GetNearTeamMember( sceneId, leaderObjId, i )

if LuaFnIsCanDoScriptLogic( sceneId, member ) == 1 then — 处于可以执行逻辑的状态
NewWorld( sceneId, member, destsceneId, x000146_g_Fuben_X, x000146_g_Fuben_Z )
— 任务或活动统计
LuaFnAuditQuest(sceneId, member, “贼兵入侵”)
end
end

end

–**********************************
–有玩家进入副本事件
–**********************************
function x000146_OnPlayerEnter( sceneId, selfId )
–设置死亡后复活点位置
SetPlayerDefaultReliveInfo( sceneId, selfId, “%10”, -1, “0”, sceneId, x000146_g_Fuben_X, x000146_g_Fuben_Z )
end

–**********************************
–有玩家在副本中死亡事件
–**********************************
function x000146_OnHumanDie( sceneId, selfId, killerId )

end

–**********************************
–将某玩家传送出副本,回到进入时的位置
–**********************************
function x000146_KickOut( sceneId, objId )
local oldsceneId = LuaFnGetCopySceneData_Param( sceneId, 3 ) –取得副本入口场景号
local x = LuaFnGetCopySceneData_Param( sceneId, x000146_g_keySD[“x”] ) –进入时的坐标X
local z = LuaFnGetCopySceneData_Param( sceneId, x000146_g_keySD[“z”] ) –进入时的坐标Z

if LuaFnIsObjValid( sceneId, objId ) == 1 then
NewWorld( sceneId, objId, oldsceneId, x, z )
end

end

–**********************************
–副本场景定时器事件
–**********************************
function x000146_OnCopySceneTimer( sceneId, nowTime )

–副本时钟读取及设置
–取得已经执行的定时次数
local TickCount = LuaFnGetCopySceneData_Param( sceneId, 2 )
TickCount = TickCount + 1
–设置新的定时器调用次数
LuaFnSetCopySceneData_Param( sceneId, 2, TickCount )

–副本关闭标志
local leaveFlag = LuaFnGetCopySceneData_Param( sceneId, 4 )

local membercount = LuaFnGetCopyScene_HumanCount( sceneId )
local mems = {}
local i

for i=0, membercount-1 do
mems = LuaFnGetCopyScene_HumanObjId( sceneId, i )
end

–需要离开
if leaveFlag == 1 then
–离开倒计时间的读取和设置
local leaveTickCount = LuaFnGetCopySceneData_Param( sceneId, 5 )
leaveTickCount = leaveTickCount + 1
LuaFnSetCopySceneData_Param( sceneId, 5, leaveTickCount )

if leaveTickCount == x000146_g_CloseTick then –倒计时间到，大家都出去吧
local oldsceneId = LuaFnGetCopySceneData_Param( sceneId, 3 ) –取得副本入口场景号

–将当前副本场景里的所有人传送回原来进入时候的场景
for i=0, membercount-1 do
if LuaFnIsObjValid( sceneId, mems ) == 1 then
x000146_KickOut( sceneId, mems )
end
end

elseif leaveTickCount < x000146_g_CloseTick then
–通知当前副本场景里的所有人，场景关闭倒计时间
local strText = format( “你将在%d秒后离开场景!”, (x000146_g_CloseTick-leaveTickCount) * x000146_g_TickTime )

for i=0, membercount-1 do
if LuaFnIsObjValid( sceneId, mems ) == 1 then
x000146_NotifyTip( sceneId, mems, strText )
end
end
end
elseif TickCount == x000146_g_LimitTimeSuccess then
–此处设置有时间限制的任务完成处理
local misIndex
for i=0, membercount-1 do
if LuaFnIsObjValid( sceneId, mems ) == 1 then
x000146_NotifyTip( sceneId, mems, “任务时间到，完成!” )
end
end

–设置副本关闭标志
LuaFnSetCopySceneData_Param( sceneId, 4, 1 )
elseif TickCount == x000146_g_LimitTotalHoldTime then –副本总时间限制到了
–此处设置副本任务有时间限制的情况，当时间到后处理…
for i=0, membercount-1 do
if LuaFnIsObjValid( sceneId, mems ) == 1 then
x000146_NotifyTip( sceneId, mems, “任务失败，超时!” )
end
end

–设置副本关闭标志
LuaFnSetCopySceneData_Param( sceneId, 4, 1 )
else

–定时检查队伍成员的队伍号，如果不符合，则踢出副本
local oldteamid = LuaFnGetCopySceneData_Param( sceneId, 6 ) –取得保存的队伍号
local oldsceneId

for i=0, membercount-1 do
if LuaFnIsObjValid( sceneId, mems ) == 1 then
if oldteamid ~= GetTeamId( sceneId, mems ) then
x000146_NotifyTip( sceneId, mems, “你不在正确的队伍中!” )
x000146_KickOut( sceneId, mems )
end
end
end

end

end

–**********************************
–对话窗口信息提示
–**********************************
function x000146_MsgBox( sceneId, selfId, targetId, msg )

BeginEvent( sceneId )
AddText( sceneId, msg )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )

end

–**********************************
–醒目提示
–**********************************
function x000146_NotifyTip( sceneId, selfId, msg )

BeginEvent( sceneId )
AddText( sceneId, msg )
EndEvent( sceneId )
DispatchMissionTips( sceneId, selfId )

end

–**********************************
–事件列表选中一项
–**********************************
function x000146_OnEventRequest( sceneId, selfId, targetId, eventId )
local key = GetNumText()
if key == 10 then
x000146_OnAccept( sceneId, selfId )
end
end