//自制的天龙八部3打怪答题程序。答题器用大漠答题器
//生成的打怪可执行文件放到d盘打怪目录下，DM 插件字库等放到D:\打怪\dm\ 下
//附dm_soft.txt内容自行替换“//”
//411FE0040$1$0.0.11$8
//6310A224488610$2$0.0.16$8
//421022444886E0$3$0.0.15$8
//080681107F8050$4$0.0.16$8
//F21222444888E0$5$0.0.18$8
//7E1222446880E0$6$0.0.19$8
//C010027C700800$7$0.0.13$8
//6E1222444886E0$8$0.0.19$8
//701162244487E0$9$0.0.19$8
//7E1022044087E0$0$0.0.18$8
//FFF00A7D49292524A7D402805FFC$回$0.0.54$11
//12044317B69552AA5B4E2965EA41080$答$0.0.50$11
//1A1DFCA901428057FEA955FAA57CA00$错$0.0.58$11
//0811FD8100D053EAA564B8959EA8148$误$0.0.50$11
//440BF9A227E5027FB542FF750AA47F8$确$0.0.64$11
//202D092E2444859F924A49492925808$定$0.0.44$11
//脚本开始

UserVar QHTmoshi=Droplist{"前台模式":0|"后台模式":1}=1 "前台后台"
UserVar DaGmoshi=Droplist{"普通打怪":0|"打死换怪":1|"高速抢怪":2}=0 "打怪模式"
UserVar TFdidian=Droplist{"关闭定点":0|"指定范围":1}=0 "定点刷怪"
UserVar FWdidian="5,5" "刷怪范围"
//峨眉清心需前台使用
UserVar	EMjiaxue=DropList{"关闭操作":0|"低于10%":1|"低于20%":2|"低于30%":3|"低于40%":4|"低于50%":5|"低于60%":6|"低于70%":7|"低于80%":8}=0 "峨眉清心F6"
UserVar TFjiaxue=DropList{"关闭加血":0|"低于10%":1|"低于20%":2|"低于30%":3|"低于40%":4|"低于50%":5|"低于60%":6|"低于70%":7|"低于80%":8|"低于90%":9}=5 "人物加血F7"
UserVar TFjialan=DropList{"关闭加蓝":0|"低于10%":1|"低于20%":2|"低于30%":3|"低于40%":4|"低于50%":5|"低于60%":6|"低于70%":7|"低于80%":8|"低于90%":9}=5 "人物加蓝F8"
UserVar BBjiaxue=DropList{"关闭加血":0|"低于10%":1|"低于20%":2|"低于30%":3|"低于40%":4|"低于50%":5|"低于60%":6|"低于70%":7|"低于80%":8|"低于90%":9}=5 "宠物加血F9"
UserVar zhaoguai=Droplist{"Ctrl+Tab":0|"F11":1}=0 "找怪按键"
UserVar JBjineng=DropList{"按键F1":1}=1 "基本技能"
UserVar xueliang=DropList{"关闭报警":0|"低于10%":1|"低于20%":2|"低于30%":3|"低于40%":4|"低于50%":5|"低于60%":6|"低于70%":7|"低于80%":8|"低于90%":9}=3 "血低报警"
UserVar	 BJmoshi=DropList{"关闭报警":0|"本机报警":1|"报警答题":2|"无警答题":3}=1 "验证报警"
UserVar	 DTmoshi=DropList{"关闭操作":0|"退出游戏":1|"退出关机":2}=0 "未答题时"
UserVar DaTmoshi=Droplist{"本机答题":0|"网络答题":1}=1 "答题模式"
UserVar dati_ip = "192.168.1.141" "答题服务IP"
UserVar dati_port="12345" "答题服务端口"
//大漠插件
Call Plugin.RegDll.Reg("D:\打怪\dm\dm.dll")
Set dm = CreateObject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"dm_soft.txt")
ver = dm.Ver()
If len(ver) = 0 Then
    MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
    EndScript
End If
//程序开始
call 点选游戏窗口
Call 获取客户区
Call 识别等级
Call 识别坐标
Call 显示窗口信息
Call 开始血量
//打怪开始
xgt = now
Rem 打怪开始
Call 加血加蓝
Call 选怪打怪
Call 检测报警
call 检测范围
Goto 打怪开始
Rem 防卡死
call 按键选怪
goto 打怪开始
Sub 检测报警
    dm_ret = dm.FindStr(xl, yl, xr, yr,"回答","fff263-000000",1.0,intX,intY)
    If intX >= 0 and intY >= 0 Then 
        Call Plugin.Window.Active(Hwnd)
        flag = 1
        While flag = 1 
            dm_ret = dm.FindStr(xl, yl, xr, yr,"回答","fff263-000000",1.0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
                If bjmoshi = 0 Then 
                ElseIf bjmoshi = 1 Then
                    for 5
                        Beep 
                        Delay 50
                    next
                ElseIf bjmoshi = 2 Then
                    for 5
                        Beep 
                        Delay 50
                    Next
                    call 网络答题
                ElseIf bjmoshi = 3 Then
                call 网络答题
                End If                
            Else 
                flag = 2
                Call 按键选怪
            End If
        Wend
    End If
End Sub
Sub 点选
	Delay 50
                    LeftDown 1