- UID
- 24402
- 帖子
- 74
- 积分
- 60
- 紫菀
- 0 朵
- 花瓣
- 59 片
- 花蕊
- 14 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 7 级
- 在线时间
- 86 小时
- 注册时间
- 2008-3-9
- 蜗居何地
- 广东东莞
- 登录状态
-
当前离线
|
楼主
发表于 2008-6-25 19:26
| 只看该作者
家族荣誉任务跑腿脚本,版主帮帮忙
这脚本写了我三个晚上,一直头痛的是怎么让按键识别字,比如"龙城东郊",因为按键精灵把白色默认当透明色,所以白色的字用图片识别方法识别不出来,
网上去遍各论坛找方法,正当我找到了插件完成了后,才发现插件要注册,我测了两个号才用了不过两小时就不能用了,真是郁闷,现在又不能用了,所以发发
脚本原码让大虾们改改,.............SimPlugOCR.dll字符识别插件和大兵插件真的很好用,为按键精灵增加不少功能,只可惜SimPlugOCR.dll字符识别插
件要收费,大兵插件的字识别功能到现在我还没弄懂....
#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上,您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
PutAttachment .\plugin
//========================查游戏窗口================================
VBSCall FindPic(0,0,1279,767,"Attachment:\11.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
Goto 程序开始
//Goto 挑任务
//Gosub 东郊
EndIf
If intX=-1 and intY=-1
MessageBox 找不到游戏窗口!
EndScript
EndIf
//=======================和龙城城主对话==============================
MoveTo intX,intY
Delay 500
RightClick 1
Delay 500
KeyPress 122,3
Rem 程序开始
VBSCall FindPic(0,0,1279,767,"Attachment:\22.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+13,y+78
Delay 500
LeftClick 1
Delay 500
//长老级
MoveTo intX-505,intY-155
//普通成员
//MoveTo intX-505,intY-143
Delay 500
LeftClick 1
Delay 500
MoveTo intX-505,intY-193
Delay 500
LeftClick 1
Delay 500
Goto 进入家族屋
Else
Delay 5000
Goto 程序开始
EndIf
//=====================缩小地图====================================
Rem 进入家族屋
Delay 500
KeyPress 122,3
Delay 2000
VBSCall FindPic(0,0,1279,767,"Attachment:\33.bmp",0.9,xx,yy)
If xx>=0 and yy>=0
Goto 找NPC
EndIf
If xx=-1 and yy=-1
MoveTo intX+45,intY-466
Delay 500
LeftClick 1
Delay 500
Goto 找NPC
EndIf
//=======================和祭师对话====================================
Rem 找NPC
Delay 500
MoveTo intX+22,intY-480
Delay 500
RightClick 1
Delay 20000
MoveTo intX-29,intY-463
Delay 500
RightClick 1
Delay 5000
Goto 挑任务
Rem 挑任务
VBSCall FindPic(0,0,1279,767,"Attachment:\44.bmp",0.9,Xx,Yy)
If Xx>=0 and Yy>=0
MoveTo Xx+17,Yy+75
Delay 200
LeftClick 1
Delay 200
MoveTo intX-470,intY-193
Delay 200
LeftClick 1
Delay 200
Goto 选任务
EndIf
If Xx=-1 and Yy=-1
Goto 找NPC
EndIf
//======================选龙城四周任务=========这是脚本的主要部份,现在我就是在这个部份弄不好,希望高手们帮帮忙====================
Rem 选任务
Delay 100
VBS dim s
//建立文字识别模块到aa
set aa=createobject("SimPlugOCR.OCR")
//使用字库ffo.txt
aa.Dict="ffo.txt"
//文字颜色为F8FCF8
aa.FontColor="F8FCF8"
//识别屏幕上从坐标intX-550,intY-291到intX-160,intY-150区域的文字
s= aa.OCR(intX-550,intY-291,intX-160,intY-150)
TracePrint s
//过滤字符串,只留下汉字
Plugin hz=DBSoft.WordSelect(s,0)
TracePrint hz
//判断
If hz="领取奖励"
MoveTo intX-505,intY-193
Delay 100
LeftClick 1
Delay 200
Goto 挑任务
//EndIf
//Plugin i=DBsoft.RemoveWord(hz,"城郊")
//TracePrint i
ElseIf hz="龙东"
MoveTo intX-505,intY-193
Delay 100
LeftClick 1
Gosub 东郊
ElseIf hz="龙南"
MoveTo intX-505,intY-193
Delay 100
LeftClick 1
Gosub 南郊
ElseIf hz="龙西"
MoveTo intX-505,intY-193
Delay 100
LeftClick 1
Gosub 西郊
ElseIf hz="龙北"
MoveTo intX-505,intY-193
Delay 100
LeftClick 1
Gosub 北郊
EndIf
Delay 100
KeyPress 27,1
Goto 挑任务
//====================================================================
Sub 东郊
Delay 500
MoveTo intX+27,intY-515
Delay 500
LeftClick 1
Delay 500
MoveTo intX-312,intY-525
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo intX-365,intY-123
Delay 500
LeftClick 1
Delay 500
MoveTo intX-325,intY-249
Delay 500
LeftClick 1
Delay 500
MoveTo intX-340,intY-164
Delay 500
RightClick 1
Delay 500
MoveTo intX-122,intY-524
Delay 500
LeftClick 1
Delay 20000
KeyPress 122,3
Delay 40000
Gosub 和使者对话
Return 东郊
//=====================================================================
Sub 南郊
Delay 500
MoveTo intX+27,intY-515
Delay 500
LeftClick 1
Delay 500
MoveTo intX-312,intY-525
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo intX-365,intY-123
Delay 500
LeftClick 1
Delay 500
MoveTo intX-408,intY-236
Delay 500
LeftClick 1
Delay 500
MoveTo intX-379,intY-152
Delay 500
RightClick 1
Delay 500
MoveTo intX-122,intY-524
Delay 500
LeftClick 1
Delay 20000
KeyPress 122,3
Delay 40000
Gosub 和使者对话
Return 南郊
//=====================================================================
Sub 西郊
Delay 500
MoveTo intX+27,intY-515
Delay 500
LeftClick 1
Delay 500
MoveTo intX-312,intY-525
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo intX-365,intY-123
Delay 500
LeftClick 1
Delay 500
MoveTo intX-415,intY-311
Delay 500
LeftClick 1
Delay 500
MoveTo intX-216,intY-293
Delay 500
RightClick 1
Delay 500
MoveTo intX-122,intY-524
Delay 500
LeftClick 1
Delay 20000
KeyPress 122,3
Delay 40000
Gosub 和使者对话
Return 西郊
//====================================================================
Sub 北郊
Delay 500
MoveTo intX+27,intY-515
Delay 500
LeftClick 1
Delay 500
MoveTo intX-312,intY-525
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo intX-365,intY-123
Delay 500
LeftClick 1
Delay 500
MoveTo intX-335,intY-310
Delay 500
LeftClick 1
Delay 500
MoveTo intX-328,intY-290
Delay 500
RightClick 1
Delay 500
MoveTo intX-122,intY-524
Delay 500
LeftClick 1
Delay 20000
KeyPress 122,3
Delay 40000
Gosub 和使者对话
Return 北郊
//=====================================================================
Sub 和使者对话
KeyPress 122,3
Rem 和使者对话
VBSCall FindPic(0,0,1279,767,"Attachment:\55.bmp",0.9,Nx,Ny)
If Nx>=0 and Ny>=0
MoveTo Nx+18,Ny+79
Delay 500
LeftClick 1
Delay 500
MoveTo intX-505,intY-193
Delay 500
LeftClick 1
Delay 500
KeyPress 27,1
Delay 500
MoveTo intX+27,intY-515
Delay 500
LeftClick 1
Delay 500
MoveTo intX-312,intY-525
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo intX-365,intY-123
Delay 500
LeftClick 1
Delay 500
MoveTo intX-375,intY-279
Delay 500
LeftClick 1
Delay 500
MoveTo intX-340,intY-304
Delay 500
RightClick 1
Delay 500
MoveTo intX-122,intY-524
Delay 500
LeftClick 1
Delay 30000
KeyPress 122,3
Delay 20000
Goto 程序开始
Else
Delay 7000
Goto 和使者对话
EndIf
Return 和使者对话 |
-
-
未命名.jpg
(83 KB)
脚本中所用到的图片的插件
|