【官方】高级教程——跑镖任务实战脚本上集 _ 教程

查看: 10184\|回复: 0	【官方】高级教程——跑镖任务实战脚本上集 [复制链接]

发送短消息 UID 310264 帖子 329 精华 6 鲜花 586 朵铜币 738 个银币 159 个性别在线时间 40740 注册时间 2009-09-11 最后登录 2021-12-07 查看公共资料搜索主题搜索帖子阿皮阿皮组别按键精灵会员 UID310264 帖子329 精华6 鲜花586 朵铜币738 个银币159 个在线时间40740 注册时间2009-09-11 黄瓜勋章体验商业小精灵活动的奖励管理人员按键论坛的管理团队专属勋章小红帽对论坛提出良好建议（可向管理员申请）	1^# 字体大小: t T 发表于 2010-11-24 18:31 \| \|只看楼主【官方视频】高级教程——跑镖任务实战脚本上集今天为大家带来实战的跑镖脚本的制作，其实并不难，用到的都是一些学过的基本知识，更多的是命令的复制粘贴。做这类脚本，主要是要有一个清晰的思路，可以先用笔画出流程，再一步一步实现。如无法观看，请点击下载：按键精灵视频教程全集视频版本： http://www.aipai.com/c9/ODY9JSkmIWgnai8h.html 上集源代码 Hwnd = Plugin.Window.GetKeyFocusWnd() sRect = Plugin.Window.GetClientRect(Hwnd) Dim MyArray MyArray = Split(sRect, "\|") Ux = CLng(MyArray(0)) Uy = CLng(MyArray(1)) While true KeyPress "Tab", 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\寻路.bmp",0.9,luX,luY If luX > 0 And luY > 0 Then i=1 End If Delay 200 Wend Delay 200 MoveTo luX, luY + 35 Delay 50 LeftClick 1 Delay 200 SayString "快刀手郭志" Delay 200 MoveTo luX, luY + 94 Delay 50 LeftClick 1 Delay 200 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\世道.bmp",0.9,shiX,shiY If shiX > 0 And shiY > 0 Then i=1 End If Delay 200 Wend MoveTo shiX, shiY + 57 Delay 50 LeftClick 1 MoveTo Ux + 1, Uy + 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\商人.bmp",0.9,shangX,shangY If shangX > 0 And shangY > 0 Then i=1 End If Delay 200 Wend MoveTo shangX + 40, shangY + 30 Delay 50 LeftClick 1 Delay 50 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\地图.bmp",0.9,diX,diY If diX > 0 And diY > 0 Then i=1 End If Delay 200 Wend MoveTo diX - 319, diY + 314 Delay 50 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\黄泥岗.bmp",0.9,huangX,huangY If huangX > 0 And huangY > 0 Then i=1 End If Delay 200 Call 战斗() Wend MoveTo diX + 71, diY + 297 Delay 50 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\星秀村.bmp",0.9,xingX,xingY If xingX > 0 And xingY > 0 Then i=1 End If Delay 200 Call 战斗() Wend KeyPress "Tab", 1 Delay 200 KeyPress "Tab", 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\寻路.bmp",0.9,luX,luY If luX > 0 And luY > 0 Then i=1 End If Delay 200 Wend Delay 200 MoveTo luX, luY + 35 Delay 50 LeftClick 1 Delay 200 SayString "护卫队队员" Delay 200 MoveTo luX, luY + 94 Delay 50 LeftClick 1 Delay 200 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\做的很好.bmp",0.9,zuoX,zuoY If zuoX > 0 And zuoY > 0 Then i=1 End If Delay 200 Call 战斗() Wend MoveTo zuoX + 30, zuoY + 30 Delay 50 LeftClick 1 Delay 200 KeyPress "Tab", 1 Delay 200 KeyPress "Tab", 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\寻路.bmp",0.9,luX,luY If luX > 0 And luY > 0 Then i=1 End If Delay 200 Wend Delay 200 MoveTo luX, luY + 35 Delay 50 LeftClick 1 Delay 200 SayString "驿站售票员" Delay 200 MoveTo luX, luY + 94 Delay 50 LeftClick 1 Delay 200 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\我们驿站.bmp",0.9,woX,woY If woX > 0 And woY > 0 Then i=1 End If Delay 200 Wend MoveTo woX + 40, woY + 30 Delay 50 LeftClick 1 i = 0 While i=0 FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\应天府.bmp",0.9,yingX,yingY If yingX > 0 And yingY > 0 Then i=1 End If Delay 200 Wend KeyPress "Tab", 1 Delay 200 Wend Sub 战斗() FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\自动.bmp",0.9,ziX,ziY If ziX > 0 And ziY > 0 Then Delay 1000 MoveTo ziX + 10, ziY + 10 Delay 50 LeftClick 1 Delay 50 MoveTo Ux+400,Uy+300 End If End Sub 复制代码
	点赞

	回顶部

上一主题| 下一主题

【官方】高级教程——跑镖任务实战脚本上集 [复制链接]