寻仙吧 关注:432,976贴子:18,912,679
  • 12回复贴,共1

寻仙脚本谁说不可以用按键精灵自己做呢? 后面开始添加教程

只看楼主收藏回复


有的同学说,按键精灵如何控制人物自动加血,这里有个小方法请大家自己阅读。
测算血量的方法非常简单,就是你的血量如果是满的话,那么整个血条都是红色的,如果被怪伤害,血条就会短了一小段,空出来的一小段是其他颜色的,这时候使用按键精灵的颜色辨别方法,比如你设置血量少于50%可以加血,那么就是说你在血条50%处设置一个颜色点,如果颜色变更,直接加血。!!


1楼2012-11-26 14:54回复
    做脚本……很费事的……难道楼主已经做出来了……强烈要求分享……


    来自手机贴吧2楼2012-11-26 15:06
    收起回复
      2025-05-09 23:47:42
      广告
      自动打怪
      先带领大家了解一下按键精灵的使用方法,见百度文档。
      http://wenku.baidu.com/view/265cab1b10a6f524ccbf85bf.html


      5楼2012-11-26 15:35
      回复
        [Script]UserVar hongBF=70 血量少于百分之多少时,自动吃红。
        UserVar lanBF=30 蓝少于百分之多少时,自动吃蓝。
        UserVar dihui=15 血量少于百分之多少时,自动回城。
        UserVar hongyanshi=128 补红延时,1000=1秒
        UserVar lanyanshi=128 补蓝延时,1000=1秒
        UserVar wuguaiT=600 无怪时间,超过多少秒时间找不到怪自动报警。
        UserVar fhong=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=0 红位置
        UserVar flan=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=1 蓝位置
        UserVar fdanJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=2 第一击JN位置
        UserVar fqunJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=3 群JN位置
        UserVar fjianqu=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=4 捡东西小手
        UserVar f15JN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=7 15级跑JN
        UserVar fhuicheng=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=8 回城F
        UserVar beidong=DropList{是:0|否:1}=0 直接群攻UserVar fightT=30 技能防卡时间,为打死一只怪的最大时间(秒)。
        UserVar Fanwei=40 战斗范围,请大于20
        UserVar quanshu=3 搜索圈数
        UserVar StepX=82 左右搜索距离
        UserVar StepY=66 上下搜索距离
        UserVar SearchT=32 搜索时间间隔,越小搜怪越快,1000=1秒
        UserVar baojing=DropList{回城打坐:0|回城报警:1|回城关机:2}=0 回城后
        VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,colorVBS Dim objFMVBS Set objFM=CreateObject("QMDispatch.QMFunction")
        VBS Dim ScreenWidth,ScreenHeightVBSCall GetScreenResolution(ScreenWidth,ScreenHeight)CenterX = (ScreenWidth \ 2) - 1CenterY = (ScreenHeight \ 2) - 1VBS Dim MonX,MonY,TargetX,TargetY,DirectSIN,DirectCOS,MouseX,MouseY,lngHoldVBS MonX=0:MonY=0:DirectSIN=0:DirectCOS=1Gosub 快捷键设置Gosub LookDownGosub 补红蓝
        VBSCall GetCurXY(CurX,CurY)@<find.vbs>
        VBS TargetX=CurX
        VBS TargetY=CurYSayString CurX


        6楼2012-11-26 15:36
        回复
          留名!


          IP属地:江西来自iPhone客户端8楼2012-11-26 17:09
          回复
            马克


            来自手机贴吧9楼2013-10-18 11:20
            回复