///////////////////////////////////////////////////
PutAttachment ".\plugin","*.dll"'释放DLL
PutAttachment "c:\XYW","*.bmp"'释放DLL
PutAttachment "c:\XYW","*.txt"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 ./plugin/dm.dll /s"'注册DLL
set ws=nothing
Delay yc+ 500 
///////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////

Dim dm
Set dm = CreateObject("dm.dmsoft") 
//base_path = dm.GetBasePath()
//dm_ret = dm.SetPath("C:\XYW\")
//dm_ret = dm.SetDict(0,"dm_soft.txt") 
dm_ret = dm.SetDict(0,"C:\XYW\xyw.txt")
///////////////////////////////////////////////////////////
 



UserVar zhwz=1 "帐号在几个位置"
UserVar fgf="----" "帐号密码分割符"
UserVar yxlj="D:\游戏\大话西游外传\xyw.exe" "游戏路径"
UserVar zhlj="c:\XYW\帐号.txt" "帐号路径"
UserVar zcm="Oalbccfaja3bCbccacDaCaOabaVbIbAaPd3d8bUaBd9dbaRbxcgd" "注册码"
UserVar yc=50 "延迟数字"
UserVar wbjd=DropList{"读文本帐号":"1"|"读当前开号":"2"}=0 "师门进度"
Dim lj//游戏路径
Dim zhlj//帐号路径
DIM DITU//游戏地图
DIM DITUX//游戏X
DIM DITUY//游戏Y
Dim yao//药的名字
Dim zhuangbei//装备名字
Dim s//任务的名字
Dim guai//怪的名字
Dim guaiditu//怪的地图
Dim hwnd


Rem 开始
If wbjd=1 then
//    Call 验证机器码和时间
    Call 去掉空行和空格
    Call 分割上号
    Call 游戏上号 
    Call 开录象
    Call 疲敝
    Call 识别任务
    Goto 开始
Else
    Call 移动窗口 
    Call 疲敝
    Call 识别任务
    Goto 开始 
End if
Sub 开录象() 
    Call ReadMemory(&h005BDB94,2,ncx)
    Delay 2
    Call ReadMemory(&h005BDB98,2,ncy)
    Delay 2 
    If ncx=0 and ncy=0 then
           MessageBox "没有开启录象，开启录像，保存，下线在上。在开脚本！脚本已经停止"
        EndScript
    Else 
    end if                
End Sub

//识别任务
Sub 识别任务()
    rem 任务
    Call 检测战斗 
    Call 取消自动
    Call 关闭任务  
    Call 对话和2
    Call 打开任务
    Rem  框
    FindPic 0,0,807,621,"C:\XYW\框.bmp",1.0,intX,intY
    If intX > 0 And intY > 0 Then
        Call 修正偏移(intX+ 68,intY+5)
        Delay yc+ 200
        Goto 框
    End If

    Delay yc+ 500
    dm_ret = dm.FindStr(0,0,807,621,"师门","e0b468-000000",0.8,intX,intY)
    If intX >= 0 and intY >= 0 Then 
        Call 做任务 
    Else  
        Call 关闭任务
        Call 接任务
    End If
    Goto 任务

End Sub
//做任务
Sub 做任务()