Call 移动(ssiX+1,ssiY+28) Delay 200 LeftClick 1 Delay 200 Call jinrzd End Sub Sub jinrzd Delay 5000 FindPic 0,0,650,500,"Attachment:\x.bmp",0.8,xx2X,xx2Y If xx2X > 0 And xx2Y > 0 Then Delay 100 Call 移动(xx2X, xx2Y) Delay 100 LeftClick 1 Delay 100 End If FindPic 0,0,650,500,"Attachment:\fas.bmp",0.8,fassX,fassY If fassX > 0 And fassY > 0 Then Call zhandouwan End If i = 0 While i=0 FindPic 0,0,1024,768,"Attachment:\箱子.bmp",0.8,xainzzX,xainzzY If xainzzX > 0 And xainzzY > 0 Then i = 1 End If Wend End Sub Sub 找妖 FileArray=Array("Attachment:\min48.bmp","Attachment:\min47.bmp","Attachment:\min46.bmp","Attachment:\min45.bmp","Attachment:\min44.bmp","Attachment:\min43.bmp","Attachment:\min42.bmp","Attachment:\min41.bmp","Attachment:\min40.bmp","Attachment:\min39.bmp","Attachment:\min38.bmp","Attachment:\min37.bmp","Attachment:\min36.bmp","Attachment:\min35.bmp","Attachment:\min34.bmp","Attachment:\min33.bmp","Attachment:\min32.bmp","Attachment:\min31.bmp","Attachment:\min30.bmp","Attachment:\min29.bmp","Attachment:\min28.bmp","Attachment:\min27.bmp","Attachment:\min26.bmp","Attachment:\min25.bmp","Attachment:\min24.bmp","Attachment:\min23.bmp","Attachment:\min22.bmp","Attachment:\min21.bmp","Attachment:\min19.bmp","Attachment:\min18.bmp","Attachment:\min17.bmp","Attachment:\min16.bmp","Attachment:\min15.bmp","Attachment:\min14.bmp","Attachment:\min13.bmp","Attachment:\min1.bmp","Attachment:\min2.bmp","Attachment:\min3.bmp","Attachment:\min4.bmp","Attachment:\min5.bmp","Attachment:\min6.bmp","Attachment:\min7.bmp","Attachment:\min8.bmp","Attachment:\min9.bmp") //用文件名组成的数组做参数 HandleArray=Plugin.FindPicture5_04.LoadBMP(FileArray) //UBound函数用于获得指定数组维数的最大可用下标,在这里,数组大小是0时,返回-1 If UBound(HandleArray)=-1 Then MsgBox "载入图片失败!",4096 EndScript End If // Rem dsd Call cwl KeyPress "F9", 1 Call Plugin.FindPicture5_04.FindPictureN(0,0,0,650,500,HandleArray,40,0.8,yaox,yaoy,number) If yaox >= 0 And yaoy >= 0 And number >= 0 Then //Call OnScriptExit() //MessageBox "擦黑擦黑" Goto rss Else //Call OnScriptExit() // MessageBox "没找到" //EndScript Goto zbdy End If //OnScriptExit过程在脚本结束时执行,即使脚本执行到一半的时候,你按了停止热键,它也会执行了这个过程再停止,这样能保证占用的资源被释放 //Sub OnScriptExit() //释放用LoadBMP命令载入到内存中的图片数据 // Call Plugin.FindPicture5_04.FreeBMP(HandleArray) //End Sub Rem rss Delay 100 Call 移动(yaox-50,yaoy) Delay 100 LeftClick 1 Delay 3000 Call ssi1 Delay 100 KeyPress "F9", 1 // MessageBox "好了" // EndScript Delay 100 Call Plugin.FindPicture5_04.FindPictureN(0,158,129,329,226,HandleArray,40,0.8,yaox,yaoy,number) If yaox >= 0 And yaoy >= 0 And number >= 0 Then Call OnScriptExit() Goto rsd Else // Call OnScriptExit() //MessageBox "没找到" //EndScript Goto zbdy End If Rem rsd Call 移动(yaox+37,yaoy-15) Delay 100 LeftClick 1 Delay 100 LeftClick 1 Delay 100 Call ssi Rem zbdy // MessageBox "好了" // EndScript End Sub Sub 加血 Call ckcl(d1ID,0,0) Delay 300 Call 移动(600, 38) Delay 300 RightClick 1 Delay 300 Call 移动(600, 50)