|
|
战神引擎超级擂台比武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
|
|
发表于 2023-4-9 15:39:14
发表于 2023-12-23 15:59:18