var Victim:TPlayer;//声明被攻击玩家对象
	xulie,xulie15,xulie30,jilv,sjyu,zhengying,dengji,jinyan,jinbi,wupin,jinbi15,jinyan15,jinyan30,jinbi30:integer;
	mo,mo15,mo30,wupinl: string;


begin

	jilv:= random(10000);
	xulie:= random(60);
	xulie15:= random(109);
	xulie30:= random(390);
	dengji:= random(100);
	zhengying:=random(4);
	mo:= ReadIniSectionStr('怪物.txt','怪物',inttostr(xulie));
	mo15:= ReadIniSectionStr('怪物.txt','怪物15',inttostr(xulie15));
	mo30:= ReadIniSectionStr('怪物.txt','怪物30',inttostr(xulie30));
	jinbi:=random(10000);
	jinyan:=random(1000);
	jinbi15:=random(20000);
	jinyan15:=random(2000);
	jinbi30:=random(30000);
	jinyan30:=random(3000);
	sjyu:= random(100);
	wupin:=random(10);
 	case wupin of
		0:wupinl:= '';
		1:wupinl:= '修复神水';
		2:wupinl:= '魔血石(小)';
		3:wupinl:= '鸡肉';
		4:wupinl:= '鹿肉';
		5:wupinl:= '祝福油';
		6:wupinl:= '强效太阳水';
		7:wupinl:= '超级金创药';
		8:wupinl:= '超级魔法药';
		9:wupinl:= '疗伤药罐';
	end;



   if jilv < 300 then
   begin
		if (not IsPlayer) and ('练功师'<> VictimName)  then
		   begin
			if This_Player.Level < 20  then

			begin

				if sjyu > 95 then
				    begin
						This_Player.Give(wupinl,1);
						This_Player.PlayerNotice('你触发了获得'+wupinl ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 90 then
				    begin
						This_Player.Give('经验',jinyan);
						This_Player.PlayerNotice('你触发了获得经验'+inttostr(jinyan) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 80 then
				    begin
						This_Player.AddGold(jinbi);
						This_Player.PlayerNotice('你触发了获得金币'+inttostr(jinbi) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 70 then
				    begin
						This_Player.MakeSlave(mo, dengji , 1 , 15 , False ,0);
						This_Player.PlayerNotice('有一只 ' + mo+'来帮你来呢' ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 60 then
				    begin
						//This_Player.CreateCampAnimal(mo, This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.CreateCampAnimal(mo, zhengying, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.PlayerNotice('你遇到了一支叛逆 ' + mo ,5);
						//ServerSay('刷2！！'+mo,3);
					end else

				if jilv > 50 then
					begin
					This_Player.PlayerNotice('你遇到了一支落单' + mo ,5);
					//ServerSay('刷1！！'+mo,3);
					This_Player.CreateMon(This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3), 2,mo, 1);
					end;





			end else

			if This_Player.Level < 35 then
			begin

				if sjyu > 95 then
				    begin
						This_Player.Give(wupinl,1);
						This_Player.PlayerNotice('你触发了获得'+wupinl ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 90 then
				    begin
						This_Player.Give('经验',jinyan15);
						This_Player.PlayerNotice('你触发了获得经验'+inttostr(jinyan15) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else

				if sjyu > 80 then
				    begin
						This_Player.AddGold(jinbi15);
						This_Player.PlayerNotice('你触发了获得金币'+inttostr(jinbi15) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 70 then
				    begin
						This_Player.MakeSlave(mo, dengji , 1 , 15 , False ,0);
						This_Player.PlayerNotice('有一只 ' + mo+'来帮你来呢' ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 60 then
				    begin
						//This_Player.CreateCampAnimal(mo, This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.CreateCampAnimal(mo15, zhengying, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.PlayerNotice('你遇到了一支叛逆 ' + mo15 ,5);
						//ServerSay('刷2！！'+mo,3);
					end else

				if jilv > 50 then
					begin
					This_Player.PlayerNotice('你遇到了一支落单' + mo15 ,5);
					//ServerSay('刷1！！'+mo,3);
					This_Player.CreateMon(This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3), 2,mo15, 1);
					end;





			end else


			if This_Player.Level > 34 then
			begin

				if sjyu > 95 then
				    begin
						This_Player.Give(wupinl,1);
						This_Player.PlayerNotice('你触发了获得'+wupinl ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 90 then
				    begin
						This_Player.Give('经验',jinyan30);
						This_Player.PlayerNotice('你触发了获得经验'+inttostr(jinyan30) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 80 then
				    begin
						This_Player.AddGold(jinbi30);
						This_Player.PlayerNotice('你触发了获得金币'+inttostr(jinbi30) ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 70 then
				    begin
						This_Player.MakeSlave(mo, dengji , 1 , 15 , False ,0);
						This_Player.PlayerNotice('有一只 ' + mo+'来帮你来呢' ,6);
						//ServerSay('刷2！！'+mo,3);
					end else
				if sjyu > 60 then
				    begin
						//This_Player.CreateCampAnimal(mo, This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.CreateCampAnimal(mo30, zhengying, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3),1, 2, This_Player.My_X - 1 + random(3), This_Player.My_Y - 1 + random(3));
						This_Player.PlayerNotice('你遇到了一支叛逆 ' + mo30 ,5);
						//ServerSay('刷2！！'+mo,3);
					end else

				if jilv > 50 then
					begin
					This_Player.PlayerNotice('你遇到了一支落单' + mo30 ,5);
					//ServerSay('刷1！！'+mo,3);
					This_Player.CreateMon(This_Player.MapName, This_Player.My_X - 1 + random(3),This_Player.My_Y - 1 + random(3), 2,mo30, 1);
					end;





			end;
			end;



		end;
	end;