Jump to content

Window just.. disappears


sandman
 Share

Recommended Posts

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?

; 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]

Link to comment
Share on other sites

Ah.. I used Koda FormDesigner.. the maker must have done that, but I didn't notice it either. :whistle: 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]

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...