战神引擎夫妻传送修复版-35博客圈 战神引擎夫妻传送修复版 - 35博客圈
手游教程 手游教程 关注:250 内容:1177

战神引擎夫妻传送修复版

  • 查看作者
  • 打赏作者
  • 当前位置: 35博客圈 > 手游交流 > 手游教程 > 正文
    • 1
    • 手游教程
    • 部分脚本如下:

      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;
      //---------------------------夫妻传送----------------------------

      战神引擎夫妻传送修复版.zip
      7.59 KB,下载次数:0,下载积分:活跃度 -0,售价:5 水币[记录]
      暂无描述
      LV2
      vip5

      谢谢分享

      回复
      创建和谐社区,请勿发布无意义内容,获取金币请看右边的指南 [金币获取指南]

      请登录之后再进行评论

      登录
    • 圈子
    • 任务
    • 管理
    • 皮肤
    • 回底部
    • 帖子间隔 侧栏位置: