谁能帮我制造个数码宝贝ol捉宠脚本或按键脚本

自动捉宠.必须打一下怪.注意是一下哦..打两下就挂了（因为捕捉宠级别低）.打一下以后会扣掉一半以上血（您只需要设置打就可以了.血量控制玩家会）.然后就是按下C键.就可以捉宠了.捉三次捉不到就把怪打死.重复之前动作直到捉到为止.

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 2000
    Call bao()
    GetColor1=0
    Else
    FindColor 6,31,640,229,"21C3FF",x1,y1
    If x1 > 0 And y1 > 0 Then
    MoveToS x1, y1
    Delay 300
    LeftClickS 1
    Else
    FindColor 6,230,381,350,"21C3FF",x1,y1
    If x1 > 0 And y1 > 0 Then
    MoveToS x1, y1

按键脚本 请勿抄袭

关键是耐心！还有把兽的血打成1滴，抓最下面的兽几率稍微大一点点！我这样抓了7只！