Die Version 3.7 meines Angelbots war die Final-Version von mir.
Ab jetzt werde ich, leider, wegen Zeitmangel nicht mehr an diesem Angelbot weiter arbeiten.
Hiermit veröffentliche ich den Source-Code von dem Angelbot mit dem neuen Skin, um euch allen eine Möglichkeit zu bieten, ihn privat weiterzuentwickeln!:
$PauseAnfang = 0
$stepps = 0
$Zahl = 0
$Zander3 = 0
$Mandarinfisch3 = 0
$Karpfen3 = 0
$Lachs3 = 0
$Bachforelle3 = 0
$Graskarpfen3 = 0
$Lotusfisch3 = 0
$GrosserZander3 = 0
$Katzenfisch3 = 0
$Rotfeder3 = 0
$Barsch3 = 0
$Regenbogenforelle3 = 0
$Technie3 = 0
$Ayu3 = 0
$Flussforelle3 = 0
$Goldfisch3 = 0
$Schmerk3 = 0
$Shiri3 = 0
$Spiegel3 = 0
$Stint3 = 0
$Aal3 = 0
$Relog3 = 0
$Nachgefuellt3 = 0
$PNs3 = 0
$IniRead231 = IniRead("Saves.data","Einstellungen","Input17","An gelbot by AllesVergeben")
$Fenstername = $IniRead231
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\x\Desktop\Form2.kxf
$Form2 = GUICreate($Fenstername, 413, 298, 305, 210)
GUISetIcon("D:\005.ico")
$ImageList1 = _GUIImageList_Create(16, 16, 5)
GUICtrlSetColor(-1, 0xFF0000)
$PageControl1 = GUICtrlCreateTab(0, 0, 412, 296)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Hauptmenü")
GUICtrlSetState(-1,$GUI_SHOW)
$Label2 = GUICtrlCreateLabel(" Willkommen beim Angelbot von AllesVergeben!", 20, 25, 350, 35)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
$Verzogerung = GUIctrlcreatelabel ("Verzögerung nach dem Rausziehn:", 20, 100, 210, 50)
GUictrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlcreatelabel ("--------------------------------------------------------------------------------------------------------------------------", 20, 48, 370, 18)
$Verzogerungbox = Guictrlcreateinput ("0", 270, 99, 121, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$LabelF1F3 = GUICtrlCreateLabel("Köder 1-F3 (nur ohne Köderfüller)", 20, 65, 250, 40)
GUictrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$checkboxF1F3 = Guictrlcreatecheckbox ("An/Aus", 270, 65, 65, 20)
GUIctrlsetbkcolor (-1, 0xCCE5FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 119, 335, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 85, 335, 18)
$Button5 = GUICtrlCreateButton("Start", 20, 165, 375, 33, $WS_GROUP)
GUictrlsetbkcolor (-1, 0x00FFFF)
GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS")
$Labe416 = GUICtrlCreateLabel("PC Ausschalten nach:", 20, 240, 150, 50)
GUictrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
$checkbox415 = GUICtrlCreateCheckbox ("1h", 180, 210, 50, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$checkbox412 = GUICtrlCreateCheckbox ("2h", 180, 230, 50, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$checkbox413 = GUICtrlCreateCheckbox ("4h", 180, 250, 50, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$checkbox414 = GUICtrlCreateCheckbox ("6h", 180, 270, 50, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$checkbox321 = GUICtrlCreateCheckbox ("Wenn keine Köder mehr", 240, 240, 150, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUIctrlsetbkcolor (-1, 0xCCE5FF)
GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
$label321 = Guictrlcreatelabel ("(nur mit Köderfüller)", 255, 257, 150, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("2500", 270, 132, 121, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("Verzögerung nach der Blase (1000=1s):", 20, 135, 250, 20)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
;;;;;;+
;;;;;;;
;;;;;;
$TabSheet2 = GUICtrlCreateTabItem("Optionen")
$LabelAufstehn = Guictrlcreatelabel("Bei Tod aufstehn", 40, 32, 132, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$CheckAufstehn = GUICtrlCreateCheckbox ("Ein/Aus", 280, 32, 97, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 48, 335, 18)
$Label4 = GUICtrlCreateLabel("Fische Öffnen", 40, 64, 132, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 81, 335, 18)
$Label5 = GUICtrlCreateLabel("Autoflüstern", 40, 128, 132, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 113, 335, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 145, 335, 18)
$Input2 = GUICtrlCreateInput("", 48, 168, 65, 22, 0x21)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3366FF)
$Input3 = GUICtrlCreateInput("", 48, 200, 65, 22, 0x21)
GUIctrlsetcolor (-1, 0x3366FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Input5 = GUICtrlCreateInput ("", 48, 232, 65,22)
GUIctrlsetcolor (-1, 0x3366FF)
GUICtrlSetFont(-1, 10, 400, 0, "MonotypeCorsiva")
$Label924 = Guictrlcreatelabel ("Channel", 10, 236, 65, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Input4 = GUICtrlCreateInput ("", 48, 264, 65, 22)
GUIctrlsetcolor (-1, 0x3366FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label923 = Guictrlcreatelabel ("Server", 10, 270, 65, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Input6 = GUICtrlCreateInput ("", 125, 264, 65, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3366FF)
$Label925 = Guictrlcreatelabel ("Character (Nach Rechts):", 125, 230, 100, 100)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label6 = GUICtrlCreateLabel("Account ID:", 8, 168, 36, 18)
GUICtrlSetFont(-1, 5, 400, 0, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("Account PW:", 8, 200, 36, 18)
GUICtrlSetFont(-1, 5, 400, 0, "Comic Sans MS")
$Checkbox1 = GUICtrlCreateCheckbox("Ein/Aus", 280, 64, 97, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Checkbox2 = GUICtrlCreateCheckbox("Ein/Aus", 280, 128, 97, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Checkbox5 = GUICtrlCreateCheckbox("Ein/Aus", 280, 220, 97, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$checkbox64 = GUICtrlCreateCheckbox("M nach relog", 280, 250, 97, 17)
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label8 = GUICtrlCreateLabel("Auto Relogger", 165, 192, 116, 18)
GUIctrlsetcolor (-1, 0x3333FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label9 = GUICtrlCreateLabel("Kleine Fische", 40, 96, 132, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox4 = GUICtrlCreateCheckbox("Benutzen/Werfen", 280, 96, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
;;;;;;;+
;;;;;;;
;;;;;;;;
$TabSheet3 = GUICtrlCreateTabItem("Erweiterte Optionen") ;;;;;;;;;;
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 53, 315, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 85, 315, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 40, 115, 315, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 141, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 161, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 181, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 201, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 221, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 241, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 261, 100, 18)
$LabelFenstername = Guictrlcreatelabel("Fenster:", 40, 36, 132, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$InputFenster = GUICtrlCreateInput ("METIN2", 150, 30, 100, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$ButtonLesen = GUIctrlcreatebutton ("Fenster lesen", 260, 30, 100, 25)
$Label123 = GUICtrlCreateLabel("Köderfüller ein/aus", 40, 64, 132, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$label12344 = Guictrlcreatelabel ("(nur ohne Köder 1-F3)", 40, 77, 132, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0xFF0000)
$Checkbox99 = GUICtrlCreateCheckbox("Wurm", 280, 64, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Checkbox214 = GUICtrlCreateCheckbox("Paste", 190, 64, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label5 = GUICtrlCreateLabel("Muschelöffner", 40, 96, 132, 18) ;;;
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox1234 = GUICtrlCreateCheckbox("Ein/Aus", 280, 96, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label44 = GUICtrlCreateLabel("Itemwerfer:", 40, 128, 100, 18) ;;;
GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3300FF)
$Label45 = GUICtrlCreateLabel("Haarfarben/Bleichmittel (Alle):", 40, 150, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox45 = GUICtrlCreateCheckbox("Ein/Aus", 280, 150, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label46 = GUICtrlCreateLabel("Flüchtlingsumhang", 40, 170, 132, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox46 = GUICtrlCreateCheckbox("Ein/Aus", 280, 170, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label47 = GUICtrlCreateLabel("Goldring", 40, 190, 132, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox47 = GUICtrlCreateCheckbox("Ein/Aus", 280, 190, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label48 = GUICtrlCreateLabel("Handschuh des weißen Kaiser", 40, 210, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox48 = GUICtrlCreateCheckbox("Ein/Aus", 280, 210, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label49 = GUICtrlCreateLabel("Lucys Ring", 40, 230, 132, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox49 = GUICtrlCreateCheckbox("Ein/Aus", 280, 230, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
$Label50 = GUICtrlCreateLabel("Symbol des weißen Kaiser", 40, 250, 160, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox50 = GUICtrlCreateCheckbox("Ein/Aus", 280, 250, 75, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetbkcolor (-1, 0xCCE5FF)
;;;;;;;;;;;
;;;;;;;;;;;
;;;;;;;;
$TabSheet5 = GUICtrlCreateTabItem("Antwortbot")
$Input124 = GUICtrlCreateInput("", 40, 64, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
Guictrlcreatelabel ("Antwort Nr.1", 280, 67, 200, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 83, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 120, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 157, 100, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 200, 193, 100, 18)
$Input125 = GUICtrlCreateInput("", 40, 100, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
Guictrlcreatelabel ("Antwort Nr.2", 280, 102, 200, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
$Input126 = GUICtrlCreateInput("", 40, 136, 200, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
Guictrlcreatelabel ("Antwort Nr.3", 280, 138, 200, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
$Input127 = GUICtrlCreateInput("", 40, 172, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
Guictrlcreatelabel ("Antwort Nr.4", 280, 174, 200, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
$Input128 = GUICtrlCreateInput("", 40, 208, 200, 18)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
Guictrlcreatelabel ("Antwort Nr.5", 280, 210, 200, 18)
GUIctrlsetcolor (-1, 0x8F00FF)
$Checkbox124 = GUICtrlCreateCheckbox("Diese Privaten Nachrichten AN/Aus", 40, 250, 240, 18)
GUIctrlsetbkcolor (-1, 0xCCE5FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS");;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;
;;;;;;;;;;
$TabSheet6 = GUICtrlCreateTabItem ("Zähler")
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
;;;;
$Zander1 = Guictrlcreatelabel ("Zander:", 40, 48, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Zander2 = Guictrlcreatelabel (Guictrlread($Zander3) , 175, 48, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 59, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 79, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 99, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 119, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 139, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 159, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 179, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 199, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 219, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 239, 325, 18)
GUIctrlcreatelabel ("-----------------------------------------------------------------------------------------------------------------------", 37, 259, 325, 18)
$Mandarinfisch1 = Guictrlcreatelabel ("Mandarinfisch:", 40, 68, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$mandarinfisch2 = Guictrlcreatelabel (Guictrlread($Mandarinfisch3) , 175, 68, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Karpfen1 = Guictrlcreatelabel ("Karpfen:", 40, 88, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$karpfen2 = Guictrlcreatelabel (Guictrlread($Karpfen3) , 175, 88, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Lachs1 = Guictrlcreatelabel ("Lachs:", 40, 108, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Lachs2 = Guictrlcreatelabel (Guictrlread($Lachs3) , 175, 108, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Bachforelle1 = Guictrlcreatelabel ("Bachforelle:", 40, 128, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$bachforelle2 = Guictrlcreatelabel (Guictrlread($bachforelle3) , 175, 128, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Graskarpfen1 = Guictrlcreatelabel ("Graskarpfen:", 40, 148, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Graskarpfen2 = Guictrlcreatelabel (Guictrlread($Graskarpfen3) , 175, 148, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Lotusfisch1 = Guictrlcreatelabel ("Lotusfisch:", 40, 168, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Lotusfisch2 = Guictrlcreatelabel (Guictrlread($Lotusfisch3), 175, 168, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$GrosserZander1 = Guictrlcreatelabel ("Großer Zander:", 40, 188, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$GrosserZander2 = Guictrlcreatelabel (Guictrlread($GrosserZander3), 175, 188, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Katzenfisch1 = Guictrlcreatelabel ("Katzenfisch:", 40, 208, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Katzenfisch2 = Guictrlcreatelabel (Guictrlread($Katzenfisch3), 175, 208, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Rotfeder1 = Guictrlcreatelabel ("Rotfeder:", 40, 228, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Rotfeder2 = Guictrlcreatelabel (Guictrlread($Rotfeder3), 175, 228, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Barsch1 = Guictrlcreatelabel ("Barsch:", 40, 248, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Barsch2 = Guictrlcreatelabel (Guictrlread($barsch3), 175, 248, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Regenbogenforelle = Guictrlcreatelabel ("Regenbogenforelle:", 40, 268, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Regenbogenforelle2 = Guictrlcreatelabel (Guictrlread($Regenbogenforelle3), 175, 268, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Technie1 = Guictrlcreatelabel ("Tenchie:", 225, 48, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Technie2 = Guictrlcreatelabel (Guictrlread($Technie3), 350, 48, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Ayu1 = Guictrlcreatelabel ("Ayu:", 225, 68, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Ayu2 = Guictrlcreatelabel (Guictrlread($Ayu3), 350, 68, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Flussforelle1 = Guictrlcreatelabel ("Flussforelle:", 225, 88, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Flussforelle2 = Guictrlcreatelabel (Guictrlread($Flussforelle3), 350, 88, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Goldfisch1 = Guictrlcreatelabel ("Goldfisch:", 225, 108, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Goldfisch2 = Guictrlcreatelabel (Guictrlread($Goldfisch3), 350, 108, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Schmerk1 = Guictrlcreatelabel ("Schmerle:", 225, 128, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Schmerk2 = Guictrlcreatelabel (Guictrlread($Schmerk3), 350, 128, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Shiri1 = Guictrlcreatelabel ("Shiri:", 225, 148, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Shiri2 = Guictrlcreatelabel (Guictrlread($Shiri3), 350, 148, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Spiegel1 = Guictrlcreatelabel ("Spiegelkarpfen:", 225, 168, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Spiegel2 = Guictrlcreatelabel (Guictrlread($Spiegel3), 350, 169, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Stint1 = Guictrlcreatelabel ("Stint:", 225, 188, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Stint2 = Guictrlcreatelabel (Guictrlread($Stint3), 350, 188, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Aal1 = Guictrlcreatelabel ("Aal:", 225, 208, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Aal2 = Guictrlcreatelabel (Guictrlread($Aal3), 350, 208, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Relog1 = Guictrlcreatelabel ("Relogs:", 225, 228, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Relog2 = Guictrlcreatelabel (Guictrlread($Relog3), 350, 228, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$Nachgefuellt1 = Guictrlcreatelabel ("Nachgefüllt:", 225, 248, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$nachgefuellt2 = Guictrlcreatelabel (Guictrlread($Nachgefuellt3), 350, 248, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
$PNs1 = Guictrlcreatelabel ("Antworten:", 225, 268, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$Pns2 = Guictrlcreatelabel (Guictrlread($PNs3), 350, 268, 316, 50)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
;;;;;
;;;;
;;;;;
$TabSheet7 = GUICtrlCreateTabItem("Hilfe/Tasten");;;;;;;;;;
$ButtonElite = GUIctrlcreatebutton ("elitepvpers.com", 100, 140, 102, 25)
guictrlsetbkcolor (-1, 0x00FFFF)
$ButtonThread = GUIctrlcreatebutton ("Thread: Angelbot", 222, 140, 102, 25)
guictrlsetbkcolor (-1, 0x00FFFF)
$Fenstername = GUictrlcreateinput ("Dein Fenstername", 250, 255, 102, 23)
$ButtonSpeichern = Guictrlcreatebutton ("Speichern", 50, 250, 75, 35)
$ButtonName = Guictrlcreatebutton ("Fenstername", 150, 250, 75, 35)
$LabelAus = GUICtrlCreateLabel ("Script schließen:", 40, 175, 150, 150)
GUIctrlsetcolor (-1, 0x8F00FF)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$InputAus = Guictrlcreateinput ("{F7}", 150, 175, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$LabelPause = GUICtrlCreateLabel ("Script pausieren:", 40, 200, 150, 150)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$InputPause = Guictrlcreateinput ("{F5}", 150, 200, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$LabelWeiter = GUICtrlCreateLabel ("Script weiter.:", 40, 225, 150, 150)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x8F00FF)
$InputWeiter = Guictrlcreateinput ("{F6}", 150, 225, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$ButtonInitial = Guictrlcreatebutton ("Hotkeys An", 250, 195, 100, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Startet Metin2 im Fenstermodus, 800x600, 16bpp. Platziert Köder auf F3 und Angelfertigkeit auf F4. Stellt eure Einstellungen ein drückt auf start und geht ins Metin2 fenster.----Für Updates und Bugfixes/reports, geht auf elitepvpers.com und schaut in den Thread von AllesVergeben.", 32, 40, 370, 226)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUIctrlsetcolor (-1, 0x3333FF)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$IniRead = IniRead("Saves.data","Einstellungen","Input1","250 0")
GUICtrlSetData($Input1,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input2","")
GUICtrlSetData($Input2,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input3","")
GUICtrlSetData($Input3,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input4","")
GUICtrlSetData($Input4,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input5","")
GUICtrlSetData($Input5,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input6","")
GUICtrlSetData($Input6,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input7","")
GUICtrlSetData($Input124,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input8","")
GUICtrlSetData($Input125,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input9","")
GUICtrlSetData($Input126,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input10","")
GUICtrlSetData($Input127,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input11","")
GUICtrlSetData($Input128,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input12","{F 7}")
GUICtrlSetData($InputAus,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input13","{F 5}")
GUICtrlSetData($InputPause,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input14","{F 6}")
GUICtrlSetData($InputWeiter,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input15","0" )
GUICtrlSetData($Verzogerungbox,$IniRead)
$IniRead = IniRead("Saves.data","Einstellungen","Input16","ME TIN2")
GUICtrlSetData($InputFenster,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox1"," An/Aus")
;GUICtrlSetData($CheckboxF1F3,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox2"," ")
;GUICtrlSetData($Checkbox415,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox3"," ")
;GUICtrlSetData($Checkbox412,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox4"," ")
;GUICtrlSetData($Checkbox415,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox5"," ")
;GUICtrlSetData($Checkbox413,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox6"," ")
;GUICtrlSetData($Checkbox414,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox7"," ")
;GUICtrlSetData($Checkbox321,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox8"," ")
;GUICtrlSetData($Checkbox1,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox9"," ")
;GUICtrlSetData($Checkbox2,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox10", "")
;GUICtrlSetData($Checkbox5,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox11", "")
;GUICtrlSetData($Checkbox64,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox12", "")
;GUICtrlSetData($Checkbox99,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox13", "")
;GUICtrlSetData($Checkbox214,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox14", "")
;GUICtrlSetData($Checkbox1234,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox15", "")
;GUICtrlSetData($Checkbox45,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox16", "")
;GUICtrlSetData($Checkbox46,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox17", "")
;GUICtrlSetData($Checkbox47,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox18", "")
;GUICtrlSetData($Checkbox48,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox19", "")
;GUICtrlSetData($Checkbox49,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox20", "")
;GUICtrlSetData($Checkbox50,$IniRead)
;$IniRead = IniRead("Saves.data","Einstellungen","Checkbox21", "")
;GUICtrlSetData($Checkbox124,$IniRead)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
;
;
; Hier fängt Angeln an
;;;;;INI
;;;;;INI
If $nMsg = $ButtonName Then
IniWrite("Saves.data","Einstellungen","Input17",GU ICtrlRead($Fenstername))
;$Form3 = GUIcreate("Fenstername ändern", 413, 298, 200, 200)
;GUISetState(@SW_SHOW)
;While 1
;$nMsg = GUIGetMsg()
;Switch $nMsg
;Case $GUI_EVENT_CLOSE
;Exit
;EndSwitch
;WENd
msgbox (0, "Fenstername geändert", "Dein Fenstername wurde erfolgreich geändert. Starte den Bot neu, damit die Änderung sichtbar wird.")
Endif
If $nMsg = $ButtonSpeichern Then
IniWrite("Saves.data","Einstellungen","Input1",GUI CtrlRead($Input1))
IniWrite("Saves.data","Einstellungen","Input2",GUI CtrlRead($Input2))
IniWrite("Saves.data","Einstellungen","Input3",GUI CtrlRead($Input3))
IniWrite("Saves.data","Einstellungen","Input4",GUI CtrlRead($Input4))
IniWrite("Saves.data","Einstellungen","Input5",GUI CtrlRead($Input5))
IniWrite("Saves.data","Einstellungen","Input6",GUI CtrlRead($Input6))
IniWrite("Saves.data","Einstellungen","Input7",GUI CtrlRead($Input124))
IniWrite("Saves.data","Einstellungen","Input8",GUI CtrlRead($Input125))
IniWrite("Saves.data","Einstellungen","Input9",GUI CtrlRead($Input126))
IniWrite("Saves.data","Einstellungen","Input10",GU ICtrlRead($Input127))
IniWrite("Saves.data","Einstellungen","Input11",GU ICtrlRead($Input128))
IniWrite("Saves.data","Einstellungen","Input12",GU ICtrlRead($InputAus))
IniWrite("Saves.data","Einstellungen","Input13",GU ICtrlRead($InputPause))
IniWrite("Saves.data","Einstellungen","Input14",GU ICtrlRead($InputWeiter))
IniWrite("Saves.data","Einstellungen","Input15",GU ICtrlRead($Verzogerungbox))
IniWrite("Saves.data","Einstellungen","Input16",GU ICtrlRead($InputFenster))
;IniWrite("Saves.data","Einstellungen","Checkbox1" ,_getCheckboxState($CheckboxF1F3))
;IniWrite("Saves.data","Einstellungen","Checkbox2" ,_getCheckboxState($Checkbox415))
;IniWrite("Saves.data","Einstellungen","Checkbox3" ,_getCheckboxState($Checkbox412))
;IniWrite("Saves.data","Einstellungen","Checkbox4" ,_getCheckboxState($Checkbox415))
;IniWrite("Saves.data","Einstellungen","Checkbox5" ,_getCheckboxState($Checkbox413))
;IniWrite("Saves.data","Einstellungen","Checkbox6" ,_getCheckboxState($Checkbox414))
;IniWrite("Saves.data","Einstellungen","Checkbox7" ,_getCheckboxState($Checkbox321))
;IniWrite("Saves.data","Einstellungen","Checkbox8" ,_getCheckboxState($Checkbox1))
;IniWrite("Saves.data","Einstellungen","Checkbox9" ,_getCheckboxState($Checkbox2))
;IniWrite("Saves.data","Einstellungen","Checkbox10 ",_getCheckboxState($Checkbox5))
;IniWrite("Saves.data","Einstellungen","Checkbox11 ",_getCheckboxState($Checkbox64))
;IniWrite("Saves.data","Einstellungen","Checkbox12 ",_getCheckboxState($Checkbox99))
;IniWrite("Saves.data","Einstellungen","Checkbox13 ",_getCheckboxState($Checkbox214))
;IniWrite("Saves.data","Einstellungen","Checkbox14 ",_getCheckboxState($Checkbox1234))
;IniWrite("Saves.data","Einstellungen","Checkbox15 ",_getCheckboxState($Checkbox45))
;IniWrite("Saves.data","Einstellungen","Checkbox16 ",_getCheckboxState($Checkbox46))
;IniWrite("Saves.data","Einstellungen","Checkbox17 ",_getCheckboxState($Checkbox47))
;IniWrite("Saves.data","Einstellungen","Checkbox18 ",_getCheckboxState($Checkbox48))
;IniWrite("Saves.data","Einstellungen","Checkbox19 ",_getCheckboxState($Checkbox49))
;IniWrite("Saves.data","Einstellungen","Checkbox20 ",_getCheckboxState($Checkbox50))
;IniWrite("Saves.data","Einstellungen","Checkbox21 ",_getCheckboxState($Checkbox124))
EndIf
If $nMsg = $ButtonElite Then
Run ("explorer.exe http://www.elitepvpers.com/")
EndIf
If $nMsg = $ButtonThread Then
Run ("explorer.exe http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/269817-bot-angelbot-mir-relogger-fisch-ffner-uvm.html")
EndIf
If $nMsg = $ButtonLesen Then
Msgbox(0,"Achtung","Öffne bitte wenn du den Ok Button gedrückt hast in den nächsten 5 Sekunden das Fenster, wovon der Name ausgelesen werden soll.")
sleep(5000)
$InputFenster1 = WinGetTitle("","")
GUICtrlSetData($InputFenster,$InputFenster1)
MsgBox(0,"Finish","Fenstername wurde erfolgreich gelesen")
Endif
If $nMsg = $ButtonInitial Then
HotKeySet(GUICtrlRead($inputAus), "_EndeBot")
HotKeySet(GUICtrlRead($inputPause), "_PauseBot")
HotKeySet(GUICtrlRead($inputWeiter), "_AnfangBot")
EndIf
If $nMsg = $Button5 Then
While 1
winWaitActive (GUIctrlread($InputFenster))
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
If $PauseAnfang = 0 then
$Checkf1f3 = Guictrlread ($checkboxF1F3)
If $Checkf1f3 = 1 Then
If $stepps = 8 Then
$stepps = 0
EndIf
$stepps += 1
Endif
$check415 = Guictrlread ( $checkbox415)
If $check415 = 1 Then
$timer2 = TimerInit ()
If TimerDiff ($timer2) > 3600000 then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
EndIf
$check412 = Guictrlread ( $checkbox412)
If $check412 = 1 Then
$timer2 = TimerInit ()
If TimerDiff ($timer2) > 7200000 then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
EndIf
$check413 = Guictrlread ( $checkbox413)
If $check413 = 1 Then
$timer2 = TimerInit ()
If TimerDiff ($timer2) > 14400000 then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
EndIf
$check414 = Guictrlread ( $checkbox414)
If $check414 = 1 Then
$timer2 = TimerInit ()
If TimerDiff ($timer2) > 21600000 then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
EndIf
$check7 = GuiCtrlRead($Checkbox5)
If $check7 = 1 then
$Login = Pixelgetcolor (522, 517)
If $Login = 0xC7C7C7 Then
If ( GUICtrlRead ( $input4 ) ) = 1 Then
MouseMove (269, 274)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 2 Then
MouseMove (264, 225)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 3 Then
MouseMove (271, 242)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 4 Then
MouseMove (276, 256)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 5 Then
MouseMove (268, 275)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 6 Then
MouseMove (264, 292)
MouseClick ("left")
Elseif ( GUICtrlRead ( $input4 ) ) = 7 Then
MouseMove (266, 307)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 8 Then
MouseMove (264, 327)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 9 Then
MouseMove (264, 344)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 10 Then
MouseMove (255, 357)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 11 Then
MouseMove (264, 378)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 12 Then
MouseMove (264, 396)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 13 Then
MouseMove (264, 411)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 14 Then
MouseMove (264, 427)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 15 Then
MouseMove (264, 448)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 16 Then
MouseMove (264, 461)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 17 Then
MouseMove (264, 479)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 18 Then
MouseMove (264, 499)
MouseClick ("left")
EndiF
If ( GUICtrlRead ( $input5 ) ) = 1 Then
MouseMove (510, 205)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 2 Then
MouseMove (510, 225)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 3 Then
MouseMove (510, 240)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 4 Then
MouseMove (507, 259)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 5 Then
MouseMove (505, 277)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 6 Then
MouseMove (504, 290)
MouseClick ("left")
EndIf
MouseMove (530, 519)
MouseClick ("left")
Send ( GUICtrlRead ( $input2 ) )
Send ("{Enter}")
Send ( GUICtrlRead ( $input3 ) )
Send ("{Enter}")
MouseMove (596, 550)
Do
Sleep (100)
$Pixel=Pixelgetcolor (56, 174)
Until $Pixel = 0x422A2A
Sleep (2000)
If (GUICtrlRead($input6)) = 1 Then
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 2 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 3 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 4 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
EndIF
Do
$Starts = Pixelgetcolor (650, 620)
Until $Starts = 0x0E0D0C
Sleep (5000)
Send ("{R down}")
Sleep (2000)
Send ("{R up}")
Send ("{G down}")
Sleep (2000)
Send ("{G up}")
Send ("{I down}")
Sleep (2000)
Send ("{I up}")
Send ("^{q}")
$check64 = guictrlread($checkbox64)
If $check64 = 1 Then
Send ("{M down}")
Sleep (100)
Send ("{M up}")
ENDif
$Relog3 += 1
GUICtrlSetData($relog2, $relog3)
EndIf
EndIf
$checkaufstehn = Guictrlread($CheckAufstehn)
If $checkaufstehn = 1 Then
Sleep (100)
$Aufsteher = Pixelsearch(138, 106, 152, 116, 0x605d52)
If not @error then
mousemove ($Aufsteher[0], $Aufsteher[1])
mouseclick ("left")
Sleep (15000)
Send ("{R down}")
Sleep (2000)
Send ("{R up}")
Send ("{G down}")
Sleep (2000)
Send ("{G up}")
EndIf
EndIf
MouseMove (675, 262)
MouseClick ("left")
Global $check3 = GUICtrlRead($Checkbox2)
If $check3 = 1 then
$Nachricht = PixelSearch (736, 210, 764, 229, 0xFFFBFF)
If @error then
sleep (500)
$Nachricht = PixelSearch (736, 210, 764, 229, 0xFFFBFF)
EndIf
If not @error then
$PNs3 += 1
GUictrlsetdata ($pns2, $pns3)
MouseMove (746, 219)
MouseClick ("left")
$check124 = Guictrlread ($checkbox124)
If $check124 = 1 Then
$Zahl += 1
If $Zahl = 1 then
send (Guictrlread ($input124))
Send ("{Enter}")
Elseif $Zahl = 2 then
send (Guictrlread ($input125))
Send ("{Enter}")
elseif $Zahl = 3 then
send (Guictrlread ($input126))
Send ("{Enter}")
elseif $Zahl = 4 then
send (Guictrlread ($input127))
Send ("{Enter}")
elseif $Zahl = 5 then
send (Guictrlread ($input128))
Send ("{Enter}")
$Zahl = 0
EndIf
Sleep (500)
$Esc = PixelSearch (258, 41, 394, 178, 0xFFFBFF)
If not @error Then
MouseMove ($Esc [0], $Esc [1])
MouseClick ("left")
EndIf
EndIf
If $check124 = 4 Then
send ("gehwegwegweg")
Send ("{Enter}")
$Esc = PixelSearch (258, 41, 394, 178, 0xFFFBFF)
If not @error Then
MouseMove ($Esc [0], $Esc [1])
MouseClick ("left")
EndIf
EndIf
Endif
EndIf
$check = GUICtrlRead($Checkbox1)
if $check = 1 Then
;
;
; HIER FÄNGT FISCHSUCHE An
$Zander = Pixelsearch (635, 275, 795, 560, 0xD9D398)
If not @error then
MouseMove ($Zander [0], $Zander [1])
MouseClick ("right")
$Zander3 += 1
GUICtrlSetData($Zander2, $Zander3)
Endif
$Mandarinfisch = Pixelsearch (635, 275, 795, 560, 0x856433)
If not @error Then
MouseMove ($Mandarinfisch [0], $Mandarinfisch [1])
MouseClick ("right")
$Mandarinfisch3 += 1
GUICtrlSetData($mandarinfisch2, $mandarinfisch3)
EndIf
$Karpfen = Pixelsearch (635, 275, 795, 560, 0x824445)
If not @error then
MouseMove ($Karpfen [0], $Karpfen [1])
MouseClick ("right")
$Karpfen3 += 1
GUICtrlSetData($Karpfen2, $Karpfen3)
Endif
$Lachs = Pixelsearch (635, 275, 795, 560, 0xA5B6A0)
If not @error then
MouseMove ($Lachs [0], $Lachs [1])
MouseClick ("right")
$Lachs3 += 1
GUICtrlSetData($Lachs2, $Lachs3)
Endif
$Bachforelle = Pixelsearch (635, 275, 795, 560, 0x50574C)
If not @error then
MouseMove ($Bachforelle [0], $bachforelle [1])
MouseClick ("right")
$Bachforelle3 += 1
GUICtrlSetData($Bachforelle2, $Bachforelle3)
Endif
$Graskarpfen = Pixelsearch (635, 275, 795, 560, 0x817548)
If not @error then
MouseMove ($Graskarpfen [0], $Graskarpfen [1])
MouseClick ("right")
$Graskarpfen3 += 1
GUICtrlSetData($Graskarpfen2, $Graskarpfen3)
Endif
$Lotusfisch = Pixelsearch (635, 275, 795, 560, 0xF1FFFF)
If not @error then
MouseMove ($Lotusfisch [0], $Lotusfisch [1])
MouseClick ("right")
$Lotusfisch3 += 1
GUICtrlSetData($Lotusfisch2, $Lotusfisch3)
Endif
$Grosserzander = Pixelsearch (635, 275, 795, 560, 0xFFFFEA)
If not @error then
MouseMove ($Grosserzander [0], $Grosserzander [1])
MouseClick ("right")
$Grosserzander3 += 1
GUICtrlSetData($Grosserzander2, $Grosserzander3)
Endif
$katzenfisch = Pixelsearch (635, 275, 795, 560, 0x7B7389)
If not @error then
MouseMove ($katzenfisch [0], $katzenfisch [1])
MouseClick ("right")
$katzenfisch3 += 1
GUICtrlSetData($katzenfisch2, $katzenfisch3)
Endif
$Rotfeder = Pixelsearch (635, 275, 795, 560, 0xDDAB71)
If not @error then
MouseMove ($Rotfeder [0], $Rotfeder [1])
MouseClick ("right")
$Rotfeder += 1
GUICtrlSetData($Rotfeder2, $Rotfeder3)
Endif
$Barsch = Pixelsearch (635, 275, 795, 560, 0x303435)
If not @error then
MouseMove ($Barsch [0], $Barsch [1])
MouseClick ("right")
$Barsch3 += 1
GUICtrlSetData($Barsch2, $Barsch3)
Endif
$Regenbogenforelle = Pixelsearch (635, 275, 795, 560, 0xFACEDB)
If not @error then
MouseMove ($Regenbogenforelle [0], $Regenbogenforelle [1])
MouseClick ("right")
$Regenbogenforelle3 += 1
GUICtrlSetData($Regenbogenforelle2, $Regenbogenforelle3)
Endif
$Technie = Pixelsearch (635, 275, 795, 560, 0xC4BA62)
If not @error then
MouseMove ($Technie [0], $Technie [1])
MouseClick ("right")
$Technie3 += 1
GUICtrlSetData($Technie2, $Technie3)
Endif
$Ayu = Pixelsearch (635, 275, 795, 560, 0xBFC4BD)
If not @error then
MouseMove ($Ayu [0], $Ayu [1])
MouseClick ("right")
$Ayu3 += 1
GUICtrlSetData($Ayu2, $Ayu3)
Endif
$Flussforelle = Pixelsearch (635, 275, 795, 560, 0xE6EAF3)
If not @error then
MouseMove ($Flussforelle [0], $Flussforelle [1])
MouseClick ("right")
$Flussforelle3 += 1
GUICtrlSetData($Flussforelle2, $Flussforelle3)
Endif
$Goldfisch = Pixelsearch (635, 275, 795, 560, 0xFDE79B)
If not @error then
MouseMove ($Goldfisch [0], $Goldfisch [1])
MouseClick ("right")
$Goldfisch3 += 1
GUICtrlSetData($Goldfisch2, $Goldfisch3)
Endif
$Schmerk = Pixelsearch (635, 275, 795, 560, 0x4D4E46)
If not @error then
MouseMove ($Schmerk [0], $Schmerk [1])
MouseClick ("right")
$Schmerk3 += 1
GUICtrlSetData($Schmerk2, $Schmerk3)
Endif
$Shiri = Pixelsearch (635, 275, 795, 560, 0xF4E1C0)
If not @error then
MouseMove ($Shiri [0], $Shiri [1])
MouseClick ("right")
$Shiri3 += 1
GUICtrlSetData($Shiri2, $Shiri3)
Endif
$Spiegel = Pixelsearch (635, 275, 795, 560, 0xAD8770)
If not @error then
MouseMove ($Spiegel [0], $Spiegel [1])
MouseClick ("right")
$Spiegel3 += 1
GUICtrlSetData($Spiegel2, $Spiegel3)
Endif
$Stint = Pixelsearch (635, 275, 795, 560, 0xE0D4C4)
If not @error then
MouseMove ($Stint [0], $Stint [1])
MouseClick ("right")
$Stint3 += 1
GUICtrlSetData($Stint2, $Stint3)
Endif
$Aal = Pixelsearch (635, 275, 795, 560, 0x8D7B71)
If not @error then
MouseMove ($Aal [0], $Aal [1])
MouseClick ("right")
$Aal3 += 1
GUICtrlSetData($Aal2, $Aal3)
Endif
EndIf
;Muschelöffner
$Check1234 = GuiCtrlRead($Checkbox1234)
If $check1234 = 1 then
$Muschel = Pixelsearch (635, 275, 795, 560, 0xFFEEE8)
If not @error then
mousemove ($Muschel [0], $Muschel [1])
mouseclick ("right")
EndIf
EndIf
;Muschelöffner
; füller
$check99 = GuiCtrlRead($Checkbox99)
If $check99 = 1 Then
$Wurm = PixelGetColor (542, 613)
If $Wurm = 0x000400 then
$Koeder1 = Pixelsearch (635, 275, 795, 560, 0x140D0F )
If not @error then
mousemove ($Koeder1[0], $Koeder1[1])
Mouseclick ("left")
Mousemove (538, 609)
Mouseclick ("left")
$Nachgefuellt3 += 1
GUICtrlSetData($Nachgefuellt2, $Nachgefuellt3)
Sleep (1000)
$Checkf1f3 = Guictrlread ($CheckboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $checkf1f3 = 4 then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
EndIf
EndIf
EndIf
$check214 = GuiCtrlRead($Checkbox214)
If $check214 = 1 Then
$Paste = PixelGetColor (542, 613)
If $Paste = 0x000400 then
$Paste1 = Pixelsearch (635, 275, 795, 560, 0x9F8567 )
If not @error then
mousemove ($Paste1[0], $Paste1[1])
Mouseclick ("left")
Mousemove (538, 609)
Mouseclick ("left")
$Nachgefuellt3 += 1
GUICtrlSetData($Nachgefuellt2, $Nachgefuellt3)
Sleep (1000)
$Checkf1f3 = Guictrlread ($CheckboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $Checkf1f3 = 4 then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
EndIf
EndIf
EndIf
;Füller
;Itemwerfer:
$check45 = GuiCtrlRead($Checkbox45)
If $check45 = 1 Then
$Bunt = Pixelsearch (635, 275, 795, 560, 0x4E4D4C)
If not @error then
MouseMove ($Bunt [0], $Bunt [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
$Bleichmittel = Pixelsearch (635, 275, 795, 560, 0xA9A69A)
If not @error then
MouseMove ($Bleichmittel [0], $Bleichmittel [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
EndIf
$check46 = GUICtrlRead($Checkbox46)
If $check46 = 1 then
$Fluchtlingsumhang = Pixelsearch (635, 275, 795, 560, 0x151524)
If not @error then
MouseMove ($Fluchtlingsumhang [0], $Fluchtlingsumhang [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check47 = GUICtrlRead($Checkbox47)
If $check47 = 1 then
$Goldring = Pixelsearch (635, 275, 795, 560, 0x745F40)
If not @error then
MouseMove ($Goldring [0], $Goldring [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check48 = GUICtrlRead($Checkbox48)
If $check48 = 1 then
$Handschuh = Pixelsearch (635, 275, 795, 560, 0x2D2B0A)
If not @error then
MouseMove ($Handschuh [0], $Handschuh [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check49 = GUICtrlRead($Checkbox49)
If $check49 = 1 then
$Lucys = Pixelsearch (635, 275, 795, 560, 0xB0993E)
If not @error then
MouseMove ($Lucys [0], $Lucys [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check50 = GUICtrlRead($Checkbox50)
If $check50 = 1 then
$Symbol = Pixelsearch (635, 275, 795, 560, 0xE7E794)
If not @error then
MouseMove ($Symbol [0], $Symbol [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
;;;itemwerfer
$check1 = GUICtrlRead($Checkbox4)
if $check1 = 1 Then
$Kleinerfisch = Pixelsearch (635, 275, 795, 560, 0x625F45)
If not @error then
MouseMove ($Kleinerfisch [0], $Kleinerfisch [1])
MouseClick ("right")
$stepps -= 1
Else
MouseMove (755, 261)
mouseClick ("left")
Sleep (150)
$Kleinerfisch = Pixelsearch (635, 275, 795, 560, 0x625F45)
If not @error then
MouseMove ($Kleinerfisch [0], $Kleinerfisch [1])
MouseClick ("right")
$stepps -= 1
Else
Sleep (100)
$Checkf1f3 = Guictrlread ($checkboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $checkf1f3 = 4 then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
EndIf
EndIf
MouseMove (755, 261)
MouseClick ("left")
EndIf
If $check1 = 4 Then
$Kleinerfisch = Pixelsearch (635, 275, 795, 560, 0x625F45)
If not @error then
MouseMove ($Kleinerfisch [0], $Kleinerfisch [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
Else
MouseMove (755, 261)
mouseClick ("left")
$Kleinerfisch = Pixelsearch (635, 275, 795, 560, 0x625F45)
If not @error then
MouseMove ($Kleinerfisch [0], $Kleinerfisch [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
EndIf
$Checkf1f3 = Guictrlread ($checkboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $checkf1f3 = 4 then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
MouseMove (755, 261)
MouseClick ("left")
EndIf
$check2 = GUICtrlRead($Checkbox1)
if $check2 = 1 Then
; Hier fängt die Fischsuche an
$Zander = Pixelsearch (635, 275, 795, 560, 0xD9D398)
If not @error then
MouseMove ($Zander [0], $Zander [1])
MouseClick ("right")
$Zander3 += 1
GUICtrlSetData($Zander2, $Zander3)
Endif
$Mandarinfisch = Pixelsearch (635, 275, 795, 560, 0x856433)
If not @error Then
MouseMove ($Mandarinfisch [0], $Mandarinfisch [1])
MouseClick ("right")
$Mandarinfisch3 += 1
GUICtrlSetData($mandarinfisch2, $mandarinfisch3)
EndIf
$Karpfen = Pixelsearch (635, 275, 795, 560, 0x824445)
If not @error then
MouseMove ($Karpfen [0], $Karpfen [1])
MouseClick ("right")
$Karpfen3 += 1
GUICtrlSetData($Karpfen2, $Karpfen3)
Endif
$Lachs = Pixelsearch (635, 275, 795, 560, 0xA5B6A0)
If not @error then
MouseMove ($Lachs [0], $Lachs [1])
MouseClick ("right")
$Lachs3 += 1
GUICtrlSetData($Lachs2, $Lachs3)
Endif
$Bachforelle = Pixelsearch (635, 275, 795, 560, 0x50574C)
If not @error then
MouseMove ($Bachforelle [0], $bachforelle [1])
MouseClick ("right")
$Bachforelle3 += 1
GUICtrlSetData($Bachforelle2, $Bachforelle3)
Endif
$Graskarpfen = Pixelsearch (635, 275, 795, 560, 0x817548)
If not @error then
MouseMove ($Graskarpfen [0], $Graskarpfen [1])
MouseClick ("right")
$Graskarpfen3 += 1
GUICtrlSetData($Graskarpfen2, $Graskarpfen3)
Endif
$Lotusfisch = Pixelsearch (635, 275, 795, 560, 0xF1FFFF)
If not @error then
MouseMove ($Lotusfisch [0], $Lotusfisch [1])
MouseClick ("right")
$Lotusfisch3 += 1
GUICtrlSetData($Lotusfisch2, $Lotusfisch3)
Endif
$Grosserzander = Pixelsearch (635, 275, 795, 560, 0xFFFFEA)
If not @error then
MouseMove ($Grosserzander [0], $Grosserzander [1])
MouseClick ("right")
$Grosserzander3 += 1
GUICtrlSetData($Grosserzander2, $Grosserzander3)
Endif
$katzenfisch = Pixelsearch (635, 275, 795, 560, 0x7B7389)
If not @error then
MouseMove ($katzenfisch [0], $katzenfisch [1])
MouseClick ("right")
$katzenfisch3 += 1
GUICtrlSetData($katzenfisch2, $katzenfisch3)
Endif
$Rotfeder = Pixelsearch (635, 275, 795, 560, 0xDDAB71)
If not @error then
MouseMove ($Rotfeder [0], $Rotfeder [1])
MouseClick ("right")
$Rotfeder += 1
GUICtrlSetData($Rotfeder2, $Rotfeder3)
Endif
$Barsch = Pixelsearch (635, 275, 795, 560, 0x303435)
If not @error then
MouseMove ($Barsch [0], $Barsch [1])
MouseClick ("right")
$Barsch3 += 1
GUICtrlSetData($Barsch2, $Barsch3)
Endif
$Regenbogenforelle = Pixelsearch (635, 275, 795, 560, 0xFACEDB)
If not @error then
MouseMove ($Regenbogenforelle [0], $Regenbogenforelle [1])
MouseClick ("right")
$Regenbogenforelle3 += 1
GUICtrlSetData($Regenbogenforelle2, $Regenbogenforelle3)
Endif
$Technie = Pixelsearch (635, 275, 795, 560, 0xC4BA62)
If not @error then
MouseMove ($Technie [0], $Technie [1])
MouseClick ("right")
$Technie3 += 1
GUICtrlSetData($Technie2, $Technie3)
Endif
$Ayu = Pixelsearch (635, 275, 795, 560, 0xBFC4BD)
If not @error then
MouseMove ($Ayu [0], $Ayu [1])
MouseClick ("right")
$Ayu3 += 1
GUICtrlSetData($Ayu2, $Ayu3)
Endif
$Flussforelle = Pixelsearch (635, 275, 795, 560, 0xE6EAF3)
If not @error then
MouseMove ($Flussforelle [0], $Flussforelle [1])
MouseClick ("right")
$Flussforelle3 += 1
GUICtrlSetData($Flussforelle2, $Flussforelle3)
Endif
$Goldfisch = Pixelsearch (635, 275, 795, 560, 0xFDE79B)
If not @error then
MouseMove ($Goldfisch [0], $Goldfisch [1])
MouseClick ("right")
$Goldfisch3 += 1
GUICtrlSetData($Goldfisch2, $Goldfisch3)
Endif
$Schmerk = Pixelsearch (635, 275, 795, 560, 0x4D4E46)
If not @error then
MouseMove ($Schmerk [0], $Schmerk [1])
MouseClick ("right")
$Schmerk3 += 1
GUICtrlSetData($Schmerk2, $Schmerk3)
Endif
$Shiri = Pixelsearch (635, 275, 795, 560, 0xF4E1C0)
If not @error then
MouseMove ($Shiri [0], $Shiri [1])
MouseClick ("right")
$Shiri3 += 1
GUICtrlSetData($Shiri2, $Shiri3)
Endif
$Spiegel = Pixelsearch (635, 275, 795, 560, 0xAD8770)
If not @error then
MouseMove ($Spiegel [0], $Spiegel [1])
MouseClick ("right")
$Spiegel3 += 1
GUICtrlSetData($Spiegel2, $Spiegel3)
Endif
$Stint = Pixelsearch (635, 275, 795, 560, 0xE0D4C4)
If not @error then
MouseMove ($Stint [0], $Stint [1])
MouseClick ("right")
$Stint3 += 1
GUICtrlSetData($Stint2, $Stint3)
Endif
$Aal = Pixelsearch (635, 275, 795, 560, 0x8D7B71)
If not @error then
MouseMove ($Aal [0], $Aal [1])
MouseClick ("right")
$Aal3 += 1
GUICtrlSetData($Aal2, $Aal3)
Endif
EndIf
;Muschelöffner
$Check1234 = GuiCtrlRead($Checkbox1234)
If $check1234 = 1 then
$Muschel = Pixelsearch (635, 275, 795, 560, 0xFFEEE8)
If not @error then
mousemove ($Muschel [0], $Muschel [1])
mouseclick ("right")
EndIf
EndIf
;füller
$check99 = GuiCtrlRead($Checkbox99)
If $check99 = 1 Then
$Wurmer = PixelGetColor (542, 613)
If $Wurmer = 0x000400 then
$Koeder1 = Pixelsearch (635, 275, 795, 560, 0x140D0F )
If not @error then
mousemove ($Koeder1[0], $Koeder1[1])
Mouseclick ("left")
Mousemove (538, 609)
Mouseclick ("left")
Sleep (1000)
$Checkf1f3 = Guictrlread ($checkboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $checkf1f3 = 4 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
$nachgefuellt3 += 1
GUICtrlSetData($Nachgefuellt2, $nachgefuellt3)
Else
$check2142 = Guictrlread ($checkbox2142)
If $check2142 = 1 Then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
Sleep (100)
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
EndIf
EndIf
EndIf
$check214 = GuiCtrlRead($Checkbox214)
If $check214 = 1 Then
$Paste = PixelGetColor (542, 613)
If $Paste = 0x000400 then
$Paste1 = Pixelsearch (635, 275, 795, 560, 0x9F8567 )
If not @error then
mousemove ($Paste1[0], $Paste1[1])
Mouseclick ("left")
Mousemove (538, 609)
Mouseclick ("left")
Sleep (1000)
$Checkf1f3 = Guictrlread ($checkboxF1F3)
If $checkf1f3 = 1 then
If $stepps = 1 then
Send ( "{1 down}" , 0 )
Sleep (100)
Send ( "{1 up}" , 0 )
ElseIf $stepps = 2 Then
Send ( "{2 down}" , 0 )
Sleep (100)
Send ( "{2 up}" , 0 )
ElseIf $stepps = 3 Then
Send ( "{3 down}" , 0 )
Sleep (100)
Send ( "{3 up}" , 0 )
ElseIf $stepps = 4 then
Send ( "{4 down}" , 0 )
Sleep (100)
Send ( "{4 up}" , 0 )
ElseIf $stepps = 5 Then
Send ( "{F1 down}" , 0 )
Sleep (100)
Send ( "{F1 up}" , 0 )
ElseIf $stepps = 6 Then
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
ElseIf $stepps = 7 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
$stepps = 0
EndIf
EndIf
If $checkf1f3 = 4 Then
Send ( "{F3 down}" , 0 )
Sleep (100)
Send ( "{F3 up}" , 0 )
EndIF
$Nachgefuellt3 += 1
GUICtrlSetData($Nachgefuellt2, $nachgefuellt3)
Else
If $check2142 = 1 Then
run ("C:\WINDOWS\SYSTEM32\shutdown.exe -s -f -t 0")
Sleep (50000)
EndIf
Sleep (100)
Send ( "{F2 down}" , 0 )
Sleep (100)
Send ( "{F2 up}" , 0 )
EndIf
EndIf
EndIf
;ITEMWERFER
$check45 = GuiCtrlRead($Checkbox45)
If $check45 = 1 Then
$Bunt = Pixelsearch (635, 275, 795, 560, 0x4E4D4C)
If not @error then
MouseMove ($Bunt [0], $Bunt [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
$Bleichmittel = Pixelsearch (635, 275, 795, 560, 0xA9A69A)
If not @error then
MouseMove ($Bleichmittel [0], $Bleichmittel [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
EndIf
$check46 = GUICtrlRead($Checkbox46)
If $check46 = 1 then
$Fluchtlingsumhang = Pixelsearch (635, 275, 795, 560, 0x151524)
If not @error then
MouseMove ($Fluchtlingsumhang [0], $Fluchtlingsumhang[1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check47 = GUICtrlRead($Checkbox47)
If $check47 = 1 then
$Goldring = Pixelsearch (635, 275, 795, 560, 0x745F40)
If not @error then
MouseMove ($Goldring [0], $Goldring [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check49 = GUICtrlRead($Checkbox49)
If $check49 = 1 then
$Lucys = Pixelsearch (635, 275, 795, 560, 0xB0993E)
If not @error then
MouseMove ($Lucys [0], $Lucys [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
$check50 = GUICtrlRead($Checkbox50)
If $check50 = 1 then
$Symbol = Pixelsearch (635, 275, 795, 560, 0xE7E794)
If not @error then
MouseMove ($Symbol [0], $Symbol [1])
MouseClick ("left")
MouseMove (410,402)
MouseClick ("left")
MouseMove (365, 350)
MouseClick ("left")
EndIf
Endif
;;ITEMWERFER
sleep (2000)
Send ( "{F4 down}" , 0 )
Sleep (500)
Send ( "{F4 up}" , 0 )
$timer1 = TimerInit ()
Do
sleep (100)
$fischblase = PixelSearch(336, 52, 400, 95, 0xFcF8Fc, 15)
Until not @error or TimerDiff ($timer1) > 180000
sleep ( GUICtrlRead ( $input1 ) )
Send ( "{F4 down}" , 0 )
Sleep (500)
Send ( "{F4 up}" , 0 )
sleep (Guictrlread($VerzogerungBox))
EndIf
WEnd
EndIf
WEnd
Func _EndeBot()
Exit
EndFunc
Func _PauseBot()
$PauseAnfang = 1
EndFunc
Func _AnfangBot()
$PauseAnfang = 0
EndFunc
Manche stellen werden euch sicherlich "noobhaft" vorkommen, jedoch war ich, als ich ihn programmiert habe, ein Anfänger.