关于按键精灵的一个实例应用

{"加血百分比":0.5,"当前版本":"1.01","怪物":"史莱姆","更新内容":"新增公告提醒\n修复大量bug","自动加血":1,"当前状态值":1}
 

'以下是我提取圆形范围内坐标和排除指定范围内圆形坐标的实例 供参考

'包含指定范围内圆形坐标
//Function Include_圆形(pos, x, y, r)
//    Dim t(),i=0
//    For Each v In pos
//        If (v[1] - x) ^ 2 + (v[2] - y) ^ 2 < r^2 Then 
//            t(i) = v
//            i = i + 1
//        End If
//    Next
//    Include_圆形 = t
//End Function

'排除指定范围内圆形坐标
//Function Exclude_圆形(pos, x, y, r)
//    Dim t(),i=0
//    For Each v In pos
//        If not((v[1] - x) ^ 2 + (v[2] - y) ^ 2 <= r^2) Then 
//            t(i) = v
//            i = i + 1
//        End If
//    Next
//    Exclude_圆形 = t
//End Function