danke, werd ich nacher dann testen =]Quote:
So müsste es gehen.Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=dataEierlikör.ico #AutoIt3Wrapper_outfile=DrunkenMaster.exe #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_UseAnsi=y #AutoIt3Wrapper_Res_LegalCopyright=www.4n7hr4x.de #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;-------------------------------------------------------------------------------------------; ; ___ __ __ ; ; ___ / (_) /____ ____ _ ______ ___ __________ ____/ /__ ; ; / _ / / / __/ _ / __ | / / __ / _ / ___/ ___// __ / _ ; ; / __/ / / /_/ __/ /_/ / |/ / /_/ / __/ / (__ )/ /_/ / __/ ; ; ___/_/_/__/___/ .___/|___/ .___/___/_/ /____(_)__,_/___/ ; ; /_/ /_/ ; ; ; ; ; ; © exclusively released on epvpers.de ; ;-------------------------------------------------------------------------------------------; ;AutoIt Version: 3.1.1.0 ; ;Author: ; ; _ _ ; ; / | | | | ; ; / _ __ | |_| |__ _ __ __ ___ __ : ; / / | '_ | __| '_ | '__/ _` / / ; ; / ____ | | | | |_| | | | | | (_| |> < ; ; /_/ __| |_|__|_| |_|_| __,_/_/_ ; ; ; ; ; ; ; ;-------------------------------------------------------------------------------------------; ; Script generated by AutoBuilder 0.6 Prototype ; ; THX @ Azunai for help with GUI ; #include <GuiConstants.au3> #include <Sound.au3> #include <GuiComboBoxEx.au3> #include <GuiImageList.au3> Func exitit() exit 0 EndFunc HotKeySet("{F8}","exitit") HotKeySet("{PAUSE}", "TogglePause") Global Global Global Global Global Global Global Global =Random(150,550) Global =Random(9000,11000) Global =Random(150,550) =Random(0,1500) =Random(0,1,1) Opt("GUICoordMode", 1) Func TogglePause() = NOT While sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc = GuiCreate("- Drunken Master V 0.1 -", 300, 341,-1, -1 , BitOR(, )) GUISetBkColor ( 0xFFFFFF ) = _GUICtrlComboBoxEx_Create (, "", 10, 110,150) = _GUIImageList_Create (16, 16, 5,3) = GuiCtrlCreateLabel("Alkoholart :", 10, 95) ; = GUICtrlCreateCombo ( "Jägerbier", 10, 110,150) ;GUICtrlSetData(-1,"Zwergenbier|Reiswein|Vaabi-Wein|Wacholderbeer-Gin|Apfelwein|Eierflip|Absinth|Hexensud|Kleeblattbier|Zehtukas Krug|Eierlikör|Altes Zwergenbier|Feuerwasser") =GUICtrlCreatePic(@ScriptDir & "/data/header.jpg",0,0, 300,90) = GuiCtrlCreateLabel("by Anthrax", 200, 310, 50, 20) = GuiCtrlCreateButton("Trink !", 10, 310, 60, 20) =GuiCtrlCreateLabel("Wie viele Flaschen? :", 10,240) =GUICtrlCreateInput("25" ,10,260,60,20) GuiSetState() $1=_GUIImageList_AddIcon (, @ScriptDir & "dataAbsinth.ico" ) $2=_GUIImageList_AddIcon (, @ScriptDir & "dataAltes_Zwergenbier.ico" ) $3=_GUIImageList_AddIcon (, @ScriptDir & "dataApfelwein.ico" ) $4=_GUIImageList_AddIcon (, @ScriptDir & "dataEierflip.ico" ) $5=_GUIImageList_AddIcon (, @ScriptDir & "dataEierlikör.ico" ) $6=_GUIImageList_AddIcon (, @ScriptDir & "dataFeuerwasser-Flasche.ico" ) $7=_GUIImageList_AddIcon (, @ScriptDir & "dataHexensud.ico" ) $8=_GUIImageList_AddIcon (, @ScriptDir & "dataJägerbier.ico" ) $9=_GUIImageList_AddIcon (, @ScriptDir & "dataVaabi-Wein.ico" ) $10=_GUIImageList_AddIcon (, @ScriptDir & "dataWacholderbeer-Gin.ico" ) $11=_GUIImageList_AddIcon (, @ScriptDir & "dataZehtukas_Krug.ico" ) $12=_GUIImageList_AddIcon (, @ScriptDir & "dataZwergenbier.ico" ) $13=_GUIImageList_AddIcon (, @ScriptDir & "dataKleeblattbier.ico" ) _GUICtrlComboBoxEx_AddString (, "Absinth" ,$1,$1) _GUICtrlComboBoxEx_AddString (, "Altes Zwergenbier" ,$2,$2) _GUICtrlComboBoxEx_AddString (, "Apfelwein" ,$3,$3) _GUICtrlComboBoxEx_AddString (, "Eierflip" ,$4,$4) _GUICtrlComboBoxEx_AddString (, "Eierlikör" ,$5,$5) _GUICtrlComboBoxEx_AddString (, "Feuerwasser" ,$6,$6) _GUICtrlComboBoxEx_AddString (, "Hexensud" ,$7,$7) _GUICtrlComboBoxEx_AddString (, "Jägerbier" ,$8,$8) _GUICtrlComboBoxEx_AddString (, "Vaabi-Wein" ,$9,$9) _GUICtrlComboBoxEx_AddString (, "Wacholderbeer-Gin" ,$10,$10) _GUICtrlComboBoxEx_AddString (, "Zethukas Krug" ,$11,$11) _GUICtrlComboBoxEx_AddString (, "Zwergenbier" ,$12,$12) _GUICtrlComboBoxEx_AddString (, "Kleeblattbier" ,$13,$13) _GUICtrlComboBoxEx_SetImageList (, ) Func position() Run ("Windowinfo.exe",@ScriptDir ) Sleep(1500) MsgBox ( 0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.") =InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0" ) =InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0" ) ProcessClose("Windowinfo.exe") = ProcessExists("windowinfo.exe") ; Will return the PID or 0 if the process isn't found. If Then ProcessClose() EndFunc func weitertrinken() WinActivate("Guild Wars") sleep(500) Do MouseClick("left" ,,,2) =(+1) Sleep(Random(57900,59000)) Until = EndFunc func weitertrinken2() WinActivate("Guild Wars") sleep(500) Do MouseClick("left" ,,,2) =(+1) sleep(random(1000*60*3,1005*60*3,1)) Until = EndFunc func trink() Global = _GUICtrlComboBoxEx_GetCurSel() Global = _GUICtrlComboBoxEx_GetItem(,) WinActivate("Guild Wars") position() sleep(3000) Global =1 sleep (5000) if = "Absinth" Or = "Apfelwein" Or = "Eierflip" Or = "Hexensud" Or = "Jägerbier" Or = "Vaabi-Wein" Or = "Wacholderbeer-Gin" Or = "Zethukas Krug" Or = "Zwergenbier" Or ="Kleeblattbier" Then MouseClick("left" ,,,2) sleep(random(1200,1500)) =(+1) MouseClick("left" ,,,2) sleep(random(1200,1500)) =(+1) MouseClick("left" ,,,2) sleep(random(1200,1500)) =(+1) MouseClick("left" ,,,2) sleep(random(1200,1500)) =(+1) MouseClick("left" ,,,2) sleep(random(175000,179000)) weitertrinken() Else weitertrinken2() EndIf EndFunc While 1 Global = (GUICtrlRead()) = GuiGetMsg() Select Case = Exit Case = call("trink") Case Else ;;; EndSelect WEnd Exit
Noch ne Frage: Könnte ich den Bot auch 24/7 laufen lassen, oder ist die Chance hoch erwischt zu werden?
Lg Candy
stell dich in deine halle der monumente und status auf offline, dann ist das risiko nichtmehr so hoch erwischt zu werden!