随机奖励道具脚本

[复制链接]
查看1380 | 回复8 | 2020-6-20 10:53:21 | 显示全部楼层 |阅读模式
function UseItem: Boolean;
var temp_rdm : integer; //定义随机数
begin
  if This_Player.Level >= 40 then //定义领取等级
  begin
    if This_Player.FreeBagNum > 1 then //定义包裹剩余
    begin
      
      case This_Player.Job of //职业,如果不要职业限制,那就取消 case This_Player.Job of
        0:
        begin
        temp_rdm := random(100); //随机数总数
        if (temp_rdm >= 0) and (temp_rdm < 20)  then //随机数范围
         begin
         This_Player.Give('雷霆战戒',1); //给予道具,如果要做全服通知,加一条 ServerSay('玩家<' + This_Player.Name + '>使用XXXX获得 XXXX !', 2);
         end  else
        if (temp_rdm >= 20) and (temp_rdm < 40)  then
         begin
         This_Player.Give('雷霆护腕',1);
         end  else
        if (temp_rdm >= 40) and (temp_rdm < 60)  then
         begin
         This_Player.Give('雷霆项链',1);
         end  else
        if (temp_rdm >= 60) and (temp_rdm < 80)  then
         begin
         This_Player.Give('雷霆腰带',1);
         end  else
        if (temp_rdm >= 80) and (temp_rdm <= 100)  then
         begin
         This_Player.Give('雷霆战靴',1);
         end;
        
        end;
        1: //职业
        begin
        temp_rdm := random(100);
        if (temp_rdm >= 0) and (temp_rdm < 20)  then
         begin
         This_Player.Give('烈焰魔戒',1);
         end  else
        if (temp_rdm >= 20) and (temp_rdm < 40)  then
         begin
         This_Player.Give('烈焰护腕',1);
         end  else
        if (temp_rdm >= 40) and (temp_rdm < 60)  then
         begin
         This_Player.Give('烈焰腰带',1);
         end  else
        if (temp_rdm >= 60) and (temp_rdm < 80)  then
         begin
         This_Player.Give('烈焰魔靴',1);
         end  else
        if (temp_rdm >= 80) and (temp_rdm <= 100)  then
         begin
         This_Player.Give('烈焰项链',1);
         end;
        
        end;
        2: //职业
        begin
        
        temp_rdm := random(100);
        if (temp_rdm >= 0) and (temp_rdm < 20)  then
         begin
         This_Player.Give('光芒道戒',1);
         end  else
        if (temp_rdm >= 20) and (temp_rdm < 40)  then
         begin
         This_Player.Give('光芒护腕',1);
         end  else
        if (temp_rdm >= 40) and (temp_rdm < 60)  then
         begin
         This_Player.Give('光芒项链',1);
         end  else
        if (temp_rdm >= 60) and (temp_rdm < 80)  then
         begin
         This_Player.Give('光芒腰带',1);
         end  else
        if (temp_rdm >= 80) and (temp_rdm <= 100)  then
         begin
         This_Player.Give('光芒道靴',1);
         end;
        
        
        
        
        
        
        
        
        end;
      end;
      Result := true;
    end
    else
    begin
      This_Player.PlayerDialog(
      '对不起,包裹空间不足,请预留1个以上再次开启!'
      );
      Result := false;
    end;
  end
  else
  begin
    This_Player.PlayerDialog(
    '对不起,您的等级尚未达到40级,不能开启礼盒!\'
    );
    Result := false;
  end;
end;

begin
end.
回复

使用道具 举报

dycfish | 2021-1-17 03:39:06 | 显示全部楼层
来看看!感谢论坛!
回复

使用道具 举报

aa1234d | 2021-1-22 00:28:23 | 显示全部楼层
发沙发上法师法萨芬
回复

使用道具 举报

365401339 | 2021-1-27 21:28:54 | 显示全部楼层
楼主出山了啊!
回复

使用道具 举报

dfss33641 | 2021-2-1 07:45:09 | 显示全部楼层
战神引擎教程素材网,感谢有你
回复

使用道具 举报

15523007737 | 2021-2-17 00:50:26 | 显示全部楼层
战神引擎版本库
回复

使用道具 举报

ysijisuv | 2021-3-1 04:37:18 | 显示全部楼层
战神引擎教程素材
回复

使用道具 举报

6665470 | 2021-3-7 06:01:54 | 显示全部楼层
感谢楼主!感谢论坛!
回复

使用道具 举报

pixiuge | 2021-3-31 16:08:22 | 显示全部楼层
哈喽,哈喽。。。。。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则