三套多地图传送Npc脚本带自定义素材

三套多地图传送Npc脚本带自定义素材，脚本默认是判断对应的称号在传送到对应的地图，但脚本是明文版，可以根据自己的版本需要，任意修改下地图的传送条件和地图号等。多地图传送Npc方便玩家，打开NPC，就可以选择自己要去的地图，而不需要一个个的去点，相比传统版，使用文字的方式或者单传送NPC，多地图的更大气简单。帮主总共提取了三套，脚本是从一个3.0的版本里面提取的，其他的插件自行研究测试。

三套多地图传送Npc脚本带自定义素材

部分脚本

program mir2;
{$I MSG.pas}
function getbh(id :integer):string;
begin
  case id of
  6 :result := 'tian175';
  7 :result := 'tian176';
  8 :result := 'tian177'; 
  9 :result := 'tian178';
  10 :result := 'tian179';
  end;
end;
function getchy(id :integer):string;
begin
  This_NPC.NpcDialog(This_Player,
'Bg:chenghao2:'+inttostr(id)+'|'+
'Exit:sxsl:0:0:780:30|'+	
'1:RBtn:jn:18:600:410:@jr~'+inttostr(id)+':18:70|'+
'1:RBtn:chenghao2:'+inttostr(1)+':150:90:@jr1~6:18:70|'+
'1:RBtn:chenghao2:'+inttostr(2)+':150:180:@jr1~7:18:70|'+
'1:RBtn:chenghao2:'+inttostr(3)+':150:270:@jr1~8:18:70|'+
'1:RBtn:chenghao2:'+inttostr(4)+':150:360:@jr1~9:18:70|'+
'1:RBtn:chenghao2:'+inttostr(5)+':150:450:@jr1~10:18:70|'+
'|{cmd}</@main></@jr~6></@jr~7></@jr~8></@jr~9></@jr~10></@jr1~6></@jr1~7></@jr1~8></@jr1~9></@jr1~10>'  	
    );
end;
procedure domain;
var
xx :string;
begin
 xx := getchy(6);
 This_Player.PlayerNotice('CNPC=' + xx, 5);
end;
procedure _jr1(id :integer);
var
xx :string;
begin
 xx := getchy(id);
 This_Player.PlayerNotice('CNPC=' + xx, 5);
end;
procedure _jr(id :integer);
begin
if This_Player.GetV(117,1) >= id then
begin
This_Player.RandomFlyTo(getbh(id));
end else
begin
OKKK('失败','该称号没有激活，无法进入');
end;
end;
begin
	domain;
end.

分享到：

赞(0)