Releasing this source mostly cause its useless now box adding and other functions no longer work.
It's just for people who wanna learn things.
Note: Everywhere you see "If Not error / If error" must add "@" before "error" removed due to mention tags.
Code:
Global $mode = 0
Global $Alive
Local $number, $string
Opt("MouseCoordMode", $mode)
Opt("PixelCoordMode", $mode)
HotKeySet("{End}", "CheckAll")
HotKeySet("{Del}", "EndApp")
While 1
Sleep(100)
WEnd
func CheckAll()
$Alive = Not $Alive
While $Alive
Sleep(100)
$coord = PixelSearch(390, 492, 422, 522, 0x54661C, 3)
If Not error Then ;invite search
Sleep(100)
Send("{Esc}")
EndIf
Sleep(100)
$coord = PixelSearch(463, 487, 486, 512, 0x54661C, 3)
If Not error Then ;host error check
Sleep(100)
Send("{Esc}")
Sleep(1000)
EndIf
Sleep(100)
$coord = PixelSearch(513, 554, 542, 584, 0x261F00, 3)
If Not error Then ;Repurchase check
Sleep(100)
Send("{Esc}")
Sleep(1000)
EndIf
Sleep(100)
$coord = PixelSearch(322, 294, 347, 321, 0xD8D9D9, 3)
If Not error Then
Sleep(100)
MouseMove(422, 361, 15) ;createroom
Sleep(20)
MouseClick("left")
Sleep(500)
MouseMove(248, 388, 15) ;select room
Sleep(20)
MouseClick("left")
Sleep(500)
MouseMove(461, 612, 15) ;click ok
Sleep(20)
MouseClick("left")
Sleep(1500)
EndIf
$number = 0
Sleep(100)
$search1 = PixelSearch(882, 157, 922, 167, 0xD2D2D2, 3)
If error = 0 Then $number += 1
Sleep(100)
$search2 = PixelSearch(884, 181, 924, 193, 0xD2D2D2, 3)
If error = 0 Then $number += 2
Sleep(100)
$search3 = PixelSearch(885, 206, 924, 215, 0xD2D2D2, 3)
If error = 0 Then $number += 3
$search4 = PixelSearch(319, 432, 501, 528, 0xEB2A00, 3)
If error = 0 Then $number += 4
Switch $number
Case 10
Sleep(100)
MouseMove(418, 257, 10) ;start
Sleep(150)
MouseClick("left")
Sleep(7000)
EndSwitch
Sleep(100)
$coord = PixelSearch(250, 105, 590, 140, 0xFFA700, 3)
If Not error Then
Sleep(250)
Send("{Home}")
Sleep(200)
MouseMove(239, 262, 15) ;menuclick player
Sleep(25)
MouseDown("left")
Sleep(50)
MouseUp("left")
Sleep(300)
MouseMove(224, 353, 15) ;menuclick addboxes
Sleep(25)
MouseDown("left")
Sleep(50)
MouseUp("left")
Sleep(300)
MouseMove(312, 262, 15) ;menuclick misc
Sleep(20)
MouseDown("left")
Sleep(50)
MouseUp("left")
Sleep(300)
MouseMove(467, 373, 15) ;menuclick endgame
Sleep(20)
MouseDown("left")
Sleep(50)
MouseUp("left")
Sleep(250)
Send("{Home}") ;close menu
Sleep(1000)
EndIf
Sleep(100)
$coord = PixelSearch(27, 110, 57,136, 0xD2D2D2, 3)
If Not error Then
Sleep(250)
MouseMove(511, 728, 15) ;click close
Sleep(20)
MouseClick("left")
Sleep(1000)
MouseMove(385, 753, 15)
Sleep(20)
MouseClick("left")
Sleep(500)
$coord = 0
$search1 = 0
$search2 = 0
$search3 = 0
Sleep(100)
EndIf
WEnd
EndFunc
func EndApp()
Exit 0
EndFunc