a(n)=fx 
            b(n)=7 
        EndIf  
    wend  
    leftx=lx 
    m=m-1 
    While n<>m 
        m=n 
        FindPic leftx,upy,rightx,downy,number8,Similar,fx,fy 
        If fx>=0 and fy>=0 
            n=n+1 
            leftx=fx+1 
            a(n)=fx 
            b(n)=8 
        EndIf  
    wend  
    leftx=lx 
    m=m-1 
    While n<>m 
        m=n 
        FindPic leftx,upy,rightx,downy,number9,Similar,fx,fy
        If fx>=0 and fy>=0 
            n=n+1 
            leftx=fx+1 
            a(n)=fx 
            b(n)=9 
        EndIf  
    wend  
    leftx=lx 
    m=m-1
    While p
        j=a(1) 
        i=1 
        h=1 
        While i
            If j>a(i) 
            Else  
                j=a(i) 
                h=i 
            EndIf  
            i=i+1 
        wend  
        a(h)=0 
        q(p)=h 
        p=p+1 
    wend  
    g=1 
    u=1 
    num=0
    //读取到有数字返回值为  num，   没读取到有数字返回值为0
  If n=0 then
     num=1
  Else 
   For n 
        num=num+b(q(g))*10^(g-1) 
        g=g+1       
   Next 
  End If 
     'jiaqian(cishu)=num     //这些都是测试时用的，可以不必理
     'lx=leftx+30
     'leftx=leftx+30
     'rightx=rightx+30  
     'cishu=cishu+1
  wupin=JQ*num //改初始坐标
End Function 


Rem jiancha
Sub  检查并交易  
   ifcolor 167,269,"44EEFF",0    //检查对方是否先点击了交易
     MoveTo 161,426 
     Delay 150
     LeftClick 1
     Delay 150
     LeftClick 1
     Delay 150
     FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY
       If intX > 0 And intY > 0 Then
         KeyPress "Esc", 1
         gosub 站街自动喊话
       end if
     Else 
         time4=Plugin.Sys.GetTime 
          If time4-time1>120000 Then   //凡是时间这一块我都没有去测试 也不知道哦这代码对不对~
            KeyPress "Esc", 1
            gosub 站街自动喊话
          Else 
            Goto jiancha
         End If 
    End If 
End Sub


Sub 防掉线   //完成
  For 2
   MoveTo 33,439
   Delay 600
   KeyPress "w", 1
   Delay 100
   KeyPress "q", 1