sandman Posted February 28, 2007 Posted February 28, 2007 Okay, you probably won't need to read most of this script, but I need help figuring out something. As soon as this script starts, it quits out. It runs for a few milliseconds at the most. I have the While() set up with the Sleep() function, but it still just goes away. What is wrong here? expandcollapse popup; Option script is not allowed by the creator to be edited. Whatever you are doing here, hacker, please leave this alone. #include <GUIConstants.au3> $Option = GUICreate("HolyMacro - Free Version", 930, 309, 209, 164) GUISetIcon("C:\Documents and Settings\jon\My Documents\alp_project\hm\hm.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 916, 256) $pref1 = GUICtrlCreateTabItem("Preferences") $swift = GUICtrlCreateCheckbox("Auto-Swift?", 16, 40, 81, 17, -1, $WS_EX_STATICEDGE) $wolf = GUICtrlCreateCheckbox("Auto-Wolf?", 16, 64, 81, 17, -1, $WS_EX_STATICEDGE) $respawn = GUICtrlCreateCheckbox("Auto-Respawn?", 16, 88, 105, 17, -1, $WS_EX_STATICEDGE) $swiftkeylbl = GUICtrlCreateLabel("Slot:", 264, 40, 25, 17) GUICtrlSetState(-1, $GUI_HIDE) $swiftkey = GUICtrlCreateInput("", 288, 40, 25, 21) GUICtrlSetState(-1, $GUI_HIDE) $wolfkey = GUICtrlCreateInput("", 283, 68, 25, 21) GUICtrlSetState(-1, $GUI_HIDE) $wolfkeylbl = GUICtrlCreateLabel("Slot:", 259, 68, 25, 17) GUICtrlSetState(-1, $GUI_HIDE) $combination = GUICtrlCreateLabel("Keys to Repeat:", 32, 112, 80, 17) $key1 = GUICtrlCreateLabel("z", 64, 136, 9, 17) $dash1 = GUICtrlCreateLabel("-", 72, 136, 7, 17) $key2 = GUICtrlCreateInput("", 80, 136, 25, 21) $key3 = GUICtrlCreateInput("", 120, 136, 25, 21) $hp = GUICtrlCreateCheckbox("Heal HP", 16, 160, 65, 17) $sit = GUICtrlCreateRadio("Sit", 240, 168, 41, 17) GUICtrlSetState(-1, $GUI_HIDE) $pot = GUICtrlCreateRadio("Use Potions", 288, 168, 113, 17) GUICtrlSetState(-1, $GUI_HIDE) $mp = GUICtrlCreateCheckbox("Heal MP", 16, 184, 97, 17) $profile = GUICtrlCreateTabItem("My Profile") GUICtrlSetState(-1,$GUI_SHOW) $kodirlbl = GUICtrlCreateLabel("Knight Online Directory:", 16, 40, 115, 17) $kodi = GUICtrlCreateInput("C:\Program Files\e-Games\Knight Online\", 24, 56, 289, 21) $kodirbtn = GUICtrlCreateButton("Browse...", 320, 56, 59, 25, 0) $notes = GUICtrlCreateLabel("Please note: 1) This program should be located in your Knight Online install directory. 2) You must put a backslash after the Knight Online directory you have entered for some functions to work correctly.", 16, 88, 948, 33, $WS_VSCROLL) $sizelbl = GUICtrlCreateLabel("Screen Size:", 16, 128, 64, 17) $size = GUICtrlCreateCombo("Select a size", 88, 128, 145, 25) GUICtrlSetData(-1, "1280x1024|1024x768|800x600") GUICtrlCreateTabItem("") $ok = GUICtrlCreateButton("&OK", 166, 272, 75, 25, 0) $cancel = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, 0) $Label1 = GUICtrlCreateLabel("-", 108, 136, 7, 17) GUISetState(@SW_SHOW) $swiftchecked = 0 $wolfchecked = 0 $mpchecked = 0 $hpchecked = 0 While 1 $msg = GUIGetMsg() Select Case $GUI_EVENT_CLOSE Exit Case $msg = $swift If $swiftchecked = 0 Then GUICtrlSetState($swiftkeylbl, $GUI_SHOW) GUICtrlSetState($swiftkey, $GUI_SHOW) $swiftchecked = 1 ElseIf $swiftchecked = 1 GUICtrlSetState($swiftkeylbl, $GUI_HIDE) GUICtrlSetState($swiftkey, $GUI_HIDE) $swiftchecked = 0 EndIf Case $msg = $wolf If $wolfchecked = 0 Then GUICtrlSetState($wolfkeylbl, $GUI_SHOW) GUICtrlSetState($wolfkey, $GUI_SHOW) $wolfchecked = 1 ElseIf $wolfchecked = 1 Then GUICtrlSetState($wolfkeylbl, $GUI_HIDE) GUICtrlSetState($wolfkey, $GUI_HIDE) $wolfchecked = 0 EndIf Case $msg = $hp If $hpchecked = 0 Then GUICtrlSetState($sit, $GUI_SHOW) GUICtrlSetState($pot, $GUI_SHOW) $hpchecked = 1 ElseIf $hpchecked = 1 & $mpchecked = 1 Then $hpchecked = 0 Else GUICtrlSetState($sit, $GUI_HIDE) GUICtrlSetState($pot, $GUI_HIDE) $hpchecked = 0 EndIf Case $msg = $mp If $mpchecked = 0 Then GUICtrlSetState($sit, $GUI_SHOW) GUICtrlSetState($pot, $GUI_SHOW) $hpchecked = 1 ElseIf $mpchecked = 1 & $hpchecked = 1 Then $mpchecked = 0 Else GUICtrlSetState($sit, $GUI_HIDE) GUICtrlSetState($pot, $GUI_HIDE) $mpchecked = 0 EndIf EndSelect Sleep(1) Select Case $msg = $ok $readswift = GUICtrlRead($swift) If $readswift = $GUI_CHECKED Then IniWrite("hmoption.ini", "Preferences", "autoswift", "1") ElseIf $readswift = $GUI_UNCHECKED Then IniWrite("hmoption.ini", "Preferences", "autoswift", "0") EndIf $readswiftkey = GUICtrlRead($swiftkey) IniWrite("hmoption.ini", "Preferences", "swiftkey", $readswiftkey) $readwolf = GUICtrlRead($wolf) If $readwolf = $GUI_CHECKED Then IniWrite("hmoption.ini", "Preferences", "autowolf", "1") ElseIf $readwolf = $GUI_UNCHECKED Then IniWrite("hmoption.ini", "Preferencess", "autowolf", "0" EndIf $readwolfkey = GUICtrlRead($wolfkey) IniWrite("hmoption.ini", "Preferences", "wolfkey", $readwolfkey) EndSelect WEnd Hmph.. this is when my signature proves itself right. [center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center]
Helge Posted February 28, 2007 Posted February 28, 2007 Case $GUI_EVENT_CLOSEoÝ÷ ÚÈhºW[y«¢+Ù ÍÀÌØíµÍôÀÌØíU%}Y9Q} 1=M
sandman Posted February 28, 2007 Author Posted February 28, 2007 Ah.. I used Koda FormDesigner.. the maker must have done that, but I didn't notice it either. Thanks Helge. [center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now