You last visited: Today at 03:20
Advertisement
-Drunken Master- Säufertitel-Bot
Discussion on -Drunken Master- Säufertitel-Bot within the GW Exploits, Hacks, Bots, Tools & Macros forum part of the Guild Wars category.
08/30/2008, 17:54
#91
elite*gold: 0
Join Date: Apr 2008
Posts: 200
Received Thanks: 10
Quote:
Originally Posted by
candyman91
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
danke, werd ich nacher dann testen =]
stell dich in deine halle der monumente und status auf offline, dann ist das risiko nichtmehr so hoch erwischt zu werden!
08/30/2008, 23:03
#92
elite*gold: 0
Join Date: Apr 2008
Posts: 200
Received Thanks: 10
Habs jetzt getestet aber es kommt folgender Fehler:
08/30/2008, 23:49
#93
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
liegt wohl daran das die ganzen variablen fehlen
08/30/2008, 23:57
#94
elite*gold: 0
Join Date: Apr 2008
Posts: 200
Received Thanks: 10
Quote:
Originally Posted by
kknb
liegt wohl daran das die ganzen variablen fehlen
und das heisst?^^
08/31/2008, 00:29
#95
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
das heisst das du mit dem geposteten code nichts anfangen kannst es sei denn du fügst die variablen per hand selber ein, was ich aber ehrlich gesagt nicht machen würde wenn du dir den code mal anguckst siehst du ja das da ne ganze menge fehlt, zum beispiel am anfang die globals ohne variablen, die = zeichen ohne variablen usw
am besten du du fragst candyman91 ob er den code nicht nochmal posten kann diesmal muss er beim posten auf "go advanced" klicken und den haken bei "automatically embed media...." rausmachen, dann wird auch der komplette code angezeigt.
08/31/2008, 14:56
#96
elite*gold: 0
Join Date: Feb 2008
Posts: 97
Received Thanks: 1
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(1000*60*3,1005*60*3,1))
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
Diesmal sind alle Hacken weg oO
08/31/2008, 16:17
#97
elite*gold: 0
Join Date: Jan 2007
Posts: 1,753
Received Thanks: 443
wollt ihr mich verarschen oder was?
08/31/2008, 17:31
#98
elite*gold: 0
Join Date: Apr 2008
Posts: 200
Received Thanks: 10
Quote:
Originally Posted by
Azunai
wollt ihr mich verarschen oder was?
wär dann vielleicht einfacher wenn du ihn "perfekt" postest ohne Fehler?
08/31/2008, 17:49
#99
elite*gold: 0
Join Date: Feb 2008
Posts: 97
Received Thanks: 1
Ich habe es obene editiert. Kann aber nicht zu 100% sagen ob es jetzt stimmt. :S
08/31/2008, 18:09
#100
elite*gold: 0
Join Date: Jan 2007
Posts: 1,753
Received Thanks: 443
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;-------------------------------------------------------------------------------------------;
___ __ __ ;
___ / ( _ ) / ____ ____ _ ______ ___ __________ ____ / / __ ;
_ / / / __ / _ / __ | / / __ / _ / ___ / ___ // __ / _ \ ;
; / __ / / / / _ / __ / / _ / / |/ / / _ / / __ / / ( __ )/ / _ / / __ / ;
___ / _ / _ / __ / ___ / . ___ /| ___ / . ___ / ___ / _ / / ____ ( _ ) __ , _ / ___ / ;
_ / / _ / ;
© exclusively released on epvpers . de ;
AutoIt Version : 3.1.1.0 ;
Author : ;
_ _ ;
_ __ | | _ | | __ _ __ __ ___ __ :
'_ \| __| ' _ | '__/ _` \ \/ / ;
Script is "Paused"',0,0)
t found .
$PID Then ProcessClose ( $PID )
EndFunc
()
WinActivate ( "Guild Wars" )
sleep ( 500 )
MouseClick ( "left" , $x , $y , 2 )
$i8 =( $i8 + 1 )
Sleep ( Random ( 57900 , 59000 ))
Until $i8 = $i
()
WinActivate ( "Guild Wars" )
sleep ( 500 )
MouseClick ( "left" , $x , $y , 2 )
$i8 =( $i8 + 1 )
Sleep ( Random ( 1000 * 60 , 1010 * 60 )* 3 )
Until $i8 = $i
()
$count = _GUICtrlComboBoxEx_GetCurSel ( $hCombo )
$bier = _GUICtrlComboBoxEx_GetItem ( $hCombo , $count )
WinActivate ( "Guild Wars" )
position ()
sleep ( 3000 )
$i8 = 1
( 5000 )
$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
( "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 ()
weitertrinken2 ()
EndFunc
While 1
Global $i = ( GUICtrlRead ( $Input_3 ))
$msg = GuiGetMsg ()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
$msg = $Button_11
( "trink" )
EndSelect
der code hier steht schon 5 seiten früher
08/31/2008, 18:15
#101
elite*gold: 57
Join Date: Jun 2007
Posts: 10,720
Received Thanks: 5,092
selbst geowned azunai
[x] Automatically embed media (requires automatic parsing of links in text to be on).
08/31/2008, 22:36
#102
elite*gold: 0
Join Date: Apr 2008
Posts: 200
Received Thanks: 10
Quote:
Originally Posted by
Azunai
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;-------------------------------------------------------------------------------------------;
___ __ __ ;
___ / ( _ ) / ____ ____ _ ______ ___ __________ ____ / / __ ;
_ / / / __ / _ / __ | / / __ / _ / ___ / ___ // __ / _ ;
; / __ / / / / _ / __ / / _ / / |/ / / _ / / __ / / ( __ )/ / _ / / __ / ;
___ / _ / _ / __ / ___ / . ___ /| ___ / . ___ / ___ / _ / / ____ ( _ ) __ , _ / ___ / ;
_ / / _ / ;
© exclusively released on epvpers . de ;
AutoIt Version : 3.1.1.0 ;
Author : ;
_ _ ;
_ __ | | _ | | __ _ __ __ ___ __ :
'_ | __| ' _ | '__/ _` / / ;
Script is "Paused"',0,0)
t found .
Then ProcessClose ()
EndFunc
()
WinActivate ( "Guild Wars" )
sleep ( 500 )
MouseClick ( "left" ,,, 2 )
1 )
Sleep ( Random ( 57900 , 59000 ))
Until =
EndFunc
()
WinActivate ( "Guild Wars" )
sleep ( 500 )
MouseClick ( "left" ,,, 2 )
1 )
Sleep ( Random ( 1000 * 60 , 1010 * 60 )* 3 )
Until =
EndFunc
()
_GUICtrlComboBoxEx_GetCurSel ()
_GUICtrlComboBoxEx_GetItem (,)
WinActivate ( "Guild Wars" )
position ()
sleep ( 3000 )
1
( 5000 )
"Absinth" Or = "Apfelwein" Or = "Eierflip" Or = "Hexensud" Or = "Jägerbier" Or = "Vaabi-Wein" Or = "Wacholderbeer-Gin" Or = "Zethukas Krug" Or = "Zwergenbier" Or = "Kleeblattbier" Then
( "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 ()
weitertrinken2 ()
EndFunc
While 1
Global = ( GUICtrlRead ())
GuiGetMsg ()
Select
Case =
call ( "trink" )
EndSelect
der code hier steht schon 5 seiten früher
sry aber da kommt wieder ne fehlermeldung...
ich muss doch einfach das script löschen das jetzige einfügen dann speichern und compilen?
08/31/2008, 22:50
#103
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
so langsam ists aber mal gut...
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(1000*60*3,1005*60*3,1))
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
09/01/2008, 13:34
#104
elite*gold: 0
Join Date: Jan 2007
Posts: 1,753
Received Thanks: 443
^^
09/11/2008, 18:03
#105
elite*gold: 0
Join Date: Jul 2008
Posts: 100
Received Thanks: 6
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>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.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(1000*60*3,1005*60*3,1))
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
Drunken BoT Projekt[helpfix] by N.ick
02/11/2009 - GW Exploits, Hacks, Bots, Tools & Macros - 17 Replies
Hey :]
I have this i've been playing with learning my way around AutoItv3 for a yearish now
and.
there is a few problems i've encountered.
Ill start and run bot but it stops at the point to click the bottles.
i plan on working on this till you can use it for multiple types of alcohol.
but all im worried about now is Lvl3
Heres code.
if you and offer any help i'd appreciate it :]
drunken post tiopic
01/31/2008 - Off Topic - 31 Replies
WTF drubnken like pieche of shit
:confused::confused::confused::confused::confused ::confused:
All times are GMT +1. The time now is 03:21 .
