你的位置：
传奇SF自动打怪捡东西脚本帮忙高手帮忙看下
23:29:07 |
来源: 按键精灵资源站
Description=打怪v0.6
BeginHotkey=81
BeginHotkeyMod=2
[CallBack]
//大小地图比例
VBS scale=30
//小地图上的最大距离，可以保证人物与怪在一个屏幕
//人怪相邻时的距离
//纪录停步时间
//表示移动方向上的偏移,左，下，右，上
VBS dim dirt(4,2)
VBS dirt(0,0)=-30
VBS dirt(0,1)=0
VBS dirt(1,0)=0
VBS dirt(1,1)=80
VBS dirt(2,0)=30
VBS dirt(2,1)=0
VBS dirt(3,0)=0
VBS dirt(3,1)=-30
VBS dim dirt2(4,2)
VBS dirt2(0,0)=-100
VBS dirt2(0,1)=0
VBS dirt2(1,0)=0
VBS dirt2(1,1)=150
VBS dirt2(2,0)=100
VBS dirt2(2,1)=0
VBS dirt2(3,0)=0
VBS dirt2(3,1)=-100
//打怪时鼠标的偏移量，从站的位置开始,从左开始
VBS dim fight(8,2)
VBS fight(0,0)=-40
VBS fight(0,1)=-40
VBS fight(1,0)=-25
VBS fight(1,1)=25
VBS fight(2,0)=5
VBS fight(2,1)=19
VBS fight(3,0)=25
VBS fight(3,1)=25
VBS fight(4,0)=35
VBS fight(4,1)=-20
VBS fight(5,0)=30
VBS fight(5,1)=-30
VBS fight(6,0)=0
VBS fight(6,1)=-50
VBS fight(7,0)=-30
VBS fight(7,1)=-30
//定义一个随机数
VBS rand=5
//小地图上人物坐标，此坐标固定
VBS role_x0=739
VBS role_y0=59
//大地图上人物站立位置，此坐标固定，取两脚之间的一点
VBS stand_x=390
VBS stand_y=210
VBS role_x1=390
VBS role_y1=140
//小地图上表示怪物的一点颜色为#0000FF
//小地图位置:左上角680,0& && &&&左下角680,120& && &&&右下角800,120& && &&&右上角800,0
//=====================寻找身边是否有怪==========================
VBSCall Call FindCenterColor(role_x0-d,role_y0-d,role_x0+d,role_y0+d,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & //在身边直接打怪
& & //八个打怪的方向，从左开始，逆时针打过来
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=0
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=1
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=2
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=3
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=4
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=5
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=6
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=7
& & click_x=stand_x+fight(iii,0)
& & click_y=stand_y+fight(iii,1)
& & If iii=2
& && &&&click_x=stand_x
& && &&&click_y=stand_y
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 500
& & Goto 杀怪
//========================寻找小地图上怪物坐标===========================
VBSCall Call GetCursorPos(x,y)
VBSCall new_color=GetPixelColor(x,y)
VBSCall Call FindCenterColor(680,0,800,120,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在左上侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y-50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在左下侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y+50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在右上侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y-50
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在右下侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y+50
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 1000
& & //路径上有障碍,这样3秒之后还站在原地，随机变向
& & If t&=3
& && &&&t=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &VBSCall Call rnd=Rnd
& && && && &If rnd&=0 and rnd&0.25
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.25 and rnd&0.5
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &If rnd&=0.5 and rnd&0.75
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.75 and rnd&=1
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &MoveTo click_x click_y
& && && && &RightDown 1
& && && && &Delay 1000
& && && && &RightUp 1
& && &&&EndIf
& && &&&old_color=new_color
& & //=====================没怪跑路===========================
& & click_x=stand_x+dirt2(ii,0)
& & click_y=stand_y+dirt2(ii,1)
& & MoveTo click_x click_y
& & //LeftClick 1 走方式
& & RightDown 1
& & Delay 1000
& & RightUp 1
& & tt=tt+1
& & //路上遇到障碍，随机变道
& & If tt&=2
& && &&&tt=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &ii=ii+1
& && && && &If ii&=4
& && && && && & VBSCall Call rnd=Rnd
& && && && && & If rnd&=0 and rnd&0.25
& && && && && && &&&ii=0
& && && && && & EndIf
& && && && && & If rnd&=0.25 and rnd&0.5
& && && && && && &&&ii=1
& && && && && & EndIf
& && && && && & If rnd&=0.5 and rnd&0.75
& && && && && && &&&ii=2
& && && && && & EndIf
& && && && && & If rnd&=0.75 and rnd&=1
& && && && && && &&&ii=3
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
& && &&&old_color=new_color
//==================拾取金币=============================
VBSCall Call FindColor(stand_x-100,stand_y-100,stand_x+100,stand_y+100,&00FFFF&,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & LeftClick 1
& & Delay 1000
& & Goto 拾金帖子197&精华0&积分166&豌豆119 &阅读权限30&在线时间45 小时&注册时间&最后登录&
求按键精灵自动打怪，自动捡极品的脚本
小弟电脑知识懂的不多，没有什么BUG，不懂什么GBK还是什么的，懂的教教我。
& &想做个自动打怪的脚本还不成功。希望各位大侠帮帮忙。自动捡东西的就更加不会了。本人第一次做成功的脚本就是看别人做了一个，然后模仿，尝试改进之后做的。相信各位给我发个脚本，我学了后也会自己做的。
& &要把源文件发上来的，不要让我下载什么东西。
帖子564&精华0&积分556&豌豆207 &阅读权限30&在线时间60 小时&注册时间&最后登录&
要把源文件发上来的，不要让我下载什么东西。
帖子505&精华0&积分641&豌豆0 &阅读权限40&在线时间258 小时&注册时间&最后登录&
对于电脑软件方面来计算的话，我只能算武当山的清风明月（最末代弟子）
楼主你的水准就是武当山脚下某路人家的儿子........养的狗
帖子2779&精华0&积分2899&豌豆30 &阅读权限50&在线时间714 小时&注册时间&最后登录&
楼主被鄙视了
我想。。。。。
帖子708&精华0&积分821&豌豆38 &阅读权限40&在线时间304 小时&注册时间&最后登录&
楼主遭的惨。。。。还不敢喊
我要人穷格式在，再背时也要叼根长烟袋，哪怕只有一颗米，就是炒我也要吃干的，坚决不吃稀饭。
帖子197&精华0&积分166&豌豆119 &阅读权限30&在线时间45 小时&注册时间&最后登录&
...哥们 不说就算了。不用骂人吧
帖子592&精华0&积分676&豌豆13 &阅读权限40&在线时间480 小时&注册时间&最后登录&
看让折磨的 谁让你玩传奇呢&&只好让盛犬给糊弄了.
帖子9&精华0&积分14&豌豆10 &阅读权限10&在线时间4 小时&注册时间&最后登录&
哎。。。。。。。传奇是说不出的痛啊。。。。。。
[通过 QQ、MSN 分享给朋友]