战神引擎首充地图Npc脚本(自带清理功能)

用于战神引擎的首充地图Npc脚本，玩家充值以后，才能下地图，脚本默认要去充值最少10元才行，每天自动清理，隔天玩家需要从新充值才能进去，脚本用到了This_Player.getV(88,88)、This_Player.getV(88,98)这2个变量，单独添加脚本无法记录充值数量，还需要RunQuest.pas文件里面有对应的变量才行。文件已经提取，需要单独添加到版本里的RunQuest.pas文件，不能直接复制进去，如果原先已经有了这个变量，那么直接到RunQuest.pas修改比例就行。

部分脚本

program Mir2;
var
sum:Integer;  
sum1:Integer;  
sum2:Integer;
sum3:Integer;
sum4:Integer; 
sum6:Integer;
sum7:Integer;   
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
var sum , today: integer;  
begin
  today := GetDateNum(GetNow);
  if This_Player.GetV(88,98) <> today then
begin
   This_Player.SetV(88,98,today);
   This_Player.SetV(88,88,0);
   sum := This_Player.getV(88,88); 
   end   else
   sum := This_Player.getV(88,88);
This_Npc.NpcDialog(This_Player,
   '|☆☆☆☆★★★★<首 充 地 图/fcolor=70>★★★★☆☆☆☆\'+
   '|<╔──────────────────╗/fcolor=70>\'+
   '|   <今日金额：/fcolor=56><'+inttostr(sum)+'/c=250> 元\'+   
   '|   <爆率指数：/fcolor=56><★★★★★/fcolor=247>\'+
   '|   <怪物难度：/fcolor=56><★★★★★/fcolor=247>\'+
   '|   <怪物爆率：/fcolor=56><全服所有物品/fcolor=247>\'+
   '|   <进入条件：/fcolor=56><充值满10元/fcolor=247>\'+   
   '|   <相关介绍：/fcolor=56><0点传出，23:50-0:05无法进入/fcolor=247>\'+      
   '|<╚──────────────────╝/fcolor=70>\'+
   '|注意：每日0点清除充值金额。\'+
   '|{cmd}<【立刻进入】/@M1>	\' 
  // '|{cmd}<每日充值100元领取回归神石X1+回归碎片X20/@1>	\'  +
  // '|{cmd}<每日充值200元领取回归神石X1+回归碎片X30/@2>	\'  +
   //'|{cmd}<每日充值300元领取回归神石X1+回归碎片X30/@3>	\'  +
  // '|{cmd}<每日充值500元领取回归神石X3+回归碎片X80/@4>	\'  
    ); 
end;
procedure _4;          
var sum : integer;
begin
sum := This_Player.getV(88,88);
if  sum >= 200 then  
begin 
if This_Player.GetV(55,3) < GetDateNum(GetNow) then

分享到：

赞(0)