created by xolraid
yunanagajo

Format: QMacro Script
Name: Galactic Conquest Auto Clicker
Description: Research in two browser

Script:
#This is the script source file created by Quick Macro
#You can modify this file on the condition that you understand the various commands
#The modification result will be reflected in common view

x=750
count=0
internetdelay=2000
computerdelay=5000
user=0
re=1
//VBSCall re=InputBox("Research(1) or Digging(2)?")
//
//
//
//
//
//
//
Rem start
IfColor 460,720,0,1
    Gosub open
Else
    IfColor 100,720,1,1
        Goto optready
    Else
        Gosub open
    EndIf
EndIf
Goto click
//
//
//
//
Rem load
user=1
Gosub logintoresearch
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
Delay 1000
user=2
Gosub logintoresearch
Goto click
//
//
//
//
Rem optready
VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/startresearch.bmp",0.9,x6,y6)
If x6>=0 and y6>=0
    KeyDown 18,1
    KeyPress 9,1
    KeyUp 18,1
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/startresearch.bmp",0.9,x6,y6)
    If x6>=0 and y6>=0
        Goto click
    Else
        Goto load
    EndIf
Else
    Goto load
EndIf
//
//
Rem digorresearch
If re=2
    Beep
    Beep
    Gosub gotodig
    Goto click
Else
EndIf
If re =1
    Beep
    Beep
    Beep
    Beep
    Gosub gotoresearch
    Goto click
Else
EndScript
EndIf
//
//
//
//
Rem click
SaveMousePos
If re=2
    VBSCall FindColor(1,219,1279,730,"5A372C",x,y)
    If x>=0 and y>=0
        MoveTo x y
        LeftDoubleClick 1
        KeyPress 57,1
        LeftClick 1
        MoveR 35,0
        LeftClick 1
    Else
        Beep
        Delay 500
        IfColor x,700,0,1
            Gosub refresh
        Else
        EndIf
        Goto click
    EndIf
Else
    If re =1
        VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/startresearch.bmp",0.9,x6,y6)
        If x6>=0 and y6>=0
            MoveTo x6+10,y6+5
            LeftClick 1
        Else
            Beep
            Delay 500
            IfColor x,700,0,1
                Gosub refresh
            Else
            EndIf
            Goto click
        EndIf
    Else
        Goto click
    EndIf
EndIf
RestoreMousePos
count=count+1
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
IfColor 475,700,0,1
    Goto menu
Else
EndIf
Delay 35000
Goto click
//
//
//
//
Sub refresh
    Delay 180000
    KeyPress 116,1
    KeyPress 13,1
    Beep
    Delay 10000
    Goto start
Return refresh
//
//
//
//
Sub gotodig
    //click manage colonies
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/managecolonies.bmp",0.9,x3,y3)
    If x3>=0 and y3>=0
        Beep
        MoveTo x3+10,y3+5
        LeftClick 1
    Else
    EndIf
    //click the planet
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/e1817.bmp",0.9,x4,y4)
    If x4>=0 and y4>=0
        Beep
        MoveTo x4+10,y4+5
        LeftClick 1
    Else
    EndIf
    //click excavation dig
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/excavationdig.bmp",0.9,x5,y5)
    If x5>=0 and y5>=0
        Beep
        MoveTo x5+10,y5+5
        LeftClick 1
    Else
    EndIf
Return gotodig
//
//
//
//
Sub gotoresearch
    //click research
    Delay internetdelay
    Rem clkgtresearch1
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/research.bmp",0.9,x7,y7)
    If x7>=0 and y7>=0
        Beep
        MoveTo x7+10,y7+5
        LeftClick 1
    Else
        Gosub errnotfound
        Goto clkgtresearch1
    EndIf
    //click research
    Delay internetdelay
    Rem clkgtresearch2
    VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/continueresearch.bmp",0.9,x8,y8)
    If x8>=0 and y8>=0
        Beep
        MoveTo x8+10,y8+5
        LeftClick 1
    Else
        Gosub errnotfound
        Goto clkgtresearch2
    EndIf
Return gotoresearch
//
//
//
//
Sub logout
    //click logout
    Delay internetdelay
    Delay internetdelay
    Delay internetdelay
    VBSCall FindPic(1,100,1270,200,"C:\Users\CY\Desktop\GC/logout.bmp",0.9,x1,y1)
    If x1>=0 and y1>=0
        Beep
        MoveTo x1+10,y1+5
        LeftClick 1
        MoveR 0,0
        MoveR 0,50
    EndIf
Return logout
//
//
//
//
Sub login
    //click login
    Delay internetdelay
    Rem clklogin
    VBSCall FindPic(1,100,1270,200,"C:\Users\CY\Desktop\GC/login.bmp",0.9,x2,y2)
    If x2>=0 and y2>=0
        Beep
        MoveTo x2+10,y2+5
        LeftClick 1
        Delay internetdelay
    Else
        Gosub errnotfound
        Goto clklogin
    EndIf
    //move to RT server
    MoveR -300,400
    LeftClick 1
    Delay internetdelay
    Delay 2000
    //keyin username
    If user=1
        Gosub typexolraid
    Else
        Gosub typejerox
    EndIf
    //finish keyin username
    //keyin password
    KeyDown 9,1
    Delay 500
    KeyDown 73,1
    Delay 100
    KeyDown 76,1
    Delay 100
    KeyDown 85,1
    Delay 100
    KeyDown 88,1
    Delay 100
    KeyDown 87,1
    Delay 100
    KeyDown 69,1
    Delay 100
    KeyDown 68,1
    Delay 500
    KeyPress 13,1
    //keyin password finish
    //click the button
    Delay internetdelay
    Rem clkglogin1
    VBSCall FindColor(400,590,1270,640,"5A372C",x,y)
    If x>=0 and y>=0
        Beep
        MoveTo x y
        LeftClick 1
        Delay internetdelay
    Else
        Gosub errnotfound
        Goto clkglogin1
    EndIf
Return login
//
//
//
//
//
//
Sub open
    //
    //
    //
    //
    user=1
    VBSCall RunApp("C:\Program Files\Safari\safari.exe")
    Delay internetdelay
    Rem clkgcbt1
    IfColor 512,135,0,0
        Plugin safari=Window.GetKeyFocusWnd()
        Beep
        MoveTo 550 ,230
        LeftClick 1
    Else
        Gosub errnotfound
        Goto clkgcbt1
    EndIf
    Gosub logintoresearch
    //
    //
    user=2
    VBSCall RunApp("C:\Program Files\Google\Chrome\Application\chrome.exe")
    Delay internetdelay
    Rem clkgcbt2
    IfColor 80,200,0,0
        Plugin chrome=Window.GetKeyFocusWnd()
        Beep
        MoveTo 150,260
        LeftClick 1
    Else
        Gosub errnotfound
        Goto clkgcbt2
    EndIf
    Gosub logintoresearch
Return open
//
//
//
//
Sub logintoresearch
    Gosub logout
    Gosub login
    Gosub gotoresearch
    For 4
        Delay internetdelay
        Rem clkstrresearch1
        VBSCall FindPic(1,1,1270,735,"C:\Users\CY\Desktop\GC/startresearch.bmp",0.9,x6,y6)
        If x6>=0 and y6>=0
            Beep
            MoveTo x6+10,y6+5
            LeftClick 1
        Else
            Delay 300
            Goto clkstrresearch1
        EndIf
    EndFor
Return logintoresearch
//
//
//
//
Sub errnotfound
Return errnotfound
//
//
//
//
Sub typejerox
    KeyDown 74,1
    Delay 100
    KeyDown 69,1
    Delay 100
    KeyDown 82,1
    Delay 100
    KeyDown 79,1
    Delay 100
    KeyDown 88,1
    Delay 500
Return typejerox
//
//
//
//
Sub typexolraid
    KeyDown 88,1
    Delay 100
    KeyDown 79,1
    Delay 100
    KeyDown 76,1
    Delay 100
    KeyDown 82,1
    Delay 100
    KeyDown 65,1
    Delay 100
    KeyDown 73,1
    Delay 100
    KeyDown 68,1
    Delay 500
Return typexolraid
//
//