![[Release] BoniSwitcher by CroSSie - Source](https://www.elitepvpers.com/forum/iconimages/metin2-hacks-bots-cheats-exploits-macros/release-boniswitcher-crossie-source_ltr.gif){kind=small}
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:
- Das Script habe ICH geschrieben, also gebt es nicht als euer aus!
- 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
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
)
