sm

切换到宽版 登录 立即注册

服务器租用 996 无法下载点击此处反馈
/
九五至尊GM论坛,传奇一条龙,传奇版本库,GM基地»GM论坛 › 资源中心 › 游戏源码交流 › AppleM22012_0501全套无加密代码 Delphi2007编译带教程 ...
查看: 2576|回复: 2

AppleM22012_0501全套无加密代码 Delphi2007编译带教程 [传奇源码]

[复制链接]
夜游神 实名认证 信用认证

826

主题

37

回帖

23万

积分

霸王教主

积分
237267
发表于 2022-4-22 22:41:33 | 显示全部楼层 |阅读模式
控件安装+编译视频教程 点击这里
  1. function TMagicManager.MagBigExplosionAndMakePoisonEx(BaseObject:
  2. TBaseObject; UserMagic: pTUserMagic; nPower, nX, nY: Integer; nRage:
  3. Integer): Boolean;
  4. var
  5.   i: Integer;
  6.   BaseObjectList: TList;
  7.   TargeTBaseObject: TBaseObject;
  8.   PlayObject: TPlayObject;
  9.   nPowerPoint: Integer;
  10.   nTime: Integer;
  11.   MakePoisonInfo: pTMakePoisonInfo;
  12. begin
  13.   Result := False;
  14.   nPowerPoint := Round(g_Config.nSkill71PowerRate / 100 * nPower);
  15.   nTime := 3 * UserMagic.btLevel + Random(2 * UserMagic.btLevel);
  16.   if BaseObject.m_btRaceServer <> RC_PLAYOBJECT then Exit;
  17.   PlayObject := TPlayObject(BaseObject);
  18.   BaseObjectList := TList.Create;
  19.   BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir, nX, nY, nRage, BaseObjectList);
  20.   for i := 0 to BaseObjectList.Count - 1 do begin
  21.     TargeTBaseObject := TBaseObject(BaseObjectList.Items);
  22.     if BaseObject.IsProperTarget(TargeTBaseObject) then begin
  23.       PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPowerPoint, MakeLong(nX, nY), 3, Integer(TargeTBaseObject), '', 600);
  24.       TargeTBaseObject.MagicQuest(PlayObject, UserMagic.wMagIdx, mfs_TagEx);
  25.       if PlayObject.m_Abil.Level > TargeTBaseObject.m_Abil.Level then begin
  26.         if TargeTBaseObject.m_btRaceServer = RC_PLAYOBJECT then begin
  27.           if g_Config.boSkill71MbAttackHuman then begin
  28.             New(MakePoisonInfo);
  29.             MakePoisonInfo.BaseObject := PlayObject;
  30.             MakePoisonInfo.nX := nX;
  31.             MakePoisonInfo.nY := nY;
  32.             MakePoisonInfo.nRate := 3;
  33.             MakePoisonInfo.boFastParalysis := g_Config.boSkill71MbFastParalysis;

  35.            TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  36. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 600);
  37.            end;
  38.         end else begin
  39.           if (TargeTBaseObject.m_Master <> nil) and (TargeTBaseObject.m_Master.m_btRaceServer = RC_PLAYOBJECT) then begin
  40.             if g_Config.boSkill71MbAttackSlave then begin
  41.               New(MakePoisonInfo);
  42.               MakePoisonInfo.BaseObject := PlayObject;
  43.               MakePoisonInfo.nX := nX;
  44.               MakePoisonInfo.nY := nY;
  45.               MakePoisonInfo.nRate := 3;
  46.               MakePoisonInfo.boFastParalysis := g_Config.boSkill71MbFastParalysis;

  48.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  49. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 600);
  50.             end;
  51.           end else begin
  52.             if g_Config.boSkill71MbAttackMon then begin
  53.               New(MakePoisonInfo);
  54.               MakePoisonInfo.BaseObject := PlayObject;
  55.               MakePoisonInfo.nX := nX;
  56.               MakePoisonInfo.nY := nY;
  57.               MakePoisonInfo.nRate := 3;
  58.               MakePoisonInfo.boFastParalysis := g_Config.boSkill71MbFastParalysis;

  60.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  61. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 600);
  62.             end;
  63.           end;
  64.         end;
  65.       end;

  67.       Result := True;
  68.     end;
  69.   end;
  70.   BaseObjectList.Free;
  71. end;

  73. function
  74. TMagicManager.MagBigExplosionAndMakePoison(BaseObject: TBaseObject;
  75. UserMagic: pTUserMagic; nPower, nX, nY: Integer; nRage: Integer):
  76. Boolean;
  77. var
  78.   i: Integer;
  79.   BaseObjectList: TList;
  80.   TargeTBaseObject: TBaseObject;
  81.   PlayObject: TPlayObject;
  82.   nPowerPoint: Integer;
  83.   nTime: Integer;
  84.   MakePoisonInfo: pTMakePoisonInfo;
  85. begin
  86.   Result := False;
  87.   nPowerPoint := Round(g_Config.nSkill72PowerRate / 100 * nPower);
  88.   nTime := 3 * UserMagic.btLevel + Random(2 * UserMagic.btLevel);
  89.   if BaseObject.m_btRaceServer <> RC_PLAYOBJECT then Exit;
  90.   PlayObject := TPlayObject(BaseObject);
  91.   BaseObjectList := TList.Create;
  92.   BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir, nX, nY, nRage, BaseObjectList);
  93.   for i := 0 to BaseObjectList.Count - 1 do begin
  94.     TargeTBaseObject := TBaseObject(BaseObjectList.Items);
  95.     if BaseObject.IsProperTarget(TargeTBaseObject) then begin
  96.       PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPowerPoint, MakeLong(nX, nY), 3, Integer(TargeTBaseObject), '', 1200);
  97.       TargeTBaseObject.MagicQuest(PlayObject, UserMagic.wMagIdx, mfs_TagEx);
  98.       if g_Config.boSkill72Damagearmor then begin
  99.         nPowerPoint := GetPower13(30, UserMagic) + GetRPow(PlayObject.m_WAbil.SC) * 2;
  100.         New(MakePoisonInfo);
  101.         MakePoisonInfo.BaseObject := PlayObject;
  102.         MakePoisonInfo.nX := nX;
  103.         MakePoisonInfo.nY := nY;
  104.         MakePoisonInfo.nRate := 3;

  106.        TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  107. POISON_DAMAGEARMOR {中毒类型 - 红毒}, nPower, Integer(MakePoisonInfo),
  108.           ROUND(UserMagic.btLevel / 3 * (nPower / g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '', 1200);
  109.       end;
  110.       if g_Config.boSkill72DecHealth then begin
  111.         nPowerPoint := GetPower13(40, UserMagic) + GetRPow(PlayObject.m_WAbil.SC) * 2;
  112.         New(MakePoisonInfo);
  113.         MakePoisonInfo.BaseObject := PlayObject;
  114.         MakePoisonInfo.nX := nX;
  115.         MakePoisonInfo.nY := nY;
  116.         MakePoisonInfo.nRate := 3;
  117.         TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON, POISON_DECHEALTH {中毒类型 - 绿毒}, nPower, Integer(MakePoisonInfo),
  118.           ROUND(UserMagic.btLevel / 3 * (nPower / g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '', 1200);
  119.       end;

  121.       if PlayObject.m_Abil.Level > TargeTBaseObject.m_Abil.Level then begin
  122.         if TargeTBaseObject.m_btRaceServer = RC_PLAYOBJECT then begin
  123.           if g_Config.boSkill72MbAttackHuman then begin
  124.             New(MakePoisonInfo);
  125.             MakePoisonInfo.BaseObject := PlayObject;
  126.             MakePoisonInfo.nX := nX;
  127.             MakePoisonInfo.nY := nY;
  128.             MakePoisonInfo.nRate := 3;
  129.             MakePoisonInfo.boFastParalysis := g_Config.boSkill72MbFastParalysis;

  131.            TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  132. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 1200);
  133.            end;
  134.         end else begin
  135.           if (TargeTBaseObject.m_Master <> nil) and (TargeTBaseObject.m_Master.m_btRaceServer = RC_PLAYOBJECT) then begin
  136.             if g_Config.boSkill72MbAttackSlave then begin
  137.               New(MakePoisonInfo);
  138.               MakePoisonInfo.BaseObject := PlayObject;
  139.               MakePoisonInfo.nX := nX;
  140.               MakePoisonInfo.nY := nY;
  141.               MakePoisonInfo.nRate := 3;
  142.               MakePoisonInfo.boFastParalysis := g_Config.boSkill72MbFastParalysis;

  144.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  145. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 1200);
  146.             end;
  147.           end else begin
  148.             if g_Config.boSkill72MbAttackMon then begin
  149.               New(MakePoisonInfo);
  150.               MakePoisonInfo.BaseObject := PlayObject;
  151.               MakePoisonInfo.nX := nX;
  152.               MakePoisonInfo.nY := nY;
  153.               MakePoisonInfo.nRate := 3;
  154.               MakePoisonInfo.boFastParalysis := g_Config.boSkill72MbFastParalysis;

  156.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
  157. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 1200);
  158.             end;
  159.           end;

  161.         end;
  162.       end;
  163.       Result := True;
  164.     end;
  165.   end;
  166.   BaseObjectList.Free;
  167. end;

  169. function TMagicManager.MagBigExplosion(BaseObject: TBaseObject; nPower, nX,
  170.   nY: Integer; nRage, nMagID: Integer): Boolean; //00492F4C
  171. var
  172.   i: Integer;
  173.   BaseObjectList: TList;
  174.   TargeTBaseObject: TBaseObject;
  175. begin
  176.   Result := False;
  177.   BaseObjectList := TList.Create;
  178.   BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir, nX, nY, nRage, BaseObjectList);
  179.   for i := 0 to BaseObjectList.Count - 1 do begin
  180.     TargeTBaseObject := TBaseObject(BaseObjectList.Items);
  181.     if BaseObject.IsProperTarget(TargeTBaseObject) then begin
  182.       BaseObject.SetTargetCreat(TargeTBaseObject);
  183.       TargeTBaseObject.SendMsg(BaseObject, RM_MAGSTRUCK, 0, nPower, 0, 0, '');
  184.       TargeTBaseObject.MagicQuest(BaseObject, nMagID, mfs_TagEx);
  185.       Result := True;
  186.     end;
  187.   end;
  188.   BaseObjectList.Free;
  189. end;
复制代码


全套, 加密, 代码, 编译, 教程

下载地址.txt

108 Bytes, 下载次数: 10, 下载积分: 积分 -5

售价: 100 积分  [记录]





上一篇：C#传奇3大补帖增强免蜡源代码
下一篇：1.45传奇3RSR插件Delphi源代码道格拉斯完整版

相关帖子
回复

使用道具 举报

616126447

1

主题

546

回帖

24

积分

旋风流星刀

积分
24
发表于 2023-8-23 06:45:51 | 显示全部楼层
大佬，这个资源还是不能下载啊！
回复 支持 反对

使用道具 举报

w666208935

3

主题

44

回帖

40

积分

旋风流星刀

积分
40
发表于 2023-12-12 10:13:32 | 显示全部楼层
在哪里下载的啊？
回复 支持 反对

使用道具 举报

返回列表 发新帖

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2025-1-18 15:45 , Processed in 0.307129 second(s), 62 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

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

快速回复 返回顶部 返回列表