MoveTo x,y
    Delay 1000
    RightClick 1
Delay 1000
RightClick 1
If x>-1 and y>-1 Then
    SaveMousePos
End If
    SaveMousePos
End If
    Delay 7000
   Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 1000
   IfColor 1160,932,"17879E",2 Then 
    MoveTo 1451, 880
    Delay 1000
    RightClick 1
   Delay 1000
    Call FindColorEx(483,221,1476,701,"080873",1,0.8,x,y)
If x>0 and y>0 Then
    MoveTo x,y
    Delay 1000
    RightClick 1
Delay 1000
RightClick 1
If x>-1 and y>-1 Then
    SaveMousePos
End If
    SaveMousePos
End If
    Delay 7000
  Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 1000
    Next
    Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 2000
  IfColor 1160,932,"17879E",2 Then 
  Delay 2000
    For 7
    IfColor 1160, 932, "17879E", 2 Then
    MoveTo 1282, 764
    Delay 1000
    RightClick 1
    Delay 45000
    Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 1000
    IfColor 1160, 932, "17879E", 2 Then
    MoveTo 1282, 764
    Delay 1000
    RightClick 1
     Delay 1000
    Delay 1000
    Call FindColorEx(483,221,1476,701,"080873",1,0.8,x,y)
If x>0 and y>0 Then
    MoveTo x,y
    Delay 1000
    RightClick 1
Delay 1000
RightClick 1
If x>-1 and y>-1 Then
    SaveMousePos
End If
    SaveMousePos
End If
    Delay 7000
   Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 1000    
   IfColor 1160, 932, "17879E", 2 Then
    MoveTo 1294, 749
    Delay 1000
    RightClick 1
     Delay 1000
    Call FindColorEx(483,221,1476,701,"080873",1,0.8,x,y)
If x>0 and y>0 Then
    MoveTo x,y