Sign in to follow this  
Followers 0
Misha

Updown Read And Stuff

4 posts in this topic

#1 ·  Posted (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!

#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 by Misha

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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

You were reassigning your $i value in the second For statement. Try this:

#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

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

I am sooooooooooooooooooo SRY of asking again :) but I am god damn stupid the resolution combo doesnt work now :( (how ironic isnt it?)

#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 by Misha

Share this post


Link to post
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
Sign in to follow this  
Followers 0