找回密码
 立即注册
虾米引擎源代码Delphi3KM2引擎源码20121218CQFIR飞尔引擎20120918源码文字广告位置4
APPLEM2引擎源代码传奇引擎delphi源代码DELPHI视频教程
GSQL_6.5.2.1源代码Delphi即时通讯Delphi源码文字广告位置11
文字广告位置12
文字广告位置13
文字广告位置14
文字广告位置15
文字广告位置16
UC845刺客引擎飞龙3delphi源码文字广告位置18
文字广告位置19
文字广告位置20
文字广告位置21文字广告位置22
文字广告位置23
文字广告位置24
文字广告位置25
文字广告位置26文字广告位置27文字广告位置28
查看: 779|回复: 0

人物移动地图延迟修复 普升

[复制链接]

798

主题

42

回帖

4781

积分

管理员

积分
4781

最佳新人活跃会员热心会员推广达人宣传达人突出贡献优秀版主荣誉管理论坛元老

QQ
发表于 2018-4-23 07:19:04 | 显示全部楼层 |阅读模式
人物移动地图延迟修复
当人物向左或向右移动时,相反方向的地图元素会有一条延迟
1、在PlayScn.pas单元里 procedure TPlayScene.DrawTileMap; 函数两处数字。


if not g_boDrawTileMap then
      exit;
    with Map.m_ClientRect do
    begin
      nY := -UNITY * 4;
      for j := (Top - Map.m_nBlockTop - 5) to (Bottom - Map.m_nBlockTop + 3) do
      begin //从地图顶部到下部
        nX := AAX + 14 - (UNITX * 3);
        for i := (Left - Map.m_nBlockLeft - 6) to (Right - Map.m_nBlockLeft + 3)


if not g_boDrawTileMap then
      exit;
    with Map.m_ClientRect do
    begin
      nY := -UNITY * 4;
      for j := (Top - Map.m_nBlockTop - 5) to (Bottom - Map.m_nBlockTop + 3) do
      begin //从地图顶部到下部
        nX := AAX + 14 - (UNITX * 3);
        for i := (Left - Map.m_nBlockLeft - 6) to (Right - Map.m_nBlockLeft + 16)


//地图中间层
    with Map.m_ClientRect do
    begin
      nY := -UNITY;
      for j := (Top - Map.m_nBlockTop - 1) to (Bottom - Map.m_nBlockTop + 1) do
      begin
        nX := AAX + 14 - UNITX;

        for i := (Left - Map.m_nBlockLeft - 2) to (Right - Map.m_nBlockLeft + 16)

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|Delphi源代码

GMT+8, 2025-4-5 01:47 , Processed in 0.131174 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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