操作方式:用鼠标进行操作,点击左下方的播种然后选择种子,再把种子放在空田上,就可以种下果树。果树成熟后,点击摘取按钮就可以收获果实。

此外,还可以经常光顾朋友的农场偷取果实,点击右上方的好友按钮可呼出好友菜单。

最后可以点击右上方的仓库按钮,将收获的果实卖出,兑换成金钱。


制作思路:多应用循环语句解决繁琐的鼠标移动过程
参考脚本
dim Fruit,FruitL
UserVar Fruit=18 "当摘取多少次果实后自动卖出"
FruitL=0
MessageBox "请将鼠标移到Flash游戏窗口上面,脚本测试到游戏窗口后会再次提示才开始挂机     "
Call 检测鼠标下是否游戏窗口
MessageBox "游戏窗口验证成功,三秒后开始挂机     "
Delay 3000
Call Plugin.Window.Active(WinF)
Rem 开始
Call 跳到自己的农田
Call 播种
Call 收获
Call 好友果实
Goto 开始
Sub 检测鼠标下是否游戏窗口
    While WinSWH(2)<>"550" and  WinSWH(3)<>"400"
        //得到鼠标下的句柄
        WinF=Plugin.Window.MousePoint()
        //得到鼠标指向的句柄的窗口客户区大小
        WinS=Plugin.Window.GetClientRect(WinF)
        //分割坐标
        WinSWH=Split(WinS,"|")
    Wend 
End Sub
Sub 跳到自己的农田
    //检测指定坐标点的颜色
    MeC=Plugin.Bkgnd.GetPixelColor(WinF,36,28)
    //如果不符合则跳到自己的农场
    If MeC<>"000000" Then
        //鼠标移动到指定坐标
        Call Plugin.Bkgnd.MoveTo(WinF,440,30)
        Delay 300
        //鼠标在指定坐标单击
        Call Plugin.Bkgnd.LeftClick(WinF,440,30)
        Delay 300
    End If 
End Sub
Sub 播种
    //i初始值为9
    i=9
    //下面是选择种子准备播种
    Call Plugin.Bkgnd.MoveTo(WinF,70,350)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,70,350)
    Delay 300
    Call Plugin.Bkgnd.MoveTo(WinF,65,320)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,65,320)
    Delay 300
    //循环9次,即检测农田的九块地
    For 9
        //调用农田坐标
        Call 农田坐标
        //得到农田坐标点的颜色
        FarmlandC=Plugin.Bkgnd.GetPixelColor(WinF,FX,FY)
        //如果颜色符合则对相应的农田进行操作
        If FarmlandC="38587B" Then
            Call 对农田操作
        End If 
        //每检测一块地后向后一块地检测
        i=i-1
    Next 
End Sub
Sub 收获
    i=9
    //移动到指定坐标
    Call Plugin.Bkgnd.MoveTo(WinF,130,350)
    Delay 300
    //在指定坐标单击
    Call Plugin.Bkgnd.LeftClick(WinF,130,350)
    Delay 300
    For 9
        //调用农田坐标
        Call 农田坐标
        //得到指定坐标点的颜色
        FarmlandC=Plugin.Bkgnd.GetPixelColor(WinF,FX,FY)
        //颜色符合则对坐标的地进行操作
        If FarmlandC="2FA9C8" Then
            Call 对农田操作
            //收获一次后记录一次给变量FruitL
            FruitL=FruitL+1
            //如果收获数量到了用户设置的数据后出售果实
            If FruitL=Fruit Then
                //调用出售果实子程序
                Call 出售果实
            End If 
        End If 
        //每检测一块地后向后一块地检测
        i=i-1
    Next 
End Sub
Sub 好友果实
    //得到指定坐标点的颜色
    Friend=Plugin.Bkgnd.GetPixelColor(WinF,510,165)
    If Friend<>"000099" Then
        //条件符合移动鼠标到指定坐标并点击
        Call Plugin.Bkgnd.MoveTo(WinF,490,35)
        Delay 300
        Call Plugin.Bkgnd.LeftClick(WinF,490,35)
        Delay 200
    End If 
    Call Plugin.Bkgnd.MoveTo(WinF,510,165)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,510,165)
    Delay 500
    Call 收获
End Sub
Sub 出售果实
    Call Plugin.Bkgnd.MoveTo(WinF,444,30)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,444,30)
    Delay 500
    Call Plugin.Bkgnd.MoveTo(WinF,270,266)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,270,266)
    Delay 500
    Call Plugin.Bkgnd.MoveTo(WinF,390,130)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,390,130)
    Delay 500
    FruitL=0
End Sub
Sub 对农田操作
    //移动鼠标到指定坐标点并单击
    Call Plugin.Bkgnd.MoveTo(WinF,FX,FY)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(WinF,FX,FY)
    Delay 200
    Call Plugin.Bkgnd.MoveTo(WinF,FX+100,FY+100)
End Sub
Sub 农田坐标
    //下面分别是每块地的坐标点,对农田进行制作前调用
    If i=1 Then
        FX=87
        FY=222
    ElseIf i=2 Then
        FX=159
        FY=182
    ElseIf i=3 Then
        FX=229
        FY=142
    ElseIf i=4 Then
        FX=165
        FY=259
    ElseIf i=5 Then
        FX=236
        FY=219
    ElseIf i=6 Then
        FX=308
        FY=179
    ElseIf i=7 Then
        FX=242
        FY=296
    ElseIf i=8 Then
        FX=314
        FY=255
    ElseIf i=9 Then
        FX=385
        FY=216
    End If 
End Sub