写在前面：这个脚本是我以前在页游《龙狼三国》里用来“双培养”的，当时给它起了个名字叫Xenia

双培工具可以在这个地址下载到：http://pan.baidu.com/s/1eQkt7EU

1.关于双培工具（Xenia）

Xenia是专为游戏《龙狼三国》将领双培养制作的测试工具。龙狼三国的培养界面如下图：

单击“培养”按钮后游戏会随机生成四个数字作为新属性的增加值，由于绝大多数情况下都是减多增少，单项培养（即只提升四个属性中的一个属性）也需要花费不少时间，双培养甚至多培养自不必多说。Xenia的基本思路是根据新属性的颜色判定是否应该培养。游戏中徒手培养的策略是“智力增加值+魅力增加值>0”时培养，否则放弃。由于游戏后期培养需要花费的军功已经高度充裕，且在计算机自动操作时，对时效的要求并不是非常的高，因此Xenia培养时采用了“智力增加值>0且魅力增加值>0”的策略自动培养，判断是否增加则通过颜色来判定。

2.脚本运行流程

Xenia脚本的运行流程如下：

1）鼠标单击武将培养界面“培养”按钮

2）查看待培属性的增减情况

3）通过对比颜色（绿增红减）判断属性增加或减少，如果智力和魅力都不减少则接受本次培养，否则拒绝

3.按键小精灵程序界面

1）上方的测试区，输入一个坐标，单击“测试坐标”按钮，鼠标会自动挪向指定区域，后方会自动捕获该点的颜色。通过这个区域可以测试出操作区需要的点位和培养点的颜色信息。

2）下方操作区，存放的是精灵运行期间程序各个动作的参数。颜色区是两个培养点数值下降色（游戏中为红色），如果两个属性的培养颜色都不吻合下降色，程序就会接受本次培养，反之则不接受。

4.控件布局

5.脚本代码

Delay 500
MoveTo Form1.txtTrainX.Text, Form1.txtTrainY.Text
LeftClick 1
Delay 500
If GetPixelColor(Form1.txtPointAX.Text, Form1.txtPointAY.Text) _ 
    = Form1.txtReduceColorA.Text and _
    GetPixelColor(Form1.txtPointBX.Text, Form1.txtPointBY.Text) _
     = Form1.txtReduceColorB.Text _
     Then 
        MoveTo Form1.txtMaintainX.Text, Form1.txtMaintainY.Text
        LeftClick 1
Else 
    MoveTo Form1.txtAbortX.Text, Form1.txtAbortY.Text
    LeftClick 1
End If


Event Form1.btnSetMouse.Click

//X坐标不能为空
If Form1.txtAxisX.Text = "" Then 
    Form1.lblConclusion.Caption = "X坐标不能为空"
    Exit Event
End If
//Y坐标不能为空
If Form1.txtAxisY.Text = "" Then 
    Form1.lblConclusion.Caption = "Y坐标不能为空"
    Exit Event
End If

//移动鼠标
MoveTo Form1.txtAxisX.Text, Form1.txtAxisY.Text

Dim x, y, Color

//得到当前鼠标的坐标位置  并保存到变量x,y中
GetCursorPos x, y

//得到指定坐标位置的颜色  并保存到变量color中
Color=GetPixelColor(x,y)

Form1.lblConclusion.Caption = _
    "坐标为:" & x & "," & y & " 颜色为:" & Color

End Event

注意：这段脚本可以编译通过，但是在按键精灵的“普通”界面中查看的代码说明中会显示错误（至少我现在用的按键精灵2014还会报错）。该界面5-8行的四个下划线-即BASIC脚本用于将语句分多行书写的下划线-并不能被按键精灵“普通”界面正确翻译，但这并不影响脚本编译和运行。

END

龙狼三国双培养脚本