Bathory

dosent work (( here is the full script code is an muonline autobuffer for season 3 ep2 #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

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

How can i protect my compiled script ? with autoit v3 ?

thx allot .... u are grate

i am new in AutoIt , how can i find what color have a pixel at given coordinates ?

ok .it work ,thank you

How can i make the script to run only once ? (if the script is already running, another instance to be imposible) How can i remove the tray icon ? sry for my bad english

yes! it works. Thank you.

yes! it works. Thank you.

when i add that options, it clicks very quick. but i need to keep the click pressed for 5 seconds, release the click and loop

Hi, I am a newbie to autoit, and i hope that somewone can help me. I try to make , a script for a game , where i have to press the mouse for a long time. this is my code : HotKeySet("{F9}", "start") HotKeySet("{F10}", "stop") Func start() while(1) MouseDown("right") WEnd EndFunc Func stop() while 1 = 1 Sleep(1000) wend EndFunc while(1) sleep(1000) WEnd i need this script , to keep the mouse click pressed for 5 seconds, and repeat until the "stop" hotkey is pressed. sorry for my bad eglish