Jump to content

Buttons arent working - please review


Recommended Posts

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

Link to comment
Share on other sites

  • Moderators

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Moderators

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.

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...