战神引擎夫妻传送修复版

广告

部分脚本如下：

procedure _exit;// 调用此方法对话框会被关闭
begin
This_Player.CloseDialog(This_Player); // 执行此代码对话框会被关闭
end; 
//---------------------------夫妻传送---------------------------- 
procedure _fuqics;
var
dfname,mapname,mapx,mapy,zaixian,chuansong:string;
peiouname:integer;
begin
dfname := 'asd';
if ReadIniSectionStr('夫妻传送.txt',This_Player.Name,'1') <> '' then
begin
dfname := ReadIniSectionStr('夫妻传送.txt',This_Player.Name,'1');
WriteIniSectionStr('夫妻传送.txt',This_Player.Name, '2',This_Player.getownmapdesc);
WriteIniSectionStr('夫妻传送.txt',This_Player.Name, '3',This_Player.mapname);
WriteIniSectionStr('夫妻传送.txt',This_Player.Name, '4',inttostr(This_Player.My_X));
WriteIniSectionStr('夫妻传送.txt',This_Player.Name, '5',inttostr(This_Player.My_y));
end;
if This_Player.FindPlayer(dfname) then
begin
WriteIniSectionStr('夫妻传送.txt',dfname, '2',This_Player.findPlayerByName(dfname).getownmapdesc);
WriteIniSectionStr('夫妻传送.txt',dfname, '3',This_Player.findPlayerByName(dfname).mapname);
WriteIniSectionStr('夫妻传送.txt',dfname, '4',inttostr(This_Player.findPlayerByName(dfname).My_X));
WriteIniSectionStr('夫妻传送.txt',dfname, '5',inttostr(This_Player.findPlayerByName(dfname).My_y));
mapname := ReadIniSectionStr('夫妻传送.txt',dfname,'2');
mapx := ReadIniSectionStr('夫妻传送.txt',dfname,'4');
mapy := ReadIniSectionStr('夫妻传送.txt',dfname,'5');
peiouname := 250;
zaixian := '<在线/fcolor=250>';
chuansong := '{cmd}<前去会合/@fqcs~1>^<召唤配偶/@fqcs~2>';
end else
begin
peiouname := 7;
zaixian := '<离线/fcolor=7>';
chuansong := '{cmd}<关闭此页/@exit>^<关闭此页/@exit>';
end;
if ReadIniSectionStr('夫妻传送.txt',This_Player.Name,'1') <> '' then
begin
This_Player.PlayerDialog(
'                       <夫妻传送/fcolor=242>\|' 
+'尊敬的玩家：<'+This_Player.Name+'/fcolor=251>  您好！\|' 
+'|您的配偶：<'+dfname+'/fcolor='+inttostr(peiouname)+'>\|' 
+'当前状态：'+zaixian+'\|' 
+'当前位置：<'+mapname+'，'+mapx+'，'+mapy+'/fcolor=250>\|' 
+'|前去会合：直接可传送到配偶身边，保护配偶！\|' 
+'召唤配偶：配偶同意后可直接将配偶拉到自己身边！\|' 
 +''+chuansong+'\'         
);
end else
begin
This_Player.PlayerDialog(
+'|你还没有配偶哦，是不是太丑啦，找不到老婆！\|' 
+'{cmd}<关闭此页/@exit>^<关闭此页/@exit>\'         
);
end;
end;
procedure _fqcs(ID:integer);
var
peiname,mapname:string;
mapx,mapy:integer;
begin
if This_Player.GetBagItemCount ('永结同心') >= 1 then
begin
peiname := ReadIniSectionStr('夫妻传送.txt',This_Player.Name,'1');
if ID = 1 then
begin
if This_Player.FindPlayer(peiname) then
begin
This_Player.Take('永结同心',1);
mapname := ReadIniSectionStr('夫妻传送.txt',peiname,'3');
mapx := strtoint(ReadIniSectionStr('夫妻传送.txt',peiname,'4'));
mapy := strtoint(ReadIniSectionStr('夫妻传送.txt',peiname,'5'));
This_Player.Flyto(mapname,mapx+Random(3),mapy+Random(2));
end else
begin
This_Player.PlayerDialog('召唤失败：你的配偶['+peiname+']已离线！');
end;
end;
if ID = 2 then
begin
if This_Player.FindPlayer(peiname) then
begin
This_Player.Take('永结同心',1);
mapname := This_Player.getownmapdesc;
mapx := This_Player.My_X;
mapy := This_Player.My_Y;
This_Player.FindPlayerByName(peiname).PlayerDialog('|你的配偶<['+This_Player.Name+']/fcolor=250>在<['+mapname+','+inttostr(mapx)+','+inttostr(mapy)+']/fcolor=250>正在召唤你，是否前去合会！|{cmd}<前去合会/@gotopeiouMap~'+This_Player.Name+'>^<不想理他(她)/@bxlt~'+This_Player.Name+'>');
This_Player.CloseDialog(This_Player);
end else
begin
This_Player.PlayerDialog('召唤失败：你的配偶['+peiname+']已离线！');
end;
end;
end else
begin
This_Player.PlayerDialog('操作失败：你的背包内没有[永结同心]物品！');
end;
end;
procedure _gotopeiouMap(poname:string);//传送
begin
if This_Player.FindPlayer(poname) then
begin
This_Player.FlyTo(This_Player.FindPlayerByName(poname).MapName,This_Player.FindPlayerByName(poname).My_x+random(3),This_Player.FindPlayerByName(poname).My_y+random(3));
end else
begin
This_Player.PlayerDialog('你的配偶<['+poname+']/fcolor=250>已经离线了，可能遭遇了不测！|{cmd}<关闭此页/@exit>^<关闭此页/@exit>');
end;
end;
procedure _bxlt(buname:string);//不想理你
begin
This_Player.CloseDialog(This_Player);
if This_Player.FindPlayer(buname) then
begin
This_Player.FindPlayerByName(buname).PlayerDialog('|你的配偶<['+ReadIniSectionStr('夫妻传送.txt',buname,'1')+']/fcolor=250>拒绝了你的召唤，是不是生气了，快去哄哄吧！|{cmd}<关闭此页/@exit>^<关闭此页/@exit>');
end;
end;
//---------------------------夫妻传送----------------------------