//由于是刚开始学的，所以代码繁乱 不简洁请见谅啦 
//谁看不爽可以帮我修改下的~~~~(>_<)~~~ 偶会感激不尽
//仅供娱乐= =~!交流  部分代码网络上载的 
// 使用注意 由于是测试脚本所以：
// 本脚本只给人加血 请把加血用药放在背包第一个位置，
//一定要大量的存储血药如 红碗 什么的 用完没有提示并且脚本
//会不断的重复点背包第一个位置 造成死循环
//切不要吧行囊打开 不要遮住梦幻窗口 由于本脚本纯绿色的非读写内存..所以你懂得
//下面是注释
// 找到最顶层的窗口 并移动至0.0位置
Hwnd = Plugin.Window.Foreground()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Call Plugin.Window.Move(Hwnd, 0, 0)
//隐藏 梦幻西游聊天窗口 
Hwndck = Plugin.Window.Find(0, "梦幻西游 聊天窗口")
Call Plugin.Window.Hide(Hwndck)
//进行循环找怪操作
Rem aa
Call 找怪()
Goto aa
Sub 找怪()
//打开地图 并且随机在地图内移动鼠标 (可能部分地图会出现越出地图的情况)并点击
//如果出现怪物 则会切换到战斗
    KeyPress "Tab", 1
    Delay 200
    Rem zhaoguai
    FindPic 0,0,1024,768,"Attachment:\ditu.bmp",0.9,ditux,dituy
    If ditux > 0 And dituy > 0 Then
        Randomize
        rx = Int((ditux+150 - ditux+95 + 1) * Rnd + ditux+95)
        Randomize
        ry = Int((dituy + 200 - dituy + 26 + 1) * Rnd + dituy + 26)
        Call 鼠标移动(rx, ry)
        Delay 200
        LeftClick 1
        Delay 2000
        FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy
        If zdx > 0 And zdy > 0 Then 
            Call 战斗()
        Else 
            Goto zhaoguai
        End If
    Else 
        KeyPress "Tab", 1
        Delay 200
        Goto zhaoguai
    End If
End Sub
//此代码为防止鼠标飘逸 具体不多说了
Sub 鼠标移动(w,z)
    dim n,h,zx,zy,zzx,zzy
    htt=0
    n=1
    h=0
    zx=w
    zy=z
    If zx<50 or zx>540 Then
        If zx<50 Then
            zzx=zx+40
        End if
        If zx>540 Then
            zzx=zx-40
        End if
    Else
        zzx=zx
    End if
    If zy<50 or zy>400 Then
        If zy<50 Then
            zzy=zy+40
        End if
        If zy>400 Then
            zzy=zy-40
        End if
    Else
        zzy=zy
    End if
    MoveTo zzx, zzy
    Delay 100
    Rem py
    GetCursorPos x, y
    mz=0
    FindCenterColor x-110,y-110,x+110,y+110,"78F4F0",x1,y1
    If x1>0 and y1>0 Then
        a=zx-x1+20
        b=zy-y1+10
        Goto OK
    End if
    XY = Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110, "78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8", 1)
    sbwz = Split(XY, "|")
    x1 = Clng(sbwz(0))-18: y1 = Clng(sbwz(1))-9
    If x1>0 and y1>0 Then
        a=zx-x1
        b=zy-y1
        Goto OK
    End if
    XY=Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110,"D0AC30","1|0|D0AC30,2|0|D0AC30,3|0|D0AC30,4|0|D0AC30,2|1|D0AC30,2|2|D0AC30,2|3|D0AC30,2|4|D0AC30,2|5|D0AC30,2|6|D0AC30,2|7|D0AC30,2|8|D0AC30,2|9|D0AC30,2|10|D0AC30,2|11|D0AC30,2|12|D0AC30,2|13|D0AC30,2|14|D0AC30,2|15|D0AC30,2|16|D0AC30,2|17|D0AC30,2|18|D0AC30,2|19|D0AC30,2|20|D0AC30,0|21|D0AC30,1|21|D0AC30,2|21|D0AC30,3|21|D0AC30,4|21|D0AC30",1)