Does this even work?
HotKeySet("{NUMPAD1}", "main")
HotKeySet("{NUMPAD3}", "ende")
HotKeySet("{NUMPAD2}", "pause")
Global $timerinit = Timerinit()
Global $timer
Global $farming = False
Global $skilltimer1
Global $skilltimer2
Global $skilltimer3
Global $skilltimer4
Global $skilltimer5
Global $skilltimer6
Global $skilltimer7
Global $skilltimer8
Global $cooldown1 = 600000 ;vitbuff
Global $cooldown2 = 600000 ;speedpot
Global $cooldown3 = 600000 ;atkpot
Global $cooldown4 = 90000 ;Energieaufladung
Global $cooldown5 = 60000 ;hppot
Global $cooldown6 = 180000 ;nugget
Global $cooldown7 = 1200 ;chip
Global $cooldown8 = 3000 ;sphaerenaufladung
Global $buffready
Global $moblebt
Global $sphaeren = 0
Global $sphaerenready
Global $tabben
Global $pixel
Global $buff
Global $health
Global $chip
Func sphaeren()
If $sphaeren = 2 Then
$sphaerenready = True
Else
If ($timer - $skilltimer8) < $cooldown8 Then
Send ("{F5}")
$skilltimer8 = $timer
$sphaeren = $sphaeren + 1
Sleep(900)
EndIf
EndIf
EndFunc
Func buff()
If ($timer - $Skilltimer1) < $cooldown1 Then
If ($timer - $Skilltimer2) < $cooldown2 Then
If ($timer - $Skilltimer3) < $cooldown3 Then
$buff = True
Else
Send ("!{F12}")
$Skilltimer3 = $timer
$sphaeren = $sphaeren - 1
Sleep(100)
EndIf
Else
Send ("!{F11}")
$Skilltimer2 = $timer
Sleep(100)
EndIf
Else
Send ("!{F10}")
$Skilltimer1 = $timer
Sleep(1200)
EndIf
EndFunc
Func health()
$pixel = PixelGetColor(120, 55)
If Hex($pixel, 6) = "ADCC89" Then
$health = True
Else
If ($timer - $skilltimer4) < $cooldown4 Then
Send ("{F9}")
Sleep(1200)
$skilltimer4 = $timer
$sphaeren = $sphaeren - 2
Else
If ($timer - $skilltimer5) < $cooldown5 Then
Send ("+{F9}")
Sleep(100)
$skilltimer5 = $timer
Else
If ($timer - $skilltimer6) < $cooldown6 Then
Send ("+{F11}")
Sleep(100)
$skilltimer6 = $timer
EndIf
EndIf
EndIf
EndIf
EndFunc
Func chip()
$pixel = PixelGetColor(479, 59)
If Hex($pixel, 6) = "F6D1A7" Then
$chip = True
Else
If($timer - $skilltimer7) < $cooldown7 Then
Send("{F3}")
$skilltimer7 = $timer
EndIf
EndIf
EndFunc
Func loot()
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
Send ("{F2}")
Sleep(100)
EndFunc
Func search()
If $tabben = 3 Then
MouseMove(500, 380)
MouseDown("right")
MouseMove(550, 380)
MouseUp("right")
Sleep(10)
MouseMove(512, 200)
MouseClick("left")
Sleep(10)
$tabben = 0
Else
Send("{TAB}")
$tabben = $tabben + 1
Sleep(100)
EndIf
EndFunc
Func main()
SendKeepActive("Rappelz")
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
$farming = True
While $farming = True
$timer = TimerDiff($timerinit)
$sphaerenready = False
$buff = False
$chip = False
$health = False
sphaeren()
If $sphaerenready = True Then
buff()
If $buff = True Then
health()
If $health = True Then
chip()
If $chip = True Then
Send("{F1}")
$loot = True
Else
$pixel = PixelGetColor(488,30)
If Hex($pixel, 6) = "281A12" And $loot = True Then
loot()
Else
search()
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd
EndFunc
Func pause()
$farming = False
Sleep(10)
EndFunc
Func ende()
Exit
EndFunc
While 1
Sleep(50)
WEnd