Misha Posted May 10, 2006 Share Posted May 10, 2006 (edited) Hi well I aint sure about my code about the gui reading from inputs and lists :S doesnt seem to work! check it out! expandcollapse popup#Include <GuiConstants.Au3> #NoTrayIcon Opt ("WinTitleMatchMode", 3 ) Opt ("MouseClickDownDelay", 55) Opt ("MouseClickDelay", 1 ) Opt ("SendKeyDownDelay", 10 ) Opt ("SendKeyDelay", 1 ) Opt ("CaretCoordMode", 2 ) HotKeySet( "{F11}" , "FFEE_Buff") HotKeySet( "{F10}" , "Halt") Dim $AP = 0 , $BA = 2 , $HB = 0, $DB = 0 , $AB = 0,$YPos = 22 , $i $FFEEBot=GuiCreate( "FFEE Bot", 200, 175 , 500 , 600,-1) GuiCtrlCreateGroup( "By Misha" , 5,5,195,170) $Combo=GUICtrlCreateCombo( "640x480",10,20, 100) GUICtrlSetData( $Combo , "800x600|1024x768|1200x1024") GUICtrlCreateLabel( "Resolution",10,40,100) GuiCtrlCreateLabel( "Start F11" & @CRLF & "Stop F10" , 115 , 20,50,25) $AP=GUICtrlCreateCheckbox( "AutoPicker",10 , 60 , 80) $AH=GUICtrlCreateCheckbox( "Heal Buff",100 , 60 , 80) $AD=GUICtrlCreateCheckbox( "Defense Buff",10 , 80 , 80) $AA=GUICtrlCreateCheckbox( "Attack Buff",100 , 80 , 80) $Combo2=GUICtrlCreateCombo( 2,10,110,100,200) GUICtrlSetData( $Combo2 , 3) GUICtrlSetData( $Combo2 , 4) GUICtrlSetData( $Combo2 , 5) GuiCtrlCreateLabel( "How many to Buff?" , 115 , 110,50,25) $DelayInput=GuiCtrlCreateInput( "0" , 10 , 150,90,20) $DelayUpdown=GUICtrlCreateUpdown($DelayInput) GUICtrlSetLimit( $DelayUpdown , 9999,0) GuiCtrlCreateLabel( "Delay" , 115 , 153,50,20) GUISetState() Func FFEE_Buff () GUICtrlSetState( $FFEEBot, $GUI_DISABLE) GUICtrlSetState( $AP, $GUI_DISABLE) GUICtrlSetState( $AH, $GUI_DISABLE) GUICtrlSetState( $AD, $GUI_DISABLE) GUICtrlSetState( $AA, $GUI_DISABLE) GUICtrlSetState( $Combo, $GUI_DISABLE) GUICtrlSetState( $Combo2, $GUI_DISABLE) GUICtrlSetState( $DelayInput, $GUI_DISABLE) GUICtrlSetState( $DelayUpdown, $GUI_DISABLE) While 1 For $i = 1 to GuiCtrlRead($Combo2,1) $YPos = $YPos + 25 MouseMove( 775 , $YPos) For $i = 1 to 3 if $HB = 1 And $i = 1 Then Send($i) Sleep(GuiCtrlRead($DelayInput)) MouseClick( "Right") Sleep(25) MouseUp("Right") if $AP = 1 Then Send("{SPACE}") EndIf EndIf if $DB = 1 And $i = 2 Then Send($i) MouseClick( "Right") Sleep(25) MouseUp("Right") if $AP = 1 Then Send("{SPACE}") EndIf EndIf if $AB = 1 And $i = 3 Then Send($i) MouseClick( "Right") Sleep(25) MouseUp("Right") if $AP = 1 Then Send("{SPACE}") EndIf EndIf Next Next $YPos = 22 MsgBox( 0 ,"Title",GuiCtrlRead($Combo2,1)) WEnd EndFunc Func Halt () GUICtrlSetState( $FFEEBot, $GUI_ENABLE) GUICtrlSetState( $AP, $GUI_ENABLE) GUICtrlSetState( $AH, $GUI_ENABLE) GUICtrlSetState( $AD, $GUI_ENABLE) GUICtrlSetState( $AA, $GUI_ENABLE) GUICtrlSetState( $Combo, $GUI_ENABLE) GUICtrlSetState( $Combo2, $GUI_ENABLE) GUICtrlSetState( $DelayInput, $GUI_ENABLE) GUICtrlSetState( $DelayUpdown, $GUI_ENABLE) While 1 $msg = GuiGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP if GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo if GuiCtrlRead($Combo) == "640x480" Then $MaxX = 458 $MinX = 122 $MaxY = 307 $MinY = 87 ElseIf GUICtrlRead($Combo) == "800x600" Then $MaxX = 574 $MinX = 159 $MaxY = 395 $MinY = 108 ElseIf GUICtrlRead($Combo) == "1024x768" Then $MaxX = 723 $MinX = 221 $MaxY = 501 $MinY = 170 ElseIf GUICtrlRead($Combo) == "1200x1024" Then $MaxX = 920 $MinX = 234 $MaxY = 691 $MinY = 171 ElseIf GUICtrlRead($Combo) == "800x600 with Mini" Then $MaxX = 650 $MinX = 250 $MaxY = 450 $MinY = 150 EndIf Case $msg == $AH if GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD if GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA if GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(1) Wend Sleep(1) EndFunc While 1 $msg = GuiGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP if GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo if GuiCtrlRead($Combo,1) == "640x480" Then $MaxX = 458 $MinX = 122 $MaxY = 307 $MinY = 87 ElseIf GUICtrlRead($Combo,1) == "800x600" Then $MaxX = 574 $MinX = 159 $MaxY = 395 $MinY = 108 ElseIf GUICtrlRead($Combo,1) == "1024x768" Then $MaxX = 723 $MinX = 221 $MaxY = 501 $MinY = 170 ElseIf GUICtrlRead($Combo,1) == "1200x1024" Then $MaxX = 920 $MinX = 234 $MaxY = 691 $MinY = 171 ElseIf GUICtrlRead($Combo,1) == "800x600 with Mini" Then $MaxX = 650 $MinX = 250 $MaxY = 450 $MinY = 150 EndIf Case $msg == $AH if GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD if GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA if GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(1) Wend Edit:Code updated. Edited May 11, 2006 by Misha Link to comment Share on other sites More sharing options...
Misha Posted May 11, 2006 Author Share Posted May 11, 2006 Well I tryed to fix it but when it comes to the For func it only does the func twice and not how many the combo says it will I even added a msg box to show me what is the value of it it shows 4 but does the func still only 2 times Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted May 11, 2006 Moderators Share Posted May 11, 2006 Well I tryed to fix it but when it comes to the For func it only does the func twice and not how many the combo says it will I even added a msg box to show me what is the value of it it shows 4 but does the func still only 2 timesYou were reassigning your $i value in the second For statement. Try this: expandcollapse popup#include <GuiConstants.au3> #NoTrayIcon Opt("WinTitleMatchMode", 3) Opt("MouseClickDownDelay", 55) Opt("MouseClickDelay", 1) Opt("SendKeyDownDelay", 10) Opt("SendKeyDelay", 1) Opt("CaretCoordMode", 2) HotKeySet( "{F11}", "FFEE_Buff") HotKeySet( "{F10}", "Halt") Dim $AP = 0, $BA = 2, $HB = 0, $DB = 0, $AB = 0, $YPos = 22, $i, $x $FFEEBot = GUICreate( "FFEE Bot", 200, 175, 500, 600, -1) GUICtrlCreateGroup( "By Misha", 5, 5, 195, 170) $Combo = GUICtrlCreateCombo( "640x480", 10, 20, 100) GUICtrlSetData($Combo, "800x600|1024x768|1200x1024") GUICtrlCreateLabel( "Resolution", 10, 40, 100) GUICtrlCreateLabel( "Start F11" & @CRLF & "Stop F10", 115, 20, 50, 25) $AP = GUICtrlCreateCheckbox( "AutoPicker", 10, 60, 80) $AH = GUICtrlCreateCheckbox( "Heal Buff", 100, 60, 80) $AD = GUICtrlCreateCheckbox( "Defense Buff", 10, 80, 80) $AA = GUICtrlCreateCheckbox( "Attack Buff", 100, 80, 80) $Combo2 = GUICtrlCreateCombo(2, 10, 110, 100, 200) GUICtrlSetData($Combo2, 3) GUICtrlSetData($Combo2, 4) GUICtrlSetData($Combo2, 5) GUICtrlCreateLabel( "How many to Buff?", 115, 110, 50, 25) $DelayInput = GUICtrlCreateInput( "0", 10, 150, 90, 20) $DelayUpdown = GUICtrlCreateUpdown($DelayInput) GUICtrlSetLimit($DelayUpdown, 9999, 0) GUICtrlCreateLabel( "Delay", 115, 153, 50, 20) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP If GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo Switch GUICtrlRead($Combo, 1) Case "640x480" $MaxX = 458 $MinX = 122 $MaxY = 307 $MinY = 87 Case "800x600" $MaxX = 574 $MinX = 159 $MaxY = 395 $MinY = 108 Case "1024x768" $MaxX = 723 $MinX = 221 $MaxY = 501 $MinY = 170 Case "1200x1024" $MaxX = 920 $MinX = 234 $MaxY = 691 $MinY = 171 Case "800x600 with Mini" $MaxX = 650 $MinX = 250 $MaxY = 450 $MinY = 150 EndSwitch Case $msg == $AH If GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD If GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA If GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(10) WEnd Func FFEE_Buff() GUICtrlSetState($FFEEBot, $GUI_DISABLE) GUICtrlSetState($AP, $GUI_DISABLE) GUICtrlSetState($AH, $GUI_DISABLE) GUICtrlSetState($AD, $GUI_DISABLE) GUICtrlSetState($AA, $GUI_DISABLE) GUICtrlSetState($Combo, $GUI_DISABLE) GUICtrlSetState($Combo2, $GUI_DISABLE) GUICtrlSetState($DelayInput, $GUI_DISABLE) GUICtrlSetState($DelayUpdown, $GUI_DISABLE) While 1 For $i = 1 To GUICtrlRead($Combo2) $YPos = $YPos + 25 MouseMove(775, $YPos) For $x = 1 To 3 If $HB = 1 And $x = 1 Then Send($x) Sleep(GUICtrlRead($DelayInput)) MouseClick("Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf If $DB = 1 And $x = 2 Then Send($x) MouseClick("Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf If $AB = 1 And $x = 3 Then Send($x) MouseClick( "Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf Next Next $YPos = 22 WEnd EndFunc ;==>FFEE_Buff Func Halt() GUICtrlSetState($FFEEBot, $GUI_ENABLE) GUICtrlSetState($AP, $GUI_ENABLE) GUICtrlSetState($AH, $GUI_ENABLE) GUICtrlSetState($AD, $GUI_ENABLE) GUICtrlSetState($AA, $GUI_ENABLE) GUICtrlSetState($Combo, $GUI_ENABLE) GUICtrlSetState($Combo2, $GUI_ENABLE) GUICtrlSetState($DelayInput, $GUI_ENABLE) GUICtrlSetState($DelayUpdown, $GUI_ENABLE) While 1 $msg = GUIGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP If GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo Switch GUICtrlRead($Combo) Case "640x480" $MaxX = 458 $MinX = 122 $MaxY = 307 $MinY = 87 Case "800x600" $MaxX = 574 $MinX = 159 $MaxY = 395 $MinY = 108 Case "1024x768" $MaxX = 723 $MinX = 221 $MaxY = 501 $MinY = 170 Case "1200x1024" $MaxX = 920 $MinX = 234 $MaxY = 691 $MinY = 171 Case "800x600 with Mini" $MaxX = 650 $MinX = 250 $MaxY = 450 $MinY = 150 EndSwitch Case $msg == $AH If GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD If GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA If GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(10) WEnd EndFunc ;==>Halt Link to comment Share on other sites More sharing options...
Misha Posted May 11, 2006 Author Share Posted May 11, 2006 (edited) I am sooooooooooooooooooo SRY of asking again but I am god damn stupid the resolution combo doesnt work now (how ironic isnt it?) expandcollapse popup#include <GuiConstants.au3> #NoTrayIcon Opt("WinTitleMatchMode", 3) Opt("MouseClickDownDelay", 55) Opt("MouseClickDelay", 1) Opt("SendKeyDownDelay", 10) Opt("SendKeyDelay", 1) Opt("CaretCoordMode", 2) HotKeySet( "{F11}", "FFEE_Buff") HotKeySet( "{F10}", "Halt") Dim $AP = 0, $BA = 2, $HB = 0, $DB = 0, $AB = 0, $YPos = 22, $i, $x Dim $YPos = 10 , $XPos = 610 , $Diffrence = 20 , $TempYPos $FFEEBot = GUICreate( "FFEE Bot", 200, 175, 500, 600, -1) GUICtrlCreateGroup( "By Misha", 5, 5, 195, 170) $Combo = GUICtrlCreateCombo( "640x480", 10, 20, 100) GUICtrlSetData($Combo, "800x600|1024x768|1200x1024") GUICtrlCreateLabel( "Resolution", 10, 40, 100) GUICtrlCreateLabel( "Start F11" & @CRLF & "Stop F10", 115, 20, 50, 25) $AP = GUICtrlCreateCheckbox( "AutoPicker", 10, 60, 80) $AH = GUICtrlCreateCheckbox( "Heal Buff", 100, 60, 80) $AD = GUICtrlCreateCheckbox( "Defense Buff", 10, 80, 80) $AA = GUICtrlCreateCheckbox( "Attack Buff", 100, 80, 80) $Combo2 = GUICtrlCreateCombo(2, 10, 110, 100, 200) GUICtrlSetData($Combo2, 3) GUICtrlSetData($Combo2, 4) GUICtrlSetData($Combo2, 5) GUICtrlCreateLabel( "How many to Buff?", 115, 110, 50, 25) $DelayInput = GUICtrlCreateInput( "0", 10, 150, 90, 20) $DelayUpdown = GUICtrlCreateUpdown($DelayInput) GUICtrlSetLimit($DelayUpdown, 9999, 0) GUICtrlCreateLabel( "Delay", 115, 153, 50, 20) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP If GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo Switch GUICtrlRead($Combo, 1) Case "640x480" $YPos=10 $XPos=610 $Diffrence=20 Case "800x600" $YPos=15 $XPos=760 $Diffrence=25 Case "1024x768" $YPos=20 $XPos=975 $Diffrence=30 Case "1200x1024" $YPos=25 $XPos=1220 $Diffrence=35 EndSwitch Case $msg == $AH If GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD If GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA If GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(10) WEnd Func FFEE_Buff() GUICtrlSetState($FFEEBot, $GUI_DISABLE) GUICtrlSetState($AP, $GUI_DISABLE) GUICtrlSetState($AH, $GUI_DISABLE) GUICtrlSetState($AD, $GUI_DISABLE) GUICtrlSetState($AA, $GUI_DISABLE) GUICtrlSetState($Combo, $GUI_DISABLE) GUICtrlSetState($Combo2, $GUI_DISABLE) GUICtrlSetState($DelayInput, $GUI_DISABLE) GUICtrlSetState($DelayUpdown, $GUI_DISABLE) $TempYPos= $YPos While 1 For $i = 1 To GUICtrlRead($Combo2) MouseMove($XPos, $YPos) $YPos=$YPos + $Diffrence For $x = 1 To 3 If $HB = 1 And $x = 1 Then Send($x) Sleep(GUICtrlRead($DelayInput)) MouseClick("Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf If $DB = 1 And $x = 2 Then Send($x) MouseClick("Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf If $AB = 1 And $x = 3 Then Send($x) MouseClick( "Right") Sleep(25) MouseUp("Right") If $AP = 1 Then Send("{SPACE}") EndIf EndIf Next Next $YPos = $TempYPos WEnd EndFunc;==>FFEE_Buff Func Halt() GUICtrlSetState($FFEEBot, $GUI_ENABLE) GUICtrlSetState($AP, $GUI_ENABLE) GUICtrlSetState($AH, $GUI_ENABLE) GUICtrlSetState($AD, $GUI_ENABLE) GUICtrlSetState($AA, $GUI_ENABLE) GUICtrlSetState($Combo, $GUI_ENABLE) GUICtrlSetState($Combo2, $GUI_ENABLE) GUICtrlSetState($DelayInput, $GUI_ENABLE) GUICtrlSetState($DelayUpdown, $GUI_ENABLE) While 1 $msg = GUIGetMsg() Select Case $msg == $Gui_Event_close Exit Case $msg == $AP If GUICtrlRead($AP) == $GUI_CHECKED Then $AP = 1 Else $AP = 0 EndIf Case $msg = $Combo Switch GUICtrlRead($Combo, 1) Case "640x480" $YPos=10 $XPos=610 $Diffrence=20 Case "800x600" $YPos=15 $XPos=760 $Diffrence=25 Case "1024x768" $YPos=20 $XPos=975 $Diffrence=30 Case "1200x1024" $YPos=25 $XPos=1220 $Diffrence=35 EndSwitch Case $msg == $AH If GUICtrlRead($AH) == $GUI_CHECKED Then $HB = 1 Else $HB = 0 EndIf Case $msg == $AD If GUICtrlRead($AD) == $GUI_CHECKED Then $DB = 1 Else $DB = 0 EndIf Case $msg == $AA If GUICtrlRead($AA) == $GUI_CHECKED Then $AB = 1 Else $AB = 0 EndIf EndSelect Sleep(10) WEnd EndFunc;==>Halt EDIT:FIXED. Edited May 13, 2006 by Misha 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