Sign in to follow this  
Followers 0
Cha0sBG

Please Someone Help

13 posts in this topic

#1 ·  Posted (edited)

I'm sorry that this is my second topic for help today i'm verry sleepy and i almost can't see a thing didn't sleep 47 hours.

Please someone fix the bugs in the script. ty alot in advance.

PS: i know i didn't call the functions (ClericSkill1, ClericSkill2, BardSkill1, BardSkill2) in my script i will do it tommorow but please fix my othere bugs :(

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <Array.au3>

$exe_name = "sro_client.exe"
$winlist = ProcessList ($exe_name)

GUICreate("Ultimate Euro Buffer", 260, 260)
$combo = GUICtrlCreateCombo ("Select Client Name", 4,4,170,20)
$Cleric = GUICtrlCreateRadio("Cleric", 15, 45)
$Bard = GUICtrlCreateRadio("Bard", 70, 45)
GUICtrlCreateGroup("Select Buff Class", 2, 30, 125, 40)
GUICtrlCreateGroup("Stop While Buff", 130, 30, 135, 40)
$StopBot = GUICtrlCreateCheckbox("Stop Bot While Buffing", 135, 45)
$BotSelect = GUICtrlCreateCombo("Select Bot", 180, 4, 75)
GUICtrlSetData(-1, "ISRO Bot")
$1Weapon = GUICtrlCreateCombo("1st Weapon's F", 14, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$1WeaponSlot = GUICtrlCreateCombo("Weapon1 Slot", 14, 110, 105, 20) 
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$2Weapon = GUICtrlCreateCombo("2nd Weapon's F", 135, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$2WeaponSlot = GUICtrlCreateCombo("Weapon 2 slot", 135, 110, 105, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$BuffsF = GUICtrlCreateCombo("Select The" & " " & "(F)" & " " & "of the buffs", 15, 140, 225, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$Buff1 = GUICtrlCreateCombo("1st Buff", 15, 170, 120, 20)
$Buff2 = GUICtrlCreateCombo("2nd Buff", 15, 200, 120, 20)
$Buff3 = GUICtrlCreateCombo("3rd Buff", 15, 230, 120, 20)
$Buff1Slot = GUICtrlCreateCombo("Select Slot", 140, 170, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff2Slot = GUICtrlCreateCombo("Select Slot", 140, 200, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff3Slot = GUICtrlCreateCombo("Select Slot", 140, 230, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
GUISetState(@SW_SHOW)

For $i = 1 To $winlist[0][0]
    GUICtrlSetData ($combo, WinGetTitle(_ProcessGetWinEx($winlist[$i][0],"","","",True)))
Next
GUISetState ()



While 1   
$msg = GUIGetMsg()
         If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        buffs()
    WEnd

Func Buffs()
        While 1
            $msg = GUIGetMsg()
            If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        If BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Bless Of Spell")
            GUICtrlSetData($Buff2, "Recovery Division")
            GUICtrlSetData($Buff3, "Nothing...")
            
            ExitLoop
        ElseIf BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Moving March")
            GUICtrlSetData($Buff2, "Noice")
            GUICtrlSetData($Buff3, "Nothing...")
            ExitLoop
        EndIf
    WEnd
EndFunc

Func ClericBuffs()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
        ClericSkill1()
        ClericSkill2()
        ExitLoop
WEnd
EndFunc


Func ClericSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(180000)
    ContinueLoop
EndFunc
    
Func ClericSkill2()    
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS2 = "1" Then
        Send("1")
    ElseIf $BS2 = "2" Then
        Send("2")
    ElseIf $BS2 = "3" Then
        Send("3")
    ElseIf $BS2 = "4" Then
        Send("4")
    ElseIf $BS2 = "5" Then
        Send("5")
    ElseIf $BS2 = "6" Then
        Send("6")
    ElseIf $BS2 = "7" Then
        Send("7")
    ElseIf $BS2 = "8" Then
        Send("8")
    ElseIf $BS2 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(300000)
    ContinueLoop
EndFunc

Func BardSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(600000)
    ContinueLoop
EndFunc

Func BardSkill2()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(900000)
    ContinueLoop
EndFunc

Func _ProcessGetWinEx($ivPid, $svClass = "", $svTitle = "", $svText = "", $ivReturnOnlyFirstMatch = False)
    $ivPid = ProcessExists($ivPid)
    If Not $ivPid Then Return(SetError(1, 0, 0))
   
    Local $avwArray = WinList()
    Local $avRet[1] = [0]
 
    For $i = 1 To $avwArray[0][0]
        $avClass = DllCall("User32.dll", "int", "GetClassName", "hwnd", $avwArray[$i][1], "str", "", "int", 4096)
        If WinGetProcess($avwArray[$i][1]) = $ivPid Then
            If $svClass = "" Or (IsArray($avClass) And $avClass[2] = $svClass) Then
                If ($svTitle = "" Or StringInStr($avwArray[$i][0], $svTitle)) And ($svText = "" Or StringInStr(WinGetText($avwArray[$i][1]), $svText)) Then
                    $avRet[0] += 1
                    ReDim $avRet[$avRet[0]+1]
                    $avRet[$avRet[0]] = $avwArray[$i][1]
                    If $ivReturnOnlyFirstMatch Then
                        $avRet = $avret[1]
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
 
    Return $avRet

EndFunc
Edited by Cha0sBG

Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites



couple of advices:

1. Go sleep for a while

2. Go sleep for a while.

3. When you want people to look at it, it helps when you tell them what it is they need to look at and needs fixing.

4. go sleep

:P


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

well got some sleep and here is what i made after ... not much changed lol

it says wend statement no matching while statement

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <Array.au3>

$exe_name = "sro_client.exe"
$winlist = ProcessList ($exe_name)

GUICreate("Ultimate Euro Buffer", 260, 260)
$combo = GUICtrlCreateCombo ("Select Client Name", 4,4,170,20)
$Cleric = GUICtrlCreateRadio("Cleric", 15, 45)
$Bard = GUICtrlCreateRadio("Bard", 70, 45)
GUICtrlCreateGroup("Select Buff Class", 2, 30, 125, 40)
GUICtrlCreateGroup("Stop While Buff", 130, 30, 135, 40)
$StopBot = GUICtrlCreateCheckbox("Stop Bot While Buffing", 135, 45)
$BotSelect = GUICtrlCreateCombo("Select Bot", 180, 4, 75)
GUICtrlSetData(-1, "ISRO Bot")
$1Weapon = GUICtrlCreateCombo("1st Weapon's F", 14, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$1WeaponSlot = GUICtrlCreateCombo("Weapon1 Slot", 14, 110, 105, 20) 
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$2Weapon = GUICtrlCreateCombo("2nd Weapon's F", 135, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$2WeaponSlot = GUICtrlCreateCombo("Weapon 2 slot", 135, 110, 105, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$BuffsF = GUICtrlCreateCombo("Select The" & " " & "(F)" & " " & "of the buffs", 15, 140, 225, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$Buff1 = GUICtrlCreateCombo("1st Buff", 15, 170, 120, 20)
$Buff2 = GUICtrlCreateCombo("2nd Buff", 15, 200, 120, 20)
$Buff3 = GUICtrlCreateCombo("3rd Buff", 15, 230, 120, 20)
$Buff1Slot = GUICtrlCreateCombo("Select Slot", 140, 170, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff2Slot = GUICtrlCreateCombo("Select Slot", 140, 200, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff3Slot = GUICtrlCreateCombo("Select Slot", 140, 230, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
GUISetState(@SW_SHOW)

For $i = 1 To $winlist[0][0]
    GUICtrlSetData ($combo, WinGetTitle(_ProcessGetWinEx($winlist[$i][0],"","","",True)))
Next
GUISetState ()



While 1   
$msg = GUIGetMsg()
        If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        buffs()
    WEnd

Func Buffs()
        While 1
            $msg = GUIGetMsg()
            If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        If BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Bless Of Spell")
            GUICtrlSetData($Buff2, "Recovery Division")
            GUICtrlSetData($Buff3, "Nothing...")
            
            ExitLoop
        ElseIf BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Moving March")
            GUICtrlSetData($Buff2, "Noice")
            GUICtrlSetData($Buff3, "Nothing...")
            ExitLoop
        EndIf
    WEnd
EndFunc

Func ClericBuffs()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
        ClericSkill1()
        ClericSkill2()
        ExitLoop
WEnd
EndFunc


Func ClericSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(180000)
    ContinueLoop
    WEnd
EndFunc
    
Func ClericSkill2() 
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS2 = "1" Then
        Send("1")
    ElseIf $BS2 = "2" Then
        Send("2")
    ElseIf $BS2 = "3" Then
        Send("3")
    ElseIf $BS2 = "4" Then
        Send("4")
    ElseIf $BS2 = "5" Then
        Send("5")
    ElseIf $BS2 = "6" Then
        Send("6")
    ElseIf $BS2 = "7" Then
        Send("7")
    ElseIf $BS2 = "8" Then
        Send("8")
    ElseIf $BS2 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(300000)
    ContinueLoop
    WEnd
EndFunc

Func BardSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(600000)
    ContinueLoop
    WEnd
EndFunc

Func BardSkill2()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    EndIf
    Sleep(900000)
    ContinueLoop
    WEnd
EndFunc

Func _ProcessGetWinEx($ivPid, $svClass = "", $svTitle = "", $svText = "", $ivReturnOnlyFirstMatch = False)
    $ivPid = ProcessExists($ivPid)
    If Not $ivPid Then Return(SetError(1, 0, 0))
   
    Local $avwArray = WinList()
    Local $avRet[1] = [0]
 
    For $i = 1 To $avwArray[0][0]
        $avClass = DllCall("User32.dll", "int", "GetClassName", "hwnd", $avwArray[$i][1], "str", "", "int", 4096)
        If WinGetProcess($avwArray[$i][1]) = $ivPid Then
            If $svClass = "" Or (IsArray($avClass) And $avClass[2] = $svClass) Then
                If ($svTitle = "" Or StringInStr($avwArray[$i][0], $svTitle)) And ($svText = "" Or StringInStr(WinGetText($avwArray[$i][1]), $svText)) Then
                    $avRet[0] += 1
                    ReDim $avRet[$avRet[0]+1]
                    $avRet[$avRet[0]] = $avwArray[$i][1]
                    If $ivReturnOnlyFirstMatch Then
                        $avRet = $avret[1]
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
 
    Return $avRet

EndFunc

Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites

Wasn't it you I told you this to yesterday? There is nothing wrong with the WEnd specifically, it is with the rest of the script. If you fix all the errors that SciTe reports it WILL work. You should install the "full" version of SciTE if you haven't done so already.

Share this post


Link to post
Share on other sites

first i never seen you.

second i have installer the full version of scite

third that's the error it's giving me wend statement no matching while statement

if i start to re-write the script ........ it will take me aloooooooooooooooooooooot of time


Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites

WTF have you been smoking if you can't see all these?? :P

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(132,40) : WARNING: $BuffSlot1: possibly used before declaration.

Local $BS1 = GUICtrlRead($BuffSlot1)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(133,40) : WARNING: $BuffSlot2: possibly used before declaration.

Local $BS2 = GUICtrlRead($BuffSlot2)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(134,40) : WARNING: $BuffSlot3: possibly used before declaration.

Local $BS3 = GUICtrlRead($BuffSlot3)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(240,5) : ERROR: missing EndIf.

WEnd

~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(183,23) : REF: missing EndIf.

If $BF = "F1" Then

~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(340,5) : ERROR: missing EndIf.

WEnd

~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(283,23) : REF: missing EndIf.

If $BF = "F1" Then

~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(440,5) : ERROR: missing EndIf.

WEnd

~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(383,23) : REF: missing EndIf.

If $BF = "F1" Then

~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(540,5) : ERROR: missing EndIf.

WEnd

~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(483,23) : REF: missing EndIf.

If $BF = "F1" Then

~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3(132,40) : ERROR: $BuffSlot1: undeclared global variable.

Local $BS1 = GUICtrlRead($BuffSlot1)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ärkeskäggot\Mina dokument\Mina AutoIt\Från forumet\22.au3 - 5 error(s), 3 warning(s)

Share this post


Link to post
Share on other sites

i made this thread cuz i wanted someone to HELP me fix them not show them to me


Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites

ok man listen i went over my script a 1000 times and looked the if endif statements etc didn't see a problem ... as far as i know so i ask for help.

i have seen the help file 1000000000000 times ..

well if no one wants to help ok catch ya again


Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites

Was it soo hard to just make these changes ?

i'v done it with help from a friend ....

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <Array.au3>

$exe_name = "sro_client.exe"
$winlist = ProcessList ($exe_name)

GUICreate("Ultimate Euro Buffer", 260, 260)
$combo = GUICtrlCreateCombo ("Select Client Name", 4,4,170,20)
$Cleric = GUICtrlCreateRadio("Cleric", 15, 45)
$Bard = GUICtrlCreateRadio("Bard", 70, 45)
GUICtrlCreateGroup("Select Buff Class", 2, 30, 125, 40)
GUICtrlCreateGroup("Stop While Buff", 130, 30, 135, 40)
$StopBot = GUICtrlCreateCheckbox("Stop Bot While Buffing", 135, 45)
$BotSelect = GUICtrlCreateCombo("Select Bot", 180, 4, 75)
GUICtrlSetData(-1, "ISRO Bot")
$1Weapon = GUICtrlCreateCombo("1st Weapon's F", 14, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$1WeaponSlot = GUICtrlCreateCombo("Weapon1 Slot", 14, 110, 105, 20) 
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$2Weapon = GUICtrlCreateCombo("2nd Weapon's F", 135, 80, 105, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$2WeaponSlot = GUICtrlCreateCombo("Weapon 2 slot", 135, 110, 105, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$BuffsF = GUICtrlCreateCombo("Select The" & " " & "(F)" & " " & "of the buffs", 15, 140, 225, 20)
GUICtrlSetData(-1, "F1")
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-1, "F3")
GUICtrlSetData(-1, "F4")
$Buff1 = GUICtrlCreateCombo("1st Buff", 15, 170, 120, 20)
$Buff2 = GUICtrlCreateCombo("2nd Buff", 15, 200, 120, 20)
$Buff3 = GUICtrlCreateCombo("3rd Buff", 15, 230, 120, 20)
$Buff1Slot = GUICtrlCreateCombo("Select Slot", 140, 170, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff2Slot = GUICtrlCreateCombo("Select Slot", 140, 200, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
$Buff3Slot = GUICtrlCreateCombo("Select Slot", 140, 230, 100, 20)
GUICtrlSetData(-1, "1")
GUICtrlSetData(-1, "2")
GUICtrlSetData(-1, "3")
GUICtrlSetData(-1, "4")
GUICtrlSetData(-1, "5")
GUICtrlSetData(-1, "6")
GUICtrlSetData(-1, "7")
GUICtrlSetData(-1, "8")
GUICtrlSetData(-1, "9")
GUISetState(@SW_SHOW)

For $i = 1 To $winlist[0][0]
    GUICtrlSetData ($combo, WinGetTitle(_ProcessGetWinEx($winlist[$i][0],"","","",True)))
Next
GUISetState ()



While 1   
$msg = GUIGetMsg()
        If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        buffs()
    WEnd

Func Buffs()
        While 1
            $msg = GUIGetMsg()
            If $msg = $GUI_EVENT_Close Then
            Exit
            EndIf
        If BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Bless Of Spell")
            GUICtrlSetData($Buff2, "Recovery Division")
            GUICtrlSetData($Buff3, "Nothing...")
            
            ExitLoop
        ElseIf BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Moving March")
            GUICtrlSetData($Buff2, "Noice")
            GUICtrlSetData($Buff3, "Nothing...")
            ExitLoop
        EndIf
    WEnd
EndFunc

Func ClericBuffs()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
        ClericSkill1()
        ClericSkill2()
        ExitLoop
WEnd
EndFunc


Func ClericSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    Sleep(180000)
    ContinueLoop
EndIf
EndIf
WEnd
EndFunc
    
Func ClericSkill2() 
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS2 = "1" Then
        Send("1")
    ElseIf $BS2 = "2" Then
        Send("2")
    ElseIf $BS2 = "3" Then
        Send("3")
    ElseIf $BS2 = "4" Then
        Send("4")
    ElseIf $BS2 = "5" Then
        Send("5")
    ElseIf $BS2 = "6" Then
        Send("6")
    ElseIf $BS2 = "7" Then
        Send("7")
    ElseIf $BS2 = "8" Then
        Send("8")
    ElseIf $BS2 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    Sleep(300000)
    ContinueLoop
EndIf
EndIf
    WEnd
EndFunc

Func BardSkill1()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    Sleep(600000)
    ContinueLoop
EndIf
EndIf
    WEnd
EndFunc

Func BardSkill2()
    While 1
    Local $CN = GUICtrlRead($combo)
    Local $2W = GUICtrlRead($2Weapon)
    Local $1W = GUICtrlRead($1Weapon)
    Local $1WS = Guictrlread($1WeaponSlot)
    Local $2WS = GUICtrlRead($2WeaponSlot)
    Local $BF = GUICtrlRead($BuffsF)
    Local $BS1 = GUICtrlRead($BuffSlot1)
    Local $BS2 = GUICtrlRead($BuffSlot2)
    Local $BS3 = GUICtrlRead($BuffSlot3)
    WinActivate($CN)
    If $2W = "F1" Then
        Send("{F1}")
    ElseIf $2W = "F2" Then
        Send("{F2}")
    ElseIf $2W = "F3" Then
        Send("{F3}")
    ElseIf $2W = "F4" Then
        Send("{F4}")
    EndIf
    If $2WS = "1" Then
        Send("1")
    ElseIf $2WS = "2" Then
        Send("2")
    ElseIf $2WS = "3" Then
        Send("3")
    ElseIf $2WS = "4" Then
        Send("4")
    ElseIf $2WS = "5" Then
        Send("5")
    ElseIf $2WS = "6" Then
        Send("6")
    ElseIf $2WS = "7" Then
        Send("7")
    ElseIf $2WS = "8" Then
        Send("8")
    ElseIf $2WS = "9" Then
        Send("9")
    EndIf
    If $BF = "F1" Then
        Send("{F1}")
    ElseIf $BF = "F2" Then
        Send("{F2}")
    ElseIf $BF = "F3" Then
        Send("{F3}")
    ElseIf $BF = "F4" Then
        Send("{F4}")
    If $BS1 = "1" Then
        Send("1")
    ElseIf $BS1 = "2" Then
        Send("2")
    ElseIf $BS1 = "3" Then
        Send("3")
    ElseIf $BS1 = "4" Then
        Send("4")
    ElseIf $BS1 = "5" Then
        Send("5")
    ElseIf $BS1 = "6" Then
        Send("6")
    ElseIf $BS1 = "7" Then
        Send("7")
    ElseIf $BS1 = "8" Then
        Send("8")
    ElseIf $BS1 = "9" Then
        Send("9")
    EndIf
    If $1W = "F1" Then
        Send("{F1}")
    ElseIf $1W = "F2" Then
        Send("{F2}")
    ElseIf $1W = "F3" Then
        Send("{F3}")
        ElseIf $1W = "F4" Then
        Send("{F4}")
    EndIf
    If $1WS = "1" Then
        Send("1")
    ElseIf $1WS = "2" Then
        Send("2")
    ElseIf $1WS = "3" Then
        Send("3")
    ElseIf $1WS = "4" Then
        Send("4")
    ElseIf $1WS = "5" Then
        Send("5")
    ElseIf $1WS = "6" Then
        Send("6")
    ElseIf $1WS = "7" Then
        Send("7")
    ElseIf $1WS = "8" Then
        Send("8")
    ElseIf $1WS = "9" Then
        Send("9")
    Sleep(900000)
    ContinueLoop
EndIf
EndIf
    WEnd
EndFunc

Func _ProcessGetWinEx($ivPid, $svClass = "", $svTitle = "", $svText = "", $ivReturnOnlyFirstMatch = False)
    $ivPid = ProcessExists($ivPid)
    If Not $ivPid Then Return(SetError(1, 0, 0))
   
    Local $avwArray = WinList()
    Local $avRet[1] = [0]
 
    For $i = 1 To $avwArray[0][0]
        $avClass = DllCall("User32.dll", "int", "GetClassName", "hwnd", $avwArray[$i][1], "str", "", "int", 4096)
        If WinGetProcess($avwArray[$i][1]) = $ivPid Then
            If $svClass = "" Or (IsArray($avClass) And $avClass[2] = $svClass) Then
                If ($svTitle = "" Or StringInStr($avwArray[$i][0], $svTitle)) And ($svText = "" Or StringInStr(WinGetText($avwArray[$i][1]), $svText)) Then
                    $avRet[0] += 1
                    ReDim $avRet[$avRet[0]+1]
                    $avRet[$avRet[0]] = $avwArray[$i][1]
                    If $ivReturnOnlyFirstMatch Then
                        $avRet = $avret[1]
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
 
    Return $avRet

EndFunc

Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

That would not have been hard, I could have fixed that in a few seconds and so could you if you bothered to actually THINK. That you are a noob is no excuse to be stupid. :P

Edited by AdmiralAlkex

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

That would not have been hard, I could have fixed that in a few seconds and so could you if you bothered to actually THINK. That you are a noob is no excuse to be stupid. :P

LOL

LOL

LOL I LOVE THAT EMOTICON!!!

Admiral is right though.

If people show that they want to have it fixed and they show some proof of actually digging through the help files to do so then normally people are alot more willing to help.

Was it soo hard to just make these changes ?

i'v done it with help from a friend ....

This is what I mean... It wasn't hard, as Admiral said, you just didn't try to fix it. You wanted somebody else to do your coding=)

In the future all I'm saying is:

1) Try to fix it

2) Help file

3) Search the forums

4) Try to fix it again

5) If you're still stumped then create a thread on it ASKING for advice. NOT asking for the code back. It makes a HUGE difference!

Edited by Szhlopp

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