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

现实的引力

//人物杀怪
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);

靓箭

爱上GM论坛-230gm.com=传奇版本免费下载,传奇素材免费下载,传奇脚本免费下载,传奇一条龙等！

沙发上的土豆

这个传奇服务端非常不错，我想开一个，有愿意教我开的吗？黑心私服一条龙的请拐弯！

灰灰灰灰白

爱尚论坛,GM基地,传奇基地,传奇SF,GM爱好者源码资源网,传奇脚本网,传奇一条龙,服务器租用,版本定制！

慧惠

热血传奇网通私服

走好每一步

zhaosf发布网

继续追

传奇私服发布站

wz1211

路过支持一下

喜喜保镖撼

努力赚币中。。。

love54092

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！