{********************************************************************  

*******************************************************************}  
program mir2;  
var num1,mm,xx,zz,cun,ee,rr,cc: integer;
  
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,  

   '|规则：点数一共0-9点\'+
   '|一次提供三组数字\'+ 
   '|买中即可获得奖池%80+200w\'+
   '|10w买一注\ \'+
   '|买中后自动对入银行中~\ \'+
   '|档前奖池金额：<'+inttostr(getG(49,20))+'/fcolor=146> 金币\ \'+
   '|    一号：<'+inttostr(This_Player.getV(266,11))+'/fcolor=191>           二号：<'+inttostr(This_Player.getV(266,12))+'/fcolor=191>           三号：<'+inttostr(This_Player.getV(266,13))+'/fcolor=191>       \ \'+   
    +'|{cmd}<买一号/@duihaun1> ^ <买二号/@duihaun2>^ <买三号/@duihaun3>      \' +
	+'|{cmd}<点击开奖/@Execute1>  ^^<随机买号/@suiji> \' +
    +'|{cmd}<退出/@Exit>           \'
    
    );  
end;  

procedure _suiji;  
begin  
    mm:=random(10);
	xx:=random(10);
	zz:=random(10);
 if (This_Player.getV(266,11) < 0) or (This_Player.getV(266,11) < 0) or (This_Player.getV(266,11) < 0) then
 begin
   This_Player.setV(266,11,mm);
   This_Player.setV(266,12,xx);
   This_Player.setV(266,13,zz);
   This_Player.PlayerNotice('当前随机点号为-'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'-',2);
   domain; 
   end else
    This_Player.PlayerNotice('一下住，请开剑',2);
  
end; 

 
procedure _duihaun1;  
begin  
	 if This_Player.getV(266,11) < 0 then
	 begin
    This_NPC.InputDialog(This_Player,'请输入0-9点数字',0,121) ;
	end else
	This_Player.PlayerNotice('买购买的是'+inttostr(This_Player.getV(266,11)) +'',2);
  
  
end;  

procedure _duihaun2;  
begin  
 	 if This_Player.getV(266,12) < 0 then
	 begin
    This_NPC.InputDialog(This_Player,'请输入0-9点数字',0,122) ;
	end else
	This_Player.PlayerNotice('买购买的是'+inttostr(This_Player.getV(266,12)) +'',2);
  
  
end;  

procedure _duihaun3;  
begin  

 	 if This_Player.getV(266,13) < 0 then
	 begin
    This_NPC.InputDialog(This_Player,'请输入0-9点数字',0,123) ;
	end else
	This_Player.PlayerNotice('买购买的是'+inttostr(This_Player.getV(266,13)) +'',2);
  
  
end;  

procedure p121;
begin
	
	num1 :=  StrToIntDef(This_NPC.InputStr,-1);
   if This_NPC.InputOK  then             
    begin
		if  This_Player.GoldNum >= 100000 then
		begin
		  if  (num1 < 10) and (num1 >= 0)  then 
			begin
              
			  This_Player.setV(266,11,num1);
			  
			 domain; 
			  
			  
			end   else
			This_NPC.NpcDialog(This_Player,'|请输入0 到9号\' +'|请重新输入！！\'+'\' +'|{cmd}<返回/@main>') ;
			_duihaun1;
				
			end else
				This_NPC.NpcDialog(This_Player,'你连50w 都没有吗？穷鬼\' +'{cmd}<返回/@main>') ;
			end;
 end;
 
 procedure p122;
begin
	
	num1 :=  StrToIntDef(This_NPC.InputStr,-1);
   if This_NPC.InputOK  then             
    begin
		if  This_Player.GoldNum >= 100000 then
		begin
		  if  (num1 < 10) and (num1 >= 0)  then 
			begin
              
			  This_Player.setV(266,12,num1);
			  
			  domain; 
			end
			   else
			This_NPC.NpcDialog(This_Player,'|请输入0 到9号\' +'|请重新输入！！\'+'\' +'|{cmd}<返回/@main>') ;
			_duihaun2;
			end else
				This_NPC.NpcDialog(This_Player,'你连50w 都没有吗？穷鬼\' +'{cmd}<重新输入/@duihaun3>') ;
			end;
 end;
 
 procedure p123;
begin
	
	num1 :=  StrToIntDef(This_NPC.InputStr,-1);
   if This_NPC.InputOK  then             
    begin
		if  This_Player.GoldNum >= 100000 then
		begin
		  if  (num1 < 10) and (num1 >= 0)  then 
			begin
              
			  This_Player.setV(266,13,num1);
			  
			  
			  domain; 
			end   else
			This_NPC.NpcDialog(This_Player,'|请输入0 到9号\' +'|请重新输入！！\'+'\' +'|{cmd}<返回/@main>') ;
			_duihaun3;
				
			end else
				This_NPC.NpcDialog(This_Player,'你连50w 都没有吗？穷鬼\' +'{cmd}<返回/@main>') ;
			end;
 end;





procedure kaijiang;

begin
    mm:=random(10);
	xx:=random(10);
	zz:=random(10);
	ee:= getg(49,20)*7/10 ;
	rr:= getg(49,20)*1/20 ;
	cc:= 1000000+rr;
	cun:= 10000000+ee;
	
	  
	if (mm = This_Player.getV(266,11))and(xx=This_Player.getV(266,12))and(zz=This_Player.getV(266,13)) then 
	  begin
	   This_Player.setV(266,13,-1);
	   This_Player.setV(266,11,-1);
	   This_Player.setV(266,12,-1);
	   SetG(49,20,getG(49,20) - ee );
	   This_Player.setV(105,18,This_Player.GetV(105,18)+cun);
	   This_Player.PlayerNotice('恭喜你已经中奖获得'+inttostr(cun) +'，已经自动存入银行',2);
	   //ServerSay('当前摇出的菜票为-'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'-',3);
	   ServerSay('恭喜：'+This_Player.Name+'中的菜票'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'获得！'+inttostr(cun) +'金币',3);
	   domain; 
	end else
	
	if ((mm = This_Player.getV(266,11))and(xx=This_Player.getV(266,12)))or((zz=This_Player.getV(266,13) )and(mm = This_Player.getV(266,11))) or ((xx=This_Player.getV(266,12))and(zz=This_Player.getV(266,13)) )then 
	  begin
	   This_Player.setV(266,13,-1);
	   This_Player.setV(266,11,-1);
	   This_Player.setV(266,12,-1);
	   SetG(49,20,getG(49,20) - rr );
	   This_Player.setV(105,18,This_Player.GetV(105,18)+cc);
	   This_Player.PlayerNotice('恭喜你已经中奖菜票2个号获得'+inttostr(cc) +'，已经自动存入银行',2);
	   //ServerSay('当前摇出的菜票为-'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'-',3);
	   ServerSay('恭喜：'+This_Player.Name+'中的'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'菜票2个号获得！'+inttostr(cc) +'金币',3);
	   domain; 
	end  else
	    begin
	   This_Player.PlayerNotice('很遗憾你没有中奖,',2);
	   This_Player.PlayerNotice('当前摇出的菜票为-'+inttostr(mm) +'-'+inttostr(xx) +'-'+inttostr(zz) +'-',2);
	    This_Player.setV(266,13,-1);
	   This_Player.setV(266,11,-1);
	   This_Player.setV(266,12,-1);
	   domain; 
	 end;	
  

end;


procedure _Execute1;
begin
  if  This_Player.GoldNum >= 100000 then
  begin
 	if ( This_Player.getV(266,11)>= 0  )and( This_Player.getV(266,12) >= 0)and(This_Player.getV(266,13) >= 0) then 
	begin
	This_Player.DecGold(100000);
	SetG(49,20,getG(49,20)+100000);
   kaijiang;
   end else
    This_NPC.NpcDialog(This_Player,'|请先下珠后再开奖！！\'+'\' +'|{cmd}<返回/@main>') ;
	end else
	This_NPC.NpcDialog(This_Player,'|金币狗吗！！\'+'\' +'|{cmd}<返回/@main>') ;
	
end;






begin  
	
 domain;  
end.