100ms = 0,1s
also: ja !
also: ja !
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
#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