Sign in to follow this  
Followers 0
Tweekin

The User Selected Numbers are Wrong

2 posts in this topic

#1 ·  Posted (edited)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$BotMain = GUICreate("MaxBot Mana", 200, 100, -1, -1)
$Input1 = GUICtrlCreateInput("", 40, 32, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetLimit(-1, 10)
$Exura = GUICtrlCreateButton("Exura", 136, 64, 59, 25, 0)
$ExuraVita = GUICtrlCreateButton("ExuraV", 8, 64, 59, 25, 0)
$TUV = GUICtrlCreateButton("TUV", 72, 64, 59, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exura
            $nCurVar = Int(GUICtrlRead($Input1))
            If $nCurVar <= 30 Then
                Do
                    For $i=0 To $nCurVar
                        Call(_Exura(), $i)
                    Next
                UNTIL $i > $nCurVar
            ElseIf $nCurVar > 30
                MsgBox(0, "MaxBotMana" "You Messed it up. Maximum Amount is 30.")
            EndIf
            
                    Case $GUI_EVENT_CLOSE
            Exit
        Case $ExuraVita
            $nCurVar = Int(GUICtrlRead($Input1))
            If $nCurVar <= 30 Then
                Do
                    For $i=0 To $nCurVar
                        Call(_ExuraVita(), $i)
                    Next
                UNTIL $i > $nCurVar
            ElseIf $nCurVar > 30
                MsgBox(0, "MaxBotMana" "You Messed it up. Maximum Amount is 30.")
            EndIf
            
            
                    Case $GUI_EVENT_CLOSE
            Exit
        Case $TUV
            $nCurVar = Int(GUICtrlRead($Input1))
            If $nCurVar <= 30 Then
                Do
                    For $i=0 To $nCurVar
                        Call(_TUV(), $i)
                    Next
                UNTIL $i > $nCurVar
            ElseIf $nCurVar > 30
                MsgBox(0, "MaxBotMana" "You Messed it up. Maximum Amount is 30.")
            EndIf
        EndSwitch
    WEnd
                
            
                    
                    
                

Func _Exura()
WinActivate("Tibia")
MouseMove(257, 703)
MouseClick("Left")
Send("Exura")
Send("{Enter}")
Sleep(1000)
EndFunc




Func _ExuraVita()
    WinActivate("Tibia")
    MouseMove(257, 703)
    MouseClick("Left")
    Send("Exura Vita")
    Send("{Enter}")
    Sleep(1000)
EndFunc




Func _TUV()
    WinActivate("Tibia")
    MouseMove(257, 703)
    Mouseclick("Left")
    Send("Utana Vid")
    Send("{Enter}")
    Sleep(1000)
EndFunc

Hey.. This was suppose to be for Casting Spells in a game. After the User Says how much he/she wants it to cast. It casts but not the Amount you Put in. So if you put in 5 it will send 13 times or so. Any Help Here?

Edited by Tweekin

Share this post


Link to post
Share on other sites



How about changing the title to something useful.


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

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