AppleM22012_0501全套无加密代码 Delphi2007编译带教程

夜游神

控件安装+编译视频教程 点击这里

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;
    
34. 
    
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;
    
47. 
    
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;
    
59. 
    
60.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
    
61. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 600);
    
62.             end;
    
63.           end;
    
64.         end;
    
65.       end;
    
66. 
    
67.       Result := True;
    
68.     end;
    
69.   end;
    
70.   BaseObjectList.Free;
    
71. end;
    
72. 
    
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;
     
105. 
     
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;
     
120. 
     
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;
     
130. 
     
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;
     
143. 
     
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;
     
155. 
     
156.              TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAKEPOISON,
     
157. POISON_STONE {中毒类型 - 麻痹}, nTime, Integer(MakePoisonInfo), 0, '', 1200);
     
158.             end;
     
159.           end;
     
160. 
     
161.         end;
     
162.       end;
     
163.       Result := True;
     
164.     end;
     
165.   end;
     
166.   BaseObjectList.Free;
     
167. end;
     
168. 
     
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;

复制代码

616126447

大佬，这个资源还是不能下载啊！

w666208935

在哪里下载的啊？