Script Exit problem

[Bathory]

I have this script .. but ... after i use the script ..and i press the tray buttons , they dont work.

Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
$helptitem  = TrayCreateItem("Help")
TrayCreateItem("")
$aboutitem  = TrayCreateItem("About")
TrayCreateItem("")
$exititem   = TrayCreateItem("Exit")
TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $helptitem
            MsgBox(0," -= Bathory AutoBuff=-","-=Bathory Autobuff=-" & @CRLF & "" & @CRLF & "F9 : Start" & @CRLF & "F10: Stop" & @CRLF & "" & @CRLF & "Setari Buff :" & @CRLF & "#1: Heal" & @CRLF & "#2: Defence" & @CRLF & "#3: Damage" & @CRLF & "" & @CRLF & "Mu rezolution : 1024*768 , fullscreen"& @CRLF& "" & @CRLF & "Version 1.03(Public)" & @CRLF & "(C)2008 Bathory (cfvlad@gmail.com)")
        Case $msg = $aboutitem
            MsgBox(0,"About :     -= Bathory AutoBuff=-","             Bathory Autobuff" & @CRLF & "" & @CRLF & "Version 1.03(Public)" & @CRLF & "" & @CRLF & "" & @CRLF & "(C) 2008 Bathory   (cfvlad@gmail.com)")
        Case $msg = $exititem
            Exit
            ExitLoop
    EndSelect
WEnd

sry for my bad english

Edited May 1, 2008 by Bathory

[smashly]

Hi,

Remove

Case $msg = 0
            ContinueLoop

Cheers

[Bathory]

dosent work ((

here is the full script code

is an muonline autobuffer for season 3 ep2

expandcollapse popup

#Include <Constants.au3>
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\desk\ico\ms-expression-blend.ico
#AutoIt3Wrapper_outfile=AutoBuff1.03.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****




     ;reg write
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Webzen\Mu\Config", "Resolution", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Webzen\Mu\Config", "WindowMode", "REG_DWORD", "0")
     ;/regwrite
MsgBox(0," -= Bathory AutoBuff=-","-=Bathory Autobuff=-" & @CRLF & "" & @CRLF & "F9 : Start" & @CRLF & "F10: Stop" & @CRLF & "" & @CRLF & "Setari Buff :" & @CRLF & "#1: Heal" & @CRLF & "#2: Defence" & @CRLF & "#3: Damage" & @CRLF & "" & @CRLF & "Mu rezolution : 1024*768 , fullscreen"& @CRLF&"" & @CRLF & "Version 1.03(Public)" & @CRLF & "(C)2008 Bathory (cfvlad@gmail.com)")
     ;hotkey set
HotkeySet("{F10}", "HK_STOP")
HotKeySet("{F9}",  "Autobuff")
      ;/hotkey set
      
      ;tray sett
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
$helptitem  = TrayCreateItem("Help")
TrayCreateItem("")
$aboutitem  = TrayCreateItem("About")
TrayCreateItem("")
$exititem   = TrayCreateItem("Exit")
TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $helptitem
            MsgBox(0," -= Bathory AutoBuff=-","-=Bathory Autobuff=-" & @CRLF & "" & @CRLF & "F9 : Start" & @CRLF & "F10: Stop" & @CRLF & "" & @CRLF & "Setari Buff :" & @CRLF & "#1: Heal" & @CRLF & "#2: Defence" & @CRLF & "#3: Damage" & @CRLF & "" & @CRLF & "Mu rezolution : 1024*768 , fullscreen"& @CRLF& "" & @CRLF & "Version 1.03(Public)" & @CRLF & "(C)2008 Bathory (cfvlad@gmail.com)")
        Case $msg = $aboutitem
            MsgBox(0,"About :     -= Bathory AutoBuff=-","             Bathory Autobuff" & @CRLF & "" & @CRLF & "Version 1.03(Public)" & @CRLF & "" & @CRLF & "" & @CRLF & "(C) 2008 Bathory   (cfvlad@gmail.com)")
        Case $msg = $exititem
            Call ("SEXIT")
            ExitLoop
    EndSelect
WEnd
          ;/tray sett
          
          ;func
Func Autobuff()
While (1)
Send("1")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,50)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,50)
Opt("MouseClickDownDelay", 700)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,50)
Opt("MouseClickDownDelay", 700)

Send("1")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,90)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,90)
Opt("MouseClickDownDelay", 700)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,90)
Opt("MouseClickDownDelay", 700)

Send("1")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,130)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,130)
Opt("MouseClickDownDelay", 700)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,130)
Opt("MouseClickDownDelay", 700)

Send("1")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,170)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,170)
Opt("MouseClickDownDelay", 700)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,170)
Opt("MouseClickDownDelay", 700)

Send("1")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,210)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,210)
Opt("MouseClickDownDelay", 700)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",70,210)
Opt("MouseClickDownDelay", 700)


Wend
Endfunc

; Stops the program
Func HK_STOP()
while 1 = 1
  Sleep(1000)
wend
EndFunc

Func SEXIT()
    while 1=1
        Exit
    WEnd
EndFunc
; Need to keep the program running until you press the hotkey
while(1)
sleep(1000)
WEnd

    ;/func

[d4rk]

Case $msg = $exititem
Exit
EndSelect
WEnd