[传奇技术]GOM引擎实现动态血球技术

源码资源网

[传奇技术]GOM引擎实现动态血球技术

1. 
   
2. procedure TSerialWindows.BottomLeftDirectPaint(Sender: TObject);
   
3. var
   
4. 
   
5.   vbRect: TRect; //血球动态新加 DJI20251016
   
6. 
   
7. 
   
8. 
   
9. //血球动态 修改版 DJI20251016
   
10. //           if GetTickCount - FAbilHPTick > 200 then begin
    
11. //              FAbilHPTick := GetTickCount;
    
12. //              Inc(FAbilHPIndex);
    
13. //              if FAbilHPIndex >= 14 then FAbilHPIndex := 0;
    
14. //            end;
    
15. //            d := g_WUI2Images.Images[460 + FAbilHPIndex];
    
16. //            if d <> nil then
    
17. //             GameCanvas.Draw(vtRect.Left + 38, vtRect.Top + PaintRect.Top + 90, PaintRect, d);
    
18. 
    
19. 
    
20. //魔球动态 修改版 DJI20251016
    
21. //           if GetTickCount - FAbilMPTick > 200 then begin
    
22. //              FAbilMPTick := GetTickCount;
    
23. //              Inc(FAbilMPIndex);
    
24. //              if FAbilMPIndex >= 14 then FAbilMPIndex := 0;
    
25. //            end;
    
26. //            d := g_WUI2Images.Images[480 + FAbilMPIndex];
    
27. //            if d <> nil then
    
28. //              GameCanvas.Draw(vtRect.Left + 88, vtRect.Top + PaintRect.Top + 90, PaintRect, d);

复制代码

客户端单元文件serialwindoesdlg中implementation下新建

1. const
   
2.   HP_OffsetX = 38;  // 横向偏移，可改
   
3.   HP_OffsetY = 90;   // 纵向偏移，可改
   
4.   MP_OffsetX = 88; // 横向偏移，可改
   
5.   MP_OffsetY = 90;  // 纵向偏移，可改

复制代码

在对应的代码修改为

1.             d := g_WUI2Images.Images[460 + FAbilHPIndex];
   
2.             if d <> nil then
   
3.               GameCanvas.Draw(vtRect.Left + HP_OffsetX, vtRect.Top + PaintRect.Top + HP_OffsetY, PaintRect, d);

复制代码

1.             d := g_WUI2Images.Images[470 + FAbilMPIndex];
   
2.             if d <> nil then
   
3.               GameCanvas.Draw(vtRect.Left + MP_OffsetX, vtRect.Top + PaintRect.Top + MP_OffsetY, PaintRect, d);

复制代码