标题:
我找了个采花脚本,可却是30级以上用的,怎么...
[打印本页]
作者:
qq406468520
时间:
2006-9-2 20:15
标题:
我找了个采花脚本,可却是30级以上用的,怎么...
我找了个采花脚本,可却是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
完了,该怎么改?????/疑问/疑问/疑问/疑问/疑问
作者:
遗忘现实
时间:
2006-9-2 20:32
不清楚。。等Sz来帮你解决。。
作者:
SzAngel
时间:
2006-9-2 20:45
他这个版本是最基础的,,有同我得0801版本,稳定性我得比较好!不是吹牛!
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1