#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Global $logfilename, $WinTitle, $comp1x, $comp1y, $logfileopen, $check_mission_window_open, _
        $deskwidht, $deskhight, $missionlevel, $startbutton, $exitbutton, $mousepositionbutton, $E_Log, _
        $nMsg, $fileread, $confirm, $close_button, $close_questwatchframe, $collect_loot, _
        $randomnumber, $randomnumber_min, $short_random_sleep, $jPos, $installfiles, $count_companions_send, _
        $savemissionlevellabel, $savemissionlevelinput, $savemissionlevelbutton, $missionsfoundcount, $missionsfoundlabel, $crewskill, _
        $idlebutton, $companions, $companionlabel, $companioninput, $savecompanionbutton, $copyrightlabel, _
        $check, $crewskillpositionx, $crewskilliconlabel, $crewskilliconinput, $savecrewskilliconbutton, $helpcrewskilliconbutton


$crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")

Func opencrewskill()
    _writelogfile("Open Crew Skill Window.")
    ControlSend($WinTitle, "", "", "n", 1)
    Sleep(Random(1000, 2000))

    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
    _writelogfile("Scroll Down.")
    MouseClick("Left",465,807)

    _writelogfile("Scroll Up.")
    MouseClick("Left",465,427)
    EndIf
EndFunc

Func companion1()
    $crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")
    _writelogfile("Open " & $crewskill & " on Companion 1.")
    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
        MouseClick("Left", $crewskillpositionx, 420)
    Else
        MouseClick("Left", $crewskillpositionx, 455)
    EndIf
    move_mouse_center()
    Sleep(Random(1000, 2000))

    _writelogfile("Check if Mission Window is Open.")
    check_missionwindow_open()

    If $check_mission_window_open = 1 Then
        search()
    Else
        _writelogfile("Mission Window is not Open.")
    EndIf
EndFunc

Func companion2()
    $crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")
    _writelogfile("Open " & $crewskill & " on Companion 2.")
    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
        MouseClick("Left", $crewskillpositionx, 515)
    Else
        MouseClick("Left", $crewskillpositionx, 545)
    EndIf
    move_mouse_center()
    Sleep(Random(1000, 2000))

    _writelogfile("Check if Mission Window is Open.")
    check_missionwindow_open()

    If $check_mission_window_open = 1 Then
        search()
    Else
        _writelogfile("Mission Window is not Open.")
    EndIf
EndFunc

Func companion3()
    $crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")
    _writelogfile("Open " & $crewskill & " on Companion 3.")
    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
        MouseClick("Left", $crewskillpositionx, 610)
    Else
        MouseClick("Left", $crewskillpositionx, 645)
    EndIf
    move_mouse_center()
    Sleep(Random(1000, 2000))

    _writelogfile("Check if Mission Window is Open.")
    check_missionwindow_open()

    If $check_mission_window_open = 1 Then
        search()
    Else
        _writelogfile("Mission Window is not Open.")
    EndIf
EndFunc

Func companion4()
    $crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")
    _writelogfile("Open " & $crewskill & " on Companion 4.")
    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
        MouseClick("Left", $crewskillpositionx, 705)
    Else
        MouseClick("Left", $crewskillpositionx, 735)
    EndIf
    move_mouse_center()
    Sleep(Random(1000, 2000))

    _writelogfile("Check if Mission Window is Open.")
    check_missionwindow_open()

    If $check_mission_window_open = 1 Then
        search()
    Else
        _writelogfile("Mission Window is not Open.")
    EndIf
EndFunc

Func companion5()
    $crewskillpositionx=IniRead(@ScriptDir & "/" & "settings.ini", "Bioanalysis", "Iconposition", "155")
    _writelogfile("Open " & $crewskill & " on Companion 5.")
    MouseClick("Left", $crewskillpositionx, 795)
    Sleep(Random(1000, 2000))

    ;~ Move Mouse to Center of the Screen
    move_mouse_center()

    _writelogfile("Check if Mission Window is Open.")
    check_missionwindow_open()

    If $check_mission_window_open = 1 Then
        search()
    Else
        _writelogfile("Mission Window is not Open.")
    EndIf
EndFunc

Func workdone()
    _writelogfile("Close all Open Windows.")
    close_button()

    _writelogfile("Short Random Sleep.")
    short_random_sleep()

    _writelogfile("Collect Loot.")
    collect_loot()

    _writelogfile("Open Crewskill Window")
    ControlSend($WinTitle, "", "", "n", 1)
    Sleep(Random(1000, 2000))

    $check = IniRead("settings.ini", "Companions", "Companions", "1")
    If $check > 4 Then
        _writelogfile("Scroll Down.")
        MouseClick("Left",465,807)

        _writelogfile("Scroll Up.")
        MouseClick("Left",465,427)
    EndIf

    _writelogfile("Open Bags.")
    ControlSend($WinTitle, "", "", "b", 1)
    Sleep(Random(1000, 2000))

    ;~ Move Mouse to Center of the Screen
    move_mouse_center()

    _writelogfile("Short Random Sleep.")
    short_random_sleep()

    _writelogfile("Going to Sleep.")
    sleep_after_search()

    _writelogfile("Close all Open Windows.")
    close_button()

    _writelogfile("Collect Loot.")
    collect_loot()

    _writelogfile("Search Starts")
    comp1_reich()
EndFunc

Func comp1_reich()
$companions = IniRead(@ScriptDir & "/" & "settings.ini", "Companions", "Companions", "1")
    If $companions = 1 Then
        While 1
        opencrewskill()
        companion1()
        workdone()
        WEnd
    ElseIf $companions = 2 Then
        While 1
        opencrewskill()
        companion1()
        companion2()
        workdone()
        Wend
    ElseIf $companions = 3 Then
        While 1
        opencrewskill()
        companion1()
        companion2()
        companion3()
        workdone()
        WEnd
    ElseIf $companions = 4 Then
        While 1
        opencrewskill()
        companion1()
        companion2()
        companion3()
        companion4()
        workdone()
        WEnd
    ElseIf $companions = 5 Then
        While 1
        opencrewskill()
        companion1()
        companion2()
        companion3()
        companion4()
        companion5()
        workdone()
        WEnd
    ElseIf $companions < 5 Then
        Local $confirm = MsgBox(0, "Error", "Invalid Companion Count!")
        If $confirm = 1 Then
            idle()
        EndIf
    EndIf
EndFunc