Jump to content
Sign in to follow this  
onestcoder

Buttons arent working - please review

Recommended Posts

onestcoder

Autoit GODS :geek: please review this for me and tell me were you would make changes.

I have only been useing Autoit for about a month and have never coded before. I have been learning allot. Thank you

My Buttons arent working :o GUICtrlSetOnEvent

; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
$fileen = FileOpen("includes/vars/enhancevars.txt", 0)
$speeden = FileReadLine($fileen, 1)
$spellnumberen = FileReadLine($fileen, 2) + 1
FileClose($fileen)
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001")
If @error = 1 Then
    Global $resx = RegRead("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001")
    Global $resy = RegRead("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002")
    Global $install = RegRead("HKLM\SOFTWARE\PlayOnlineEU\Installfolder", "0001")
Else
    Global $resx = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001")
    Global $resy = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002")
    Global $install = RegRead("HKLM\SOFTWARE\PlayOnlineUS\Installfolder", "0001")
EndIf
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Global $resa = @DesktopWidth
Global $resb = @DesktopHeight
Global $resadded = $resx + $resy
Global $winadded = $resa + $resb
Global $status
Global $pause = 0
Global $run = 1
Global $event = 0
Global $Paused = False
Global $enhanceing = False
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
If $winadded <> 1400 And $winadded <> 1792 And $winadded <> 2304 Then
    nowinres()
EndIf
If $resadded <> $winadded Then
    fixres()
EndIf
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
$filew = FileOpen("includes\tools\Windower.ini", 2)
FileWrite($filew, "[Windower Settings]" & @CRLF & @CRLF)
FileWrite($filew, "#Version may be NA, JP, or EU" & @CRLF)
FileWrite($filew, "Language=NA" & @CRLF & @CRLF)
FileWrite($filew, "#Defines the window size, for fullscreen, set to the size of your desktop" & @CRLF)
FileWrite($filew, "#Standard resolutions are 640x480, 800x600, 1024x768, 1280x1024, etc." & @CRLF)
FileWrite($filew, "X Resolution=" & $resx & @CRLF)
FileWrite($filew, "Y Resolution=" & $resy & @CRLF & @CRLF)
FileWrite($filew, "#Sets the console key. Note that older versions of Windower interfered" & @CRLF)
FileWrite($filew, "#with IME when ~(tilde) was the console key, but this has been fixed." & @CRLF)
FileWrite($filew, "Console Key=`" & @CRLF & @CRLF)
FileWrite($filew, "#True fullscreen is where Windower is loaded (and therefor plugins work)," & @CRLF)
FileWrite($filew, "#but you can't alt-tab. The advantage to this is you don't get graphical" & @CRLF)
FileWrite($filew, "#artifacts but you can use plugins. This was a requested feature." & @CRLF)
FileWrite($filew, "True Fullscreen=0" & @CRLF & @CRLF)
FileWrite($filew, "#this should only be set if you're trying to debug a plugin you're" & @CRLF)
FileWrite($filew, "#developing. Setting this will disable the Windower exception handler" & @CRLF)
FileWrite($filew, "#so that you can analyze exceptions in your plugin." & @CRLF)
FileWrite($filew, "Debug=0" & @CRLF)
FileClose($filew)
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
#include <GUIConstants.au3>
$gui = GUICreate("Enhancer Bot", 205, 340, 0, 0, -1, $WS_EX_TOPMOST)
opt("GUICoordMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")
HotKeySet("{F11}", "TogglePause")
HotKeySet("{F10}", "Terminate")
GUICtrlCreateGroup("Bot Program Speed", 10, 165, 185, 75)
$speednumbere = GUICtrlCreateSlider(15, 180, 175, 30)
GUICtrlSetLimit(-1, 3, 1)
If $speeden = 1 Then
    GUICtrlSetData($speednumbere, 1)
EndIf
If $speeden = 2 Then
    GUICtrlSetData($speednumbere, 2)
EndIf
If $speeden = 3 Then
    GUICtrlSetData($speednumbere, 3)
EndIf
GUICtrlCreateLabel("Slow", 15, 210, 50, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Standard", 75, 210, 55, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Ultra", 160, 210, 30, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Current Spells", 10, 10, 185, 135)
$spell1 = GUICtrlCreateCheckbox("Cure I,II,III,IV,V", 15, 30, 118, 20)
$spell2 = GUICtrlCreateCheckbox("Protect I,II,III,IV", 15, 50, 118, 20)
$spell3 = GUICtrlCreateCheckbox("Shell I,II,III,IV", 15, 70, 118, 20)
$spell4 = GUICtrlCreateCheckbox("Spikes-Blaze,Shock,etc", 15, 90, 136, 20)
$spell5 = GUICtrlCreateCheckbox("En-Thunder,Stone, etc", 15, 110, 136, 25)
$spell6 = GUICtrlCreateCheckbox("+1", 150, 30, 30, 20)
$spell7 = GUICtrlCreateCheckbox("+1", 150, 50, 30, 20)
$spell8 = GUICtrlCreateCheckbox("+1", 150, 70, 30, 20)
$spell9 = GUICtrlCreateCheckbox("+1", 150, 90, 30, 20)
If $spellnumberen = 1 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
ElseIf $spellnumberen = 2 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
ElseIf $spellnumberen = 3 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
ElseIf $spellnumberen = 4 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
ElseIf $spellnumberen = 5 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
    GUICtrlSetState($spell5, $GUI_CHECKED)
ElseIf $spellnumberen = 6 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
    GUICtrlSetState($spell5, $GUI_CHECKED)
    GUICtrlSetState($spell6, $GUI_CHECKED)
ElseIf $spellnumberen = 7 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
    GUICtrlSetState($spell5, $GUI_CHECKED)
    GUICtrlSetState($spell6, $GUI_CHECKED)
    GUICtrlSetState($spell7, $GUI_CHECKED)
ElseIf $spellnumberen = 8 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
    GUICtrlSetState($spell5, $GUI_CHECKED)
    GUICtrlSetState($spell6, $GUI_CHECKED)
    GUICtrlSetState($spell7, $GUI_CHECKED)
    GUICtrlSetState($spell8, $GUI_CHECKED)
ElseIf $spellnumberen = 9 Then
    GUICtrlSetState($spell1, $GUI_CHECKED)
    GUICtrlSetState($spell2, $GUI_CHECKED)
    GUICtrlSetState($spell3, $GUI_CHECKED)
    GUICtrlSetState($spell4, $GUI_CHECKED)
    GUICtrlSetState($spell5, $GUI_CHECKED)
    GUICtrlSetState($spell6, $GUI_CHECKED)
    GUICtrlSetState($spell7, $GUI_CHECKED)
    GUICtrlSetState($spell8, $GUI_CHECKED)
    GUICtrlSetState($spell9, $GUI_CHECKED)
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
$OKenhance = GUICtrlCreateButton("Save", 120, 260, 75, 25)
GUICtrlSetOnEvent($OKenhance, "enhancesave")
; ----------------------------------------------------------------------------
$OKrun = GUICtrlCreateButton("Run", 120, 300, 75, 25)
GUICtrlSetOnEvent($OKrun, "enhanceing")
; ----------------------------------------------------------------------------
$exitb = GUICtrlCreateButton("EXIT", 10, 260, 75, 25)
GUICtrlSetOnEvent($exitb, "Terminate")
; ----------------------------------------------------------------------------
$p2 = GUICtrlCreateButton("Pause", 10, 300, 75, 25)
GUICtrlSetOnEvent($p2, "TogglePause")
GUISetState()
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
While 1
    If GUICtrlRead($spell1) > 3 Then
        $statusspell1 = GUICtrlRead($spell1) - 4
    ElseIf GUICtrlRead($spell1) < 3 Then
        $statusspell1 = GUICtrlRead($spell1)
    EndIf
    If GUICtrlRead($spell2) > 3 Then
        $statusspell2 = GUICtrlRead($spell2) - 4
    ElseIf GUICtrlRead($spell2) < 3 Then
        $statusspell2 = GUICtrlRead($spell2)
    EndIf
    If GUICtrlRead($spell3) > 3 Then
        $statusspell3 = GUICtrlRead($spell3) - 4
    ElseIf GUICtrlRead($spell3) < 3 Then
        $statusspell3 = GUICtrlRead($spell3)
    EndIf
    If GUICtrlRead($spell4) > 3 Then
        $statusspell4 = GUICtrlRead($spell4) - 4
    ElseIf GUICtrlRead($spell4) < 3 Then
        $statusspell4 = GUICtrlRead($spell4)
    EndIf
    If GUICtrlRead($spell5) > 3 Then
        $statusspell5 = GUICtrlRead($spell5) - 4
    ElseIf GUICtrlRead($spell5) < 3 Then
        $statusspell5 = GUICtrlRead($spell5)
    EndIf
    If GUICtrlRead($spell6) > 3 Then
        $statusspell6 = GUICtrlRead($spell6) - 4
    ElseIf GUICtrlRead($spell6) < 3 Then
        $statusspell6 = GUICtrlRead($spell6)
    EndIf
    If GUICtrlRead($spell7) > 3 Then
        $statusspell7 = GUICtrlRead($spell7) - 4
    ElseIf GUICtrlRead($spell7) < 3 Then
        $statusspell7 = GUICtrlRead($spell7)
    EndIf
    If GUICtrlRead($spell8) > 3 Then
        $statusspell8 = GUICtrlRead($spell8) - 4
    ElseIf GUICtrlRead($spell8) < 3 Then
        $statusspell8 = GUICtrlRead($spell8)
    EndIf
    If GUICtrlRead($spell9) > 3 Then
        $statusspell9 = GUICtrlRead($spell9) - 4
    ElseIf GUICtrlRead($spell9) < 3 Then
        $statusspell9 = GUICtrlRead($spell9)
    EndIf
; ----------------------------------------------------------------------------
    Local $spellnumber = $statusspell1 + $statusspell2 + $statusspell3 + $statusspell4 + $statusspell5 + $statusspell6 + $statusspell7 + $statusspell8 + $statusspell9 - 1
; ----------------------------------------------------------------------------
    $msg = GUIGetMsg()
; ----------------------------------------------------------------------------
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func enhancesave()
    $fileenhance = FileOpen("includes/vars/enhancevars.txt", 2)
    FileWrite($fileenhance, GUICtrlRead($speednumbere) & @CRLF)
    FileWrite($fileenhance, $spellnumber & @CRLF)
    FileClose($fileenhance)
    Sleep(100)
    SplashTextOn("Saved", "Saved!", 100, 25, -1, -1, 0, "", 12)
    Sleep(1000)
    SplashOff()
EndFunc  ;==>enhancesave
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
While $enhanceing = True
    Sleep(100)
    SplashTextOn("Enhanceing", "Running", 100, 25, -1, -1, 0, "", 12)
    Sleep(1000)
    SplashOff()
    $file = FileOpen("includes/vars/enhancevars.txt", 0)
    $speed = FileReadLine($file, 1)
    $spellnumber = FileReadLine($file, 2)
    FileClose($file)
    Local $resx = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001")
    Local $resy = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002")
    Local $resnumber = $resx + $resy
    If $resnumber = 1400 Then
        $res = 1
    ElseIf $resnumber = 1792 Then
        $res = 2
    ElseIf $resnumber = 2016 Then
        $res = 0
    ElseIf $resnumber = 2048 Then
        $res = 0
    ElseIf $resnumber = 2240 Then
        $res = 0
    ElseIf $resnumber = 2304 Then
        $res = 3
    EndIf
    If $res = 0 Then
        MsgBox(16, "Error", "Your FFXI resolution is not currently supported", 10)
        Exit
    EndIf
    If $res = 1 Then
        $resolution = 0
        $resolution2 = 0
    EndIf
    If $res = 2 Then
        $resolution = 168
        $resolution2 = 225
    EndIf
    If $res = 3 Then
        $resolution = 424
        $resolution2 = 481
    EndIf
    If $speed = 1 Then
        $sleep1 = 1500
        $sleep2 = 5000
        $sleep3 = 15000
    EndIf
    If $speed = 2 Then
        $sleep1 = 500
        $sleep2 = 2000
        $sleep3 = 10000
    EndIf
    If $speed = 3 Then
        $sleep1 = 0
        $sleep2 = 0
        $sleep3 = 0
    EndIf
;Run(@ProgramFilesDir & "\PlayOnline\SquareEnix\PlayOnlineViewer/pol.exe")
    Do
        AutoItSetOption("SendKeydownDelay", 250);
        If PixelGetColor(26, 577 + $resolution) > 16777000 And PixelGetColor(26, 577 + $resolution) < 16777300 And PixelGetColor(35, 571 + $resolution) > 16777000 And PixelGetColor(35, 571 + $resolution) < 16777300 And PixelGetColor(53, 567 + $resolution) > 16777000 And PixelGetColor(53, 567 + $resolution) < 16777300 Then
            Sleep(1000 + $sleep2)
            Send("^1")
            Sleep(500)
            Exit
            Terminate()
        EndIf
        If $spellnumber = 0 Then
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!1"); spell 1.
                Send("!1")
                Sleep(12000 + $sleep2)
                $event = 0
            EndIf
        EndIf
        If $spellnumber = 1 Then
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!1"); spell 1.
                Send("!1")
                Sleep(6000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!2");spell 2.
                Send("!2")
                Sleep(6000 + $sleep2)
                $event = 0
            EndIf
        EndIf
        If $spellnumber = 2 Then
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!1"); spell 1.
                Send("!1")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!2");spell 2.
                Send("!2")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!3");spell 3.
                Send("!3")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
        EndIf
        If $spellnumber > 2 Then
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!1"); spell 1.
                Send("!1")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!2");spell 2.
                Send("!2")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!3");spell 3.
                Send("!3")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
            If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then
                Sleep(2000)
                Send("!4");spell 4.
                Send("!4")
                Sleep(4000 + $sleep2)
                $event = 0
            EndIf
        EndIf
        If PixelGetColor(733 + $resolution2, 575 + $resolution) < 9000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) < 9000000 Then
            med();
            $event = 1;low mp.
        EndIf
    Until $event = 1
WEnd
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func med()
    Sleep(100)
    SplashTextOn("Healing", "MP Low", 100, 25, -1, -1, 0, "", 12)
    Sleep(1000)
    SplashOff()
    Sleep(1000)
    Send("{ESCAPE 2}")
    Sleep(1500)
    Send("!h");down
    Sleep(60000)
    If PixelGetColor(733 + $resolution2, 575 + $resolution) < 9000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) < 8500000 Then
        Send("{ESCAPE 2}")
        Sleep(1500)
        Send("!h");down
    EndIf
    $event = 0
    Do
        Sleep(3000)
        If PixelGetColor(772 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(772 + $resolution2, 577 + $resolution) > 11000000 Then
            Send("{ESCAPE 2}")
            Sleep(1500)
            AutoItSetOption("SendKeydownDelay", 3000);
            Send("!h");up
            AutoItSetOption("SendKeydownDelay", 250);
            $event = 2;mp full.
        EndIf
    Until $event = 2
EndFunc  ;==>med
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func Pause()
    If $rest = 1 Then
        Send("!h");down
    EndIf
    While 1
        Sleep(5000)
        If DriveStatus($drive) = "READY" Then
            If $rest = 1 Then
                Sleep(250)
                AutoItSetOption("SendKeydownDelay", 3000);
                Send("!h");up
                AutoItSetOption("SendKeydownDelay", 250);
                Sleep(250)
            EndIf
            ExitLoop
        EndIf
        If PixelGetColor(26, 577 + $resolution) > 16777000 And PixelGetColor(26, 577 + $resolution) < 16777300 And PixelGetColor(35, 571 + $resolution) > 16777000 And PixelGetColor(35, 571 + $resolution) < 16777300 And PixelGetColor(53, 567 + $resolution) > 16777000 And PixelGetColor(53, 567 + $resolution) < 16777300 Then
            Sleep(1000)
            Send("^1")
            Sleep(500)
            Exit
            Terminate()
        EndIf
    WEnd
EndFunc  ;==>Pause
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func Terminate()
    Exit 0
EndFunc  ;==>Terminate
Func TogglePause()
    $Paused = Not $Paused
    $enhanceing = Not $enhanceing
    If $Paused = False Then
        ToolTip("")
    ElseIf $Paused = True Then
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    EndIf
EndFunc  ;==>TogglePause
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func enhanceing()
    If $enhanceing = False And $Paused = True Then
        TogglePause()
    Else
        $enhanceing = True
    EndIf
EndFunc  ;==>enhanceing
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func nowinres()
    MsgBox(4096, "Resolution Error", "Your current windows resolution is not supported" & @CRLF & "Please switch to one of the three supported resolutions and restart Burners 7in1 Software" & @CRLF & "These Include 800x600 & 1024x768 & 1280x1024" & @CRLF & "Thank You")
    Exit
EndFunc  ;==>nowinres
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Func fixres()
    MsgBox(4096, "Resolution Error", "Your current FFXI resolution does not match your windows resolution" & @CRLF & "In order for the bots to work properly they must match" & @CRLF & "Dont worry we will fix this for you" & @CRLF & "Simply Press OK to fix your FFXI resolution to match your Windows resolution" & @CRLF & "Burnersware will automatically fix your resolution and restart when finished" & @CRLF & "Thank You")
; ----------------------------------------------------------------------------
    RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001")
    If @error = 1 Then
        If $winadded = 1400 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000320");800
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000258");600
        EndIf
        If $winadded = 1792 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000400");1024
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000300");768
        EndIf
        If $winadded = 2304 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000500");1280
            RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000400");1024
        EndIf
    Else
        If $winadded = 1400 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000320");800
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000258");600
        EndIf
    ; ----------------------------------------------------------------------------
        If $winadded = 1792 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000400");1024
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000300");768
        EndIf
    ; ----------------------------------------------------------------------------
        If $winadded = 2304 Then
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000500");1280
            RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000400");1024
        EndIf
    EndIf
EndFunc  ;==>fixres
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
; --------------------------------------------------------------------------------------------------------------------
Exit

Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites
onestcoder

Opt("GUIOnEventMode", 1)

:o I figured it out

But if you would review the code and make suggetions PLEASE PLEASE do. I want to learn


Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites
SmOke_N

Opt("GUIOnEventMode", 1)

:geek: I figured it out

But if you would review the code and make suggetions PLEASE PLEASE do. I want to learn

Feels like I've seen this code like 10 times in the past week... dejavu? :o


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

Share this post


Link to post
Share on other sites
onestcoder

Feels like I've seen this code like 10 times in the past week... dejavu? :o

I have posted it one or twice but it has never been the same thing twice. Evertime I go over it again I learn more and more, but new I'm getting stomped about what to do next or undo next I was just hopeing to make a quilty script and learn as much as I can to be a Indepentant Autoit coder. But i'm a newb Its not that I dont understand the code or how the code works cuz most of it is common scene. I just am learning different methods of doing things. Problem Solving and such. Its hard to learn Problem solving without input and feedback. So i'v mainly posted this code so I can learn how other coders view a script and what problem solving Methods they use to avoid function problems and things of that nature

I love Autoit It' my new favorate pass time


Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites
SmOke_N

I have posted it one or twice but it has never been the same thing twice. Evertime I go over it again I learn more and more, but new I'm getting stomped about what to do next or undo next I was just hopeing to make a quilty script and learn as much as I can to be a Indepentant Autoit coder. But i'm a newb Its not that I dont understand the code or how the code works cuz most of it is common scene. I just am learning different methods of doing things. Problem Solving and such. Its hard to learn Problem solving without input and feedback. So i'v mainly posted this code so I can learn how other coders view a script and what problem solving Methods they use to avoid function problems and things of that nature

I love Autoit It' my new favorate pass time

Good deal... this is probably more than the first script that I did.

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

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.