TC官方合作论坛

 找回密码
 立即注册
楼主: qq113220715

[游戏] (源码在附件)发一个剑灵自动打怪脚本

  [复制链接]
发表于 2014-3-15 17:10:30 | 显示全部楼层
ffddse

回复

使用道具 举报

发表于 2014-3-15 19:27:17 | 显示全部楼层
487498
回复

使用道具 举报

发表于 2014-3-15 19:29:54 | 显示全部楼层
怪物的位置不是固定的啊。 怎么能的
回复 支持 反对

使用道具 举报

发表于 2014-3-15 19:35:32 | 显示全部楼层
/主命名空间
#include"value.t"
namespace main

function 主线程()
   
    main.自动打怪()
endfunction
function 自动打怪()
    var intX,intY,kyestateW,kyestateS,dm_ret,ret,count
    xy=数组[1]
    kyestateS=0
    kyestateW=0
    value.dm.MoveTo(698,280)
    //获取怪物坐标
    while(1>0)
        //打最近距离的怪
        dm_ret=value.dm.FindColorEx(1,2,792,596,"FBE556-020201",1.0,5)
        count =value.dm.GetResultCount(dm_ret)
        if(count>0)
            ret =value.dm.FindNearestPos(dm_ret,1,value.Px,value.Py)
            traceprint(ret)
            str.split(ret,",",xy)
            intX=xy[0]
            intY=xy[1]
            traceprint("怪物距离:"&intX&"怪物Y:"&intY)
            var xjl
            if(math.abs(intX-value.Px)>20)
                if(intX>value.Px )
                    keychar="W"
                    xjl=math.abs(intX-value.Px)
                    // traceprint("怪物在人物右边,距离:"&xjl)
                    value.dm.KeyDownChar("D")
                    help.sleep(xjl/value.ydsd)
                    value.dm.KeyUpChar("D")
                else
                    xjl=math.abs(intX-value.Px)
                    value.dm.KeyDownChar("A")
                    help.sleep(xjl/value.ydsd)
                    value.dm.KeyUpChar("A")
                    keychar="A"
                    
                endif
            endif
            var jl
            jl=value.Py-intY
            //traceprint("怪物距离:"&jl&"怪物Y:"&intY)
            if(intY<value.Py)
                if(kyestateW==0&&(value.Py-intY)>50)
                    traceprint("按下W")
                    value.dm.KeyDownChar("W")
                    kyestateW=1
                endif
                if((value.Py-intY)<40)
                    value.dm.KeyUpChar("W")
                    kyestateW=0
                    //traceprint("弹起W")
                endif
            else
                value.dm.KeyDownChar("S")
                help.sleep(help.randto(800,1500))
                value.dm.KeyUpChar("S")
            endif
            if((value.Py-intY)<40&&intY>0)
                main.使用技能()
                continue
            endif
        else
            traceprint("没有发现怪")
            value.dm.LeftDown()
            var x,y
            value.dm.GetCursorPos(x,y)
            value.dm.MoveTo(x+help.randto(300,600),280)
            help.sleep(help.randto(300,400))
            value.dm.LeftUp()
            help.sleep(help.randto(1500,2000))
        endif
        help.sleep(help.randto(60,60))
    endwhile
    help.sleep(help.randto(30,40))
endfunction

function 判断是否遇到怪物()
    var intX,intY
    value.dm.FindColor(690,603,915,657,"EE7338-000401",1.0,5,intX,intY)
    if(intX>0&&intY>0)
        return 1
    else
        return 0
    endif
endfunction

function 使用技能()
    for(i=0; i<5 ;i++)

完全看不懂
回复 支持 反对

使用道具 举报

发表于 2014-3-15 19:37:31 | 显示全部楼层
浏览框.获得("浏览框0")
回复 支持 反对

使用道具 举报

发表于 2014-3-16 18:28:24 | 显示全部楼层
楼主,有木有剑灵刷衣料的脚本
回复 支持 反对

使用道具 举报

发表于 2014-3-16 18:46:46 | 显示全部楼层
不错
回复

使用道具 举报

发表于 2014-3-17 00:10:23 | 显示全部楼层
瞅瞅
回复

使用道具 举报

发表于 2014-3-17 01:55:52 | 显示全部楼层
回复

使用道具 举报

发表于 2014-3-17 11:36:24 | 显示全部楼层
学习学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-9-30 00:53 , Processed in 0.039857 second(s), 19 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表