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

运行环境：分辨率：1920×1080 色深：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