没事又回来玩了会诛仙,按得有点累了就写了个小脚本。
还真刷得飞快,天人合一满了都不开了,只用管一下答题就行。
这下真的解放双手了
1普攻 3拾取 6红 ,加红在概在40%的位置,1024*768全屏
刷一地的东西再捡,比打一个捡一个有效率多了 ^-^
a=0
VBSCall redcolor=GetPixelColor(548,747)
Rem run
Gosub 打怪
Delay 100
Gosub 加红
Delay 100
Goto run
Sub 打怪
VBSCall m=GetPixelColor(430,60)
If m<>"00008E"
If a=10
Gosub 拾取
Else
EndIf
a=a+1
KeyPressS 9,1
Delay 500
KeyPressS 49,1
Else
Delay 1000
KeyPressS 49,1
EndIf
Return
Sub 加红
VBSCall x=GetPixelColor(172,51)
If x>="100000"
VBSCall n=GetPixelColor(548,747)
If n=redcolor
KeyPress 54,1
Delay 1000
Else
EndIf
Else
EndIf
Return
Sub 拾取
For 10
KeyPressS 51,1
Delay 800
Gosub 加红
EndFor
a=0
Return
|