i = 0
    Do
        If i<6 Then
            Dim zb
            zb = split(zouwei(i), ",", - 1 , 0)
            pyx = int(rnd *5)
            pyy = int(rnd *5)
            zb_x = zb(0)+pyx
            zb_y = zb(1)+pyy
            i = i+1
            MoveTo zb_x + d2_pyx, zb_y + d2_pyy
            LeftClick 1
            Delay runtime+int(rnd*200)
        Else 
        stateinfo = "跑路已完成"
        显示信息
//        Delay 10
        Exit Do
        End  if
    Loop
End Sub
Sub Runtolaopi
stateinfo="去杀老皮"
显示信息
 KeyPress amhotkey,1
 Delay 500+int(rnd*500)
 RightClick 1
 Delay 500
// KeyPress "F1",1
// Delay 500
// RightClick 1
// Delay 1000
    Dim zz
    zz="753,160|727,84 |650,100|500,50"
    Dim zouwei
    zouwei = Split(zz, "|", - 1 , 0)
    i = 0
    Do
        If i < 4 Then 
        Dim zb
        zb = split(zouwei(i), ",", - 1 , 0)
        zb_x = zb(0)+int(rnd*10)
        zb_y = zb(1)+int(rnd*10)
        i = i + 1
        Delay 10+int(rnd*50)
        KeyPress tphotkey, 1
        Delay 100
       MoveTo zb_x + d2_pyx, zb_y + d2_pyy
       Delay 100
       RightClick 1
        Delay sctime+int(rnd*200)
    Else 
        Exit Do
    End  if
Loop
End Sub
Function inTPdoor()
    //找TP门并进入
     //------------------------------------------------------
     //        inTP
     //        0:失败 1:成功
     //------------------------------------------------------
     ii=1:dtime=0:d2state=0:maxdelay=5*maxdelay
     do While dtime<maxdelay
         //开始等待TP开门
        FindColor d2_pyx+50,d2_pyy+50,d2_pyx+700,d2_pyy+500,"7070E0",intX,intY        //TP
        FindColor d2_pyx+400-100,d2_pyy+300-50,d2_pyx+400+100,d2_pyy+300+50,"4CC0F4",intX1,intY1        //小圈
        If intX>0 And intX1>0 Then
            stateinfo="TP门找到，正在尝试进入TP门..." 
            显示信息
            //间隔点击TP门， 和小地图黄圈（归位，防止跑太远）
            If ii=1 then
                MoveTo intX+int(rnd*5),intY+50+int(rnd*10)
                ii=0
            Else
                MoveTo intX1,intY1
                ii=1
            End If
            Delay 20
            LeftClick 1
            MoveR  0, 20
            Delay 1500+int(rnd*100)   
        Else
            stateinfo="未找到红门 -退出游戏" & "/" & (maxDelay-dtime)
            显示信息 
            exitGame
        End if
        GetColor = GetPixelColor(d2_pyx + 136, d2_pyy + 566)
           If GetColor = "485058" Then
            stateinfo="你拉塞克"
            显示信息 
            d2state=3        //你拉塞克
            Exit do 
        end if
        d2state=getd2state()
        If d2state=1 then
            Exit do
        End if
        Delay 500
        dtime = dtime + 1