Rem 开始2
Delay YanShi
Delay 5000
MoveTo 40, 17
Delay YanShi
LeftClick 1
Delay 50
KeyPress "Enter", 1
Delay 100
Delay YanShi
MoveTo 600, 300
SaveMousePos
i=0
While i=0
Delay YanShi
FindColor 0,0,1024,768,"5ac3ef",intX,intY
If intx>0 and inty>0
Delay YanShi
i=1
EndIf
EndWhile
w1 = Plugin.Window.Find(0, "大话西游 II ($Revision: 214866 $)")
Delay 50
Call Plugin.Window.Active(w1)
Delay 50
Call Plugin.Window.Move(w1, 1, 1)
Delay YanShi
Rem b4
IfColor 8,34,"2961A5",0 Then
Delay YanShi
MoveTo 579, 123
Delay YanShi
LeftClick 1
Delay YanShi
Else
Goto b4
End If
Delay YanShi
Rem b5
IfColor 52,47,"394129",0 Then
RightClick 1
Delay YanShi
Else
Goto b5
End If
Delay YanShi
Rem b6
IfColor 36,45,"314129",0 Then
Delay YanShi
SayString a10
Delay YanShi
Else
Goto b6
End If
Delay YanShi
IfColor 384,390,"31CBFF",0 Then
Delay YanShi
MoveTo 414, 374
Delay YanShi
LeftClick 1
Delay YanShi
Call 创建2()
Else
End If
Delay 500
Call 关闭()
Delay YanShi
Goto 开始2
End Sub
Sub 运行3()
Rem 开始3
Delay YanShi
Delay 5000
MoveTo 40, 17
Delay YanShi
LeftClick 1
Delay 50
KeyPress "Enter", 1
Delay 100
Delay YanShi
MoveTo 600, 300
SaveMousePos
i=0
While i=0
Delay YanShi
FindColor 0,0,1024,768,"5ac3ef",intX,intY
If intx>0 and inty>0
Delay YanShi
i=1
EndIf
EndWhile
w1 = Plugin.Window.Find(0, "大话西游 II ($Revision: 214866 $)")
Delay 50
Call Plugin.Window.Active(w1)
Delay 50
Call Plugin.Window.Move(w1, 1, 1)
Delay YanShi
Rem b7
IfColor 8,34,"2961A5",0 Then
Delay YanShi