-Drunken Master- Säufertitel-Bot

Page 4 of 14 « First 23 4 56 Last »
05/29/2008 19:20 gino37#46
ok hab sie aber irgendiwe wer ich da immer wieder nüchtern und dann ladet er ned mehr nach
06/12/2008 07:56 nofuture#47
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
06/12/2008 20:58 -Anthrax-#48
gute idee, kam ich noch nie drauf, werde mich mal ransetzen ^^
07/06/2008 20:17 Cheewy#49
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.
07/06/2008 21:11 Azunai#50
Quote:
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 ;)
07/06/2008 21:33 RobRockt#51
Ehm das mit dem 3 Min Alk funktioniert nicht!
Bei Feuerwasser wird es immer schon nach 1 min verwendet!
07/17/2008 07:13 JamesB#52
Dito^^

Feuerwasser schmeisst er nach 1 Minute wieder ein.
07/17/2008 23:48 Ino Oo#53
nicht nur beim feuerwasser sondern bei jeder 3min-alk-sorte
07/18/2008 03:32 Azunai#54
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 
07/18/2008 09:22 blackWorkx#55
jaja danke abstauben xD so kann man auch sammeln^^
07/18/2008 13:37 Azunai#56
lol ich sagte nur "ich will hören"

hab garnet an den ddanke button gedacht um die uhrzeit xD
07/18/2008 13:44 blackWorkx#57
^^
07/18/2008 13:50 blauwiggle#58
der danke button ist eh voll der rotz ^^
[Only registered and activated users can see links. Click Here To Register...]
07/18/2008 14:07 Azunai#59
was das fürn board? dl oder was?
07/19/2008 01:47 ziff#60
danke ;P
Page 4 of 14 « First 23 4 56 Last »