地图类画布版本封装

admin

该类为无限地砖地图，该地图如果正常按照传奇移动速度，可能你得跑几千年才可以跑完。。。。

这属于无限距离地图写法，仅作参考。

  

窗口程序集名	保 留	保 留	备 注
Class_Dmap
变量名	类 型	数组	备 注
Date	TYPE_Map		地图属性
纹理指针	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
Open		√

Date.贴图纵数 ＝ 1000000
Date.贴图横数 ＝ 1000000
Date.贴图宽度 ＝ 156
Date.贴图高度 ＝ 104
' //根据碎图信息算出地图像素宽高
Date.地图宽度 ＝ Date.贴图横数 × Date.贴图宽度
Date.地图高度 ＝ Date.贴图纵数 × Date.贴图高度
' //计算出地图坐标格子
Date.坐标x ＝ Date.地图宽度 ÷ 步伐.横向坐标
Date.坐标y ＝ Date.地图高度 ÷ 步伐.纵向坐标
纹理指针 ＝ 纹理_文件 (取运行目录 () ＋ “/1.png”)
调试输出 (“格子总数”, Date.坐标x, Date.坐标y)

子程序名	返回值类型	公开	备 注
Move	类型_点位	√	返回的是 画面偏移
参数名	类 型	参考	可空	数组	备 注
视野坐标x	类型_点位				这里是像素级别 并非格子坐标

画面偏移_x ＝ 辅助_取画面偏移 (视野坐标x, 屏幕大小, 辅助_点位 (Date.地图宽度, Date.地图高度), 真)  ' //取出画面碎图画布的偏移
' //
画面偏移 ＝ 画面偏移_x  ' //两个全局变量
返回 (画面偏移)

子程序名	返回值类型	公开	备 注
Draw		√

变量名	类 型	静态	数组	备 注
列	整数型
行	整数型
i	整数型
p	整数型
X_	整数型
y_	整数型

行 ＝ 视野坐标.纵向坐标 ÷ Date.贴图高度 － 屏幕大小.纵向坐标 ÷ Date.贴图高度  ' //计算出人物像素位Y位置所站在的贴图行上 从上往下数
' -------------------------------------------------
计次循环首 (屏幕大小.纵向坐标 ÷ Date.贴图高度 × 2, i)  ' 遍历屏幕贴图两倍 其实不用那么大，但是图个方便，防止人物靠边缘
行 ＝ 行 ＋ 1  ' 从纵向0开始递增 要渲染这张图的 行号
' ----------------------------------------------
列 ＝ 视野坐标.横向坐标 ÷ Date.贴图宽度 － 屏幕大小.横向坐标 ÷ Date.贴图宽度  ' //计算出人物像素位X位置所站在的贴图列上 从左往右数
' -----------------------------------------------
计次循环首 (屏幕大小.横向坐标 ÷ Date.贴图宽度 × 2, p)  ' //同上 这里是列
列 ＝ 列 ＋ 1  ' 从左上0开始递增 要渲染这张图的 列号
' -------------------------------------------
' 调试输出 (“渲染图号”, 行, 列)  '
' //这里是每次一屏幕两倍大小要渲染的图片行列图序号
渲染_渲染矩形纹理 (纹理指针, Date.贴图宽度, Date.贴图高度, Date.贴图宽度, Date.贴图高度, 2, -1, 0.9999, 列 × Date.贴图宽度 ＋ 画面偏移.横向坐标, 行 × Date.贴图高度 ＋ 画面偏移.纵向坐标, , , , , , , , )
' //计算坐标
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 Class_Dmap<br /> .程序集变量 Date, TYPE_Map, , , 地图属性<br /> .程序集变量 纹理指针, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 Open, , 公开<br /> <br /> Date.贴图纵数 ＝ 1000000<br /> Date.贴图横数 ＝ 1000000<br /> <br /> Date.贴图宽度 ＝ 156<br /> Date.贴图高度 ＝ 104<br /> ' //根据碎图信息算出地图像素宽高<br /> Date.地图宽度 ＝ Date.贴图横数 × Date.贴图宽度<br /> Date.地图高度 ＝ Date.贴图纵数 × Date.贴图高度<br /> <br /> ' //计算出地图坐标格子<br /> Date.坐标x ＝ Date.地图宽度 ÷ 步伐.横向坐标<br /> Date.坐标y ＝ Date.地图高度 ÷ 步伐.纵向坐标<br /> <br /> 纹理指针 ＝ 纹理_文件 (取运行目录 () ＋ “/1.png”)<br /> <br /> 调试输出 (“格子总数”, Date.坐标x, Date.坐标y)<br /> <br /> <br /> .子程序 Move, 类型_点位, 公开, 返回的是 画面偏移<br /> .参数 视野坐标x, 类型_点位, , 这里是像素级别 并非格子坐标<br /> <br /> 画面偏移_x ＝ 辅助_取画面偏移 (视野坐标x, 屏幕大小, 辅助_点位 (Date.地图宽度, Date.地图高度), 真)  ' //取出画面碎图画布的偏移<br /> ' //<br /> 画面偏移 ＝ 画面偏移_x  ' //两个全局变量<br /> 返回 (画面偏移)<br /> <br /> <br /> .子程序 Draw, , 公开<br /> .局部变量 列, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 X_, 整数型<br /> .局部变量 y_, 整数型<br /> <br /> 行 ＝ 视野坐标.纵向坐标 ÷ Date.贴图高度 － 屏幕大小.纵向坐标 ÷ Date.贴图高度  ' //计算出人物像素位Y位置所站在的贴图行上 从上往下数<br /> ' -------------------------------------------------<br /> .计次循环首 (屏幕大小.纵向坐标 ÷ Date.贴图高度 × 2, i)  ' 遍历屏幕贴图两倍 其实不用那么大，但是图个方便，防止人物靠边缘<br />     行 ＝ 行 ＋ 1  ' 从纵向0开始递增 要渲染这张图的 行号<br />     ' ----------------------------------------------<br />     列 ＝ 视野坐标.横向坐标 ÷ Date.贴图宽度 － 屏幕大小.横向坐标 ÷ Date.贴图宽度  ' //计算出人物像素位X位置所站在的贴图列上 从左往右数<br />     ' -----------------------------------------------<br />     .计次循环首 (屏幕大小.横向坐标 ÷ Date.贴图宽度 × 2, p)  ' //同上 这里是列<br />         列 ＝ 列 ＋ 1  ' 从左上0开始递增 要渲染这张图的 列号<br />         ' -------------------------------------------<br />         ' 调试输出 (“渲染图号”, 行, 列)  '<br />         ' //这里是每次一屏幕两倍大小要渲染的图片行列图序号<br />         渲染_渲染矩形纹理 (纹理指针, Date.贴图宽度, Date.贴图高度, Date.贴图宽度, Date.贴图高度, 2, -1, 0.9999, 列 × Date.贴图宽度 ＋ 画面偏移.横向坐标, 行 × Date.贴图高度 ＋ 画面偏移.纵向坐标, , , , , , , , )<br />         ' //计算坐标<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()