Delay 200
FindPic 493,376,736,534,"Attachment:\物品栏全部拾取.bmp",0.9,intI,intJ
If intI > 0 And intJ > 0 Then
Call 分解命令()
End If


//实验攻击
FindPic 870,50,1100,110,"Attachment:\怪物血条.bmp",0.9,intX1,intY1
If intX1 > 0 And intY1 > 0 Then
Goto 判断操作
End If



Rem 选怪操作
KeyDown "D", 1
Delay 500
KeyUp "D", 1
Delay 500
KeyPress "Tab", 1



Rem 判断操作
delay 500
KeyPress "1", 1
Delay 3500

//判断任务是否打到怪 
//下面那句换图片可以切换人物(需要附件里有)

FindPic 1,23,56,76,"Attachment:\打怪刀.bmp",0.6,intX,intY
If intX > 0 And intY > 0 Then
 Goto 打怪操作
Else 
Goto 选怪操作
End If

Rem 打怪操作
KeyPress "1", 1
Delay 1000
KeyPress "2", 1
Delay 2000
KeyPress "3", 1


Delay 200
//紧急吃红药，药按键0，蓝9
IfColor 161,64,"0",2 Then
   KeyPress "7", 1
   delay 500
End If

IfColor 136,78,"262626",2 Then
   KeyPress "8", 1
   Delay 500
End If

FindPic 870,50,1100,110,"Attachment:\怪物尸体.bmp",0.5,intX1,intY1
If intX1 > 0 And intY1 > 0 Then
KeyDown 16, 1
KeyPress 90, 1
KeyUp 16, 1

//死亡停止脚本
FindPic 0,0,1024,768,"Attachment:\人物死亡.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
  EndScript
End If

Delay 1000
Goto 开始操作
Else
Goto 打怪操作
End If

Goto 开始操作







//下面是包满操作
Sub 分解命令()
Rem 打开包裹
Delay 200
KeyPress "B", 1
Delay 1000
//找包裹是否开启
Rem 判断包裹

FindPic 780,200,1200,450,"Attachment:\任务栏一.bmp",0.9,intE,intF
If intE > 0 And intF > 0 Then
Delay 200
MoveTo intE,intF
Delay 500