[Biete] Biosfear Applebot für pets

HotKeySet("{NUMPAD1}", "combo") ;to start application
HotKeySet("{NUMPAD2}", "pause") ;to pause it
HotKeySet("{NUMPAD3}", "ende") ;to exit bot

Global $timer = Timerinit()
Global $help
Global $help2
Global $help3
Global $applecd = Random( 700000, 1000000, 1 )
Global $appleused
Global $funktionan = False
Global $invcolor ; 871, 100  - 2B355F
Global $involor2 ; 954, 159  - FFFFFF
Global $randomsleep1 ; 500-1000 ms
Global $coordpetinv1
Global $coordpetinv2
Global $coordchat1
Global $coordchat2
Global $coordinv1
Global $coordinv2
Global $mouserandom1 ;x-achse
Global $mouserandom2 ;y-achse
Global $coord
Global $coord2
Global $lowhp

Func checkoninv()
	$invcolor = PixelGetColor( 871, 100 )
	$invcolor2 = PixelGetColor( 954, 159 )
	While Hex($invcolor, 6) <> "2B355F" And Hex($invcolor2, 6) <> "FFFFFF"
		Send("i")
		$randomsleep1 = Random( 500, 1200, 1 )
		Sleep($randomsleep1)
		$invcolor = PixelGetColor( 871, 100 )
		$invcolor2 = PixelGetColor( 954, 159 )
	WEnd
EndFunc

Func checkonchat()
	$coordchat1 = PixelSearch( 610, 751, 625, 758, 0xC2C198, 0 )
	If Not @error Then
		$mouserandom1 = Random( 610, 625, 1 )
		$mouserandom2 = Random( 751, 758, 1 )
		MouseClick( "left", $mouserandom1, $mouserandom2, 1)
		$randomsleep1 = Random( 500, 1200, 1 ) 
		Sleep($randomsleep1)
		$mouserandom1 = Random( 725, 901, 1 )
		$mouserandom2 = Random( 714, 751, 1 )
		MouseClick( "left", $mouserandom1, $mouserandom2, 1)
		$randomsleep1 = Random( 500, 1200, 1 )
		Sleep($randomsleep1)
	EndIf
	$coordchat2 = PixelSearch( 639, 751, 654, 758, 0xDBDCAC, 0 )
	If Not @error Then
		$mouserandom1 = Random( 639, 654, 1 )
		$mouserandom2 = Random( 751, 758, 1 )
		MouseClick( "left", $mouserandom1, $mouserandom2, 1)
		$randomsleep1 = Random( 500, 1200, 1 )
		Sleep($randomsleep1)
		$mouserandom1 = Random( 725, 901, 1 )
		$mouserandom2 = Random( 714, 751, 1 )
		MouseClick( "left", $mouserandom1, $mouserandom2, 1)
		$randomsleep1 = Random( 500, 1200, 1 )
		Sleep($randomsleep1)		
	EndIf
EndFunc

Func searchpetinv()
	$coord = PixelSearch( 0, 0, 750, 700, 0x894C2B, 0 ) ;  suche nach petinventar   	 
    If @error Then 																		 					 
		Send("q")	
		$randomsleep1 = Random( 500, 1200, 1 )
		Sleep($randomsleep1)
	Else
		$help2 = $coord[0]
		$help3 = $coord[1]
		$coordpetinv1 = Random( $help2 - 207, $help2 - 63, 1 )						 
		$coordpetinv2 = Random( $help3 + 61, $help3 + 77, 1 )
	EndIf
EndFunc

Func applesearch()
	$help = TimerDiff($timer)
	$applecd = Random( 1200000, 1350000, 1 )
	If $help - $appleused > $applecd Then
		$coord2 = PixelSearch( 765, 365, 980, 530, 0x6B0808, 0 ) ;  apfelsuche im inventar	 
		If @error Then 																		 
			$coordinv1 = Random( 985, 1003, 1 )												 
			$coordinv2 = Random( 423, 466, 1 )												 
			MouseClick( "left", $coordinv1, $coordinv2, 1 )	
			$randomsleep1 = Random( 500, 1200, 1 )
			Sleep($randomsleep1)			
		Else	
			MouseClick( "left", $coord2[0], $coord2[1], 1 )
			$randomsleep1 = Random( 500, 1200, 1 )
			Sleep($randomsleep1)
			MouseClick( "left", $coordpetinv1, $coordpetinv2, 1 )
			$randomsleep1 = Random( 500, 1200, 1 )
			Sleep($randomsleep1)			
		EndIf
		$appleused = $help
	EndIf
EndFunc

Func quitiflowhp()
	$lowhp = PixelGetColor(42, 730)
	If Hex($lowhp, 6) <> "8E0003" Then
		Send("{ESC}")
		$randomsleep1 = Random( 300, 500, 1 )
		Sleep($randomsleep1)
		Send("{ESC}")
		$randomsleep1 = Random( 500, 800, 1 )
		Sleep($randomsleep1)
		MouseClick( "left", 510, 360, 1 )
		gostandby()
	EndIf
EndFunc

Func gostandby()
	Exit
EndFunc

Func combo()
	$randomsleep1 = Random( 500, 1200, 1 )
	Sleep($randomsleep1)
	$funktionan = True
	SendKeepActive("Laghaim")	;Rappelz always in foreground
	Opt("PixelCoordMode", 2)	;pixel directly read from client
	Opt("MouseCoordMode", 2)	;mouse only moves in client
	Send("7")
	$randomsleep1 = Random( 500, 1200, 1 )
	Sleep($randomsleep1)
	While $funktionan == True
		checkoninv()
		checkonchat()
		searchpetinv()
		applesearch()
		;quitiflowhp()
	WEnd
EndFunc

Func pause()
	$funktionan = False
	Sleep(50)
EndFunc

Func ende()
	Send("{NUMPAD4}")
	Exit
EndFunc

RunWait(@COMSPEC & " /c Start shield.au3 ")

While 1
	Sleep(50)
WEnd

HotKeySet("{NUMPAD4}", "stop") ;to exit bot

Global $timer = TimerInit()
Global $help
Global $help2
Global $help3 = 0
Global $sleep = Random( 200000, 300000, 1 )
Global $counter = Random( 10, 15, 1 )
Global $sleep2 = Random( 250, 400, 1 )

Sleep(15000)
While $help3 <= $counter
	Send("{F8}")
	$sleep2 = Random( 250, 400, 1 )
	Sleep($sleep2)
	$help3 = $help3 + 1
WEnd
$help2 = $help
$help3 = 0
While 1
	$sleep = Random( 200000, 300000, 1 )
	$counter = Random( 10, 15, 1 )
	$help = TimerDiff($timer)
	If ( $help - $help2 ) > $sleep Then
		While $help3 <= $counter
			Send("{F8}")
			$sleep2 = Random( 250, 400, 1 )
			Sleep($sleep2)
			$help3 = $help3 + 1
		WEnd
		$help2 = $help
		$help3 = 0
	EndIf
WEnd

Func stop()
	Exit
EndFunc