-Drunken Master- Säufertitel-Bot

[gino37]

ok hab sie aber irgendiwe wer ich da immer wieder nüchtern und dann ladet er ned mehr nach

[nofuture]

hi, bin zwar leider noch nicht zum testen gekommen, jedoch erstmal ein grosses Lob,
ist super geworden :-)
Jedoch hätte ich nen kleineren (oder evtl auch größeren? :P ) Verbesserungsvorschlag.

Und zwar gehts dabei ein bisschen ums sparen und eventuell auch schnellem hochziehen des Titels :P

Es sollten mehrere Alkohol-sorten bzw auch mehrere Slots genutzt werden könnten,
sodass ich z.B. folgendes angeben kann:
1x Altes Zwergenbier
250x Zwergenbier
250x Zwergenbier

das hätte dann zum einen den Vorteil, dass man nicht mit Stufe 1 Alkohol anfangen braucht (wobei man bei jedem Start 2 verschwenden würde) und zum Anderen könnte man auch mal ne nacht über in der Gildenhalle rumstehen und seinen titel hochziehen, ohne alle 248 Minuten wieder Nachzuschmeissen. ^^

Sprich, wenn im Fenster die Flaschenanzeige direkt neben der Alkoholart angezeigt würde und man das 5 mal untereinander setzt (was dann auch nacheinander abgearbeitet wird) sollte das auch ausreichen ^^

Gruß

nofuture

[-Anthrax-]

gute idee, kam ich noch nie drauf, werde mich mal ransetzen ^^

[Cheewy]

Hi,
erstmal Hut ab, ist wirklich gut gelungen.

Ich habe zwar absolut keine Ahnung von AutoIt, aber was mir beim lesen des Scripst aufgefallen ist, ist das du ihn bei der Auswahl von hartem Alk an die

func weitertrinken()
WinActivate("Guild Wars")
sleep(500)
Do
MouseClick("left" ,$x,$y,2)
$i8=($i8+1)
Sleep(Random(57900,59000))
Until $i8=$i

leitest.
Das bringt ihn dann aber dazu, alle 1 min harten Alk zu trinken, was bei hartem Alk ja eine Verschwendung darstellt.

Ich denke, dafür müsste eine eigene Funktion her, die Ihn nur alle 3 mins trinken lässt.

Zur selbigen Funktion (weitertrinken) wird er auch bei allen anderen Alksorten verwiesen, außer dem
Jägerbier, da läuft er perfekt.

Da ich wie gesagt, keine Erfahrung mit AutoIt habe, schaffe ich es auch nicht, das Script dahingehend zu ändern.

[Azunai]

Ich denke, dafür müsste eine eigene Funktion her, die Ihn nur alle 3 mins trinken lässt.

ich denke das ist bereits der fall

[RobRockt]

Ehm das mit dem 3 Min Alk funktioniert nicht!
Bei Feuerwasser wird es immer schon nach 1 min verwendet!

[JamesB]

Dito^^

Feuerwasser schmeisst er nach 1 Minute wieder ein.

[Ino Oo]

nicht nur beim feuerwasser sondern bei jeder 3min-alk-sorte

[Azunai]

tja dann muss ichs euch etwa umschreiben? xD

könnte das nicht jemand von euch selbst?

mööp ok ich machs, aber dann will ich zumindest ein "danke" hören..

edit:
einfach compilen und fertig

PHP Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=data\Eierlikö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 $Paused
Global $i
Global $x
Global $y
Global $sleep
Global $ausruhen
Global $random
Global $i1=Random(150,550)
Global $i2=Random(9000,11000)
Global $i3=Random(150,550)
$z=Random(0,1500)
$func=Random(0,1,1)
Opt("GUICoordMode", 1)


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc


$hGUI = GuiCreate("- Drunken Master V 0.1 -", 300, 341,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GUISetBkColor ( 0xFFFFFF )
$hCombo = _GUICtrlComboBoxEx_Create ($hGUI, "", 10, 110,150)
$hImage = _GUIImageList_Create (16, 16, 5,3)
$Label_100 = GuiCtrlCreateLabel("Alkoholart :", 10, 95)
;$combo = 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")
$pic=GUICtrlCreatePic(@ScriptDir & "/data/header.jpg",0,0, 300,90)
$Label_10 = GuiCtrlCreateLabel("by Anthrax", 200, 310, 50, 20)
$Button_11 = GuiCtrlCreateButton("Trink !", 10, 310, 60, 20)
$Label_15 =GuiCtrlCreateLabel("Wie viele Flaschen? :", 10,240)
$Input_3=GUICtrlCreateInput("25" ,10,260,60,20)
GuiSetState()
$1=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Absinth.ico" )
$2=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Altes_Zwergenbier.ico" )
$3=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Apfelwein.ico" )
$4=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Eierflip.ico" )
$5=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Eierlikör.ico" )
$6=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Feuerwasser-Flasche.ico" )
$7=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Hexensud.ico" )
$8=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Jägerbier.ico" )
$9=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Vaabi-Wein.ico" )
$10=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Wacholderbeer-Gin.ico" )
$11=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Zehtukas_Krug.ico" )
$12=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Zwergenbier.ico" )
$13=_GUIImageList_AddIcon ($hImage, @ScriptDir & "\data\Kleeblattbier.ico" )
_GUICtrlComboBoxEx_AddString ($hCombo, "Absinth" ,$1,$1)
_GUICtrlComboBoxEx_AddString ($hCombo, "Altes Zwergenbier" ,$2,$2)
_GUICtrlComboBoxEx_AddString ($hCombo, "Apfelwein" ,$3,$3)
_GUICtrlComboBoxEx_AddString ($hCombo, "Eierflip" ,$4,$4)
_GUICtrlComboBoxEx_AddString ($hCombo, "Eierlikör" ,$5,$5)
_GUICtrlComboBoxEx_AddString ($hCombo, "Feuerwasser" ,$6,$6)
_GUICtrlComboBoxEx_AddString ($hCombo, "Hexensud" ,$7,$7)
_GUICtrlComboBoxEx_AddString ($hCombo, "Jägerbier" ,$8,$8)
_GUICtrlComboBoxEx_AddString ($hCombo, "Vaabi-Wein" ,$9,$9)
_GUICtrlComboBoxEx_AddString ($hCombo, "Wacholderbeer-Gin" ,$10,$10)
_GUICtrlComboBoxEx_AddString ($hCombo, "Zethukas Krug" ,$11,$11)
_GUICtrlComboBoxEx_AddString ($hCombo, "Zwergenbier" ,$12,$12)
_GUICtrlComboBoxEx_AddString ($hCombo, "Kleeblattbier" ,$13,$13)
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)

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.")
    $x=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0" )
    $y=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0" )
    ProcessClose("Windowinfo.exe")

$PID = ProcessExists("windowinfo.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

    EndFunc

func weitertrinken()
        WinActivate("Guild Wars")
        sleep(500)
        Do
            MouseClick("left" ,$x,$y,2)    
            $i8=($i8+1)
            Sleep(Random(57900,59000))
        Until $i8=$i
    EndFunc    
    
    func weitertrinken2()
        WinActivate("Guild Wars")
        sleep(500)
        Do
            MouseClick("left" ,$x,$y,2)    
            $i8=($i8+1)
            Sleep(Random(57900,59000)*3)
        Until $i8=$i
EndFunc    

func trink()   
        Global $count = _GUICtrlComboBoxEx_GetCurSel($hCombo)
        Global $bier = _GUICtrlComboBoxEx_GetItem($hCombo,$count)
        
            WinActivate("Guild Wars")
            position()
            sleep(3000)
            Global $i8=1
            sleep (5000)
if $bier[0]= "Absinth" Or $bier[0]= "Apfelwein" Or $bier[0]= "Eierflip"  Or $bier[0]= "Hexensud" Or  $bier[0]= "Jägerbier" Or $bier[0]= "Vaabi-Wein" Or $bier[0]= "Wacholderbeer-Gin" Or $bier[0]= "Zethukas Krug" Or $bier[0]= "Zwergenbier" Or $bier="Kleeblattbier" Then
                MouseClick("left" ,$x,$y,2)
                sleep(random(1200,1500))
                $i8=($i8+1)
                MouseClick("left" ,$x,$y,2)
                sleep(random(1200,1500))
                $i8=($i8+1)
                MouseClick("left" ,$x,$y,2)
                sleep(random(1200,1500))
                $i8=($i8+1)
                MouseClick("left" ,$x,$y,2)
                sleep(random(1200,1500))
                $i8=($i8+1)
                MouseClick("left" ,$x,$y,2)
                sleep(random(175000,179000))
                weitertrinken()
            Else 
weitertrinken2()            
            EndIf
    
    
EndFunc


While 1
     
Global $i = (GUICtrlRead($Input_3))  
$msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $Button_11 
        call("trink")
    Case Else
        ;;;
    EndSelect
WEnd
Exit 


[blackWorkx]

jaja danke abstauben xD so kann man auch sammeln^^

[Azunai]

lol ich sagte nur "ich will hören"

hab garnet an den ddanke button gedacht um die uhrzeit xD

[blackWorkx]

^^

[blauwiggle]

der danke button ist eh voll der rotz ^^

[Azunai]

was das fürn board? dl oder was?

[ziff]

danke ;P