ich wollte mir mit Autoit son kleinen Bot basteln. Selbst angreifen und die gedroppten Sachen aufheben hab ich ja schon, nur eine Funtkion würde ich gern noch haben das er erkennt wann mein Begleiter gefüttert oder geheilt werden muss.
PHP Code:
#cs----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: ...
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
GUICreate("... Bot", 335, 100)
GUICtrlCreateLabel("Stein", 8, 10)
$key1 = GUICtrlCreateInput("", 35, 8, 80)
GUICtrlCreateLabel("Blatt", 8, 44)
$time1 = GUICtrlCreateInput("", 35, 40, 80)
$startbutton = GUICtrlCreateButton("Start", 190, 8, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $startbutton
$send1 = GUICtrlRead($key1)
$sleep1 = GUICtrlRead($time1)
While 1
Send($send1)
Sleep($sleep1)
WEnd
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
EndSelect
WEnd
While True
Send("{TAB}") ; drückt TAB
Sleep(1000) ; wartet 1 Sekunde
Send("1") ; sendet 1
Sleep(1000) ; wartet 1 Sekunde
Send("2") ; sendet 2
Sleep(1000) ; Zeit in Millisekunden bis der Vorgang wiederholt wird
WEnd
Func _exit()
Exit
EndFunc
#Region Globale Variablen:
Global $petheilen_bei
Global $petfuettern_bei
Global $PetHP
Global $petfutteroffset[2] = [0, 0x10A2B4]
Global $PetFutter
#EndRegion
Func Funktion_Createini ()
IniWrite("tools.ini" , "Daten" , "webbersteintaste" , GUICtrlRead($tb8))
IniWrite("tools.ini" , "Daten" , "blaublatttaste" , GUICtrlRead($tb6) )
IniWrite("tools.ini" , "Daten" , "petfuettern_bei" , GUICtrlRead($tb7))
IniWrite("tools.ini" , "Daten" , "petheilen_bei" , GUICtrlRead($tb5))
EndFunc
$PetHP = _MemoryPointerRead($Pointer1 , $Memory , $pethpoffset , "float")
If @error Then
TrayTip("Fehler!" , "Das Programm funktioniert nicht, wenn LC beendet ist. Das Programm wird sich in 10 Sekunden beenden" , 10)
Sleep(10000)
Exit 0
EndIf
$PetFutter = _MemoryPointerRead($Pointer1 , $Memory , $petfutteroffset , "float")
If @error Then
TrayTip("Fehler!" , "Das Programm funktioniert nicht, wenn LC beendet ist. Das Programm wird sich in 10 Sekunden beenden" , 10)
Sleep(10000)
Exit 0
EndIf
If $c = 1 Then
If $pethpgrenze > $PetHP[1] Then
UseKey(GUICtrlRead($tb6) , $hlc)
Sleep(100)
EndIf
EndIf
If $d = 1 Then
If $petfuttergrenze > $PetFutter[1] Then
UseKey(GUICtrlRead($tb8) , $hlc)
Sleep(100)
EndIf
EndIf
While 1
sleep(1)
WEnd
Währe gut wenn mir jemand mal sagen könnte was davon Müll und was davon stehen bleiben könnte des währe schon mal ne super Sache.
MfG
