其实懂点编程知识的人完全可以自己修改,让他成为最适合你自己的脚本.
没人顶自己先顶下

算是老乡。

其实也没什么。要代码何必那么麻烦。给你们就是。
2楼是我。
'=============全局变量定义=================
dim h,m,i,j,v,x,y,t,tmpx,tmpy,c,r,s,b,bCatch,wh,ww,way,waytimer,xarr,yarr
dim GoToKaifengSumTime,GoToKaifengNowTime,CurMapName

'=============变量初始化===================
GoToKaifengNowTime=Timer '记下当前时间，用于比较时间，起过时间间隔就回城
xarr=array(150,650)'用于自动遇敌，左右点
yarr=array(300,300)
ww=GetYFrameWidth'获得窗体标题栏高度，因为桌面主题不同，标题栏高度就不同
wh=GetCaptionHeight'获得窗体边框宽度，因为桌面主题不同，边框宽度就不同
h=GetActiveWindowID'获得处于置前，激活，标题栏变蓝，最前面窗口的句柄

'=============脚本正本===================
'如果窗口句柄不是零，表示可用。
if h<>0 then

  '====='无限循环，脚本一直运行下去，直到用户按结束热键============
  while True

    '=========================窗体移位===========================
    if GetWindowPos(h,x,y) then'h是之前保存下来的游戏窗口句柄，获得该窗口的位置
      if x<>0 or y<>0 then'如果位置不是0,0
        SetWindowPos h,0,0'那么设置窗口位置为0,0
      end if
    end if

    '=========================过验证=============================
    if FindPicTWithColor(284+ww,140+wh,301+ww,157+wh,GetKdsPath+"Validate.bmp",&HFFFF

,20,x,y) then '以Validate.bmp图片为基准，判断有没有出现验证
      print "发现验证 "+CStr(Now)
      CrackValidate
    end if

    '=========================战斗场景=====================
    if IsColor(391+ww,4+wh,&h182C5A,20) then  '判断坐标391+ww,4+wh颜色，如果颜色为 &h182C5A 表示进入战斗场景
      '调用过程，该过程用于单击攻击，收服宠物，
      Attack
    else '如果颜色不对，表示是平时场景
    '=========================平时场景=====================
      '调用过程，该过程用于平时补红蓝,打坐
      CommonlySafe

      '=====================自动回城=================================
      if GetUserVar("GoToKaifeng",r) then '获得用户选择的是否唐门回城
        if r="开启" then
          if GetUserVar("GoToKaifengTime",r) then  '得到用户填入的回城间隔
            GoToKaifengSumTime=CInt(r)*60 '把分钟转换成秒
            if (Timer-GoToKaifengNowTime)>GoToKaifengSumTime then '如果当前间隔大于回城间隔
              ToKaifeng
              ToAttack  '调用过程，该过程为返回挂机点
              if GetUserVar("AutoCreateTroop",r) then '获得用户选择的是否自动建队
                if r="开启" then
                  print "自动建队... "+CStr(Now)
      

CreateTroop '创建队伍,自己是队长
                end if
              end if
              print "开始战斗... "+CStr(Now)
              GoToKaifengNowTime=Timer '记下当前时间
            end if
          end if
        end if
      end if


      '================接受组队申请================
      if IsColor(618+ww,572+wh,&hFFFF00,20) then  '判断组队按钮有没有在亮
        print "发现组队申请... "+CStr(Now)
        AcceptApply
      end if

      '================自动遇敌=====================
      if GetUserVar("AutoWalk",r) then  '获得用户输入是否自动遇敌
        if r ="开启" then
          AutoWalk
        end if
      end if

    end if
    Delay 800
  Wend
end if

'=====================遇敌过程=================================
Sub AutoWalk
  Select Case way
    Case 0
      SendLeftClick h,xarr(0),yarr(0) '左边单击
      way=1
    Case 1
      SendLeftClick h,xarr(1),yarr(1) '右边单击
      way=0
    Case Else
      way=0
  end Select
End Sub

'=====================攻击过程=================================
Sub At

上面的SUB AT直接删掉。接下面
Sub Attack

  if IsColor(710-3+ww,217-22+wh,&hDEFFA5,20) then   '判断是不是未加入门派
    bCatch=false
    if GetUserVar("AutoCatch",r) then
      if r="开启" then
        if FindPicWithColor(0+ww,0+wh,400+ww,600+wh,GetKdsPath+"kylin.bmp",&H9CFFFF,20,x,y) then  '判断有没有 麒麟
          Print "发现麒麟 "+CStr(Now)
          SendLeftClick h,719,265
          SendLeftClick h,x,y+50   '单击收服
          bCatch=true
        end if
      end if
    end if
    if not bCatch then
      if not AttackSafe then
        SendLeftClick h,719,219 '单击攻击
      end if
    end if
  elseif IsColor(732-3+ww,144-29+wh,&hDEFFA5,20) then   '判断是不是已加入门派
    bCatch=false
    if GetUserVar("AutoCatch",r) then
      if r="开启" then
        if FindPicWithColor(0+ww,0+wh,400+ww,600+wh,GetKdsPath+"kylin.bmp",&H9CFFFF,20,x,y) then  '判断有没有 麒麟
          Print "发现麒麟 "+CStr(Now)
          SendLeftClick h,741,195
          SendLeftClick h,x,y+50  '单击收服
          bCatch=true
        end if
      end i

上面 end i 去掉。接下面
end if
    end if
    if not bCatch then
      if not AttackSafe then
        SendLeftClick h,719,219 '单击攻击
      end if
    end if
  elseif IsColor(732-3+ww,144-29+wh,&hDEFFA5,20) then   '判断是不是已加入门派
    bCatch=false
    if GetUserVar("AutoCatch",r) then
      if r="开启" then
        if FindPicWithColor(0+ww,0+wh,400+ww,600+wh,GetKdsPath+"kylin.bmp",&H9CFFFF,20,x,y) then  '判断有没有 麒麟
          Print "发现麒麟 "+CStr(Now)
          SendLeftClick h,741,195
          SendLeftClick h,x,y+50  '单击收服
          bCatch=true
        end if
      end if
    end if
    if not bCatch then
      if not AttackSafe then
        SendLeftClick h,741,139 '单击攻击
      end if
    end if
  end if

  if IsColor(719-3+ww,198-29+wh,&h73F3CE,20) then  '判断是不是宠物攻击
    GetUserVar "PetMode",r
    if bCatch=False and r="攻击" then  '判断是不是收服随从,如果是,那么宠物防
      SendLeftClick h,732,195
    else
      SendLeftClick h,732,218  '宠物攻击
    end if
  end if

End Sub

'=====================回门派过程=================================
Sub ToSchool
  ClickOk
  While IsColor(391+ww,4+wh,&h182C5A,20)
    Attack
  Wend
  SendAltGroup h,84   'Alt+t
  if FindPic(ww,150+wh,800+ww,500+wh,GetKdsPath+"Troop.bmp",20,x,y) then '判断有没有组队窗口存在
    SendLeftClick h,x-ww+66,y-wh+225 '如果有,就单击离队
    Delay 1000
  else
    SendRightClick h,787-3,83-29 '否则,单击右键,取消鼠标组队状态
  end if
  SendRightClick h,35,37'加满红蓝
  SendKeyPress h,119 '按F8 回门派
  LoadMap '等待加载地图
End Sub

'=====================回开封过程=================================
Sub ToKaifeng
  Do While True
    Select Case GetMapName
      Case "唐家堡"
        print "唐门到开封... "+CStr(Now)
        TangMenToKaifeng '调用过程，该过程为门派到开封
      Case "开封"
        Manage
        Exit Do
      Case Else
        print "回唐门... "+CStr(Now)
        ToSchool '调用过程，该过程为回门派
    End Select
  Loop
End Sub

'=====================修理与加忠过程=================================
Sub Manage
  print "修理装备... "+CStr(Now)
  Repair '调用过程，该过程为修理装备
  print "随从加忠... "+CStr(Now)
  Domesticate  '调用过程，该过程为随从加忠
End Sub

'=====================唐门到开封过程=================================
Sub TangMenToKaifeng
  WalkTo 473,301 '人物走到传送师身边
  SendLeftClick h,430,246 '单击传送师,打开对话
  Delay 1000
  SendLeftClick h,206,313 '回开封
  LoadMap '等待加载地图
End Sub

'=====================修理过程=================================
Sub Repair '修理装备
  '走到铁匠
  WalkTo 568,223

  '铁匠对话
  SendLeftClick h,435-3,269-29
  Delay 1000

  '修理装备
  SendLeftClick h,223-3,410-29'修理
  Delay 1000
  SendLeftClick h,237-3,355-29'修理全部
  Delay 1000
  SendLeftClick h,221-3,358-29'确定
  Delay 1000
  SendRightClick h,408-3,393-29
  Delay 1000
End Sub

'=====================加忠过程=================================
Sub Domesticate  '随从加忠
  '走到教员
  WalkTo 513,196

  '教员对话
  SendLeftClick h,433-3,274-29
  Delay 1000

  '随从加忠
  SendLeftClick h,225-3,401-29'教化全部随从
  Delay 1000
  SendLeftClick h,253-3,369-29'确定
  Delay 1000
  SendRightClick h,408-3,393-29
  Delay 1000
End Sub

'=====================去战场过程=================================
Sub ToAttack   '返回挂机点
  if GetUserVar("GoToAttack",r) then '获得用户输入的挂机点
    print "前往"+r+"... "+CStr(Now)
    Select Case r
    Case "有座山"
      ToYouZuoShanAttack '调用过程,该过程为开封走到有座山
    Case "绝情谷"
      ToJueQingGuAttack
    Case "十字坡"
      ToShiZiPoAttack  '调用过程,该过程为开封走到十字坡
    Case "王屋山"
      ToWangWuShanAttack  '调用过程,该过程为开封走到王屋山
    End Select
  end if
End Sub

'=====================开封到有座山=================================
Sub KaifengToYouZuoShan
  WalkTo 332,299
  SendLeftClick h,341-3,347-29
  LoadMap
End Sub

'=====================到有座山中间=================================
Sub ToYouZuoShanCenter
  WalkTo 677,182
End Sub

'=====================到有座山战斗================================
Sub ToYouZuoShanAttack
  Do While True
    Select Case GetMapName
      Case "唐家堡"
        TangMenToKaifeng
      Case "开封"
        KaifengToYouZuoShan
      Case "有座山"
        ToYouZuoShanCenter
        Exi

上面EXI去掉。接下面
 Exit Do
      Case Else
        ToSchool
     End Select
  Loop
End Sub

'=====================有座山到绝情谷================================
Sub YouZuoShanToJueQingGu
  WalkTo 729,338
  SendLeftClick h,439-3,339-29
  LoadMap
End Sub

'=====================到绝情谷中间================================
Sub ToJueQingGuCenter
  WalkTo 607,207
End Sub

'=====================到绝情谷战斗================================
Sub ToJueQingGuAttack
  Do While True
    Select Case GetMapName
      Case "唐家堡"
        TangMenToKaifeng
      Case "开封"
        KaifengToYouZuoShan
      Case "有座山"
        YouZuoShanToJueQingGu
      Case "绝情谷"
        ToJueQingGuCenter
        Exit Do
      Case Else
        ToSchool
     End Select
  Loop
End Sub

'=====================开封到十字坡================================
Sub KaifengToShiZiPo
  WalkTo 629,151 '走到上面传送点
  SendLeftClick h,437-3,297-29  '单击传送点
  LoadMap '等待加载地图
End Sub

'=====================到十字坡中间================================
Sub ToShiZiPoCenter
  WalkTo 696,171  '走到十字坡地图中间
End Sub

'=====================到十字坡战斗================================
Sub ToShiZiPoAttack
  Do While True
    Select Case GetMapName
      Case "唐家堡"
        TangMenToKaifeng
      Case "开封"
        KaifengToShiZiPo
      Case "十字坡"
        ToShiZiPoCenter
        Exit Do
      Case Else
        ToSchool
     End Select
  Loop
End Sub

'=====================十字坡到王屋山===============================
Sub ShiZiPoToWangWuShan
  WalkTo 780,138  '走到十字坡上面传送点
  SendLeftClick h,686-3,349-29  '单击传送点
  LoadMap '等待加载地图
End Sub

'=====================到王屋山中间===============================
Sub ToWangWuShanCenter '开封走到王屋山
  WalkTo 504,217 '走到王屋山地图中间
End Sub

'=====================到王屋山战斗==============================
Sub ToWangWuShanAttack
  Do While True
    Select Case GetMapName
      Case "唐家堡"
        TangMenToKaifeng
      Case "开封"
        KaifengToShiZiPo
      Case "十字坡"
        ShiZiPoToWangWuShan
      Case "王屋山"
        ToWangWuShanCenter
        Exit Do
      Case Else
        ToSchool
     End Select
  Loop
End Sub

'=====================走路过程==============================
'该过程实现人物走到目标,坐标以游戏中中型地图坐标为基准,单击地图,让游戏自动走
Sub WalkTo(x,y)
  dim LocX,LocY
  ClickOk
  SendAltGroup h,77
  SendAltGroup h,77
  SendKeyPress h,9
  Delay 1000
  SendLeftClick h,x-3,y-29
  Delay 1000

  Do While True
    if IsColor(391+ww,4+wh,&h182C5A,20) then
      Attack
    else
      CommonlySafe
      if not FindColor(x-3+ww-6,y-29+wh-8,x-3+ww+6,y-29+wh+8,&HFF0000,0,LocX,LocY) then
        

Exit Do
        else
          WalkTo x,y
        End if
      end if
    end if
    Delay 1000
  Loop

  SendKeyPress h,9
  Delay 2000
End Sub

'=====================加载地图等待过程==============================
'等待加载地图,如果有十个点都是黑色,表示游戏还在加载中...
Sub LoadMap
  Delay 1000
  while _
    (GetColor(682,061)=0) and _
    (GetColor(722,067)=0) and _
    (GetColor(682,091)=0) and _
    (GetColor(736,107)=0) and _
    (GetColor(710,121)=0) and _
    (GetColor(572,315)=0) and _
    (GetColor(716,325)=0) and _
    (GetColor(654,363)=0) and _
    (GetColor(582,429)=0) and _
    (GetColor(718,437)=0)
    Delay 1000
  wend
  Delay 2000
End Sub

'=====================获得当前地图名字==============================
function GetMapName
  dim MapName
  SendLeftClick h,25-3,598-29
  SendLeftClick h,68-3,563-29
  if GetPicText(3-3+ww,585-29+wh,48-3+ww,612-29+wh,GetKdsPath+"MapName\*.bmp",128,MapName) then'获得答案一内容，并且判断
    MapName=Replace(MapName, "a", Empty)
    MapName=Replace(MapName, "b", Empty)
  GetMapName=MapName
  end if
end function

'=====================键队过程==============================
Sub CreateTroop     '自动键队
  SendAltGroup h,84 'Alt+t 组队
  SendLeftClick h,400,260 '单击自己
End Sub

'=====================点ok过程==============================
Sub ClickOk
  dim LocX,LocY
  if FindPic(0+ww,0+wh,800+ww,600+wh,GetKdsPath+"OK.bmp",20,LocX,LocY) then
    SendLeftClick h,LocX-ww,LocY-wh
    Delay 1000
  End if
End Sub

'=====================破验证过程==============================
Sub CrackValidate
if GetPicText(290+ww,247+wh,413+ww,268+wh,GetKdsPath+"Validate\*.bmp",120,s) then'获得题目内容
  b=false '用于判断之前有没有已经可用的答案，如果有就不再判断接下来的答案
  s=Replace(s, "a", Empty)'比较图片是以a0-a9命名，把a替换成空，会变成可用的0-9
  s=Replace(s, "b", Empty)'比较图片是以b0-b9命名，把b替换成空，会变成可用的0-9
  r=EVal(s)'计算表示式，得到答案放至变量r里，表示式如:1+1
  print "题目:"+s+"="+CStr(r)
  '1========================
  if not b then '判断之前有没有已经可用的答案，如果有就不再判断接下来的答案
     if GetPicText(416+ww,229+wh,559+ww,246+wh,GetKdsPath+"Num\*.bmp",120,s) then'获得答案一内容，并且判断
       print "答案一:"+s
       if r = CInt(s) then  '判断答案是否正确
         SendLeftClick h,490,237 '如果正确就左键单击它
         b=true
         print "选择答案一"
       end if
    end if
    end if
  '2=========================
  if not b then  '判断之前有没有已经可用的答案，如果有就不再判断接下来的答案
     if GetPicText(416+ww,254+wh,559+ww,271+wh,GetKdsPath+"Num\*.bmp",120,s) then'获得答案二内容，并且判断
       print "答案二:"+s
       if r = CInt(s) then  '判

断答案是否正确
         SendLeftClick h,490,262 '如果正确就左键单击它
         b=true
         print "选择答案二"
       end if
    end if
    end if
  '3=========================
  if not b then  '判断之前有没有已经可用的答案，如果有就不再判断接下来的答案
     if GetPicText(416+ww,279+wh,559+ww,296+wh,GetKdsPath+"Num\*.bmp",120,s) then'获得答案三内容，并且判断
       print "答案三:"+s
       if r = CInt(s) then   '判断答案是否正确
         SendLeftClick h,490,287  '如果正确就左键单击它
         b=true
         print "选择答案三"
       end if
    end if
    end if
  '4=========================
  if not b then  '判断之前有没有已经可用的答案，如果有就不再判断接下来的答案
     if GetPicText(416+ww,304+wh,559+ww,321+wh,GetKdsPath+"Num\*.bmp",120,s) then'获得答案四内容，并且判断
       print "答案四:"+s
       if r = CInt(s) then   '判断答案是否正确
         SendLeftClick h,489,312 '如果正确就左键单击它
         b=true
         print "选择答案四"
       end if
     end if
    end if
end if
End Sub

'=====================平时补红蓝,打坐过程==============================
Sub CommonlySafe
  if GetUserVar("ChrHpVal",r) then'获得用户输入的人物加红数字
    v=((197+ww)-(97+ww))/100'该输入的数字计算出坐标
    x=(97+ww)+Round(v*r)
    y=29+wh
    if IsColor(x,y,&H001C29,20) then'颜色不为红时，表示没血了，就按F1
      SendKeyPress h,112
    end if
  end if
  if GetUserVar("ChrMpVal",r) then'获得用户输入的人物加蓝数字
    v=((197+ww)-(97+ww))/100'该输入的数字计算出坐标
    x=(97+ww)+Round(v*r)
    y=41+wh
    if IsColor(x,y,&H001C29,20) then   '颜色不为蓝时，表示没血了，就按F2
      SendKeyPress h,113
    end if
  end if
  if GetUserVar("ChrZaZen",r) then '获得用户输入的人物打坐加蓝数字
    if IsNumeric(r) then
      v=((197+ww)-(97+ww))/100
      x=(97+ww)+Round(v*r)
      y=41+wh                   '该输入的数字计算出坐标
      if IsColor(x,y,&H001C29,20) then    '颜色不为蓝时，表示没血了，就打坐
        if GetUserVar("ChrZaZenTime",r) then   '获得用户输入的人物打坐时间
          SendAltGroup h,68                '发送Alt+D 就是打坐标
          Delay CInt(r)
          SendAltGroup h,68            'h为游戏句柄,68为D的

end if
      end if
    end if
  end if
  if GetUserVar("PetHpVal",r) then   '获得用户输入的随从加红数字
    v=((119+ww)-(42+ww))/100
    x=(42+ww)+Round(v*r)
    y=96+wh                   '该输入的数字计算出坐标
    if IsColor(x,y,&H001C29,20) then    '颜色不为红时，表示没血了，就右键
      if not FindPic(ww,73+wh,41+ww,114+wh,GetKdsPath+"nopet.bmp",20,x,y) then  '判断有没有宠物
        SendRightClick h,20,100 '有宠物时才右键
      end if
    end if
  end if
End Sub