脚本附件: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
奇迹和防护药水脚本