Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
Noob need help beim ersten Farmbot =) Noob need help beim ersten Farmbot =)
You last visited: Today at 00:39

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Noob need help beim ersten Farmbot =)

Discussion on Noob need help beim ersten Farmbot =) within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
!NOTFALL!'s Avatar
 
elite*gold: 43
The Black Market: 10/0/0
Join Date: Jan 2010
Posts: 506
Received Thanks: 113
Noob need help beim ersten Farmbot =)

Hallo erstmal
Ich habe jetzt mal versuchst einen Farmbot für Metin2 zu scripten und wollte Fragen ob ihr mir vllt. noch tipps/verbesserungsvorschläge geben könnt.
Hier ist der code:
Code:
;include fürs GUI nachher



HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$Braunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$HungryBraunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$Tiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$WhiteTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryWhiteTiger = PixelSearch(0, 0, 1460, 722, SCANNEN)
$Baer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$BlackBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBlackBear = PixelSearch(0, 0, 1360, 722, SCANNEN)
$GrewWolf = PixelSearch(0, 0, 1360, 722, SCANNEN)
; Braunbär
If IsArray($BraunBaer) = True Then
	While 1
		MouseClick("left", $Braunbaer[0], $Braunbaer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
;Hungrieger Braunbär

If IsArray($HungryBraunbaer) = True Then
	While 1
		MouseClick("left", $HungryBraunbaer[0], $HungryBraunbaer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf

;Tiger

If IsArray($Tiger) = True Then
	While 1
		MouseClick("left", $Tiger[0], $Tiger[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Hungriger Tieger

If IsArray($HungryTiger) = True Then
	While 1
		MouseClick("left", $HungryTiger[0], $HungryTiger[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Weißer Tiger

If IsArray($WhiteTiger) = True Then
	While 1
		MouseClick("left", $WhiteTiger[0], $WhiteTiger[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Baer
If IsArray($Baer) = True Then
	While 1
		MouseClick("left", $Baer[0], $Baer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Hungrieger Bär

If IsArray($HungryBaer) = True Then
	While 1
		MouseClick("left", $Hungrybaer[0], $Hungrybaer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Schwarzer Bär

If IsArray($BlackBaer) = True Then
	While 1
		MouseClick("left", $Blackbaer[0], $Blackbaer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Hungriger Schwarzer Bär


If IsArray($HungryBlackBaer) = True Then
	While 1
		MouseClick("left", $HungryBlackbaer[0], $HungryBlackbaer[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
; Grauwolf


If IsArray($GrewWolf) = True Then
	While 1
		MouseClick("left", $GrewWolf[0], $GrewWolf[1], 1, 1)
		Sleep(10000)
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
	WEnd
EndIf
Func TogglePause()
	$Paused = NOT $Paused
	While $Paused
		ToolTip("Script paused")
		Sleep(500)
	WEnd
	Tooltip("")
EndFunc

Func Terminate()
	ToolTip("Script closed")
	Sleep(500)
        Exit
EndFunc
; Coperight (c) by Deidi
ja... eigentlich für jedes mob das gleiche
bei SCANNEN muss ich noch den hexcode scannen.
GUI mach ich auch noch wenn ich das mal kapiert hab

MfG,
Deidi
!NOTFALL! is offline  
Old 02/20/2010, 09:24   #2
 
HardCore.1337's Avatar
 
elite*gold: 1
The Black Market: 1/0/0
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Quote:
$Braunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$HungryBraunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$Tiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$WhiteTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryWhiteTiger = PixelSearch(0, 0, 1460, 722, SCANNEN)
$Baer= PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$BlackBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBlackBear = PixelSearch(0, 0, 1360, 722, SCANNEN)
$GrewWolf = PixelSearch(0, 0, 1360, 722, SCANNEN)
Es gibt keinen AutoIt Befehl der Scannen heißt, folglich geht das nicht

Quote:
Func Terminate()
ToolTip("Script closed")
Sleep(500)
EndFunc
Du Beendest ihn aber nicht
Du hast Exit vergessen
HardCore.1337 is offline  
Old 02/20/2010, 17:40   #3
 
!NOTFALL!'s Avatar
 
elite*gold: 43
The Black Market: 10/0/0
Join Date: Jan 2010
Posts: 506
Received Thanks: 113
Wenn du genau hin siehst habe ich geschrieben dass och da wo SCANNEN steht noch scannen muss
Und das Exit muss beim kopieren abhanden gekommen sein
mfg
!NOTFALL! is offline  
Old 02/20/2010, 17:52   #4
 
HardCore.1337's Avatar
 
elite*gold: 1
The Black Market: 1/0/0
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Ohh, ja sry.
Hab ich übersehen^^
HardCore.1337 is offline  
Old 02/20/2010, 19:57   #5
 
Xereon's Avatar
 
elite*gold: 0
The Black Market: 3/1/0
Join Date: Apr 2009
Posts: 793
Received Thanks: 366
Quote:
Originally Posted by Deidi_007 View Post
ja... eigentlich für jedes mob das gleiche
Ja und genau hier leigt der Punkt: Was benutzen wir, wenn wir immer wieder den selben code habe? Genau; Funktionen.
Xereon is offline  
Old 02/20/2010, 21:45   #6
 
!NOTFALL!'s Avatar
 
elite*gold: 43
The Black Market: 10/0/0
Join Date: Jan 2010
Posts: 506
Received Thanks: 113
Quote:
Originally Posted by Xereon View Post
Ja und genau hier leigt der Punkt: Was benutzen wir, wenn wir immer wieder den selben code habe? Genau; Funktionen.
O.O
auf die idee hätt ich auch selbst kommen können thx^^
Aber wie soll ich das machen da da ja für jedes mob eine andere Variable ist??
hab mal gegoogelt aber kein udf tut gefunden
Habs trotzdem mal versucht aber es funzt nit:
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Send("{PAUSE}")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 443, 302, 192, 124)
$Label1 = GUICtrlCreateLabel("Farmbot by Deidi vers. 1.1", 32, 32, 127, 17)
$Label2 = GUICtrlCreateLabel("Der Bot Pottet auf 1(TP) und 2(MP).", 104, 96, 173, 17)
$Label3 = GUICtrlCreateLabel("Er setzt Fertigkeiten in folgender Reihenfolge ein:", 104, 120, 235, 17)
$Label4 = GUICtrlCreateLabel("Erst F1", 104, 144, 37, 17)
$Label5 = GUICtrlCreateLabel("Dann F2", 104, 160, 45, 17)
$Label6 = GUICtrlCreateLabel("Zum Schluss F3", 104, 176, 80, 17)
$Button1 = GUICtrlCreateButton("Run Bot", 8, 272, 131, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Exit", 304, 272, 131, 25, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Der Bot muss in der nähe von Bären und Tigern aktiviert werden!", 104, 200, 310, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Send("{PAUSE}")
		Case $Button2
			Exit

	EndSwitch
WEnd


$Braunbaer = PixelSearch( 0, 0, 1360, 722, 0xFF00FF)
$HungryBraunbaer = PixelSearch( 0, 0, 1360, 722, 0xFF00FF)
$Tiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryTiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$WhiteTiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryWhiteTiger = PixelSearch(0, 0, 1460, 722, 0xFF00FF)
$Baer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryBaer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$BlackBaer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryBlackBear = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$GrewWolf = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$Label8 = GUICtrlCreateLabel("Coperight (c) by Deidi", 176, 280, 105, 17)
; Braunbär
If IsArray($BraunBaer) = True Then
	While 1
		MouseClick("left", $Braunbaer[0], $Braunbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf


;Hungrieger Braunbär

If IsArray($HungryBraunbaer) = True Then
	While 1
		MouseClick("left", $HungryBraunbaer[0], $HungryBraunbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf

;Tiger

If IsArray($Tiger) = True Then
	While 1
		MouseClick("left", $Tiger[0], $Tiger[1], 1, 1)
		_KillMob
	WEnd
EndIf
; Hungriger Tieger

If IsArray($HungryTiger) = True Then
	While 1
	_KillMob
	WEnd
EndIf
; Weißer Tiger

If IsArray($HungryWhiteTiger) = True Then
	While 1
	_KillMob()
	WEnd
EndIf
;Hungrieger Weißer T.

If IsArray($WhiteTiger) = True Then
	While 1
		MouseClick("left", $WhiteTiger[0], $WhiteTiger[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Baer
If IsArray($Baer) = True Then
	While 1
		MouseClick("left", $Baer[0], $Baer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Hungrieger Bär

If IsArray($HungryBaer) = True Then
	While 1
		MouseClick("left", $Hungrybaer[0], $Hungrybaer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Schwarzer Bär

If IsArray($BlackBaer) = True Then
	While 1
		MouseClick("left", $Blackbaer[0], $Blackbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf
; Hungriger Schwarzer Bär


If IsArray($HungryBlackBaer) = True Then
	While 1
		MouseClick("left", $HungryBlackbaer[0], $HungryBlackbaer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Grauwolf


If IsArray($GrewWolf) = True Then
	While 1
		MouseClick("left", $GrewWolf[0], $GrewWolf[1], 1, 1)
	_KillMob
	WEnd
EndIf

Func TogglePause()
	$Paused = NOT $Paused
	While $Paused
		Sleep(500)
	WEnd
EndFunc

Func Terminate()
	ToolTip("Bot closed")
	Sleep(500)
	Exit
EndFunc

Func _KillMob()
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
EndFunc

; Coperight (c) by Deidi
Was hab ich falsch gemacht?
Und's GUI is jetzt drinne =)
!NOTFALL! is offline  
Old 02/20/2010, 21:48   #7
 
HardCore.1337's Avatar
 
elite*gold: 1
The Black Market: 1/0/0
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Dafür gibt es Parameter
HardCore.1337 is offline  
Old 02/20/2010, 23:46   #8
 
!NOTFALL!'s Avatar
 
elite*gold: 43
The Black Market: 10/0/0
Join Date: Jan 2010
Posts: 506
Received Thanks: 113
was soll mir das jetzt bringen?-.-

"Dafür gibt es Parameter"
Bringt mir vull viel echt thx =)
!NOTFALL! is offline  
Old 02/21/2010, 01:31   #9
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,878
Quote:
Originally Posted by Deidi_007 View Post
O.O
auf die idee hätt ich auch selbst kommen können thx^^
Aber wie soll ich das machen da da ja für jedes mob eine andere Variable ist??
hab mal gegoogelt aber kein udf tut gefunden
Habs trotzdem mal versucht aber es funzt nit:
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Send("{PAUSE}")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 443, 302, 192, 124)
$Label1 = GUICtrlCreateLabel("Farmbot by Deidi vers. 1.1", 32, 32, 127, 17)
$Label2 = GUICtrlCreateLabel("Der Bot Pottet auf 1(TP) und 2(MP).", 104, 96, 173, 17)
$Label3 = GUICtrlCreateLabel("Er setzt Fertigkeiten in folgender Reihenfolge ein:", 104, 120, 235, 17)
$Label4 = GUICtrlCreateLabel("Erst F1", 104, 144, 37, 17)
$Label5 = GUICtrlCreateLabel("Dann F2", 104, 160, 45, 17)
$Label6 = GUICtrlCreateLabel("Zum Schluss F3", 104, 176, 80, 17)
$Button1 = GUICtrlCreateButton("Run Bot", 8, 272, 131, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Exit", 304, 272, 131, 25, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Der Bot muss in der nähe von Bären und Tigern aktiviert werden!", 104, 200, 310, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Send("{PAUSE}")
		Case $Button2
			Exit

	EndSwitch
WEnd


$Braunbaer = PixelSearch( 0, 0, 1360, 722, 0xFF00FF)
$HungryBraunbaer = PixelSearch( 0, 0, 1360, 722, 0xFF00FF)
$Tiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryTiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$WhiteTiger = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryWhiteTiger = PixelSearch(0, 0, 1460, 722, 0xFF00FF)
$Baer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryBaer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$BlackBaer = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$HungryBlackBear = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$GrewWolf = PixelSearch(0, 0, 1360, 722, 0xFF00FF)
$Label8 = GUICtrlCreateLabel("Coperight (c) by Deidi", 176, 280, 105, 17)
; Braunbär
If IsArray($BraunBaer) = True Then
	While 1
		MouseClick("left", $Braunbaer[0], $Braunbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf


;Hungrieger Braunbär

If IsArray($HungryBraunbaer) = True Then
	While 1
		MouseClick("left", $HungryBraunbaer[0], $HungryBraunbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf

;Tiger

If IsArray($Tiger) = True Then
	While 1
		MouseClick("left", $Tiger[0], $Tiger[1], 1, 1)
		_KillMob
	WEnd
EndIf
; Hungriger Tieger

If IsArray($HungryTiger) = True Then
	While 1
	_KillMob
	WEnd
EndIf
; Weißer Tiger

If IsArray($HungryWhiteTiger) = True Then
	While 1
	_KillMob()
	WEnd
EndIf
;Hungrieger Weißer T.

If IsArray($WhiteTiger) = True Then
	While 1
		MouseClick("left", $WhiteTiger[0], $WhiteTiger[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Baer
If IsArray($Baer) = True Then
	While 1
		MouseClick("left", $Baer[0], $Baer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Hungrieger Bär

If IsArray($HungryBaer) = True Then
	While 1
		MouseClick("left", $Hungrybaer[0], $Hungrybaer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Schwarzer Bär

If IsArray($BlackBaer) = True Then
	While 1
		MouseClick("left", $Blackbaer[0], $Blackbaer[1], 1, 1)
		_KillMob
	WEnd
EndIf
; Hungriger Schwarzer Bär


If IsArray($HungryBlackBaer) = True Then
	While 1
		MouseClick("left", $HungryBlackbaer[0], $HungryBlackbaer[1], 1, 1)
	_KillMob
	WEnd
EndIf
; Grauwolf


If IsArray($GrewWolf) = True Then
	While 1
		MouseClick("left", $GrewWolf[0], $GrewWolf[1], 1, 1)
	_KillMob
	WEnd
EndIf

Func TogglePause()
	$Paused = NOT $Paused
	While $Paused
		Sleep(500)
	WEnd
EndFunc

Func Terminate()
	ToolTip("Bot closed")
	Sleep(500)
	Exit
EndFunc

Func _KillMob()
		Send("{F1}")
		Sleep(2000)
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Sleep(500)
		Send("1")
		Send("2")
		Send("{f2}")
		Sleep(2000)
		Send("1")
		Send("2")
		Send("{SPACE}")
		Sleep(500)
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Send("{SPACE}")
		Sleep(500)
		Send("{F3}")
EndFunc

; Coperight (c) by Deidi
Was hab ich falsch gemacht?
Und's GUI is jetzt drinne =)
Soviel gesucht kannst du garnicht haben :
Shadow992 is offline  
Thanks
1 User
Old 02/21/2010, 08:50   #10
 
HardCore.1337's Avatar
 
elite*gold: 1
The Black Market: 1/0/0
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Func (Da kommen die Parameter rein)
...
EndFunc
HardCore.1337 is offline  
Old 02/21/2010, 13:31   #11
 
| Moep |'s Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
Mit einem logischen ODER kannst du dir noch Code sparen.

Code:
If IsArray($BraunBaer) _
		or IsArray($HungryBraunbaer) _
		or IsArray($Tiger) _
		or IsArray($HungryTiger) _
		or IsArray($WhiteTiger) _
		or IsArray($Baer) _
		or IsArray($HungryBaer) _
		or IsArray($BlackBaer) _
		or IsArray($HungryBlackBaer) _
		or IsArray($GrewWolf) Then
	_KillMob()
EndIf
Außerdem hast du noch einige logikfehler drinne, aber die lass ich dich selber finden.
| Moep | is offline  
Old 02/22/2010, 17:48   #12
 
!NOTFALL!'s Avatar
 
elite*gold: 43
The Black Market: 10/0/0
Join Date: Jan 2010
Posts: 506
Received Thanks: 113
Ja, aber wenn ich das mi or mache dann funzt es nicht. ich muss ja die verschiedenen Variablen angeben.Zu dem anderen...*logikfehlersuch*

Und mit den parametern was mach ich jetzt damit?
!NOTFALL! is offline  
Old 02/22/2010, 20:06   #13
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,878
Quote:
Originally Posted by Deidi_007 View Post
Und mit den parametern was mach ich jetzt damit?
Wie bereits geschrieben , sollte das deine Frage beantworten :
Shadow992 is offline  
Thanks
2 Users
Reply

« Move to coord using If then else | Please help with AutoIt + multilvlpointer (I use an interpreter) »

Similar Threads Similar Threads
Bekomme immmer DC beim Farmbot
06/15/2010 - Last Chaos - 8 Replies
Hi ichbekomem immer Dc beim KDTrainer Farmbot nach ner zeit. LG
P-Skills beim ersten Login
04/11/2010 - Metin2 Private Server - 7 Replies
............
[Guide] PferdeQuests beim ersten Versuch schaffen! | v1.00 by ShoXr
05/07/2009 - Metin2 Guides & Templates - 20 Replies
Hallo, ich glaube, viele Metin2.DE Spieler fragen sich manchmal, ob man nicht die PQs beim ersten Versuch schaffen könnte. Dies ist nun möglich, zumindest war das bei mir so. Was braucht ihr dafür? - einen Multihack - Metin2 Client :D - ein bisschen Selbstvertrauen - und natürlich eine PM
Wie lange wird man beim ersten boten gebannt?
10/18/2008 - Metin2 - 5 Replies
Hi alle^^ und zwar war ich su doof und hab mich beim boten erwischen lassen. allerdings erst 1 mal, und wollte fragen: 1. wie lange werde ich gebannt und 2. werden alle meine acc´s gebannt??? wäre net wenn antworten kommen würden thx im vorraus Ich95:bandit:
Problem beim ersten Programm :(
01/05/2007 - General Coding - 7 Replies
Hallo alle zusammen und ein Happy new Year... Nach dem ich nun schon knapp ne Woche c++ lerne hab ich mir vor 2 Tagen gedacht, wie wäre ein Netsettings Generator für CS:S. Gesagt getan und nun bin ich schon fast fertig das einzigste Problem was ich habe ist folgendes Ich möchte die Netsettings ins Verzeichnis C:/ abspeichern klappt auch alles wunderschön auser... er macht einfach keinen Zeilenumbruch. Hab schon relativ viel versucht aber leider keinen erfolg ^^ Hier mal der Code zum...



All times are GMT +1. The time now is 00:40.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.