|
战神引擎超级擂台比武Pk脚本,完整版!
- mapinfo里添加
- [lts1011 超级擂台 0] FIGHT DARK NOPOSITIONMOVE NORANDOMMOVE NORECALL NOGUILDRECALL NODEARRECALL NOMasterRECALL NORECONNECT(3)
- pcnpc添加NPC
- 红队 lts1011 62 25 红方领队 0 8 0 0
- 蓝队 lts1011 31 57 蓝方领队 0 8 0 0
- 裁判 lts1011 38 47 裁判 0 0 0 10
- 超级擂台 3 328 330 超级擂台 0 8 0 0
复制代码 观众循环脚本- procedure AutoWatch;
- begin
- if This_Player.Getv(73,3) = 1 then //观众循环检测
- begin
- if This_Player.MyAttackMode <> 1 then //如果切换攻击模式则
- begin
- // SetG(73,3,GetG(73,3)-1); //观众人数减一
- This_Player.RandomFlyTo('3'); //自动传出
- This_Player.SetV(73,3,10); //违规观众标记
- This_Player.PlayerDialog('请不要以身试法!');
- This_Npc.NpcMapNotice('场下观众'+This_Player.Name+'违反比赛规则,被保安请出了赛场!',5);
- exit; //退出循环
- end else
- if compareText(This_Player.MapName,'lts1011') <> 0 then //如果不在本地图则
- begin
- // SetG(73,3,GetG(73,3)-1); //观众人数减一
- This_Player.SetV(73,1,0); //蓝队员退出标记
- This_Player.SetV(73,2,0); //红队员退出标记
- This_Player.SetV(73,3,0); //观众退出标记
- exit; //退出循环
- end
- end
- This_Player.callout(This_NPC,1,'AutoWatch');
- end;
复制代码 比赛开始蓝队自动上台
- if (GetG(73,6) = 2) and (GetG(73,11) = 1) then
- begin
- if This_Player.GetV(73,1)=1 then
- begin
- This_Player.FlyTo('lts1011',40,34);//蓝队落点
- This_Player.SetV(73,1,2);//蓝队上台标记
- end
- end
复制代码 红队员台下循环检测
- if (This_Player.Getv(73,2) = 1) and (GetG(73,11) = 0) then
- begin
- if compareText(This_Player.MapName, 'lts1011') <> 0 then //如果不在本地图则
- begin
- SetG(73,2,GetG(73,2)-1); //红队员数减一
- This_Player.SetV(73,2,0); //红队员退出标记
- This_Player.SetS(1,2,255); //名字变白
- ServerSay('红队成员'+This_Player.Name+'临阵脱逃!大家鄙视他!',5);
- exit; //退出循环
- end
- This_Player.SetS(1,2,191);//红色名字
- end else
- if (This_Player.GetV(73,2) = 2) and (GetG(73,11) = 1) then //红队员擂台循环
- begin
- if compareText(This_Player.MapName, 'lts1011') <> 0 then //如果不在本地图则
- begin
- SetG(73,2,GetG(73,2)-1); //红队员数减一
- This_Player.SetV(73,2,0); //红队员退出标记
- This_Player.SetS(1,2,255); //名字变白
- ServerSay('红队成员'+This_Player.Name+'临阵脱逃,即使队伍获胜也不能获得奖金了!',5);
- exit;
- end
- end
复制代码 脚本下载
|
上一篇:战神引擎二级密码设置脚本下一篇:GOM引擎假人脚本,传奇假人攻沙,自动PK脚本系统
|