《天谕》手游搬砖测评

游戏货币类型分4中，云券，云币，绑定天玉，天玉，能交易是云币

官方卖云币的比例是1块钱8w云币

云币的获取方式：

1.活跃满100，70级以下可以领取16w云币，70级以上可以获得24w云币

2.活跃满100，系统赠送+体力恢复，大概是720点体力，采集、伐木、挖矿、制药、烹饪一次消耗3点，钓鱼消耗10点，工艺消耗6点。至于那个生活职业最赚钱，博主没研究过。差不多可以获得240个材料，一个是3000云币左右，也就是可以获得70w左右的云币

3.晚上8点的决战云巅，赢一次有10w云币，最多赢3次

4.副本产出，紫装，绝世令，橙装，绝世装备之类的东西

如何转金

1.生活材料转金，这个办法已经不好转了，但是冷门的材料还是可以转，就是转的少了，在生活材料里面，找到数量比较少的冷门材料，但是你就做这种，价格拉满。

2.紫装，每天的3次副本，都会产出很多可以交易的紫装，直接价格拉满，上架到拍卖行，另一个搜索装备，按照价格降序，一下子就找到了，一天转个100w以上的云币很轻松。橙装普通副本基本上不会产出，一周2次的困难本，容易产出，橙装把价格拉满，一次可以转200w以上的云币。绝世装备目前一周一次弑神本会产出，这个转金就比较多了，一次就是几百万上千万的转。

如何出金

目前只能私下出金，找到老板，让老板上架比较贵的东西，比如橙装，珍品啥的，你买下来就行了。

采集脚本demo

//一共是12个圆环
//先把所有的物品图案制作成一个图库
//比如我们在图库里面，序号为1.png 2.png .....n.png
//Dim back1，back2,back12
//dim back1=FindPic 0, 0, 0, 0, "Attachment:1.png|Attachment:2.png|Attachment:3.png|Attachment:4.png","000000", 0, 0.9, intX, intY//坐标就是每一个圆圈的范围
//dim back2=FindPic 0, 0, 0, 0, "Attachment:1.png|Attachment:2.png|Attachment:3.png|Attachment:4.png","000000", 0, 0.9, intX, intY//坐标就是每一个圆圈的范围
//dim back12=FindPic 0, 0, 0, 0, "Attachment:1.png|Attachment:2.png|Attachment:3.png|Attachment:4.png","000000", 0, 0.9, intX, intY//坐标就是每一个圆圈的范围
//back就会返回查找到图片的序号
//返回图片的序号存在数组里面
Dim arr
arr=Array(1,2,3,4,5,4,6,7,4,8,9,4)

Dim 目标图案

Call SimPic()

Sub SimPic()
    For i=0 to 11
        For j = 0 To 11
            TracePrint "数组i=" &   arr(i)  &  " ,数组j="&arr(j)
            If i <> j Then 
                If arr(i) = arr(j) and arr(i)<>-1 Then 
                    TracePrint "找到相同的图案"
                    目标图案 = arr(i)
                    Exit Sub
                End If  
            End If
        Next	
    Next
End Sub

For i=0 to 11
    If 目标图案 = arr(i) Then 
        Call 点击(i+1)
    End If
Next

Function 点击(位置)
    If 位置 = 1 Then 
        TracePrint "点击圆圈1"
    ElseIf 	位置 = 2 Then 
        TracePrint "点击圆圈2"
    ElseIf 	位置 = 3 Then 
        TracePrint "点击圆圈3"
    ElseIf 	位置 = 4 Then 
        TracePrint "点击圆圈4"
    ElseIf 	位置 = 5 Then 
        TracePrint "点击圆圈5"
    ElseIf 	位置 = 6 Then 
        TracePrint "点击圆圈6"
    ElseIf 	位置 = 7 Then 
        TracePrint "点击圆圈7"
    ElseIf 	位置 = 8 Then 
        TracePrint "点击圆圈8"
    ElseIf 	位置 = 9 Then 
        TracePrint "点击圆圈9"
    ElseIf 	位置 = 10 Then 
        TracePrint "点击圆圈10"
    ElseIf 	位置 = 11 Then 
        TracePrint "点击圆圈11"
    ElseIf 	位置 = 12 Then 
        TracePrint "点击圆圈12"
    End If
End Function