hab ma ein bischen probiert und einen angelbot gebaut er ist perfekt zum angel nachts und tags über
Link:
das ist hier aber wohl die falsche kategorie....
gehört wohl eher zu metin xD
code soweit sauber.....aber da hatte wohl echt jemand zuviel zeit.... xD
PHP Code:
Case $AR_BUTTON[0] MsgBox(0, "Farben-Finder", "leg einen kleinen Fisch auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[0] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[0], "0x" & Hex($AR_FISCH[0], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[1] MsgBox(0, "Farben-Finder", "leg einen Zander auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[1] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[1], "0x" & Hex($AR_FISCH[1], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[2] MsgBox(0, "Farben-Finder", "leg einen Mandarinfisch auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[2] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[2], "0x" & Hex($AR_FISCH[2], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[3] MsgBox(0, "Farben-Finder", "leg einen Karpfen auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[3] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[3], "0x" & Hex($AR_FISCH[3], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[4] MsgBox(0, "Farben-Finder", "leg einen Lachs auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[4] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[4], "0x" & Hex($AR_FISCH[4], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[5] MsgBox(0, "Farben-Finder", "leg eine Bachforelle auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[5] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[5], "0x" & Hex($AR_FISCH[5], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[6] MsgBox(0, "Farben-Finder", "leg einen Graskarpfen auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[6] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[6], "0x" & Hex($AR_FISCH[6], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[7] MsgBox(0, "Farben-Finder", "leg einen Lotusfisch auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[7] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[7], "0x" & Hex($AR_FISCH[7], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[8] MsgBox(0, "Farben-Finder", "leg einen großen Zander auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[8] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[8], "0x" & Hex($AR_FISCH[8], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[9] MsgBox(0, "Farben-Finder", "leg einen Katzenfisch auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[9] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[9], "0x" & Hex($AR_FISCH[9], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[10] MsgBox(0, "Farben-Finder", "leg einen Aal auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[10] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[10], "0x" & Hex($AR_FISCH[10], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[11] MsgBox(0, "Farben-Finder", "leg eine Rotfeder auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[11] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[11], "0x" & Hex($AR_FISCH[11], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[12] MsgBox(0, "Farben-Finder", "leg einen Barsch auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[12] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[12], "0x" & Hex($AR_FISCH[12], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[13] MsgBox(0, "Farben-Finder", "leg einen Regenbogenforelle auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[13] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[13], "0x" & Hex($AR_FISCH[13], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_BUTTON[14] MsgBox(0, "Farben-Finder", "leg einen Regenbogenforelle auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_FISCH[14] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_INPUT[14], "0x" & Hex($AR_FISCH[14], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[0] MsgBox(0, "Farben-Finder", "leg eine Haarfarbe auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[0] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[0], "0x" & Hex($AR_ITEM[0], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[1] MsgBox(0, "Farben-Finder", "leg ein Bleichmittel auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[1] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[1], "0x" & Hex($AR_ITEM[1], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[2] MsgBox(0, "Farben-Finder", "leg ein Symbol des waisen Kaisers auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[2] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[2], "0x" & Hex($AR_ITEM[2], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[3] MsgBox(0, "Farben-Finder", "leg Lucys Ring auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[3] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[3], "0x" & Hex($AR_ITEM[3], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[4] MsgBox(0, "Farben-Finder", "leg einen Handschuh auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[4] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[4], "0x" & Hex($AR_ITEM[4], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_ITEM_BUTTON[5] MsgBox(0, "Farben-Finder", "leg einen Umhang auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $AR_ITEM[5] = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_ITEM_INPUT[5], "0x" & Hex($AR_ITEM[5], 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_GUI2_SONSTIGE_BUTTON[0] MsgBox(0, "Farben-Finder", "lasse das 1. Inventarfach leer (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $LEER = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_SONSTIGE_INPUT[0], "0x" & Hex($LEER, 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_GUI2_SONSTIGE_BUTTON[1] MsgBox(0, "Farben-Finder", "leg Würmer auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $WURM = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_SONSTIGE_INPUT[1], "0x" & Hex($WURM, 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_GUI2_SONSTIGE_BUTTON[2] MsgBox(0, "Farben-Finder", "leg Paste auf das 1. Inventarfach (links oben)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $PASTE = PixelGetColor($AR_INV_X[0], $AR_INV_Y[0]) GUICtrlSetData($AR_GUI2_SONSTIGE_INPUT[2], "0x" & Hex($PASTE, 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_GUI2_SONSTIGE_BUTTON[3] MsgBox(0, "Farben-Finder", "minimiere eine PN (der Brief soll erscheinen)" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $NACHRICHT_FARBE = PixelGetColor($NACHRICHT_X, $NACHRICHT_Y) GUICtrlSetData($AR_GUI2_SONSTIGE_INPUT[3], "0x" & Hex($NACHRICHT_FARBE, 6)) MsgBox(0, "", "die Farbe wurde übenommen!") Case $AR_GUI2_SONSTIGE_BUTTON[4] MsgBox(0, "Farben-Finder", "lass das ganz normale HUD dran; x = 795, y = 595" & @CRLF & @CRLF & "der Bot wird die Farbe abscannen und sie eintragen" & @CRLF) Sleep(1000) WinActivate($METIN_NAME) Sleep(1000) $HUD_RECHTS_UNTEN = PixelGetColor(795, 595) GUICtrlSetData($AR_GUI2_SONSTIGE_INPUT[4], "0x" & Hex($HUD_RECHTS_UNTEN, 6)) MsgBox(0, "", "die Farbe wurde übenommen!") EndSwitch WEnd GUIDelete() EndFunc