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)