-.-
eigeninitiative!!!!
im help file nach guicreate gucken,
beispielskript angucken, includes kopieren!
eigeninitiative!!!!
im help file nach guicreate gucken,
beispielskript angucken, includes kopieren!
...Quote:
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> #include <GUIConstantsEx.au3> #include <WindowsConstants.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
Ich denke Azuni hat sich da auf Borega bezogen :)Quote:
grog trinkt er nicht sobald der bot gestartet wird und die koordinaten wo der alk liegt eingibt und es handelt sich um grog meldet er nen error in line 131
und ja azunai ich habe alles angepasst und ja ich hab ebereits alle 11 seiten davor gelesen -.-