PHP Code:
AutoItSetOption("MouseCoordMode",2)
AutoItSetOption("CaretCoordMode",2)
AutoItSetOption("PixelCoordMode",2)
AutoItSetOption("MouseClickDownDelay",50)
AutoItSetOption("SendKeyDownDelay",50)
Dim $state, $search, $inventarfarbe1, $a, $b, $c, $check, $invopen, $i, $booster, $m, $boosterfarbe,
$inventarfarbe1="0x556633"
$c="0x556633"
$Boosterfarbe="0x999777"
$abbaufarbe="0xD0B9B7"
$schriftrollefarbe="0xF2EEEF2"
$messerfarbe="0xA99579"
$state=WinGetState("LastChaos")
WinMove("LastChaos","",0,0)
Sleep(100)
WinActivate("LastChaos")
inventaropen()
boost2()
Func inventaropen()
Send("i")
Sleep(100)
$search = PixelSearch(1, 1, 1000, 700, $inventarfarbe1) ;left top -> right bottom
If Not @error Then
farbcheck($search[0], $search[1])
If $check = "1983678581" Then
MouseMove($search[0]+20, $search[1]+230, 0)
MouseClick("left")
Sleep(200)
$invopen = 1
EndIf
Else
MsgBox(0,"boo", "open inventory not found")
$invopen = 0
EndIf
EndFunc
Func Booster()
$i = 0
If $invopen Then
Select
Case $i = Do
$i = $i + 1
boost2()
If $c Then ExitLoop
Case $i = 2
MouseMove($search[0]+20, $search[1]+270, 0)
MouseClick("left")
If $c Then ExitLoop
Case $i = 3
MouseMove($search[0]+20, $search[1]+310, 0)
MouseClick("left")
Sleep(200)
boost2()
If $c Then ExitLoop
Case $i = 4
MouseMove($search[0]+20, $search[1]+350, 0)
MouseClick("left")
Sleep(200)
boost2()
Sleep(200)
boost2()
If $c Then ExitLoop
EndSelect
EndIf
Until $i = 4
EndFunc
Func boost2()
$Booster = PixelSearch($search[0]+35, $search[1]+215, $search[0]+210, $search[1]+390, $Boosterfarbe) ;left top -> right bottom
If Not @error Then
farbcheck($Booster[0], $Booster[1])
If $check = "2033039290" Then
MouseMove($booster[0]+10, $booster[1]+10,0)
$c = 1
EndIf
EndIf
EndFunc
Func farbcheck($a, $b)
$check = PixelChecksum($a, $b, $a+20, $b+20)
EndFunc
