战神引擎综合自定义传送员Npc脚本+素材

用于战神引擎自定义传送员Npc脚本+素材，脚本是直接从版本里面提取出来的。看起来比较复古大气。相比常见的NPC传送员，这个是个综合班，更多传送功能，使用起来更方便。

部分脚本

procedure _Fu18; 
begin 
   IF This_Player.Level >= 45 then  
   begin
      IF This_Player.Myshengwan >= 20 then 
     begin 	
	 This_Player.Myshengwan := This_Player.Myshengwan- 20;//声望消耗
	 This_Player.RandomFlyTo('e0020'); 
	 This_Npc.NpcNotice('(*)'+This_Player.Name + '进入皇陵地宫');
	 This_Npc.CloseDialog(This_Player);	//关闭NPC弹出的对话框（左上角的）
end else
    This_Player.PlayerNotice('声望不足20', 2);
end else
    This_Player.PlayerNotice('等级不足45级', 2);
end;
//埃及墓穴
procedure _Fu19; 
begin 
   IF This_Player.Level >= 46 then  
   begin
      IF This_Player.Myshengwan >= 20 then 
     begin 	
	 This_Player.Myshengwan := This_Player.Myshengwan- 20;//声望消耗
	 //This_Player.Flyto('ajlm1',222 + random(5) - 1,179 + random(5) - 1); 
	 This_Player.RandomFlyTo('ajlm1'); 
	 This_Npc.NpcNotice('(*)'+This_Player.Name + '进入埃及墓穴');
	 This_Npc.CloseDialog(This_Player);//关闭NPC弹出的对话框（左上角的）
end else
    This_Player.PlayerNotice('声望不足20', 2);
end else
    This_Player.PlayerNotice('等级不足46级', 2);
end;
//通天古刹
procedure _fu20;//免费进
begin
needlv := 35;//低于35级不能进入
needlv1:= 60;//高于60级不能进入
num1 := 1;   //免费次数
if (This_Player.Level < needlv) and (This_Player.Level > needlv1) then
begin
This_Player.PlayerDialog('进入失败!'+inttostr(needlv)+'级~'+inttostr(needlv1)+'级才能进入!');
exit;
end;
if This_Player.GetV(78,11) >= num1 then
begin
//This_Player.PlayerDialog('进入失败!今天已经没有次数了，请明日再来!');
This_Player.PlayerNotice('进入失败!今天已经没有免费次数了，请明日再来!',0);
exit;
end;
This_Player.SetV(78,11,This_Player.GetV(78,11)+1);	    //今日次数
This_Player.RandomFlyTo('yt1'); //飞到动态房间中
This_Npc.NpcNotice('(*)'+This_Player.Name + '进入通天古刹');
end;
procedure _fu201;//元宝进
begin
needlv := 35;//低于35级不能进入
needlv1:= 60;//高于60级不能进入
num0 := 200; //元宝数量
num2 := 3;   //次数限制
if (This_Player.Level < needlv) and (This_Player.Level > needlv1) then
begin
This_Player.PlayerDialog('进入失败!'+inttostr(needlv)+'级~'+inttostr(needlv1)+'级才能进入!');
exit;
end;
if This_Player.YBNum < num0 then begin This_Player.PlayerDialog('进入失败!元宝不足'+inttostr(num0*(This_Player.GetV(78,12)+1))+'，无法进入!'); exit; end; if This_Player.GetV(78,12) >= num2 then
begin
This_Player.PlayerNotice('进入失败!今天已经没有次数了，请明日再来!',0);
exit;
end;
This_Player.SetV(78,12,This_Player.GetV(78,12)+1);	    //今日次数
This_Player.ScriptRequestSubYBNum(num0*This_Player.GetV(78,12)); 
//This_Player.Myshengwan := This_Player.Myshengwan-(num0*This_Player.GetV(78,12));//声望消耗
This_Player.RandomFlyTo('yt1'); //飞到房间中
This_Npc.NpcNotice('(*)'+This_Player.Name + '进入通天古刹');
end;
////////////////////////////////////////////
begin
if This_Player.GetV(78,11) < 0 then This_Player.SetV(78,11,0);
if This_Player.GetV(78,12) < 0 then This_Player.SetV(78,12,0);
today := GetDateNum(GetNow); // 获取当前日期
if This_Player.GetV(78,10) <> today then
begin
This_Player.SetV(78,10,today);
This_Player.SetV(78,11,0);
This_Player.SetV(78,12,0);
end;	
domain;
end.

分享到：

赞(0)