Jump to content

ok i give up .......


Recommended Posts

Ok i just give up......

Ok fixed all the fucking bugs but still i will explain what shoud it do ... and it dousnt do them.

It shoud activate the window selected from first combobox ..... Works.

Shoud Send the key selected from "1st Weapon" combo ..... Works.

Shoud Send the key selected from "2nd weapon" etc etc etc etc.....

all othere shits dousnt work i tryed to figure out what's wrong can't do it so i ask for help....

#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, 300)
$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)
$Start = GUICtrlCreateButton("Start", 5, 260, 250)
$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, "Not Working")
            If $msg = $Start And BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then
                ClericBuffs()
                WinSetState("Ultimate Euro Buffer", "", @SW_HIDE)
                EndIf
            ExitLoop
        ElseIf BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then
            GUICtrlSetData($Buff1, "Moving March")
            GUICtrlSetData($Buff2, "Noice")
            GUICtrlSetData($Buff3, "Not Working")
            If $msg = $Start And BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then
                BardBuffs()
                WinSetState("Ultimate Euro Buffer", "", @SW_HIDE)
                EndIf
            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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    WinActivate($CN)
        ClericSkill1()
        ClericSkill2()
        ExitLoop
WEnd
EndFunc



Func BardBuffs()
    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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    WinActivate($CN)
        BardSkill1()
        BardSkill2()
        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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    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
    Sleep(100)
    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
    Sleep(100)
    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
    Sleep(3000)
    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
    Sleep(100)
    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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    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
    Sleep(100)
    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
    Sleep(100)
    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
    Sleep(4000)
    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
    Sleep(100)
    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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    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
    Sleep(100)
    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
    Sleep(100)
    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
    Sleep(2000)
    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
    Sleep(100)
    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($Buff1Slot)
    Local $BS2 = GUICtrlRead($Buff2Slot)
    Local $BS3 = GUICtrlRead($Buff3Slot)
    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
    Sleep(100)
    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
    Sleep(100)
    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
    Sleep(2000)
    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
    Sleep(100)
    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.

Link to comment
Share on other sites

Link to comment
Share on other sites

How 'bout you ask nicely? I don't want to see vulgar language, and quite frankly it makes me not want to help.

Cheers,

Brett

I STRONGLY agree.

I suggest an admin give your account a little shaking. Posting like this is absolutely ridiculous.

Link to comment
Share on other sites

lolz i tryed to make this script work for 2 days and i got quite pissed off.

Sorry for my behavior guys :P i'm realy sorry :P:o

please help :D

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.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...