全新的门派大战脚本,不同门派复生点不同
更新时间:2012-07-17 03:08
文章作者:
浏览次数: 次
本门战脚本的特色是保证门战的绝对公平。
内容来自dedecms
1、队员需要获得门主提供的标志:“红方队员”和“蓝方队员”的牌子。
2、队员从中央的门战接待员处进入门战聚义厅(红方和蓝方两个地图,统一团队)
3、接待员判断聚义厅人数,当到达人数后停止传送,保证双方人数相同。
4、GM移动到门派对战场,单击“门战主持”,启动门派大战。
这个时候全屏公告门战开始,地图关闭。中央的人就不能再传送到聚义厅了
聚义厅的人单击“门战主持”,直接传送到门战相应地图备战。
5、当玩家被打死以后会根据不同的门派而选择不同的复活点。(在门战中央左右)
6、一方门派剑令被打碎,全屏立刻公告获胜方以及打碎剑令的英雄的名字。
然后会刷新地图,所有参战队员全部踢出地图,到达中央市场。
织梦内容管理系统
需要的物品有:
本文来自织梦
GM腰牌、红方队员、蓝方队员
织梦内容管理系统
需要的NPC有:
本文来自织梦
门战主持、门战接待员
dedecms.com
需要的怪物有:
copyright dedecms
门派剑令红、门派剑令蓝
本文来自织梦
需要的地图有:
内容来自dedecms
红方聚义厅、蓝方聚义厅、门派对战场
织梦好,好织梦
//----=====门派大战主脚本,和门战主持对应=====--------
织梦内容管理系统
unit 门派大战;
dedecms.com
interface
内容来自dedecms
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;
本文来自织梦
procedure OnLeftClick (aStr : String);
内容来自dedecms
implementation
内容来自dedecms
procedure OnLeftClick (aStr : String);
var
Str, Name : String;
zhuangtai : Integer;
iCount : Integer;
begin
内容来自dedecms
Str := callfunc ('getsenderserverid');
if Str = '10' then begin
if zhuangtai <> 1 then begin
print ('say 门派大战还未开始,请耐心等待。');
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 6 98 96';
print (Str);
exit;
end;
内容来自dedecms
if Str = '13' then begin
if zhuangtai <> 1 then begin
print ('say 门派大战还未开始,请耐心等待。');
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 6 61 59';
print (Str);
exit;
end;
织梦内容管理系统
if Str = '6' then begin
Str := callfunc ('getsenderitemexistence GM腰牌:1');
if Str = 'false' then begin
print ('say 不是GM不能执行命令');
exit;
end;
织梦内容管理系统
Str := callfunc ('getusercount 10');
iCount := StrToInt (Str);
if iCount > 30 then begin
print ('say 红方人员还没到齐,请稍后...');
exit;
end;
Str := callfunc ('getusercount 13');
iCount := StrToInt (Str);
if iCount < 30 then begin
print ('say 蓝方人员还没到齐,请稍后...');
exit;
end;
Str := callfunc ('checkentermap 6');
if Str = 'true' then begin 内容来自dedecms
print('sendsendertopmsg 门派大战现在开始,请双方战士进入各自战场');
zhuangtai := 1;
print ('boMapEnter 6 false');
exit;
end;
print ('say 门派大战已经开始,你不能进入.');
exit;
end;
end;
内容来自dedecms
end.
内容来自dedecms
//----====门派剑令蓝脚本,实现不同复活点=====------
本文来自织梦
unit 门派剑令蓝;
内容来自dedecms
interface
织梦内容管理系统
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;
dedecms.com
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
dedecms.com
implementation
内容来自dedecms
procedure OnChangeState (aStr : String);
var
Str, Name : String;
begin
if aStr <> 'die' then exit;
织梦好,好织梦
Str := callfunc ('getsenderrace');
if Str <> '1' then exit;
Str := callfunc ('getsenderitemexistence 红方队员:1');
if Str = 'true' then begin
Name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user 6 84 81 门战主持 npc 300';
print (Str);
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user 6 74 71 门战主持 npc 300';
print (Str);
织梦好,好织梦
end;
dedecms.com
procedure OnDie (aStr : String);
var
Str, Name : String;
begin
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '红方勇士【';
Str := Str + Name;
Str := Str + '】最终打破蓝方剑令!';
print (Str);
print ('sendsendertopmsg 热烈祝贺红方获得胜利!');
print ('mapregen 6');
exit;
end;
copyright dedecms
end;
dedecms.com
end.
copyright dedecms
//---=====门派剑令红脚本,实现不同复活点=====----
copyright dedecms
unit 门派剑令红;
内容来自dedecms
interface
dedecms.com
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;
dedecms.com
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
织梦内容管理系统
implementation
本文来自织梦
procedure OnChangeState (aStr : String);
var
Str, Name : String;
begin
if aStr <> 'die' then exit;
织梦内容管理系统
Str := callfunc ('getsenderrace');
if Str <> '1' then exit;
Str := callfunc ('getsenderitemexistence 红方队员:1');
if Str = 'true' then begin
Name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user 6 82 81 门战主持 npc 300';
print (Str);
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user 6 74 71 门战主持 npc 300';
print (Str);
织梦内容管理系统
end;
织梦内容管理系统
procedure OnDie (aStr : String);
var
Str, Name : String;
begin
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '蓝方勇士【';
Str := Str + Name;
Str := Str + '】最终打破红方剑令!';
print (Str);
print ('sendsendertopmsg 热烈祝贺蓝方获得胜利!');
print ('mapregen 6');
exit;
end;
copyright dedecms
end;
织梦内容管理系统
end.
dedecms.com
//---====门战接待员脚本======-----
内容来自dedecms
unit 门战接待员;
织梦好,好织梦
interface
本文来自织梦
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;
织梦好,好织梦
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
copyright dedecms
implementation
copyright dedecms
procedure OnLeftClick (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
Str := 'showwindow .\help\门战接待员.txt 1';
print (Str);
exit;
end;
织梦好,好织梦
end;
织梦好,好织梦
procedure OnGetResult (aStr : String);
var
Str, Name : String;
iCount : Integer;
dedecms.com
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'hfjinru' then begin
Str := callfunc ('getsenderitemexistence 红方队员:1');
if Str = 'false' then begin
print ('say 不是红方队员,请不要捣乱');
exit;
end;
Str := callfunc ('checkentermap 6');
if Str = 'false' then begin
print ('say 门派大战已经开始,你不能进入.');
exit;
end;
Str := callfunc ('getusercount 10');
iCount := StrToInt (Str); copyright dedecms
if iCount > 30 then begin
print ('say 红方人员已经到齐!请下次早来...');
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 10 20 20';
print (Str);
exit;
end;
if aStr = 'lfjinru' then begin
Str := callfunc ('getsenderitemexistence 蓝方队员:1');
if Str = 'false' then begin
print ('say 不是蓝方队员,请不要捣乱');
exit;
end; 织梦好,好织梦
Str := callfunc ('checkentermap 6');
if Str = 'false' then begin
print ('say 门派大战已经开始?');
exit;
end;
Str := callfunc ('getusercount 13');
iCount := StrToInt (Str);
if iCount > 30 then begin
print ('say 蓝方人员已经到齐!请下次早来...');
exit;
end;
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 13 20 20';
print (Str);
exit; 织梦内容管理系统
end;
dedecms.com
end;
织梦内容管理系统
end.
本文来自织梦
//======下面是help文件夹下的“门战接待员.txt”====--------
织梦好,好织梦
<trade>
<title>门战接待员</title>
<image name=z81 value=235>
<text>
公平公正一直是我们追求的目标!
</text>
<command send='close'>关闭</command>
<command send='hfjinru'>红方队员进入</command>
<command send='lfjinru'>蓝方队员进入</command>
</trade>