[XIUREN秀人网]2021.04.06 No.3273 王雨纯

sssleg

[预览缩图]:

[下载网盘]:百度网盘
[解压密码]:sssleg.com
[下载链接]:

游客，如果您要查看本帖隐藏内容请回复

wangguan1999

rkrq

6141220498

565654654

chris005

感谢BZ分享

leelue

感谢BZ分享

xzy000

感谢分享，支持！

3582456

Call 刷任务
Sub 刷任务
    do
        Call 主页面
        Call 点(938, 920)
        Call 挑战BOSS
        Call 强化
        Call 寻宝
        Call 奇遇
        Call 熔炼
        Call 聊天
    loop
End Sub
Rem zend
//常用调用区域
Sub 主页面
    Do
        FindPic 0,0,1920,1200,"E:\sanguosha\主界面.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Exit do
        End If
        Call 点(700,1100)
        Delay 10000
    loop
End Sub
Sub 点(a, b)
    MoveTo a, b
    LeftClick 1
    Delay 1000
End Sub
Sub 挑战BOSS
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\多人BOSS.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Delay 1000
        FindPic 0,0,1920,1200,"E:\sanguosha\shua\挑战灰.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Goto zend
        End If
        Call 点(960, 886)
        Do
            MoveTo 683,906
            LeftClick 1
            Delay 500
            FindPic 0,0,1920,1200,"E:\sanguosha\shua\BOSS退出.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then
                MoveTo intX, intY
                LeftClick 1
                Delay 500
                Exit do
            End If
        Loop
    End If       
End Sub
Sub 强化
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\强化.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Call 点(850,980)
        Call 点(1250, 100)
        Call 主页面
    End If
End Sub
Sub 寻宝
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\寻宝.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Call 点(769, 885)
        //补充买钥匙提示
        Call 点(1117,1083)
        Call 点(1084,961)
        Call 主页面
    End If
End Sub
Sub 奇遇
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\奇遇.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Goto zend
    End If
End Sub
Sub 聊天
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\聊天.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        LeftClick 1
        Delay 500
        Call 点(722,889)
        Call 点(1005,917)
        Call 点(735, 1018)
        Call 主页面
    End If
End Sub
Sub 熔炼
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\熔炼.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Delay 1000
        FindPic 0,0,1920,1200,"E:\sanguosha\shua\熔炼空.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Goto zend//添加其他熔炼跳转
        End If
        Call 点(964, 976)
        Call 主页面
    End If
End Sub

123456aa

pyk918

感谢分享