（1009修改版）【我的代码】新功能体验：试练场

冰糖戀 · 发表于 2011-9-18 02:17

本帖最后由冰糖戀于 2011-10-9 09:50 编辑

PS：抱歉，国庆一直在玩蒼炎国庆版，把这个给荒废了，也没怎么更新。
话说萧大真的很给力的说

------------------------------------------------------------------------------------------------------------------------------------------------------------

如何使用？
先将本贴附件解压至蒼炎905的script文件夹下，然后运行蒼炎905版系统中的“我的代码”即可。

代码内容说明：新增加试练场功能，位置在小村原来俩木桩巨侠附近。

1009修改内容：更正了一些秘籍的错位（如葵花和辟邪）；取消了积分，以实战代替（话说实战可以-2的说，我火星了

。

下面是代码及附件

QZXS("苍炎版1009试练场补丁载入")
QZXS("本补丁内容说明*试练场系统（小村木桩附近）")
local function SZXG(r)
SetS(5,1,6,5,r)
JY.SZJPJC[1] = "" .. GetS(5,1,6,5)
end
local function Menu_QZ()
local menu={}
for i=1,7 do
menu[i]={JY.Thing[i+85]["名称"],nil,200,1,i+85}
end
for i=9,27 do
menu[i-1]={JY.Thing[i+85]["名称"],nil,200,1,i+85}
end
Cls();
local r=ShowMenu(menu,26,9,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][3] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
TalkEx("这是您的奖励，请您收好。",5,0);
instruct_2(menu[r][5],1);
szjy=szjy-menu[r][3]
SZXG(szjy)
end
end
end
local function Menu_JF()
local menu={}
for i=1,22 do
menu[i]={JY.Thing[i+112]["名称"],nil,200,1,i+112}
end
menu[23]={JY.Thing[78]["名称"],nil,200,1,78}
Cls();
local r=ShowMenu(menu,23,9,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][3] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
TalkEx("这是您的奖励，请您收好。",5,0);
instruct_2(menu[r][5],1);
szjy=szjy-menu[r][3]
SZXG(szjy)
end
end
end
local function Menu_DF()
local menu={}
for i=1,9 do
menu[i]={JY.Thing[i+134]["名称"],nil,200,1,i+134}
end
for j=1,9 do
menu[j+9]={JY.Thing[j+157]["名称"],nil,200,1,j+157}
end
Cls();
local r=ShowMenu(menu,18,9,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][3] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
TalkEx("这是您的奖励，请您收好。",5,0);
instruct_2(menu[r][5],1);
szjy=szjy-menu[r][3]
SZXG(szjy)
end
end
end
local function Menu_TS()
local menu={}
for i=1,7 do
menu[i]={JY.Thing[i+166]["名称"],nil,200,1,i+166}
end
for i=9,16 do
menu[i-1]={JY.Thing[i+166]["名称"],nil,200,1,i+166}
end
for i=17,20 do
menu[i-2]={JY.Thing[i+166]["名称"],nil,200,1,i+166}
end
Cls();
local r=ShowMenu(menu,18,9,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][3] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
TalkEx("这是您的奖励，请您收好。",5,0);
instruct_2(menu[r][5],1);
szjy=szjy-menu[r][3]
SZXG(szjy)
end
end
end
local function Menu_NG()
local menu={}
for i=1,14 do
menu[i]={JY.Thing[i+63]["名称"],nil,200,1,i+63}
end
for i=16,22 do
menu[i-1]={JY.Thing[i+63]["名称"],nil,200,1,i+63}
end
menu[22]={JY.Thing[93]["名称"],nil,200,1,93}
for i=23,29 do
menu[i]={JY.Thing[i+164]["名称"],nil,200,1,i+164}
end
Cls();
local r=ShowMenu(menu,29,9,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][3] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
TalkEx("这是您的奖励，请您收好。",5,0);
instruct_2(menu[r][5],1);
szjy=szjy-menu[r][3]
SZXG(szjy)
end
end
end
local function Menu_JFCX()
DrawStrBoxWaitKey(string.format("您的实战经验为%d",JY.SZJPJC[1]-2),C_WHITE,CC.DefaultFont);
end
local function Menu_JFZY()
TalkEx("消耗100实战经验，请选择你想要的战友。",5,0);
local menu={
{"胡斐",nil,JY.Person[1]["声望"]+1,100,1,1},
{"程灵素",nil,JY.Person[2]["声望"]+1,100,1,2},
{"阎基",nil,JY.Person[4]["声望"]+1,100,1,4},
{"张无忌",nil,JY.Person[9]["声望"]+1,100,1,9},
{"胡青牛",nil,JY.Person[16]["声望"]+1,100,1,16},
{"王难姑",nil,JY.Person[17]["声望"]+1,100,1,17},
{"蓝凤凰",nil,JY.Person[25]["声望"]+1,100,1,25},
{"平一指",nil,JY.Person[28]["声望"]+1,100,1,28},
{"田伯光",nil,JY.Person[29]["声望"]+1,100,1,29},
{"郭靖（南山）",nil,JY.Person[30]["声望"]+1,100,1,30},
{"令狐冲",nil,JY.Person[35]["声望"]+1,100,1,35},
{"林平之",nil,JY.Person[36]["声望"]+1,100,1,36},
{"狄云",nil,JY.Person[37]["声望"]+1,100,1,37},
{"石破天",nil,JY.Person[38]["声望"]+1,100,1,38},
{"岳老三",nil,JY.Person[44]["声望"]+1,100,1,44},
{"薛慕华",nil,JY.Person[45]["声望"]+1,100,1,45},
{"阿紫",nil,JY.Person[47]["声望"]+1,100,1,47},
{"游坦之",nil,JY.Person[48]["声望"]+1,100,1,48},
{"虚竹",nil,JY.Person[49]["声望"]+1,100,1,49},
{"慕容复",nil,JY.Person[51]["声望"]+1,100,1,51},
{"花铁干",nil,JY.Person[52]["声望"]+1,100,1,52},
{"段誉",nil,JY.Person[53]["声望"]+1,100,1,53},
{"袁承志",nil,JY.Person[54]["声望"]+1,100,1,54},
{"郭靖（降龙）",nil,JY.Person[55]["声望"]+1,100,1,55},
{"黄蓉",nil,JY.Person[56]["声望"]+1,100,1,56},
{"杨过",nil,JY.Person[58]["声望"]+1,100,1,58},
{"小龙女",nil,JY.Person[59]["声望"]+1,100,1,59},
{"程瑛",nil,JY.Person[63]["声望"]+1,100,1,63},
{"小昭",nil,JY.Person[66]["声望"]+1,100,1,66},
{"田归农",nil,JY.Person[72]["声望"]+1,100,1,72},
{"任盈盈",nil,JY.Person[73]["声望"]+1,100,1,73},
{"霍青桐",nil,JY.Person[74]["声望"]+1,100,1,74},
{"陈家洛",nil,JY.Person[75]["声望"]+1,100,1,75},
{"王语嫣",nil,JY.Person[76]["声望"]+1,100,1,76},
{"萧中慧",nil,JY.Person[77]["声望"]+1,100,1,77},
{"梅超风",nil,JY.Person[78]["声望"]+1,100,1,78},
{"岳灵珊",nil,JY.Person[79]["声望"]+1,100,1,79},
{"张召重",nil,JY.Person[80]["声望"]+1,100,1,80},
{"朱九真",nil,JY.Person[81]["声望"]+1,100,1,81},
{"宋青书",nil,JY.Person[82]["声望"]+1,100,1,82},
{"何铁手",nil,JY.Person[83]["声望"]+1,100,1,83},
{"霍都",nil,JY.Person[84]["声望"]+1,100,1,84},
{"贝海石",nil,JY.Person[85]["声望"]+1,100,1,85},
{"阿珂",nil,JY.Person[86]["声望"]+1,100,1,86},
{"苏荃",nil,JY.Person[87]["声望"]+1,100,1,87},
{"祖千秋",nil,JY.Person[88]["声望"]+1,100,1,88},
{"人厨子",nil,JY.Person[89]["声望"]+1,100,1,89},
{"钟灵",nil,JY.Person[90]["声望"]+1,100,1,90},
{"温青青",nil,JY.Person[91]["声望"]+1,100,1,91},
};
local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
local r=ShowMenu(menu,49,10,CC.MainSubMenuY,nexty,0,0,1,1,CC.DefaultFont,C_ORANGE,C_WHITE);
Cls();
local szjy=GetS(5,1,6,5);
if r>0 then
if szjy < menu[r][4] then
TalkEx("非常抱歉，您实战经验不足．",5,0);
else
if JY.Base["队伍2"]==-1 then DrawStrBoxWaitKey("队友"..JY.Person[menu[r][6]]["姓名"].."加入",C_WHITE,CC.DefaultFont);
JY.Base["队伍2"]=menu[r][6];
JY.Person[menu[r][6]]["声望"]=-1;
szjy=szjy-menu[r][4]
SZXG(szjy)
else if JY.Base["队伍3"]==-1 then DrawStrBoxWaitKey("队友"..JY.Person[menu[r][6]]["姓名"].."加入",C_WHITE,CC.DefaultFont);
JY.Base["队伍3"]=menu[r][6];
JY.Person[menu[r][6]]["声望"]=-1;
szjy=szjy-menu[r][4]
SZXG(szjy)
else if JY.Base["队伍4"]==-1 then DrawStrBoxWaitKey("队友"..JY.Person[menu[r][6]]["姓名"].."加入",C_WHITE,CC.DefaultFont);
JY.Base["队伍4"]=menu[r][6];
JY.Person[menu[r][6]]["声望"]=-1;
szjy=szjy-menu[r][4]
SZXG(szjy)
else if JY.Base["队伍5"]==-1 then DrawStrBoxWaitKey("队友"..JY.Person[menu[r][6]]["姓名"].."加入",C_WHITE,CC.DefaultFont);
JY.Base["队伍5"]=menu[r][6];
JY.Person[menu[r][6]]["声望"]=-1;
szjy=szjy-menu[r][4]
SZXG(szjy)
else if JY.Base["队伍6"]==-1 then DrawStrBoxWaitKey("队友"..JY.Person[menu[r][6]]["姓名"].."加入",C_WHITE,CC.DefaultFont);
JY.Base["队伍6"]=menu[r][6];
JY.Person[menu[r][6]]["声望"]=-1;
szjy=szjy-menu[r][4]
SZXG(szjy)
else TalkEx("您的队伍已满",5,0);
end
end
end
end
end
end
end
end
local function Menu_MJDH()
TalkEx("小兄弟，这里可以用您的实战兑换秘籍，每本秘籍消耗200实战",5,0);
local menu={
{"拳掌秘籍",Menu_QZ,1},
{"剑法秘籍",Menu_JF,1},
{"刀法秘籍",Menu_DF,1},
{"特殊秘籍",Menu_TS,1},
{"内功秘籍",Menu_NG,1},};
local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
local r=ShowMenu(menu,5,0,CC.MainSubMenuY,nexty,0,0,1,1,CC.DefaultFont,C_ORANGE,C_WHITE);
Cls();
end
local function Menu_JFSL()
TalkEx("请选择您要进行的试练",5,0);
--最后三个数据为战斗编号、钱数和积分
local menu={
{"初级挑战",nil,1,102+math.random(6),math.random(40),math.random(40)},
{"高级挑战",nil,1,108+math.random(13) or 149,math.random(100),math.random(100)},
{"单挑苗人凤",nil,1,4,math.random(90),math.random(90)}, {"单挑灭绝 ",nil,1,20,math.random(100),math.random(100)},
{"单挑玉真子",nil,1,161,math.random(80),math.random(80)},
{"单挑洪七公",nil,1,113,math.random(100),math.random(100)},
{"单挑任我行",nil,1,112,math.random(100),math.random(100)},
{"单挑张三丰",nil,1,22,math.random(100),math.random(100)},
{"单挑王重阳",nil,1,177,math.random(150),math.random(150)},
{"新华山论剑",nil,1,238,math.random(150),math.random(150)},
};
local r=ShowMenu(menu,10,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
local szjy=GetS(5,1,6,5);
if r>0 then
TalkEx("祝您好运！",5,0);
if WarMain(menu[r][4],1)==true then
instruct_13();
instruct_32(CC.MoneyID,menu[r][5]); --银子减少
szjy=szjy+menu[r][6];
SZXG(szjy)
DrawStrBoxWaitKey(string.format("战斗胜利，恭喜您获得%d兩银子和%d点实战经验！",menu[r][5],menu[r][6]),C_WHITE,CC.DefaultFont);
else
instruct_13();
DrawStrBoxWaitKey("战斗失败，您没有获得银子和实战经验！",C_WHITE,CC.DefaultFont);
end
end
Cls();
end
instruct_3(70,64,1,0,1088,0,0,5380,5380,5380,-2,-2,-2);
OEVENTLUA[1088]=function()
TalkEx("小兄弟，欢迎你来到试练场！请选择：",5,0);
Cls();
local menu={ {"实战查询",Menu_JFCX,1},
{"秘籍兑换",Menu_MJDH,1},
{"侠义试练",Menu_JFSL,1},
{"永恒战友",Menu_JFZY,1},
}
local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
local r=ShowMenu(menu,4,0,CC.MainSubMenuY,nexty,0,0,1,1,CC.DefaultFont,C_ORANGE,C_WHITE);
Cls();
end
QZXS("后续更精彩，敬请期待！*祝您游戏愉快 by冰糖恋")

复制代码

本代码大家可随意修改（或说我都是修改027大大的代码弄的

）把更多的想法元素加进去，记得分享下你的成果

莫道名 · 发表于 2011-9-18 02:36

都有些甚麼秘籍．．．．．．．

瑞奇王者 · 发表于 2011-9-18 02:42

同问都有些神马秘籍。。。。。。。。。。。并且问一下：为神马按了执行我的代码就跳出。。。。。。。

tlbtlb · 发表于 2011-9-18 08:03

提示: 作者被禁止或删除内容自动屏蔽

冰糖戀 · 发表于 2011-9-18 08:06

回复莫道名的帖子

拳、刀、特、内都是对应的秘籍（随机得到）剑的是所有剑法+斗转（随机得到）

dg8806 · 发表于 2011-9-18 08:07

本帖最后由 dg8806 于 2011-9-18 08:11 编辑

保存在不用的人物（敌人，记得当年怎么改称号么）属性里，比如称号里

goodmanbadh · 发表于 2011-9-18 10:28

越来越有意思了！
张三丰现身后，原木桩还有残留的贴图，最好把它去掉吧，否则还以为张三丰是个稻草人呢

wokao7456 · 发表于 2011-9-18 12:37

得到什么秘籍不能提示吗？你上个武斗场的都可以提示的，这个可以加上吗？

6.042963902 · 发表于 2011-9-18 17:43

本帖最后由 6.042963902 于 2011-9-18 17:53 编辑

太赞了，秘籍兑换可以换来线路不同没选到的。
更赞的是华山论剑，我玩的027，终于可以参加一次了~~~不过被虐地很惨。
建议换掉三个（白万剑太弱，最好换了），换上洪七公（帮射邪想拿10点拳没拿成了却一下虐洪七公心愿，不加拳也没关系）、张三丰（027、水镜没机会挑）和王重阳。
本来想说峰神、东方，不过不知道有没有难度——我看楼主的试炼人选都是原来就有的，洪七公、张三丰和王重阳也是原来就有的单挑，忘了，对洪七有个欧阳克在旁边，不过可以忽略了

麻酥酥 · 发表于 2011-9-18 19:36

有想过用积分换新的队友和特殊技能么

deideilee · 发表于 2011-9-18 19:46

回复冰糖戀的帖子

呵呵我也喜欢用斐哥的品德和声望作变量~~~~

wp962309947 · 发表于 2011-9-19 09:13

都有神马秘籍

麻酥酥 · 发表于 2011-9-20 06:57

更新真快啊支持下希望能出个技能树的东西啊

a234106261 · 发表于 2011-9-20 07:44

回复冰糖戀的帖子

之前偶尔会有打完没积分提示反而跳出，什么情况？好像只能重新解压缩然后再打开苍炎

wokao7456 · 发表于 2011-9-20 14:31

or 175+math.random(11) 好像这种语句的物品兑换不到啊，只能兑换到前面的

狂侠 · 发表于 2011-9-20 14:50

请问LZ你的代码和心木的代码一起用会冲突吗？

笑谈因果 · 发表于 2011-9-20 20:28

or 94+math.random(18)
or 158+math.random(8)
or 175+math.random(11)
or 79+math.random(6) or 93
这些语句好像都不起作用啊

一块五 · 发表于 2011-9-21 11:21

超级喜欢这个补丁啊，在家就能练成绝世高手！

麻酥酥 · 发表于 2011-9-21 12:39

我想要的队友是东方啊 555 分高点也换~

零零漆 · 发表于 2011-9-21 13:25

支持LZ这个补丁啊，尤其是自由对战模式，很好~~
永恒之队友，选择的时候，有同名队友出现的现象....

麻酥酥 · 发表于 2011-9-21 13:26

不急慢慢来 2012还早~

lama2011 · 发表于 2011-9-21 13:42

六脉属于剑法还是内功?秘籍里有吗?换半天没换到......

水镜四奇 · 发表于 2011-9-21 14:33

支持
上图看看更能一目了然

阿敏 · 发表于 2011-9-22 01:26

好东西,
可惜不能与其他代码共用.
鱼与熊掌问题,
期待.....

零零漆 · 发表于 2011-9-22 09:14

恩，还有一个老问题就是队友重复加入的bug，应该判定有相同队友的时候，提示已经存在不能重复加入~~

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

tlbtlb tlbtlb 当前离线积分 311 头像被屏蔽	发表于 2011-9-18 08:03 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
tlbtlb tlbtlb 当前离线积分 311 头像被屏蔽	【武侠.中国】铁血丹心论坛（大武侠）：致力于推广和发展武侠文化，让我们一起努力，做全球最大的武侠社区。可能是目前为止最好的金庸群侠传MOD游戏交流论坛，各种经典武侠游戏等你来玩，各种开源制作工具等你来实现你的游戏开发之梦。
	回复支持反对举报

（1009修改版）【我的代码】新功能体验：试练场

本帖子中包含更多资源

评分

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评