沙巴克成员每日奖励-Npc脚本(价值500米)

用于沙巴克成员每日奖励脚本，拿下沙巴克以后，所有的行会成员都可以通过这个NPC领取对应的奖励，脚本是明文版的，可以任意修改里面领取奖励的物品和元宝数量，安装的时候，记得这个文件扔到Mud2.0\Mir200\Envir\PsNpcscripts里，然后添加到NPC上。

部分脚本

program mir2;
var
s1,s2,s3,s4,s5 : integer;
l1,l2,l3,l4,l5 : integer; //
n1,n2,n3,n4,n5 : string;
str :string;
num,num1,num2,today :integer;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
    today := GetDateNum(GetNow);   //
  if getg(79,10) <> today then //
	begin
	    SetG(79,10,today);
	 end;  		
   if This_Player.GetV(79,10) <> today then //
    begin
       This_Player.SetV(79,10,today);  
       This_Player.Setv(79,1,0);  
    end;
if This_Player.getV(79,1) < 0 then  This_Player.SetV(79,1,0); //
if getg(79,1) < 0 then  //
    SetG(79,1,0);
    if (This_Player.GetV(79,10) <> today)  and (This_Player.IsCastle = True) and (This_Player.IsGuildLord = True) then
    begin
       This_Player.SetV(79,10,today);  
       This_Player.Setv(79,1,0);
	   Setg(79,1,0);
    end;
 This_Npc.NpcDialog(This_Player,
 '每天22点00-22点59领取'
   +'|<注：每晚00:00自动清空捐献数据！/SCOLOR=22> \'   
   +'|<注：老大每天能领取5000元宝 /SCOLOR=22> \'   
   +'|<注：80级以上成员每天能领取500元宝 /SCOLOR=22> \'
   +'|<注：88级以上能领取1000元宝/SCOLOR=22> \'   
   +'|<注：80级以下没有/SCOLOR=22> \'   
   +'|{cmd}<城主领取/@lqsx2>   ^<成员领取/@lqsx1>   ^<刷新/@main>\'
   );
   end;
procedure _lqsx1;

分享到：

赞(0)