Code:
$A = Random(4000, 4200)
$B = Random(1000, 1200)
$C = Random(2000, 2200)
$D = Random(3000, 3200)
$E = Random(7000, 7200)
$F = Random(7000, 7300)
$G = Random(5000, 5200)
$H = Random(6000, 6200)
$I = 0
$J = 0
Sleep($B)
Do
Call("WINTERGARTEN")
Call("LAUFEN")
Call("QUEST")
Call("AUFGEBEN")
Send("{H}")
Sleep(100)
MouseClick("left", 349, 161, 1, 1)
Sleep(500)
If PixelGetColor(616, 252) = (7164538) Then
Send("{H}")
Call("SPENDEN")
Else
Send("{H}")
EndIf
Sleep(100)
$J = $J + 1
Until $J = 9999999
Func WINTERGARTEN()
Sleep(Random(100, 150))
Send("{V}")
Sleep(Random(100, 200))
If PixelGetColor(137, 797) = (39) Then
Send("{A down}")
Sleep(1050)
Send("{A up}")
Sleep(100)
Send("{Ö}")
Sleep(100)
Send("{Space}")
Sleep(10840)
EndIf
If PixelGetColor(137, 797) = (65831) Then
Send("{A down}")
Sleep(1050)
Send("{A up}")
Sleep(100)
Send("{Ö}")
Sleep(100)
Send("{Space}")
Sleep(7450)
EndIf
If PixelGetColor(137, 797) = (14540267) Then
Send("{D down}")
Sleep(320)
Send("{D up}")
Sleep(100)
Send("{Ö}")
Sleep(100)
Send("{Space}")
Sleep(6810)
EndIf
Send("{R}")
Sleep(Random(12000, 12100))
EndFunc
Func LAUFEN()
Send("{F5}")
Sleep(500)
MouseClick("left", 1069, 113, 1, 1)
Sleep(300)
Send("{F6}")
Sleep(500)
MouseClick("left", 1025, 111, 1, 1)
Sleep(300)
Send("{F7}")
Sleep(500)
MouseClick("left", 1122, 153, 1, 1)
Sleep(300)
Send("{F8}")
Sleep(500)
MouseClick("left", 1123, 304, 1, 1)
Sleep(600)
MouseClick("left", 1240, 585, 1, 1)
Sleep(600)
MouseClick("left", 1240, 710, 1, 1)
Sleep(600)
MouseClick("left", 1240, 835, 1, 1)
Sleep(300)
MouseClick("left", 1290, 585, 1, 1)
Sleep(300)
MouseClick("left", 1290, 710, 1, 1)
Sleep(300)
MouseClick("left", 1290, 835, 1, 1)
Sleep(2100)
MouseClick("left", 1325, 585, 1, 1)
Sleep(200)
MouseClick("left", 1325, 710, 1, 1)
Sleep(200)
MouseClick("left", 1325, 835, 1, 1)
Sleep(5500)
MouseClick("left", 1290, 585, 1, 1)
Sleep(300)
MouseClick("left", 1290, 710, 1, 1)
Sleep(300)
MouseClick("left", 1290, 835, 1, 1)
Sleep(2100)
MouseClick("left", 1350, 585, 1, 1)
Sleep(300)
MouseClick("left", 1350, 710, 1, 1)
Sleep(300)
MouseClick("left", 1350, 835, 1, 1)
Sleep(4400)
MouseClick("left", 1290, 585, 1, 1)
Sleep(300)
MouseClick("left", 1290, 710, 1, 1)
Sleep(300)
MouseClick("left", 1290, 835, 1, 1)
Sleep(2100)
MouseClick("left", 1375, 585, 1, 1)
Sleep(300)
MouseClick("left", 1375, 710, 1, 1)
Sleep(300)
MouseClick("left", 1375, 835, 1, 1)
Sleep(1000)
Send("{F5}")
Sleep(500)
MouseClick("left", 1107, 62, 1, 1)
Sleep(3000)
MouseClick("left", 1400, 585, 1, 1)
Sleep(300)
MouseClick("left", 1290, 585, 1, 1)
Sleep(300)
MouseClick("left", 1400, 710, 1, 1)
Sleep(300)
MouseClick("left", 1400, 835, 1, 1)
Sleep(2100)
MouseClick("left", 1325, 585, 1, 1)
Sleep(7000)
MouseClick("left", 1290, 585, 1, 1)
Sleep(3000)
MouseClick("left", 1325, 585, 1, 1)
Sleep(2500)
EndFunc
Func QUEST()
Send("{E down}")
Sleep(2000)
Send("{E up}")
Sleep(200)
Send("{Space}")
Sleep(2000)
MouseClick("left", 832, 603, 1, 1)
Sleep(1000)
MouseClick("left", 1290, 585, 1, 1)
Sleep(100)
MouseClick("left", 712, 568, 1, 1)
Sleep(4500)
Send("{Space}")
Sleep(500)
MouseClick("left", 694, 551, 1, 1)
Sleep(100)
EndFunc
Func AUFGEBEN()
Send("{-}")
Send("{R}")
Send("{e}")
Send("{s}")
Send("{i}")
Send("{g}")
Send("{n}")
Send("{Enter}")
Sleep(3300)
MouseClick("left", 803, 474, 1, 1)
Sleep($F)
EndFunc
Func SPENDEN()
Send("{G}")
Sleep(300)
MouseClick("left", 763, 108, 1, 1)
Sleep(9000)
Send("{W down}")
Sleep(900)
Send("{W up}")
Send("{Q down}")
Sleep(1300)
Send("{Q up}")
Sleep(50)
Send("{V}")
Sleep(100)
Send("{Space}")
Sleep(1500)
MouseClick("left", 708, 478, 1, 1)
Sleep(1000)
MouseClick("left", 680, 531, 1, 1)
Sleep(200)
MouseClick("left", 763, 108, 1, 1)
Sleep(9000)
Send("{P}")
Sleep(300)
MouseClick("left", 683, 378, 1, 1)
Sleep(300)
MouseClick("left", 609, 509, 2, 1)
Sleep(200)
MouseClick("left", 597, 571, 2, 1)
Send("{P}")
Sleep(100)
Send("{G}")
Sleep(100)
EndFunc