Global $Paused, $counter = 0

HotKeySet("{F5}", "Trinken")
HotKeySet("{F6}", "TogglePause")
HotKeySet("{F7}", "Terminate")


While 1
   Sleep(1)
WEnd

Func Trinken()
   While 1
	  Send("E")
	  Sleep(Random(11000,11800))