需要盘古物理攻击触发开启
//物理攻击触发
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;
最后于 9月前
被夜编辑
,原因: