uB Box Adder Bot

;Coded in AutoIt3(trash)
Global $Alive
Global $CheckFail
Global $NeedToAddBoxes = 0
Global $NeedToOpenMenu = 0


HotKeySet("{End}", "PBBot")
HotKeySet("{Del}", "EndApp")
;HotKeySet("{Ins}", "ViewOptions")

Opt("MouseClickDownDelay ", 20)
Opt("MouseClickDelay ", 100)
Opt("SendKeyDownDelay", 25)
Opt("SendKeyDelay", 10)
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)


While 1
Sleep(1000)
WEnd

func PBBot()
      
      $Alive = Not $Alive
      While $Alive
      Sleep(10)

        
      If ProcessExists("WerFault.exe") Then
      ProcessClose("WerFault.exe")
      ProcessClose("AVA.exe")
      $CheckFail = 0
      MsgBox(0, "Error", "Some Fail Occured")
      Exit 0
      EndIf
     

      If WinExists("Message (VER 4721.357137)") Then
      ProcessClose("AVA.exe")
      $CheckFail = 0
      MsgBox(0, "Error", "Some Fail Occured")
      Exit 0
      EndIf


         
      If $CheckFail >= 750 Then
      ;MsgBox(0, "", "$CheckFail = " & $CheckFail, 5)
      ProcessClose("AVA.exe")
      ProcessClose("NWZLauncher.exe")
      $CheckFail = 0
      MsgBox(0, "Error", "Some Fail Occured")
      Exit 0
      EndIf
          
      $number1000 = 0 ;Check Channel Status
      Sleep(10)
      $coord = PixelSearch(320,473, 379, 514, 0xFF9A00, 5); F5 Quick Join Channel List
      If @error = 0 Then $number1000 += 1
      $coord = PixelSearch(320, 150, 367, 185, 0xFFA624, 5) ;Public Channel Selection Visible
      If @error = 0 Then $number1000 += 2
      $coord = PixelSearch(375, 340, 400, 465, 0xFFB500, 5) ;Capsule Visible
      If @error = 0 Then $number1000 += 3
    
      Switch $number1000  
      Case 6
      Sleep(500)
      MouseClick("Left", 595,184,2,7)
      Sleep(2000)
      EndSwitch ;Joins USA CO-Op Channel

      $number10000 = 0
      $coord = PixelSearch(320, 150, 368, 185, 0xFFA624, 5); Public Channel Not Selected
      If @error = 1 Then $number10000 += 1
      $coord = PixelSearch(375, 340, 400, 465, 0xFFB500, 5) ;Capsule Visible
      If @error = 0 Then $number10000 += 2
      $coord = PixelSearch(415, 445, 455, 495, 0xD65013, 5) ;Not in PB:S Room
      If @error = 1 Then $number10000 += 3

      Switch $number10000
      Case 6
      Sleep(500)
      MouseClick("Left", 430,160,2,7)
      MouseMove(595,184,7)
      EndSwitch
      
      $number5 = 0 ;Makes room
      Sleep(10)
      $coord = PixelSearch(404, 243, 422, 258, 0xFFB500, 5) ;ready
      If @error = 0 Then $number5 += 1
      Sleep(100)
      $coord = PixelSearch(318, 288, 352, 326, 0xE8E8E8, 5) ;Room
      If @error = 0 Then $number5 += 2
      
      Switch $number5
      Case 3
      Sleep(500)
      Opt("MouseClickDownDelay", 50)
      Opt("MouseClickDelay", 250)
      MouseClick("left", 422, 361, 1) ; create room
      MouseClick("left", 228, 384, 1) ; Select LD:E
      MouseClick("left", 812, 351, 1) ;click max players
      MouseClick("left", 812, 373, 1) ;change to 1 player
      MouseClick("left", 452, 612, 3) ; Click OK
      Opt("MouseClickDelay", 50)
      Sleep(3000)
      EndSwitch ;Makes room

      $coord = PixelSearch(462, 246, 469, 261, 0xEEAA07, 5) ;start
      If Not @error Then
      Sleep(100)
      Send("{F5}")
      $NeedToAddBoxes = 0
      Sleep(8000)
      EndIf

     
      $coord = PixelSearch(180, 90, 630, 130, 0xFF9700, 5) ;Enemy Incoming Msg(GameStart)
      If Not @error Then
      If $NeedToAddBoxes = 0 Then
      $coord2 = PixelSearch(14, 34, 63, 45, 0x1F4040, 5) ;uB Menu Open
      If Not @error Then
      $NeedToOpenMenu = 1
      Send("{HOME}")
      Sleep(500)
      $NeedToOpenMenu = 0
      EndIf
      If $NeedToOpenMenu = 0 Then
      Send("{Home}")
      Sleep(100)
      MouseClick("Left", 244, 61, 1, 5) ;Co-op
      MouseClick("Left", 80, 100, 1, 5) ;Add Boxes
      Send("{Home}")
      $NeedToAddBoxes += 1
      Sleep(100)
      Send("{4}")
      Sleep(250)
      MouseMove(420,550,1)
      Sleep(100)
      MouseMove(MouseGetPos(0), MouseGetPos(1) +57) ;toss nade
      Sleep(100)
      MouseClick("right")
      Sleep(750)
      MouseClick("right")
      Sleep(1500)
      Send("{4}")
      Sleep(250)
      MouseMove(420,550,1)
      Sleep(100)
      MouseMove(MouseGetPos(0), MouseGetPos(1) +57) ;toss nade
      Sleep(100)
      MouseClick("right")
      Sleep(750)
      MouseClick("right")
      EndIf
      EndIf
      EndIf
      
          
      $coord = PixelSearch(500, 480, 533, 515, 0x6794BB, 5)
      $CheckFail += 1
      If Not @error Then ;game load screen
      Sleep(500)
      Send("{ESC}")
      Sleep(500)
      $CheckFail = 0
          EndIf


      $coord = PixelSearch(54, 123, 86, 150, 0x65340E, 5)
      If Not @error Then ;Beginner's Training Task
      $CheckFail = 0
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      EndIf

      $coord = PixelSearch(553, 569, 586, 600, 0x573100, 5)
      If Not @error Then ;Exit Game? No
      Sleep(500)
      MouseClick("Left", $coord[0], $coord[1], 7, 1)
      Sleep(500)
      EndIf

      $coord = PixelSearch(458, 478, 487, 508, 0x405110, 5)
      If Not @error Then ;Center confirm box
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      EndIf
   
      $coord = PixelSearch(491, 468, 518, 493, 0x405110, 5)
      If Not @error Then ;Daily missions ok box
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      $CheckFail = 0
      EndIf
   
      $coord = PixelSearch(388, 487, 421, 519, 0x405110, 5)
      If Not @error Then ;invite search
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      EndIf
      
      $coord = PixelSearch(413, 255, 429, 271, 0xFF8419, 3)
      If Not @error Then ;maintenance check
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      $CheckFail = 0
      EndIf
      
      $coord = PixelSearch(727, 558, 747, 581, 0xBD822B, 5)
      If Not @error Then ;repurchase
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      $CheckFail = 0
      EndIf
      
      $coord = PixelSearch(581, 367, 800, 600, 0xD6AE00, 5)
      If Not @error Then ;accidental escape check
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      EndIf
   
      $coord = PixelSearch(30, 105, 57, 135, 0xC9C9C9, 5)
      If Not @error Then ;Close Reward Screen
      $CheckFail = 0
      Sleep(500)
      Send("{Esc}")
      Sleep(500)
      EndIf
      WEnd
      EndFunc


;func ViewOptions()
;FileInstall("Options.png", "AVAOptions.png")
;ShellExecute(@ScriptDir & "\AVAOptions.png")
;EndFunc


      func EndApp()
      Exit 0
      EndFunc