【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成品

社区服务
高级搜索
猴岛论坛CF穿越火线【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成品
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
15个回复

【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成品

楼层直达
小心超人.

ZxID:18438366

等级: 上将
举报 只看楼主 使用道具 楼主   发表于: 2013-04-12 0
基本的都写好了就向下拉页面没有写好 有能力的改改,做一个字库,和一个界面就可以了,   (老漩涡参考一下我这种判断找房,也许能提高效率)



手机党,只能这样子




















*Event Form1.Load
    颜色质量 = Plugin.Sys.GetScDep()
    kd = Plugin.Sys.GetScRX()
    gd = Plugin.Sys.GetScRY()
    Call Plugin.File.WriteINI("颜色质量", "颜色质量0", 颜色质量, ".\Config.ini")
    Call Plugin.File.WriteINI("屏幕分辨率", "宽度", kd, ".\Config.ini")
    Call Plugin.File.WriteINI("屏幕分辨率", "高度",gd, ".\Config.ini")
    Call Plugin.Sys.SetSc(800,600,32)
    If 颜色质量  32 or kd  800 OR gd600 Then
     MsgBox "你的电脑不符合软件要求,已自动设置,软件关闭后会自动还原"
    End If    
End Event
Event Form1.UnLoad
    还原kd = Plugin.File.ReadINI("屏幕分辨率", "宽度", ".\Config.ini")
    还原gd = Plugin.File.ReadINI("屏幕分辨率", "高度", ".\Config.ini")
    还原颜色质量 = Plugin.File.ReadINI("颜色质量", "颜色质量0", ".\Config.ini")
    Call Plugin.Sys.SetSc(还原kd,还原gd,还原颜色质量)
End Event*/
//========================================↑↑↑启动窗口↑↑↑=================================================
//===========================================↓↓↓流程↓↓↓===================================================
dm.SetPath "C:\Users\admins\Desktop\新建文件夹 (11)"
dm_ret = dm.SetDict(0,"挑战找房字库.txt")
频道I = 1
CALL 选择频道
Call 判断进入频道
Call 寻找需要坐标
Call 计算
Call 核心
Sub 核心
    For 13
        For 3
            For 13
                Call 判断_地图
                //寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y
                寻找区域Y = 寻找区域Y + 22
                寻找区域二Y = 寻找区域二Y + 22
            Next
            Call 计算

        Next
        KeyPress "Esc", 1
        Delay 100
        Call 计算频道
        Call 选择频道
        Call 判断进入频道
    Next
End Sub

Sub 移动滑动条
  dm.MoveTo 箭头X+10, 箭头Y+22
                Delay 20
                dm.LeftDown 1
                Delay 20
                MoveR 0, 89
                Delay 20
                LeftUp 1
End Sub


Sub 选择频道
    Do
        dm_ret = dm.FindStr(0,0,2000,2000,"频道"&频道ID,"ffffff-000000",1.0,频道X,频道Y)
        If 频道X > 0 and 频道Y> 0 Then
            dm.MoveTo 频道X, 频道Y
            Delay 100
            //            dm.LeftDoubleClick 1
            TracePrint 频道X&","&频道Y
            Exit Do
        End If
    Loop
    频道I = 频道I + 1
    TracePrint 频道I
    //    MessageBox "成功"
End Sub
Sub 判断进入频道
    Do
        dm_ret = dm.FindStr(0,0,2000,2000,"回合","ffffff-000000",1.0,回合X,回合Y)
        If 回合X > 0 and 回合Y > 0 Then
            dm.MoveTo 回合X, 回合Y
            Delay 100
            //            dm.LeftDoubleClick 1
            Exit Do
        End If
    Loop
    TracePrint 回合X & ","&回合Y
End Sub
Sub 寻找需要坐标
    Do
        地图坐标判断 = dm.FindStr(0, 0, 2000, 2000, "房间名", "edda97-000000", 1.0, 房间名X, 房间名Y)
   dm_ret = dm.FindPic(0,0,2000,2000,"箭头上.bmp","000000",0.9,0,箭头X,箭头Y)
        If 房间名X > 0 and 房间名Y > 0 and 箭头X>0 AND 箭头Y>0 Then
            Exit Do
        End If
    Loop
End Sub
Sub 判断_地图
    dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 最后寻找地图, "ffffff-000000", 1.0, 最后寻找地图X, 最后寻找地图Y)
    dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 最后寻找回合, "ffffff-000000", 1.0, 最后寻找回合X, 最后寻找回合Y)
    dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 模式, "ffffff-000000", 1.0, 模式X, 模式Y)
    dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, "叉|锁", "9e9e9e-000000|ffbf17-000000", 1.0, 叉锁X, 叉锁Y)
    If 最后寻找地图X > 0 and 最后寻找地图Y > 0 and 最后寻找回合X > 0 and 最后寻找回合Y > 0 and 模式X > 0 and 模式Y > 0 and 叉锁X
迷途知返 

ZxID:17942296

等级: 大将
配偶: 玫瑰与她

举报 只看该作者 15楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
不懂
怅别8ffc

ZxID:20823485

等级: 少尉
举报 只看该作者 14楼  发表于: 2013-04-13 0
支持,顶!

内容来自[手机版]
悸动觅沧桑丶

ZxID:14366177

等级: 大将
.

举报 只看该作者 13楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
看不懂

际遇之神

惩罚

在论坛潜水撞到鱼雷,损失医药费DB5

禁止搭讪。

ZxID:16374746

等级: 少尉
举报 只看该作者 12楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
是个好东西,必须支持了

际遇之神

奖励

偶遇星哥,传授还我漂漂拳,获得1清洗卡

______苏澈

ZxID:21683714

等级: 中将
o

举报 只看该作者 11楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
祝你考好啊。
sihaixiaoyao

ZxID:2935480

等级: 大尉
我为挂而活。挂为我而出
举报 只看该作者 10楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
不懂
jamesvz

ZxID:11236055

等级: 中校
举报 只看该作者 9楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
真的好象VB。。呵
憂傷的曲調 悲傷的表情 演一場獨角戲

回忆就是尘土,吹到哪里,弄脏哪里、
猴岛小雷

ZxID:17117167

等级: 大将

举报 只看该作者 8楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
不管这个脚本错误
  小情歌

ZxID:1655762

等级: 少尉
关公看黄书,脸红脖子粗
举报 只看该作者 7楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
狗XX的鲫鱼哦。
  小情歌

ZxID:1655762

等级: 少尉
关公看黄书,脸红脖子粗
举报 只看该作者 6楼  发表于: 2013-04-13 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
好吧 你赢了。

际遇之神

惩罚

抢沙发不成,与楼上的斗殴,处以治安罚款DB10

水美似画

ZxID:21163657

等级: 上将
(╯★热会N队★╰)
举报 只看该作者 5楼  发表于: 2013-04-12 0
好复杂

内容来自[手机版]
猴岛猪猪侠

ZxID:8945422

等级: 一代君主
注册时间 2009-09-26

举报 只看该作者 4楼  发表于: 2013-04-12 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
真心不懂按键精灵。
     _y

ZxID:17939641

等级: 元帅
安全密码 仓库0218

举报 只看该作者 地板   发表于: 2013-04-12 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
沙发所放松放松发顺丰
.
戴着表和微笑

ZxID:23309666

等级: 上将

举报 只看该作者 板凳   发表于: 2013-04-12 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
板凳。挑战好没意思啊。老四图找不到人。别的boss一个比一个皮厚。让我的暴走加铲子都无力了。
      

ZxID:16237289

等级: 大将
               ๓我爱猴岛๓    

举报 只看该作者 沙发   发表于: 2013-04-12 0
Re:【小心超人.】 快中考了,不能浪费时间了,以前写的挑战找房源码发出来,避免自己心思思。注意是半成 ..
不懂
« 返回列表
发帖 回复