//变量
i = 0
x1=0
y1=0
x2=1024
y2 = 768
x0 = 1
x5=5
x7 = 7

Rem 自动掠夺10J野地
   
Dim a(5)
//图片数组赋值
//a(0)=359 //　猛陵
//a(1)=380 //陕县
a(0)=401 //湖县
a(1)=425 //崇明
a(2)=446 //不渔
//a(5)=467 //俊靡
//a(6)=492 //高显
//a(7)=511 //声望城
//a(8)=536 //广元
//a(9) = 555 //胡林
a(4)=577  //不要
//a(11)=598  //山东
//a(12)=620  //乐山
//a(13)=641  //夜里
a(3) = 665 //下岗
Goto 三国选城
EndScript
 
Rem 三国选城

For 5
   
    n=1
    While 1 = 1
        If n = 1 		
       
            FindPic x1, y1, x2, y2, "Attachment:\城门.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x,y+10
                Delay 1000
                LeftClick 1
                Delay 2000
                MoveTo x,a(i)
                Delay 2000
                LeftClick 1
            End If
        
        End If
	
        Delay 2000
        If n=1
            FindPic x1, y1, x2, y2, "Attachment:\地图1.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x,y
                Delay 1000
                LeftClick 1
                Delay 2000 
            End If
            FindPic x1, y1, x2, y2, "Attachment:\地图.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x,y
                Delay 1000
                LeftClick 1
                Delay 2000 
            End If
        End If
        Rem 房子
       
        If n = 1 
            FindPic x1, y1, x2, y2, "Attachment:\位置.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+92,y-54
                Delay 1000
                LeftClick 1
                Delay 2000
            End If
        End If   
        If x>0 
            Goto 三国野地掠夺
        End If 
        n=n+1
        If n>9
            n=1
        End If    
    Wend 
    Delay 5000
    
    Rem 三国野地掠夺
    n=1
    While 1=1
        If n=1
            FindPic x1, y1, x2, y2, "Attachment:\10J.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x,y
                Delay 1000
                LeftClick 2