[Wartune] E's AutoIt Scripts Daru Farmbot

garryd2012 · 12/25/2013, 22:13

can anyone help me copt the files to the system32 i dont understand how?

Headkill · 12/25/2013, 23:05

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

bedvira · 01/02/2014, 13:57

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

bushybush · 01/02/2014, 23:57

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?

OptimusZero · 01/03/2014, 13:12

#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.

refused20 · 01/04/2014, 17:44

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..

OptimusZero · 01/04/2014, 22:56

Quote:

Originally Posted by refused20

Thanks for sharing sir, it's working great..

Np, your welcome

Movida123 · 01/04/2014, 23:10

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

OptimusZero · 01/05/2014, 19:53

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

Movida123 · 01/05/2014, 21:44

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.

OptimusZero · 01/05/2014, 23:51

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.

Koba163 · 01/06/2014, 08:19

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.

OptimusZero · 01/06/2014, 18:33

I passed on daru... sylph battles drain troops i believe so the farming with bot slowly gives you daru ... not the fastest but constant

cariocas · 01/12/2014, 02:41

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.

boching · 01/12/2014, 13:08

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

Spoiler

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