|
You last visited: Today at 18:53
Advertisement
[Wartune] E's AutoIt Scripts Daru Farmbot
Discussion on [Wartune] E's AutoIt Scripts Daru Farmbot within the Browsergames forum part of the Other Online Games category.
12/25/2013, 22:13
|
#286
|
elite*gold: 0 
Join Date: May 2012
Posts: 3
Received Thanks: 0
|
can anyone help me copt the files to the system32 i dont understand how?
|
|
|
|
12/25/2013, 23:05
|
#287
|
elite*gold: 0
Join Date: May 2010
Posts: 4
Received Thanks: 0
|
for those not able to decompile the faun bot or any other auto-it executables here is the faun bot
Code:
#Region
#AutoIt3Wrapper_Compile_both=y
#EndRegion
Global $paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")
$size_y = 900
$size_x = 1500
$abstandx = @DesktopWidth - $size_x
$abstandy = @DesktopHeight - $size_y
$mob_x = (65 + ($abstandx / 2))
$mob_y = (84 + ($abstandy / 2))
$mob_x2 = (1323 + ($abstandx / 2))
$mob_y2 = (776 + ($abstandy / 2))
Func search_mob()
$varc = 0
$varc = $varc + 1
$search = PixelSearch($mob_x, $mob_y, $mob_x2, $mob_y2, 16711684)
If IsArray($search) Then
MouseMove($search[0] + 33, $search[1] + 60, 1)
MouseClick("left")
Sleep(2000)
ConsoleWrite("Sucht Pixel")
$search_loot = PixelSearch(556 + ($abstandx / 2), 685 + ($abstandy / 2), 638 + ($abstandx / 2), 728 + ($abstandy / 2), 197379)
If IsArray($search_loot) Then
ConsoleWrite("Monster angeclickt")
Sleep(5000)
$vab = "kampf"
EndIf
Else
ConsoleWrite($varc)
EndIf
Return $vab
EndFunc
Func kampf()
ConsoleWrite("Lädt Kampf")
$countdown = $countdown + 1
$search_kampf = PixelSearch(515 + ($abstandx / 2), 785 + ($abstandy / 2), 980 + ($abstandx / 2), 845 + ($abstandy / 2), 526343)
If IsArray($search_kampf) Then
Send("{1}")
Send("{2}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch(113 + ($abstandx / 2), 165 - 75 + ($abstandy / 2), 362 - 90 + ($abstandx / 2), 177 - 75 + ($abstandy / 2), 8389379)
If IsArray($end_kampf) Then
$vab = False
$countdown = 0
EndIf
ElseIf $countdown > 5 Then
$vab = False
$countdown = 0
ConsoleWrite("Nicht im kampf")
EndIf
Return $vab
EndFunc
Func portal()
$search = PixelSearch(415 - 90 + ($abstandx / 2), 180 - 75 + ($abstandy / 2), 1350 - 90 + ($abstandx / 2), 918 - 75 + ($abstandy / 2), 461062)
If IsArray($search) Then
$movey = 460
$movex = 860
If ($search[0] < 700) Then
$movex = 1000
Else
$movex = 600
EndIf
If ($search[1] < 300) Then
$movey = 650
Else
$movex = 350
EndIf
MouseMove($movex, $movey, 1)
MouseClick("left")
Else
MouseClick("left", Random(439, 1309, 1), Random(273, 760, 1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
If $vab == "kampf" Then
$vab = kampf()
Else
$vab = search_mob()
EndIf
WEnd
Func togglepause()
$paused = NOT $paused
While $paused
Sleep(100)
ToolTip("Script ist pausiert", 0, 0)
WEnd
ToolTip("")
EndFunc
Func terminate()
Exit 0
EndFunc
Func showmessage()
MsgBox(4096, "", "Das ist eine Nachricht.")
EndFunc
|
|
|
|
|
01/02/2014, 13:57
|
#288
|
elite*gold: 0
Join Date: Dec 2009
Posts: 40
Received Thanks: 2
|
Hello, i have problem.
1) Bot doesnt move in map. If i do it my hands and find mob then bot attacking(apeare knight) and run to mob. Idk what function there responsible for running around map.
2) After char come to mob and plate with the attack appears - nothing.
Im using Demon Slayer Russian version, and 1280х1024
Can u help me?
Maybe i can get answer:
1) $search_loot ...I see screen but i dont have this blue stripes in my game
2) Func portal ... Idk maybe in german version some portals...In russian version Erandel looking different (
Quote:
)
And i trying Ewvyx bot, always got changing image Seaching for Wilds view/afk mode in left up corner and nothing happend no matter how I tried to change the coordinates
And can some1 tell me what coordinates i need put in bot window (City) what this mean?
Sry my english badly
|
|
|
|
|
01/02/2014, 23:57
|
#289
|
elite*gold: 0
Join Date: Dec 2013
Posts: 1
Received Thanks: 0
|
why wont it auto attack
it all works except it doesn't press the attack button. I read through all the postings and no one commented on that. I run it on 1366/768. can someone please help me?
|
|
|
|
|
01/03/2014, 13:12
|
#290
|
elite*gold: 0
Join Date: Dec 2013
Posts: 10
Received Thanks: 2
|
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren
Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")
$size_y= 900
$size_x= 1500
$abstandx = @DesktopWidth-$size_x
$abstandy = @DesktopHeight-$size_y
;~ 75 x 90
$mob_x = (65 + ($abstandx/2))
$mob_y = (84 + ($abstandy/2))
$mob_x2 = (1323 + ($abstandx/2))
$mob_y2 = (776 + ($abstandy/2))
$cccount = 0
Func search_Mob()
$varc = 0
$search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFF0004 )
$cccount = $cccount + 1
If IsArray($search) Then
$cccount = 0
ToolTip("")
MouseMove($search[0]+5, $search[1]+60, 1)
$search2 = PixelSearch( $search[0], $search[1], $search[0]+100, $search[1]+100, 0xD8D0C8 )
If IsArray($search2) Then
MouseClick("left")
sleep(2000)
$varc=1
EndIf
ConsoleWrite("Sucht Pixel")
;~ nicht ein monster angreifen was bereits angegriffen wird
$search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 )
If IsArray($search_loot) Then
ConsoleWrite('Monster angeclickt')
sleep(5000)
$vab = "kampf"
Else
if($varc == 1) Then
$sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17')
MouseMove(400, 400, 1)
WinSetOnTop('hallo','',1)
EndIf
EndIf
Else
;~ Portal()
;~ sleep(1000)
ConsoleWrite($varc)
EndIf
if($cccount > 100) Then
MouseMove(1498-90+($abstandx/2), 190-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(529-90+($abstandx/2), 700-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(488-90+($abstandx/2), 159-75+($abstandy/2), 1)
MouseClick("left")
$cccount=0
Endif
Return $vab;
EndFunc
Func kampf()
;~ Kampf funktion
ConsoleWrite('Lädt Kampf')
$countdown = $countdown + 1
$search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 )
If IsArray($search_kampf) Then
Send("{1}")
Send("{2}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 )
If IsArray($end_kampf) Then
$vab = false
$countdown = 0
Endif
Elseif $countdown > 5 Then
;~ nicht kampf
$vab = false;
$countdown = 0
ConsoleWrite('Nicht im kampf');
EndIf
Return $vab;
EndFunc
Func Portal()
;~ Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
$search = PixelSearch( 415-90+($abstandx/2), 180-75+($abstandy/2), 1350-90+($abstandx/2), 918-75+($abstandy/2), 0x070906 )
If IsArray($search) Then
$movey=460
$movex=860
if($search[0] < 700) Then
$movex = 1000
Else
$movex = 600
EndIf
if($search[1] < 300) Then
$movey = 650
Else
$movex = 350
EndIf
MouseMove($movex, $movey, 1)
MouseClick("left")
Else
MouseClick("left",Random(439,1309,1),Random(273,76 0,1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
If $vab == "kampf" Then
$vab = kampf();
Else
$vab = search_Mob()
EndIf
WEnd
;;;;;;;;
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","Das ist eine Nachricht.")
EndFunc
Copy this script...... and compile through AutoIT...... this will Sylph farm perfectly.....
It should help.
|
|
|
|
|
01/04/2014, 17:44
|
#291
|
elite*gold: 0
Join Date: Nov 2009
Posts: 4
Received Thanks: 0
|
Quote:
Originally Posted by OptimusZero
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren
Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")
$size_y= 900
$size_x= 1500
$abstandx = @DesktopWidth-$size_x
$abstandy = @DesktopHeight-$size_y
;~ 75 x 90
$mob_x = (65 + ($abstandx/2))
$mob_y = (84 + ($abstandy/2))
$mob_x2 = (1323 + ($abstandx/2))
$mob_y2 = (776 + ($abstandy/2))
$cccount = 0
Func search_Mob()
$varc = 0
$search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFF0004 )
$cccount = $cccount + 1
If IsArray($search) Then
$cccount = 0
ToolTip("")
MouseMove($search[0]+5, $search[1]+60, 1)
$search2 = PixelSearch( $search[0], $search[1], $search[0]+100, $search[1]+100, 0xD8D0C8 )
If IsArray($search2) Then
MouseClick("left")
sleep(2000)
$varc=1
EndIf
ConsoleWrite("Sucht Pixel")
;~ nicht ein monster angreifen was bereits angegriffen wird
$search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 )
If IsArray($search_loot) Then
ConsoleWrite('Monster angeclickt')
sleep(5000)
$vab = "kampf"
Else
if($varc == 1) Then
$sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17')
MouseMove(400, 400, 1)
WinSetOnTop('hallo','',1)
EndIf
EndIf
Else
;~ Portal()
;~ sleep(1000)
ConsoleWrite($varc)
EndIf
if($cccount > 100) Then
MouseMove(1498-90+($abstandx/2), 190-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(529-90+($abstandx/2), 700-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(488-90+($abstandx/2), 159-75+($abstandy/2), 1)
MouseClick("left")
$cccount=0
Endif
Return $vab;
EndFunc
Func kampf()
;~ Kampf funktion
ConsoleWrite('Lädt Kampf')
$countdown = $countdown + 1
$search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 )
If IsArray($search_kampf) Then
Send("{1}")
Send("{2}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 )
If IsArray($end_kampf) Then
$vab = false
$countdown = 0
Endif
Elseif $countdown > 5 Then
;~ nicht kampf
$vab = false;
$countdown = 0
ConsoleWrite('Nicht im kampf');
EndIf
Return $vab;
EndFunc
Func Portal()
;~ Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
$search = PixelSearch( 415-90+($abstandx/2), 180-75+($abstandy/2), 1350-90+($abstandx/2), 918-75+($abstandy/2), 0x070906 )
If IsArray($search) Then
$movey=460
$movex=860
if($search[0] < 700) Then
$movex = 1000
Else
$movex = 600
EndIf
if($search[1] < 300) Then
$movey = 650
Else
$movex = 350
EndIf
MouseMove($movex, $movey, 1)
MouseClick("left")
Else
MouseClick("left",Random(439,1309,1),Random(273,76 0,1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
If $vab == "kampf" Then
$vab = kampf();
Else
$vab = search_Mob()
EndIf
WEnd
;;;;;;;;
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","Das ist eine Nachricht.")
EndFunc
Copy this script...... and compile through AutoIT...... this will Sylph farm perfectly.....
It should help.
|
Thanks for sharing sir, it's working great..
|
|
|
|
|
01/04/2014, 22:56
|
#292
|
elite*gold: 0
Join Date: Dec 2013
Posts: 10
Received Thanks: 2
|
Quote:
Originally Posted by refused20
Thanks for sharing sir, it's working great..
|
Np, your welcome 
|
|
|
|
|
01/04/2014, 23:10
|
#293
|
elite*gold: 0
Join Date: Oct 2013
Posts: 2
Received Thanks: 0
|
Quote:
Originally Posted by OptimusZero
Np, your welcome |
Its working good, just a question, we cant go afk with it right? I tried but after It kills 1 monster, appears the 'click to continue playing' message and it doesnt automatically click, Is it me or does it require us to be there to click it after each kill?
Thanks for the script
|
|
|
|
|
01/05/2014, 19:53
|
#294
|
elite*gold: 0
Join Date: Dec 2013
Posts: 10
Received Thanks: 2
|
GO Afk what i do is pin the exe to my taskbar.
1 - minimize quest side on right
2 - click exe script
3 - hit fullscreen and allow before it starts up and go have a shower
4 - the browser window must be left open though on screen
|
|
|
|
|
01/05/2014, 21:44
|
#295
|
elite*gold: 0
Join Date: Oct 2013
Posts: 2
Received Thanks: 0
|
Quote:
Originally Posted by OptimusZero
GO Afk what i do is pin the exe to my taskbar.
1 - minimize quest side on right
2 - click exe script
3 - hit fullscreen and allow before it starts up and go have a shower
4 - the browser window must be left open though on screen
|
Everything works for me excet the auto attack, it seems to not be working here :/ Or I dont know how to make that work, the rest is going fine.
|
|
|
|
|
01/05/2014, 23:51
|
#296
|
elite*gold: 0
Join Date: Dec 2013
Posts: 10
Received Thanks: 2
|
You mean the skills??
yeah sometimes they work other times they dont.. its no real big loss ... 90% does what it should without you needing to be there.
|
|
|
|
|
01/06/2014, 08:19
|
#297
|
elite*gold: 0
Join Date: Jun 2013
Posts: 1
Received Thanks: 0
|
The Iris script works mostly, some misclicks here and there, but I don't have to monitor it if I want to do other things. The daru script keeps giving me an error message at line 8 for some reason.
|
|
|
|
|
01/06/2014, 18:33
|
#298
|
elite*gold: 0
Join Date: Dec 2013
Posts: 10
Received Thanks: 2
|
I passed on daru... sylph battles drain troops i believe so the farming with bot slowly gives you daru ... not the fastest but constant
|
|
|
|
|
01/12/2014, 02:41
|
#299
|
elite*gold: 0
Join Date: Oct 2007
Posts: 500
Received Thanks: 103
|
Quote:
Originally Posted by OptimusZero
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren
Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")
$size_y= 900
$size_x= 1500
$abstandx = @DesktopWidth-$size_x
$abstandy = @DesktopHeight-$size_y
;~ 75 x 90
$mob_x = (65 + ($abstandx/2))
$mob_y = (84 + ($abstandy/2))
$mob_x2 = (1323 + ($abstandx/2))
$mob_y2 = (776 + ($abstandy/2))
$cccount = 0
Func search_Mob()
$varc = 0
$search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFF0004 )
$cccount = $cccount + 1
If IsArray($search) Then
$cccount = 0
ToolTip("")
MouseMove($search[0]+5, $search[1]+60, 1)
$search2 = PixelSearch( $search[0], $search[1], $search[0]+100, $search[1]+100, 0xD8D0C8 )
If IsArray($search2) Then
MouseClick("left")
sleep(2000)
$varc=1
EndIf
ConsoleWrite("Sucht Pixel")
;~ nicht ein monster angreifen was bereits angegriffen wird
$search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 )
If IsArray($search_loot) Then
ConsoleWrite('Monster angeclickt')
sleep(5000)
$vab = "kampf"
Else
if($varc == 1) Then
$sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17')
MouseMove(400, 400, 1)
WinSetOnTop('hallo','',1)
EndIf
EndIf
Else
;~ Portal()
;~ sleep(1000)
ConsoleWrite($varc)
EndIf
if($cccount > 100) Then
MouseMove(1498-90+($abstandx/2), 190-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(529-90+($abstandx/2), 700-75+($abstandy/2), 1)
MouseClick("left")
sleep(500)
MouseMove(488-90+($abstandx/2), 159-75+($abstandy/2), 1)
MouseClick("left")
$cccount=0
Endif
Return $vab;
EndFunc
Func kampf()
;~ Kampf funktion
ConsoleWrite('Lädt Kampf')
$countdown = $countdown + 1
$search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 )
If IsArray($search_kampf) Then
Send("{1}")
Send("{2}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 )
If IsArray($end_kampf) Then
$vab = false
$countdown = 0
Endif
Elseif $countdown > 5 Then
;~ nicht kampf
$vab = false;
$countdown = 0
ConsoleWrite('Nicht im kampf');
EndIf
Return $vab;
EndFunc
Func Portal()
;~ Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
$search = PixelSearch( 415-90+($abstandx/2), 180-75+($abstandy/2), 1350-90+($abstandx/2), 918-75+($abstandy/2), 0x070906 )
If IsArray($search) Then
$movey=460
$movex=860
if($search[0] < 700) Then
$movex = 1000
Else
$movex = 600
EndIf
if($search[1] < 300) Then
$movey = 650
Else
$movex = 350
EndIf
MouseMove($movex, $movey, 1)
MouseClick("left")
Else
MouseClick("left",Random(439,1309,1),Random(273,76 0,1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
If $vab == "kampf" Then
$vab = kampf();
Else
$vab = search_Mob()
EndIf
WEnd
;;;;;;;;
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","Das ist eine Nachricht.")
EndFunc
Copy this script...... and compile through AutoIT...... this will Sylph farm perfectly.....
It should help.
|
idk why not work >.> all time click little left side and not appear dam hand ... btw i use it for pan works there too no and got 1024/768.
|
|
|
|
|
01/12/2014, 13:08
|
#300
|
elite*gold: 0
Join Date: Apr 2008
Posts: 24
Received Thanks: 2
|
Quote:
Originally Posted by Headkill
for those not able to decompile the faun bot or any other auto-it executables here is the faun bot
Code:
#Region
#AutoIt3Wrapper_Compile_both=y
#EndRegion
Global $paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")
$size_y = 900
$size_x = 1500
$abstandx = @DesktopWidth - $size_x
$abstandy = @DesktopHeight - $size_y
$mob_x = (65 + ($abstandx / 2))
$mob_y = (84 + ($abstandy / 2))
$mob_x2 = (1323 + ($abstandx / 2))
$mob_y2 = (776 + ($abstandy / 2))
Func search_mob()
$varc = 0
$varc = $varc + 1
$search = PixelSearch($mob_x, $mob_y, $mob_x2, $mob_y2, 16711684)
If IsArray($search) Then
MouseMove($search[0] + 33, $search[1] + 60, 1)
MouseClick("left")
Sleep(2000)
ConsoleWrite("Sucht Pixel")
$search_loot = PixelSearch(556 + ($abstandx / 2), 685 + ($abstandy / 2), 638 + ($abstandx / 2), 728 + ($abstandy / 2), 197379)
If IsArray($search_loot) Then
ConsoleWrite("Monster angeclickt")
Sleep(5000)
$vab = "kampf"
EndIf
Else
ConsoleWrite($varc)
EndIf
Return $vab
EndFunc
Func kampf()
ConsoleWrite("Lädt Kampf")
$countdown = $countdown + 1
$search_kampf = PixelSearch(515 + ($abstandx / 2), 785 + ($abstandy / 2), 980 + ($abstandx / 2), 845 + ($abstandy / 2), 526343)
If IsArray($search_kampf) Then
Send("{1}")
Send("{2}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch(113 + ($abstandx / 2), 165 - 75 + ($abstandy / 2), 362 - 90 + ($abstandx / 2), 177 - 75 + ($abstandy / 2), 8389379)
If IsArray($end_kampf) Then
$vab = False
$countdown = 0
EndIf
ElseIf $countdown > 5 Then
$vab = False
$countdown = 0
ConsoleWrite("Nicht im kampf")
EndIf
Return $vab
EndFunc
Func portal()
$search = PixelSearch(415 - 90 + ($abstandx / 2), 180 - 75 + ($abstandy / 2), 1350 - 90 + ($abstandx / 2), 918 - 75 + ($abstandy / 2), 461062)
If IsArray($search) Then
$movey = 460
$movex = 860
If ($search[0] < 700) Then
$movex = 1000
Else
$movex = 600
EndIf
If ($search[1] < 300) Then
$movey = 650
Else
$movex = 350
EndIf
MouseMove($movex, $movey, 1)
MouseClick("left")
Else
MouseClick("left", Random(439, 1309, 1), Random(273, 760, 1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
If $vab == "kampf" Then
$vab = kampf()
Else
$vab = search_mob()
EndIf
WEnd
Func togglepause()
$paused = NOT $paused
While $paused
Sleep(100)
ToolTip("Script ist pausiert", 0, 0)
WEnd
ToolTip("")
EndFunc
Func terminate()
Exit 0
EndFunc
Func showmessage()
MsgBox(4096, "", "Das ist eine Nachricht.")
EndFunc
|
how to input keypress ? for skill purposes
|
|
|
|
Similar Threads
|
S4 Farmbot mit autoit
08/09/2011 - AutoIt - 6 Replies
also ich bin anfänger und versuche gerade einen farmbot zu machen !
und das problem ist das der bot nicht in im client von s4 klicken oder schreiben kann .
Muss ich da was spezielles dafür machen? help pls !
|
AutoIT scripts
11/21/2009 - AutoIt - 22 Replies
Hi,
also ich hatte mal vor nach PHP noch ne andere scriptsprache zu lernen und bin dann bei AutoIT gelandet^^
Ich hab mich mal nen bisschen eingelesen wollte allerdings nich nur die theorie machen, sondern auch an der praxis lernen. ;)
Von daher wollt ich fragen ob ihr eure .au3 scripts hochladen könnt, damit ich und die anderen dies interessiert von euch noch einiges lernen können :P
Freu mich über eure Hilfe
MfG .nAno
|
All times are GMT +1. The time now is 18:53.
|
|
![[Wartune] E's AutoIt Scripts Daru Farmbot](https://www.elitepvpers.com/forum/iconimages/browsergames/wartune-es-autoit-scripts-daru-farmbot_ltr.gif){kind=small}
