C:\Users\user\Desktop\Alles\Farmbot\Farmbott.au3(1 94,28) : ERROR: AdlibEnable(): undefined function.
AdlibEnable( "_aura", 60000)
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\user\Desktop\Alles\Farmbot\Farmbott.au3(2 24,14) : ERROR: AdlibDisable(): undefined function.
AdlibDisable()
Code:
Func _Start3() $start3 = 1 AdlibEnable( "_aura", 60000) EndFunc func _aura() Send ("^h") Sleep(100) Send ("1") Sleep(100) Send ("^h") sleep(1000) Send ("1h") Sleep(100) Send ("1") Sleep(100) Send ("^h") EndFunc
Code:
Func _pause() Sleep(1) $start = 0 $start2 = 0 $start3 = 0 AdlibDisable()
Code:
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Security.au3> #include <UDFGlobalID.au3> #include <GuiSlider.au3> #include <IE.au3> #Region ### START Koda GUI section ### Form= $gui = GUICreate("Farmbot © by repins94 ", 163, 421, 192, 124) GUISetIcon("C:\Users\user\Desktop\Alles\Bilder\Aut oIT icon\logo16x16.ico") GUISetFont(10, 400, 0, "Comic Sans MS") GUISetBkColor(0xA0A0A0) $Button1 = GUICtrlCreateButton("Start|Go", 8, 8, 145, 41, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Button2 = GUICtrlCreateButton("Pause|Break", 8, 56, 145, 41, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Button3 = GUICtrlCreateButton("Ende|Finish", 8, 104, 145, 41, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Button4 = GUICtrlCreateButton("Potten", 8, 152, 145, 41, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Button5 = GUICtrlCreateButton("Sk | Aura", 8, 200, 145, 41, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Pic1 = GUICtrlCreatePic("C:\Users\user\Desktop\Farmbot\av atar1105624_2.gif.jpg", 8, 256, 145, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Button6 = GUICtrlCreateButton("Instrucion", 0, 376, 73, 25, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) $Button7 = GUICtrlCreateButton("Copyright", 88, 376, 73, 25, $WS_GROUP) GUICtrlSetColor(-1, 0x800000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $start = 0 Global $start2 = 0 Global $start3 = 0 Global $pause = 0 While True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button6 MsgBox(1, "Anleitung", "Drückt Start um zu Schlagen,Picupen und Aura/Sk anzumach und Potten um Blaue|Rote pots zu schlucken.Dazu müssen Aura F1 und Blaue|Rote pots 1und 2 sein", 1000) Case $Button7 MsgBox(1,"Credits","© repins94 - Alle Rechte vorbehalten, insbesondere das Recht auf Vervielfältigung und Verbreitung. Kein Teil dieses Source-Codes darf in irgendeiner Form ohne ausdrückliche Genehmigung von repins94 (mit Screenshot) für öffentliche Zwecke verändert, vervielfältigt oder verbreitet werden.Das gewerbliche verbreiten des Bots oder des Source-Codes ist strikt zu unterlassen, solange der Urheber (repins94) es nicht ausdrücklich nach der Annahme des möglicherweise veränderten Scriptes eingewilligt hat(mit Screenshot).Für mögliche Hardwareprobleme, Softwareprobleme oder gar Hardware- und/oder Softwareschäden wird nicht gehaftet.Die Programmbenutzung und die damit verbundenen möglichen Konsequenzen (z.B. Accountban, Itemverlust) werden mit dem Download einer der angehängten Dateien in Rücksicht genommen und gehaftet.Jegliche Regeländerungen sind ab dem Zeitpunkt des Edits zu beachten und ggbf. zu befolgen.",1000) Case $Button1 GUICtrlSetBkColor($Button1, 0x00FF00) GUICtrlSetBkColor($Button2, Default) GUICtrlSetBkColor($Button3, Default) GUICtrlSetBkColor($Button4, Default) GUICtrlSetBkColor($Button5, Default) GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON) _Start() Case $Button2 GUICtrlSetBkColor($Button2, Default) GUICtrlSetBkColor($Button3, 0xFFFF00) GUICtrlSetBkColor($Button4, Default) GUICtrlSetBkColor($Button5, Default) GUICtrlSetBkColor($Button6, Default) GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button6, $GUI_SS_DEFAULT_BUTTON) _pause() Case $Button3 GUICtrlSetBkColor($Button1, Default) GUICtrlSetBkColor($Button2, Default) GUICtrlSetBkColor($Button3, 0xFF0000) GUICtrlSetBkColor($Button4, Default) GUICtrlSetBkColor($Button5, Default) GUICtrlSetStyle($Button1, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON) _Ende() Case $Button4 NeuesGUI() GUICtrlSetBkColor($Button1, Default) GUICtrlSetBkColor($Button2, Default) GUICtrlSetBkColor($Button3, Default) GUICtrlSetBkColor($Button4, 0x00FF00) GUICtrlSetBkColor($Button5, Default) GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON) _Start2() Case $Button5 GUICtrlSetBkColor($Button1, Default) GUICtrlSetBkColor($Button2, Default) GUICtrlSetBkColor($Button3, Default) GUICtrlSetBkColor($Button4, Default) GUICtrlSetBkColor($Button5, 0x00FF00) GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON) GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON) _Start3() EndSwitch If $start = 1 Then Send(" ") Send("y") EndIf If $start2 = 1 Then Send("1") Send("2") EndIf WEnd ********* ********* ********* Func _Start() $start = 1 EndFunc Func _Start2() $start2 = 1 EndFunc Func _Start3() $start3 = 1 AdlibEnable( "_aura", 60000) EndFunc func _aura() Send ("^h") Sleep(100) Send ("1") Sleep(100) Send ("^h") sleep(1000) Send ("1h") Sleep(100) Send ("1") Sleep(100) Send ("^h") EndFunc Func _Ende() MsgBox(0, "© by repins 94", "Scripted by repins94 and Bassbanane 4 E*pvpers", 10000) Exit EndFunc Func _pause() Sleep(1) $start = 0 $start2 = 0 $start3 = 0 AdlibDisable() EndFunc Func Close() Exit EndFunc