少林诵经全自动机器人设计思路，关键字：诵经、超度

rinkezhang

话说,有没有谁统计过,超度都去哪些地方呢?
附赠下页数转换:
#tri{%x%s第(%x)页/总*页}{#var yjyeshu %1;yjyeshu=%replace(@yjyeshu,零,0+);yjyeshu=%replace(@yjyeshu,十,*10+);yjyeshu=%replace(@yjyeshu,百,*100+);yjyeshu=%replace(@yjyeshu,一,1);yjyeshu=%replace(@yjyeshu,二,2);yjyeshu=%replace(@yjyeshu,三,3);yjyeshu=%replace(@yjyeshu,四,4);yjyeshu=%replace(@yjyeshu,五,5);yjyeshu=%replace(@yjyeshu,六,6);yjyeshu=%replace(@yjyeshu,七,7);yjyeshu=%replace(@yjyeshu,八,8);yjyeshu=%replace(@yjyeshu,九,9);yjyeshu=0+@yjyeshu+0;yjyeshu=%replace(@yjyeshu,++,+);yjyeshu=%replace(@yjyeshu,+*,+);yjyeshu=%eval(@yjyeshu);}

ps:执行page 页码 命令后当前页码自动存到变量yjyeshu里
ps:我自己编的,可能比较弱智,见谅

rinkezhang

取书的方法也老土，先look bao,将所有书名放入一个数组，然后在数组中找到自己要的书和顺序号，直接拿出正确 ...
pos 发表于 2013-1-15 06:52 PM

   怎么弄呢?能教一下不?

pos

回复 14# rinkezhang

function getb(_book)
local _cur=0*1
print("取".._book)
exe("l bao")
for i=1,9 do
  l,w=wait.regexp("(.*)\\(Shu\\)",5)
  if l==nil then break end
  if w[1]==_book then _cur=i;break end
end
if _cur~=0 then
  exe("get shu ".._cur.." from bao")
  l,w=wait.regexp("你从包袱中拿出一本",5)
  if l==nil then return false end
  return true
else
  return false
end
end

nsonline

回复  rinkezhang

function getb(_book)
local _cur=0*1
print("取".._book)
exe("l bao")
for ...
pos 发表于 2013-1-15 01:58 PM

    他那zmud和你这脚本完全不一样啊~~

rinkezhang

....好像。。。不是ZMUD的。。。算了！我还是永蠢办法吧。。。

rinkezhang

终于搞定咏经和超度了!发现楼主有个误区。。。
超度的时候，不用去查页数，直接release chanting 1,基本上会提示“你翻的和别人念的不是一页经书”这时候，把变量yeshu=@yeshu+1，然后release chanting @yeshu，估计还会提示不是一页，然后继续。直到出现“只有在念诵一段开始的时候才能和别人一起做法事”，页数对了！然后。。。。这样省去了查书翻页那一页十几行的刷屏。当然，最好在开始的时候先确定一下页数MAX值，万一翻过了。。。到那个max值得时候release start 重来或者release chanting 1重来！这么长时间估计带队和尚已经换书了！看你自己选择。。嗬嗬！

pos

终于搞定咏经和超度了!发现楼主有个误区。。。
超度的时候，不用去查页数，直接release chanting 1,基本上 ...
rinkezhang 发表于 2013-1-16 02:44 PM

  系统性能就是被这种机器人浪费掉的。

poshu

还得加上法轮的处理
huacuoh 发表于 2013-1-14 09:14 AM

    毛毛以前就从来没做出过少林新手全自动
从来没用过

rinkezhang

系统性能就是被这种机器人浪费掉的。
pos 发表于 2013-1-20 01:19 PM

    至少比一页一页翻书节约，不过现在好了！我直接读篇章后翻到直接给出对应页数！就是写机器的时候累点。

xcute

有机会玩个少林ID