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
Next
   Delay 2000
   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 1423, 910
    Delay 1000
    RightClick 1
    Delay 25000
    Else
IfColor 1160,932,"17879E",1 Then
        SaveMousePos
End If
    SaveMousePos
End If
    Delay 1000
    IfColor 1160,932,"17879E",2 Then 
     MoveTo 1423, 910
    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
    IfColor 1160,932,"17879E",2 Then 
    MoveTo 1435, 900
    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
    IfColor 1160,932,"17879E",2 Then 
    MoveTo 1448, 885
    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