Code:
Func Kalee_Main()
$x1 = 0
$y1 = 0
Sleep(1000)
Send("{SPACE 1}")
Sleep(1000)
MouseMove(518, 600) ; Stuhl
Sleep(1200)
Sleep(300)
MouseClick("right")
Sleep(300)
MouseClick("right")
Sleep(5000)
MouseMove(380, 269) ; Galaxiekarte
Sleep(500)
MouseClick("left")
MouseClick("left")
Sleep(2000)
MouseMove(616, 301) ; Kalee
Sleep(2000)
MouseClick("left")
MouseClick("left")
MouseMove(861, 674) ; Jetzt Reisen
Sleep(2000)
MouseClick("left")
MouseClick("left")
MouseMove(475, 445) ; Ja
Sleep(1000)
MouseClick("left")
If GUICtrlRead($Checkbox_barrel) = $GUI_CHECKED Then AdlibRegister ("Barrel",500)
Local $script_start = TimerInit()
Do
Sleep(100)
$result=_Imagesearcharea("pictures/20sec.png",1,700,1,1200,200,$x1,$y1,101) ; Starts
Local $timer_diff = TimerDiff( $script_start )
Until $result=1 Or $timer_diff > 60000
Send("{1 1}") ;5:20x
Sleep(25000)
MouseDown("left")
Local $script_start = TimerInit();4:55x
Do
Kalee3()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 9000
MouseUp("left") ;shield an 4:46
Send("{2 1}")
Sleep(13000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start = TimerInit();4:33
Do
Kalee4()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 28000
MouseUp("left") ;shield an 4:05
Send("{2 1}")
Sleep(15000)
MouseDown("left") ;shield aus 3:50
Send("{1 1}")
Local $script_start = TimerInit()
Do
Kalee1()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 10000;3:40
Send("{2 1}")
Sleep(5000)
Send("{1 1}")
Local $script_start = TimerInit()
Do
Kalee5() ;3:35
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 3000
Send("{3 1}");scam
Local $script_start = TimerInit();3:32
Do
Kalee5()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 14000
MouseUp("left") ;shield an 3:18
Send("{2 1}")
Sleep(14000)
MouseDown("left") ;shield aus 3:04
Send("{1 1}")
Local $script_start = TimerInit()
Do
Kalee1()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 4000
MouseUp("left");3:00
Send("{2 1}")
Sleep(11000)
MouseDown("left") ;shield aus 2:49
Send("{1 1}")
Send("{4 1}")
Local $script_start = TimerInit()
Do
Kalee1() ;
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 19000
MouseUp("left") ;shield an 2:30
Send("{2 1}")
Sleep(23000)
MouseDown("left") ;shield aus 2:07
Send("{1 1}")
Local $script_start = TimerInit()
Do
Kalee3()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 26000
MouseUp("left") ;shield an 1:40
Send("{2 1}")
Sleep(10500)
MouseDown("left") ;shield aus 1:30.5
Send("{1 1}")
Local $script_start = TimerInit()
Do
Kalee1()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 6500
MouseUp("left") ;shield an 1:24
Send("{2 1}")
Sleep(19000)
MouseDown("left") ;shield aus 1:05
Send("{1 1}")
Local $script_start = TimerInit() ;
Do
Kalee2()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 7000
Send("{3 1}")
Local $script_start = TimerInit() ;0:58
Do
Kalee2()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 17000
MouseUp("left") ;shield an 0:41
Send("{2 1}")
Sleep (33000)
If GUICtrlRead($Checkbox_barrel) = $GUI_CHECKED Then AdlibUnRegister("Barrel")
Sleep(1000)
space_ende()
EndFunc
Func Kalee1()
;variablen===============================================
$gelb1 = PixelSearch(264, 31, 770, 795, 0xB29F1E, 10)
$gelb2 = PixelSearch(264, 31, 770, 795, 0x896400, 10)
$gelb3 = PixelSearch(264, 31, 770, 795, 0xFDC625, 10)
;$rot1 = PixelSearch(14, 55, 1024, 785, 0xFFA29D, 10)
;Variablen================================================
If IsArray($gelb1) = True Then
MouseMove($gelb1 [0], $gelb1 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb2) = True Then
MouseMove($gelb2 [0], $gelb2 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb3) = True Then
MouseMove($gelb3 [0], $gelb3 [1], 1)
MouseClick("right")
EndIf
; If IsArray($rot1) = True Then
; MouseMove($rot1 [0], $rot1 [1], 1)
; MouseClick("right")
; EndIf
EndFunc
Func Kalee2()
;variablen===============================================
$gelb1 = PixelSearch(7, 320, 1029, 793, 0xB29F1E, 5)
$gelb2 = PixelSearch(7, 320, 1029, 793, 0x896400, 5)
$gelb3 = PixelSearch(7, 320, 1029, 793, 0xFDC625, 5)
;Variablen================================================
If IsArray($gelb1) = True Then
MouseMove($gelb1 [0], $gelb1 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb2) = True Then
MouseMove($gelb2 [0], $gelb2 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb3) = True Then
MouseMove($gelb3 [0], $gelb3 [1], 1)
MouseClick("right")
EndIf
EndFunc
Func Kalee3()
;variablen===============================================
$gelb1 = PixelSearch(264, 31, 770, 795, 0xB29F1E, 10)
$gelb2 = PixelSearch(264, 31, 770, 795, 0x896400, 10)
$gelb3 = PixelSearch(264, 31, 770, 795, 0xFDC625, 10)
;Variablen================================================
If IsArray($gelb1) = True Then
MouseMove($gelb1 [0], $gelb1 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb2) = True Then
MouseMove($gelb2 [0], $gelb2 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb3) = True Then
MouseMove($gelb3 [0], $gelb3 [1], 1)
MouseClick("right")
EndIf
EndFunc
Func Kalee4()
;variablen===============================================
$gelb1 = PixelSearch(14, 50, 586, 788, 0xB29F1E, 5)
$gelb2 = PixelSearch(14, 50, 586, 788, 0x896400, 5)
$gelb3 = PixelSearch(14, 50, 586, 788, 0xFDC625, 5)
;Variablen================================================
If IsArray($gelb1) = True Then
MouseMove($gelb1 [0], $gelb1 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb2) = True Then
MouseMove($gelb2 [0], $gelb2 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb3) = True Then
MouseMove($gelb3 [0], $gelb3 [1], 1)
MouseClick("right")
EndIf
EndFunc
Func Kalee5()
;variablen===============================================
$gelb1 = PixelSearch(400, 270, 844, 471, 0xB29F1E, 5)
$gelb2 = PixelSearch(400, 270, 844, 471, 0x896400, 5)
$gelb3 = PixelSearch(400, 270, 844, 471, 0xFDC625, 5)
;Variablen================================================
If IsArray($gelb1) = True Then
MouseMove($gelb1 [0], $gelb1 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb2) = True Then
MouseMove($gelb2 [0], $gelb2 [1], 1)
MouseClick("right")
EndIf
If IsArray($gelb3) = True Then
MouseMove($gelb3 [0], $gelb3 [1], 1)
MouseClick("right")
EndIf
EndFunc