Need help about GUI not closing.

[DuyV]

Hello, This is the first time I use autoit to make a game bot. I create a GUI with KODA and after writing all the codes. Nothing works and I can't even close the GUI.

Here is my script

expandcollapse popup

#include 
#include 
#include 
#include 
#include 
#include 
#Region ### START Koda GUI section ### Form=C:\Users\Duy Vo\Desktop\audi-auto\Forms\AuditionAuto.kxf
$AuditionAuto = GUICreate("Audition Auto", 306, 434, 288, 179, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
GUISetFont(11, 400, 0, "MS Sans Serif")
$water = GUICtrlCreateCheckbox("Water", 16, 32, 97, 17)
$brush = GUICtrlCreateCheckbox("Brush", 16, 64, 97, 17)
$fert = GUICtrlCreateCheckbox("Fert", 16, 96, 97, 17)
$gift = GUICtrlCreateCheckbox("Gift", 192, 32, 97, 17)
$heart = GUICtrlCreateCheckbox("Heart", 192, 64, 97, 17)
$money = GUICtrlCreateCheckbox("Money", 192, 96, 97, 17)
$delay = GUICtrlCreateInput("Delay Time In Second", 16, 120, 150, 24)
$nos = GUICtrlCreateInput("Number Of Spin", 128, 224, 81, 21)
GUICtrlSetFont($nos, 4, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor($nos, 0xFFFFE1)
$gdtitle = GUICtrlCreateLabel("Garden Auto", 120, 8, 79, 20)
$hbtitle = GUICtrlCreateLabel("Happy Box Auto", 120, 200, 101, 20)
$x1K = GUICtrlCreateRadio("1K", 16, 256, 113, 17)
$x2K = GUICtrlCreateRadio("2K", 16, 280, 113, 17)
$x3K = GUICtrlCreateRadio("3K", 16, 304, 113, 17)
$x4K = GUICtrlCreateRadio("4K", 16, 328, 113, 17)
$x5K = GUICtrlCreateRadio("5K", 16, 352, 113, 17)
$x6K = GUICtrlCreateRadio("6K", 170, 256, 113, 17)
$x7K = GUICtrlCreateRadio("7K", 170, 280, 113, 17)
$x8K = GUICtrlCreateRadio("8K", 170, 304, 113, 17)
$x9K = GUICtrlCreateRadio("9K", 170, 328, 113, 17)
$x10K = GUICtrlCreateRadio("10K", 170, 352, 113, 17)
$gdstart = GUICtrlCreateButton("Start Garden Auto", 8, 152, 113, 33)
$hbstart = GUICtrlCreateButton("Start Happy Box Auto", 8, 384, 137, 33)
$gdstop = GUICtrlCreateButton("Stop", 176, 152, 121, 33)
$hbstop = GUICtrlCreateButton("Stop", 176, 384, 121, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



Opt("MouseCoordMode", 0)
Opt("CaretCoordMode", 0)
Opt("MouseClickDownDelay", 200)
Opt("PixelCoordMode", 0)

HotKeySet("^g","gdstop")
HotKeySet("^h","hbstop")

$am = 0
$gdstophk = 0




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $x1K
$am = 1
Case $x2K
$am = 2
Case $x3K
$am = 3
Case $x4K
$am = 4
Case $x5K
$am = 5
Case $x6K
$am = 6
Case $x7K
$am = 7
Case $x8K
$am = 8
Case $x9K
$am = 9
Case $x10K
$am = 10
Case $gdstart
gd()
Case $hbstart
hb()
EndSwitch

WEnd


Func gd()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $gdstop
ExitLoop
Case $gdstophk = 1
ExitLoop
Case $water
water()
Case $brush
brush()
Case $fert
fert()
Case $gift
gift()
Case $heart
heart()
Case $money
money()
EndSwitch

Sleep($delay * 1000)
WEnd
EndFunc

Func gdstop()
$gdstophk = 1
EndFunc


Func water()
$Search = 1

MouseMove(344,494)
MouseClick("left", 344, 494, 1, 50)
While $Search = 1
$Search = 0
$Search = _ImageSearch('water.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)
EndIf
WEnd
EndFunc

Func brush()
$Search = 1

MouseMove(512,494)
MouseClick("left", 344, 494, 1, 50)
While $Search = 1
$Search = 0
$Search = _ImageSearch('brush.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)
EndIf
WEnd
EndFunc


Func fert()
$Search = 1

MouseMove(405,494)
MouseClick("left", 344, 494, 1, 50)
While $Search = 1
$Search = 0
$Search = _ImageSearch('fert.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)

EndIf
WEnd
EndFunc


Func gift()
$Search = 1
While $Search = 1
$Search = 0
$Search = _ImageSearch('gift.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseClick("right")
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)

EndIf
WEnd
EndFunc


Func heart()
$Search = 1
While $Search = 1
$Search = 0
$Search = _ImageSearch('heart.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseClick("right")
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)

EndIf
WEnd
EndFunc


Func money()
$Search = 1
While $Search = 1
$Search = 0
$Search = _ImageSearch('money.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseClick("right")
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)

EndIf
WEnd
EndFunc



Func hb()
While $nos < 0
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbstop
ExitLoop
Case Else
$Search = _ImageSearch('hb.bmp', 0, $x, $y, 0)
If $Search = 1 Then
MouseMove($x, $y, 1)
MouseClick("left", $x, $y, 1, 50)
Else
MsgBox(0, "Can't Find Happy Box Icon", "We're unable to find your Happybox icon. Please make sure that you are in lobby or a room. Or purchase happybox")
EndIf

MouseMove(521,356, 20)
MouseClick("left",521,356, $am, 20)
MouseMove(519,552,20)
MouseClick("left",519,552,1,20)
MouseMove(524,586,20)
Sleep(4000)
MouseClick("left",524,586,1,20)
$nos = $nos - 1
EndSwitch
WEnd
EndFunc


Func hbstop()
$nos = 0
EndFunc

[water]

Welcome to AutoIt and the forum!

First thing you need to do is read the forum rules!

You will see that game automation isn't permitted here. This is why you won't get any help on the subject.

Hope to see you with a legitimate question soon.

[SmOke_N]

Enough said.

Please follow the forum rules.

Thanks for your cooperation.