-Drunken Master- Säufertitel-Bot

_revo · 08/07/2008, 20:08

100ms = 0,1s
also: ja !

deathone · 08/09/2008, 14:31

hab mal das Script freizügig verändert, einige random mousecklicks eingebaut und die weitertrinken Funktion randomisiert

kam leider nicht zum testen da ich gerade auf der Arbeit bin.
vielleicht findet ihr im Quelltext noch nen Fehler

Aol is hell · 08/10/2008, 16:31

Also ich wollt nochmal eingebracht ham: Bei 3 Min. Alk kann man (bzw. bei mir hats geklaptt mit der Druiden-Insel) nach Löwenstein-Alk einwerfen-Gildenhalle-zurück und kriegt die Min. angerechnet evtl. klappts ja auch bei euch damit sparrt man sich die 10k Min. und kanns an einem Tag machen ^^...

candyman91 · 08/12/2008, 20:13

Ich willte nochmal fragen, um wieviel ich die sleep funktion erhöhen muss, damit er wirklich erst alle 3 min den nächsten alk einwirft?
Danke im voraus!

lg Candy

~~Azunai~~ · 08/12/2008, 20:17

garnichtmehr

ich hab iwo das richtige gepostet gehabt

hier im thread
such halt ein wenig

candyman91 · 08/12/2008, 20:48

jop ich weiß, dennoch trinkt er den alk schon bei ca. 2:50 min und nicht bei 3 min.

~~Azunai~~ · 08/13/2008, 15:24

weil dann doch die dauer unterbrochen wird , muss etwas vor 3 mins sein

candyman91 · 08/13/2008, 15:42

Ja das ist mir auch klar xD (sry wenn ich nerve^^). Aber bei Feuerwasser kann doch gar nix unterbrochen werden.
Also, ich werfe ein Feuerwasser ein, dann wartet der Bot unr bis 2:50, obwohl er Theoretisch bis zur 3. Minute warten kann.

Ich hoffe diesmal ist es verständlicher

Lg Candy

~~Azunai~~ · 08/13/2008, 15:48

eh logisch xD das hält ja 3 mins glatt ^^ denkfehler

candyman91 · 08/13/2008, 16:00

passiert xD... aber auf wieviel muss ich es denn nun erhöhen? :S

lg Candy

~~Azunai~~ · 08/13/2008, 16:14

sleep(random(1000*60*3,1005*60*3,1))

candyman91 · 08/13/2008, 16:28

Optimal, jetzt macht er es genau! Vielen dank

RobRockt · 08/13/2008, 19:03

Mhh müsste doch so passen oder?
Weil der trinkt immernoch bei 2:55 oder so!
Edit: Will nur mit 3Minalk den Titel machen

Quote:

func weitertrinken()
WinActivate("Guild Wars")
sleep(15000)
Do
MouseClick("left" ,,,2)
=(+1)
Sleep(Random(57900,59000))
Until =
EndFunc

func weitertrinken2()
WinActivate("Guild Wars")
sleep(15000)
Do
MouseClick("left" ,,,2)
=(+1)
sleep(random(1000*60*3,1005*60*3,1))
Until =
EndFunc

RobRockt · 08/30/2008, 15:11

Kann jemand die abgeänderte Version hochladen oder das komplette Script hier posten, indem der Bot den 3min Alk richtig trinkt also nach 3min (+) und nicht bei 2:50?
Weil bei mir klappts irgentwie nicht

candyman91 · 08/30/2008, 17:16

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

So müsste es gehen.

Noch ne Frage: Könnte ich den Bot auch 24/7 laufen lassen, oder ist die Chance hoch erwischt zu werden?

Lg Candy