Results 1 to 6 of 6
  1. #1
    UCSerge's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Posts
    281
    Reputation
    10
    Thanks
    911

    uB Box Adder Bot

    Code:
    ;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
    Last edited by Hunter; 02-02-2016 at 07:34 AM.

  2. The Following User Says Thank You to UCSerge For This Useful Post:

    Riddick (03-14-2014)

  3. #2
    meirking1998's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Location
    In huge hole
    Posts
    81
    Reputation
    10
    Thanks
    5
    My Mood
    Cynical
    How does it works?

  4. #3
    COD3RIN's Avatar
    Join Date
    May 2013
    Gender
    male
    Location
    Posts
    4,942
    Reputation
    315
    Thanks
    22,165
    My Mood
    Busy
    Quote Originally Posted by meirking1998 View Post
    How does it works?
    Download autoit then paste it


    Love you.
    ~Kenshit13
    Quote Originally Posted by cheaterman26 View Post
    COD3RIN PUT A BACKDOOR ON HIS OWN CHEAT HE HACK MY COMPUTER AND MY STEAM, DON'T TRUST THIS GUYS !

  5. #4
    minebill's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Location
    TerrestrialDatabase
    Posts
    528
    Reputation
    10
    Thanks
    386
    My Mood
    Angelic
    Quote Originally Posted by COD3RIN View Post

    Download autoit then paste it
    and then? i can use it?

  6. #5
    minebill's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Location
    TerrestrialDatabase
    Posts
    528
    Reputation
    10
    Thanks
    386
    My Mood
    Angelic
    btw when i try to run it is says: Error "if" statments must a "Then" keyword. in line 42

  7. #6
    UCSerge's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Posts
    281
    Reputation
    10
    Thanks
    911
    Quote Originally Posted by minebill View Post
    btw when i try to run it is says: Error "if" statments must a "Then" keyword. in line 42
    you have to understand how to fix that by yourself.

Similar Threads

  1. [Detected] uB Auto Box Adder Bot For LD:E 1.0
    By UCSerge in forum Alliance of Valiant Arms (AVA) Spammers, Injectors and Multi Tools
    Replies: 57
    Last Post: 03-14-2014, 04:57 AM
  2. [Release] Dage's Endurance Test Quest Bot and Dage's Black Box Quest Bot
    By akang99 in forum Adventure Quest Worlds (AQW) Hacks / Cheats / Trainers
    Replies: 50
    Last Post: 10-03-2013, 09:48 PM
  3. [Solved] Box adder (mini farmer) help
    By nicoES in forum Alliance of Valiant Arms (AVA) Help
    Replies: 1
    Last Post: 03-22-2013, 10:30 PM
  4. [Help] Darkorbit Bot Box
    By matrixx97 in forum Social Game Hacks & Trainers
    Replies: 1
    Last Post: 06-17-2012, 01:40 PM
  5. [Release] Eden Eternal Free Loot Box Bot
    By card123 in forum Eden Eternal Hacks
    Replies: 24
    Last Post: 01-01-2012, 08:48 PM