[Release] BoniSwitcher by CroSSie - Source

[CroSSiie]

Heyho zusammen...

hab mich entschlossen euch mein Script zu geben.
Ich sage jetzt schonmal: Um euch viel Zeit zu sparen nehmt einfach diesen Switcher!


Für alle Bastler ist hier mein Script!

Eine kleine Bitte habe ich an euch:

1. Das Script habe ICH geschrieben, also gebt es nicht als euer aus!
2. Wenn ihr irgendwelche Schönheitsfehler etc entdeckt bitte macht euch die Mühe und schreibt mir eine PN. Würde mich sehr freuen auf ein Feedback eurer Seits.

Ich erkläre euch auch gerne was bestimmte Scriptabschnitte genau machen: Das tue ich aber nur für Leute die sich mir gegenüber Nett äußern und AutoIt wissen mitsichbringen.

Also viel Spaß und viel Erfolg

 Spoiler

PHP Code:

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=old\Assassin-s-Creed-II-6.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <Sound.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <IE.au3>
#include <own.au3>
#include <Pointer.au3>

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)

Global $version = "2.8.1"
If _Singleton ("Boni-Switcher "&$version&" by CroSSie",1) = 0 Then
    MsgBox(0,"ERROR", "Der Bot l‰uft bereits!")
    Exit
EndIf

HotKeySet("{F6}", "start")
HotKeySet("{F7}", "pause")
HotKeySet("{F8}", "ende")
HotKeySet("{ESC}", "notaus")

FileInstall("Aura.jpg", "Aura.jpg")
FileInstall("lose.wav", "lose.wav")

#Region ###Start GUI ###
$gui1=GUICreate("Boni-Switcher "&$version&" by CroSSie",320,440,282,120)

    $dateimenu = GUICtrlCreateMenu ("&Datei")
        $item_save = GUICtrlCreateMenuitem ("Speichern",$dateimenu)
        $item_exit = GUICtrlCreateMenuitem ("Ende",$dateimenu)
    $einstellungmenu = GUICtrlCreateMenu ("&Einstellungen")
        $item_allgemein = GUICtrlCreateMenuitem ("Allgemein", $einstellungmenu)
    $infomenu = GUICtrlCreateMenu ("&Info")
        $item_help = GUICtrlCreateMenuitem ("Hilfe",$infomenu)

    GUICtrlCreateTab (10,10, 300,405)

    GUICtrlCreateTabitem ( "Steuerung")
        GuiCtrlCreateLabel("Boni-Switcher by CroSSie",60,50,200,20)
            GUICtrlSetFont (-1, 14, 400, 0, "28 Days Later")

        $button_start=GUICtrlCreateButton("Start [F6]",100,80,110,35)
            GUICtrlSetFont (-1, 14, 400, 0, "28 Days Later")
        $button_pause=GUICtrlCreateButton("Pause [F7]",100,130,110,35)
            GUICtrlSetFont (-1, 14, 400, 0, "28 Days Later")
        $button_ende=GUICtrlCreateButton("Schlieflen [F8]",100,180,110,35)
            GUICtrlSetFont (-1, 14, 400, 0, "28 Days Later")

        GUICtrlCreatePic("Aura.jpg",50,230, 220,180)

    GUICtrlCreateTabitem ("Boni-Einstellung")
        $radio_waffe     = GUICtrlCreateRadio("Waffe", 70, 60, 70, 20)
        $radio_ruessi     = GUICtrlCreateRadio("R¸stung", 70, 85, 70, 20)
        $radio_armband    = GUICtrlCreateRadio("Armband", 70, 110, 70, 20)
        $radio_helm     = GUICtrlCreateRadio("Helm", 70, 135, 70, 20)
        $radio_schild     = GUICtrlCreateRadio("Schild", 170, 60, 70, 20)
        $radio_ohrringe = GUICtrlCreateRadio("Ohrringe", 170, 85, 70, 20)
        $radio_kette     = GUICtrlCreateRadio("Kette", 170, 110, 70, 20)
        $radio_schuhe    = GUICtrlCreateRadio("Schuhe", 170, 135, 70, 20)
        $radio_all    = GUICtrlCreateRadio("Alle Bonis", 170, 160, 70, 20)

        GuiCtrlCreateLabel("Boniart",60, 195, 50, 20)
        GuiCtrlCreateLabel("minimale Bonihˆhe",170, 195, 150, 20)
        Dim $combo_boni[5]
            $combo_boni[0] = GuICtrlCreateCombo("", 60, 220, 95, 25)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $combo_boni[1] = GuICtrlCreateCombo("", 60, 250, 95, 25)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $combo_boni[2]= GuICtrlCreateCombo("", 60, 280, 95, 25)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $combo_boni[3] = GuICtrlCreateCombo("", 60, 310, 95, 25)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $combo_boni[4] = GuICtrlCreateCombo("", 60, 340, 95, 25)
                GUICtrlSetState(-1, $GUI_DISABLE)

        Dim $input_boni_min[5]
            $input_boni_min[0] = GUICtrlCreateInput("", 180, 220, 50, 21,$ES_NUMBER)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $input_boni_min[1] = GUICtrlCreateInput("", 180, 250, 50, 21,$ES_NUMBER)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $input_boni_min[2] = GUICtrlCreateInput("", 180, 280, 50, 21,$ES_NUMBER)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $input_boni_min[3] = GUICtrlCreateInput("", 180, 310, 50, 21,$ES_NUMBER)
                GUICtrlSetState(-1, $GUI_DISABLE)
            $input_boni_min[4] = GUICtrlCreateInput("", 180, 340, 50, 21,$ES_NUMBER)
                GUICtrlSetState(-1, $GUI_DISABLE)

        Dim $check_boni[5]
        $check_boni[0] = GuICtrlCreateCheckbox("", 40, 220, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check_boni[1] = GuICtrlCreateCheckbox("", 40, 250, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check_boni[2] = GuICtrlCreateCheckbox("", 40, 280, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check_boni[3] = GuICtrlCreateCheckbox("", 40, 310, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check_boni[4] = GuICtrlCreateCheckbox("", 40, 340, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)

        $check_alternative = GuICtrlCreateCheckbox("Alternative Bonis", 40, 370, 100, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $label_immun = GuICtrlCreateLabel("F¸r Immun gg ..."&@CRLF&"Bonihˆhe = 1", 180, 370, 100, 40)
            GUICtrlSetState(-1, $GUI_HIDE)
        $check_7boni = GuICtrlCreateCheckbox("6./7. Boni Switchen", 40, 390, 130, 20)
            GUICtrlSetState(-1, $GUI_HIDE)

GuiSetState()

$gui2=GuiCreate("Allgemein",290,330,320,160)

    GUICtrlCreateTab (7,10, 280,300)

    GUICtrlCreateTabitem ( "Allgemein")

        GuiCtrlCreateGroup("Zeit bis zum Beenden",20,40,125,85)
        GuiCtrlCreateLabel("(Minuten)",40, 55, 50, 20)
        $input_time=GuiCtrlCreateInput("60",45,75,70,20,$ES_NUMBER)
        $check_time=GUICtrlCreateCheckbox("",25, 75, 20, 20)
            GUICtrlSetState(-1,$GUI_CHECKED)

        GuiCtrlCreateGroup("Speed (in ms)",160,40,120,83)
        $slider_speed = GUICtrlCreateSlider (170,60,100,20)
            GUICtrlSetLimit(-1,15,3)
            GUICtrlSetData(-1,6)
            GUICtrlSetBkColor(-1, 0xFAFAFC)
        GuiCtrlCreateLabel("Schnell -- Langsam",175,80,100,20)
        $speed = GuiCtrlRead ($slider_speed)
        $label_speed = GuiCtrlCreateLabel("Speed:"&$speed,175,100,100,20)

        GuiCtrlCreateGroup("PC Aktivit‰t",20,135,125,115)
        $check_shutdown_win = GUICtrlCreateCheckbox ("Ziel erreicht", 30, 155, 114, 20)
        $check_shutdown_failed = GUICtrlCreateCheckbox ("Ziel nicht erreicht", 30, 175, 114, 20)
        $check_shutdown_time = GUICtrlCreateCheckbox ("Timeout", 30, 195, 114, 20)
        $combo_shutdown = GuICtrlCreateCombo("", 35, 218, 95, 25)
            GUICtrlSetData(-1,"Herrunterfahren|Standby|Metin2 Beenden", "Herrunterfahren")
            GUICtrlSetState(-1, $GUI_DISABLE)


        GuiCtrlCreateGroup("Version",160,135,120,150)
        $combo_version = GuICtrlCreateCombo("", 170, 165, 100, 20)
            GUICtrlSetData(-1,"Version 1|Version 2|Version 3", "Version 1")
            GUICtrlCreateLabel("Version 2:"&@CRLF&"  - eDgMt2"&@CRLF&"  - SoG-Mt2"&@CRLF&"Version 3:"&@CRLF&"  - New World 3", 180, 200, 80, 70)


    GUICtrlCreateTabitem ( "Funktionen")
        GuiCtrlCreateGroup("Funktionen",20,40,250,105)
        $check_pk = GUICtrlCreateCheckbox ("PK - Mode", 30, 60, 100, 20)
            GUICtrlSetState(-1, $GUI_CHECKED)
        $check_sound = GUICtrlCreateCheckbox ("Sounds", 30, 80, 100, 20)
            GUICtrlSetState(-1, $GUI_CHECKED)
        $check_relog = GUICtrlCreateCheckbox ("Relogger", 150, 60, 114, 20)
        $check_boni_kauf = GUICtrlCreateCheckbox ("auto. Boni-Nachkauf", 30, 110, 180, 20)

        $group_boni = GUICtrlCreateGroup("Boni-Nachkauf", 20, 150, 125, 120)
            GUICtrlSetState(-1, $GUI_HIDE)
        $input_boni_anzahl = GUICtrlCreateInput("42", 30, 220, 90, 20)
            GUICtrlSetState(-1, $GUI_HIDE)
        $label_boni = GUICtrlCreateLabel("Wie viele Boni sollen gekauft werden?", 30, 175, 110, 40)
            GUICtrlSetState(-1, $GUI_HIDE)

        $group_relog = GUICtrlCreateGroup("Relogger", 150, 150, 125, 120)
            GUICtrlSetState(-1, $GUI_HIDE)
        $input_relog_id = GUICtrlCreateInput("Benutzername", 160, 180, 100, 20)
            GUICtrlSetState(-1, $GUI_HIDE)
        $input_relog_pw = GUICtrlCreateInput("Passwort", 160, 210, 100, 20,$ES_PASSWORD)
            GUICtrlSetState(-1, $GUI_HIDE)
        $combo_relog_char = GUICtrlCreateCombo("Charnummer", 160, 240, 100, 20)
            GUICtrlSetData(-1,"1|2|3|4","Charnummer")
            GUICtrlSetState(-1, $GUI_HIDE)
        $label_relog = GUICtrlCreateLabel("Charnummer im Uhrzeigersinn (Rechtsklick)", 40, 280, 250, 20)
            GUICtrlSetState(-1, $GUI_HIDE)

GuiSetState(@Sw_Hide)

$gui3=GuiCreate("Hilfe",270,350,282,120)

GUICtrlCreateTab (10,10, 300,20)

GUICtrlCreateTabitem ( "Der Bot")
    GuiCtrlCreateLabel("Der Boni-Switcher",50,40,250,20)
    GuiCtrlCreateLabel("Metin im Fenster Modus",50,70,250,20)
    GuiCtrlCreateLabel("Gegenstand oben links ins Inventar!",50,90,250,20)
    GuiCtrlCreateLabel("Zweiten Slot im Inventar frei halten.",50,110,150,30)
    GuiCtrlCreateLabel("(bzw mit Boni-ƒndern f¸llen)",50,140,150,20)
    GuiCtrlCreateLabel("Inventar und H‰ndlerfenster NICHT!!! verschieben!",50,170,150,40)
        GUICtrlSetColor(-1,0xff0000)
    $label_link = GuiCtrlCreateLabel("Zum Thread",80,220,70,40)
        GUICtrlSetColor(-1,0x0000ff)
        GUICtrlSetCursor(-1, 3)
GuiSetState(@Sw_Hide)

$gui4=GUICreate("Boni-Switcher "&$version&" by CroSSie",320,240,615,340)

        GuiCtrlCreateLabel("Boniart",60, 25, 50, 20)
        GuiCtrlCreateLabel("minimale Bonihˆhe",170, 25, 150, 20)
        Dim $combo2_boni[5]
        $combo2_boni[0] = GuICtrlCreateCombo("", 60, 50, 95, 25)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $combo2_boni[1] = GuICtrlCreateCombo("", 60, 80, 95, 25)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $combo2_boni[2] = GuICtrlCreateCombo("", 60, 110, 95, 25)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $combo2_boni[3] = GuICtrlCreateCombo("", 60, 140, 95, 25)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $combo2_boni[4] = GuICtrlCreateCombo("", 60, 170, 95, 25)
            GUICtrlSetState(-1, $GUI_DISABLE)

        Dim $input2_boni_min[5]
        $input2_boni_min[0] = GUICtrlCreateInput("", 180, 50, 50, 21,$ES_NUMBER)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $input2_boni_min[1] = GUICtrlCreateInput("", 180, 80, 50, 21,$ES_NUMBER)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $input2_boni_min[2] = GUICtrlCreateInput("", 180, 110, 50, 21,$ES_NUMBER)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $input2_boni_min[3] = GUICtrlCreateInput("", 180, 140, 50, 21,$ES_NUMBER)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $input2_boni_min[4] = GUICtrlCreateInput("", 180, 170, 50, 21,$ES_NUMBER)
            GUICtrlSetState(-1, $GUI_DISABLE)

        Dim $check2_boni[5]
        $check2_boni[0] = GuICtrlCreateCheckbox("", 40, 50, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check2_boni[1] = GuICtrlCreateCheckbox("", 40, 80, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check2_boni[2] = GuICtrlCreateCheckbox("", 40, 110, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check2_boni[3] = GuICtrlCreateCheckbox("", 40, 140, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)
        $check2_boni[4] = GuICtrlCreateCheckbox("", 40, 170, 20, 20)
            GUICtrlSetState(-1, $GUI_DISABLE)

        $button_alternative=GUICtrlCreateButton("Best‰tigen",100,200,110,35)

GuiSetState(@Sw_Hide)
#EndRegion ###Start GUI ###

load()
data()

pause()


Func start()

    save()
    GuiSetState(@Sw_Hide, $gui4)

    $msg1 = MsgBox(1, "Fenstername", "Bitte Metin-Fenster aktivieren!! (3 Sek Zeit)")
    If $msg1 = 1 Then
        Sleep(3000)
        Global $fenstername = WinGetTitle("[active]")
        $msg2 = MsgBox(36, "Best‰tigung", "Fenstername: '"&$fenstername&"' korrekt?", 20)
        If $msg2 = 6 Then
            WinActivate ($fenstername)
            Global $winsize = WinGetClientSize($fenstername)
        Else
            pause()
        EndIf
    Else
        pause()
    EndIf

    WinWaitActive ($fenstername)
    Sleep (1000)

    Global $process = WinGetProcess($fenstername)
    Global $open = _memoryopen($process)
    Global $baseaddr = _MemoryGetBaseAddress($open, 1)
    Global $offset1 = "0x89"
    Global $offset2 = "0x95"
    Global $step = "3"

    Switch GuiCtrlRead ($combo_version)
        Case "Version 1"
            Global $static = Dec("001EF734")
        Case "Version 2"
            Global $static = Dec("001EF6F4")
        Case "Version 3"
            Global $static = Dec("00219978")
    EndSwitch

    Global $adresse = "0x" & Hex($baseaddr + $static)

    If GuiCtrlRead ($check_pk) = 1 Then Send ("{ENTER}/pk 771{ENTER}{ENTER}")
    If GuiCtrlRead ($check_time) = 4 Then $zeit = 9999999


    If GuiCtrlRead ($check_7boni) = 1 Then
        Global $boni_farb = 0x6E2600
        Global $offset1 = "0x98"
        Global $offset2 = "0x9B"
    EndIf

    $Timer = TimerInit()
    While TimerDiff($Timer) < $zeit*1000*60

        Sleep($speed*50)

        _boni(0)

        If PixelGetColor ( $boni_x+$entfernung+$winsize[0], $boni_y+$winsize[1]) <> $boni_farb Then
            $pixel_suche = PixelSearch(-167+$winsize[0], -357+$winsize[1], -10+$winsize[0], -73+$winsize[1], $boni_farb)
            If Not @error Then
                MouseClick ("left", $pixel_suche[0], $pixel_suche[1])
                MouseClick ("left", $boni_x+$entfernung+$winsize[0], $boni_y+$winsize[1])
                Sleep (1000)
            ElseIf @error Then
                MouseClick ("left", $inv2_x+$winsize[0], $inv2_y+$winsize[1])
                Sleep(1000)
                $pixel_suche = PixelSearch(-167+$winsize[0], -357+$winsize[1], -10+$winsize[0], -73+$winsize[1], $boni_farb)
                    If Not @error Then
                        MouseClick ("left", $pixel_suche[0], $pixel_suche[1])
                        MouseClick ("left", $inv1_x+$winsize[0], $inv1_y+$winsize[1])
                        MouseClick ("left", $boni_x+$entfernung+$winsize[0], $boni_y+$winsize[1])
                        Sleep (1000)
                    ElseIf @error Then
                        If GuiCtrlRead ($check_boni_kauf) = 1 Then
                            $boni_suche = PixelSearch(-384+$winsize[0], -550+$winsize[1], -229+$winsize[0], -303+$winsize[1], $boni_farb)
                            If @ERROR Then
                                If GuiCtrlRead ($check_relog) = 1 Then
                                    $inv_farb = PixelSearch(-123+$winsize[0], -591+$winsize[1], -65+$winsize[0], -580+$winsize[1], $relog_farb)
                                    If @error Then
                                        relog()
                                    Else
                                        failed()
                                    EndIf
                                Else
                                    failed()
                                EndIf
                            Else
                                MouseClick ("left", $inv1_x+$winsize[0], $inv1_y+$winsize[1])
                                MouseClick ("right", $boni_suche[0], $boni_suche[1], $bonikauf_anzahl)
                                Sleep(1000)
                            EndIf
                        Else
                            failed()
                        EndIf
                    EndIf
            EndIf
        EndIf

        MouseClick ("left", $boni_x+$entfernung+$winsize[0], $boni_y+$winsize[1], 1, 3)
        MouseClick ("left", $boni_x+$winsize[0], $boni_y+$winsize[1], 1, 3)
        MouseClick ("right", $inv1_x+$winsize[0], $inv1_y+$winsize[1], 1, 3)

    WEnd

    If GuiCtrlRead ($check_shutdown_time) = 1 Then
        Switch GuiCtrlRead ($combo_shutdown)
            Case "Herrunterfahren"
                For $i = 10 to 0 Step -1
                    ToolTip("Computer wird in "&$i&" Sekunden herruntergefahren (Abbruch F8)")
                    Sleep (1000)
                Next
                Shutdown (5)
            Case "Standby"
                For $i = 10 to 0 Step -1
                    ToolTip("Computer wird in "&$i&" Sekunden in Standby gesetzt (Abbruch F8)")
                    Sleep (1000)
                Next
                Shutdown (32)
            Case "Metin2 Beenden"
                For $i = 10 to 0 Step -1
                    ToolTip("Metin2 wird in "&$i&" Sekunden geschlossen (Abbruch F8)")
                    Sleep (1000)
                Next
                ProcessClose($process)
                ToolTip("")
        EndSwitch
    EndIf

    ende()

EndFunc

Func pause()

GuiSetState(@Sw_Show, $gui1)
WinActivate ("Boni-Switcher "&$version&" by CroSSie")

While 1
$msg=GuiGetMsg(1)

    Switch $msg[0]
        Case $button_start
            data()
            GuiSetState(@SW_MINIMIZE, $gui1)
            start()
        Case $button_pause
            pause()
        Case $button_ende
            ende()

        Case $item_allgemein
            If GUICtrlRead($check_time) = 1 Then
                GUICtrlSetState($input_time, $GUI_ENABLE)
                GUICtrlSetState($check_shutdown_time, $GUI_ENABLE)
            ElseIf GUICtrlRead($check_time) = 4 Then
                GUICtrlSetState($input_time, $GUI_DISABLE)
                GUICtrlSetState($check_shutdown_time, $GUI_DISABLE)
            EndIf
            If GUICtrlRead($check_boni_kauf) = 1 Then
                GUICtrlSetState($input_boni_anzahl, $GUI_SHOW)
                GUICtrlSetState($group_boni, $GUI_SHOW)
                GUICtrlSetState($label_boni, $GUI_SHOW)
            ElseIf GUICtrlRead($check_boni_kauf) = 4 Then
                GUICtrlSetState($input_boni_anzahl, $GUI_HIDE)
                GUICtrlSetState($group_boni, $GUI_HIDE)
                GUICtrlSetState($label_boni, $GUI_HIDE)
            EndIf
            GUICtrlSetData($label_speed, 'Speed:'&$speed*50)
            GuiSetState(@Sw_Show, $gui2)

        Case $item_help
            GuiSetState(@Sw_Show, $gui3)
        Case $item_save
            save()
        Case $item_exit
            Exit

        Case $slider_speed
            $speed = GuiCtrlRead ($slider_speed)
            GUICtrlSetData($label_speed, 'Speed:'&$speed*50)
        Case $check_time
            If GUICtrlRead($check_time) = 1 Then
                GUICtrlSetState($input_time, $GUI_ENABLE)
                GUICtrlSetState($check_shutdown_time, $GUI_ENABLE)
            ElseIf GUICtrlRead($check_time) = 4 Then
                GUICtrlSetState($input_time, $GUI_DISABLE)
                GUICtrlSetState($check_shutdown_time, $GUI_DISABLE)
            EndIf


        Case $radio_waffe
            GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_waffe) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Intelligenz|St‰rke|Beweglichkeit|Vitalit‰t||Kritischer Treffer|Durchbohrender Treffer||Ohnmacht|Gift|Verlangsamung||Zauberspeed||Durchschn. Schaden|Fertigkeitsschaden","Halbmenschen")
                    GUICtrlSetData($combo2_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Intelligenz|St‰rke|Beweglichkeit|Vitalit‰t||Kritischer Treffer|Durchbohrender Treffer||Ohnmacht|Gift|Verlangsamung||Zauberspeed||Durchschn. Schaden|Fertigkeitsschaden","Halbmenschen")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
            EndIf
        Case $radio_armband
            GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_armband) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||Max TP|Max MP||Durchbohrender Treffer||Doppel Gegenst‰nde|TP-Absorb|Manaraub","Halbmenschen")
                    GUICtrlSetData($combo2_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||Max TP|Max MP||Durchbohrender Treffer||Doppel Gegenst‰nde|TP-Absorb|Manaraub","Halbmenschen")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
            EndIf
        Case $radio_helm
            GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_helm) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||TP-Regeneration|MP-Regeneration||Gift|MP-Absorb.|Angriffsspeed|Pfeil ausweichen","Halbmenschen")
                    GUICtrlSetData($combo2_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||TP-Regeneration|MP-Regeneration||Gift|MP-Absorb.|Angriffsspeed|Pfeil ausweichen","Halbmenschen")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
            EndIf
        Case $radio_kette
             GuiCtrlSetState($label_immun, $GUI_HIDE)
                If GUICtrlRead($radio_kette) = 1 Then
                    For $i = 0 To 4
                        GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                        GUICtrlSetData($combo_boni[$i],"")
                        GUICtrlSetData($combo2_boni[$i],"")
                        GUICtrlSetData($combo_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Max TP|Max MP||Kritischer Treffer|Durchbohrender Treffer||TP-Regeneration|MP-Regeneration||EXP-Bonus|Doppel Yang||Ohnmacht|MP-Absorb|Manaraub","Max TP")
                        GUICtrlSetData($combo2_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Max TP|Max MP||Kritischer Treffer|Durchbohrender Treffer||TP-Regeneration|MP-Regeneration||EXP-Bonus|Doppel Yang||Ohnmacht|MP-Absorb|Manaraub","Max TP")
                    Next
                GUICtrlSetState($check_alternative, $GUI_ENABLE)
                GUICtrlSetState($check_7boni, $GUI_HIDE)
             EndIf
         Case $radio_ohrringe
         GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_ohrringe) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Bewegungsspeed|Giftwiderstand|Manaraub|Doppel Gegenstand","Halbmenschen")
                    GUICtrlSetData($combo2_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Bewegungsspeed|Giftwiderstand|Manaraub|Doppel Gegenstand","Halbmenschen")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
          EndIf
        Case $radio_ruessi
          GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_ruessi) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||Max TP|Max MP||TP-Absorb|Mp-Absorb||Reflektieren|Zauberspeed|Angriffswert","Max TP")
                    GUICtrlSetData($combo2_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand||Max TP|Max MP||TP-Absorb|Mp-Absorb||Reflektieren|Zauberspeed|Angriffswert","Max TP")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
          EndIf
        Case $radio_schild
          GuiCtrlSetState($label_immun, $GUI_SHOW)
            If GUICtrlRead($radio_schild) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Intelligenz|St‰rke|Beweglichkeit|Vitalit‰t||Immun gg Ohnmacht|Immun gg Verlangsamung||Abblocken|Reflektieren||EXP-Bonus|Doppel Yang","Immun gg Ohnmacht")
                    GUICtrlSetData($combo2_boni[$i],"Halbmenschen|Untote|Orks|Esoterische|Teufel|Tiere||Intelligenz|St‰rke|Beweglichkeit|Vitalit‰t||Immun gg Ohnmacht|Immun gg Verlangsamung||Abblocken|Reflektieren||EXP-Bonus|Doppel Yang","Immun gg Ohnmacht")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
           EndIf
        Case $radio_schuhe
           GuiCtrlSetState($label_immun, $GUI_HIDE)
            If GUICtrlRead($radio_schuhe) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Max TP|Max MP||Ohnmacht|Verlangsamung||EXP-Bonus|Doppel Yang||Kritischer Treffer|Pfeil ausweichen|Angriffsspeed","Max TP")
                    GUICtrlSetData($combo2_boni[$i],"Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Glockenverteidigung|F‰cherverteidigung|Pfeilwiderstand||Max TP|Max MP||Ohnmacht|Verlangsamung||EXP-Bonus|Doppel Yang||Kritischer Treffer|Pfeil ausweichen|Angriffsspeed","Max TP")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_HIDE)
            EndIf
        Case $radio_all
            GuiCtrlSetState($label_immun, $GUI_SHOW)
            If GUICtrlRead($radio_all) = 1 Then
                For $i = 0 To 4
                    GUICtrlSetState($check_boni[$i], $GUI_ENABLE)
                    GUICtrlSetData($combo_boni[$i],"")
                    GUICtrlSetData($combo2_boni[$i],"")
                    GUICtrlSetData($combo_boni[$i],"Max TP|Max MP||Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Pfeilwiderstand|Glockenverteidigung|F‰cherverteidigung|" & _
                                                    "|Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand|Giftwiderstand|" & _
                                                    "|Halbmenschen|Tiere|Orks|Esoterische|Untote|Teufel||Abblocken|Reflektieren|Fluch Reflektieren|Pfeil ausweichen|" & _
                                                    "|Vitalit‰t|Intelligenz|St‰rke|Beweglichkeit|" & _
                                                    "|TP-Regeneration|MP-Regeneration|TP-Absorb|MP-Absorb|TP-Wiederherstellen|MP-Wiederherstellen|Manaraub|MP-Zur¸ckerhalten|" & _
                                                    "|Immun gg Ohnmacht|Immun gg Verlangsamen|Immun gg St¸rzen|" & _
                                                    "|Angriffsspeed|Bewegungsspeed|Zauberspeed|" & _
                                                    "|Kritischer Treffer|Durchbohrender Treffer|" & _
                                                    "|Durchschn. Schaden|Fertigkeitsschaden|" & _
                                                    "|Gift|Ohnmacht|Verlangsamung|" & _
                                                    "|Widerstand gg Fertigkeiten|Durchschn. Schadenswiderstand|" & _
                                                    "|EXP-Bonus|Doppel Yang|Doppel Gegenst‰nde||Angriffswert|Bogenreichweite||Magischer Angriffswert|Magische Verteidigung||Ausdauer|Effekt Zuwachs||" & _
                                                    "Stark gg Krieger|Stark gg Sura|Stark gg Ninja|Stark gg Schami|Stark gg Monster||Abwehr gg Krieger|Abwehr gg Ninja|Abwehr gg Sura|Abwehr gg Schami", "Max TP")
                    GUICtrlSetData($combo2_boni[$i],"Max TP|Max MP||Schwertverteidigung|Zweihandverteidigung|Dolchverteidigung|Pfeilwiderstand|Glockenverteidigung|F‰cherverteidigung|" & _
                                                    "|Magiewiderstand|Blitzwiderstand|Windwiderstand|Feuerwiderstand|Giftwiderstand|" & _
                                                    "|Halbmenschen|Tiere|Orks|Esoterische|Untote|Teufel||Abblocken|Reflektieren|Fluch Reflektieren|Pfeil ausweichen|" & _
                                                    "|Vitalit‰t|Intelligenz|St‰rke|Beweglichkeit|" & _
                                                    "|TP-Regeneration|MP-Regeneration|TP-Absorb|MP-Absorb|TP-Wiederherstellen|MP-Wiederherstellen|Manaraub|MP-Zur¸ckerhalten|" & _
                                                    "|Immun gg Ohnmacht|Immun gg Verlangsamen|Immun gg St¸rzen|" & _
                                                    "|Angriffsspeed|Bewegungsspeed|Zauberspeed|" & _
                                                    "|Kritischer Treffer|Durchbohrender Treffer|" & _
                                                    "|Durchschn. Schaden|Fertigkeitsschaden|" & _
                                                    "|Gift|Ohnmacht|Verlangsamung|" & _
                                                    "|Widerstand gg Fertigkeiten|Durchschn. Schadenswiderstand|" & _
                                                    "|EXP-Bonus|Doppel Yang|Doppel Gegenst‰nde||Angriffswert|Bogenreichweite||Magischer Angriffswert|Magische Verteidigung||Ausdauer|Effekt Zuwachs" & _
                                                    "Stark gg Krieger|Stark gg Sura|Stark gg Ninja|Stark gg Schami|Stark gg Monster||Abwehr gg Krieger|Abwehr gg Ninja|Abwehr gg Sura|Abwehr gg Schami", "Max TP")
                Next
            GUICtrlSetState($check_alternative, $GUI_ENABLE)
            GUICtrlSetState($check_7boni, $GUI_SHOW)
            EndIf
        Case $check_boni[0]
            If GUICtrlRead($check_boni[0]) = 1 Then
                GUICtrlSetState($combo_boni[0], $GUI_ENABLE)
                GUICtrlSetState($input_boni_min[0], $GUI_ENABLE)
                GUICtrlSetState($check2_boni[0], $GUI_ENABLE)
            ElseIf GUICtrlRead($check_boni[0]) = 4 Then
                GUICtrlSetState($combo_boni[0], $GUI_DISABLE)
                GUICtrlSetState($input_boni_min[0], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[0], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[0], $GUI_UNCHECKED)
            EndIf
        Case $check_boni[1]
            If GUICtrlRead($check_boni[1]) = 1 Then
                GUICtrlSetState($combo_boni[1], $GUI_ENABLE)
                GUICtrlSetState($input_boni_min[1], $GUI_ENABLE)
                GUICtrlSetState($check2_boni[1], $GUI_ENABLE)
            ElseIf GUICtrlRead($check_boni[1]) = 4 Then
                GUICtrlSetState($combo_boni[1], $GUI_DISABLE)
                GUICtrlSetState($input_boni_min[1], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[1], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[1], $GUI_UNCHECKED)
            EndIf
        Case $check_boni[2]
            If GUICtrlRead($check_boni[2]) = 1 Then
                GUICtrlSetState($combo_boni[2], $GUI_ENABLE)
                GUICtrlSetState($input_boni_min[2], $GUI_ENABLE)
                GUICtrlSetState($check2_boni[2], $GUI_ENABLE)
            ElseIf GUICtrlRead($check_boni[2]) = 4 Then
                GUICtrlSetState($combo_boni[2], $GUI_DISABLE)
                GUICtrlSetState($input_boni_min[2], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[2], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[2], $GUI_UNCHECKED)
            EndIf
        Case $check_boni[3]
            If GUICtrlRead($check_boni[3]) = 1 Then
                GUICtrlSetState($combo_boni[3], $GUI_ENABLE)
                GUICtrlSetState($input_boni_min[3], $GUI_ENABLE)
                GUICtrlSetState($check2_boni[3], $GUI_ENABLE)
            ElseIf GUICtrlRead($check_boni[3]) = 4 Then
                GUICtrlSetState($combo_boni[3], $GUI_DISABLE)
                GUICtrlSetState($input_boni_min[3], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[3], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[3], $GUI_UNCHECKED)
            EndIf
        Case $check_boni[4]
            If GUICtrlRead($check_boni[4]) = 1 Then
                GUICtrlSetState($combo_boni[4], $GUI_ENABLE)
                GUICtrlSetState($input_boni_min[4], $GUI_ENABLE)
                GUICtrlSetState($check2_boni[4], $GUI_ENABLE)
            ElseIf GUICtrlRead($check_boni[4]) = 4 Then
                GUICtrlSetState($combo_boni[4], $GUI_DISABLE)
                GUICtrlSetState($input_boni_min[4], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[4], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[4], $GUI_UNCHECKED)
            EndIf

        Case $check2_boni[0]
            If GUICtrlRead($check2_boni[0]) = 1 Then
                GUICtrlSetState($combo2_boni[0], $GUI_ENABLE)
                GUICtrlSetState($input2_boni_min[0], $GUI_ENABLE)
            ElseIf GUICtrlRead($check2_boni[0]) = 4 Then
                GUICtrlSetState($combo2_boni[0], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[0], $GUI_DISABLE)
            EndIf
        Case $check2_boni[1]
            If GUICtrlRead($check2_boni[1]) = 1 Then
                GUICtrlSetState($combo2_boni[1], $GUI_ENABLE)
                GUICtrlSetState($input2_boni_min[1], $GUI_ENABLE)
            ElseIf GUICtrlRead($check2_boni[1]) = 4 Then
                GUICtrlSetState($combo2_boni[1], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[1], $GUI_DISABLE)
            EndIf
        Case $check2_boni[2]
            If GUICtrlRead($check2_boni[2]) = 1 Then
                GUICtrlSetState($combo2_boni[2], $GUI_ENABLE)
                GUICtrlSetState($input2_boni_min[2], $GUI_ENABLE)
            ElseIf GUICtrlRead($check2_boni[2]) = 4 Then
                GUICtrlSetState($combo2_boni[2], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[2], $GUI_DISABLE)
            EndIf
        Case $check2_boni[3]
            If GUICtrlRead($check2_boni[3]) = 1 Then
                GUICtrlSetState($combo2_boni[3], $GUI_ENABLE)
                GUICtrlSetState($input2_boni_min[3], $GUI_ENABLE)
            ElseIf GUICtrlRead($check2_boni[3]) = 4 Then
                GUICtrlSetState($combo2_boni[3], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[3], $GUI_DISABLE)
            EndIf
        Case $check2_boni[4]
            If GUICtrlRead($check2_boni[4]) = 1 Then
                GUICtrlSetState($combo2_boni[4], $GUI_ENABLE)
                GUICtrlSetState($input2_boni_min[4], $GUI_ENABLE)
            ElseIf GUICtrlRead($check2_boni[4]) = 4 Then
                GUICtrlSetState($combo2_boni[4], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[4], $GUI_DISABLE)
            EndIf

        Case $check_alternative
            If GUICtrlRead($check_alternative) = 1 Then
                GuiSetState(@Sw_Show, $gui4)
            ElseIf GUICtrlRead($check_alternative) = 4 Then
                For $i = 0 To 4
                GUICtrlSetState($combo2_boni[$i], $GUI_DISABLE)
                GUICtrlSetState($input2_boni_min[$i], $GUI_DISABLE)
                GUICtrlSetState($check2_boni[$i], $GUI_UNCHECKED)
                GuiSetState(@Sw_Hide, $gui4)
                Next
            EndIf

        Case $button_alternative
            GuiSetState(@Sw_Hide, $gui4)
            WinActivate ("Boni-Switcher "&$version&" by CroSSie")

        Case $check_boni_kauf
            If GUICtrlRead($check_boni_kauf) = 1 Then
                GUICtrlSetState($input_boni_anzahl, $GUI_SHOW)
                GUICtrlSetState($group_boni, $GUI_SHOW)
                GUICtrlSetState($label_boni, $GUI_SHOW)
            ElseIf GUICtrlRead($check_boni_kauf) = 4 Then
                GUICtrlSetState($input_boni_anzahl, $GUI_HIDE)
                GUICtrlSetState($group_boni, $GUI_HIDE)
                GUICtrlSetState($label_boni, $GUI_HIDE)
            EndIf
        Case $check_shutdown_win
            If GUICtrlRead($check_shutdown_win) = 1 Then
                GUICtrlSetState($combo_shutdown, $GUI_ENABLE)
            ElseIf GUICtrlRead($check_shutdown_win) = 4 Then
                If GUICtrlRead($check_shutdown_failed) = 1 Or GUICtrlRead($check_shutdown_time) = 1 Then
                Else
                    GUICtrlSetState($combo_shutdown, $GUI_DISABLE)
                EndIf
            EndIf
        Case $check_shutdown_failed
            If GUICtrlRead($check_shutdown_failed) = 1 Then
                GUICtrlSetState($combo_shutdown, $GUI_ENABLE)
            ElseIf GUICtrlRead($check_shutdown_failed) = 4 Then
                If GUICtrlRead($check_shutdown_win) = 1 Or GUICtrlRead($check_shutdown_time) = 1 Then
                Else
                    GUICtrlSetState($combo_shutdown, $GUI_DISABLE)
                EndIf
            EndIf
        Case $check_shutdown_time
            If GUICtrlRead($check_shutdown_time) = 1 Then
                GUICtrlSetState($combo_shutdown, $GUI_ENABLE)
            ElseIf GUICtrlRead($check_shutdown_time) = 4 Then
                If GUICtrlRead($check_shutdown_win) = 1 Or GUICtrlRead($check_shutdown_failed) = 1 Then
                Else
                    GUICtrlSetState($combo_shutdown, $GUI_DISABLE)
                EndIf
            EndIf
        Case $check_relog
            If GUICtrlRead($check_relog) = 1 Then
                GUICtrlSetState($input_relog_id, $GUI_SHOW)
                GUICtrlSetState($input_relog_pw, $GUI_SHOW)
                GUICtrlSetState($combo_relog_char, $GUI_SHOW)
                GUICtrlSetState($label_relog, $GUI_SHOW)
                GUICtrlSetState($group_relog, $GUI_SHOW)
            ElseIf GUICtrlRead($check_relog) = 4 Then
                GUICtrlSetState($input_relog_id, $GUI_HIDE)
                GUICtrlSetState($input_relog_pw, $GUI_HIDE)
                GUICtrlSetState($combo_relog_char, $GUI_HIDE)
                GUICtrlSetState($label_relog, $GUI_HIDE)
                GUICtrlSetState($group_relog, $GUI_HIDE)
            EndIf

        Case $GUI_EVENT_CLOSE
            Switch $msg[1]
                Case $gui1
                    save()
                    Exit
                Case $gui2
                    save()
                    GUISetState(@SW_HIDE,$gui2)
                    WinActivate ("Boni-Switcher "&$version&" by CroSSie")
                Case $gui3
                    GUISetState(@SW_HIDE,$gui3)
                    WinActivate ("Boni-Switcher "&$version&" by CroSSie")
                Case $gui4
                    GUISetState(@SW_HIDE,$gui4)
                    WinActivate ("Boni-Switcher "&$version&" by CroSSie")
            EndSwitch
    EndSwitch
WEnd

EndFunc

Func data()
    Global $zeit = GuiCtrlRead ($input_time)
    Global $speed = GuiCtrlRead ($slider_speed)
    Global $inv1_x = -125
    Global $inv1_y = -370
    Global $inv2_x = -50
    Global $inv2_y = -370
    Global $bonikauf_anzahl = GuiCtrlRead ($input_boni_anzahl)

    Global $boni_x = -151
    Global $boni_y = -339
    Global $entfernung = 32
    Global $boni_farb = 0x794190
    Global $relog_farb = 0xD9D9D9
EndFunc

Func save()
    data()

    IniWrite("data.ini","Zeit","Zeit" ,$zeit)
    IniWrite("data.ini","Speed","Speed",$speed)

    IniWrite("data.ini","Checkbox","Time",GuiCtrlRead ($check_time))
    IniWrite("data.ini","Checkbox","PK",GuiCtrlRead ($check_pk))
    IniWrite("data.ini","Checkbox","Sound",GuiCtrlRead ($check_sound))
    IniWrite("data.ini","Checkbox","Bonikauf",GuiCtrlRead ($check_boni_kauf))
    IniWrite("data.ini","Bonikauf", "Anzahl", $bonikauf_anzahl)
    IniWrite("data.ini","Versionen", "Version",GuiCtrlRead ($combo_version))
EndFunc

Func load()
    $readzeit = IniRead ("data.ini","Zeit","Zeit","60")
    $readspeed = IniRead ("data.ini","Speed","Speed","5")

    $readc_time = IniRead("data.ini","Checkbox","Time","1")
    $readc_pk = IniRead("data.ini","Checkbox","PK","1")
    $readc_sound = IniRead("data.ini","Checkbox","Sound","1")
    $readc_boni_kauf = IniRead("data.ini","Checkbox","Bonikauf","0")

    $readbonikauf_anzahl = IniRead("data.ini","Bonikauf", "Anzahl","42")

    $readcombo_version = IniRead("data.ini","Versionen", "Version","Version 1")

    GUICtrlSetData ($input_time, $readzeit, "")
    GUICtrlSetData ($slider_speed, $readspeed, "")
    GUICtrlSetData ($input_boni_anzahl, $readbonikauf_anzahl, "")
    GUICtrlSetData ($combo_version, $readcombo_version, "")

    If $readc_time = 1 Then
        GUICtrlSetState ($check_time, $GUI_CHECKED)
    Else
        GUICtrlSetState ($check_time, $GUI_UNCHECKED)
    EndIf

    If $readc_pk = 1 Then
        GUICtrlSetState ($check_pk, $GUI_CHECKED)
    Else
        GUICtrlSetState ($check_pk, $GUI_UNCHECKED)
    EndIf

    If $readc_sound = 1 Then
        GUICtrlSetState ($check_sound, $GUI_CHECKED)
    Else
        GUICtrlSetState ($check_sound, $GUI_UNCHECKED)
    EndIf

    If $readc_boni_kauf = 1 Then
        GUICtrlSetState ($check_boni_kauf, $GUI_CHECKED)
    Else
        GUICtrlSetState ($check_boni_kauf, $GUI_UNCHECKED)
    EndIf

EndFunc

Func _boni($i)
    For $offset_art = $offset1 To $offset2 Step $step
        Local $offset[2] = [0, $offset_art]
        $read_art = _MemoryPointerRead($adresse, $open, $offset, 'byte')
        If $read_art[1] = _boni_deff($combo_boni[$i]) Then
            Local $offset[2] = [0, $offset_art+1]
            $read_wert = _MemoryPointerRead($adresse, $open, $offset, 'short')
            If $read_wert[1] >= GuiCtrlRead($input_boni_min[$i]) Then
                If $i = 4 Then
                    win()
                Else
                    If GuiCtrlRead($check_boni[$i+1]) = 1 Then
                        _boni($i+1)
                    Else
                        win()
                    EndIf
                EndIf
            EndIf
        ElseIf GuiCtrlRead($check_alternative) = 1 Then
            If GuiCtrlRead($check2_boni[$i]) = 1 Then
                If $read_art[1] = _boni_deff($combo2_boni[$i]) Then
                    Local $offset[2] = [0, $offset_art+1]
                    $read_wert = _MemoryPointerRead($adresse, $open, $offset, 'short')
                    If $read_wert[1] >= GuiCtrlRead($input2_boni_min[$i]) Then
                        If $i = 4 Then
                            win()
                        Else
                            If GuiCtrlRead($check_boni[$i+1]) = 1 Then
                                _boni($i+1)
                            Else
                                win()
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
EndFunc

Func _boni_deff($combo)
    Switch GuiCtrlRead ($combo)
        Case "Max TP"
            Return 1
        Case "Max MP"
            Return 2
        Case "Vitalit‰t"
            Return 3
        Case "Intelligenz"
            Return 4
        Case "St‰rke"
            Return 5
        Case "Beweglichkeit"
            Return 6
        Case "Angriffsspeed"
            Return 7
        Case "Bewegungsspeed"
            Return 8
        Case "Zauberspeed"
            Return 9
        Case "TP-Regeneration"
            Return 10
        Case "MP-Regeneration"
            Return 11
        Case "Gift"
            Return 12
        Case "Ohnmacht"
            Return 13
        Case "Verlangsamung"
            Return 14
        Case "Kritischer Treffer"
            Return 15
        Case "Durchbohrender Treffer"
            Return 16
        Case "Halbmenschen"
            Return 17
        Case "Tiere"
            Return 18
        Case "Orks"
            Return 19
        Case "Esoterische"
            Return 20
        Case "Untote"
            Return 21
        Case "Teufel"
            Return 22
        Case "TP-Absorb"
            Return 23
        Case "MP-Absorb"
            Return 24
        Case "Manaraub"
            Return 25
        Case "MP-Zur¸ckerhalten";//////// Nicht oben dabei /////////
            Return 26
        Case "Abblocken"
            Return 27
        Case "Pfeil ausweichen"
            Return 28
        Case "Schwertverteidigung"
            Return 29
        Case "Zweihandverteidigung"
            Return 30
        Case "Dolchverteidigung"
            Return 31
        Case "Glockenverteidigung"
            Return 32
        Case "F‰cherverteidigung"
            Return 33
        Case "Pfeilwiderstand"
            Return 34
        Case "Feuerwiderstand"
            Return 35
        Case "Blitzwiderstand"
            Return 36
        Case "Magiewiderstand"
            Return 37
        Case "Windwiderstand"
            Return 38
        Case "Reflektieren"
            Return 39
        Case "Fluch Reflektieren" ;//////// Nicht oben dabei /////////
            Return 40
        Case "Giftwiderstand"
            Return 41
        Case "MP-Wiederherstellen" ;//////// Nicht oben dabei /////////
            Return 42
        Case "EXP-Bonus"
            Return 43
        Case "Doppel Yang"
            Return 44
        Case "Doppel Gegenst‰nde"
            Return 45
        Case "Effekt Zuwachs";//////// Nicht oben dabei /////////
            Return 46
        Case "TP-Wiederherstellen"
            Return 47
        Case "Immun gg Ohnmacht"
            Return 48
        Case "Immun gg Verlangsamen"
            Return 49
        Case "Immun gg St¸rzen";//////// Nicht oben dabei /////////
            Return 50
        Case "Bogenreichweite";//////// Nicht oben dabei /////////
            Return 52
        Case "Angriffswert"
            Return 53
        Case "Verteidigung";//////// Nicht oben dabei /////////
            Return 54
        Case "Magischer Angriffswert";//////// Nicht oben dabei /////////
            Return 55
        Case "Magische Verteidigung";//////// Nicht oben dabei /////////
            Return 56
        Case "Ausdauer"
            Return 58
        Case "Stark gg Krieger";//////// Nicht oben dabei /////////
            Return 59
        Case "Stark gg Ninja";//////// Nicht oben dabei /////////
            Return 60
        Case "Stark gg Sura";//////// Nicht oben dabei /////////
            Return 61
        Case "Stark gg Schami";//////// Nicht oben dabei /////////
            Return 62
        Case "Stark gg Monster";//////// Nicht oben dabei /////////
            Return 63
        Case "Angriffswert";//////// Nicht oben dabei /////////
            Return 64
        Case "Verteidigung";//////// Nicht oben dabei /////////
            Return 65
        Case "EXP";//////// Nicht oben dabei /////////
            Return 66
        Case "Droppchance Gegenst‰nde";//////// Nicht oben dabei /////////
            Return 67
        Case "Dropchance Gold";//////// Nicht oben dabei /////////
            Return 68
        Case "Fertigkeitsschaden"
            Return 71
        Case "Durchschn. Schaden"
            Return 72
        Case "Widerstand gg Fertigkeiten";//////// Nicht oben dabei /////////
            Return 73
        Case "Durchschn. Schadenswiderstand";//////// Nicht oben dabei /////////
            Return 74
        Case "iCafe exp-bonus";//////// Nicht oben dabei /////////
            Return 76
        Case "iCafe Droppchance Gegenst‰nde";//////// Nicht oben dabei /////////
            Return 77
        Case "Abwehr gg Krieger";//////// Nicht oben dabei /////////
            Return 78
        Case "Abwehr gg Ninja";//////// Nicht oben dabei /////////
            Return 79
        Case "Abwehr gg Sura";//////// Nicht oben dabei /////////
            Return 80
        Case "Abwehr gg Schami";//////// Nicht oben dabei /////////
            Return 81
    EndSwitch
EndFunc

Func relog()
    $id = GuiCtrlRead($input_relog_id)
    $pw = GuiCtrlRead($input_relog_pw)
    $char = GuiCtrlRead($combo_relog_char)
    $relog = False

    $winpos = WinGetPos($fenstername)
    ToolTip("RELOG PROZESS"&@CRLF&"IN GANG", $winpos[0], $winpos[1])

    Sleep(5000)

    Send("{Enter down}")
    Sleep(300)
    Send("{Enter up}")
    Sleep(200)

    Sleep (1000)
    Send($id)
    Sleep (100)

    Send("{Tab down}")
    Sleep(300)
    Send("{Tab up}")

    Sleep (500)
    Send($pw)
    Sleep(1000)

    Send("{Enter down}")
    Sleep(300)
    Send("{Enter up}")
    Sleep(200)

    Dim $pixel_relog[2]
    $pixel_relog[0] = PixelGetColor(-270+$winsize[0], -370+$winsize[1])

    Send("{Enter down}")
    Sleep(300)
    Send("{Enter up}")
    Sleep(200)

    Send("{Enter down}")
    Sleep(300)
    Send("{Enter up}")
    Sleep(200)

    Send("{Enter down}")
    Sleep(300)
    Send("{Enter up}")
    Sleep(200)

    Do
        Sleep(20000)
        $pixel_relog[1] = PixelGetColor(-270+$winsize[0], -370+$winsize[1])

        If $pixel_relog[0]<>$pixel_relog[1] Then
            $relog = True
            Switch $char
                Case "1"
                    Send("{Enter down}")
                    Sleep(300)
                    Send("{Enter up}")
                Case "2"
                    Send("{right down}")
                    Sleep(300)
                    Send("{right up}")
                    Sleep(300)
                    Send("{Enter down}")
                    Sleep(300)
                    Send("{Enter up}")
                Case "3"
                    Send("{right down}")
                    Sleep(300)
                    Send("{right up}")
                    Sleep(300)
                    Send("{right down}")
                    Sleep(300)
                    Send("{right up}")
                    Sleep(300)
                    Send("{Enter down}")
                    Sleep(300)
                    Send("{Enter up}")
                Case "4"
                    Send("{left down}")
                    Sleep(300)
                    Send("{left up}")
                    Sleep(300)
                    Send("{Enter down}")
                    Sleep(300)
                    Send("{Enter up}")
            EndSwitch
        Else
            Send("{Enter down}")
            Sleep(300)
            Send("{Enter up}")
            Sleep(200)

            Send("{Enter down}")
            Sleep(300)
            Send("{Enter up}")
            Sleep(200)
        EndIf
    Until $relog = True

    Sleep(60000)

    Send("{i down}")
    Sleep(300)
    Send("{i up}")
    Sleep(1000)
    MouseClick ("left", $inv1_x+$winsize[0], $inv1_y+$winsize[1])
    Sleep(500)
    ToolTip("")

EndFunc

Func win()

    If GuiCtrlRead ($check_sound) = 1 Then
        _SoundPlay ( "win.wav", 0)
    EndIf



    If GuiCtrlRead ($check_shutdown_win) = 1 Then
        msgBox (0, "Geschaft", "Gl¸ckwunsch du hast deine gew¸nschten Bonis", 60)
        Switch GuiCtrlRead ($combo_shutdown)
            Case "Herrunterfahren"
                For $i = 10 to 0 Step -1
                    ToolTip("Computer wird in "&$i&" Sekunden herruntergefahren (Abbruch F8)")
                    Sleep (1000)
                Next
                Shutdown (5)
            Case "Standby"
                For $i = 10 to 0 Step -1
                    ToolTip("Computer wird in "&$i&" Sekunden in Standby gesetzt (Abbruch F8)")
                    Sleep (1000)
                Next
                Shutdown (32)
            Case "Metin2 Beenden"
                For $i = 10 to 0 Step -1
                    ToolTip("Metin2 wird in "&$i&" Sekunden geschlossen (Abbruch F8)")
                    Sleep (1000)
                Next
                ProcessClose($process)
                ToolTip("")
        EndSwitch
    Else
        msgBox (0, "Geschaft", "Gl¸ckwunsch du hast deine gew¸nschten Bonis")
    EndIf

    pause()
EndFunc

Func failed()

    If GuiCtrlRead ($check_sound) = 1 Then
        _SoundPlay ( "lose.wav", 0)
    EndIf

    If GuiCtrlRead ($check_shutdown_failed) = 1 Then
        msgBox (16, "Failed", "Schade, die Bonis wollen noch nicht so =(", 60)
        If _internetcheck() = 1 Then
            Switch GuiCtrlRead ($combo_shutdown)
                Case "Herrunterfahren"
                    For $i = 10 to 0 Step -1
                        ToolTip("Computer wird in "&$i&" Sekunden herruntergefahren (Abbruch F8)")
                        Sleep (1000)
                    Next
                    Shutdown (5)
                Case "Standby"
                    For $i = 10 to 0 Step -1
                        ToolTip("Computer wird in "&$i&" Sekunden in Standby gesetzt (Abbruch F8)")
                        Sleep (1000)
                    Next
                    Shutdown (32)
                Case "Metin2 Beenden"
                    For $i = 10 to 0 Step -1
                        ToolTip("Metin2 wird in "&$i&" Sekunden geschlossen (Abbruch F8)")
                        Sleep (1000)
                    Next
                    ProcessClose($process)
                    ToolTip("")
            EndSwitch
        Else
            MsgBox(16,"ERROR", "Es ist keine Internetverbindung vorhanden"&@CRLF&"Beenden sie jetzt den Bot ist Ihr Account verbuggt.")
            pause()
        EndIf
    Else
        msgBox (16, "Failed", "Schade, die Bonis wollen noch nicht so =(")
    EndIf

    pause()

EndFunc

Func ende()
    Tooltip ("Verˆffentlichen ist UNTERSAGT!!!", 535, 455)
    msgBox (0, "THANKS", "Boni-Switcher powered by CroSSie")
    Sleep (1000)
    Exit
EndFunc

Func notaus()

    Exit

EndFunc 


[XxBestxX]

wo bekomm ich die own.au3 her finde nix bei google ?

[TrickGamer]

also ich hätte es dir schon gegöhnt
aber wegen diese scheiß autoit decompiler scripts klauen tzzz....
ich benutze auch den decompiler aber nur gg abzocker(habe schon so 11 email acc´s bekommen xD) ich benutze die nicht um scripts zu klauen naja das ist hier eig egal hier gehts um was anderes...
du hättest sein script verschlüsseln sollen mit z.B ein Obfuscator oder so^^
"Mitleids THX"

[Padmak]

Wahaha da hat jemand eingesehen, dass die Konkurrenz zu stark ist
Ne Spaß, ich finds gut
Auch wenn man mit AutoIt einfach keine guten Bots schreiben kann
Hau rein mein Schnuckii

Padmak

[Der-Eddy]

konntest du das nicht in dein anderes Thema mit rein editieren?

[CroSSiie]

nope =)
mein anderes thema is weiß gott wo und eh geschlossen...
also mach ich lieber ein neues anstatt euch zu fragen könnt ihr das iweder ausgraben und öffnen...klingt einleuchtend oder?

[Jamesboon]

was bringt das ??? für ganz doofe und wie macht mans rein

[Gano]

Originally Posted by XxBestxX

wo bekomm ich die own.au3 her finde nix bei google ?

Find ich auch nicht , genauso wenig wie den Pointer

[CroSSiie]

woher wusste ich nur das es nicht lang dauern kann bis wieder irgendwelche vollidioten zu doof sind?

wer nur minima was von autoit versteht weiß das zu umgehen...volldeppen

[Computerfreek]

^- word

Man sollte nicht tun von dem man eh nichts versteht.
Wenn ihr nicht wisst, was ihr damit anfangen sollt oder wie ihr es ans Laufen bekommt, dann lasst es sein denn es ist eh nichts für euch.

[Padmak]

Ihr beide seid die einzig intelligenten Leute (außer den Mods :P) hier auf Epvp
Ihr habt verdammt recht

Ich hab auch aufgehört, jedem Idioten zu helfen, weil man einfach entweder lesen muss, oder man kanns einfach nicht.

Wer nen AutoIt-Code bekommt, muss auch wissen was man damit macht

Padmak

[hyperstar]

Hey ich bins wieder

naja wollt ma fragen ob dieser Switcher nun auf 2010client geht? :P

[Padmak]

... Ist das dein Ernst??????
Ähm...
Muss ich das beantworten? xDD

Go hierdrauf:

Padmak

[°°xXLORDXx°°]

ich glaube man muss einfach nur autoit loaden neues dokument machen code kopieren einfügen abspeichern und fertig )

[Computerfreek]

Originally Posted by °°xXLORDXx°°

ich glaube man muss einfach nur autoit loaden neues dokument machen code kopieren einfügen abspeichern und fertig )

Genau solche total verkorksten Aussagen die komplett falsch sind müssen eigentlich nicht sein.
Würde das Ding so laufen wie es da steht dann wären hier nicht so viele Beschwerden.