请问复刻版怎么做出整理物品的效果呢

henvgui1987 · 发表于 2012-1-9 10:15

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

我是《天书劫》作者，因为游戏里物品太多，不能整理确实很花眼。

哪位大大教教我如何实现整理物品栏呢~

蓝烟清 · 发表于 2012-1-9 10:49

本帖最后由蓝烟清于 2012-1-9 10:53 编辑

我自己写的一个冒泡排序，200个物品全部凌乱的状态下需要几秒的时间，排过一次之后，后面就会比较快我是根据武功类型和武功威力进行排序，如果不是武功秘籍则按物品的ID编号升序排，你可以试试效果

--物品整理
function Menu_WPZL()
local function swap(a, b)
JY.Base["物品" .. a], JY.Base["物品" .. b] = JY.Base["物品" .. b], JY.Base["物品" .. a]
JY.Base["物品数量" .. a], JY.Base["物品数量" .. b] = JY.Base["物品数量" .. b], JY.Base["物品数量" .. a]
end
local flag = 0;
for i=1, 200 do
flag = 0;
for j=1, 200-i+1 do
if JY.Base["物品"..j] > -1 and JY.Base["物品" .. j+1] > -1 then --如果两个物品有效
local wg1 = JY.Thing[JY.Base["物品"..j]]["练出武功"];
local wg2 = JY.Thing[JY.Base["物品"..j+1]]["练出武功"];
if wg2 < 0 then --不可练出武功的根据编号排序
if wg1 > 0 or (wg1 < 0 and JY.Base["物品"..j] > JY.Base["物品"..j+1]) then
swap(j, j+1);
flag = 1;
end
elseif wg1 > 0 then --可练出武功的根据类型排序，如果类型相同，再根据武功10级威力排序
if JY.Wugong[wg1]["武功类型"] > JY.Wugong[wg2]["武功类型"] or (JY.Wugong[wg1]["武功类型"] == JY.Wugong[wg2]["武功类型"] and JY.Wugong[wg1]["攻击力10"] > JY.Wugong[wg2]["攻击力10"]) then
swap(j, j+1);
flag = 1;
end
end
end
end
if flag == 0 then --如果一轮下来没有任何的交换，肯定就是已经排好序了，直接退出
break;
end
end
Cls()
DrawStrBoxWaitKey(CC.s33, C_WHITE, 30)
end

复制代码

henvgui1987 · 发表于 2012-1-9 10:52

回复蓝烟清的帖子

把这段代码加到源码里去吗？怎么在游戏里实现？

技术盲，多谢您指导

henvgui1987 · 发表于 2012-1-9 11:08

回复蓝烟清的帖子

我自己尝试了一下，无奈还是做不出来。

游戏源码实在是软肋，大侠要是有时间能不能帮我写到附件的源码里呢？

真正的强强 · 发表于 2012-1-9 18:49

源码里应该有写好的排列物品函数，自己学学吧，学会了可以做很多新功能~

winson7891 · 发表于 2012-1-9 19:55

本帖最后由 winson7891 于 2012-1-9 20:29 编辑

Pascal呢，是要编译的，不是想Lua版那样，改了保存马上生效的，但LZ有编译工具不？如果有，那请覆盖文件自行编译，如果无，我可以帮你编译，你直接用就好
如果要别人能编译你的代码，请把所有带.dpr和.pas的文件打包发上来，谢谢合作

文件在此：

效果:我在物品选单那里加了个按钮，就是在什么全部物品，武器，药品暗器等下面加了个“整理物品”，按一下马上有效果

谢谢

luke19821001 · 发表于 2012-1-10 12:36

LZ下次救助前最好将自己使用的游戏版本说清楚，如果连如何在菜单中增加一个“整理物品”的按钮都不会做，那么也要说明，坛子里一般只给内部函数的

ALEXGUO · 发表于 2012-1-18 09:54

请问复刻的哪里下啊？

账号		自动登录	找回密码
密码			我要成为铁血侠客

请问复刻版怎么做出整理物品的效果呢

马上注册，结交更多侠友！

点评

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源