大地图行走时显示缩微小地图的源码

jy02785317

代码如下。
使用时，需要在Game_MMap()函数中的lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],pic)指令后后面调用此函数。

1. 
   
2. function DrawMMapMini()
   
3.   local len=16;
   
4.   for x=JY.Base["人X"]-len,JY.Base["人X"]+len do
   
5.     for y=JY.Base["人Y"]-len,JY.Base["人Y"]+len do
   
6.       local dx,dy;
   
7.       local xx=x-JY.Base["人X"];
   
8.       local yy=y-JY.Base["人Y"];
   
9.       dx=CC.ScreenW-len*8+(xx-yy)*4;
   
10.       dy=len*4+(xx+yy)*2;
    
11.       if x==JY.Base["人X"] and y==JY.Base["人Y"] then
    
12.         lib.FillColor(dx,dy,dx+5,dy+5,C_RED)
    
13.       elseif x>=0 and y>=0 and x<=479 and y<=479 then
    
14.         if lib.GetMMap(x,y,1)~=0 then
    
15.           lib.Background(dx,dy,dx+4,dy+4,196)
    
16.         elseif lib.GetMMap(x,y,2)~=0 then
    
17.           lib.FillColor(dx,dy,dx+3,dy+3,RGB(0,128,0))
    
18.         elseif lib.GetMMap(x,y,3)~=0 then
    
19.           lib.FillColor(dx,dy,dx+3,dy+3,RGB(160,82,45))
    
20.         elseif CC.MMapBoat[lib.GetMMap(x,y,0)]==1 then
    
21.           lib.FillColor(dx,dy,dx+3,dy+3,RGB(65,105,225))
    
22.         end
    
23.       end
    
24.     end
    
25.   end
    
26.   local Sce={};
    
27.   for x=JY.Base["人X"]-len,JY.Base["人X"]+len do
    
28.     for y=JY.Base["人Y"]-len,JY.Base["人Y"]+len do
    
29.       local dx,dy;
    
30.       local xx=x-JY.Base["人X"];
    
31.       local yy=y-JY.Base["人Y"];
    
32.       dx=CC.ScreenW-len*8+(xx-yy)*4;
    
33.       dy=len*4+(xx+yy)*2;
    
34.       if x>=0 and y>=0 and x<=479 and y<=479 then
    
35.         local sid=CanEnterScene(x,y);
    
36.         if sid>=0 and Sce[sid]==nil then
    
37.           Sce[sid]=true;
    
38.           local str=JY.Scene[sid]["名称"];
    
39.           lib.FillColor(dx,dy,dx+3,dy+3,C_ORANGE);
    
40.           lib.Background(dx-string.len(str)*4,dy+4,dx+string.len(str)*4,dy+20,128);
    
41.           DrawString(dx-string.len(str)*4,dy+4,str,C_WHITE,16);
    
42.         end
    
43.       end
    
44.     end
    
45.   end
    
46. end
    

复制代码

KA

全指令半个注释都没有。。。

[发帖际遇]: KA客栈巧遇乔峰，与之对酒后付帐，花费银两39。

jy02785317

不是很难理解吧。
我一般注释都是写给自己看的，防止以后想不起来某段代码或者某个变量是做什么的。

基本上分两段，前面是以主角坐标为中心取点，根据点的类型不同，绘制不同的颜色。
后一个部分，是绘制场景名，之所以拿出来，是为了保证场景名不会被小地图覆盖。另外考虑到一个场景可能有多个入口的情况，加了一个表Sce,用来记录已经绘制了场景名的场景。

[发帖际遇]: 竟然敢用假玄铁令求谢烟客办事！jy02785317被谢烟客痛殴一顿，丢失银子银两10两。

夏海

dx=CC.ScreenW-len*8+(xx-yy)*4;
dy=len*4+(xx+yy)*2;
学习

PS:
007是华为的吗？

[发帖际遇]: 夏海跟韦小宝赌钱，被韦小宝出千骗去银两9两。

winson7891

没图没真相啊~

还有，根据点的不同，绘制不同颜色这做法本来就很有问题~
你事准备个完整的小图，然后根据人物坐标显示一部分不就行了？

jy02785317

现在有图了

winson的方法固然好，但是需要事先准备图，
如果不是大地图，而是小地图的话，就会很麻烦，特别是如果游戏中修改了地图(虽然目前还没有哪个mod有在游戏中修改大地图)
取点的话，也不是就一定不好，其实很多颜色相近的贴图都在一块的。

当然，winson的方法显示效果肯定是最好的。

[发帖际遇]: jy02785317参加了一灯大师举办的《佛学交流大会》，因表现突出，被一灯大师点名表扬，增加声望3。

反对混合型

007大大好厉害啊，调用函数，一到这就头痛

Near

这function是用哪一种语言写的啊？
怎么我没看过……

[发帖际遇]: Near告诉瑛姑是裘千仞杀害了她的儿子，得到瑛姑感激赠送银两3两。

jy02785317

回复 8# Near


    LUA
这是游泳的鱼制作的复刻版里使用的，除了图形引擎键盘IO，声音以及关键一些模块外，其它的都用LUA脚本实现

Near

我真是孤陋寡闻，学了这么久programing竟还没听过，谢谢解答。

[发帖际遇]: Near跟踪成昆进入明教密道，结果：被秃驴发现打伤，损失医药费银两12。

winson7891

哦~看了图比想象中好多了~

有diablo2小地图的感觉哦~厉害厉害~

不过这种方法也只在大地图效果可以达到~

小地图贴图类型太多太杂，根本无法分类吧~

还有的就是~其实准备个小图也不是很麻烦的事情~要是制作Mod的话，整个mod100多个小图一晚上就够准备了吧~

[发帖际遇]: winson7891出门游玩没带钱，巧遇刚出大漠的郭靖，被郭靖慷慨地赠与银两21两。

jy02785317

我现在考虑 直接绘制小地图，嗯就是把贴图缩小后，再绘制一遍

苍天泰坦

额，请问路过的高手，此代码应该加到哪里？

1楼提到的
lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],pic)
这段代码在jymain.lua里出现过三次，不管插在这三段代码的哪一段后面都会出错，求高手指点。

jy02785317

需要在Game_MMap()函数中的lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],pic)指令后后面调用此函数。

简单地说，
第一步，jymodify里把这段代码copy进去
第二部，在Game_MMap()函数中的lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],pic)指令后，换行，插入DrawMMapMini()这一句
第三部，进游戏看效果

苍天泰坦

LZ威武~~~~~~~

测试结果很完美~~~~

有点美中不足的是对手机版的支持不太好，可能是运算量过大，手机的CPU难以负荷，用诺记N78测试苍龙逐日的结果，大地图行走几乎是慢动作，要是能减少运算量的话就好了

jy02785317

可以考虑减少地图大小，能有效降低计算量
代码里有一句len=16,可以考虑把16改小一点
另外也可以考虑隔点绘制，对地图质量略有降低，但是计算量大幅降低

苍天泰坦

感谢LZ指点，按你说的将16改为8后，速度明显提升，实际上以手机的320*240分辨率，这个数值刚刚好，而且走路的速度只比以前稍慢一点，完全在可以接受的范围内，不必再考虑隔点绘制的问题了。

苍天泰坦

同样是jymain.lua，差距咋这么大呢，尝试在金庸原版加入失败，原版的jymain.lua里查找不到
lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],pic)
最接近的语句是
        lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],GetMyPic());             --显示主地图
这个语句共出现过四次，无论怎么尝试加入，结果不是小地图只在读档后显示一下就消失，要么就是小地图可以显示，人物走路速度为龟速，并且在三步之后整个屏幕变为绿色，这下彻底傻眼了，怎么办？

相关代码如下：

1. function Game_Cycle()       --游戏主循环
   
2.     lib.Debug("Start game cycle");
   
3. 
   
4.     while JY.Status ~=GAME_END do
   
5.         local t1=lib.GetTime();
   
6. 
   
7.             JY.Mytick=JY.Mytick+1;    --20个节拍无击键，则主角变为站立状态
   
8.                 if JY.Mytick%20==0 then
   
9.             JY.MyCurrentPic=0;
   
10.                 end
    
11. 
    
12.         if JY.Mytick%1000==0 then
    
13.             JY.MYtick=0;
    
14.         end
    
15. 
    
16.         if JY.Status==GAME_FIRSTMMAP then  --首次显示主场景，重新调用主场景贴图，渐变显示。然后转到正常显示
    
17.                         lib.PicInit();
    
18.                         CleanMemory();
    
19.             lib.ShowSlow(50,1)
    
20. 
    
21.                         lib.LoadMMap(CC.MMapFile[1],CC.MMapFile[2],CC.MMapFile[3],
    
22.                             CC.MMapFile[4],CC.MMapFile[5],CC.MWidth,CC.MHeight);
    
23. 
    
24.             lib.PicLoadFile(CC.MMAPPicFile,0);
    
25.             lib.PicLoadFile(CC.HeadPicFile,1);
    
26.             lib.PicLoadFile(CC.ThingPicFile,2);
    
27. 
    
28.             PlayMIDI(16);
    
29.             JY.Status=GAME_MMAP;
    
30.             lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],GetMyPic());
    
31.                         lib.ShowSlow(50,0);
    
32.         elseif JY.Status==GAME_MMAP then
    
33.             Game_MMap();
    
34.                 elseif JY.Status==GAME_SMAP then
    
35.             Game_SMap()
    
36.                 end
    
37.         local t2=lib.GetTime();
    
38. 
    
39.                 if t2-t1<CC.Frame then
    
40.             lib.Delay(CC.Frame-(t2-t1));
    
41.             end
    
42.         end
    
43. end
    
44. 
    
45. 
    
46. function Game_MMap()      --主地图
    
47.     local direct = -1;
    
48.     local keypress = lib.GetKey();
    
49.     if keypress ~= -1 then
    
50.             JY.Mytick=0;
    
51.                 if keypress==VK_ESCAPE then
    
52.                         MMenu();
    
53.                         if JY.Status==GAME_FIRSTMMAP then
    
54.                                 return ;
    
55.                         end
    
56.                 elseif keypress==VK_UP then
    
57.                         direct=0;
    
58.                 elseif keypress==VK_DOWN then
    
59.                         direct=3;
    
60.                 elseif keypress==VK_LEFT then
    
61.                         direct=2;
    
62.                 elseif keypress==VK_RIGHT then
    
63.                         direct=1;
    
64.                 end
    
65.     end
    
66. 
    
67. 
    
68.     local x,y;              --按照方向键要到达的坐标
    
69.     if direct ~= -1 then   --按下了光标键
    
70. 
    
71.         AddMyCurrentPic();         --增加主角贴图编号，产生走路效果
    
72.         x=JY.Base["人X"]+CC.DirectX[direct+1];
    
73.         y=JY.Base["人Y"]+CC.DirectY[direct+1];
    
74.         JY.Base["人方向"]=direct;
    
75.     else
    
76.         x=JY.Base["人X"];
    
77.         y=JY.Base["人Y"];
    
78. 
    
79.     end
    
80. 
    
81.         JY.SubScene=CanEnterScene(x,y)   --判断是否进入子场景
    
82. 
    
83.     if lib.GetMMap(x,y,3)==0 and lib.GetMMap(x,y,4)==0 then     --没有建筑，可以到达
    
84.         JY.Base["人X"]=x;
    
85.         JY.Base["人Y"]=y;
    
86.     end
    
87.     JY.Base["人X"]=limitX(JY.Base["人X"],10,CC.MWidth-10);           --限制坐标不能超出范围
    
88.     JY.Base["人Y"]=limitX(JY.Base["人Y"],10,CC.MHeight-10);
    
89. 
    
90.     if CC.MMapBoat[lib.GetMMap(JY.Base["人X"],JY.Base["人Y"],0)]==1 then
    
91.             JY.Base["乘船"]=1;
    
92.         else
    
93.             JY.Base["乘船"]=0;
    
94.         end
    
95. 
    
96.     lib.DrawMMap(JY.Base["人X"],JY.Base["人Y"],GetMyPic());             --显示主地图
    
97.     if CC.ShowXY==1 then
    
98.             DrawString(10,CC.Height-20,string.format("%d %d",JY.Base["人X"],JY.Base["人Y"]) ,C_GOLD,16);
    
99.         end
    
100.     ShowScreen();
     
101. 
     
102.     if JY.SubScene >= 0 then          --进入子场景
     
103.         CleanMemory();
     
104.                 lib.UnloadMMap();
     
105.         lib.PicInit();
     
106.         lib.ShowSlow(50,1)
     
107. 
     
108.                 JY.Status=GAME_SMAP;
     
109.         JY.MMAPMusic=-1;
     
110. 
     
111.             lib.PicLoadFile(CC.SMAPPicFile,0);
     
112.             lib.PicLoadFile(CC.HeadPicFile,1);
     
113.             lib.PicLoadFile(CC.ThingPicFile,2);
     
114. 
     
115. 
     
116.         PlayMIDI(JY.Scene[JY.SubScene]["进门音乐"]);
     
117.         JY.MyPic=GetMyPic();
     
118.         JY.Base["人X1"]=JY.Scene[JY.SubScene]["入口X"]
     
119.         JY.Base["人Y1"]=JY.Scene[JY.SubScene]["入口Y"]
     
120.         JY.SubSceneX=0;
     
121.         JY.SubSceneY=0;
     
122.         JY.OldDPass=-1;
     
123.         DrawSMap();
     
124.         lib.ShowSlow(50,0)
     
125.         lib.GetKey();
     
126.                 DrawStrBoxWaitKey(JY.Scene[JY.SubScene]["名称"],C_WHITE,CC.DefaultFont);
     
127.     end
     
128. end
     
129. 
     
130. 
     
131. function GetMyPic()      --计算主角当前贴图
     
132.     local n;
     
133.         if JY.Status==GAME_MMAP and JY.Base["乘船"]==1 then
     
134.                 if JY.MyCurrentPic >=4 then
     
135.                         JY.MyCurrentPic=0
     
136.                 end
     
137.         else
     
138.                 if JY.MyCurrentPic >6 then
     
139.                         JY.MyCurrentPic=1
     
140.                 end
     
141.         end
     
142. 
     
143.         if JY.Base["乘船"]==0 then
     
144.         n=CC.MyStartPic+JY.Base["人方向"]*7+JY.MyCurrentPic;
     
145.         else
     
146.             n=CC.BoatStartPic+JY.Base["人方向"]*4+JY.MyCurrentPic;
     
147.         end
     
148.         return n;
     
149. end
     
150. 
     
151. --增加当前主角走路动画帧, 主地图和场景地图都使用
     
152. function AddMyCurrentPic()        ---增加当前主角走路动画帧,
     
153.     JY.MyCurrentPic=JY.MyCurrentPic+1;
     
154. end
     
155. 
     
156. --场景是否可进
     
157. --id 场景代号
     
158. --x,y 当前主地图坐标
     
159. --返回：场景id，-1表示没有场景可进
     
160. function CanEnterScene(x,y)         --场景是否可进
     
161.     for id = 0,JY.SceneNum-1 do
     
162.                 local scene=JY.Scene[id];
     
163.                 if (x==scene["外景入口X1"] and y==scene["外景入口Y1"]) or
     
164.                    (x==scene["外景入口X2"] and y==scene["外景入口Y2"]) then
     
165.                         local e=scene["进入条件"];
     
166.                         if e==0 then        --可进
     
167.                                 return id;
     
168.                         elseif e==1 then    --不可进
     
169.                                 return -1
     
170.                         elseif e==2 then    --有轻功高者进
     
171.                                 for i=1,CC.TeamNum do
     
172.                                         local pid=JY.Base["队伍" .. i];
     
173.                                         if pid>=0 then
     
174.                                                 if JY.Person[pid]["轻功"]>=70 then
     
175.                                                         return id;
     
176.                                                 end
     
177.                                         end
     
178.                                 end
     
179.                         end
     
180.                 end
     
181.         end
     
182.     return -1;
     
183. end

复制代码

还有一个出现在场景函数里，应该和本帖的代码无关吧