按键精灵脚本源码 剑侠情缘-以五行找金

脚本附件：金.bmp

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：8.00.6701

@kstg2443538 2010/5/27

dim m,n,a ,b ,c ,d ,e ,f ,x ,y ,x0,y0  
m=30:n=80  
Call 查找怪()  
EndScript  
Delay 10  
Sub 查找怪()  
    a=-50:b=150  
    Rem 找怪  
    For 10  
        Call FindPic(20,40,1000,700,"金.bmp",0.7,X,Y)  
        If X>=0 and Y>=0 Then  
            x0=x+m:y0=y+n  
            Delay 10  
            If y>500 Then  
                Delay 50  
                MoveTo 600,500  
                Delay 50  
                LeftClick 1  
                Delay 50  
                Goto 查找怪  
              Else  
            End if  
            Delay 200  
            MoveTo x0,y0  
            Delay 50  
            Call 打怪()  
            Delay 100  
        End if  
        If X=-1 and Y=-1 Then  
            Delay 10  
            MoveTo 506,398  
            Delay 10  
            MoveR a,b  
            Delay 2000  
            LeftClick 1  
            Delay 100  
        End if  
    Next  
    a=a*(-1):b=b*(-1)  
    Goto 找怪  
End Sub  
Sub 打怪()  
    Delay 10  
    IfColor 66,722,"9ccb84",0 Then  
        Delay 10  
        KeyPress 192,1  
        Delay 100  
        KeyPress 49,1  
        Delay 100  
        Rem 打  
         RightClick 1  
        Delay 200  
        LeftClick 1  
        Delay 100  
    Else  
        KeyPress 49,1  
        Delay 100  
        Goto 打  
    End if  
    Delay 10  
End Sub