[Lua] 纯文本查看 复制代码Dim res,键值表

Import "Cjson.lua"

Import "GK.lua"

Function 判断(fx, fy)

//进一步对果壳界面判断找图封装。找到图后加了false就不点击，但是返回函数的真假，后面要对这些函数返回值做出判断而做出相对应的操作

If (gk.full(fx)) Then

ms "在" & fy

判断 = True

Else

ms "不在" & fy

判断 = false

End if

End Function

Function ms(msg)

TracePrint msg

ShowMessage msg

End Function

res = URL.Get("https://koala9527.github.io/test/game.json")

//json数据 是 {"len":"2","data":{"v1":{"lx":"92","ly":"69","rx":"221","ry":"171","fc":"57B1FF","cr":"4|-3|C9E6FF,-5|-14|1592FF,-10|-4|1592FF,8|5|FBFDFF,6|-7|D8EDFF,-4|-15|1592FF,-4|1|5CB3FF,-9|-6|1592FF,-6|-24|1592FF","s":"0.9"},"v2":{"lx":"532","ly":"1049","rx":"656","ry":"1129","fc":"E4B697","cr":"7|-12|FEFBF9,12|-42|FCF6F2,16|-66|CF7E4C,22|-111|C57543,11|-136|BA6A38,0|55|DF9460","s":"0.9"}}}

TracePrint res

//将json数组转换成lua的字典

键值表 = Cjson.Decode(res)

//自己封装的json格式，不用计算，直接指出这个请求返回结果有几个图色信息

TracePrint "数组含有"&键值表["len"]&"个图色数据"

dim leng= CInt(键值表["len"])

Dim result =array()

//开始遍历这个table所包含的图色信息，还有图色信息所有的细节参数，注意lua的table是从1开始的，并不是从0开始的

For i = 1 To leng

Dim j = "v"&Cstr(i)

Dim tb1=键值表["data"][j]["lx"]

Dim tb2=键值表["data"][j]["ly"]

Dim tb3=键值表["data"][j]["rx"]

Dim tb4=键值表["data"][j]["ry"]

Dim tb5=键值表["data"][j]["fc"]

Dim tb6=键值表["data"][j]["cr"]

Dim tb7=键值表["data"][j]["s"]

//这些都是在果壳插件找图命令中的必要数组参数

TracePrint "第"&i&"个点的左上角X坐标："& tb1

TracePrint "第"&i&"个点的左上角Y坐标："& tb2

TracePrint "第"&i&"个点的右下角X坐标："& tb3

TracePrint "第"&i&"个点的右下角Y坐标："& tb4

TracePrint "第"&i&"图色数据的第一点颜色："& tb5

TracePrint "第"&i&"图色数据的偏移点数据："& tb6

TracePrint "第"&i&"图色数据的精度："& tb7

// 遍历赋值到一个二维数组中

result[i] = Array(tb1,tb2,tb3,tb4,tb5,tb6,tb7)

Next

//接下来遍历输出一下这个二维数组检查一下看是什么东西

For i = 1 To UBOUND(result)+1

For j= 1 to UBound(result[i])+1

TracePrint result[i][j]

Next

Next

//最后遍历这个请求所有的图色信息找图

For i = 1 To UBOUND(result) + 1

判断 result[i],"牛皮"&i

Next