Sub 选择
t = 0
While t = 0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\选择.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
t = 1
End If
Wend
MoveTo LX, LY
End Sub
Sub 接受
t = 0
While t = 0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\接受.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX, intY
LeftClick 1
t=1
End If
Wend
MoveTo LX, LY
End Sub
Sub 人物
t = 0
While t=0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\npc.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
t = 1
Else
FindPic LX,LY,RX,RY,"Attachment:\人物.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
Delay 1000
End If
End If
Wend
MoveTo LX, LY
End Sub
Sub 返回
Delay 1000
t=0
While t = 0
Delay 600
FindPic LX,LY,RX,RY,"Attachment:\返回.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
t = 1
End If
Wend
MoveTo LX, LY
End Sub
Sub 狮
t = 0
While t = 0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\狮.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
t=1
End If
Wend
MoveTo LX, LY
End Sub
Sub 蛇
t = 0
While t = 0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\蛇.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
t=1
End If
Wend
MoveTo LX, LY
End Sub
Sub 猴
t = 0
While t = 0
Delay 1000
FindPic LX,LY,RX,RY,"Attachment:\猴.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1