战神引擎用元宝购买时间进地图Npc脚本

用于战神引擎用元宝购买时间进地图Npc脚本，玩家在进入地图之前，需要先购买时间，购买以后，才能进去，到了时间，会自动传出来，这种计费模式比较特别，还是第一次看到，故而提取出来，因为提取的比较匆忙，故而忘记录制视频了，默认脚本是通过元宝购买，没有购买无法进去地图，默认是30分钟，但到了30是不是会自动传来，帮主没有测试。主要是要等30分钟。你们自己添加测试。

战神引擎用元宝购买时间进地图Npc脚本

部分脚本

procedure _mai1;
begin
 if This_Player.YBNum >= 1 then
 begin
  This_Player.ScriptRequestSubYBNum(1);
  This_Player.AddLF(20251,1800);
  This_Npc.NpcDialog(This_Player,
  '购买成功！\ \|{cmd}<返回/@main>');
 end else
 This_Npc.NpcDialog(This_Player,
  '你的元宝不足！\ \|{cmd}<返回/@main>');
end;
procedure _gmjz;
begin
if This_Player.FreeBagNum >= 1 then
 begin 
  This_Player.PsYBConsum(This_NPC,'HJJZ_YB',50148,50,1);
 end else
  This_NPC.NpcDialog(This_Player,
  '请保留1个背包空格！'
  ); 
end;
function HJJZ_YB(price, num: Integer):boolean; 
begin   
  This_Player.Give('幻境卷轴',1); 
  result:= true; 
end;
begin
 if AutoOpen(7) then
 begin 
  if (GetDayOfWeek() = 1) or (GetDayOfWeek() = 2) or (GetDayOfWeek() = 3) or (GetDayOfWeek() = 4) or(GetDayOfWeek() = 5) or (GetDayOfWeek() = 6) or (GetDayOfWeek() = 7) then
  begin 
   This_NPC.NpcDialog(This_Player,
   '幻境中的怪物蠢蠢欲动，从此大陆又将不再平静。\'+
   '勇士们，全天可前往神秘幻境探索宝藏！\'+
   '不过必须购买时长，里面所有的怪可是双倍经验跟爆率。\ \'+
   '|{cmd}<前往神秘幻境/@gotohj>'
   +'|{cmd}<1元宝购买30分钟时长/@mai1>\'
   );
  end else
  This_Npc.NpcDialog(This_Player,'全天开放幻境！');   
 end else
  This_Npc.NpcDialog(This_Player,
  '<'+inttostr(AutoOpenDay(7))+'天后开启。/c=red>\ \'
  );
end.

分享到：

赞(1)