| 1 | #include <GUIConstants.au3> |
|---|
| 2 | #include <WindowsConstants.au3> |
|---|
| 3 | #include <ButtonConstants.au3> |
|---|
| 4 | #include <Color.au3> |
|---|
| 5 | |
|---|
| 6 | Global $g_szVersion = "Debug Window" |
|---|
| 7 | If WinExists($g_szVersion) Then Exit ; It's already running |
|---|
| 8 | AutoItWinSetTitle($g_szVersion) |
|---|
| 9 | |
|---|
| 10 | Opt("GUIOnEventMode", 1) ; Change to OnEvent mode |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | Local $console = GuiCreate("Debug Console", 200, 400, 50, 50, "", $WS_EX_TOPMOST) |
|---|
| 14 | ; |
|---|
| 15 | ; if you move the button code here, it will work |
|---|
| 16 | ; |
|---|
| 17 | Local $stateLabel = GuiCtrlCreateLabel("AI: ", 0, 0, 200, 20) |
|---|
| 18 | Local $loadLabel = GuiCtrlCreateLabel("Load: ", 0, 20, 100, 20) |
|---|
| 19 | Local $foodLabel = GuiCtrlCreateLabel("Food: ", 100, 20, 100, 20) |
|---|
| 20 | Local $healthLabel = GuiCtrlCreateLabel("Health: 0%", 0, 40, 100, 20) |
|---|
| 21 | Local $arouseLabel = GuiCtrlCreateLabel("Arouse: 0%", 100, 40, 100, 20) |
|---|
| 22 | Local $manaLabel = GuiCtrlCreateLabel("Mana: 0%", 0, 60, 100, 20) |
|---|
| 23 | Local $painLabel = GuiCtrlCreateLabel("Pain: 0%", 100, 60, 100, 20) |
|---|
| 24 | Local $killsLabel = GuiCtrlCreateLabel("Kills: 0", 0, 80, 60, 20) |
|---|
| 25 | Local $fleesLabel = GuiCtrlCreateLabel("Flees: 0", 60, 80, 60, 20) |
|---|
| 26 | Local $deathsLabel = GuiCtrlCreateLabel("Deaths: 0", 120, 80, 60, 20) |
|---|
| 27 | Local $xpLabel = GuiCtrlCreateLabel("XP: 0", 0, 100, 200, 20) |
|---|
| 28 | Local $cashLabel = GuiCtrlCreateLabel("$$: 0", 0, 120, 200, 20) |
|---|
| 29 | Local $roomsLabel = GuiCtrlCreateLabel("Rooms: 0", 0, 140, 200, 20) |
|---|
| 30 | Local $idleLabel = GuiCtrlCreateLabel("Idle: off", 100, 140, 200, 20) |
|---|
| 31 | Local $timeLabel = GuiCtrlCreateLabel("Run Time: 0 hours", 0, 160, 200, 20) |
|---|
| 32 | Local $selectLabel = GuiCtrlCreateLabel("Select: ", 0, 180, 200, 20) |
|---|
| 33 | Local $destLabel = GuiCtrlCreateLabel("Dest: ", 0, 200, 200, 20) |
|---|
| 34 | Local $stepsLabel = GuiCtrlCreateLabel("Steps: ", 0, 220, 200, 20) |
|---|
| 35 | Local $dpsInLabel = GuiCtrlCreateLabel("DPS IN: ", 0, 240, 200, 20) |
|---|
| 36 | Local $equipLabel = GuiCtrlCreateLabel("Equip: ", 0, 260, 200, 20) |
|---|
| 37 | Local $plantLabel = GuiCtrlCreateLabel("Plant: ", 0, 280, 200, 20) |
|---|
| 38 | Local $npcLabel = GuiCtrlCreateLabel("NPCs: ", 0, 300, 200, 20) |
|---|
| 39 | Local $deathLabel = GuiCtrlCreateLabel("Death: ", 0, 320, 200, 40) |
|---|
| 40 | |
|---|
| 41 | ; |
|---|
| 42 | ; if the button is created down here it won't work |
|---|
| 43 | ; |
|---|
| 44 | Local $rButton = GuiCtrlCreateButton("R", 100, 0, 20, 20) |
|---|
| 45 | GUICtrlSetOnEvent($rButton, "BrokenButton") |
|---|
| 46 | |
|---|
| 47 | ; end of code to move |
|---|
| 48 | |
|---|
| 49 | GUISetState(@SW_SHOW, $console) |
|---|
| 50 | |
|---|
| 51 | While 1 |
|---|
| 52 | Sleep(1000) |
|---|
| 53 | Wend |
|---|
| 54 | |
|---|
| 55 | Func BrokenButton() |
|---|
| 56 | Exit |
|---|
| 57 | Endfunc ;==>BrokenButton |
|---|
