战神引擎纯图片传送自定义Npc脚本

战神引擎纯图片传送自定义Npc脚本,整个NPC上没有一个文字,用图片+地图按钮构成,默认上面有八哥传送点,是直接从梵天第二季提取出来的,传送条件需要渡劫点和转生,脚本是明文版的,可以任意修改这些条件。素材是从3.0里面提取的,如果添加到2.0或者4.0,路径可能有区别,自行参照。

战神引擎纯图片传送自定义Npc脚本

部分脚本

procedure _decpkdecsw4;
begin
   if This_Player.MyPkpoint >= 100 then
   begin
      if This_Player.GoldNum >= 1000000 then
      begin
         This_Player.DecGold(1000000);
         This_Player.DecPkPoint(100);
      end
      else
      begin
         This_Npc.NpcDialog(This_Player,
         '对不起,你没有金币,不能消减PK值!'
         );
      end;
   end
   else
   begin
      This_Npc.NpcDialog(This_Player,
      '你现在不需要消减PK值!' 
      );
   end;
end;
procedure _anquan9;
begin 
     if This_Player.GetS(15,32) >= 3  then 
	begin  This_Player.FlyTo('31',29 + random(3),40 + random(3));  end  else This_NPC.NpcDialog(This_Player,'您此大陆渡劫未满无法进入');
end;  
procedure _anquan8;
begin 
     if This_Player.GetS(15,32) >= 2  then 
	begin  This_Player.FlyTo('29',24 + random(3),28 + random(3));  end  else This_NPC.NpcDialog(This_Player,'您此大陆渡劫未满无法进入');
end;  
procedure _anquan7;
begin 
     if This_Player.GetS(15,32) >= 1  then 
	begin  This_Player.FlyTo('yzjt',24 + random(3),26 + random(3));  end  else This_NPC.NpcDialog(This_Player,'您渡劫未满无法进入');
end;  
procedure _anquan6;
begin 
    if  (This_Player.level >= 1399)  then   
	begin  This_Player.FlyTo('x276',42 + random(3),47 + random(3));  end  else This_NPC.NpcDialog(This_Player,'等级不足1399级无法进入');
end;  
procedure _anquan5;
begin 
    if  This_Player.GetV(77,1) >= 25  then   begin  This_Player.FlyTo('xbxzc',115 + random(3),89 + random(3));  end  else This_NPC.NpcDialog(This_Player,'转生不足25无法进入');
end; 
procedure _anquan4;
begin 
    if  This_Player.GetV(77,1) >= 20  then   begin  This_Player.FlyTo('4~9',242 + random(3),198 + random(3));  end  else This_NPC.NpcDialog(This_Player,'转生不足20无法进入');
end; 
procedure _anquan3;
begin 
    if  This_Player.GetV(77,1) >= 15  then   begin  This_Player.FlyTo('5~10',140 + random(3),333 + random(3));  end  else This_NPC.NpcDialog(This_Player,'转生不足15无法进入');
end; 
procedure _anquan2;
begin 
    if  This_Player.GetV(77,1) >= 0  then   begin  This_Player.FlyTo('3~10',333 + random(3),333 + random(3));  end  else This_NPC.NpcDialog(This_Player,'转生不足15无法进入');
end;
分享到:
赞(0)