snowman365
信息:
来自:未填
发贴:5 贴
积分:2 点
货币:107 分
注册时间:2005/01/04
|
|
资料 好友 消息
引用回复
| 别人做的脚本你们研究一下啊 | |
| 全屏游戏 如发现问题请及时反映.. (1)自动换武器.只换一次,放第一项第1格 (2)自动丢垃圾.第一项2,3,4,5格和第二的1,2,3,4,5格放满些红,蓝,或材料.(如果你不想要红药,就可以把红药放在第三项哦,负重满了才丢垃圾..) (3)强化了捡黄色物品. 被免异人宝宝身上的黄色.但也不是100%哦. (4)防出错功能. 100%被免走到地图的边缘会出错卡了.(这功能是tyaaab写的,这个源码我找不到啊,希望min提供). (5)自动拣物..这个不用介绍了吧 (6)要修改配置文件 捡绿色装备...最好不要显示人物头上的血条 丢垃圾只留着黄色和绿色的.. Q补 W招 E辅 1,2红3,4蓝 改配置文件很简单: 1、 首先找到封神的安装目录下有个叫userdata的文件夹,打开看看有几个类似a93601f6l67e3e5802的文件夹,如果只有一个,那就略去下面第二步。 2、删除除temp文件夹之外所有的东西,进入游戏,再退出。 3、再次打开userdata文件夹,你会发现又产生了一个文件夹,打开这个新产生的文件夹,里面有个文本文件uiconfig.ini,打开他,找到下面几行: 32=AddCommand(\"Q\", \"\", \"ShortcutSkill(0)\") 33=AddCommand(\"W\", \"\", \"ShortcutSkill(1)\") 34=AddCommand(\"E\", \"\", \"ShortcutSkill(2)\") 35=AddCommand(\"A\", \"\", \"ShortcutSkill(3)\") 36=AddCommand(\"S\", \"\", \"ShortcutSkill(4)\") 37=AddCommand(\"D\", \"\", \"ShortcutSkill(5)\") 38=AddCommand(\"Z\", \"\", \"ShortcutSkill(6)\") 39=AddCommand(\"X\", \"\", \"ShortcutSkill(7)\") 40=AddCommand(\"C\", \"\", \"ShortcutSkill(8)\") 然后开始修改了,我举例子吧,我习惯用Q键补心,W键招宝宝,其他键我暂时不设,那么我把32=AddCommand(\"Q\", \"\", \"ShortcutSkill(0)\")改为32=AddCommand(\"Q\", \"\", \"DirectShortcutSkill(0)\"),34=AddCommand(\"W\", \"\", \"ShortcutSkill(2)\")改为34=AddCommand(\"W\", \"\", \"DirectShortcutSkill(2)\")。也就是加了个Direct,注意,第一个字母要大写。 4、进入游戏,把Q和E设为你想设置的技能,然后按Q和E就可以直接执行Q和E键所代表的技能了,不用再点鼠标右键了!改之前你按Q和E是把Q和E代表的技能调到右键,然后要点鼠标右键才能执行,改了以后就直接执行了,不会调到右键,也不用点鼠标右键了!好处是不用切换,右键可以一直放某个技能了,比如我就一直放强攻咒,这样在补血的时候,强攻咒也同时有效,不会消失了 迟些加入仇杀自动重登,防止被杀. 2005.1.3 22:33更新 [COLOR=red]更新内容:加了判断捡东西,把抓点换了抓图.有什么错误请及时反映 谢谢 VBS dim x,y,gx,gy MoveTo 749 131 Delay 300 LeftClick 1 MoveTo 690 100 Delay 300 LeftClick 1 KeyPress 87 1 EndIf Rem 0 IfColor 150 40 393839 0 KeyPress 49 1 Delay 100 KeyPress 50 1 Delay 500 EndIf IfColor 50 50 393839 0 KeyPress 51 1 Delay 100 KeyPress 52 1 Delay 500 EndIf VBSCall Call FindPic(591,591,730,559,\"携.bmp\",0.9,x,y) IfExpression x>100 and y>100 Goto reng EndIf IfColor 719 210 1010ff 0 IfColor 720 189 1010ff 0 IfColor 718 188 ffffff 0 Goto huang EndIf EndIf EndIf VBSCall Call FindPic(591,591,730,559,\"别.bmp\",0.9,x,y) IfExpression x>100 and y>100 Goto daguai EndIf VBSCall Call FindColor(100,100,700,550,\"ceba6b\",x,y) IfExpression X>=0 and Y>=0 VBS x=x+10 VBS y=y+5 VBSCall Call SetCursorPos(x,y) LeftClick 1 Delay 2000 Goto 0 EndIf VBSCall Call FindColor(100,100,700,550,\"00FF00\",x,y) IfExpression X>=0 and Y>=0 VBS x=x+10 VBS y=y+5 VBSCall Call SetCursorPos(x,y) LeftClick 1 Delay 2000 Goto 0 EndIf VBSCall Call FindColor(100,100,700,500,\"FFFF\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 VBSCall a=GetPixelColor(gx,gy)@<stdlib.vbs> Delay 800 VBSCall b=GetPixelColor(gx,gy)@<stdlib.vbs> IfExpression a=b Delay 800 VBSCall c=GetPixelColor(gx,gy)@<stdlib.vbs> IfExpression c=b VBS x=gx+12 VBS y=gy+10 Delay 200 VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> Delay 100 LeftClick 1 Delay 2000 Goto 0 EndIf EndIf EndIf IfColor 150 40 393839 0 KeyPress 49 1 Delay 100 KeyPress 50 1 Delay 500 EndIf IfColor 50 50 393839 0 KeyPress 51 1 Delay 100 KeyPress 52 1 Delay 500 EndIf Rem daguai VBSCall Call FindColor(714,77,722,83,\"FF30A5\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 Goto 1 EndIf VBSCall Call FindColor(710,74,726,86,\"FF30A5\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 Goto 1 EndIf VBSCall Call FindColor(704,70,730,90,\"FF30A5\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 Goto 1 EndIf Goto 2 Rem 1 VBS x=16*(gx-718)+420 VBS y=16*(gy-80)+270 VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> LeftClick 1 Delay 100 LeftClick 1 Delay 2000 IfColor 130 40 393839 0 KeyPress 49 1 Delay 100 KeyPress 50 1 Delay 500 IfColor 125 50 393839 0 KeyPress 51 1 Delay 100 KeyPress 52 1 Delay 500 EndIf KeyPress 87 1 RightClick 1 Delay 500 KeyPress 69 1 EndIf IfColor 50 50 393839 0 KeyPress 51 1 Delay 100 KeyPress 52 1 Delay 500 EndIf IfColor 160 40 393839 0 KeyPress 87 1 Delay 1000 KeyPress 69 1 Delay 1000 EndIf Goto 0 Rem 2 VBSCall Call FindColor(650,40,770,130,\"4A82CE\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 VBS x=16*(gx-718)+890 VBS y=16*(gy-80)+280 VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> LeftClick 1 Delay 2000 KeyPress 86 1 EndIf Rem 3 VBSCall Call FindColor(704,70,730,90,\"FF30A5\",gx,gy)@<stdlib.vbs> IfExpression gx>-1 Goto 0 EndIf Goto 3 Rem reng KeyPress 115 1 VBS dim i,j,x0,y0,gx1,gy1 VBS i=0 For 5 VBS j=0 For 5 Delay 200 MoveTo 690 150 Delay 50 VBS x0=618+j*36:y0=249+i*36 VBSCall Call SetCursorPos(x0,y0)@<stdlib.vbs> Delay 500 VBSCall Call FindColor(600,300,780,445,\"7B797B\",gx1,gy1)@<stdlib.vbs> IfExpression gx1<100 and gy1<100 VBSCall Call FindColor(600,300,780,445,\"00FFFF\",gx1,gy1)@<stdlib.vbs> IfExpression gx1<100 and gy1<100 Delay 200 LeftClick 1 Delay 1000 MoveTo 601 90 LeftClick 1 Delay 500 EndIf EndIf VBS j=j+1 EndFor VBS i=i+1 EndFor KeyPress 115 1 Goto 0 Rem huang KeyPress 115 1 Delay 3000 MoveTo 556 279 Delay 100 LeftClick 1 Delay 3000 MoveTo 617 176 Delay 100 LeftClick 1 Delay 3000 MoveTo 556 279 Delay 100 LeftClick 1 Delay 3000 KeyPress 115 1 Goto 0[广告] 搜索专家13周年庆典之经典依旧,真情回馈活动
|
|