需要盘古物理攻击触发开启

//物理攻击触发
procedure Attack(VictimName:string;IsPlayer:Boolean);
//默认传递 攻击玩家对象(This_Player),参数一传被攻击名字(VictimName),参数二传递是否为玩家(IsPlayer)
//通过This_Player.FindPlayerByName('VictimName');获取被攻击玩家对象.
var Victim:TPlayer;//声明被攻击玩家对象
	RMBsl:string;
	RMB,YB,panduan,geishu:integer;
begin
       RMB:=random(11); 
	case RMB of		
		1:RMBsl:= '1元人民币';
		2:RMBsl:= '2元人民币';
		3:RMBsl:= '5元人民币';
		4:RMBsl:= '10元人民币';
		5:RMBsl:= '20元人民币';
		6:RMBsl:= '50元人民币';
		7:RMBsl:= '100元人民币';
		8:RMBsl:= '1分人民币';
		9:RMBsl:= '1毛人民币';
		10:RMBsl:= '20元人民币';
	end;
	
	YB:= RANDOM(110000);
	panduan:=RANDOM(100);
	geishu:=random(20);



		if panduan > 80then
		begin
			if not IsPlayer then
			begin
			This_Player.Give(RMBsl, geishu);
			This_Player.PlayerNotice('刀刀货币触发，获取'+ RMBsl+ '共'+inttostr(geishu)+'个' ,0);
			
			end;
		end else
		
		begin
		if  not IsPlayer then
			begin
			This_Player.ScriptRequestAddYBNum(YB);
			This_Player.PlayerNotice('刀刀货币触发，获取'+inttostr(YB)+'元宝' ,0);
			end;
		
		end;
	end;