Cha0sBG Posted August 2, 2008 Share Posted August 2, 2008 (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 expandcollapse popup#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 August 2, 2008 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. Link to comment Share on other sites More sharing options...
Developers Jos Posted August 2, 2008 Developers Share Posted August 2, 2008 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 2, 2008 Author Share Posted August 2, 2008 well got some sleep and here is what i made after ... not much changed lol it says wend statement no matching while statement expandcollapse popup#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. Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 2, 2008 Share Posted August 2, 2008 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. .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 2, 2008 Author Share Posted August 2, 2008 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. Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 2, 2008 Share Posted August 2, 2008 WTF have you been smoking if you can't see all these?? 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) .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 2, 2008 Author Share Posted August 2, 2008 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. Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 2, 2008 Share Posted August 2, 2008 How hard can it be to grasp the concept of EndIf?? Open the helpfile and read how it work and study the example and you can't fail. .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 2, 2008 Author Share Posted August 2, 2008 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. Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 2, 2008 Author Share Posted August 2, 2008 Was it soo hard to just make these changes ? i'v done it with help from a friend .... expandcollapse popup#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. Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 2, 2008 Share Posted August 2, 2008 (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. Edited August 2, 2008 by AdmiralAlkex .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Szhlopp Posted August 2, 2008 Share Posted August 2, 2008 (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. LOLLOLLOL 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 it2) Help file3) Search the forums4) Try to fix it again5) 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 August 2, 2008 by Szhlopp RegEx/RegExRep Tester!Nerd Olympics - Community App!Login UDFMemory UDF - "Game.exe+753EC" - CE pointer to AU3Password Manager W/ SourceDataFiler - Include files in your au3!--- Was I helpful? Click the little green '+' Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 2, 2008 Share Posted August 2, 2008 Well said Szhlopp! .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now