So da ich ständig das nachbuffen bei meinem Assa verpeile habe ich mir mal nen Bot gebastelt. Er ist weder fertig noch fehlerfrei. Wer sich aber an der Gestaltung aktiv beteiligen will ist gerne dazu eingeladen.
Code:
HotKeySet("{NUMPAD7}", "buffschleife") ;Taste zum Starten
HotKeySet("{NUMPAD8}", "pause") ;Taste für Pause
HotKeySet("{NUMPAD9}", "ende") ;Taste um den Bot zu beenden
Global $timerinit = TimerInit()
Global $funktionan = False
Global $timer
Global $cooldown[6]
$colldown[0] = 600500
$colldown[1] = 180500
$colldown[2] = 600500
$colldown[3] = 600500
$colldown[4] = 60500
$colldown[5] = 180500
Global $buffzuletzt[6]
$buffzuletzt[0] = 0
$buffzuletzt[1] = 0
$buffzuletzt[2] = 0
$buffzuletzt[3] = 0
$buffzuletzt[4] = 0
$buffzuletzt[5] = 0
Func aebuff()
If ($timer - $buffzuletzt[0]) >= $cooldown[0] Then
Return True
EndIf
EndFunc
Func kbuff()
If ($timer - $buffzuletzt[1]) >= $cooldown[1] Then
Return True
EndIf
EndFunc
Func speedpotbuff()
If ($timer - $buffzuletzt[2]) >= $cooldown[2] Then
Return True
EndIf
EndFunc
Func attakspeedpotbuff()
If ($timer - $buffzuletzt[3]) >= $cooldown[3] Then
Return True
EndIf
EndFunc
Func speedbuff()
If ($timer - $buffzuletzt[4]) >= $cooldown[4] Then
Return True
EndIf
EndFunc
Func agrobuff()
If ($timer - $buffzuletzt[5]) >= $cooldown[5] Then
Return True
EndIf
EndFunc
Func buffschleife()
$funktionan = True
While $funktionan = True
If aebuff() = True Then
Send("{1}")
Sleep( 50)
$buffzuletzt[0] = $timer
EndIf
If kbuff() = True Then
Send("{2}")
Sleep( 50)
$buffzuletzt[1] = $timer
EndIf
If speedpotbuff() = True Then
Send("{3}")
Sleep( 50)
$buffzuletzt[2] = $timer
EndIf
If speedbuff()] = True Then
Send("{4}")
Sleep( 50)
$buffzuletzt[3] = $timer
EndIf
If agrobuff() = True Then
Send("{5}")
Sleep( 50)
$buffzuletzt[4] = $timer
EndIf
If attakspeedpotbuff() = True Then
Send("{6}")
Sleep( 50)
$buffzuletzt[5] = $timer
EndIf
WEnd
EndFunc
Func pause()
$funktionan = False
Sleep(10)
EndFunc
Func ende()
Exit
EndFunc