00
UserVar Var=DropList{"普通模拟":0|"硬件模拟":1|"超级模拟":2}=0 "设置模拟方式"
If var=0 Then
    SetSimMode 0
ElseIf var=1 Then
    SetSimMode 1
Else
    SetSimMode 2
End if
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
XY = Plugin.Color.FindMutiColor(0, 0, 1024, 768, "73F4FF", "1|0|C7FBFF,2|0|1AB7E3,3|0|1AB7E3,4|0|1AB7E3,5|0|1AB7E3,6|0|23D2F0,0|1|16B3E3,6|1|16B3E3,0|2|12ADE3,6|2|15BBEA,0|3|17DBFF,6|3|14CDF7,0|4|8DEBFF,6|4|0CBBF0,0|5|16D1FF,6|5|059FE3,0|6|029BE3,1|6|029BE3,2|6|029BE3,3|6|04CAFF,4|6|029BE3,5|6|029BE3,6|6|029BE3", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
m = Clng(MyArray(0)): n = Clng(MyArray(1))
If m<0 Then
    msgbox "脚本出错了，请检查分辨率设置和桌面色度设置，脚本已停止！",16
    EndScript
End if
UserVar a=DropList{"F1":1|"F2":2|"F3":3|"F4":4|"F5":5|"F6":6|"F7":7|"F8":8}=1 "怪是炼血堂时人物使用技能"
UserVar b=DropList{"普通攻击":1|"技能1":2}=1 "怪是炼血堂时宠物如何攻击"
UserVar Var1=DropList{"储备金奖励":1|"储备金和银两奖励":2}=1 "选择任务方式"
UserVar renhong=80 "人物加血（%）"
UserVar renlan=20 "人物加蓝（%）"
UserVar chonghong=80 "宠物加血（%）"
UserVar chonglan=30 "宠物加蓝（%）"
Rem 开始
//找NPC
x0=m+368:y0=n-304:r=3
While r<150
    r=r+6
    d=0
    While d<2*3.141592654
        d=d+0.04
        x=x0+r*sin(d)
        y=y0-r*cos(d)
        MoveTo x,y
        var=GetCursorShape(0)
        If var=1568432796 Then
            LeftClick 1
            Goto 选择任务方式
        End if
    Wend
Wend
Rem 选择任务方式
baohu=0
Delay 2000
If var1=1 Then
    MoveTo m+221,n-187
    LeftClick 1
ElseIf var1=2 Then
    MoveTo m+221,n-169
    LeftClick 0
End if
Delay 2000
MoveTo m+219,n-133
LeftClick 1
Delay 2000
MoveTo m+499,n-169
LeftClick 1
Delay 500
//判断保护的人物
Call FindPic(0,0,1024,768,"Attachment:\猴子.bmp",0.9,intX,intY)
If intx>0 Then
    baohu=1
End if
Call FindPic(0,0,1024,768,"Attachment:\张小凡.bmp",0.9,intX,intY)
If intx>0 Then
    baohu=2
End if
While 1
    Call 加雪蓝()
    Delay 1000
    Call FindPic(m+8, n-564, m+52, n-546,"Attachment:\x.bmp",0.9,X,Y)
    If x>0 Then
        If baohu=2 or baohu=0 Then
            While 2
                Call FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
                If intx>0 Then
                    Call 人物按键()
                    MoveTo m+174,n-401
                    Delay 500
                    var=GetCursorShape(0)
                    If var=1227848726 Then
                        Delay 500
                        LeftClick 1
                    End if
                    //宠物操作
                    If b=1 Then
                        KeyDown 18,1
                        KeyPress 65,1
                        KeyUp 18,1
                    ElseIf b=2 Then
                        //技能1
                        Call FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
                        If intx>0 Then
                            Delay 300
                            MoveTo intx,inty
                            LeftClick 1
                            Delay 300