|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 ht5124251 于 2015-5-7 12:01 编辑
- 变量 遍历背包循环=真
- 功能 遍历背包()
- 循环(遍历背包循环)
- 变量 id=进程获取句柄("xxx")
- 变量 行,列,排,符合物品
- 行=0
- 列=0
- 排=0
- 符合物品=0
- 循环(行<4)
- 循环(列<6)
- 变量 K,B
- B= #0065DC30 + 行 * (#38 * 6) + 列 * #38
- K=读2byte(id, B)
- 如果(K!=65535)
- 变量 物品,属性,b1,b2,b3,b4
- 变量 retarr1,retarr2,retarr3,retarr4
- 物品=文件读取内容("d:/物品代码.txt")
- b1 =字符串分割(物品,"\r\n",retarr1)
- 遍历(变量 i=0;i < b1;i++)<i>
- b2 =字符串分割(retarr1<i>,"=",retarr2)
- 遍历(变量 j=0;j < b2;j++)
- 如果(retarr2[j]!="")
- 如果(K==retarr2[j])
- 调试输出(retarr2[1])
- 循环(排<4)
- 属性=文件读取内容("d:/属性代码.txt")
- 变量 id1=进程获取句柄("xxx")
- 变量 P1,P2
- P1=(#0065DC44 + 排 * #1) + 行 * (#38 * 6) + 列 * #38
- P2=读byte(id1, P1)
- b3 =字符串分割(属性,"\r\n",retarr3)
- 遍历(变量 z=0;z < b3;z++)
- b4 =字符串分割(retarr3[z],"=",retarr4)
- 遍历(变量 x=0;x < b4;x++)
- 如果(retarr4[x]!="")
- 如果(P2==retarr4[x])
- 调试输出(行&"行"&列&"列"&排&"排"&"物品属性为"&retarr4[1])
- 符合物品=符合物品+1
- 结束
- 结束
- 结束
- 结束
- 排=排+1
- 结束
- 排=0
- 结束
- 结束
- 结束
- 结束
- 结束
- 如果(符合物品>=3)
- 调试输出("当前物品符合存入银行条件√")
- 线程2=线程开启("存银行","")
- 结束
- 符合物品=0
- 列=列+1
- 结束
- 列=0
- 行=行+1
- 结束
- 结束</i></i>
复制代码
|
|