药水合成脚本

脚本附件：TransmuteWindow.bmp, 阿拉特.bmp, 合成按钮.bmp, 拿起.bmp, 确认.bmp, 圣水.bmp, 血红药水.bmp

运行环境：分辨率：1920x1080 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.50.11632

@wjn060454    2013/4/19

 While 1  
    Delay 3000  
    KeyPress "8", 1  
    Delay 1000  
    FindPic 0, 0, 1920, 1080, "Attachment:\TransmuteWindow.bmp" , 0.9, J, K  
    If J > 0 AND K > 0 Then   
    Else   
//  MessageBox "No Find TranSmute Window ,Press 'ok' to Restart Script "  
    RestartScript  
    End If  
      
      
      
    FindPic 0, 0, 1920, 1080, "Attachment:\圣水.bmp", 0.8, X, Y  
        If X > 0 And Y > 0 Then   
             MoveTo X, Y  
             KeyDown "Shift", 1  
             Delay 1000  
             LeftClick 1  
             Delay 500  
             KeyUp "Shift", 1  
             FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
                If P > 0 And Q > 0 Then   
                    MoveTo P, Q  
                    Delay 300  
                    LeftClick 1  
                    Delay 300  
                Else   
                    RightClick 1  
                    MoveTo 0,0  
                    Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                        If M > 0 And N > 0 Then   
                            MoveTo M, (N+10)  
                            Delay 1000  
                            LeftClick 1  
                            Delay 500  
                            Else   
                            KeyPress "Esc", 1  
                            MessageBox "No Find"  
                        End If  
                End If  
         Else   
            MessageBox "No Find Base Herb "  
         End If  
      
      
      
      
      
      
    MoveTo J+42, K+382  
    Delay 500  
    LeftClick 1  
    Delay 1000  
      
      
    FindPic 0, 0, 1920, 1080, "Attachment:\阿拉特.bmp", 0.8, X, Y  
    If X > 0 And Y > 0 Then   
             MoveTo X, Y  
             KeyDown "Shift", 1  
             Delay 1000  
             LeftClick 1  
             Delay 500  
             KeyUp "Shift", 1  
             FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
                If P > 0 And Q > 0 Then   
                    MoveTo P, Q  
                    Delay 300  
                    LeftClick 1  
                    Delay 300  
                Else   
                    RightClick 1  
                    MoveTo 0,0  
                    Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                        If M > 0 And N > 0 Then   
                            MoveTo M, (N+10)  
                            Delay 1000  
                            LeftClick 1  
                            Delay 500  
                            Else   
                            KeyPress "Esc", 1  
                            MessageBox "No Find"  
                        End If  
                End If  
    Else   
        MessageBox "No Find Blood Herb"  
    End If  
  
      
      
    MoveTo J+154, K+382  
    Delay 500  
    LeftClick 1  
    Delay 1000  
      
      
    FindPic 0,0,1920,1080,"Attachment:\血红药水.bmp",0.8,X,Y  
    If X > 0 And Y > 0 Then   
    MoveTo X, Y  
         KeyDown "Shift", 1  
         Delay 1000  
         LeftClick 1  
         Delay 500  
         KeyUp "Shift", 1  
         FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
            If P > 0 And Q > 0 Then   
                MoveTo P, Q  
                Delay 300  
                LeftClick 1  
                Delay 300  
            Else   
                RightClick 1  
                MoveTo 0,0  
                Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                    If M > 0 And N > 0 Then   
                        MoveTo M, (N+10)  
                        Delay 1000  
                        LeftClick 1  
                        Delay 500  
                        Else   
                        KeyPress "Esc", 1  
                        MessageBox "No Find"  
                    End If  
            End If  
              
Else   
    MessageBox "No Find Life Potion "  
End If  
  
  
  
MoveTo J+266, K+382  
Delay 500  
LeftClick 1  
Delay 1000  
  
Delay 1000  
  
FindPic 0,0,1920,1080,"Attachment:\合成按钮.bmp",0.9,X,Y  
If X > 0 And Y > 0 Then   
MoveTo X, Y  
Delay 300  
LeftClick 1  
Delay 300  
Else   
RestartScript  
End If  
  
Delay 4000  
  
  
end