Misha Posted May 8, 2006 Share Posted May 8, 2006 HI I have a problem with my code it doesnt work at the buttons it should take them and send but doesnt work :\ look at $attackbutton it always does the same attackbutton function expandcollapse popup#NoTrayIcon if FileExists (@ScriptDir & "config.ini\") Then Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "HealButton" , 1) Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "SkillButton" , 5) Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "DefenseButton" , 2) Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "AttackButton" , 3) Else Dim $SkillButton = 5 , $HealButton = 1 , $DefenseButton = 2 , $AttackButton = 3 EndIf HotKeySet ("+{F5}", "AE_Pattern" ) HotKeySet ("+{F6}", "AE_Pattern_Plus") HotKeySet ("+{F9}", "Left_Click" ) HotkeySet ("+{F10}", "Stop" ) HotKeySet ("+{F11}", "Right_Click" ); + = Shift Key Opt ("WinTitleMatchMode", 3 ) Opt ("MouseClickDownDelay", 55) Opt ("MouseClickDelay", 1 ) Opt ("SendKeyDownDelay", 10 ) Opt ("SendKeyDelay", 1 ) Opt ("CaretCoordMode", 2 ) Dim $Skill_Delay, $Buff_Delay1, $Key_Delay = 1, $HC = 0 , $AC = 0 , $DC = 0 ,$APRC,$APLC,$APBC,$APHC,$Msg GuiCreate( "Hybrid Bot V1.3", 400, 300,50,50) GUISetFont(8,100,1,"") $FileMenu=GuiCtrlCreateMenu( "File") $Save=GuiCtrlCreateMenuItem( "Save",$FileMenu) $defualt=GuiCtrlCreateMenuItem( "Default",$FileMenu) $AboutMenu=GUICtrlCreateMenu( "Other") $About=GUICtrlCreateMenuitem("About",$AboutMenu) GuiCtrlCreateGroup( "Options of Buff" , 10 , 10, 150,110) $HealCheck=GuiCtrlCreateCheckBox( "Heal" , 20 , 30, 100,20) $DefenseCheck=GuiCtrlCreateCheckBox( "Defense" , 20 , 50,100,20) $AttackCheck=GUICtrlCreateCheckbox( "Attack" , 20 , 70,100,20) GUISetFont(9 ,400,4,"Maryiad Web Pro Bold") GUICtrlCreateLabel( "Enjoy!",20,90,100,20) GUISetFont(8,100,1,"") GuiCtrlCreateGroup( "Options of Keys" , 10 ,120 , 150 , 145) $SkillInput = GUICtrlCreateInput ("5",20, 140, 50,20) $SkillUpdown = GUICtrlCreateUpdown($SkillInput) GuiCtrlCreateLabel( "Attack Skill",75,143,60,20) GuiCtrlSetLimit( $SkillUpdown, 9,1) $HealInput = GuiCtrlCreateInput ("1",20,165,50,20) $HealUpdown = GUICtrlCreateUpdown($HealInput) GUICtrlCreateLabel( "Heal Buff" , 75,168,60,20) GuiCtrlSetLimit( $HealUpdown, 9 ,1) $DefenseInput = GuiCtrlcreateInput( "2",20 ,193,50,20) $DefenseUpdown = GUICtrlCreateUpdown($DefenseInput) GuiCtrlCreateLabel( "Def Buff", 75 , 198 ,60 ,20) GuiCtrlSetLimit ( $DefenseUpdown, 9,1) $AttackInput = GuiCtrlCreateInput("3",20,223,50,20) $AttackUpdown = GUICtrlCreateUpdown($AttackInput) GUICtrlCreateLabel( "Attack Buff" , 75 ,228 ,60 ,20) GuiCtrlSetLimit($AttackUpdown, 9 ,1 ) GuiCtrlCreateGroup( "AutoPickers" , 170, 10, 150,110) $APB=GuiCtrlCreateCheckBox( "While AE",180,30,100,20) $APH=GUICtrlCreateCheckbox( "While Hybrid",180,50,100,20) $APL=GUICtrlCreateCheckbox( "While LeftClick",180,70,100,20) $APR=GUICtrlCreateCheckbox( "While RightClick",180,90,100,20) GuiCtrlCreateGroup( "Instructions",170,120,200,145) GUICtrlCreateLabel( "Welcome to the Hybrid bot V1.3" & @CRLF & "To use it press Shift + Button" & @Crlf & "Here is the list of buttons" & @CRLF & "Shift+F5 - AE Bot" & @CRLF & "Shift+F6 - Hybrid Bot" & @CRLF & "Shift+F9 - LeftClicker" & @CRLF & "Shift+F10 - Stoping all Functions" & @CRLF & "Shift+F11 - RightClicker" & @CRLF & "Enjoy. Made By zzxxzzxx and Misha", 180,140,170,120) GUISetState () Func Left_Click (); Continuously Pressing Left Click. While 1 $TimerDif = TimerDiff() If WinActive("MU") Then MouseClick ("Left") if $APLC = 1 Then Send (" ", 1) Endif MouseUp ("Right") Else MouseClick ("Left") if $APLC = 1 Then Send (" ", 1) EndIf MouseUp ("Right") EndIf WEnd EndFunc Func Right_Click (); Continuously Pressing Right Click. While 1 If WinActive("MU") Then MouseClick ("Right") if $APRC = 1 Then Send (" ", 1) EndIf MouseUp ("Right") Else MouseClick ("Right") if $APRC =1 Then Send (" ", 1) EndIf Sleep(25) MouseUp ("Right") EndIf WEnd EndFunc Func AE_Pattern (); Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D). Dim $x[11] = ['', 315, 495, 320, 480, 355, 440, 315, 495, 405, 405] Dim $y[11] = ['', 290, 290, 180, 180, 320, 310, 245, 245, 150, 320] While 1 If WinActive("MU") Then For $p = 1 To 10 $Skill_Delay = 25 if $APBC = 1 Then Send ("{"&$SkillButton&"} ") Else Send($SkillButton) EndIf Sleep ($Key_Delay) MouseClick ("Right", $x[$p] ,$y[$p] , 1) Skill_Delay () Next EndIf WEnd EndFunc Func AE_Pattern_Plus (); Buff & Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D). Local $x[11] = ['', 335, 440, 355, 445, 390, 420, 390, 420, 405, 405] Local $y[11] = ['', 290, 290, 245, 245, 300, 300, 280, 280, 270, 300] $Buff_Delay = 15; Change Here For Buff Delay. While 1 If WinActive("MU") Then $Buff_Delay1 = $Buff_Delay if $DC = 1 Then Send ("{"&$DefenseButton&"} ") EndIf if $AC = 1 Then Send ("{"&$AttackButton&"} ") EndIf MouseClick ("Right", 410, 285, 1); Clicks On Self. MouseUp ("Right") Buff_Delay () For $p = 1 To 10 $Skill_Delay = 36; Change Here For Skill Delay. Send ("{"&$SkillButton&"} "); Skill number. Sleep ($Key_Delay) MouseClick ("Right", $x[$p] ,$y[$p] , 1) Skill_Delay () Next $Buff_Delay1 = $Buff_Delay if $HC = 1 Then Send ("{"&$HealButton&"} "); Heal MouseClick ("Right", 410, 285, 1) MouseUp ("Right") EndIf Buff_Delay () EndIf WEnd EndFunc Func Stop (); Stops The Program. While 1 Select Case $Msg = $Gui_event_close Exit Case $Msg = $defualt Dim $SkillButton = 5 , $HealButton = 1 , $DefenseButton = 2 , $AttackButton = 1 Case $msg = $About MsgBox(0 ,"About", "This bot was created by zzxxzzx and Misha" & @CRLF & "If you have any problems go on irc://irc.rizon.net and join #mpc_mu") Case $Msg = $Save if FileExists(@ScriptDir & "config.ini\") Then IniWrite( @ScriptDir & "config.ini\","BuffCheckers","HealButton",$HealButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","DefButton",$DefenseButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","AttackButton",$AttackButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","SkillButton",$SkillButton) Else _FileCreate( @ScriptDir & "config.ini\") EndIf Case $Msg == $HealCheck If GuiCtrlRead($HealCheck) == $GUI_CHECKED Then $HC = 1 Else $HC = 0 EndIf If GUICtrlRead($DefenseCheck) == $GUI_CHECKED Then $DC = 1 Else $DC = 0 EndIf If GuiCtrlRead($AttackCheck) == $GUI_CHECKED Then $AC = 1 Else $AC = 0 EndIf Case $Msg == $SkillUpdown $SkillButton = GuiCtrlRead($SkillInput) Case $Msg = $HealUpdown $HealButton = GuiCtrlRead($HealInput) Case $Msg == $DefenseUpdown $DefenseButton = GuiCtrlRead($DefenseInput) Case $Msg = $AttackUpdown $AttackButton = GuiCtrlRead($AttackInput) Case $Msg == $APB if GuiCtrlRead($APB) == $GUI_CHECKED Then $APBC = 1 Else $APBC = 0 EndIf Case $Msg == $APH if GUICtrlRead($APH) == $GUI_CHECKED Then $APHC = 1 Else $APHC = 0 EndIf Case $Msg == $APL If GUICtrlRead($APL) == $GUI_CHECKED Then $APLC = 1 Else $APLC = 0 EndIf Case $Msg == $APR if GuiCtrlRead($APR) == $GUI_CHECKED Then $APRC = 1 Else $APRC = 0 EndIf EndSelect Sleep (1) WEnd EndFunc Func Skill_Delay (); Delay Interval In Between Skills. While $Skill_Delay > 0 MouseClick ("Right") Send (" ", 1) $Skill_Delay = $Skill_Delay - 1 WEnd EndFunc Func Buff_Delay (); Delay Interval In Between Buffs. While $Buff_Delay1 > 0 Send (" ", 1) $Buff_Delay1 = $Buff_Delay1 - 1 WEnd EndFunc While 1 ; Continuous Loop Of Program. $Msg = GUIGetMsg() Select Case $msg = $Gui_event_close Exit Case $Msg = $defualt Dim $SkillButton = 5 , $HealButton = 1 , $DefenseButton = 2 , $AttackButton = 1 Case $msg = $About MsgBox(0 ,"About", "This bot was created by zzxxzzx and Misha" & @CRLF & "If you have any problems go on irc://irc.rizon.net and join #mpc_mu") Case $Msg = $Save if FileExists(@ScriptDir & "config.ini\") Then IniWrite( @ScriptDir & "config.ini\","BuffCheckers","HealButton",$HealButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","DefButton",$DefenseButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","AttackButton",$AttackButton) IniWrite( @ScriptDir & "config.ini\","BuffCheckers","SkillButton",$SkillButton) Else _FileCreate( @ScriptDir & "config.ini\") EndIf Case $Msg == $HealCheck If GuiCtrlRead($HealCheck) == $GUI_CHECKED Then $HC = 1 Else $HC = 0 EndIf If GUICtrlRead($DefenseCheck) == $GUI_CHECKED Then $DC = 1 Else $DC = 0 EndIf If GuiCtrlRead($AttackCheck) == $GUI_CHECKED Then $AC = 1 Else $AC = 0 EndIf Case $Msg == $SkillUpdown $SkillButton = GuiCtrlRead($SkillInput) Case $Msg == $HealUpdown $HealButton = GuiCtrlRead($HealInput) Case $Msg == $DefenseUpdown $DefenseButton = GuiCtrlRead($DefenseInput) Case $Msg == $AttackUpdown $AttackButton = GuiCtrlRead($AttackInput) Case $Msg == $APB if GuiCtrlRead($APB) == $GUI_CHECKED Then $APBC = 1 Else $APBC = 0 EndIf Case $Msg == $APH if GUICtrlRead($APH) == $GUI_CHECKED Then $APHC = 1 Else $APHC = 0 EndIf Case $Msg == $APL If GUICtrlRead($APL) == $GUI_CHECKED Then $APLC = 1 Else $APLC = 0 EndIf Case $Msg == $APR if GuiCtrlRead($APR) == $GUI_CHECKED Then $APRC = 1 Else $APRC = 0 EndIf EndSelect Sleep (1) WEnd Link to comment Share on other sites More sharing options...
GaryFrost Posted May 8, 2006 Share Posted May 8, 2006 I made some changes just to get it to run, these may be part of the problem, put comments to the right of each change expandcollapse popup#NoTrayIcon #include <GuiConstants.au3>;<<<<<< was missing #include <File.au3> ;<<<<<< was missing If FileExists(@ScriptDir & "config.ini\") Then Dim $SkillButton = IniRead(@ScriptDir & "config.ini\", "BuffCheckers", "HealButton", 1) Dim $SkillButton = IniRead(@ScriptDir & "config.ini\", "BuffCheckers", "SkillButton", 5) Dim $SkillButton = IniRead(@ScriptDir & "config.ini\", "BuffCheckers", "DefenseButton", 2) Dim $SkillButton = IniRead(@ScriptDir & "config.ini\", "BuffCheckers", "AttackButton", 3) Else Dim $SkillButton = 5, $HealButton = 1, $DefenseButton = 2, $AttackButton = 3 EndIf HotKeySet("+{F5}", "AE_Pattern") HotKeySet("+{F6}", "AE_Pattern_Plus") HotKeySet("+{F9}", "Left_Click") HotKeySet("+{F10}", "Stop") HotKeySet("+{F11}", "Right_Click"); + = Shift Key Opt("WinTitleMatchMode", 3) Opt("MouseClickDownDelay", 55) Opt("MouseClickDelay", 1) Opt("SendKeyDownDelay", 10) Opt("SendKeyDelay", 1) Opt("CaretCoordMode", 2) Dim $Skill_Delay, $Buff_Delay1, $Key_Delay = 1, $HC = 0, $AC = 0, $DC = 0, $APRC, $APLC, $APBC, $APHC, $Msg GUICreate( "Hybrid Bot V1.3", 400, 300, 50, 50) GUISetFont(8, 100, 1, "") $FileMenu = GUICtrlCreateMenu( "File") $Save = GUICtrlCreateMenuitem( "Save", $FileMenu) $defualt = GUICtrlCreateMenuitem( "Default", $FileMenu) $AboutMenu = GUICtrlCreateMenu( "Other") $About = GUICtrlCreateMenuitem("About", $AboutMenu) GUICtrlCreateGroup( "Options of Buff", 10, 10, 150, 110) $HealCheck = GUICtrlCreateCheckbox( "Heal", 20, 30, 100, 20) $DefenseCheck = GUICtrlCreateCheckbox( "Defense", 20, 50, 100, 20) $AttackCheck = GUICtrlCreateCheckbox( "Attack", 20, 70, 100, 20) GUISetFont(9, 400, 4, "Maryiad Web Pro Bold") GUICtrlCreateLabel( "Enjoy!", 20, 90, 100, 20) GUISetFont(8, 100, 1, "") GUICtrlCreateGroup( "Options of Keys", 10, 120, 150, 145) $SkillInput = GUICtrlCreateInput("5", 20, 140, 50, 20) $SkillUpdown = GUICtrlCreateUpdown($SkillInput) GUICtrlCreateLabel( "Attack Skill", 75, 143, 60, 20) GUICtrlSetLimit($SkillUpdown, 9, 1) $HealInput = GUICtrlCreateInput("1", 20, 165, 50, 20) $HealUpdown = GUICtrlCreateUpdown($HealInput) GUICtrlCreateLabel( "Heal Buff", 75, 168, 60, 20) GUICtrlSetLimit($HealUpdown, 9, 1) $DefenseInput = GUICtrlCreateInput( "2", 20, 193, 50, 20) $DefenseUpdown = GUICtrlCreateUpdown($DefenseInput) GUICtrlCreateLabel( "Def Buff", 75, 198, 60, 20) GUICtrlSetLimit($DefenseUpdown, 9, 1) $AttackInput = GUICtrlCreateInput("3", 20, 223, 50, 20) $AttackUpdown = GUICtrlCreateUpdown($AttackInput) GUICtrlCreateLabel( "Attack Buff", 75, 228, 60, 20) GUICtrlSetLimit($AttackUpdown, 9, 1) GUICtrlCreateGroup( "AutoPickers", 170, 10, 150, 110) $APB = GUICtrlCreateCheckbox( "While AE", 180, 30, 100, 20) $APH = GUICtrlCreateCheckbox( "While Hybrid", 180, 50, 100, 20) $APL = GUICtrlCreateCheckbox( "While LeftClick", 180, 70, 100, 20) $APR = GUICtrlCreateCheckbox( "While RightClick", 180, 90, 100, 20) GUICtrlCreateGroup( "Instructions", 170, 120, 200, 145) GUICtrlCreateLabel( "Welcome to the Hybrid bot V1.3" & @CRLF & "To use it press Shift + Button" & @CRLF & "Here is the list of buttons" & @CRLF & "Shift+F5 - AE Bot" & @CRLF & "Shift+F6 - Hybrid Bot" & @CRLF & "Shift+F9 - LeftClicker" & @CRLF & "Shift+F10 - Stoping all Functions" & @CRLF & "Shift+F11 - RightClicker" & @CRLF & "Enjoy. Made By zzxxzzxx and Misha", 180, 140, 170, 120) GUISetState() Func Left_Click(); Continuously Pressing Left Click. While 1 ;~ $TimerDif = TimerDiff();<<<<< this is not correct If WinActive("MU") Then MouseClick("Left") If $APLC = 1 Then Send(" ", 1) EndIf MouseUp("Right") Else MouseClick("Left") If $APLC = 1 Then Send(" ", 1) EndIf MouseUp("Right") EndIf WEnd EndFunc ;==>Left_Click Func Right_Click(); Continuously Pressing Right Click. While 1 If WinActive("MU") Then MouseClick("Right") If $APRC = 1 Then Send(" ", 1) EndIf MouseUp("Right") Else MouseClick("Right") If $APRC = 1 Then Send(" ", 1) EndIf Sleep(25) MouseUp("Right") EndIf WEnd EndFunc ;==>Right_Click Func AE_Pattern(); Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D). Dim $x[11] = ['', 315, 495, 320, 480, 355, 440, 315, 495, 405, 405] Dim $y[11] = ['', 290, 290, 180, 180, 320, 310, 245, 245, 150, 320] While 1 If WinActive("MU") Then For $p = 1 To 10 $Skill_Delay = 25 If $APBC = 1 Then Send("{" & $SkillButton & "} ") Else Send($SkillButton) EndIf Sleep($Key_Delay) MouseClick("Right", $x[$p], $y[$p], 1) Skill_Delay() Next EndIf WEnd EndFunc ;==>AE_Pattern Func AE_Pattern_Plus(); Buff & Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D). Local $x[11] = ['', 335, 440, 355, 445, 390, 420, 390, 420, 405, 405] Local $y[11] = ['', 290, 290, 245, 245, 300, 300, 280, 280, 270, 300] $Buff_Delay = 15; Change Here For Buff Delay. While 1 If WinActive("MU") Then $Buff_Delay1 = $Buff_Delay If $DC = 1 Then Send("{" & $DefenseButton & "} ") EndIf If $AC = 1 Then Send("{" & $AttackButton & "} ") EndIf MouseClick("Right", 410, 285, 1); Clicks On Self. MouseUp("Right") Buff_Delay() For $p = 1 To 10 $Skill_Delay = 36; Change Here For Skill Delay. Send("{" & $SkillButton & "} "); Skill number. Sleep($Key_Delay) MouseClick("Right", $x[$p], $y[$p], 1) Skill_Delay() Next $Buff_Delay1 = $Buff_Delay If $HC = 1 Then Send("{" & $HealButton & "} "); Heal MouseClick("Right", 410, 285, 1) MouseUp("Right") EndIf Buff_Delay() EndIf WEnd EndFunc ;==>AE_Pattern_Plus Func Stop(); Stops The Program. While 1 $Msg = GUIGetMsg();<<<<< this was missing from the loop Select Case $Msg = $Gui_event_close Exit Case $Msg = $defualt Dim $SkillButton = 5, $HealButton = 1, $DefenseButton = 2, $AttackButton = 1 Case $Msg = $About MsgBox(0, "About", "This bot was created by zzxxzzx and Misha" & @CRLF & "If you have any problems go on irc://irc.rizon.net and join #mpc_mu") Case $Msg = $Save If FileExists(@ScriptDir & "config.ini\") Then IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "HealButton", $HealButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "DefButton", $DefenseButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "AttackButton", $AttackButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "SkillButton", $SkillButton) Else _FileCreate(@ScriptDir & "config.ini\") EndIf Case $Msg == $HealCheck If GUICtrlRead($HealCheck) == $GUI_CHECKED Then $HC = 1 Else $HC = 0 EndIf If GUICtrlRead($DefenseCheck) == $GUI_CHECKED Then $DC = 1 Else $DC = 0 EndIf If GUICtrlRead($AttackCheck) == $GUI_CHECKED Then $AC = 1 Else $AC = 0 EndIf Case $Msg == $SkillUpdown $SkillButton = GUICtrlRead($SkillInput) Case $Msg = $HealUpdown $HealButton = GUICtrlRead($HealInput) Case $Msg == $DefenseUpdown $DefenseButton = GUICtrlRead($DefenseInput) Case $Msg = $AttackUpdown $AttackButton = GUICtrlRead($AttackInput) Case $Msg == $APB If GUICtrlRead($APB) == $GUI_CHECKED Then $APBC = 1 Else $APBC = 0 EndIf Case $Msg == $APH If GUICtrlRead($APH) == $GUI_CHECKED Then $APHC = 1 Else $APHC = 0 EndIf Case $Msg == $APL If GUICtrlRead($APL) == $GUI_CHECKED Then $APLC = 1 Else $APLC = 0 EndIf Case $Msg == $APR If GUICtrlRead($APR) == $GUI_CHECKED Then $APRC = 1 Else $APRC = 0 EndIf EndSelect Sleep(1) WEnd EndFunc ;==>Stop Func Skill_Delay(); Delay Interval In Between Skills. While $Skill_Delay > 0 MouseClick("Right") Send(" ", 1) $Skill_Delay = $Skill_Delay - 1 WEnd EndFunc ;==>Skill_Delay Func Buff_Delay(); Delay Interval In Between Buffs. While $Buff_Delay1 > 0 Send(" ", 1) $Buff_Delay1 = $Buff_Delay1 - 1 WEnd EndFunc ;==>Buff_Delay While 1 ; Continuous Loop Of Program. $Msg = GUIGetMsg() Select Case $Msg = $Gui_event_close Exit Case $Msg = $defualt Dim $SkillButton = 5, $HealButton = 1, $DefenseButton = 2, $AttackButton = 1 Case $Msg = $About MsgBox(0, "About", "This bot was created by zzxxzzx and Misha" & @CRLF & "If you have any problems go on irc://irc.rizon.net and join #mpc_mu") Case $Msg = $Save If FileExists(@ScriptDir & "config.ini\") Then IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "HealButton", $HealButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "DefButton", $DefenseButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "AttackButton", $AttackButton) IniWrite(@ScriptDir & "config.ini\", "BuffCheckers", "SkillButton", $SkillButton) Else _FileCreate(@ScriptDir & "config.ini\") EndIf Case $Msg == $HealCheck If GUICtrlRead($HealCheck) == $GUI_CHECKED Then $HC = 1 Else $HC = 0 EndIf If GUICtrlRead($DefenseCheck) == $GUI_CHECKED Then $DC = 1 Else $DC = 0 EndIf If GUICtrlRead($AttackCheck) == $GUI_CHECKED Then $AC = 1 Else $AC = 0 EndIf Case $Msg == $SkillUpdown $SkillButton = GUICtrlRead($SkillInput) Case $Msg == $HealUpdown $HealButton = GUICtrlRead($HealInput) Case $Msg == $DefenseUpdown $DefenseButton = GUICtrlRead($DefenseInput) Case $Msg == $AttackUpdown $AttackButton = GUICtrlRead($AttackInput) Case $Msg == $APB If GUICtrlRead($APB) == $GUI_CHECKED Then $APBC = 1 Else $APBC = 0 EndIf Case $Msg == $APH If GUICtrlRead($APH) == $GUI_CHECKED Then $APHC = 1 Else $APHC = 0 EndIf Case $Msg == $APL If GUICtrlRead($APL) == $GUI_CHECKED Then $APLC = 1 Else $APLC = 0 EndIf Case $Msg == $APR If GUICtrlRead($APR) == $GUI_CHECKED Then $APRC = 1 Else $APRC = 0 EndIf EndSelect Sleep(1) WEnd SciTE for AutoItDirections for Submitting Standard UDFs  Don't argue with an idiot; people watching may not be able to tell the difference.  Link to comment Share on other sites More sharing options...
Misha Posted May 8, 2006 Author Share Posted May 8, 2006 the timer differ is like I made the program run only 30 min then edited back forgot to delete that part Link to comment Share on other sites More sharing options...
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