{********************************************************************  
//////****************夜*************************
*******************************************************************}  
program mir2;  

  
procedure _DoExit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
  
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
  
  

procedure domain;  
begin 
         
    This_NPC.NpcDialog(This_Player,  
   '|游戏已开放，防止开挂，需要激活码。\'+
   '|由于游戏点好玩性，需要拿码才能进入游戏。\'+
   '|为了游戏好玩，你们赶快去拉点人吧。\'+
   '|到时候找雪落也就那个七夜拿激活码\ \'+
   '|牛蛙群和新天地群都能找到<雪落-七夜/fcolor=146>\ \'+
   '|红狼群找<菜酷酷和红狼/fcolor=146>\ \'+
   '|或加QQ：<群974343395/fcolor=red>\ \'+
   '|当前时间 <'+MirDateTimeToStr('yyyy-MM-dd hh:mm:ss' , GetNow)+'/fcolor=red> \'+
    +'|{cmd}<输入码进入游戏/@duihaun>\' +
    +'|{cmd}<退出/@Exit>           \'
    
    );  
end;  
 
procedure _duihaun;  
begin  
  This_NPC.InputDialog(This_Player,'请输入角色码',0,123) ;
  
  
end;  
  
procedure p123;
begin


   if This_NPC.InputOK  then             
    begin
		if This_Npc.ChkStrInFile('\推广\角色.txt', This_NPC.InputStr) = true  then  //检测文档是否有该推广码 
			begin
               This_Player.CallOut(This_NPC,1,'jxyb1'); 
			end else
				This_NPC.NpcDialog(This_Player,'推广码错误，或已使用!\' +'{cmd}<返回/@main>') ;
			end;
 end;
 
procedure GiveGoods;
 var mm :integer;
  
begin
	mm :=random(2);
  if mm > 1 then
   begin
    This_Player.Flyto('0',289 + random(5) - 1,618 + random(5) - 1); 
	This_Player.setV(158,10,1);
   end else
   This_Player.Flyto('0',650 + random(5) - 1,631 + random(5) - 1); 
   This_Player.setV(158,10,1);
	
end; 
 
 procedure jxyb1;

begin

      if This_Npc.ChkStrInFile('\推广\角色.txt', This_NPC.InputStr) = true  then  //防刷，再次检测文档是否有该推广码
	   begin
		This_Npc.DelStrFromFile('\推广\角色.txt', This_NPC.InputStr); //删除推广码后给予奖励 
		This_Npc.AddStrToFile('\推广\角色玩家.txt', This_Player.Name+'  '+MirDateTimeToStr('yyyy-MM-dd hh:mm:ss' , GetNow)+ '  ' +This_NPC.InputStr );//写入该玩家名字后给予奖励 
		GiveGoods();
		This_Npc.NpcNotice('恭喜' + This_Player.Name +'进入游戏，快邀请你朋友一起来玩吧！');
		end 
       else
        This_NPC.NpcDialog(This_Player,'推广码有误,请重新输入。');
 end;



  
begin  
 domain;  
end.  

 

需要在C:\mud2.0\Mir200\Envir\推广\ 下面键2个txt文件。  注意编码选择ansi