：
//分辨率:建议在X>1152，Y>800的分辨率下运行！标准分辨率为：1440x900
//系统：Microsoft Windows XP
//按键版本：8.31.8583
//色深：32
//可做任务：
//扫地
//探访
//放河灯
//买戒指
//买衣服
//买武器
//种树+杀怪
//巡逻+杀怪
//┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
//                                     说明:                                       
//                                                                                 
//           本脚本为"草稿"作品.因有事,未经优化,放上代码供大家学习之用.                
//              如执行中出现意外.脚本可能死循环某一段代码,停止不前.                    
//                                                                                 
//                                   特殊功能:                                     
//                                                                                 
//               考虑到游戏窗口的灵活性,脚本会自己调节游戏窗口大小.                    
//                                                                                 
//                                     设置   
//                                                                                 
//         分辨率:建议在X>1152，Y>800的分辨率下运行！标准分辨率为：1440x900            
//                                                                                  
//  ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣ 
//  ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣作者 : 按键用户 ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣     
//  ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣ QQ  : 897589424 ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣    
//  ㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣㊣   
//┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
UserVar 加血=70 "当血少于？%时加血"
UserVar 加蓝=40 "当蓝少于？%时加蓝"
UserVar 加血按键="F1" "按？键加血"
UserVar 加蓝按键="F2" "按？键加蓝"
UserVar jnaj=1 "按？键技能(单秒技能)"
UserVar WLGZ=9 "按？键万流归宗(回师门)"
UserVar 任务完成=DropList{"关机":"关机"|"报警":"报警"|"短信提示":"短信提示"}=0 "设置内容"
UserVar 音乐路径="C:\WINDOWS\Media\Windows XP 启动.wav" "报警音乐路径"
DIM 怪
Hwnd = Plugin.Window.Find("MainWnd class of ArkEngine", 0)
Call Plugin.Window.Move(Hwnd, 0, 0)
Call Plugin.Window.SetClientSize(Hwnd, 1024, 758)
Call Plugin.Window.Active(Hwnd)
XY = Plugin.Window.GetClientRect(Hwnd)
If StrComp(Right(XY,8),"1024|758")<>0 Then MsgBox "桌面分辨率太小，脚本无法执行!":EndScript
Call 调整窗口大小()
KMData = Plugin.bgkms3_02.KMTransform(hwnd, 1)
If Not IsArray(KMData) Then
    MsgBox "获得窗口数据失败",4096
End If
Delay 1000
sRect = Plugin.Window.GetClientRect(Hwnd)
x=Split(sRect,"|")(0)
y=Split(sRect,"|")(1)
/////////////////////////////////////////////////////////////
Y1=Year(Date):Mon1=Month(Date):D1=Day(Date):W1=Weekday(Date,vbMonday)
Text = Plugin.File.ReadFileEx("C:\Log.txt")
BT1 = UBound(Split(Text, Y1 &"年"& Mon1 &"月"& D1 &"号 星期"& W1))
If BT1<1 Then
    Call Plugin.File.WriteFileEx("C:\Log.txt", vbCrLf&vbCrLf&vbCrLf&"脚本启动时间:"&Y1 &"年"& Mon1 &"月"& D1 &"号 星期"& W1&vbCrLf)
End If
/////////////////////////////////////////////////////////////
//脚本开始
BeginThread 加血蓝线程
Call 万流归宗()
Call 目标太虚道长()
Rem 接任务
Call 师门任务()
Call 接受()
Call 任务判断(任务)
EndScript
Sub 加血蓝线程()
    //加血算法=(血条后X坐标-血条前X坐标)/100*百分比参数+窗口起点X坐标+窗口上血条X坐标
    While true
        IfColor (181-75)/100*加血+血蓝X+75,血蓝Y+29,"090990",2 Then
        ELSE
            Call Plugin.bgkms3_02.KeyPress(KMData, 加血按键)
        End If
        IfColor (181-75)/100*加蓝+血蓝X+75,血蓝Y+40,"953C09",2 Then
        ELSE
            Call Plugin.bgkms3_02.KeyPress(KMData, 加蓝按键)
        End If
        Randomize
        延时=Int((900 * Rnd) + 501)
        //        TracePrint 延时
        Delay 延时
    Wend
End Sub
Sub 任务判断(任务)
    Delay 1000
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFC64C","2|-2|FFC64C,0|8|FFC64C,2|8|FFC64C,2|7|FFC64C,5|3|FFC64C,7|3|FFC64C,5|-1|FFC64C,5|7|FFC64C,19|7|FFC64C,22|3|FFC64C,12|3|FFC64C",1)//扫地
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call Plugin.File.WriteFileEx("C:\Log.txt", "扫地任务-开始时间:"&NOW)
        Call 扫地()
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"414431","0|2|FFFFFF,2|0|FFFFFF,3|2|FFFFFF,3|3|414431,3|4|FFFFFF,3|5|414431,3|9|FFFFFF,2|10|FFFFFF,3|10|414431,6|7|414431,6|5|FFFFFF,22|2|FFFFFF,22|3|414431,18|3|FFFFFF,19|3|414431",1)//探访