数码宝贝OL抓滚球脚本

求一个数码宝贝OL脚本，最好是捉滚球的。不然其他也行

Dim x1,x2,y1,y2,GetColo,GetColor1,se
GetColor=GetPixelColor(791,39)
While 1=1
Rem qqq
Delay 500
GetColor1=GetPixelColor(791,39)
If GetColor1 <>GetColor
Delay 1000
Call bao()
GetColor1=0
Else
FindColor 6,31,640,229,"A5A2E7",x1,y1
If x1 > 0 And y1 > 0 Then
MoveToS x1, y1
Delay 200
LeftClickS 1
Else
FindColor 6,230,381,350,"A5A2E7",x1,y1
If x1 > 0 And y1 > 0 Then
MoveToS x1, y1
Delay 200
LeftClickS 1
Else
FindColor 440,230,796,350,"A5A2E7",x1,y1
If x1 > 0 And y1 > 0 Then
MoveToS x1, y1
Delay 200
LeftClickS 1
Else
FindColor 6,351,796,495,"A5A2E7",x1,y1
If x1 > 0 And y1 > 0 Then
MoveToS x1, y1
Delay 200
LeftClickS 1
End If
End If
End If
End If
End If
Goto qqq
Wend
Sub bao()
Rem ha
FindColor 181,171,278,252,"A5A2E7",x1,y1
If x1 > 0 And y1 > 0 Then
MoveToS x1, y1
Delay 2000
LeftClickS 1
Delay 2000
KeyPressS 67,1
Delay 50
LeftClickS 1
Delay 4000
KeyPressS 67,1
Delay 50
LeftClickS 1
Delay 4000
KeyPressS 67,1
Delay 50
LeftClickS 1
Delay 4000
MoveToS 763,521
Delay 20
LeftClickS 1
Delay 5000
Else
Goto ha
End If
End Sub
EndScript 抓滚球的

话说我4个小时抓到。。朋友还觉得神奇。

你可以尝试找人一起抓，这样会容易许多喔。

然后最好把它的血打到10滴以下，最好是能1啦。

如果实在找不到人就只好自己抓了，可以考虑边看电影边抓，或者边下载东西边抓，，总之就是把网弄得卡卡的啦。、

滚球在弯曲森林的更好抓喔……

祝你游戏愉快。

滚球兽比较难抓，这是公认的。。

 = =