Code:
Func Pakuuni_go() WinActivate("Star Warsâ„¢: The Old Republicâ„¢")
Pakuuni_Main()
EndFunc
Func Pakuuni_Main()
$x1 = 0
$y1 = 0
$x2 = 0
$y2 = 0
$x3 = 0
$y3 = 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(727, 350) ; Galaxiekarte
Sleep(500)
MouseClick("left")
MouseClick("left")
Sleep(2000)
MouseMove(397, 250) ; Pakuuni
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")
Sleep(46000)
Sleep(3000)
If GUICtrlRead($Checkbox_barrel) = $GUI_CHECKED Then AdlibRegister ("Barrel",500)
AdlibRegister ("Scam",82000)
AdlibRegister ("Scam2",233000)
AdlibRegister ("EMP",83000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start = TimerInit()
Do
Pakuuni1()
Local $timer_diff = TimerDiff( $script_start )
Until $timer_diff > 9000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep(9000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start7 = TimerInit()
Do
Pakuuni3()
Local $timer_diff7 = TimerDiff( $script_start7 )
Until $timer_diff7 > 30000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep(11000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start2 = TimerInit()
Do
Pakuuni1()
Local $timer_diff2 = TimerDiff( $script_start2 )
Until $timer_diff2 > 39000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep(23000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start3 = TimerInit()
Do
Pakuuni1()
Local $timer_diff3 = TimerDiff( $script_start3 )
Until $timer_diff3 > 30000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep(14000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start4 = TimerInit()
Do
Pakuuni1()
Local $timer_diff4 = TimerDiff( $script_start4 )
Until $timer_diff4 > 46000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep(15000)
MouseDown("left") ;shield aus
Send("{1 1}")
Local $script_start5 = TimerInit()
Do
Pakuuni3()
Local $timer_diff5 = TimerDiff( $script_start5 )
Until $timer_diff5 > 5000
Local $script_start6 = TimerInit()
Do
Pakuuni2()
Local $timer_diff6 = TimerDiff( $script_start6 )
Until $timer_diff6 > 30000
MouseUp("left") ;shield an
Send("{2 1}")
Sleep (35000)
If GUICtrlRead($Checkbox_barrel) = $GUI_CHECKED Then AdlibUnRegister("Barrel")
AdlibUnRegister("Scam")
AdlibUnRegister("Scam2")
AdlibUnRegister("EMP")
Sleep(1000)
space_ende()
EndFunc
Func Pakuuni1()
;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 Pakuuni2()
;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 Pakuuni3()
;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