我找了个采花脚本，可却是30级以上用的，怎么改喂15级就可以用的？？？

我找了个采花脚本，可却是30级以上用的，怎么改喂15级就可以用的？？？
我列在下面：

//请把怪物名显示打开，选择一个无怪花多的地方
Rem 准备
VBSCall Call FindPic(0,0,1023,767,"QQ幻想标题栏.bmp",0.9,fo_x,fo_y)
If fo_x<0 and fo_y<0
MessageBox("QQ幻想没打开？")
Goto 结束
EndIf
fo_x2=fo_x+770
fo_y2=fo_y+620
fo_sr_x=fo_x
fo_sr_y=fo_y
count=0
do_time=0
SayString 1
Rem 开始
VBSCall Call FindCenterColor(fo_x,fo_y,fo_x2,fo_y2,"7B55FF",x,y)
//从最中间开始找找到芍药红花的红色
y=y+5
Rem If abs(x-fo_sr_x+358)<80 and abs(y-fo_sr_y+198)<80 and (timer-dotime)<15
/到了面前的一个，短时间内是前面已采的碎片，更改查找象限
Rem EndIf
SayString 2
If x>=0 and y>=0
/到花儿
SayString fl.
MoveTo x+3 y+1
LeftClick 2
getfl=0
Rem 再找采花条
co=GetPixelColor(fo_sr_x+358,fo_sr_y+198)
If co="BDFFFF"
      do_time=timer
      SayString do.
      Delay 9000
      Goto 预备
Else
      Delay 300
      getfl=getfl+1
      If getfl<4
         SayString reFind.
         Goto 再找采花条
      Else
         SayString reStart.
         If fo_y2-fo_sr_y=620
            fo_y=fo_sr_y
            fo_y2=y-40
         Else
            fo_y2=fo_sr_y
            fo_y=y+40
         EndIf
         Goto 开始
      EndIf
EndIf
EndIf
MoveTo fo_sr_x+380 fo_sr_y+250
If count=1
MoveR -160 -120
SayString 左上.
EndIf
If count=2
SayString 下.
MoveR 0 320
EndIf
If count=3
MoveR 320 0
SayString 右.
EndIf
If count=4
MoveR 160 +240
SayString 右下.
EndIf
If count=5
MoveR 0 -120
SayString 上.
EndIf
LeftClick 2
If count>5
count=0
EndIf
count=count+1
Delay 1100
Goto 预备
Rem 预备
If (timer-dotime)>15
fo_x=fo_sr_x
fo_y=fo_sr_y
fo_x2=fo_x+770
fo_y2=fo_y+620
KeyPress 13 1
EndIf
SayString re.
Delay 300
Goto 开始
Rem 结束
SayString OK

还有，我用了就只会乱点～～～～～怎么办，我也想用斑竹的程序～可是要注册码～我是新来的，才来了几天～～～怎么办呢？/晕/晕

[[i] 本帖最后由水水于 2007-1-7 02:36 编辑 [/i]]