77M2引擎宝宝杀怪触发、人物复活触发、人物修习技能触发等相关教程

[复制链接]
发表于 2019-9-30 00:31:44 | 显示全部楼层 |阅读模式
//人物杀怪
procedure KillMonster(Npc: TNormNpc; Player: TPlayObject; Monster: TActor);
//宝宝杀怪触发
procedure SlaveKillMonster(Npc: TNormNpc; Player: TPlayObject; Slave, Monster: TActor);
//杀人触发
procedure KillPlayer(Npc: TNormNpc; Killer, Player: TPlayObject);
//宝宝杀人触发
procedure SlaveKillPlayer(Npc: TNormNpc; Master: TPlayObject; Slave: TActor; Player: TPlayObject);
//人物死亡触发
procedure PlayerDie(Npc: TNormNpc; Player: TPlayObject; Killer: TActor);
//人物复活触发
procedure PlayerReAlive(Npc: TNormNpc; Player: TPlayObject);
//人物升级触发
procedure PlayerLevelUp(Npc: TNormNpc; Player: TPlayObject; const Level: Integer);
//人物修习技能触发
procedure PlayAddSkill(Npc: TNormNpc; Player: TPlayObject; Magic: TUserMagic; var Accpet: Boolean);
//人物改变PK模式时触发,OldMode为改变前的模式,NewMode为新模式
procedure ChangeAttatckMode(Npc: TNormNpc; Player: TPlayObject; OldMode: TAttatckMode; var NewMode: TAttatckMode);
//人物攻击时触发: UserMagic为当前技能,可能为nil;Target为当前攻击的目标,可能为nil;Accept是否允许本次攻击,默认为是
procedure PlayerAttack(Npc: TNormNpc; Player: TPlayObject; UserMagic: TUserMagic; Target: TActor; var Accept: Boolean);
//人物获得经验值时触发
procedure GetExp(Npc: TNormNpc; Player: TPlayObject; Exp: Integer);
//决斗结束
procedure DuelEnd(Npc: TNormNpc; Winner, Loser: TPlayObject);

//OnBagItemEvent:                                                                                                                                                                                                                                                                                                                                                                                                                              背包物品事件
//Item和当前事件相关的物品
//EventType: 事件类型
//  0:增加到背包
//  1:从背包中移出
//EventID:事件ID
{
    EventType:0,
  EventID:
      0:捡取
    1:怪物身上挖出
    2:挖矿挖出  
    3:解包
    4:从身上取下
    5:商店购买
    6:元宝商城购买
    7:礼金商城购买
    8:玩家交易获得
    9:交易市场购买
    10:交易市场下架   
    11:命令制造获得
    12:取仓库
    13:其他

    EventType:1,
  EventID:  
      0:丢弃
    1:死亡爆出
    2:出售
    3:正常使用   
    4:穿戴到身上
    5:交易给其他玩家
    6:到期销毁
    7:破损销毁
    8:上架到交易市场
    9:用脚本执行销毁或拿走
    10:存  
    11:其他   
}
procedure OnBagItemEvent(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; EventType, EventID: Byte);
//人物掉落物品(扔物)触发(针对监视物品):Player:玩家,Item: 物品,ISUseItem:是否为身上穿戴的物品,Accept:是否允许掉落(当物品规则中指定死亡必掉物品此参数无效)
procedure PlayerDropItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; const MapX, MapY: Integer; ISUseItem: Boolean; var Accept: Boolean);
//人物扔物品触发(针对监视物品):Player:玩家,Item: 物品,Accept:是否允许扔出
procedure PlayerThrowItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; const MapX, MapY: Integer; var Accept: Boolean);
//怪物掉落物品触发(针对监视物品):Owner:物品所属玩家,Monster:掉落怪物,item:物品,Accept:是否允许掉落
procedure MonDropItem(Npc: TNormNpc; Owner: TPlayObject; Monster: TActor; Item: TUserItem; Map: TEnvirnoment; const X, Y: Integer; var Accept: Boolean);
//根据怪物名称爆出物品触发(针对监视物品):Owner:物品所属玩家,Monster:怪物名称,item:物品,Accept:是否允许掉落
procedure DropItemByMonName(Npc: TNormNpc; Owner: TPlayObject; const Monster: String; Item: TUserItem; var Accept: Boolean);
//玩家从地上捡物品触发
procedure PickupItem(Npc: TNormNpc; Player: TPlayObject; Envir: TEnvirnoment; UserItem: TUserItem; var Accept: Boolean);
//挖矿时挖出物品触发: Player挖矿人 UserItem挖出的物品 Envir当前挖矿地图 Accept是否允许将该物品给玩家,默认为是
procedure MineDropItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; Envir: TEnvirnoment; const X, Y: Integer; var Accept: Boolean);
//当玩家采集完成 Player:当前进行采集的玩家 Monster:被采集的资源对象 Accept:是否允许采集到物品
procedure OnCollect(Npc: TNormNpc; Player: TPlayObject; Monster: TActor; var Accept: Boolean);
//从怪物升上挖掘道具触发:Accept表示该物品允许玩家拥有,默认为True
procedure ButchItem(Npc: TNormNpc; Player: TPlayObject;  Monster: TActor; UserItem: TUserItem; var Accept: Boolean);
//购买商铺物品触发
procedure BuyShopItem(Npc: TNormNpc; Player: TPlayObject; UserItem: TUserItem; const ShopType, Count, Price: Integer);
//商铺购买完成时触发
procedure BuyShopItemEnd(Npc: TNormNpc; Player: TPlayObject; const ItemName: String; const ShopType, Count, ActualCount, Price: Integer);
//使用物品时触发: StdMode=31,Accept:执行之后是否删除物品,默认为True,如果设置为False,则执行函数的同时不删除物品
procedure StdModeFunc(Npc: TNormNpc; Player: TPlayObject; UserItem: TUserItem; var Accept: Boolean);
//脱装备触发,Accept是否允许脱下,默认为True
procedure OnTakeOffItem(Npc: TNormNpc; Player: TPlayObject; UserItem: TUserItem; const ItemWhere: TItemWhere; var Accept: Boolean);
//穿装备触发,Accept是否允许穿戴,默认为True
procedure OnTakeOnItem(Npc: TNormNpc; Player: TPlayObject; UserItem: TUserItem; const ItemWhere: TItemWhere; var Accept: Boolean);
//玩家使用物品点击目标物品触发, 使用物品的StdMode=33,Accept:执行后是否删除使用物品,默认为是
procedure ItemClickItem(Npc: TNormNpc; Player: TPlayObject; Source, Dest: TUserItem; var Accept: Boolean);
//玩家使用物品点击身上穿戴的物品触发, 使用物品的StdMode=33,Accept:执行后是否删除使用物品,默认为是
procedure ItemClickUseItem(Npc: TNormNpc; Player: TPlayObject; ItemWhere: TItemWhere; Source, Dest: TUserItem; var Accept: Boolean);
//释放魔法触发,Accpet:是否允许释放,默认为True
procedure MagicSpell(Npc: TNormNpc; Player: TPlayObject; UserMagic: TUserMagic; nTargetX, nTargetY: Integer; Target: TActor; var Accpet: Boolean);
//淬炼装备
procedure RefineItem(Npc: TNormNpc; Player: TPlayObject; Item1, Item2, Item3: TUserItem; var Handled: Boolean);
//加入行会前触发
procedure BeforeGuildAddMember(Npc: TNormNpc; Guild: TGuild; Player: TPlayObject; var Accept: Boolean);
//加入行会后触发
procedure GuildAddedMember(Npc: TNormNpc; Guild: TGuild; Player: TPlayObject);
//退出行会前触发
procedure BeforeGuildRemoveMember(Npc: TNormNpc; Guild: TGuild; const Player: String; var Accept: Boolean);
//退出行会后触发
procedure GuildRemovedMember(Npc: TNormNpc; Guild: TGuild; const Player: String);
//队伍有角色加入时触发
procedure GroupAddedMember(Npc: TNormNpc; Owner, Member: TPlayObject);
//队伍有角色退出触发
procedure GroupRemovedMember(Npc: TNormNpc; Owner, Member: TPlayObject);
//获取宝箱物品触发
procedure GetBoxItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; BoxID: Integer);
//用户执行进度条事件触发,只有脚本调用ShowProgress函数且最终执行其事件才会触发本函数
procedure ProgressEvent(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);
//用户角度条执行失败触发
procedure ProgressFaild(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);
//装备的魂炼等级提升时触发:
procedure ItemSoulLevelUp(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem);

//自由市场
procedure StallPutOn(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; Gold, GameGold: Integer; var Accpet: Boolean);//上架之前
procedure StallPutOff(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; Gold, GameGold: Integer; var Accpet: Boolean);//下架之前
procedure StallBuyItem(Npc: TNormNpc; Player: TPlayObject; const StallName: String; Item: TUserItem; Gold, GameGold: Integer; var Accpet: Boolean);//购买
procedure StallUpdateItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; OldGold, OldGameGold, Gold, GameGold: Integer; var Accpet: Boolean);//修改物品价格
procedure StallExtractGold(Npc: TNormNpc; Player: TPlayObject; Gold, GameGold: Integer; var Accpet: Boolean);//提取货款
//邮件系统
procedure MailBeforeSend(Npc: TNormNpc; Player: TPlayObject; const SendTo: String; Item: TUserItem; var Accept: Boolean);
procedure MailAfterSend(Npc: TNormNpc; Player: TPlayObject; const SendTo: String);
//坐骑 RideOn是骑马还是下马,True表示骑马;Accept表示是否允许本次骑马操作
procedure RideOnHorse(Npc: TNormNpc; Player: TPlayObject; RideOn: Boolean; var Accept: Boolean);
//客户端点击感叹号图标
procedure ClickSighIcon(Npc: TNormNpc; Player: TPlayObject; MethodID: Integer);
//Ctrl+左键点击背包物品触发,Item为被点击的物品
procedure AltAndLButtonClickBagItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem);
//Ctrl+左键点击穿戴物品触发,Item为被点击的物品,AItemWhere为穿戴位置
procedure AltAndLButtonClickUseItem(Npc: TNormNpc; Player: TPlayObject; Item: TUserItem; AItemWhere: TItemWhere);




上一篇:GOM引擎公益礼包脚本,传奇私服一条龙开区时设置福利礼包的方法
下一篇:GEE传奇服务端攻击力地图脚本,传奇一条龙检测攻击力进入地图教程
爱上论坛,GM基地,传奇基地,传奇SF,传奇素材网,传奇脚本网,传奇一条龙,服务器租用,版本定制!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|传奇GM论坛 ( 湘ICP备16009886号-2 )|网站地图

Powered by Discuz! X3.4© 2001-2013 Comsenz Inc.

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系(2364142471)

今天是: | 本站已经安全运行: //这个地方可以改颜色

9pk | 9ss | 99j | 88a | haosf | zhaosf | laomir | qusf | 2hq | 6xq

热血传奇 | 英雄合击 | 贪玩蓝月 | 手机版传奇 | 网页版传奇 | 单职业传奇 | 传奇服务端 | 传奇广告代理 | 传奇广告价格表

传奇引擎 | 传奇版本 | 传奇脚本 | 传奇工具 | 传奇加速器 | 传奇登陆器 | 传奇教程 | 传奇论坛 | 传奇广告发布 | 传奇版本下载站

复古传奇 | 金币传奇 | 打金传奇 | 轻变传奇 | 微变传奇 | 中变传奇 | 超变传奇 | 变态传奇 | 合击传奇 | 连击传奇 | 迷失传奇 | 单职业传奇 | 开区模板

51LA统计
快速回复 返回顶部 返回列表