GM论坛 › 游戏脚本 › 战神引擎月卡礼包脚本代码

夜游神 发表于 2022-12-31 21:28:24

战神引擎月卡礼包脚本代码

function UseItem: Boolean;
begin
    if This_Player.FreeBagNum > 15 then
    begin
      case This_Player.Job of
      0:
      begin
          This_Player.SysGiveGift('修复神水',1,true);
          This_Player.SysGiveGift('火龙珠',10,true);
          This_Player.SysGiveGift('金条',1,true);
          This_Player.PlayerDialog(
          '你获得了：金条、修复神水.10个火龙珠。'
          );
            
      end;
      1:
      begin
          This_Player.SysGiveGift('修复神水',1,true);
          This_Player.SysGiveGift('火龙珠',10,true);
          This_Player.SysGiveGift('金条',1,true);
          This_Player.PlayerDialog(
          '你获得了：金条、修复神水.10个火龙珠。'
          );
      end;
      2:
      begin
          This_Player.SysGiveGift('修复神水',1,true);
          This_Player.SysGiveGift('火龙珠',10,true);
          This_Player.SysGiveGift('金条',1,true);
          This_Player.PlayerDialog(
          '你获得了：金条、修复神水.10个火龙珠。'
          );
         
      end;
      end;
      Result := true;
    end
    else
    begin
      This_Player.PlayerDialog(
      '对不起，包裹空间不足，请预留15个以上再次开启！'
      );
      Result := false;
    end;
end;

begin
end.

Chinese.Doll 发表于 2023-12-26 07:39:46

积分任务

查看完整版本: 战神引擎月卡礼包脚本代码