脚本刷征服
A. 征服自动打怪脚本
要什么脚本.别的没有.捐官精灵我到是有.不用手动.开起来只要按F10就会自动开始捐.捐到你没TS为止.
B. 跪求征服脚本!
VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///储存此时坐标/开始主脚本rem beginIfExpression l<=r0While 1IfExpression k>-91 and,
C. 帝国时代2 征服者地图脚本编辑器怎么弄场景
创建好你想要的场景后,保存,然后你可以在战役编辑器里找到你所创的场景,选中后点添加,在定制战役里面就可以找到它了
D. 征服服务端里面写脚本放在什么地方,文件是什么格式的
你用管理工具添加了就是添加到服务瑞了的了! 然后要在客户瑞的INI文件夹里面的shop.dat添加,就可以显示出来了!在itemtype.dat里面修改显示价格(这个文件要解密才可以用)
E. 谁知道按键精灵怎么弄征服的自动复活脚本
你自己写吧 我就是自己写的,挂机的都是自己写的,你把游戏的那个自动复活的按钮在游戏中的坐标弄出来,自己在写程序时候+入重复进程中。让键盘的按钮总是持续按下 命令上。这样就可以只要死了 按钮就持续点击游戏上的复活按钮的,很简单 就看你怎么想或者怎么实现
F. 写个脚本,脚本内容就是点击下面那个“征服”按钮,怎么写
如果是不间断的按这个按钮的话,直接弄一个时间间隔的Enter键就好的。把鼠标箭头放在征服位置
G. 500高分跪求《征服-纵马江湖》勇士练级挂机的按键精灵脚本!!
[replyview] vbs dim r0,l,m,k,dx,dy,x,y,a,b,starttime,sunhao2,xue2,color0,color//固定半径r0=100VBS l=10 /圆半径VBS m=5 /圆半径VBS k=-90 /圆的渐变率vbs dx=1 /区的判断值 goSub 注册rem 注册用户goSub 加血提示goSub 损耗度提示gosub 半径a,b /鼠标初始坐标,开始时取得坐标值输入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///储存此时坐标///////////////////////////////////开始主脚本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //获得动态坐标EndIf IfExpression k>269 and k<630Gosub sub2 //获得动态坐标EndIf gosub 注册用户打怪VBS k=k+1 /圆的渐变率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////对应开始的循环vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///储存此时坐标 VBS l=10 /圆半径 VBS m=5 /圆半径 VBS k=-90 /圆的渐变率 endifgoto begin ////////以下为非注册用户 rem 非注册用户gosub 启动时间goSub 加血提示goSub 损耗度提示 gosub 半径a,b /鼠标初始坐标,开始时取得坐标值输入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///储存此时坐标///////////////////////////////////开始主脚本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //获得动态坐标EndIf IfExpression k>269 and k<630Gosub sub2 //获得动态坐标EndIf gosub 非注册用户打怪VBS k=k+1 /圆的渐变率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////对应开始的循环vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///储存此时坐标 VBS l=10 /圆半径 VBS m=5 /圆半径 VBS k=-90 /圆的渐变率 endifgoto begin /////////////////////////////////////////////////以上为非注册用户代码 Sub sub1VBS x=a+cos((k*3.1415926)/180)*lVBS y=b+sin((k*3.1415926)/180)*lReturn Sub sub2VBS x=a+cos((k*3.1415926)/180)*mVBS y=b+sin((k*3.1415926)/180)*mReturn /////////////////////////////////////////////////////////一下是件东西命令 Sub 捡东西vbs dim gx,gy,cx,xy VBSCall Call GetCursorPos(cx,cy)@<stdlib.vbs> //获得当前坐标,方便回到以前轨迹 VBSCall Call FindColor(x-100,y+100,x+100,y-100,"8CE3FF",gx,gy)@<stdlib.vbs> //捡金子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"EFE3EF",gx,gy)@<stdlib.vbs>/////捡银子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF55F7",gx,gy)@<stdlib.vbs>/////捡流星 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF75CE",gx,gy)@<stdlib.vbs>/////捡龙猪 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf Return ///////////////////////////////////////////一下是退出游戏命令 sub 死后回城退出IfColor 63 729 5a7584 0 KeyPress 115 1 Delay 3000 MoveTo 464 709 LeftClick 1 Delay 10000 SayString 大家玩好,我下了,先!! KeyPress 13 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf return ////////////////////////////////////////////下面是关机命令 sub 关机Delay 4000KeyDown 91 1KeyPress 82 1KeyUp 91 1Delay 50KeyPress 8 1Delay 100SayString Shutdown.exe -s -t 0Delay 1000KeyPress 13 1return /////////////////////////////////////////////////下面是加血以及损耗度命令 Sub 加血提示vbs dim xue2 VBSCall xue2=InputBox("请输入补血最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(xue2)>=5000 VBSCall Call MessageBox("注意您补血设定值"&xue2&" 太高!")@<stdlib.vbs> ElseIf cint(xue2)<=50 VBSCall Call MessageBox("注意您补血设定值"&xue2&" 太低!")@<stdlib.vbs> EndIf EndIf ReturnSub 加血vbs dim xue1,xue2 VBSCall Call ReadMemory(&h00E50CC0,2,xue1) If cint(xue1)<=cint(xue2) KeyPress 112 1 EndIf Return Sub 损耗度提示vbs dim sunhao2 VBSCall sunhao2=InputBox("请输入损耗度允许的最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(sunhao2)>=100 VBSCall Call MessageBox("注意您损耗度设定值:"&sunhao2&" ;设置太高呀!!!")@<stdlib.vbs> ElseIf cint(sunhao2)<=10 VBSCall Call MessageBox("注意您损耗度设定值:"&sunhao2&" ;设置太低呀!!!")@<stdlib.vbs> EndIf EndIf Return Sub 损耗度低退出vbs dim sunhao1,sunhao2 VBSCall Call ReadMemory(&h0504D52A,2,sunhao1) If cint(sunhao1)<=cint(sunhao2) KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 2000 MoveTo 621 481 LeftClick 1 Delay 2000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return Sub 技能 vbs dim xf VBSCall Call ReadMemory(&h0053ACA8,2,xf) If cint(xf)=100 KeyPress 121 1 EndIf Return Sub 限时 vbs dim stoptime,starttime VBS stoptime=timer VBS t=stoptime-starttime If t>=600000 VBSCall Call MessageBox("使用时间已到,请注册,谢谢使用!联系:[email protected]") MoveTo 671 757 LeftClick 1 Delay 400 MoveTo 621 481 LeftClick 1 Delay 400 MoveTo 469 413 LeftClick 1 Delay 80 KeyDown 91 1 KeyPress 82 1 KeyUp 91 1 Delay 20 KeyPress 8 1 Delay 50 SayString Shutdown.exe -s -t 0 Delay 10 KeyPress 13 1 Gosub 终止脚本 EndIf Return Sub 注册 VBS dim sn1,sn2,sn3 VBSCall sn1=InputBox("请输入帐号:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 VBS sn3="ascii"+sn1 VBSCall sn2=InputBox("请输入注册码:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 If StrComp(sn2,sn3)=0 VBSCall Call MessageBox("谢谢使用!请注册!未注册用户试用10分钟,联系:[email protected]") Goto 非注册用户 elseif StrComp(sn2,sn3)=1 VBSCall Call MessageBox("谢谢您的注册和支持,请关注我们为您提供的升级服务!联系:[email protected]") Goto 注册用户 EndIf Return sub 药少退出vbs dim yaoVBSCall Call ReadMemory(&h00F92ABC,2,yao) If cint(yao)<=3 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return sub 半径vbs dim roVBSCall ro=InputBox("请输入挂机范围(建议:100~150):")Return Sub 血少退出vbs dim blood VBSCall Call ReadMemory(&h00E50CC0,2,blood) If cint(blood)<=800 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return sub 终止脚本 VBSCall Call MessageBox("谢谢使用!请提出建议并注册,联系:[email protected] 再见!")EndScriptReturn sub 启动时间vbs dim starttimeVBS starttime=timerReturn Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前,获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较,不同,则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 EndIf //该点判断结束 Delay 10 //循环延时///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,“0000BD”,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判断VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前,获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较,不同,则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 //打怪延时 EndIf //该点判断结束 Delay 10 //循环延时VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000 return //////////////////////////////////// Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前,获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较,不同,则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 EndIf //该点判断结束 Delay 10 //循环延时///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,“0000BD”,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判断VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前,获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较,不同,则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 //打怪延时 EndIf //该点判断结束 Delay 10 //循环延时VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000 return[/replyview]