我找了个采花脚本,可却是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]] |