多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
>[danger] MissionsNpc只有唯一一个事件函数 OnMissionFinish,当任务提交时触发此事件 >[danger] 注意:所有任务面板上的命令默认入口都在 MissionsNpc,除非显示指明了命令的目标单元 ``` unit MissionsNpc; interface uses Classes, SysUtils; //任务提交时触发,可在此执行任务奖励处理 procedure OnMissionFinish(Npc: TNormNpc; Player: TPlayObject; AMission: TMissionItem); implementation procedure OnMissionFinish(Npc: TNormNpc; Player: TPlayObject; AMission: TMissionItem); begin case AMission.MissionID of 'R0001', 'R0002': begin Player.Messagebox('任务"'+ AMission.Subject +'"完成'); end; end; end; end. ```